WebSVN – Kolibri OS – Diff – /programs/media/scrshoot/srectwin.inc


align 4
set_rect_window:
        mov     ebx,set_rect_window_procinfo
        call    get_slot_n
 
        mov     [set_rect_window_slot],ecx
 
        set_events_mask (evm_redraw+evm_key+evm_button+evm_mouse)
        call    init_rect
        edit_boxes_set_sys_color rect_input,rect_input_end,sc
.red:
        labels_set_sys_color rect_input_labels,rect_input_labels_end,sc
        check_boxes_set_sys_color2 riw_check_boxes,riw_check_boxes_end,sc
        call    .draw_window
align 4
.still:
        wait_event .red,.key,.button,.mouse
 
.key:
        get_key
 
        stdcall    [edit_box_key], rect_input.left
        stdcall    [edit_box_key], rect_input.top
        stdcall    [edit_box_key], rect_input.width
        stdcall    [edit_box_key], rect_input.height
 
        call    read_rect
        call    draw_rect_on_screen
 
        jmp     .still
 
.button:
        get_pressed_button
 
        cmp     ah,1
        jne     @f
        btr     dword [flags],3
        jmp     close
@@:
 
        jmp     .still
 
.mouse:
        get_active_window
        cmp     eax,[set_rect_window_slot]
        jne     .still
 
        stdcall    [edit_box_mouse], rect_input.left
        stdcall    [edit_box_mouse], rect_input.top
        stdcall    [edit_box_mouse], rect_input.width
        stdcall    [edit_box_mouse], rect_input.height
 
;;;;;;;;;;;;;;;;;;;;;;
        stdcall    [check_box_mouse], use_rect_active_window
 
        jmp     .still
 
align 4
.draw_window:
        start_draw_window
 
        mov     edx,[sc.work]
        add     edx,0x33000000
        mov     edi,riw_grab_text
        xor     esi,esi
        mcall   SF_CREATE_WINDOW, 100*65536+250, 100*65536+130
 
        draw_labels rect_input_labels,rect_input_labels_end
 
        stdcall    [edit_box_draw], rect_input.left
        stdcall    [edit_box_draw], rect_input.top
        stdcall    [edit_box_draw], rect_input.width
        stdcall    [edit_box_draw], rect_input.height
;;;;;;;;;;;;;;;;;;;;;;
        stdcall    [check_box_draw], use_rect_active_window
 
        call    read_rect
        call    draw_rect_on_screen
 
        stop_draw_window
ret
 
align 4
init_rect:
        bt      dword [use_rect_active_window.flags],1
        jc      init_rect_from_active_window
pushad
        mov     edi,rect_input_buffer.left
        movsx   eax,word[rect.left]
		mov     ecx,rect_input.left
		call    init_editbox
        mov     edi,rect_input_buffer.top
        movsx   eax,word[rect.top]
		mov     ecx,rect_input.top
		call    init_editbox
        mov     edi,rect_input_buffer.width
        movsx   eax,word[rect.width]
		mov     ecx,rect_input.width
		call    init_editbox
        mov     edi,rect_input_buffer.height
        movsx   eax,word[rect.height]
		mov     ecx,rect_input.height
		call    init_editbox
popad
ret
 
align 4
init_rect_from_active_window:
 
ret
 
align 4
init_editbox:
		push    edi
		push    ecx
		xor     ebx,ebx
		inc     ebx
		cmp     eax,10
		jl @f
		inc     ebx
		@@:
		cmp     eax,100
		jl @f
		inc     ebx
		@@:
		cmp     eax,1000
		jl @f
		inc     ebx
		@@:
		call    int_to_str
		call    [edit_box_set_text] ;ecx,edi
ret
;--------------------------------------------------------------------
;--- ç¨âë¢ ­¨¥ ®¡« áâ¨ ---------------------------------------------
;--------------------------------------------------------------------
align 4
read_rect:
        bt      dword [use_rect_active_window.flags],1
        jc      read_rect_from_active_window
 
        mov     edi,rect_input_buffer.left
        call    zstr_to_int
        cmp     ax,[scr.width]
        jb      @f
        mov     ax,[scr.width]
@@:
        mov     [rect.left],ax
 
        mov     edi,rect_input_buffer.top
        call    zstr_to_int
        cmp     ax,[scr.height]
        jb      @f
        mov     ax,[scr.height]
@@:
        mov     [rect.top],ax
 
        mov     edi,rect_input_buffer.width
        call    zstr_to_int
        mov     bx,[scr.width]
        sub     bx,[rect.left]
        cmp     ax,bx
        jb      @f
        mov     ax,bx
@@:
        mov     [rect.width],ax
 
        mov     edi,rect_input_buffer.height
        call    zstr_to_int
        mov     bx,[scr.height]
        sub     bx,[rect.top]
        cmp     ax,bx
        jb      @f
        mov     ax,bx
@@:
        mov     [rect.height],ax
ret
 
