Subversion Repositories Kolibri OS

Rev

Rev 8236 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8236 Rev 9568
Line 11... Line 11...
11 
;;      16.11.2006                          ;;
 11 
;;      16.11.2006                          ;;
Line 12... Line 12...
12 
 
 12 
 
Line 13... Line 13...
13 
WIN_W = 364
 13 
WIN_W = 364
14 
 
 14 
 
15 
use32
 15 
use32
16 
    org 0x0
 16 
    org 0
Line 17... Line 17...
17 
    db  'MENUET01'
 17 
    db  'MENUET01'
18 
    dd  0x01,start,i_end,e_end,e_end,0,sys_path
 18 
    dd  1,start,i_end,e_end,e_end,0,sys_path
19 
 
 19 
 
20 
include '../../../proc32.inc'
 20 
include '../../../proc32.inc'
Line 30... Line 30...
30 
	load_libraries l_libs_start,l_libs_end
 30 
	load_libraries l_libs_start,l_libs_end
31 
	;¯à®¢¥àª  ­  ᪮«ìª® 㤠筮 § £ã§¨« áì ­ è  ¡¨¡«¨®â¥ª 
 31 
	;¯à®¢¥àª  ­  ᪮«ìª® 㤠筮 § £ã§¨« áì ­ è  ¡¨¡«¨®â¥ª 
32 
	mov	ebp,lib_0
 32 
	mov	ebp,lib_0
33 
	cmp	dword [ebp+ll_struc_size-4],0
 33 
	cmp	dword [ebp+ll_struc_size-4],0
34 
	jz	@f
 34 
	jz	@f
35 
		mcall -1 ;exit not correct
 35 
		mcall SF_TERMINATE_PROCESS
36 
	@@:
 36 
	@@:
37 
	mcall 40,0x80000027
 37 
	mcall SF_SET_EVENTS_MASK,0x80000027
38 
	mcall 48, 3, sys_colors, 40
 38 
	mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, sys_colors, 40
39 
	edit_boxes_set_sys_color edit1,editboxes_end,sys_colors
 39 
	edit_boxes_set_sys_color edit1,editboxes_end,sys_colors
Line 40... Line 40...
40 
 
 40 
 
41 
red:
 41 
red:
Line -... Line 42...
- 
 
 42 
    call draw_window
42 
    call draw_window
 43 
 
43 
 
 44 
align 4
Line 44... Line 45...
44 
still:
 45 
still:
45 
    mcall 10		; äã­ªæ¨ï 10 - ¦¤ âì ᮡëâ¨ï
 46 
    mcall SF_WAIT_EVENT
46 
 
 47 
 
47 
    cmp  eax,1		; ¯¥à¥à¨á®¢ âì ®ª­® ?
 48 
    cmp  eax,1		; ¯¥à¥à¨á®¢ âì ®ª­® ?
Line 56... Line 57...
56 
    jmp  still		; ¥á«¨ ¤à㣮¥ ᮡë⨥ - ¢ ­ ç «® 横« 
 57 
    jmp  still		; ¥á«¨ ¤à㣮¥ ᮡë⨥ - ¢ ­ ç «® 横« 
Line 57... Line 58...
57 
 
 58 
 
Line 58... Line 59...
58 
;---------------------------------------------------------------------
 59 
;---------------------------------------------------------------------
59 
 
 60 
 
60 
key:		       ; ­ ¦ â  ª« ¢¨è  ­  ª« ¢¨ âãà¥
 61 
key:		       ; ­ ¦ â  ª« ¢¨è  ­  ª« ¢¨ âãà¥
61 
    mcall 2
 62 
    mcall SF_GET_KEY
62 
	cmp ah,13 ;®¡à ¡®âª  ª­®¯ª¨ Enter
 63 
	cmp ah,13 ;®¡à ¡®âª  ª­®¯ª¨ Enter
63 
	je @f
 64 
	je @f
64 
		stdcall [edit_box_key], dword edit1
 65 
		stdcall [edit_box_key], dword edit1
Line 122... Line 123...
122 
   jmp	  red
 123 
   jmp	  red
Line 123... Line 124...
123 
 
 124 
 
Line 124... Line 125...
124 
;---------------------------------------------------------------------
 125 
;---------------------------------------------------------------------
125 
 
 126 
 
126 
button:
 127 
