Subversion Repositories Kolibri OS

Rev

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

Rev 833 Rev 1069
Line 4... Line 4...
4 
;            ¢ëà ¢­¨¢ ­¨¥ á­¨§ã ®â­®á¨â¥«ì­® à ¡®ç¥© ®¡« á⨠íªà ­ 
 4 
;            ¢ëà ¢­¨¢ ­¨¥ á­¨§ã ®â­®á¨â¥«ì­® à ¡®ç¥© ®¡« á⨠íªà ­ 
5 
window_y=67
 5 
window_y=67
6 
;window_x=320
 6 
;window_x=320
7 
window_x=640
 7 
window_x=640
8 
;--- ¤à㣨¥ ¬ ªà®áë ---
 8 
;--- ¤à㣨¥ ¬ ªà®áë ---
9 
include '../../../develop/examples/editbox/trunk/editbox.inc'
 9 
;include '../../../develop/examples/editbox/trunk/editbox.inc'
- 
 
 10 
include '../../../develop/libraries/box_lib/trunk/load_lib.mac'
- 
 
 11 
include '../../../develop/libraries/box_lib/trunk/editbox_ex.mac'
10 
;include 'editbox.inc'
 12 
;include 'editbox.inc'
11 
include 'txtbut.inc'
 13 
include 'txtbut.inc'
12 
include '../../../macros.inc'
 14 
include '../../../macros.inc'
13 
;include 'macros.inc'
 15 
;include 'macros.inc'
14 
include 'run.mac'
 16 
include 'run.mac'
15 
include 'lang.inc'
 17 
include 'lang.inc'
- 
 
 18 
use32
- 
 
 19 
    org 0x0
- 
 
 20 
    db 'MENUET01'
- 
 
 21 
    dd 0x1
- 
 
 22 
    dd start
- 
 
 23 
    dd i_end
- 
 
 24 
    dd mem
- 
 
 25 
    dd mem
- 
 
 26 
    dd par
- 
 
 27 
    dd cur_dir_path
- 
 
 28 
 
- 
 
 29 
 
16 
        meos_app_start
 30 
;        meos_app_start
17 
        use_edit_box
 31 
;        use_edit_box
- 
 
 32 
	@use_library
18 
        use_txt_button
 33 
        use_txt_button
19 
        code
 34 
;        code
- 
 
 35 
;load system lib
- 
 
 36 
align 4
- 
 
 37 
start:
- 
 
 38 
sys_load_library  library_name, cur_dir_path, library_path, system_path, \
- 
 
 39 
err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
- 
 
 40 
        cmp     eax,-1
- 
 
 41 
        jz      close
- 
 
 42 
 
20 
        cmp     [par],byte 0
 43 
        cmp     [par],byte 0
21 
        jne     read_par
 44 
        jne     read_par
22 
        mcall   40,EVM_MOUSE+EVM_BUTTON+EVM_KEY+EVM_REDRAW
 45 
        mcall   40,EVM_MOUSE+EVM_BUTTON+EVM_KEY+EVM_REDRAW
23 
red:
 46 
red:
24 
        mcall   48,3,sc,40
 47 
        mcall   48,3,sc,40
Line 32... Line 55...
32 
        jz   red
 55 
        jz   red
33 
        dec  eax
 56 
        dec  eax
34 
        jz   key
 57 
        jz   key
35 
        dec  eax
 58 
        dec  eax
36 
        jz   button
 59 
        jz   button
37 
        mouse_edit_box input_fn
60 
;        mouse_edit_box input_fn
- 
 
 61 
        push    dword input_fn
- 
 
 62 
        call    [edit_box_mouse]
- 
 
 63 
 
38 
        jmp still    ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
 64 
        jmp still    ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
39 
key:
 65 
key:
40 
        mcall   2
 66 
        mcall   2
41 
        cmp     ah,13
 67 
        cmp     ah,13
42 
        je      run
 68 
        je      run
43 
        key_edit_box input_fn
 69 
;        key_edit_box input_fn
- 
 
 70 
        push    dword input_fn
- 
 
 71 
        call    [edit_box_key]
- 
 
 72 
 
44 
        jmp     still
 73 
        jmp     still
45 
button:
 74 
button:
46 
        mcall   17
 75 
        mcall   17
47 
        dec     ah
 76 
        dec     ah
48 
        jz      close
 77 
        jz      close
Line 176... Line 205...
176 
        push    cx
 205 
        push    cx
177 
        shl     ecx,16
 206 
        shl     ecx,16
178 
        pop     cx
 207 
        pop     cx
179 
        mov     edx,[sc.work_graph]
 208 
        mov     edx,[sc.work_graph]
180 
        mcall   38
 209 
        mcall   38
181 
        draw_edit_box input_fn
 210 
;        draw_edit_box input_fn
- 
 
 211 
        push    dword input_fn
- 
 
 212 
        call    [edit_box_draw]
- 
 
 213 
 
182 
        draw_txt_button run_but
 214 
        draw_txt_button run_but
Line 183... Line 215...
183 
 
 215 
 
Line 184... Line 216...
184 
        call    draw_status_text
 216 
        call    draw_status_text
Line 205... Line 237...
205 
        mcall   4,5*65536+(50)
 237 
        mcall   4,5*65536+(50)
206 
ret
 238 
ret
Line 207... Line 239...
207 
 
 239 
 
208 
run_but txt_button 0,5,15,25,2,0,0,run_but_text,
 240 
run_but txt_button 0,5,15,25,2,0,0,run_but_text,
209 
input_fn edit_box 0,5,5,0xffffff,0x6a9480,0,0xaaaaaa,0,511,fn,ed_focus+ed_always_focus
 241 
input_fn edit_box 0,5,5,0xffffff,0x6a9480,0,0xaaaaaa,0,511,fn,ed_focus+ed_always_focus
Line 210... Line 242...
210 
mouse_flag: dd 0x0
 242 
;mouse_flag: dd 0x0
211 
 
 243 
 
212 
if lang eq ru
 244 
if lang eq ru
213 
hello db '‚¢¥¤¨â¥ ¯®«­ë© ¯ãâì ª ä ©«ã ¨ ­ ¦¬¨â¥ Enter',0
 245 
hello db '‚¢¥¤¨â¥ ¯®«­ë© ¯ãâì ª ä ©«ã ¨ ­ ¦¬¨â¥ Enter',0
Line 236... Line 268...
236 
grab_text db 'RUN',0
 268 
grab_text db 'RUN',0
237 
run_but_text db 'RUN',0
 269 
run_but_text db 'RUN',0
238 
end if
 270 
end if
239 
status dd hello
 271 
status dd hello
Line -... Line 272...
- 
 
 272 
 
- 
 
 273 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
- 
 
 274 
;DATA ¤ ­­ë¥
- 
 
 275 
;‚ᥣ¤  ᮡ«î¤ âì ¯®á«¥¤®¢ â¥«ì­®áâì ¢ ¨¬¥­¨.
- 
 
 276 
system_path      db '/sys/lib/'
- 
 
 277 
library_name     db 'box_lib.obj',0
- 
 
 278 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- 
 
 279 
 
- 
 
 280 
err_message_found_lib   db 'Sorry I cannot load library box_lib.obj',0
- 
 
 281 
head_f_i:
- 
 
 282 
head_f_l        db 'System error',0
- 
 
 283 
err_message_import      db 'Error on load import library box_lib.obj',0
- 
 
 284 
 
- 
 
 285 
myimport:
- 
 
 286 
 
- 
 
 287 
edit_box_draw   dd      aEdit_box_draw
- 
 
 288 
edit_box_key    dd      aEdit_box_key
- 
 
 289 
edit_box_mouse  dd      aEdit_box_mouse
- 
 
 290 
version_ed      dd      aVersion_ed
- 
 
 291 
 
- 
 
 292 
                dd      0
- 
 
 293 
                dd      0
- 
 
 294 
 
- 
 
 295 
aEdit_box_draw  db 'edit_box',0
- 
 
 296 
aEdit_box_key   db 'edit_box_key',0
- 
 
 297 
aEdit_box_mouse db 'edit_box_mouse',0
- 
 
 298 
aVersion_ed     db 'version_ed',0
- 
 
 299 
 
- 
 
 300 
 
- 
 
 301 
 
240 
 
 302 
 
241 
file_info:
 303 
file_info:
242 
.mode dd 7
 304 
.mode dd 7
243 
.flags dd 0
 305 
.flags dd 0
244 
.par dd run_par
 306 
.par dd run_par
Line 252... Line 314...
252 
procinfo process_information
 314 
procinfo process_information
Line 253... Line 315...
253 
 
 315 
 
254 
run_par rb 256
 316 
run_par rb 256
255 
par rb 256
 317 
par rb 256
- 
 
 318 
fn rb 512
- 
 
 319 
 
- 
 
 320 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- 
 
 321 
cur_dir_path    rb 4096
- 
 
 322 
library_path    rb 4096
- 
 
 323 
i_end:
- 
 
 324 
rb 1024
256 
fn rb 512
 325 
mem:
257 
meos_app_end
 326 
;meos_app_end