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

Subversion Repositories Kolibri OS

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