Subversion Repositories Kolibri OS

Rev

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

Rev 6763 Rev 6766
Line -... Line 1...
- 
 
 1 
align 4
1 
set_rect_window:
 2 
set_rect_window:
2 
        mov     ebx,set_rect_window_procinfo
 3 
        mov     ebx,set_rect_window_procinfo
3 
        call    get_slot_n
 4 
        call    get_slot_n
Line 4... Line 5...
4 
 
 5 
 
Line 5... Line 6...
5 
        mov     [set_rect_window_slot],ecx
 6 
        mov     [set_rect_window_slot],ecx
6 
 
 7 
 
7 
        set_events_mask (evm_redraw+evm_key+evm_button+evm_mouse)
 8 
        set_events_mask (evm_redraw+evm_key+evm_button+evm_mouse)
- 
 
 9 
        call    init_rect
8 
.red:
 10 
        edit_boxes_set_sys_color rect_input,rect_input_end,sc
9 
        edit_boxes_set_sys_color rect_input,rect_input_end,sc
 11 
.red:
10 
        labels_set_sys_color rect_input_labels,rect_input_labels_end,sc
 12 
        labels_set_sys_color rect_input_labels,rect_input_labels_end,sc
- 
 
 13 
        check_boxes_set_sys_color2 riw_check_boxes,riw_check_boxes_end,sc
11 
        check_boxes_set_sys_color2 riw_check_boxes,riw_check_boxes_end,sc
 14 
        call    .draw_window
12 
        call    .draw_window
 15 
align 4
Line 13... Line 16...
13 
.still:
 16 
.still:
14 
        wait_event .red,.key,.button,.mouse
 17 
        wait_event .red,.key,.button,.mouse
Line 74... Line 77...
74 
        call    draw_rect_on_screen
 77 
        call    draw_rect_on_screen
Line 75... Line 78...
75 
 
 78 
 
76 
        stop_draw_window
 79 
        stop_draw_window
Line -... Line 80...
- 
 
 80 
ret
- 
 
 81 
 
- 
 
 82 
align 4
- 
 
 83 
init_rect:
- 
 
 84 
        bt      dword [use_rect_active_window.flags],1
- 
 
 85 
        jc      init_rect_from_active_window
- 
 
 86 
pushad
- 
 
 87 
        mov     edi,rect_input_buffer.left
- 
 
 88 
        movsx   eax,word[rect.left]
- 
 
 89 
		mov     ecx,rect_input.left
- 
 
 90 
		call    init_editbox
- 
 
 91 
        mov     edi,rect_input_buffer.top
- 
 
 92 
        movsx   eax,word[rect.top]
- 
 
 93 
		mov     ecx,rect_input.top
- 
 
 94 
		call    init_editbox
- 
 
 95 
        mov     edi,rect_input_buffer.width
- 
 
 96 
        movsx   eax,word[rect.width]
- 
 
 97 
		mov     ecx,rect_input.width
- 
 
 98 
		call    init_editbox
- 
 
 99 
        mov     edi,rect_input_buffer.height
- 
 
 100 
        movsx   eax,word[rect.height]
- 
 
 101 
		mov     ecx,rect_input.height
- 
 
 102 
		call    init_editbox
- 
 
 103 
popad
- 
 
 104 
ret
- 
 
 105 
 
- 
 
 106 
align 4
- 
 
 107 
init_rect_from_active_window:
- 
 
 108 
 
- 
 
 109 
ret
- 
 
 110 
 
- 
 
 111 
align 4
- 
 
 112 
init_editbox:
- 
 
 113 
		push    edi
- 
 
 114 
		push    ecx
- 
 
 115 
		xor     ebx,ebx
- 
 
 116 
		inc     ebx
- 
 
 117 
		cmp     eax,10
- 
 
 118 
		jl @f
- 
 
 119 
		inc     ebx
- 
 
 120 
		@@:
- 
 
 121 
		cmp     eax,100
- 
 
 122 
		jl @f
- 
 
 123 
		inc     ebx
- 
 
 124 
		@@:
- 
 
 125 
		cmp     eax,1000
- 
 
 126 
		jl @f
- 
 
 127 
		inc     ebx
- 
 
 128 
		@@:
- 
 
 129 
		call    int_to_str
