Subversion Repositories Kolibri OS

Rev

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

Rev 1228 Rev 1372
Line -... Line 1...
- 
 
 1 
ed_struc_size=76
- 
 
 2 
 
1 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 3 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 
;Basic macros for use editbox                             ;
 4 
;Basic macros for use editbox                             ;
3 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 5 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4 
ed_width        equ [edi]               ;è¨à¨­  ª®¬¯®­¥­â 
 6 
ed_width        equ [edi]               ;è¨à¨­  ª®¬¯®­¥­â 
5 
ed_left         equ [edi+4]             ;¯®«®¦¥­¨¥ ¯® ®á¨ å
 7 
ed_left         equ [edi+4]             ;¯®«®¦¥­¨¥ ¯® ®á¨ å
Line 21... Line 23...
21 
cl_curs_x       equ [edi+60]            ;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® å
 23 
cl_curs_x       equ [edi+60]            ;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® å
22 
cl_curs_y       equ [edi+64]            ;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® ã
 24 
cl_curs_y       equ [edi+64]            ;¯à¥¤ë¤ã饥 ª®®à¤¨­ â  ªãàá®à  ¯® ã
23 
ed_shift_pos    equ [edi+68]            ;¯®«®¦¥­¨¥ ªãàá®à 
 25 
ed_shift_pos    equ [edi+68]            ;¯®«®¦¥­¨¥ ªãàá®à 
24 
ed_shift_pos_old equ [edi+72]           ;áâ à®¥ ¯®«®¦¥­¨¥ ªãàá®à 
 26 
ed_shift_pos_old equ [edi+72]           ;áâ à®¥ ¯®«®¦¥­¨¥ ªãàá®à 
Line -... Line 27...
- 
 
 27 
 
- 
 
 28 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- 
 
 29 
;Bit mask from editbox
25 
 
 30 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
26 
ed_figure_only= 1000000000000000b   ;®¤­¨ ᨬ¢®«ë
 31 
ed_figure_only= 1000000000000000b   ;®¤­¨ ᨬ¢®«ë
27 
ed_always_focus= 100000000000000b
 32 
ed_always_focus= 100000000000000b
28 
ed_focus=                     10b   ;䮪ãá ¯à¨«®¦¥­¨ï
 33 
ed_focus=                     10b   ;䮪ãá ¯à¨«®¦¥­¨ï
29 
ed_shift_on=                1000b   ;¥á«¨ ­¥ ãáâ ­®¢«¥­ -§­ ç¨â ¢¯¥à¢ë¥ ­ ¦ â shift,¥á«¨ ¡ë« ãáâ ­®¢«¥­, §­ ç¨â ¬ë 㦥 çâ® - â® ¤¥« «¨ 㤥ন¢ ï shift
 34 
ed_shift_on=                1000b   ;¥á«¨ ­¥ ãáâ ­®¢«¥­ -§­ ç¨â ¢¯¥à¢ë¥ ­ ¦ â shift,¥á«¨ ¡ë« ãáâ ­®¢«¥­, §­ ç¨â ¬ë 㦥 çâ® - â® ¤¥« «¨ 㤥ন¢ ï shift
Line 43... Line 48...
43 
ed_mouse_on =          100000000b
 48 
ed_mouse_on =          100000000b
44 
ed_mous_adn_b=         100011000b
 49 
ed_mous_adn_b=         100011000b
45 
ed_mouse_on_off=1111111011111111b
 50 
ed_mouse_on_off=1111111011111111b
46 
ed_height=14 ; ¢ëá®â 
 51 
ed_height=14 ; ¢ëá®â 
Line -... Line 52...
- 
 
 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
47 
 
 101 
        loop    @b
Line 48... Line 102...
48 
 
 102 
}
49 
 
 103 
 
50 
macro init_editbox
 104 
macro init_editbox
51 
{
 105 
{