Subversion Repositories Kolibri OS

Rev

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

Rev 806 Rev 830
Line 28... Line 28...
28
cl_curs_x       equ [edi+56]            ;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® å
28
cl_curs_x       equ [edi+56]            ;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® å
29
cl_curs_y       equ [edi+60]            ;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® ã
29
cl_curs_y       equ [edi+60]            ;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® ã
30
ed_shift_pos    equ [edi+64]            ;¯®«®¦¥­¨¥ ªãàá®à 
30
ed_shift_pos    equ [edi+64]            ;¯®«®¦¥­¨¥ ªãàá®à 
31
ed_shift_pos_old equ [edi+68]           ;áâ à®¥ ¯®«®¦¥­¨¥ ªãàá®à 
31
ed_shift_pos_old equ [edi+68]           ;áâ à®¥ ¯®«®¦¥­¨¥ ªãàá®à 
32
.draw:
32
.draw:
33
        pusha
33
        pushad
34
        mov     eax,9
-
 
35
        push    procinfo
-
 
36
        pop     ebx
-
 
37
        or      ecx,-1
-
 
38
        mcall
-
 
39
;--- à¨á㥬 à ¬ªã ---
34
;--- à¨á㥬 à ¬ªã ---
40
        mov     edi,dword [esp+36]
35
        mov     edi,dword [esp+36]
41
        call    .draw_border            ; ”ã­ªæ¨ï áâ ¡¨«ì­ 
36
        call    .draw_border            ; ”ã­ªæ¨ï áâ ¡¨«ì­ 
42
.draw_bg_cursor_text:
37
.draw_bg_cursor_text:
43
;--- ¨§¬¥­ï¥¬ ᬥ饭¨¥, ¥á«¨ ­ ¤® ---
38
;--- ¨§¬¥­ï¥¬ ᬥ饭¨¥, ¥á«¨ ­ ¤® ---
Line 57... Line 52...
57
;        ret
52
;        ret
58
;;;;;;;;;;;;;;;;;;;;;;;;;;
53
;;;;;;;;;;;;;;;;;;;;;;;;;;
59
;Ž¡é¨© ¢ë室 ¨§ editbox ¤«ï ¢á¥å ä㭪権 ¨ ¯®áâ ®¡à ¡®â稪®¢
54
;Ž¡é¨© ¢ë室 ¨§ editbox ¤«ï ¢á¥å ä㭪権 ¨ ¯®áâ ®¡à ¡®â稪®¢
60
;;;;;;;;;;;;;;;;;;;;;;;;;;
55
;;;;;;;;;;;;;;;;;;;;;;;;;;
61
.editbox_exit:
56
.editbox_exit:
62
        popa
57
        popad
63
        ret 4
58
        ret 4
Line 64... Line 59...
64
 
59
 
65
;==========================================================
60
;==========================================================
66
;=== ®¡à ¡®âª  ª« ¢¨ âãàë =================================
61
;=== ®¡à ¡®âª  ª« ¢¨ âãàë =================================
67
;==========================================================
62
;==========================================================
68
edit_box_key:
63
edit_box_key:
69
pusha
64
pushad
70
        mov     edi,dword [esp+36]
65
        mov     edi,dword [esp+36]
71
        test    word ed_flags,ed_focus ; ¥á«¨ ­¥ ¢ 䮪ãá¥, ¢ë室¨¬
66
        test    word ed_flags,ed_focus ; ¥á«¨ ­¥ ¢ 䮪ãá¥, ¢ë室¨¬
72
        je      edit_box.editbox_exit
67
        je      edit_box.editbox_exit
73
        test    word ed_flags,ed_mouse_on
68
        test    word ed_flags,ed_mouse_on
Line 104... Line 99...
104
;==========================================================
99
;==========================================================
105
;=== ®¡à ¡®âª  ¬ëè¨ =======================================
100
;=== ®¡à ¡®âª  ¬ëè¨ =======================================
106
;==========================================================
101
;==========================================================
107
;save for stdcall ebx,esi,edi,ebp
102
;save for stdcall ebx,esi,edi,ebp
108
edit_box_mouse:
103
edit_box_mouse:
109
        pop     eax     ;opint to back
-
 
110
        pop     edx     ;scr_w
-
 
111
        pop     ecx     ;ebp     ;scr_h
-
 
112
        push    eax
-
 
113
 
-
 
114
;        pop     eax
-
 
115
;        pop     edx     ;scr_w
-
 
116
;        pop     ecx     ;scr_h
-
 
117
;        push    eax     ;pointer to back
-
 
118
pusha
104
pushad
119
        mov     ebp,ecx
-
 
120
 
-
 
121
        mov     edi,dword [esp+36]
105
        mov     edi,dword [esp+36]
122
;debug
106
;debug
123
;----------------------------------------------------------
107
;----------------------------------------------------------
124
;--- ¯®«ãç ¥¬ á®áâ®ï­¨¥ ª­®¯®ª ¬ëè¨ -----------------------
108
;--- ¯®«ãç ¥¬ á®áâ®ï­¨¥ ª­®¯®ª ¬ëè¨ -----------------------
125
;----------------------------------------------------------
109
;----------------------------------------------------------
Line 144... Line 128...
144
        je      @f
128
        je      @f
145
        jmp     edit_box_mouse._blur
129
        jmp     edit_box_mouse._blur
146
;----------------------------------------------------------
130
;----------------------------------------------------------
147
;--- ¯®«ãç ¥¬ ª®®à¤¨­ âë ¬ëè¨ ®â­®á¨â¥«ì­® 0 â.¥ ¢á¥© ®¡« á⨠íªà ­ 
131
;--- ¯®«ãç ¥¬ ª®®à¤¨­ âë ¬ëè¨ ®â­®á¨â¥«ì­® 0 â.¥ ¢á¥© ®¡« á⨠íªà ­ 
148
;----------------------------------------------------------
132
;----------------------------------------------------------
149
@@:     mcall   37,0
133
@@:     mcall   37,1
150
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
134
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
151
;”ã­ªæ¨ï ®¡à ¡®âª¨  ¬ë誨 ¯®«ã祭¨¥ ª®®à¤¨­ â ¨ ¯à®¢¥àª  ¨å + ¢ë¤¥«¥­¨ï
135
;”ã­ªæ¨ï ®¡à ¡®âª¨  ¬ë誨 ¯®«ã祭¨¥ ª®®à¤¨­ â ¨ ¯à®¢¥àª  ¨å + ¢ë¤¥«¥­¨ï
152
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
136
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
153
use_work_mouse
137
use_work_mouse
154
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
138
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 160... Line 144...
160
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
144
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
161
use_key_func
145
use_key_func
162
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
146
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
163
;”㭪樨 ¤«ï à ¡®âë á mouse
147
;”㭪樨 ¤«ï à ¡®âë á mouse
164
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
148
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
165
use_mouse_func ;scr_w
149
use_mouse_func 
166
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
150
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
167
;Bit mask from editbox
151
;Bit mask from editbox
168
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
152
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
169
ed_figure_only= 1000000000000000b   ;®¤­¨ ᨬ¢®«ë
153
ed_figure_only= 1000000000000000b   ;®¤­¨ ᨬ¢®«ë
170
ed_always_focus= 100000000000000b
154
ed_always_focus= 100000000000000b
Line 546... Line 530...
546
;;;;;;;;;;;
530
;;;;;;;;;;;
547
;;Data
531
;;Data
548
;;;;;;;;;;;
532
;;;;;;;;;;;
549
align 16
533
align 16
550
mouse_flag dd 0x0
534
mouse_flag dd 0x0
551
procinfo process_information
-
 
552
535