Subversion Repositories Kolibri OS

Rev

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

Rev 1685 Rev 2159
Line 78... Line 78...
78
{
78
{
79
        mov     edi,start
79
        mov     edi,start
80
        mov     ecx,((end-start)/ed_struc_size)
80
        mov     ecx,((end-start)/ed_struc_size)
81
        mov     esi,color_table
81
        mov     esi,color_table
82
@@:
82
@@:
83
        mov     eax,dword [esi+36]
83
        mov     eax,dword [esi+36] ;梥⠣à ä¨ª¨ ¢ ®ª­¥ (à §¤¥«¨â¥«ì­ë¥ «¨­¨¨ ¨ â.¯.)
84
        mov     ebx,dword [esi+20]
84
        mov     ebx,dword [esi+20] ;梥â à ¡®ç¥© ®¡« á⨠®ª­ 
85
        push	dword eax
85
        push	dword eax
86
	pop     dword ed_focus_border_color
86
	pop     dword ed_focus_border_color
87
        shr     bh,1
87
        shr     bh,1
88
        shr     bl,1
88
        shr     bl,1
89
        shr     ah,1
89
        shr     ah,1
Line 96... Line 96...
96
        shr     al,1
96
        shr     al,1
97
        add     al,bl
97
        add     al,bl
98
        ror     eax,16
98
        ror     eax,16
99
	mov	dword ed_blur_border_color,eax
99
	mov	dword ed_blur_border_color,eax
100
	mov	dword shift_color,eax
100
	mov	dword shift_color,eax
-
 
101
	push 	dword [esi+32] ;梥â ⥪áâ  ¢ à ¡®ç¥© ®¡« á⨠®ª­ 
-
 
102
	pop 	dword ed_text_color
101
        add     edi,ed_struc_size
103
        add     edi,ed_struc_size
102
        loop    @b
104
        loop    @b
103
}
105
}
104
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
106
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
105
;Basic macros for use CheckBox                            ;
107
;Basic macros for use CheckBox                            ;
Line 255... Line 257...
255
.text: dd text                 ; ¤à¥á ¢ ª®¤¥ ¯à®£à ¬¬ë £¤¥ à á¯®«®¦¥­ ⥪áâ
257
.text: dd text                 ; ¤à¥á ¢ ª®¤¥ ¯à®£à ¬¬ë £¤¥ à á¯®«®¦¥­ ⥪áâ
256
.ch_text_length: dd op_text_length ;¤«¨­­  áâப¨ á ᨬ¢®« ¬¨
258
.ch_text_length: dd op_text_length ;¤«¨­­  áâப¨ á ᨬ¢®« ¬¨
257
.flags: dd flags+0   ; ä« £¨
259
.flags: dd flags+0   ; ä« £¨
258
}
260
}
Line -... Line 261...
-
 
261
 
259
 
262
;op_struc_size equ
260
option_group equ [edi]
263
option_group equ [edi]
261
op_left equ [edi+4]    ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® å
264
op_left equ [edi+4]    ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® å
262
op_top equ [edi+6]     ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® ã
265
op_top equ [edi+6]     ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® ã
263
op_text_margin equ [edi+8]      ;=4 à ááâ®ï­¨¥ ®â ¯àאַ㣮«ì­¨ª  祪 ¡®ªá  ¤® ­ ¤¯¨á¨ 
266
op_text_margin equ [edi+8]      ;=4 à ááâ®ï­¨¥ ®â ¯àאַ㣮«ì­¨ª  祪 ¡®ªá  ¤® ­ ¤¯¨á¨ 
264
op_size equ [edi+12]             ;12 à §¬¥à ª¢ ¤à â  祪 ¡®ªá  
267
op_size equ [edi+12]             ;12 à §¬¥à ª¢ ¤à â  祪 ¡®ªá  
265
op_color equ [edi+16]
268
op_color equ [edi+16]
266
op_border_color equ [edi+20] ; or [edi+4] ;梥â à ¬ª¨ checkbox ¥¥ ¬®¦­® § ¤ âì á ¬®áâ®ï⥫쭮
269
op_border_color equ [edi+20] ; or [edi+4] ;梥â à ¬ª¨ optionbox ¥¥ ¬®¦­® § ¤ âì á ¬®áâ®ï⥫쭮
267
op_text_color equ   [edi+24];[edi+4]  ;梥â ⥪áâ 
270
op_text_color equ   [edi+24];[edi+4]  ;梥â ⥪áâ 
268
op_text_ptr equ [edi+28]    ;㪠§ â¥«ì ­  ­ ç «® ⥪á⮢®© áâப¨ 
271
op_text_ptr equ [edi+28]    ;㪠§ â¥«ì ­  ­ ç «® ⥪á⮢®© áâப¨ 
269
op_text_length equ [edi+32]
272
op_text_length equ [edi+32]
Line -... Line 273...
-
 
273
op_flags equ [edi+36]       ;ä« £¨
-
 
274
 
-
 
275
macro option_boxes_set_sys_color color_table,group
-
 
276
{
-
 
277
	mov	ecx,group
-
 
278
        mov	esi,color_table
-
 
279
        mov	edi,[ecx]
-
 
280
        mov	eax,[esi+24] ;梥⠪­®¯ª¨ ¢ à ¡®ç¥© ®¡« á⨠®ª­ 
-
 
281
        mov	ebx,[esi+28] ;梥â ⥪áâ  ­  ª­®¯ª¥
-
 
282
@@:
-
 
283
	mov	op_border_color,eax
-
 
284
	mov	op_color,ebx
-
 
285
	push	dword [esi+32] ;梥â ⥪áâ  ¢ à ¡®ç¥© ®¡« á⨠®ª­ 
-
 
286
	pop	dword op_text_color
-
 
287
        add     ecx,4
-
 
288
        mov     edi,[ecx]
-
 
289
	cmp	edi,0
270
op_flags equ [edi+36]       ;ä« £¨
290
        jne	@b
271
 
291
}
272
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
292
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 273... Line 293...
273
;Basic macros for use TreeList                            ;
293
;Basic macros for use TreeList                            ;