align 4
read_rect_from_active_window:
        call    get_active_window_info
 
        mov     eax,[active_app.left]
        mov     [rect.left],ax
        mov     eax,[active_app.top]
        mov     [rect.top],ax
        mov     eax,[active_app.width]
        inc     eax
        mov     [rect.width],ax
        mov     eax,[active_app.height]
        inc     eax
        mov     [rect.height],ax
ret
 
align 4
draw_rect_on_screen:
 
        xor     edx,edx
        mcall   SF_DRAW_RECT, 150*65536+80, 5*65536+60
 
        ;movzx   eax,word [rect.left]
        ;mul     word [scr.width]
        xor     edx,edx
        movzx   eax,word [scr.width]
        mov     ebx,80
        div     ebx
        mov     ebx,eax
 
        xor     edx,edx
        movzx   eax,word [rect.height]
        div     ebx
        push    ax
 
        xor     edx,edx
        movzx   eax,word [rect.width]
        div     ebx
        push    ax
 
        xor     edx,edx
        movzx   eax,word [rect.top]
        div     ebx
        push    ax
 
        xor     edx,edx
        movzx   eax,word [rect.left]
        div     ebx
        push    ax
 
        pop     bx
        add     bx,150
        shl    ebx,16
 
        pop     cx
        add     cx,5
        shl     ecx,16
 
        pop     bx
        pop     cx
 
        mcall   SF_DRAW_RECT,,,0xffffff
ret
 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;DATA ¤ ­­ë¥
 
system_dir_Boxlib	db '/sys/lib/box_lib.obj',0
system_dir_ProcLib	db '/sys/lib/proc_lib.obj',0
system_dir_LibImg   db '/sys/lib/libimg.obj',0
 
;---------------------------------------------------------------------
align 4
ProcLib_import:
OpenDialog_Init		dd aOpenDialog_Init
OpenDialog_Start	dd aOpenDialog_Start
;OpenDialog__Version	dd aOpenDialog_Version
 
        dd      0,0
aOpenDialog_Init	db 'OpenDialog_init',0
aOpenDialog_Start	db 'OpenDialog_start',0
;aOpenDialog_Version	db 'Version_OpenDialog',0
;---------------------------------------------------------------------
align 4
Box_lib_import:	
;init_lib		dd a_init
;version_lib		dd a_version
 
edit_box_draw		dd aEdit_box_draw
edit_box_key		dd aEdit_box_key
edit_box_mouse		dd aEdit_box_mouse
edit_box_set_text	dd aEdit_box_set_text
;version_ed		dd aVersion_ed
 
init_checkbox		dd aInit_checkbox
check_box_draw		dd aCheck_box_draw
check_box_mouse 	dd aCheck_box_mouse
;version_ch	dd	aVersion_ch
 
option_box_draw	dd aOption_box_draw
option_box_mouse	dd aOption_box_mouse
;version_op		dd aVersion_op
 
PathShow_prepare	dd sz_PathShow_prepare
PathShow_draw		dd sz_PathShow_draw
;Version_path_show	dd szVersion_path_show
			dd 0,0
 
;a_init			db 'lib_init',0
;a_version		db 'version',0
 
aEdit_box_draw		db 'edit_box_draw',0
aEdit_box_key		db 'edit_box_key',0
aEdit_box_mouse		db 'edit_box_mouse',0
aEdit_box_set_text	db 'edit_box_set_text',0
;aVersion_ed		db 'version_ed',0
 
 
aInit_checkbox	 db 'init_checkbox2',0
aCheck_box_draw  db 'check_box_draw2',0
aCheck_box_mouse db 'check_box_mouse2',0
;aVersion_ch	 db 'version_ch2',0
 
aOption_box_draw	db 'option_box_draw',0
aOption_box_mouse	db 'option_box_mouse',0
;aVersion_op		db 'version_op',0
 
sz_PathShow_prepare	db 'PathShow_prepare',0
sz_PathShow_draw	db 'PathShow_draw',0
;szVersion_path_show	db 'version_PathShow',0
;---------------------------------------------------------------------
align 4
import_libimg:
	dd alib_init1
	img_is_img  dd aimg_is_img
	img_info    dd aimg_info
	img_from_file dd aimg_from_file
	img_to_file dd aimg_to_file
	img_from_rgb dd aimg_from_rgb
	img_to_rgb  dd aimg_to_rgb
	img_to_rgb2 dd aimg_to_rgb2
	img_decode  dd aimg_decode
	img_encode  dd aimg_encode
	img_create  dd aimg_create
	img_destroy dd aimg_destroy
	img_destroy_layer dd aimg_destroy_layer
	img_count   dd aimg_count
	img_lock_bits dd aimg_lock_bits
	img_unlock_bits dd aimg_unlock_bits
	img_flip    dd aimg_flip
	img_flip_layer dd aimg_flip_layer
	img_rotate  dd aimg_rotate
	img_rotate_layer dd aimg_rotate_layer
	img_draw    dd aimg_draw
