forked from KolibriOS/kolibrios
207 lines
9.7 KiB
PHP
207 lines
9.7 KiB
PHP
;<EFBFBD>ä䥪⨢®¥ ¯à®£à ¬¬¨à®¢ ¨¥ ¢ KOLIBRI
|
||
;Ž¯â¨¬¨§¨à®¢ ë© ª®¬¯®¥â CheckBox (ˆáå®¤ë© ¢ ਠ⠮â Maxxxx32)
|
||
;Ž¯â¨¬¨§¨à®¢ ¢ë¢®¤ áâப¨ ¤¯¨á¨ ¤«ï CheckBox'a + ⥯¥àì, ¯à¨ ¯à®¢¥àª¥ ¥ ¯à®¨á室¨â ¯®¤áç¥â ª®«-¢ ᨬ¢®«®¢ ¢ áâப¥
|
||
;Ž¯â¨¬¨§ æ¨ï ª®¬ ¤ - ®âª § «áï ®â á®åà ¥¨ï ॣ¨áâ஢ ¢ á⥪¥.
|
||
;17.07.2006 ¯à®¨§¢¥¤¥ ®¯â¨¬¨§ æ¨ï, ¯à¨ ãáâ ®¢ª¥ 祪 ¡®ªá ¢ ¯®«®¦¥¨¥ ¢ª«î祮 ¯®á«¥¤ãî騥 祪 ¡®ªáë ¢ â®â ¦¥ ¯à®¬¥¦ã⮪ ¢à¥¬¥¨ ¥ ¯à®¢¥àïîâáï
|
||
;22.08.2006 ¯à®¨§¢¥¤¥ ®¯â¨¬¨§ æ¨ï ª®¬ ¤, ¯à¨ïâë ¢® ¢¨¬ ¨¥ § ¬¥ç ¨ï DIAMOND' .
|
||
;<Lrz> - ’¥¯«®¢ €«¥ªá¥© www.test-kolibri.narod.ru
|
||
|
||
macro use_check_box
|
||
{
|
||
ch_text_margin=4 ;à ááâ®ï¨¥ ®â ¯àאַ㣮«ì¨ª 祪 ¡®ªá ¤® ¤¯¨á¨
|
||
ch_size=10 ;à §¬¥à ª¢ ¤à â 祪 ¡®ªá
|
||
ch_left equ [edi] ;ª®®à¤¨ â ç « à¨á®¢ ¨ï ¯® å
|
||
ch_top equ [edi+2] ;ª®®à¤¨ â ç « à¨á®¢ ¨ï ¯® ã
|
||
ch_color equ [edi+4] ;梥⠢ãâਠcheckbox
|
||
ch_border_color equ [edi+8] ;梥â à ¬ª¨ checkbox
|
||
ch_text_color equ [edi+12] ;梥â ⥪áâ
|
||
ch_text_ptr equ [edi+16] ;㪠§ ⥫ì ç «® ⥪á⮢®© áâப¨
|
||
ch_text_length equ [edi+20] ;¤«¨ ¤¯¨á¨ (2^64 â ª®© ¤«¨ë ¬®¦¥â ¡ëâì ⥪áâ)
|
||
ch_flags equ [edi+22] ;ä« £¨
|
||
check_box:
|
||
.draw:
|
||
pusha ;á®åà ¨¬ ¢á¥ ॣ¨áâàë
|
||
mov eax,38 ;à¨á®¢ ¨¥ «¨¨¨
|
||
movzx ebx,word ch_left ;¯®«®¦¥¨¥ ¯® å
|
||
mov ecx,ebx ;á®åà ¨¬ ¢ ॣ¨áâॠcx § 票¥ bx 1 ¬¨ªà®®¯¥à æ¨ï
|
||
;push bx ;3 - ¬¨ªà®®¯¥à 樨 ¨á¯®«ì§ãï á⥪ ¬®¦® ¢ë¨£à âì ¢ à §¬¥à¥, ¨á¯®«ì§ãï ॣ¨áâàë - ¢ ᪮à®áâ¨
|
||
shl ebx,16 ;ᤢ¨¥¬ 16 à §à冷¢ ¢ «¥¢® (㬮¦¨¬ 65536)
|
||
;pop bx ;2 - ¬¨ªà®®¯¥à 樨 ¤ ë© ¬®¬¥â áä®à¬¨à®¢ [ª®®à¤¨ â ç « ¯® ®á¨ x]*65536 + [ª®®à¤¨ â ç « ¯® ®á¨ x]
|
||
mov bx,cx ;¢®ááâ ®¢¨¬ § 票¥ bx
|
||
movzx ecx,word ch_top ;§ £à㧨¬ ¢ cx § 票¥ y
|
||
mov esi,ecx ;á®åà ¨¬ § 票¥ ॣ¨áâà cx ¢ ॣ¨áâà 㪠§ ⥫ì si
|
||
;push cx
|
||
shl ecx,16 ; ᤢ¨¥¬ 16 à §à冷¢ ¢ «¥¢® (㬮¦¨¬ 65536) mov cx,si ;¢®ááâ ®¢¨¬ § 票¥ ॣ¨áâà cx
|
||
mov cx,si ;¢®ááâ ®¢¨¬ § 票¥ ॣ¨áâà cx
|
||
;pop cx ;[ª®®à¤¨ â ç « ¯® ®á¨ y]*65536 + [ª®®à¤¨ â ç « ¯® ®á¨ y]
|
||
;push cx
|
||
add ecx,ch_size ;[ª®®à¤¨ â ç « ¯® ®á¨ y]*65536 + [ª®®à¤¨ â ª®æ ¯® ®á¨ y]
|
||
mov edx,ch_border_color ;–¢¥â «¨¨¨
|
||
int 0x40 ;à¨á®¢ ¨¥ ¢¥à⨪ «ì®© «¥¢®© «¨¨¨ ª¢ ¤à â (¯àאַ㣮«ì¨ª )
|
||
;
|
||
mov ebp,ebx ;á®åà ¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
|
||
;push bx ;¢â®«ªãâì ¢ bx [ª®®à¤¨ â ç « ¯® ®á¨ å]*65536 + [ª®®à¤¨ â ç « ¯® ®á¨ x]
|
||
add ebx,ch_size ;[ª®®à¤¨ â ç « + ¤«¨ áâ®à®ë ¯® ®á¨ å]
|
||
ror ebx,16 ;[ª®®à¤¨ â ç « + ¤¨ áâ®à®ë ¯® ®á¨ å]*65536
|
||
add ebx,ch_size ;[ª®®à¤¨ â ç « +¤«¨ áâ®à®ë ¯® ®á¨ å]*65536 + [ª®®à¤¨ â ç « +¤«¨ áâ®à®ë ¯® ®á¨ x]
|
||
int 0x40
|
||
|
||
mov bx,bp ;¢®ááâ ®¢¨¬ § 票¥ ॣ¨áâà bx
|
||
;pop bx
|
||
mov cx,si ;á®åà ¨¬ § 票¥ ॣ¨áâà cx ¢ ॣ¨áâà 㪠§ ⥫ì
|
||
;pop cx
|
||
int 0x40
|
||
add ecx,ch_size ;¤®¡ ¢¨¬ à §¬¥à áâ®à®ë
|
||
mov esi,ecx ;á®åà ¨¬ § 票¥ ॣ¨áâà cx ¢ ॣ¨áâà 㪠§ ⥫ì si
|
||
;push cx
|
||
shl ecx,16
|
||
mov cx,si
|
||
;pop cx
|
||
int 0x40 ; à¨á®¢ «¨ ¯àאַ㣮«ì¨ª
|
||
|
||
mov eax,13 ;§ ªà 訢 ¥¬ ¥£®. ”ãªæ¨ï 13 - à¨á®¢ âì ¯®«®áã
|
||
movzx ebx,word ch_left ;§ £à㧨âì ¢ bx, ¯®«®¦¥¨¥ ¯® å
|
||
add ebx,1 ;ᤢ¨¥¬ 1 â.¥. ¯à¨¡ ¢¨¬ 1 ¨ ç¥ § âà¥âáï à ¬ª
|
||
shl ebx,16 ;ᤢ¨¥¬ 16 à §à冷¢ ¢ «¥¢® (㬮¦¨¬ 65536)
|
||
mov bx,ch_size ;¯à¨¡ ¢¨¬ ¤«¨ã áâ®à®ë ¯àאַ㣮«ì¨ª
|
||
sub ebx,1 ;¢ëç⥬ 1 â.ª. ¨ ç¥ § âà¥âáï à ¬ª
|
||
mov bp,bx ;á®åà ¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
|
||
;push bx
|
||
movzx ecx,word ch_top ;§ £à㧨¬ ª®®à¤¨ âë ¯® y
|
||
add ecx,1 ;ᤢ¨¥¬ 1 â.¥. ¯à¨¡ ¢¨¬ 1 ¨ ç¥ § âà¥âáï à ¬ª
|
||
shl ecx,16 ;ᤢ¨¥¬ 16 à §à冷¢ ¢ «¥¢® (㬮¦¨¬ 65536)
|
||
mov cx,bp ;¢®ááâ ®¢¨¬ § 票¥ ॣ¨áâà cx
|
||
;pop cx
|
||
mov edx,ch_color ;§ £à㧨¬ 梥⠯®«®áë
|
||
int 0x40 ;§ ªà ᨫ¨
|
||
|
||
test dword ch_flags,2 ;¤®áâ âì § 票¥ ¡¨â ¨§ ¯¥à¥¬¥®© ¨ ¯®¬¥áâ¨âì ¢ ä« £ CF
|
||
|
||
jz @f ;¢ ¥á«¨ CF=1, â® ¢ë¯®«¨¬ á«¥¤ãîéãî ¯à®æ¥¤ãàã ¨ ç¥ ¯¥à¥©â¨ ¨¦îî @@
|
||
call .draw_ch ; à¨á®¢ âì ¢ª«îç¥ë© 祪 ¡®ªá
|
||
@@:
|
||
;----------------------------
|
||
;à áç¥â ªã¤ ¡ã¤¥â ¯à®¨§¢¥¤¥ ¢ë¢®¤ ⥪áâ
|
||
;----------------------------
|
||
movzx ebx,word ch_left ;§ £à㧨âì § 票¥ å ¤«ï 祪 ¡®ªá
|
||
add ebx,(ch_size+ch_text_margin) ;¤®¡ ¢¨âì à §¬¥à áâ®à®ë ¨ à ááâ®ï¨¥ ª®â®à®¬ ç¥âáï ¢ë¢®¤ ⥪áâ
|
||
shl ebx,16 ;ᤢ¨¥¬ 16 à §à冷¢ ¢ «¥¢® (㬮¦¨¬ 65536)
|
||
mov bx,ch_top ;§ £à㧨¬ § 票¥ ¯® y
|
||
add ebx,(ch_size-9+2) ;¤®¡ ¢¨¬ § 票¥ ¤«¨ë áâ®à®ë -9+2
|
||
mov ecx,ch_text_color ;§ £à㧨¬ 梥⠤¯¨á¨
|
||
|
||
mov edx,ch_text_ptr ;㪠¦¥¬ ¤à¥á ®â ªã¤ 㦮 ¢ë¢®¤¨âì áâபã
|
||
movzx esi,word ch_text_length ;‡ £à㧨¬ ¤«¨ã ¤¯¨á¨ ¢ esi
|
||
;¢¥á¥¬ ¢ eax § 票¥ ¢ë¢®¤ ¤¯¨á¨ ª ¢ã
|
||
mov eax,4
|
||
int 0x40 ;‚뢮¤
|
||
popa ;¢®ááâ ®¢¨âì § 票ï ॣ¨áâ஢ ¨§ á⥪
|
||
ret ;¢ë©¤¥¬ ¨§ ¯à®æ¥¤ãàë
|
||
|
||
.clear_ch: ;®ç¨á⪠祪 ¡®ªá
|
||
mov edx,ch_color ;梥⠢ãâਠ祪 ¡®ªá
|
||
jmp @f ;¡¥§ãá«®¢ë© ¯à릮ª ¨¦îî ¬¥âªã @@
|
||
|
||
.draw_ch: ; à¨á®¢ âì ¢ª«îç¥ë© 祪 ¡®ªá
|
||
mov edx,ch_border_color ;§ £à㧨âì 梥â
|
||
@@:
|
||
movzx ebx,word ch_left ;§ £à㧨âì ª®®à¤¨ âã ¯® å
|
||
add ebx,(ch_size/3) ;¤®¡ ¢¨âì (áâ®à® ¯àאַ㣮«ì¨ª /3)
|
||
shl ebx,16 ;ᤢ¨¥¬ 16 à §à冷¢ ¢ «¥¢® (㬮¦¨¬ 65536)
|
||
mov bx,(ch_size/2) ;§ £à㧨âì (áâ®à® ¯àאַ㣮«ì¨ª /2)
|
||
mov bp,bx ;á®åà ¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
|
||
;push bx
|
||
movzx ecx,word ch_top ;§ £à㧨âì ª®®à¤¨ âã ¯® ã
|
||
mov eax,13 ;¢ eax - § 票ï äãªæ¨¨ ¤«ï ¢ë¢®¤ ¯®«®áë â.¥. ¯® áã⨠¯àאַ㣮«ì¨ª , ª®â®àë© ®â®¡à ¦ ¥â ¢ª«îç¥ë© ª®¬¯®¥â 祪 ¡®ªá
|
||
add ecx,(ch_size/3) ;¤®¡ ¢¨âì (áâ®à® ¯àאַ㣮«ì¨ª /3)
|
||
shl ecx,16 ;ᤢ¨¥¬ 16 à §à冷¢ ¢ «¥¢® (㬮¦¨¬ 65536)
|
||
mov cx,bp ;§ £à㧨¬ § 票ï ॣ¨áâà 㪠§ â¥«ï ¡ §ë ¢ cx
|
||
;pop cx
|
||
|
||
int 0x40 ;¢ë¢®¤
|
||
ret ;¢ë©â¨ ¨§ ¯à®æ¥¤ãàë
|
||
|
||
.mouse: ;®¡à ¡®âª ¬ëè¨
|
||
pusha
|
||
mov eax,37 ;¡ã¤¥¬ çâ® â® ¤¥« âì ¥á«¨ ã á çâ® - ¨âì ¦ â®
|
||
mov ebx,2 ;¢¥á⨠¢ ॣ¨áâà § 票¥ 2
|
||
int 0x40 ;¯à®¢¥àª ¥ ¦ « «¨ ¯®«ì§®¢ â¥«ì ª®¯ªã ¬ë誨
|
||
test eax,eax ;¯à®¢¥àª ¥á«¨ ã á ¢ eax=0, â® ãáâ ®¢¨¬ ä« £ ¨ ¢ë©¤¥¬
|
||
jnz @f ;¯¥à¥©â¨ ¨¦îî ¬¥âªã @@
|
||
btr dword ch_flags,2 ;¨§¢«¥ç¥¨¥ § ç¥¨ï § ¤ ®£® ¡¨â ¢ ä« £ cf ¨ ¨§¬¥¥¨¥ ¥£® § 票ï ã«¥¢®¥.
|
||
popa ;¥á«¨ ¨ç¥£® ¥ ¯à®¨§®è«®, â® ¢®ááâ ®¢¨¬ § 票ï ॣ¨áâ஢ ¨§ á⥪
|
||
ret ;¢ë室
|
||
@@:
|
||
bts dword ch_flags,2 ;¯à®¢¥àª ä« £ â.¥. ¯¥à¥®á ¢ cf § 票¥ ¡¨â ¨ ãáâ ®¢ª ¡¨â ¢ á®áâ®ï¨¥ ¢ª«î祮
|
||
jc .mouse_end ;¥á«¨ CF=1 â® ¯¥à¥©â¨ ¢ ª®¥æ â.¥. íâ® ¢ë室
|
||
movzx esi,word ch_text_length ;§ £à㧨âì ª®«-¢® ᨬ¢®«®¢ ¢ ⥪á⮢®© áâப¥
|
||
;“¬®¦¥¨¥ 6 <EFBFBD>ëáâ஥ 㬮¦¥¨¥ ¬®¦® ¢®á¯®«ì§®¢ âìáï «î¡ë¬ ¬§ ¬¥â®¤®¢, ® áâ àëå <EFBFBD>à®æ¥áá®à å (386,486,P1)¡ëáâ॥ ¡ã¤¥â á ¨áâàãªæ¨¥© Lea
|
||
;lea esi,[eax*2+eax]
|
||
;shl eax,1
|
||
imul esi,6 ; ¨«¨ ¬®¦® ¨ â ª 㬮¦¨âì 6
|
||
add esi,ch_text_margin ;¤®¡ ¢¨âì 3 - à ááâ®ï¨¥ ®â 祪 ¡®ªá ¤® ¤¯¨á¨
|
||
|
||
mov eax,37 ;¯®«ã稬 ª®®à¤¨ âë ¬ë誨
|
||
mov ebx,1 ;¤®¡ ¢¨âì 1
|
||
int 0x40 ;¯®«ãç¨âì ª®®à¤¨ âë ªãàá®à ®â®á¨â¥«ì® ®ª
|
||
|
||
movzx ebx,word ch_top ;§ £à㧨âì ¢ bx § 票¥ ª®®à¤¨ âë ã
|
||
cmp ax,bx ;áà ¢¨âì á á ª®®à¤¨ ⮩ ªãàá®à
|
||
jl .mouse_end ;SF <> OF ¥á«¨ ¬¥ìè¥
|
||
add ebx,ch_size ;¤®¡ ¢¨âì à §¬¥à
|
||
cmp ax,bx ;áà ¢¨âì
|
||
jg .mouse_end ;ZF = 0 ¨ SF = OF ¥á«¨ ¡®«ìè¥
|
||
|
||
shr eax,16 ;à §¤¥«¨¬ 65536 ¨«¨ ¯à®á⮠ᤢ¨¥¬ ¡¨âë 16 § 票©
|
||
movzx ebx,word ch_left ;¯à®¨§¢¥¤¥¬ «®£¨ç®¥ áà ¢¥¨¥
|
||
cmp ax,bx ;áà ¢¨âì ॣ¨áâàë
|
||
jl .mouse_end ;¥á«¨ ¬¥ìè¥
|
||
add ebx,ch_size ;¤®¡ ¢¨âì ¤«¨ã áâ®à®ë ¯àאַ㣮«ì¨ª
|
||
add ebx,esi ;“ç¥áâì ¢ § 票¨ ¯® å ¥é¥ ¨ ¤«¨ã ¤¯¨á¨ ª 祪¡®ªáã
|
||
cmp ax,bx ;áâà ¢¨âì ॣ¨áâàë
|
||
jg .mouse_end ;¥á«¨ ¡®«ìè¥
|
||
|
||
bts dword ch_flags,1 ;¨§¢«¥ç¥¨¥ § ç¥¨ï § ¤ ®£® ¡¨â ¢ ä« £ cf ¨ ¨§¬¥¥¨¥ ¥£® § 票ï 1.
|
||
jc @f ;CF=1 â® ¯¥à¥©â¨ ¨¦îî @@
|
||
|
||
call .draw_ch ;®â®¡à §¨âì ¢ª«îç¥ë© 祪 ¡®ªá
|
||
mov dword [esp+24],1 ;¤ «ì¥©è ï ¯à®¢¥àª 祪 ¡®ªá®¢ ¡¥á¬ëá«¥ , ¯® í⮬㠢 á⥪, £¤¥ à ᯮ« £ ¥âáï ecx ¯®¬¥áâ¨â¬ 0
|
||
jmp .mouse_end ;¢ë©â¨
|
||
@@:
|
||
btr dword ch_flags,1 ;¨§¢«¥ç¥¨¥ § ç¥¨ï § ¤ ®£® ¡¨â ¢ ä« £ cf ¨ ¨§¬¥¥¨¥ ¥£® § 票ï ã«¥¢®¥.
|
||
call .clear_ch ;¢ëª«îç¨âì 祪 ¡®ªá â.¥. ¬¥á⥠§ ªà 襮£® ¯àאַ㣮«ì¨ª ®â®¡à §¨âì 梥â ä® .
|
||
.mouse_end:
|
||
popa ;¢®ááâ ®¢¨âì ॣ¨áâàë ¨§ á⥪
|
||
ret ;¢ë©â¨
|
||
}
|
||
|
||
struc check_box left,top,color,border_color,text_color,text,text_length,flags
|
||
{ ;áâàãªâãà ¯ à ¬¥â஢ ¤«ï 祪 ¡®ªá
|
||
.left: dw left ;+0 ;¯®«®¦¥¨¥ ¯® å
|
||
.top: dw top ;+2 ;¯®«®¦¥¨¥ ¯® ã
|
||
.color: dd color ;+4 ;梥⠢ãâਠ祪 ¡®ªá
|
||
.border_color: dd border_color ;+8 梥â à ¬ª¨
|
||
.text_color: dd text_color ;+12 梥â ⥪áâ ¤¯¨á¨
|
||
.text: dd text ;+16 ¤à¥á ¢ ª®¤¥ ¯à®£à ¬¬ë £¤¥ à ᯮ«®¦¥ ⥪áâà
|
||
.text_length: dw text_length ; +20 ¤«¨ ⥪áâ
|
||
.flags: dd flags+0 ;+22 ä« £¨
|
||
}
|
||
ch_struc_size=26 ;®¡é ï áâàãªâãà 24 ¡ ©â
|
||
macro draw_check_boxes start,end ;à¨á®¢ âì 祪 ¡®ªáë
|
||
{
|
||
mov edi,start ;“ª § ⥫ì ç «® ¤ ëå 祪 ¡®ªá®¢ â.¥. ç «® ¤ ëå ¯¥à¢®£® 祪¡®ªá
|
||
mov ecx,((end-start)/ch_struc_size) ;Š®«¨ç¥á⢮ 祪 ¡®ªá®¢
|
||
@@:
|
||
call check_box.draw ;Žâ®¡à §¨âì 祪 ¡®ªá
|
||
add edi,ch_struc_size ;“ª § â¥«ì ¯®á«¥¤ãî騥 祪 ¡®ªáë â.¥. +28
|
||
loop @b ;¯àë£ãâì ¥á«¨ ¢ ecx/cx § 票¥ ¥ 0 ¢¥àåîî @@
|
||
}
|
||
macro mouse_check_boxes start,end ;ãáâ ®¢ª 祪 ¡®ªá®¢, ¢ § ¢¨á¨¬®á⨠®â ᮡëâ¨ï
|
||
{
|
||
mov edi,start ; “ª § ⥫ì ç «® ¤ ëå 祪 ¡®ªá®¢ â.¥. ç «® ¤ ëå ¯¥à¢®£® 祪¡®ªá
|
||
mov ecx,((end-start)/ch_struc_size) ;Š®«¨ç¥á⢮ 祪 ¡®ªá®¢
|
||
@@:
|
||
call check_box.mouse ;¯à®¢¥àª ¬ë誨 ¨ ®¡à ¡®âª ᮡë⨩
|
||
add edi,ch_struc_size ;“ª § â¥«ì ¯®á«¥¤ãî騥 祪 ¡®ªáë
|
||
loop @b ;¯àë£ãâì ¥á«¨ ¢ ecx/cx § 票¥ ¥ 0 ¢¥àåîî @@
|
||
} |