77 
ret
 130 
		call    [edit_box_set_text] ;ecx,edi
78 
 
 131 
ret
79 
;--------------------------------------------------------------------
 132 
;--------------------------------------------------------------------
80 
;--- ‘ç¨â뢠­¨¥ ®¡« â¨ ----------------------------------------------
 133 
;--- ‘ç¨â뢠­¨¥ ®¡« â¨ ----------------------------------------------
81 
;--------------------------------------------------------------------
 134 
;--------------------------------------------------------------------
Line 233... Line 286...
233 
;version_lib		dd a_version
 286 
;version_lib		dd a_version
Line 234... Line 287...
234 
 
 287 
 
235 
edit_box_draw		dd aEdit_box_draw
 288 
edit_box_draw		dd aEdit_box_draw
236 
edit_box_key		dd aEdit_box_key
 289 
edit_box_key		dd aEdit_box_key
- 
 
 290 
edit_box_mouse		dd aEdit_box_mouse
237 
edit_box_mouse		dd aEdit_box_mouse
 291 
edit_box_set_text	dd aEdit_box_set_text
Line 238... Line 292...
238 
;version_ed		dd aVersion_ed
 292 
;version_ed		dd aVersion_ed
239 
 
 293 
 
240 
init_checkbox		dd aInit_checkbox
 294 
init_checkbox		dd aInit_checkbox
Line 255... Line 309...
255 
;a_version		db 'version',0
 309 
;a_version		db 'version',0
Line 256... Line 310...
256 
 
 310 
 
257 
aEdit_box_draw		db 'edit_box',0
 311 
aEdit_box_draw		db 'edit_box',0
258 
aEdit_box_key		db 'edit_box_key',0
 312 
aEdit_box_key		db 'edit_box_key',0
- 
 
 313 
aEdit_box_mouse		db 'edit_box_mouse',0
259 
aEdit_box_mouse		db 'edit_box_mouse',0
 314 
aEdit_box_set_text	db 'edit_box_set_text',0
Line 260... Line 315...
260 
;aVersion_ed		db 'version_ed',0
 315 
;aVersion_ed		db 'version_ed',0
261 
 
 316 
 
Line 321... Line 376...
321 
;---------------------------------------------------------------------
 376 
;---------------------------------------------------------------------
322 
;width,left,top,color,shift_color,focus_border_color,\
 377 
;width,left,top,color,shift_color,focus_border_color,\
323 
;       blur_border_color,text_color,max,text,mouse_variable,flags,size,pos
 378 
;       blur_border_color,text_color,max,text,mouse_variable,flags,size,pos
Line 324... Line 379...
324 
 
 379 
 
325 
rect_input:
 380 
rect_input:
326 
.left   edit_box 35,95,5, cl_white,0,0,0,5,rect_input_buffer.left,  mouse_dd1,ed_figure_only+ed_focus
 381 
.left   edit_box 35,95,5, cl_white,0,0,0,0,5,rect_input_buffer.left,  mouse_dd1,ed_figure_only ;+ed_focus
327 
.top    edit_box 35,95,25,cl_white,0,0,0,5,rect_input_buffer.top,   mouse_dd1,ed_figure_only
 382 
.top    edit_box 35,95,25,cl_white,0,0,0,0,5,rect_input_buffer.top,   mouse_dd1,ed_figure_only
328 
.width  edit_box 35,95,45,cl_white,0,0,0,5,rect_input_buffer.width, mouse_dd1,ed_figure_only
 383 
.width  edit_box 35,95,45,cl_white,0,0,0,0,5,rect_input_buffer.width, mouse_dd1,ed_figure_only
329 
.height edit_box 35,95,65,cl_white,0,0,0,5,rect_input_buffer.height,mouse_dd1,ed_figure_only
 384 
.height edit_box 35,95,65,cl_white,0,0,0,0,5,rect_input_buffer.height,mouse_dd1,ed_figure_only
330 
rect_input_end:
 385 
rect_input_end:
331 
mouse_dd1	rd 1
 386 
mouse_dd1	rd 1
332 
rect_input_labels:
 387 
rect_input_labels:
333 
.left   label 10,10,0,rect_input_labels_text.left
 388 
.left   label 10,10,0,rect_input_labels_text.left