Subversion Repositories Kolibri OS

Rev

Rev 1228 | Rev 1608 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1228 Rev 1373
Line 4... Line 4...
4
; 01.02.07 - ®¡­®¢«ñ­ editbox
4
; 01.02.07 - ®¡­®¢«ñ­ editbox
5
; 31.01.07 - ¢áñ ⥯¥àì à¨áã¥âáï ®â­®á¨â¥«ì­® ª«¨¥­â᪮© ®¡« áâ¨
5
; 31.01.07 - ¢áñ ⥯¥àì à¨áã¥âáï ®â­®á¨â¥«ì­® ª«¨¥­â᪮© ®¡« áâ¨
Line 6... Line 6...
6
 
6
 
7
title equ 'Screenshooter v 0.92' ; ‡ £®«®¢®ª ®ª­ 
7
title equ 'Screenshooter v 0.92' ; ‡ £®«®¢®ª ®ª­ 
8
include '../../develop/libraries/box_lib/load_lib.mac'
8
include '../../develop/libraries/box_lib/load_lib.mac'
9
include '../../develop/libraries/box_lib/asm/trunk/editbox_ex.mac'
9
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
10
;include '../../develop/examples/editbox/trunk/editbox.inc'
10
;include '../../develop/examples/editbox/trunk/editbox.inc'
11
include '../../macros.inc'
11
include '../../macros.inc'
12
include 'txtbut.inc'
12
include 'txtbut.inc'
13
include 'label.inc'
13
include 'label.inc'
Line 36... Line 36...
36
include 'scrsavef.inc'; ¢áâ ¢«ï¥¬ ¯à®æ¥¤ãàã á®åà ­¥­¨ï ä ©« 
36
include 'scrsavef.inc'; ¢áâ ¢«ï¥¬ ¯à®æ¥¤ãàã á®åà ­¥­¨ï ä ©« 
Line 37... Line 37...
37
 
37
 
38
include 'gp.inc'
38
include 'gp.inc'
39
include 'srectwin.inc'
39
include 'srectwin.inc'
-
 
40
include 'lang.inc'
-
 
41
 
-
 
42
macro get_sys_colors col_buf
-
 
43
{
-
 
44
	;mov     eax,48
-
 
45
	push	48
-
 
46
	pop	eax
-
 
47
	;mov     ebx,3
-
 
48
	push	3
-
 
49
	pop	ebx
-
 
50
	;mov     ecx,col_buf
-
 
51
	push	col_buf
-
 
52
	pop	ecx
-
 
53
	;mov     edx,40
-
 
54
	push	40
-
 
55
	pop	edx
-
 
56
	mcall
-
 
57
}
40
include 'lang.inc'
58
 
41
;--- ­ ç «® ¯à®£à ¬¬ë ---
59
;--- ­ ç «® ¯à®£à ¬¬ë ---
42
align 4
60
align 4
43
start:
61
start:
44
sys_load_library  library_name, cur_dir_path, library_path, system_path, \
62
sys_load_library  library_name, cur_dir_path, library_path, system_path, \