Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 1097 → Rev 1098

/programs/media/scrshoot/srectwin.inc
16,8 → 16,19
.key:
get_key
 
key_edit_boxes rect_input,rect_input_end
push dword rect_input.left
call [edit_box_key]
 
push dword rect_input.top
call [edit_box_key]
 
push dword rect_input.width
call [edit_box_key]
 
push dword rect_input.height
call [edit_box_key]
; key_edit_boxes rect_input,rect_input_end
 
call read_rect
call draw_rect_on_screen
 
39,9 → 50,25
cmp eax,[set_rect_window_slot]
jne .still
 
mouse_edit_boxes rect_input,rect_input_end
mouse_check_boxes riw_check_boxes,riw_check_boxes_end
push dword rect_input.left
call [edit_box_mouse]
 
push dword rect_input.top
call [edit_box_mouse]
 
push dword rect_input.width
call [edit_box_mouse]
 
push dword rect_input.height
call [edit_box_mouse]
 
;;;;;;;;;;;;;;;;;;;;;;
push dword use_rect_active_window
call [check_box_mouse]
 
; mouse_edit_boxes rect_input,rect_input_end
; mouse_check_boxes riw_check_boxes,riw_check_boxes_end
 
jmp .still
 
.draw_window:
54,14 → 81,27
add edx,0x33000000
mov edi,riw_grab_text
xor esi,esi
int 0x40
mcall
 
draw_labels rect_input_labels,rect_input_labels_end
 
draw_edit_boxes rect_input,rect_input_end
push dword rect_input.left
call [edit_box_draw]
 
draw_check_boxes riw_check_boxes,riw_check_boxes_end
push dword rect_input.top
call [edit_box_draw]
 
push dword rect_input.width
call [edit_box_draw]
 
push dword rect_input.height
call [edit_box_draw]
;;;;;;;;;;;;;;;;;;;;;;
push dword use_rect_active_window
call [check_box_draw]
; draw_edit_boxes rect_input,rect_input_end
; draw_check_boxes riw_check_boxes,riw_check_boxes_end
 
call read_rect
call draw_rect_on_screen
 
133,7 → 173,7
mov ebx,150*65536+80
mov ecx,5*65536+60
xor edx,edx
int 0x40
mcall
 
;movzx eax,word [rect.left]
;mul word [scr.width]
176,9 → 216,52
 
mov edx,0xffffff
mov eax,13
int 0x40
mcall
ret
 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;DATA ¤ ­­ë¥
;‚ᥣ¤  ᮡ«î¤ âì ¯®á«¥¤®¢ â¥«ì­®áâì ¢ ¨¬¥­¨.
system_path db '/sys/lib/'
library_name db 'box_lib.obj',0
err_message_found_lib db 'Sorry I cannot load library box_lib.obj',0
head_f_i:
head_f_l db 'System error',0
err_message_import db 'Error on load import library box_lib.obj',0
 
myimport:
 
edit_box_draw dd aEdit_box_draw
edit_box_key dd aEdit_box_key
edit_box_mouse dd aEdit_box_mouse
version_ed dd aVersion_ed
 
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
 
dd 0
dd 0
 
aEdit_box_draw db 'edit_box',0
aEdit_box_key db 'edit_box_key',0
aEdit_box_mouse db 'edit_box_mouse',0
aVersion_ed db 'version_ed',0
 
aCheck_box_draw db 'check_box_draw',0
aCheck_box_mouse db 'check_box_mouse',0
aVersion_ch db 'version_ch',0
 
aOption_box_draw db 'option_box_draw',0
aOption_box_mouse db 'option_box_mouse',0
aVersion_op db 'version_op',0
 
 
 
rect_input:
.left edit_box 35,95,5,cl_white,0,0,0,5,rect_input_buffer.left,\
ed_figure_only+ed_focus
204,7 → 287,7
.height db '‚ëá®â :',0
 
riw_check_boxes:
use_rect_active_window check_box 10,85,cl_white,0,0,\
use_rect_active_window check_box 10,85,5,11,cl_white,0,0,\
riw_check_boxes_text.1,\
riw_check_boxes_text.2-riw_check_boxes_text.1
riw_check_boxes_end: