Subversion Repositories Kolibri OS

Rev

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

Rev 491 Rev 583
Line 2... Line 2...
2 
;Ž¯â¨¬¨§¨à®¢ ­­ë© ª®¬¯®­¥­â EditBox (ˆá室­ë© ¢ à¨ ­â ®â Maxxxx32)
 2 
;Ž¯â¨¬¨§¨à®¢ ­­ë© ª®¬¯®­¥­â EditBox (ˆá室­ë© ¢ à¨ ­â ®â Maxxxx32)
3 
;Ž¯â¨¬¨§ æ¨ï ª®¬ ­¤.
 3 
;Ž¯â¨¬¨§ æ¨ï ª®¬ ­¤.
4 
;  - ’¥¯«®¢ €«¥ªá¥©  www.lrz.land.ru
 4 
;  - ’¥¯«®¢ €«¥ªá¥©  www.lrz.land.ru
5 
;§ £®«®¢®ª ¯à¨«®¦¥­¨ï
 5 
;§ £®«®¢®ª ¯à¨«®¦¥­¨ï
6 
        include '..\..\..\..\macros.inc'
 6 
        include '..\..\..\..\macros.inc'
7 
;        include 'macros.inc'
 - 
 
8 
        include 'editbox.inc'
 7 
        include 'editbox.inc'
9 
meos_app_start
 8 
meos_app_start
10 
align 4
 9 
align 4
11 
        use_edit_box procinfo,22,5
 10 
        use_edit_box procinfo,22,5
12 
;Ž¡« áâì ª®¤ 
 11 
;Ž¡« áâì ª®¤ 
13 
code
 - 
 
14 
;start:                          ;’®çª  ¢å®¤  ¢ ¯à®£à ¬¬ã
 12 
code                            ;’®çª  ¢å®¤  ¢ ¯à®£à ¬¬ã
15 
        mcall   40,0x27         ;ãáâ ­®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
 13 
        mcall   40,0x27         ;ãáâ ­®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
16 
 ;á¨á⥬  ¡ã¤¥â ॠ£¨à®¢ âì ⮫쪮 ­  á®®¡é¥­¨¥ ® ¯¥à¥à¨á®¢ª¥,­ ¦ â  ª­®¯ª , ®¯à¥¤¥«ñ­­ ï à ­¥¥, ᮡë⨥ ®â ¬ëè¨ (çâ®-â® á«ã稫®áì - ­ ¦ â¨¥ ­  ª­®¯ªã ¬ëè¨ ¨«¨ ¯¥à¥¬¥é¥­¨¥; á¡à á뢠¥âáï ¯à¨ ¯à®ç⥭¨¨) ¨ ­ ¦ â¨¥ ª« ¢¨è¨
 14 
;á¨á⥬  ¡ã¤¥â ॠ£¨à®¢ âì ⮫쪮 ­  á®®¡é¥­¨¥ ® ¯¥à¥à¨á®¢ª¥,­ ¦ â  ª­®¯ª , ®¯à¥¤¥«ñ­­ ï à ­¥¥, ᮡë⨥ ®â ¬ëè¨ (çâ®-â® á«ã稫®áì - ­ ¦ â¨¥ ­  ª­®¯ªã ¬ëè¨ ¨«¨ ¯¥à¥¬¥é¥­¨¥; á¡à á뢠¥âáï ¯à¨ ¯à®ç⥭¨¨) ¨ ­ ¦ â¨¥ ª« ¢¨è¨
17 
red_win:
 15 
red_win:
18 
    call draw_window            ;¯¥à¢®­ ç «ì­® ­¥®¡å®¤¨¬® ­ à¨á®¢ âì ®ª­®
 16 
    call draw_window            ;¯¥à¢®­ ç «ì­® ­¥®¡å®¤¨¬® ­ à¨á®¢ âì ®ª­®
19 
align 4
 17 
align 4
20 
still:                          ;®á­®¢­®© ®¡à ¡®â稪
18 
still:                          ;®á­®¢­®© ®¡à ¡®â稪
21 
        mcall   10              ;Ž¦¨¤ âì ᮡëâ¨ï
 19 
        mcall   10              ;Ž¦¨¤ âì ᮡëâ¨ï
22 
        cmp al,0x1    ;¥á«¨ ¨§¬¥­¨«®áì ¯®«®¦¥­¨¥ ®ª­ 
 20 
        dec  eax
23 
        jz red_win
 21 
        jz   red_win
24 
        cmp al,0x2    ;¥á«¨ ­ ¦ â  ª« ¢¨è  â® ¯¥à¥©â¨
 22 
        dec  eax
25 
        jz key
 23 
        jz   key
26 
        cmp al,0x3    ;¥á«¨ ­ ¦ â  ª­®¯ª  â® ¯¥à¥©â¨
 24 
        dec  eax
27 
        jz button
 25 
        jz   button
28 
        mouse_edit_boxes editboxes,editboxes_end
 26 
        mouse_edit_boxes editboxes,editboxes_end
29 
        jmp still    ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
 27 
        jmp still    ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
30 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 28 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
31 
button:
 29 
button:
Line 54... Line 52...
54 
edit3 edit_box 35,5,50,0xffffff,0x6a9480,0,0,0,9,ed_buffer.3,ed_figure_only
 52 
edit3 edit_box 35,5,50,0xffffff,0x6a9480,0,0,0,9,ed_buffer.3,ed_figure_only
55 
edit4 edit_box 16,5,70,0xffffff,0x6a9480,0,0,0,1,ed_buffer.4,ed_figure_only
 53 
edit4 edit_box 16,5,70,0xffffff,0x6a9480,0,0,0,1,ed_buffer.4,ed_figure_only
56 
editboxes_end:
 54 
editboxes_end:
57 
data_of_code dd 0
 55 
data_of_code dd 0
58 
mouse_flag dd 0x0
 56 
mouse_flag dd 0x0
59 
hed db   'EDITBOX optimization and retype  date 14.05.2007',0
 57 
hed db   'EDITBOX optimization and retype  date 20.07.2007',0
60 
rb  256
 58 
rb  256
61 
ed_buffer:
 59 
ed_buffer:
62 
;.1: rb 514;256
 60 
;.1: rb 514;256
63 
.2: rb 101
 61 
.2: rb 101
64 
.3: rb 11
 62 
.3: rb 11