button:
127 
	mcall 17		; 17 - ¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª­®¯ª¨
 128 
	mcall SF_GET_BUTTON
128 
	cmp   ah, 1 	; ¥á«¨ … ­ ¦ â  ª­®¯ª  á ­®¬¥à®¬ 1,
 129 
	cmp   ah, 1 	; ¥á«¨ … ­ ¦ â  ª­®¯ª  á ­®¬¥à®¬ 1,
129 
	jne   @f
 130 
	jne   @f
130 
		mcall -1
 131 
		mcall SF_TERMINATE_PROCESS
131 
	@@:
 132 
	@@:
132 
	cmp ah, 2
 133 
	cmp ah, 2
133 
	jne @f
 134 
	jne @f
Line 158... Line 159...
158 
	jmp still
 159 
	jmp still
Line 159... Line 160...
159 
 
 160 
 
160 
;------------------------------------------------
 161 
;------------------------------------------------
161 
    draw_window:
 162 
draw_window:
162 
;------------------------------------------------
 163 
;------------------------------------------------
Line 163... Line 164...
163 
	mcall	48, 3, sys_colors, 40
 164 
	mcall	SF_STYLE_SETTINGS, SSF_GET_COLORS, sys_colors, 40
164 
 
 165 
 
165 
    mcall 12, 1
 166 
    mcall SF_REDRAW, SSF_BEGIN_DRAW
166 
	mov	edx, 0x14000000
 167 
	mov	edx, 0x14000000
167 
	or	edx, [sys_colors.work]
 168 
	or	edx, [sys_colors.work]
168 
	;mov	esi, 0x80000000
 169 
	;mov	esi, 0x80000000
Line 169... Line 170...
169 
	;or	esi, [sys_colors.grab_text]
 170 
	;or	esi, [sys_colors.grab_text]
170 
    mcall 0, 200*65536+WIN_W, 200*65536+179, ,,title
 171 
    mcall SF_CREATE_WINDOW, 200*65536+WIN_W, 200*65536+179, ,,title
171 
 
 172 
 
172
173
173 
    mcall  8,         15*65536+42,106*65536+ 21, 2, [sys_colors.work_button] ; ª­®¯ª  shl
 174 
    mcall  SF_DEFINE_BUTTON, 15*65536+42,106*65536+ 21, 2, [sys_colors.work_button] ; ª­®¯ª  shl
Line 174... Line 175...
174 
    mcall   ,         70*65536+42,             ,  , ; ª­®¯ª  sal
 175 
    mcall   ,         70*65536+42,             ,  , ; ª­®¯ª  sal
175 
    mcall   , (WIN_W-55)*65536+42,             , 3, ; ª­®¯ª  shr
 176 
    mcall   , (WIN_W-55)*65536+42,             , 3, ; ª­®¯ª  shr
176 
    mcall   ,(WIN_W-111)*65536+42,             , 4, ; ª­®¯ª  sar
 177 
    mcall   ,(WIN_W-111)*65536+42,             , 4, ; ª­®¯ª  sar
177 
    mcall   , (WIN_W-72)*65536+58,145*65536+ 21, 5, ; ª­®¯ª  Ok
 178 
    mcall   , (WIN_W-72)*65536+58,145*65536+ 21, 5, ; ª­®¯ª  Ok
178 
 
 179 
 
179 
	mov	ecx, 0x90000000
 180 
	mov	ecx, 0x90000000
180 
	or	ecx, [sys_colors.work_text]
 181 
	or	ecx, [sys_colors.work_text]
Line 191... Line 192...
191 
    mov    ecx, [num]
 192 
    mov    ecx, [num]
Line 192... Line 193...
192 
 
 193 
 
193 
	mov esi, [sys_colors.work_text]
 194 
	mov esi, [sys_colors.work_text]
Line 194... Line 195...
194 
	or  esi, 0x90000000
 195 
	or  esi, 0x90000000
195 
 
 196 
 
196 
    mcall  47, 10*65536,   ,(WIN_W-92)*65536+62,    ; 10-­ ï á® §­ ª®¬
 197 
    mcall SF_DRAW_NUMBER, 10*65536,   ,(WIN_W-92)*65536+62,    ; 10-­ ï á® §­ ª®¬
197 
	BIN_LINE_BLOCK_W = 76
 198 
	BIN_LINE_BLOCK_W = 76
