Subversion Repositories Kolibri OS

Rev

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

Rev 461 Rev 468
Line 1... Line -...
1 
;  30.03.2007 ¯à®¨§¢¥¤¥­  ®¯â¨¬¨§ æ¨ï à ¡®âë ª®­¯®ª DEL ¨ Backspace? 㬥­ì襭 à §¬¥à ¢ë¯®«­ï¥¬®£® ª®¤ .
 - 
 
2 
;ä䥪⨢­®¥ ¯à®£à ¬¬¨à®¢ ­¨¥ ¢ KOLIBRI
 1 
; á¯à®áâà ­ï¥âáï ¯® «¨æ¥­§¨¨ GPL  SEE YOU File FAQ.txt and HISTORY. Good Like!
3 
;Ž¯â¨¬¨§¨à®¢ ­­ë© ª®¬¯®­¥­â EditBox (ˆá室­ë© ¢ à¨ ­â ®â Maxxxx32)
 2 
;Ž¯â¨¬¨§¨à®¢ ­­ë© ª®¬¯®­¥­â EditBox (ˆá室­ë© ¢ à¨ ­â ®â Maxxxx32)
4 
;Ž¯â¨¬¨§ æ¨ï ª®¬ ­¤.
 3 
;Ž¯â¨¬¨§ æ¨ï ª®¬ ­¤.
5 
;  - ’¥¯«®¢ €«¥ªá¥©  www.lrz.land.ru
 4 
;  - ’¥¯«®¢ €«¥ªá¥©  www.lrz.land.ru
6 
;§ £®«®¢®ª ¯à¨«®¦¥­¨ï
 5 
;§ £®«®¢®ª ¯à¨«®¦¥­¨ï
7 
use32           ; âà ­á«ïâ®à, ¨á¯®«ì§ãî騩 32 à §à來ëå ª®¬ ­¤ë
 6 
use32           ; âà ­á«ïâ®à, ¨á¯®«ì§ãî騩 32 à §à來ëå ª®¬ ­¤ë
Line 14... Line 13...
14 
    dd i_end and not 3  ; Ž¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪  ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢­¨¬ ­  £à­¨æã 4 ¡ ©â 
 13 
    dd i_end and not 3  ; Ž¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪  ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢­¨¬ ­  £à­¨æã 4 ¡ ©â 
15 
    dd i_end and not 3  ; à á¯®«®¦¨¬ ¯®§¨æ¨î á⥪  ¢ ®¡« á⨠¯ ¬ïâ¨, áࠧ㠧  ⥫®¬ ¯à®£à ¬¬ë. ‚¥à設  á⥪  ¢ ¤¨ ¯ §®­¥ ¯ ¬ïâ¨, 㪠§ ­­®¬ ¢ëè¥
 14 
    dd i_end and not 3  ; à á¯®«®¦¨¬ ¯®§¨æ¨î á⥪  ¢ ®¡« á⨠¯ ¬ïâ¨, áࠧ㠧  ⥫®¬ ¯à®£à ¬¬ë. ‚¥à設  á⥪  ¢ ¤¨ ¯ §®­¥ ¯ ¬ïâ¨, 㪠§ ­­®¬ ¢ëè¥
16 
    dd 0x0,0x0          ; 㪠§ â¥«ì ­  áâபã á ¯ à ¬¥âà ¬¨.
 15 
    dd 0x0,0x0          ; 㪠§ â¥«ì ­  áâபã á ¯ à ¬¥âà ¬¨.
17 
        include 'macros.inc'
 16 
        include 'macros.inc'
18 
        include 'editbox.inc'
 17 
        include 'editbox.inc'
19 
        use_edit_box
 18 
        use_edit_box structure_of_potock,22,5
20 
;Ž¡« áâì ª®¤ 
 19 
;Ž¡« áâì ª®¤ 
21 
start:                          ;’®çª  ¢å®¤  ¢ ¯à®£à ¬¬ã
 20 
start:                          ;’®çª  ¢å®¤  ¢ ¯à®£à ¬¬ã
22 
        mcall   40,0x27         ;ãáâ ­®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
 21 
        mcall   40,0x27         ;ãáâ ­®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
23 
 ;á¨á⥬  ¡ã¤¥â ॠ£¨à®¢ âì ⮫쪮 ­  á®®¡é¥­¨¥ ® ¯¥à¥à¨á®¢ª¥,­ ¦ â  ª­®¯ª , ®¯à¥¤¥«ñ­­ ï à ­¥¥, ᮡë⨥ ®â ¬ëè¨ (çâ®-â® á«ã稫®áì - ­ ¦ â¨¥ ­  ª­®¯ªã ¬ëè¨ ¨«¨ ¯¥à¥¬¥é¥­¨¥; á¡à á뢠¥âáï ¯à¨ ¯à®ç⥭¨¨) ¨ ­ ¦ â¨¥ ª« ¢¨è¨
 22 
 ;á¨á⥬  ¡ã¤¥â ॠ£¨à®¢ âì ⮫쪮 ­  á®®¡é¥­¨¥ ® ¯¥à¥à¨á®¢ª¥,­ ¦ â  ª­®¯ª , ®¯à¥¤¥«ñ­­ ï à ­¥¥, ᮡë⨥ ®â ¬ëè¨ (çâ®-â® á«ã稫®áì - ­ ¦ â¨¥ ­  ª­®¯ªã ¬ëè¨ ¨«¨ ¯¥à¥¬¥é¥­¨¥; á¡à á뢠¥âáï ¯à¨ ¯à®ç⥭¨¨) ¨ ­ ¦ â¨¥ ª« ¢¨è¨
