Subversion Repositories Kolibri OS

Rev

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

Rev 583 Rev 830
Line 5... Line 5...
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:
Line 39... Line 39...
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:
Line 52... Line 52...
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
70
69