Rev 310 | Rev 1214 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 310 | Rev 1098 | ||
|---|---|---|---|
| Line 14... | Line 14... | ||
| 14 | wait_event .red,.key,.button,.mouse |
14 | wait_event .red,.key,.button,.mouse |
| Line 15... | Line 15... | ||
| 15 | 15 | ||
| 16 | .key: |
16 | .key: |
| Line -... | Line 17... | ||
| - | 17 | get_key |
|
| - | 18 | ||
| - | 19 | push dword rect_input.left |
|
| - | 20 | call [edit_box_key] |
|
| - | 21 | ||
| - | 22 | push dword rect_input.top |
|
| - | 23 | call [edit_box_key] |
|
| - | 24 | ||
| - | 25 | push dword rect_input.width |
|
| - | 26 | call [edit_box_key] |
|
| - | 27 | ||
| 17 | get_key |
28 | push dword rect_input.height |
| Line 18... | Line 29... | ||
| 18 | 29 | call [edit_box_key] |
|
| 19 | key_edit_boxes rect_input,rect_input_end |
30 | ; key_edit_boxes rect_input,rect_input_end |
| Line 20... | Line 31... | ||
| 20 | 31 | ||
| Line 37... | Line 48... | ||
| 37 | .mouse: |
48 | .mouse: |
| 38 | get_active_window |
49 | get_active_window |
| 39 | cmp eax,[set_rect_window_slot] |
50 | cmp eax,[set_rect_window_slot] |
| 40 | jne .still |
51 | jne .still |
| Line -... | Line 52... | ||
| - | 52 | ||
| - | 53 | push dword rect_input.left |
|
| - | 54 | call [edit_box_mouse] |
|
| - | 55 | ||
| - | 56 | push dword rect_input.top |
|
| - | 57 | call [edit_box_mouse] |
|
| - | 58 | ||
| - | 59 | push dword rect_input.width |
|
| - | 60 | call [edit_box_mouse] |
|
| - | 61 | ||
| - | 62 | push dword rect_input.height |
|
| - | 63 | call [edit_box_mouse] |
|
| - | 64 | ||
| - | 65 | ;;;;;;;;;;;;;;;;;;;;;; |
|
| - | 66 | push dword use_rect_active_window |
|
| - | 67 | call [check_box_mouse] |
|
| 41 | 68 | ||
| 42 | mouse_edit_boxes rect_input,rect_input_end |
69 | ; mouse_edit_boxes rect_input,rect_input_end |
| Line 43... | Line 70... | ||
| 43 | mouse_check_boxes riw_check_boxes,riw_check_boxes_end |
70 | ; mouse_check_boxes riw_check_boxes,riw_check_boxes_end |
| Line 44... | Line 71... | ||
| 44 | 71 | ||
| 45 | jmp .still |
72 | jmp .still |
| Line 52... | Line 79... | ||
| 52 | mov ecx,100*65536+130 |
79 | mov ecx,100*65536+130 |
| 53 | mov edx,[sc.work] |
80 | mov edx,[sc.work] |
| 54 | add edx,0x33000000 |
81 | add edx,0x33000000 |
| 55 | mov edi,riw_grab_text |
82 | mov edi,riw_grab_text |
| 56 | xor esi,esi |
83 | xor esi,esi |
| 57 | int 0x40 |
84 | mcall |
| Line 58... | Line 85... | ||
| 58 | 85 | ||
| Line 59... | Line 86... | ||
| 59 | draw_labels rect_input_labels,rect_input_labels_end |
86 | draw_labels rect_input_labels,rect_input_labels_end |
| - | 87 | ||
| - | 88 | push dword rect_input.left |
|
| - | 89 | call [edit_box_draw] |
|
| - | 90 | ||
| - | 91 | push dword rect_input.top |
|
| - | 92 | call [edit_box_draw] |
|
| - | 93 | ||
| Line -... | Line 94... | ||
| - | 94 | push dword rect_input.width |
|
| - | 95 | call [edit_box_draw] |
|
| - | 96 | ||
| - | 97 | push dword rect_input.height |
|
| - | 98 | call [edit_box_draw] |
|
| - | 99 | ;;;;;;;;;;;;;;;;;;;;;; |
|
| 60 | 100 | push dword use_rect_active_window |
|
| Line 61... | Line 101... | ||
| 61 | draw_edit_boxes rect_input,rect_input_end |
101 | call [check_box_draw] |
| 62 | 102 | ; draw_edit_boxes rect_input,rect_input_end |
|
| Line 63... | Line 103... | ||
| 63 | draw_check_boxes riw_check_boxes,riw_check_boxes_end |
103 | ; draw_check_boxes riw_check_boxes,riw_check_boxes_end |
| Line 131... | Line 171... | ||
| 131 | 171 | ||
| 132 | mov eax,13 |
172 | mov eax,13 |
| 133 | mov ebx,150*65536+80 |
173 | mov ebx,150*65536+80 |
| 134 | mov ecx,5*65536+60 |
174 | mov ecx,5*65536+60 |
| 135 | xor edx,edx |
175 | xor edx,edx |
| Line 136... | Line 176... | ||
| 136 | int 0x40 |
176 | mcall |
| 137 | 177 | ||
| 138 | ;movzx eax,word [rect.left] |
178 | ;movzx eax,word [rect.left] |
| 139 | ;mul word [scr.width] |
179 | ;mul word [scr.width] |
| Line 174... | Line 214... | ||
| 174 | pop bx |
214 | pop bx |
| 175 | pop cx |
215 | pop cx |
| Line 176... | Line 216... | ||
| 176 | 216 | ||
| 177 | mov edx,0xffffff |
217 | mov edx,0xffffff |
| 178 | mov eax,13 |
218 | mov eax,13 |
| 179 | int 0x40 |
219 | mcall |
| Line -... | Line 220... | ||
| - | 220 | ret |
|
| - | 221 | ||
| - | 222 | ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> |
|
| - | 223 | ;DATA ¤ ë¥ |
|
| - | 224 | ;ᥣ¤ ᮡ«î¤ âì ¯®á«¥¤®¢ ⥫ì®áâì ¢ ¨¬¥¨. |
|
| - | 225 | system_path db '/sys/lib/' |
|
| - | 226 | library_name db 'box_lib.obj',0 |
|
| - | 227 | err_message_found_lib db 'Sorry I cannot load library box_lib.obj',0 |
|
| - | 228 | head_f_i: |
|
| - | 229 | head_f_l db 'System error',0 |
|
| - | 230 | err_message_import db 'Error on load import library box_lib.obj',0 |
|
| - | 231 | ||
| - | 232 | myimport: |
|
| - | 233 | ||
| - | 234 | edit_box_draw dd aEdit_box_draw |
|
| - | 235 | edit_box_key dd aEdit_box_key |
|
| - | 236 | edit_box_mouse dd aEdit_box_mouse |
|
| - | 237 | version_ed dd aVersion_ed |
|
| - | 238 | ||
| - | 239 | check_box_draw dd aCheck_box_draw |
|
| - | 240 | check_box_mouse dd aCheck_box_mouse |
|
| - | 241 | version_ch dd aVersion_ch |
|
| - | 242 | ||
| - | 243 | option_box_draw dd aOption_box_draw |
|
| - | 244 | option_box_mouse dd aOption_box_mouse |
|
| - | 245 | version_op dd aVersion_op |
|
| - | 246 | ||
| - | 247 | dd 0 |
|
| - | 248 | dd 0 |
|
| - | 249 | ||
| - | 250 | aEdit_box_draw db 'edit_box',0 |
|
| - | 251 | aEdit_box_key db 'edit_box_key',0 |
|
| - | 252 | aEdit_box_mouse db 'edit_box_mouse',0 |
|
| - | 253 | aVersion_ed db 'version_ed',0 |
|
| - | 254 | ||
| - | 255 | aCheck_box_draw db 'check_box_draw',0 |
|
| - | 256 | aCheck_box_mouse db 'check_box_mouse',0 |
|
| - | 257 | aVersion_ch db 'version_ch',0 |
|
| - | 258 | ||
| - | 259 | aOption_box_draw db 'option_box_draw',0 |
|
| - | 260 | aOption_box_mouse db 'option_box_mouse',0 |
|
| - | 261 | aVersion_op db 'version_op',0 |
|
| - | 262 | ||
| 180 | ret |
263 | |
| 181 | 264 | ||
| 182 | rect_input: |
265 | rect_input: |
| 183 | .left edit_box 35,95,5,cl_white,0,0,0,5,rect_input_buffer.left,\ |
266 | .left edit_box 35,95,5,cl_white,0,0,0,5,rect_input_buffer.left,\ |
| 184 | ed_figure_only+ed_focus |
267 | ed_figure_only+ed_focus |
| Line 202... | Line 285... | ||
| 202 | .top db 'âáâ㯠ᢥàåã:',0 |
285 | .top db 'âáâ㯠ᢥàåã:',0 |
| 203 | .width db '¨à¨ :',0 |
286 | .width db '¨à¨ :',0 |
| 204 | .height db 'ëá®â :',0 |
287 | .height db 'ëá®â :',0 |
| Line 205... | Line 288... | ||
| 205 | 288 | ||
| 206 | riw_check_boxes: |
289 | riw_check_boxes: |
| 207 | use_rect_active_window check_box 10,85,cl_white,0,0,\ |
290 | use_rect_active_window check_box 10,85,5,11,cl_white,0,0,\ |
| 208 | riw_check_boxes_text.1,\ |
291 | riw_check_boxes_text.1,\ |
| 209 | riw_check_boxes_text.2-riw_check_boxes_text.1 |
292 | riw_check_boxes_text.2-riw_check_boxes_text.1 |
| Line 210... | Line 293... | ||
| 210 | riw_check_boxes_end: |
293 | riw_check_boxes_end: |