198 
    mcall 47, 8*65536+512,,(WIN_W-BIN_LINE_BLOCK_W)*65536+30 ; 2-­ ï
199 
    mcall SF_DRAW_NUMBER, 8*65536+512,,(WIN_W-BIN_LINE_BLOCK_W)*65536+30 ; 2-­ ï
199 
    ror    ecx, 8
 200 
    ror    ecx, 8
200 
	mov    edx, (WIN_W-BIN_LINE_BLOCK_W*2)*65536+30
 201 
	mov    edx, (WIN_W-BIN_LINE_BLOCK_W*2)*65536+30
201 
	mcall
 202 
	mcall
Line 212... Line 213...
212 
    neg    ecx
 213 
    neg    ecx
213 
@@:
 214 
@@:
214 
    mcall   , 10*65536,   ,(WIN_W-92)*65536+46,    ; 10-­ ï
 215 
    mcall   , 10*65536,   ,(WIN_W-92)*65536+46,    ; 10-­ ï
215 
	mcall   , 8*65536+256,,(WIN_W-76)*65536+78,    ; 16-­ ï
 216 
	mcall   , 8*65536+256,,(WIN_W-76)*65536+78,    ; 16-­ ï
216 
	mov   ecx,esi
 217 
	mov   ecx,esi
217 
    mcall  4, (WIN_W-102)*65536+61, , minus, 1
 218 
    mcall SF_DRAW_TEXT, (WIN_W-102)*65536+61, , minus, 1
218 
    mcall 38, 15*65536+WIN_W-15, 137*65536+137, [sys_colors.work_graph]
 219 
    mcall SF_DRAW_LINE, 15*65536+WIN_W-15, 137*65536+137, [sys_colors.work_graph]
219 
	stdcall [edit_box_draw], edit1
 220 
	stdcall [edit_box_draw], edit1
220 
    mcall 12, 2 		   ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
 221 
    mcall SF_REDRAW, SSF_END_DRAW
Line 221... Line 222...
221 
 
 222 
 
Line 222... Line 223...
222 
ret
 223 
ret
Line 272... Line 273...
272 
 shl_sal_sar_shr_button_caption db 'shl    sal                    sar    shr',0
 273 
 shl_sal_sar_shr_button_caption db 'shl    sal                    sar    shr',0
Line 273... Line 274...
273 
 
 274 
 
274 
if lang eq ru
 275 
if lang eq ru
275 
	numstr db '—¨á«®:',0
 276 
	numstr db '—¨á«®:',0
276 
	Okstr db '‚¢®¤',0
 - 
 
277 
	head_f_i:
 - 
 
278 
	head_f_l db '‘¨á⥬­ ï ®è¨¡ª ',0
 277 
	Okstr db '‚¢®¤',0
279 
else
 278 
else
280 
	numstr db 'Number:',0
 279 
	numstr db 'Number:',0
281 
	Okstr db 'Enter',0
 - 
 
282 
	head_f_i:
 - 
 
283 
	head_f_l db 'System error',0
 280 
	Okstr db 'Enter',0
Line 284... Line 281...
284 
end if
 281 
end if
285 
 
 282 
 
Line 302... Line 299...
302 
	edit_box_key dd sz_edit_box_key
 299 
	edit_box_key dd sz_edit_box_key
303 
	edit_box_mouse dd sz_edit_box_mouse
 300 
	edit_box_mouse dd sz_edit_box_mouse
304 
	;edit_box_set_text dd sz_edit_box_set_text
 301 
	;edit_box_set_text dd sz_edit_box_set_text
305 
dd 0,0
 302 
dd 0,0
306 
	;sz_init1 db 'lib_init',0
 303 
	;sz_init1 db 'lib_init',0
307 
	sz_edit_box_draw db 'edit_box',0
 304 
	sz_edit_box_draw db 'edit_box_draw',0
308 
	sz_edit_box_key db 'edit_box_key',0
 305 
	sz_edit_box_key db 'edit_box_key',0
309 
	sz_edit_box_mouse db 'edit_box_mouse',0
 306 
	sz_edit_box_mouse db 'edit_box_mouse',0
310 
	;sz_edit_box_set_text db 'edit_box_set_text',0
 307 
	;sz_edit_box_set_text db 'edit_box_set_text',0
Line 311... Line 308...
311 
 
 308