dd 0,0
	alib_init1   db 'lib_init',0
	aimg_is_img  db 'img_is_img',0
	aimg_info    db 'img_info',0
	aimg_from_file db 'img_from_file',0
	aimg_to_file db 'img_to_file',0
	aimg_from_rgb db 'img_from_rgb',0
	aimg_to_rgb  db 'img_to_rgb',0
	aimg_to_rgb2 db 'img_to_rgb2',0
	aimg_decode  db 'img_decode',0
	aimg_encode  db 'img_encode',0
	aimg_create  db 'img_create',0
	aimg_destroy db 'img_destroy',0
	aimg_destroy_layer db 'img_destroy_layer',0
	aimg_count   db 'img_count',0
	aimg_lock_bits db 'img_lock_bits',0
	aimg_unlock_bits db 'img_unlock_bits',0
	aimg_flip    db 'img_flip',0
	aimg_flip_layer db 'img_flip_layer',0
	aimg_rotate  db 'img_rotate',0
	aimg_rotate_layer db 'img_rotate_layer',0
	aimg_draw    db 'img_draw',0
;---------------------------------------------------------------------
;width,left,top,color,shift_color,focus_border_color,\
;       blur_border_color,text_color,max,text,mouse_variable,flags,size,pos
 
rect_input:
.left   edit_box 35,95,5, cl_white,0,0,0,0,5,rect_input_buffer.left,  mouse_dd1,ed_figure_only ;+ed_focus
.top    edit_box 35,95,25,cl_white,0,0,0,0,5,rect_input_buffer.top,   mouse_dd1,ed_figure_only
.width  edit_box 35,95,45,cl_white,0,0,0,0,5,rect_input_buffer.width, mouse_dd1,ed_figure_only
.height edit_box 35,95,65,cl_white,0,0,0,0,5,rect_input_buffer.height,mouse_dd1,ed_figure_only
rect_input_end:
mouse_dd1	rd 1
rect_input_labels:
.left   label 10,10,0,rect_input_labels_text.left
.top    label 10,30,0,rect_input_labels_text.top
.width  label 10,50,0,rect_input_labels_text.width
.height label 10,70,0,rect_input_labels_text.height
rect_input_labels_end:
 
rect_input_labels_text:
if lang eq ru
.left db 'âáâã¯ á«¥¢ :',0
.top  db 'âáâã¯ á¢¥àåã:',0
.width  db '¨à¨­ :',0
.height db 'ëá®â :',0
else
.left db 'Left:',0
.top  db 'Top:',0
.width  db 'Width:',0
.height db 'Height:',0
end if
 
riw_check_boxes:
use_rect_active_window check_box2 (10 shl 16)+10,(85 shl 16) +10,5,cl_white,0,0,\
riw_check_boxes_text, ch_flag_bottom
riw_check_boxes_end:
 
if lang eq ru
riw_check_boxes_text db 'á¯®«ì§®¢ âì ®¡« áâì  ªâ¨¢­®£® ®ª­ ',0
riw_grab_text db '®®à¤¨­ âë ¨ à §¬¥àë ®¡« áâ¨:',0
else
riw_check_boxes_text db 'Use area of the active window',0
riw_grab_text db 'Coordinates and size of the field:',0
end if