24 
red_win:
 23 
red_win:
25 
    call draw_window            ;¯¥à¢®­ ç «ì­® ­¥®¡å®¤¨¬® ­ à¨á®¢ âì ®ª­®
 24 
    call draw_window            ;¯¥à¢®­ ç «ì­® ­¥®¡å®¤¨¬® ­ à¨á®¢ âì ®ª­®
26 
still:                          ;®á­®¢­®© ®¡à ¡®â稪
25 
still:                          ;®á­®¢­®© ®¡à ¡®â稪
27 
        mcall   10              ;Ž¦¨¤ âì ᮡëâ¨ï ¢ â¥ç¥­¨¥ 2 ¬¨««¨á¥ªã­¤
 26 
        mcall   10              ;Ž¦¨¤ âì ᮡëâ¨ï
28
- 
 
29 
        cmp al,0x1    ;¥á«¨ ¨§¬¥­¨«®áì ¯®«®¦¥­¨¥ ®ª­ 
 27 
        cmp al,0x1    ;¥á«¨ ¨§¬¥­¨«®áì ¯®«®¦¥­¨¥ ®ª­ 
30 
        jz red_win
 28 
        jz red_win
31 
        cmp al,0x2    ;¥á«¨ ­ ¦ â  ª« ¢¨è  â® ¯¥à¥©â¨
 29 
        cmp al,0x2    ;¥á«¨ ­ ¦ â  ª« ¢¨è  â® ¯¥à¥©â¨
32 
        jz key
 30 
        jz key
33 
        cmp al,0x3    ;¥á«¨ ­ ¦ â  ª­®¯ª  â® ¯¥à¥©â¨
 31 
        cmp al,0x3    ;¥á«¨ ­ ¦ â  ª­®¯ª  â® ¯¥à¥©â¨
Line 48... Line 46...
48 
 
 46 
 
49 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 47 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
50 
draw_window:            ;à¨á®¢ ­¨¥ ®ª­  ¯à¨«®¦¥­¨ï
 48 
draw_window:            ;à¨á®¢ ­¨¥ ®ª­  ¯à¨«®¦¥­¨ï
51 
        mcall   12,1
 49 
        mcall   12,1
52 
        mcall   0,(50*65536+390),(30*65536+200),0xb3AABBCC,0x805080DD,hed
 50 
        mcall   0,(50*65536+390),(30*65536+200),0xb3AABBCC,0x805080DD,hed
53 
        draw_edit_boxes editboxes,editboxes_end  ;à¨á®¢ ­¨¥ edit box'®¢
 51 
        draw_edit_boxes editboxes,editboxes_end,use_f9,structure_of_potock  ;à¨á®¢ ­¨¥ edit box'®¢
54 
        mcall   12,2
 52 
        mcall   12,2
55 
    ret
 53 
    ret
56 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 54 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
57 
;DATA ¤ ­­ë¥
55 
;DATA ¤ ­­ë¥
Line 61... Line 59...
61 
edit3 edit_box 35,5,50,0xffffff,0x6a9480,0,0,0,9,ed_buffer.3,ed_figure_only
 59 
edit3 edit_box 35,5,50,0xffffff,0x6a9480,0,0,0,9,ed_buffer.3,ed_figure_only
62 
edit4 edit_box 16,5,70,0xffffff,0x6a9480,0,0,0,1,ed_buffer.4,ed_figure_only
 60 
edit4 edit_box 16,5,70,0xffffff,0x6a9480,0,0,0,1,ed_buffer.4,ed_figure_only
63 
editboxes_end:
 61 
editboxes_end:
64 
data_of_code dd 0
 62 
data_of_code dd 0
65 
mouse_flag dd 0x0
 63 
mouse_flag dd 0x0
66 
hed db   'EDITBOX optimization and retype  date 13.04.2007',0
 64 
hed db   'EDITBOX optimization and retype  date 19.04.2007',0
67 
rb  256
 65 
rb  256
68 
ed_buffer:
 66 
ed_buffer:
69 
;.1: rb 514;256
 67 
;.1: rb 514;256
70 
.2: rb 101
 68 
.2: rb 101
71 
.3: rb 11
 69 
.3: rb 11