Subversion Repositories Kolibri OS

Rev

Rev 583 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 583 Rev 830
1 
; á¯à®áâà ­ï¥âáï ¯® «¨æ¥­§¨¨ GPL  SEE YOU File FAQ.txt and HISTORY. Good Like!
1 
; á¯à®áâà ­ï¥âáï ¯® «¨æ¥­§¨¨ GPL  SEE YOU File FAQ.txt and HISTORY. Good Like!
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 'editbox.inc'
 7 
        include 'editbox.inc'
8 
meos_app_start
 8 
meos_app_start
9 
align 4
 9 
align 4
10 
        use_edit_box procinfo,22,5
 10 
        use_edit_box
11 
;Ž¡« áâì ª®¤ 
 11 
;Ž¡« áâì ª®¤ 
12 
code                            ;’®çª  ¢å®¤  ¢ ¯à®£à ¬¬ã
 12 
code                            ;’®çª  ¢å®¤  ¢ ¯à®£à ¬¬ã
13 
        mcall   40,0x27         ;ãáâ ­®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
 13 
        mcall   40,0x27         ;ãáâ ­®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
14 
;á¨á⥬  ¡ã¤¥â ॠ£¨à®¢ âì ⮫쪮 ­  á®®¡é¥­¨¥ ® ¯¥à¥à¨á®¢ª¥,­ ¦ â  ª­®¯ª , ®¯à¥¤¥«ñ­­ ï à ­¥¥, ᮡë⨥ ®â ¬ëè¨ (çâ®-â® á«ã稫®áì - ­ ¦ â¨¥ ­  ª­®¯ªã ¬ëè¨ ¨«¨ ¯¥à¥¬¥é¥­¨¥; á¡à á뢠¥âáï ¯à¨ ¯à®ç⥭¨¨) ¨ ­ ¦ â¨¥ ª« ¢¨è¨
 14 
;á¨á⥬  ¡ã¤¥â ॠ£¨à®¢ âì ⮫쪮 ­  á®®¡é¥­¨¥ ® ¯¥à¥à¨á®¢ª¥,­ ¦ â  ª­®¯ª , ®¯à¥¤¥«ñ­­ ï à ­¥¥, ᮡë⨥ ®â ¬ëè¨ (çâ®-â® á«ã稫®áì - ­ ¦ â¨¥ ­  ª­®¯ªã ¬ëè¨ ¨«¨ ¯¥à¥¬¥é¥­¨¥; á¡à á뢠¥âáï ¯à¨ ¯à®ç⥭¨¨) ¨ ­ ¦ â¨¥ ª« ¢¨è¨
15 
red_win:
 15 
red_win:
16 
    call draw_window            ;¯¥à¢®­ ç «ì­® ­¥®¡å®¤¨¬® ­ à¨á®¢ âì ®ª­®
 16 
    call draw_window            ;¯¥à¢®­ ç «ì­® ­¥®¡å®¤¨¬® ­ à¨á®¢ âì ®ª­®
17 
align 4
 17 
align 4
18 
still:                          ;®á­®¢­®© ®¡à ¡®â稪
18 
still:                          ;®á­®¢­®© ®¡à ¡®â稪
19 
        mcall   10              ;Ž¦¨¤ âì ᮡëâ¨ï
 19 
        mcall   10              ;Ž¦¨¤ âì ᮡëâ¨ï
20 
        dec  eax
 20 
        dec  eax
21 
        jz   red_win
 21 
        jz   red_win
22 
        dec  eax
 22 
        dec  eax
23 
        jz   key
 23 
        jz   key
24 
        dec  eax
 24 
        dec  eax
25 
        jz   button
 25 
        jz   button
26 
        mouse_edit_boxes editboxes,editboxes_end
 26 
        mouse_edit_boxes editboxes,editboxes_end
27 
        jmp still    ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
 27 
        jmp still    ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
28 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 28 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
29 
button:
 29 
button:
30 
        mcall   17      ;¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª« ¢¨è¨
 30 
        mcall   17      ;¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª« ¢¨è¨
31 
        test ah,ah              ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ­  ®¡à ¡®â稪 ᮡë⨩ still
 31 
        test ah,ah              ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ­  ®¡à ¡®â稪 ᮡë⨩ still
