Subversion Repositories Kolibri OS

Rev

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

Rev 1372 Rev 1432
Line 1... Line -...
1
ed_struc_size=76
-
 
2
 
-
 
3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4
;Basic macros for use editbox                             ;
2
;Basic macros for use editbox                             ;
5
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6
ed_width        equ [edi]               ;è¨à¨­  ª®¬¯®­¥­â 
4
ed_width        equ [edi]               ;è¨à¨­  ª®¬¯®­¥­â 
7
ed_left         equ [edi+4]             ;¯®«®¦¥­¨¥ ¯® ®á¨ å
5
ed_left         equ [edi+4]             ;¯®«®¦¥­¨¥ ¯® ®á¨ å
Line 23... Line 21...
23
cl_curs_x       equ [edi+60]            ;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® å
21
cl_curs_x       equ [edi+60]            ;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® å
24
cl_curs_y       equ [edi+64]            ;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® ã
22
cl_curs_y       equ [edi+64]            ;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® ã
25
ed_shift_pos    equ [edi+68]            ;¯®«®¦¥­¨¥ ªãàá®à 
23
ed_shift_pos    equ [edi+68]            ;¯®«®¦¥­¨¥ ªãàá®à 
26
ed_shift_pos_old equ [edi+72]           ;áâ à®¥ ¯®«®¦¥­¨¥ ªãàá®à 
24
ed_shift_pos_old equ [edi+72]           ;áâ à®¥ ¯®«®¦¥­¨¥ ªãàá®à 
Line 27... Line -...
27
 
-
 
28
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
 
29
;Bit mask from editbox 
-
 
30
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
 
31
ed_figure_only= 1000000000000000b   ;®¤­¨ ᨬ¢®«ë
-
 
32
ed_always_focus= 100000000000000b
-
 
33
ed_focus=                     10b   ;䮪ãá ¯à¨«®¦¥­¨ï
-
 
34
ed_shift_on=                1000b   ;¥á«¨ ­¥ ãáâ ­®¢«¥­ -§­ ç¨â ¢¯¥à¢ë¥ ­ ¦ â shift,¥á«¨ ¡ë« ãáâ ­®¢«¥­, §­ ç¨â ¬ë 㦥 çâ® - â® ¤¥« «¨ 㤥ন¢ ï shift
-
 
35
ed_shift_on_off=1111111111110111b
-
 
36
ed_shift=                    100b   ;¢ª«îç ¥âáï ¯à¨ ­ ¦ â¨¨ ­  shift â.¥. ¥á«¨ ­ ¦¨¬ î
-
 
37
ed_shift_off=   1111111111111011b
-
 
38
ed_shift_bac=              10000b   ;¡¨â ¤«ï ®ç¨á⪨ ¢ë¤¥«¥­®£® shift â.¥. ¯à¨ ãáâ ­®¢ª¥ £®¢®à¨â çâ® ¥áâì ¢ë¤¥«¥­¨¥
-
 
39
ed_shift_bac_cl=1111111111101111b   ;®ç¨á⪠ ¯à¨ 㤠«¥­¨¨ ¢ë¤¥«¥­¨ï
-
 
40
ed_shift_cl=    1111111111100011b
-
 
41
ed_shift_mcl=   1111111111111011b
-
 
42
ed_left_fl=               100000b
-
 
43
ed_right_fl=    1111111111011111b
-
 
44
ed_offset_fl=            1000000b
-
 
45
ed_offset_cl=   1111111110111111b
-
 
46
ed_insert=              10000000b
-
 
47
ed_insert_cl=   1111111101111111b
-
 
48
ed_mouse_on =          100000000b
-
 
49
ed_mous_adn_b=         100011000b
-
 
50
ed_mouse_on_off=1111111011111111b
-
 
51
ed_height=14 ; ¢ëá®â 
-
 
52
 
-
 
53
struc  edit_box width,left,top,color,shift_color,focus_border_color,\
-
 
54
       blur_border_color,text_color,max,text,mouse_variable,flags,size,pos
-
 
55
{
-
 
56
.width dd width
-
 
57
.left  dd left
-
 
58
.top   dd top
-
 
59
.color dd color
-
 
60
.shift_color dd shift_color
-
 
61
.focus_border_color dd focus_border_color
-
 
62
.blur_border_color  dd blur_border_color
-
 
63
.text_color dd text_color
-
 
64
.max  dd max
-
 
65
.text dd text
-
 
66
.mouse_variable dd mouse_variable
-
 
67
.flags  dd flags+0
-
 
68
.size   dd size+0
-
 
69
.pos    dd pos+0
-
 
70
.offset dd 0
-
 
71
.cl_curs_x dd 0
-
 
72
.cl_curs_y dd 0
-
 
73
.shift     dd 0
-
 
74
.shift_old dd 0
-
 
75
}
-
 
76
macro edit_boxes_set_sys_color start,end,color_table
-
 
77
{
-
 
78
        mov     edi,start
-
 
79
        mov     ecx,((end-start)/ed_struc_size)
-
 
80
        mov     esi,color_table
-
 
81
@@:
-
 
82
        mov     eax,dword [esi+36]
-
 
83
        mov     ebx,dword [esi+20]
-
 
84
        push	dword eax
-
 
85
	pop     dword ed_focus_border_color
-
 
86
        shr     bh,1
-
 
87
        shr     bl,1
-
 
88
        shr     ah,1
-
 
89
        shr     al,1
-
 
90
        add     ah,bh
-
 
91
        add     al,bl
-
 
92
        ror     eax,16
-
 
93
        ror     ebx,16
-
 
94
        shr     bl,1
-
 
95
        shr     al,1
-
 
96
        add     al,bl
-
 
97
        ror     eax,16
-
 
98
	mov	dword ed_blur_border_color,eax
-
 
99
	mov	dword shift_color,eax
-
 
100
        add     edi,ed_struc_size
-
 
101
        loop    @b
-
 
102
}
-
 
103
 
25
 
104
macro init_editbox
26
macro init_editbox
105
{
27
{
106
pushad
28
pushad