Rev 8346	Rev 9568
1	align 4	1	align 4
2	set_rect_window:	2	set_rect_window:
3	mov ebx,set_rect_window_procinfo	3	mov ebx,set_rect_window_procinfo
4	call get_slot_n	4	call get_slot_n
5		5
6	mov [set_rect_window_slot],ecx	6	mov [set_rect_window_slot],ecx
7		7
8	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	9	call init_rect
10	edit_boxes_set_sys_color rect_input,rect_input_end,sc	10	edit_boxes_set_sys_color rect_input,rect_input_end,sc
11	.red:	11	.red:
12	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	13	check_boxes_set_sys_color2 riw_check_boxes,riw_check_boxes_end,sc
14	call .draw_window	14	call .draw_window
15	align 4	15	align 4
16	.still:	16	.still:
17	wait_event .red,.key,.button,.mouse	17	wait_event .red,.key,.button,.mouse
18		18
19	.key:	19	.key:
20	get_key	20	get_key
21		21
22	stdcall [edit_box_key], rect_input.left	22	stdcall [edit_box_key], rect_input.left
23	stdcall [edit_box_key], rect_input.top	23	stdcall [edit_box_key], rect_input.top
24	stdcall [edit_box_key], rect_input.width	24	stdcall [edit_box_key], rect_input.width
25	stdcall [edit_box_key], rect_input.height	25	stdcall [edit_box_key], rect_input.height
26		26
27	call read_rect	27	call read_rect
28	call draw_rect_on_screen	28	call draw_rect_on_screen
29		29
30	jmp .still	30	jmp .still
31		31
32	.button:	32	.button:
33	get_pressed_button	33	get_pressed_button
34		34
35	cmp ah,1	35	cmp ah,1
36	jne @f	36	jne @f
37	btr dword [flags],3	37	btr dword [flags],3
38	jmp close	38	jmp close
39	@@:	39	@@:
40		40
41	jmp .still	41	jmp .still
42		42
43	.mouse:	43	.mouse:
44	get_active_window	44	get_active_window
45	cmp eax,[set_rect_window_slot]	45	cmp eax,[set_rect_window_slot]
46	jne .still	46	jne .still
47		47
48	stdcall [edit_box_mouse], rect_input.left	48	stdcall [edit_box_mouse], rect_input.left
49	stdcall [edit_box_mouse], rect_input.top	49	stdcall [edit_box_mouse], rect_input.top
50	stdcall [edit_box_mouse], rect_input.width	50	stdcall [edit_box_mouse], rect_input.width
51	stdcall [edit_box_mouse], rect_input.height	51	stdcall [edit_box_mouse], rect_input.height
52		52
53	;;;;;;;;;;;;;;;;;;;;;;	53	;;;;;;;;;;;;;;;;;;;;;;
54	stdcall [check_box_mouse], use_rect_active_window	54	stdcall [check_box_mouse], use_rect_active_window
55		55
56	jmp .still	56	jmp .still
57		57
58	align 4	58	align 4
59	.draw_window:	59	.draw_window:
60	start_draw_window	60	start_draw_window
61		61
62	mov edx,[sc.work]	62	mov edx,[sc.work]
63	add edx,0x33000000	63	add edx,0x33000000
64	mov edi,riw_grab_text	64	mov edi,riw_grab_text
65	xor esi,esi	65	xor esi,esi
66	mcall SF_CREATE_WINDOW, 10065536+250, 10065536+130	66	mcall SF_CREATE_WINDOW, 10065536+250, 10065536+130
67		67
68	draw_labels rect_input_labels,rect_input_labels_end	68	draw_labels rect_input_labels,rect_input_labels_end
69		69
70	stdcall [edit_box_draw], rect_input.left	70	stdcall [edit_box_draw], rect_input.left
71	stdcall [edit_box_draw], rect_input.top	71	stdcall [edit_box_draw], rect_input.top
72	stdcall [edit_box_draw], rect_input.width	72	stdcall [edit_box_draw], rect_input.width
73	stdcall [edit_box_draw], rect_input.height	73	stdcall [edit_box_draw], rect_input.height
74	;;;;;;;;;;;;;;;;;;;;;;	74	;;;;;;;;;;;;;;;;;;;;;;
75	stdcall [check_box_draw], use_rect_active_window	75	stdcall [check_box_draw], use_rect_active_window
76		76
77	call read_rect	77	call read_rect
78	call draw_rect_on_screen	78	call draw_rect_on_screen
79		79
80	stop_draw_window	80	stop_draw_window
81	ret	81	ret
82		82
83	align 4	83	align 4
84	init_rect:	84	init_rect:
85	bt dword [use_rect_active_window.flags],1	85	bt dword [use_rect_active_window.flags],1
86	jc init_rect_from_active_window	86	jc init_rect_from_active_window
87	pushad	87	pushad
88	mov edi,rect_input_buffer.left	88	mov edi,rect_input_buffer.left
89	movsx eax,word[rect.left]	89	movsx eax,word[rect.left]
90	mov ecx,rect_input.left	90	mov ecx,rect_input.left
91	call init_editbox	91	call init_editbox
92	mov edi,rect_input_buffer.top	92	mov edi,rect_input_buffer.top
93	movsx eax,word[rect.top]	93	movsx eax,word[rect.top]
94	mov ecx,rect_input.top	94	mov ecx,rect_input.top
95	call init_editbox	95	call init_editbox
96	mov edi,rect_input_buffer.width	96	mov edi,rect_input_buffer.width
97	movsx eax,word[rect.width]	97	movsx eax,word[rect.width]
98	mov ecx,rect_input.width	98	mov ecx,rect_input.width
99	call init_editbox	99	call init_editbox
100	mov edi,rect_input_buffer.height	100	mov edi,rect_input_buffer.height
101	movsx eax,word[rect.height]	101	movsx eax,word[rect.height]
102	mov ecx,rect_input.height	102	mov ecx,rect_input.height
103	call init_editbox	103	call init_editbox
104	popad	104	popad
105	ret	105	ret
106		106
107	align 4	107	align 4
108	init_rect_from_active_window:	108	init_rect_from_active_window:
109		109
110	ret	110	ret
111		111
112	align 4	112	align 4
113	init_editbox:	113	init_editbox:
114	push edi	114	push edi
115	push ecx	115	push ecx
116	xor ebx,ebx	116	xor ebx,ebx
117	inc ebx	117	inc ebx
118	cmp eax,10	118	cmp eax,10
119	jl @f	119	jl @f
120	inc ebx	120	inc ebx
121	@@:	121	@@:
122	cmp eax,100	122	cmp eax,100
123	jl @f	123	jl @f
124	inc ebx	124	inc ebx
125	@@:	125	@@:
126	cmp eax,1000	126	cmp eax,1000
127	jl @f	127	jl @f
128	inc ebx	128	inc ebx
129	@@:	129	@@:
130	call int_to_str	130	call int_to_str
131	call [edit_box_set_text] ;ecx,edi	131	call [edit_box_set_text] ;ecx,edi
132	ret	132	ret
133	;--------------------------------------------------------------------	133	;--------------------------------------------------------------------
134	;--- ç¨âë¢ ¨¥ ®¡« áâ¨ ---------------------------------------------	134	;--- ç¨âë¢ ¨¥ ®¡« áâ¨ ---------------------------------------------
135	;--------------------------------------------------------------------	135	;--------------------------------------------------------------------
136	align 4	136	align 4
137	read_rect:	137	read_rect:
138	bt dword [use_rect_active_window.flags],1	138	bt dword [use_rect_active_window.flags],1
139	jc read_rect_from_active_window	139	jc read_rect_from_active_window
140		140
141	mov edi,rect_input_buffer.left	141	mov edi,rect_input_buffer.left
142	call zstr_to_int	142	call zstr_to_int
143	cmp ax,[scr.width]	143	cmp ax,[scr.width]
144	jb @f	144	jb @f
145	mov ax,[scr.width]	145	mov ax,[scr.width]
146	@@:	146	@@:
147	mov [rect.left],ax	147	mov [rect.left],ax
148		148
149	mov edi,rect_input_buffer.top	149	mov edi,rect_input_buffer.top
150	call zstr_to_int	150	call zstr_to_int
151	cmp ax,[scr.height]	151	cmp ax,[scr.height]
152	jb @f	152	jb @f
153	mov ax,[scr.height]	153	mov ax,[scr.height]
154	@@:	154	@@:
155	mov [rect.top],ax	155	mov [rect.top],ax
156		156
157	mov edi,rect_input_buffer.width	157	mov edi,rect_input_buffer.width
158	call zstr_to_int	158	call zstr_to_int
159	mov bx,[scr.width]	159	mov bx,[scr.width]
160	sub bx,[rect.left]	160	sub bx,[rect.left]
161	cmp ax,bx	161	cmp ax,bx
162	jb @f	162	jb @f
163	mov ax,bx	163	mov ax,bx
164	@@:	164	@@:
165	mov [rect.width],ax	165	mov [rect.width],ax
166		166
167	mov edi,rect_input_buffer.height	167	mov edi,rect_input_buffer.height
168	call zstr_to_int	168	call zstr_to_int
169	mov bx,[scr.height]	169	mov bx,[scr.height]
170	sub bx,[rect.top]	170	sub bx,[rect.top]
171	cmp ax,bx	171	cmp ax,bx
172	jb @f	172	jb @f
173	mov ax,bx	173	mov ax,bx
174	@@:	174	@@:
175	mov [rect.height],ax	175	mov [rect.height],ax
176	ret	176	ret
177		177
178	align 4	178	align 4
179	read_rect_from_active_window:	179	read_rect_from_active_window:
180	call get_active_window_info	180	call get_active_window_info
181		181
182	mov eax,[active_app.left]	182	mov eax,[active_app.left]
183	mov [rect.left],ax	183	mov [rect.left],ax
184	mov eax,[active_app.top]	184	mov eax,[active_app.top]
185	mov [rect.top],ax	185	mov [rect.top],ax
186	mov eax,[active_app.width]	186	mov eax,[active_app.width]
187	inc eax	187	inc eax
188	mov [rect.width],ax	188	mov [rect.width],ax
189	mov eax,[active_app.height]	189	mov eax,[active_app.height]
190	inc eax	190	inc eax
191	mov [rect.height],ax	191	mov [rect.height],ax
192	ret	192	ret
193		193
194	align 4	194	align 4
195	draw_rect_on_screen:	195	draw_rect_on_screen:
196		196
197	xor edx,edx	197	xor edx,edx
198	mcall SF_DRAW_RECT, 15065536+80, 565536+60	198	mcall SF_DRAW_RECT, 15065536+80, 565536+60
199		199
200	;movzx eax,word [rect.left]	200	;movzx eax,word [rect.left]
201	;mul word [scr.width]	201	;mul word [scr.width]
202	xor edx,edx	202	xor edx,edx
203	movzx eax,word [scr.width]	203	movzx eax,word [scr.width]
204	mov ebx,80	204	mov ebx,80
205	div ebx	205	div ebx
206	mov ebx,eax	206	mov ebx,eax
207		207
208	xor edx,edx	208	xor edx,edx
209	movzx eax,word [rect.height]	209	movzx eax,word [rect.height]
210	div ebx	210	div ebx
211	push ax	211	push ax
212		212
213	xor edx,edx	213	xor edx,edx
214	movzx eax,word [rect.width]	214	movzx eax,word [rect.width]
215	div ebx	215	div ebx
216	push ax	216	push ax
217		217
218	xor edx,edx	218	xor edx,edx
219	movzx eax,word [rect.top]	219	movzx eax,word [rect.top]
220	div ebx	220	div ebx
221	push ax	221	push ax
222		222
223	xor edx,edx	223	xor edx,edx
224	movzx eax,word [rect.left]	224	movzx eax,word [rect.left]
225	div ebx	225	div ebx
226	push ax	226	push ax
227		227
228	pop bx	228	pop bx
229	add bx,150	229	add bx,150
230	shl ebx,16	230	shl ebx,16
231		231
232	pop cx	232	pop cx
233	add cx,5	233	add cx,5
234	shl ecx,16	234	shl ecx,16
235		235
236	pop bx	236	pop bx
237	pop cx	237	pop cx
238		238
239	mcall SF_DRAW_RECT,,,0xffffff	239	mcall SF_DRAW_RECT,,,0xffffff
240	ret	240	ret
241		241
242	;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>	242	;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
243	;DATA ¤ ë¥	243	;DATA ¤ ë¥
244		244
245	system_dir_Boxlib db '/sys/lib/box_lib.obj',0	245	system_dir_Boxlib db '/sys/lib/box_lib.obj',0
246	system_dir_ProcLib db '/sys/lib/proc_lib.obj',0	246	system_dir_ProcLib db '/sys/lib/proc_lib.obj',0
247	system_dir_LibImg db '/sys/lib/libimg.obj',0	247	system_dir_LibImg db '/sys/lib/libimg.obj',0
248		248
249	;---------------------------------------------------------------------	249	;---------------------------------------------------------------------
250	align 4	250	align 4
251	ProcLib_import:	251	ProcLib_import:
252	OpenDialog_Init dd aOpenDialog_Init	252	OpenDialog_Init dd aOpenDialog_Init
253	OpenDialog_Start dd aOpenDialog_Start	253	OpenDialog_Start dd aOpenDialog_Start
254	;OpenDialog__Version dd aOpenDialog_Version	254	;OpenDialog__Version dd aOpenDialog_Version
255	dd 0	-
256	dd 0	255	dd 0,0
257	aOpenDialog_Init db 'OpenDialog_init',0	256	aOpenDialog_Init db 'OpenDialog_init',0
258	aOpenDialog_Start db 'OpenDialog_start',0	257	aOpenDialog_Start db 'OpenDialog_start',0
259	;aOpenDialog_Version db 'Version_OpenDialog',0	258	;aOpenDialog_Version db 'Version_OpenDialog',0
260	;---------------------------------------------------------------------	259	;---------------------------------------------------------------------
261	align 4	260	align 4
262	Box_lib_import:	261	Box_lib_import:
263	;init_lib dd a_init	262	;init_lib dd a_init
264	;version_lib dd a_version	263	;version_lib dd a_version
265		264
266	edit_box_draw dd aEdit_box_draw	265	edit_box_draw dd aEdit_box_draw
267	edit_box_key dd aEdit_box_key	266	edit_box_key dd aEdit_box_key
268	edit_box_mouse dd aEdit_box_mouse	267	edit_box_mouse dd aEdit_box_mouse
269	edit_box_set_text dd aEdit_box_set_text	268	edit_box_set_text dd aEdit_box_set_text
270	;version_ed dd aVersion_ed	269	;version_ed dd aVersion_ed
271		270
272	init_checkbox dd aInit_checkbox	271	init_checkbox dd aInit_checkbox
273	check_box_draw dd aCheck_box_draw	272	check_box_draw dd aCheck_box_draw
274	check_box_mouse dd aCheck_box_mouse	273	check_box_mouse dd aCheck_box_mouse
275	;version_ch dd aVersion_ch	274	;version_ch dd aVersion_ch
276		275
277	option_box_draw dd aOption_box_draw	276	option_box_draw dd aOption_box_draw
278	option_box_mouse dd aOption_box_mouse	277	option_box_mouse dd aOption_box_mouse
279	;version_op dd aVersion_op	278	;version_op dd aVersion_op
280		279
281	PathShow_prepare dd sz_PathShow_prepare	280	PathShow_prepare dd sz_PathShow_prepare
282	PathShow_draw dd sz_PathShow_draw	281	PathShow_draw dd sz_PathShow_draw
283	;Version_path_show dd szVersion_path_show	282	;Version_path_show dd szVersion_path_show
284	dd 0,0	283	dd 0,0
285		284
286	;a_init db 'lib_init',0	285	;a_init db 'lib_init',0
287	;a_version db 'version',0	286	;a_version db 'version',0
288		287
289	aEdit_box_draw db 'edit_box',0	288	aEdit_box_draw db 'edit_box_draw',0
290	aEdit_box_key db 'edit_box_key',0	289	aEdit_box_key db 'edit_box_key',0
291	aEdit_box_mouse db 'edit_box_mouse',0	290	aEdit_box_mouse db 'edit_box_mouse',0
292	aEdit_box_set_text db 'edit_box_set_text',0	291	aEdit_box_set_text db 'edit_box_set_text',0
293	;aVersion_ed db 'version_ed',0	292	;aVersion_ed db 'version_ed',0
294		293
295		294
296	aInit_checkbox db 'init_checkbox2',0	295	aInit_checkbox db 'init_checkbox2',0
297	aCheck_box_draw db 'check_box_draw2',0	296	aCheck_box_draw db 'check_box_draw2',0
298	aCheck_box_mouse db 'check_box_mouse2',0	297	aCheck_box_mouse db 'check_box_mouse2',0
299	;aVersion_ch db 'version_ch2',0	298	;aVersion_ch db 'version_ch2',0
300		299
301	aOption_box_draw db 'option_box_draw',0	300	aOption_box_draw db 'option_box_draw',0
302	aOption_box_mouse db 'option_box_mouse',0	301	aOption_box_mouse db 'option_box_mouse',0
303	;aVersion_op db 'version_op',0	302	;aVersion_op db 'version_op',0
304		303
305	sz_PathShow_prepare db 'PathShow_prepare',0	304	sz_PathShow_prepare db 'PathShow_prepare',0
306	sz_PathShow_draw db 'PathShow_draw',0	305	sz_PathShow_draw db 'PathShow_draw',0
307	;szVersion_path_show db 'version_PathShow',0	306	;szVersion_path_show db 'version_PathShow',0
308	;---------------------------------------------------------------------	307	;---------------------------------------------------------------------
309	align 4	308	align 4
310	import_libimg:	309	import_libimg:
311	dd alib_init1	310	dd alib_init1
312	img_is_img dd aimg_is_img	311	img_is_img dd aimg_is_img
313	img_info dd aimg_info	312	img_info dd aimg_info
314	img_from_file dd aimg_from_file	313	img_from_file dd aimg_from_file
315	img_to_file dd aimg_to_file	314	img_to_file dd aimg_to_file
316	img_from_rgb dd aimg_from_rgb	315	img_from_rgb dd aimg_from_rgb
317	img_to_rgb dd aimg_to_rgb	316	img_to_rgb dd aimg_to_rgb
318	img_to_rgb2 dd aimg_to_rgb2	317	img_to_rgb2 dd aimg_to_rgb2
319	img_decode dd aimg_decode	318	img_decode dd aimg_decode
320	img_encode dd aimg_encode	319	img_encode dd aimg_encode
321	img_create dd aimg_create	320	img_create dd aimg_create
322	img_destroy dd aimg_destroy	321	img_destroy dd aimg_destroy
323	img_destroy_layer dd aimg_destroy_layer	322	img_destroy_layer dd aimg_destroy_layer
324	img_count dd aimg_count	323	img_count dd aimg_count
325	img_lock_bits dd aimg_lock_bits	324	img_lock_bits dd aimg_lock_bits
326	img_unlock_bits dd aimg_unlock_bits	325	img_unlock_bits dd aimg_unlock_bits
327	img_flip dd aimg_flip	326	img_flip dd aimg_flip
328	img_flip_layer dd aimg_flip_layer	327	img_flip_layer dd aimg_flip_layer
329	img_rotate dd aimg_rotate	328	img_rotate dd aimg_rotate
330	img_rotate_layer dd aimg_rotate_layer	329	img_rotate_layer dd aimg_rotate_layer
331	img_draw dd aimg_draw	330	img_draw dd aimg_draw
332	dd 0,0	331	dd 0,0
333	alib_init1 db 'lib_init',0	332	alib_init1 db 'lib_init',0
334	aimg_is_img db 'img_is_img',0	333	aimg_is_img db 'img_is_img',0
335	aimg_info db 'img_info',0	334	aimg_info db 'img_info',0
336	aimg_from_file db 'img_from_file',0	335	aimg_from_file db 'img_from_file',0
337	aimg_to_file db 'img_to_file',0	336	aimg_to_file db 'img_to_file',0
338	aimg_from_rgb db 'img_from_rgb',0	337	aimg_from_rgb db 'img_from_rgb',0
339	aimg_to_rgb db 'img_to_rgb',0	338	aimg_to_rgb db 'img_to_rgb',0
340	aimg_to_rgb2 db 'img_to_rgb2',0	339	aimg_to_rgb2 db 'img_to_rgb2',0
341	aimg_decode db 'img_decode',0	340	aimg_decode db 'img_decode',0
342	aimg_encode db 'img_encode',0	341	aimg_encode db 'img_encode',0
343	aimg_create db 'img_create',0	342	aimg_create db 'img_create',0
344	aimg_destroy db 'img_destroy',0	343	aimg_destroy db 'img_destroy',0
345	aimg_destroy_layer db 'img_destroy_layer',0	344	aimg_destroy_layer db 'img_destroy_layer',0
346	aimg_count db 'img_count',0	345	aimg_count db 'img_count',0
347	aimg_lock_bits db 'img_lock_bits',0	346	aimg_lock_bits db 'img_lock_bits',0
348	aimg_unlock_bits db 'img_unlock_bits',0	347	aimg_unlock_bits db 'img_unlock_bits',0
349	aimg_flip db 'img_flip',0	348	aimg_flip db 'img_flip',0
350	aimg_flip_layer db 'img_flip_layer',0	349	aimg_flip_layer db 'img_flip_layer',0
351	aimg_rotate db 'img_rotate',0	350	aimg_rotate db 'img_rotate',0
352	aimg_rotate_layer db 'img_rotate_layer',0	351	aimg_rotate_layer db 'img_rotate_layer',0
353	aimg_draw db 'img_draw',0	352	aimg_draw db 'img_draw',0
354	;---------------------------------------------------------------------	353	;---------------------------------------------------------------------
355	;width,left,top,color,shift_color,focus_border_color,\	354	;width,left,top,color,shift_color,focus_border_color,\
356	; blur_border_color,text_color,max,text,mouse_variable,flags,size,pos	355	; blur_border_color,text_color,max,text,mouse_variable,flags,size,pos
357		356
358	rect_input:	357	rect_input:
359	.left edit_box 35,95,5, cl_white,0,0,0,0,5,rect_input_buffer.left, mouse_dd1,ed_figure_only ;+ed_focus	358	.left edit_box 35,95,5, cl_white,0,0,0,0,5,rect_input_buffer.left, mouse_dd1,ed_figure_only ;+ed_focus
360	.top edit_box 35,95,25,cl_white,0,0,0,0,5,rect_input_buffer.top, mouse_dd1,ed_figure_only	359	.top edit_box 35,95,25,cl_white,0,0,0,0,5,rect_input_buffer.top, mouse_dd1,ed_figure_only
361	.width edit_box 35,95,45,cl_white,0,0,0,0,5,rect_input_buffer.width, mouse_dd1,ed_figure_only	360	.width edit_box 35,95,45,cl_white,0,0,0,0,5,rect_input_buffer.width, mouse_dd1,ed_figure_only
362	.height edit_box 35,95,65,cl_white,0,0,0,0,5,rect_input_buffer.height,mouse_dd1,ed_figure_only	361	.height edit_box 35,95,65,cl_white,0,0,0,0,5,rect_input_buffer.height,mouse_dd1,ed_figure_only
363	rect_input_end:	362	rect_input_end:
364	mouse_dd1 rd 1	363	mouse_dd1 rd 1
365	rect_input_labels:	364	rect_input_labels:
366	.left label 10,10,0,rect_input_labels_text.left	365	.left label 10,10,0,rect_input_labels_text.left
367	.top label 10,30,0,rect_input_labels_text.top	366	.top label 10,30,0,rect_input_labels_text.top
368	.width label 10,50,0,rect_input_labels_text.width	367	.width label 10,50,0,rect_input_labels_text.width
369	.height label 10,70,0,rect_input_labels_text.height	368	.height label 10,70,0,rect_input_labels_text.height
370	rect_input_labels_end:	369	rect_input_labels_end:
371		370
372	rect_input_labels_text:	371	rect_input_labels_text:
373	if lang eq ru	372	if lang eq ru
374	.left db 'âáâã¯ á«¥¢ :',0	373	.left db 'âáâã¯ á«¥¢ :',0
375	.top db 'âáâã¯ á¢¥àåã:',0	374	.top db 'âáâã¯ á¢¥àåã:',0
376	.width db '¨à¨ :',0	375	.width db '¨à¨ :',0
377	.height db 'ëá®â :',0	376	.height db 'ëá®â :',0
378	else	377	else
379	.left db 'Left:',0	378	.left db 'Left:',0
380	.top db 'Top:',0	379	.top db 'Top:',0
381	.width db 'Width:',0	380	.width db 'Width:',0
382	.height db 'Height:',0	381	.height db 'Height:',0
383	end if	382	end if
384		383
385	riw_check_boxes:	384	riw_check_boxes:
386	use_rect_active_window check_box2 (10 shl 16)+10,(85 shl 16) +10,5,cl_white,0,0,\	385	use_rect_active_window check_box2 (10 shl 16)+10,(85 shl 16) +10,5,cl_white,0,0,\
387	riw_check_boxes_text, ch_flag_bottom	386	riw_check_boxes_text, ch_flag_bottom
388	riw_check_boxes_end:	387	riw_check_boxes_end:
389		388
390	if lang eq ru	389	if lang eq ru
391	riw_check_boxes_text db 'á¯®«ì§®¢ âì ®¡« áâì ªâ¨¢®£® ®ª ',0	390	riw_check_boxes_text db 'á¯®«ì§®¢ âì ®¡« áâì ªâ¨¢®£® ®ª ',0
392	riw_grab_text db '®®à¤¨ âë ¨ à §¬¥àë ®¡« áâ¨:',0	391	riw_grab_text db '®®à¤¨ âë ¨ à §¬¥àë ®¡« áâ¨:',0
393	else	392	else
394	riw_check_boxes_text db 'Use area of the active window',0	393	riw_check_boxes_text db 'Use area of the active window',0
395	riw_grab_text db 'Coordinates and size of the field:',0	394	riw_grab_text db 'Coordinates and size of the field:',0
396	end if	395	end if

Subversion Repositories Kolibri OS

(root)/programs/media/scrshoot/srectwin.inc – Rev 8346 → 9568