32 
        jz  still
 32 
        jz  still
33 
        mcall   -1
 33 
        mcall   -1
34 
key:
 34 
key:
35 
        mcall   2       ;§ £à㧨¬ §­ ç¥­¨¥ 2 ¢ ॣ¨áâ®à eax ¨ ¯®«ã稬 ª®¤ ­ ¦ â®© ª« ¢¨è¨
 35 
        mcall   2       ;§ £à㧨¬ §­ ç¥­¨¥ 2 ¢ ॣ¨áâ®à eax ¨ ¯®«ã稬 ª®¤ ­ ¦ â®© ª« ¢¨è¨
36 
        key_edit_boxes editboxes,editboxes_end
36 
        key_edit_boxes editboxes,editboxes_end
37 
    jmp still
 37 
    jmp still
38 
 
 38 
 
39 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 39 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
40 
align 4
 40 
align 4
41 
draw_window:            ;à¨á®¢ ­¨¥ ®ª­  ¯à¨«®¦¥­¨ï
 41 
draw_window:            ;à¨á®¢ ­¨¥ ®ª­  ¯à¨«®¦¥­¨ï
42 
        mcall   12,1
 42 
        mcall   12,1
43 
        mcall   0,(50*65536+390),(30*65536+200),0xb3AABBCC,0x805080DD,hed
 43 
        mcall   0,(50*65536+390),(30*65536+200),0xb3AABBCC,0x805080DD,hed
44 
        draw_edit_boxes editboxes,editboxes_end,use_f9,procinfo  ;à¨á®¢ ­¨¥ edit box'®¢
 44 
        draw_edit_boxes editboxes,editboxes_end  ;à¨á®¢ ­¨¥ edit box'®¢
45 
        mcall   12,2
 45 
        mcall   12,2
46 
    ret
 46 
    ret
47 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 47 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
48 
;DATA ¤ ­­ë¥
48 
;DATA ¤ ­­ë¥
49 
editboxes:
 49 
editboxes:
50 
edit1 edit_box 168,5,10,0xffffff,0x6a9480,0,0,0,99,ed_buffer.2,ed_figure_only
 50 
edit1 edit_box 168,5,10,0xffffff,0x6a9480,0,0,0,99,ed_buffer.2,ed_figure_only
51 
edit2 edit_box 250,5,30,0xffffff,0x6a9480,0,0xAABBCC,0,308,hed,ed_focus,53,53
 51 
edit2 edit_box 250,5,30,0xffffff,0x6a9480,0,0xAABBCC,0,308,hed,ed_focus,53,53
52 
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
53 
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
54 
editboxes_end:
 54 
editboxes_end:
55 
data_of_code dd 0
 55 
data_of_code dd 0
56 
mouse_flag dd 0x0
 56 
mouse_flag dd 0x0
57 
hed db   'EDITBOX optimization and retype  date 20.07.2007',0
 57 
hed db   'EDITBOX optimization and retype  date 23.07.2008',0
58 
rb  256
 58 
rb  256
59 
ed_buffer:
 59 
ed_buffer:
60 
;.1: rb 514;256
 60 
;.1: rb 514;256
61 
.2: rb 101
 61 
.2: rb 101
62 
.3: rb 11
 62 
.3: rb 11
63 
.4: rb 3
 63 
.4: rb 3
64 
;¤¢  § ¯ á­ëå ¡ ©â  ­¥®¡å®¤¨¬ë ¤«ï ⮣® çâ® ¡ë ­¥ ¯¥¯¥à¥¯¨á âì á«¥¤ãî騥© ¡ ©âë, ¢ ª®­æ¥ ¡ãä¥à  0
 64 
;¤¢  § ¯ á­ëå ¡ ©â  ­¥®¡å®¤¨¬ë ¤«ï ⮣® çâ® ¡ë ­¥ ¯¥¯¥à¥¯¨á âì á«¥¤ãî騥© ¡ ©âë, ¢ ª®­æ¥ ¡ãä¥à  0
65 
buffer_end:
 65 
buffer_end:
66 
align 16
 66 
align 16
67 
procinfo process_information
 - 
 
68 
meos_app_end
67 
meos_app_end
69 
udata
 68 
udata