kolibrios-gitea/programs/media/scrshoot/check.inc

;<EFBFBD>ä䥪⨢­®¥ ¯à®£à ¬¬¨à®¢ ­¨¥ ¢ KOLIBRI
;Ž¯â¨¬¨§¨à®¢ ­­ë© ª®¬¯®­¥­â CheckBox (ˆá室­ë© ¢ à¨ ­â ®â Maxxxx32)
;Ž¯â¨¬¨§¨à®¢ ­ ¢ë¢®¤ áâப¨ ­ ¤¯¨á¨ ¤«ï CheckBox'a + ⥯¥àì, ¯à¨ ¯à®¢¥àª¥ ­¥ ¯à®¨á室¨â ¯®¤áç¥â ª®«-¢  ᨬ¢®«®¢ ¢ áâப¥
;Ž¯â¨¬¨§ æ¨ï ª®¬ ­¤ - ®âª § «áï ®â á®åà ­¥­¨ï ॣ¨áâ஢ ¢ á⥪¥.
;17.07.2006 ¯à®¨§¢¥¤¥­  ®¯â¨¬¨§ æ¨ï, ¯à¨ ãáâ ­®¢ª¥ 祪 ¡®ªá  ¢ ¯®«®¦¥­¨¥ ¢ª«î祭® ¯®á«¥¤ãî騥 祪 ¡®ªáë ¢ â®â ¦¥ ¯à®¬¥¦ã⮪ ¢à¥¬¥­¨ ­¥ ¯à®¢¥àïîâáï
;<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+24]	    ;ä« £¨
check_box:
.draw:
pusha	;á®åà ­¨¬ ¢á¥ ॣ¨áâàë
	mov	eax,38		;à¨á®¢ ­¨¥ «¨­¨¨
	mov	bx,ch_left	;¯®«®¦¥­¨¥ ¯® å
	;mov     cx,bx           ;á®åà ­¨¬ ¢ ॣ¨áâॠcx §­ ç¥­¨¥ bx
	push   bx  ;3 - ¬¨ªà®®¯¥à æ¨¨  ¨á¯®«ì§ãï á⥪ ¬®¦­® ¢ë¨£à âì ¢ à §¬¥à¥, ¨á¯®«ì§ãï ॣ¨áâàë - ¢ ᪮à®áâ¨
	shl	ebx,16		;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
	pop    bx  ;2 - ¬¨ªà®®¯¥à æ¨¨  ­  ¤ ­­ë© ¬®¬¥­â áä®à¬¨à®¢ ­  [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ x]*65536 + [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ x]
	;mov     bx,cx           ;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ bx
	mov	cx,ch_top	;§ £à㧨¬ ¢ cx §­ ç¥­¨¥ y
	mov	si,cx		;á®åà ­¨¬ §­ ç¥­¨¥ ॣ¨áâà  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	cx,ch_size ;[ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ y]*65536 + [ª®®à¤¨­ â  ª®­æ  ¯® ®á¨ y]
	mov	edx,ch_border_color ;–¢¥â «¨­¨¨
	int	0x40   ;à¨á®¢ ­¨¥ ¢¥à⨪ «ì­®© «¥¢®© «¨­¨¨ ª¢ ¤à â  (¯àאַ㣮«ì­¨ª )
;
	mov	bp,bx	;á®åà ­¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
	;push   bx   ;¢â®«ª­ãâì ¢ bx [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ å]*65536 + [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ x]
	add	bx,ch_size	;[ª®®à¤¨­ â  ­ ç «  + ¤«¨­  áâ®à®­ë ¯® ®á¨ å]
	ror	ebx,16		;[ª®®à¤¨­ â  ­ ç «  + ¤¨­  áâ®à®­ë ¯® ®á¨ å]*65536
	add	bx,ch_size	;[ª®®à¤¨­ â  ­ ç « +¤«¨­  áâ®à®­ë ¯® ®á¨ å]*65536 + [ª®®à¤¨­ â  ­ ç « +¤«¨­  áâ®à®­ë ¯® ®á¨ x]
	int	0x40
	mov	bx,bp		;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ ॣ¨áâà  bx
	;pop    bx
	mov	cx,si		;á®åà ­¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx ¢ ॣ¨áâà 㪠§ â¥«ì
	;pop    cx
	int	0x40
	add	cx,ch_size	;¤®¡ ¢¨¬ à §¬¥à áâ®à®­ë
	mov	si,cx		;á®åà ­¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx ¢ ॣ¨áâà 㪠§ â¥«ì si
	;push   cx
	shl	ecx,16
	mov	cx,si
	;pop    cx
	int	0x40		;­ à¨á®¢ «¨ ¯àאַ㣮«ì­¨ª

	mov	eax,13		;§ ªà è¨¢ ¥¬ ¥£®. ”ã­ªæ¨ï 13 - ­ à¨á®¢ âì ¯®«®áã
	mov	bx,ch_left	;§ £à㧨âì ¢ bx, ¯®«®¦¥­¨¥ ¯® å
	add	bx,1		;ᤢ¨­¥¬ ­  1 â.¥. ¯à¨¡ ¢¨¬ 1 ¨­ ç¥ § âà¥âáï à ¬ª 
	shl	ebx,16		;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
	mov	bx,ch_size	;¯à¨¡ ¢¨¬ ¤«¨­ã áâ®à®­ë ¯àאַ㣮«ì­¨ª 
	sub	bx,1		;¢ëç⥬ 1 â.ª. ¨­ ç¥ § âà¥âáï à ¬ª 
	mov	bp,bx		; á®åà ­¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
	;push   bx
	mov	cx,ch_top	;§ £à㧨¬ ª®®à¤¨­ âë ¯® y
	add	cx,1		;ᤢ¨­¥¬ ­  1 â.¥. ¯à¨¡ ¢¨¬ 1 ¨­ ç¥ § âà¥âáï à ¬ª 
	shl	ecx,16		;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
	mov	cx,bp		;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx
	;pop    cx
	mov	edx,ch_color	;§ £à㧨¬ 梥⠯®«®áë
	int	0x40		;§ ªà á¨«¨
	bt	dword ch_flags,1  ;¤®áâ âì §­ ç¥­¨¥ ¡¨â  ¨§ ¯¥à¥¬¥­­®© ¨ ¯®¬¥áâ¨âì ¢  ä« £ CF
	jnc	@f		;¢ ¥á«¨ CF=1, â® ¢ë¯®«­¨¬ á«¥¤ãîéãî ¯à®æ¥¤ãàã ¨­ ç¥ ¯¥à¥©â¨ ­  ­¨¦­îî @@
	call	.draw_ch  ;­ à¨á®¢ âì ¢ª«î祭­ë© 祪 ¡®ªá
@@:
;----------------------------
;à áç¥â ªã¤  ¡ã¤¥â ¯à®¨§¢¥¤¥­ ¢ë¢®¤ ⥪áâ 
;----------------------------
	mov	bx,ch_left	;§ £à㧨âì §­ ç¥­¨¥ å ¤«ï 祪 ¡®ªá 
	add	bx,(ch_size+ch_text_margin) ;¤®¡ ¢¨âì à §¬¥à áâ®à®­ë ¨ à ááâ®ï­¨¥ ­  ª®â®à®¬ ­ ç­¥âáï ¢ë¢®¤ ⥪áâ 
	shl	ebx,16		;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
	mov	bx,ch_top	;§ £à㧨¬ §­ ç¥­¨¥ ¯® y
	add	bx,(ch_size-9+2)	;¤®¡ ¢¨¬ §­ ç¥­¨¥ ¤«¨­ë áâ®à®­ë -9+2
	mov	ecx,ch_text_color	;§ £à㧨¬ 梥⠭ ¤¯¨á¨

	mov	edx,ch_text_ptr 	;㪠¦¥¬  ¤à¥á ®â ªã¤  ­ã¦­® ¢ë¢®¤¨âì áâபã
	mov	esi,ch_text_length	;‡ £à㧨¬ ¤«¨­ã ­ ¤¯¨á¨ ¢ esi
	xor	eax,eax 		;¢­¥á¥¬ ¢ eax §­ ç¥­¨¥ ¢ë¢®¤  ­ ¤¯¨á¨ ­  ª ­¢ã
	add	eax,4
	int	0x40		;‚뢮¤
popa				;¢®ááâ ­®¢¨âì §­ ç¥­¨ï ॣ¨áâ஢ ¨§ á⥪ 
ret				;¢ë©¤¥¬ ¨§ ¯à®æ¥¤ãàë

.clear_ch:			;®ç¨á⪠ 祪 ¡®ªá 
	mov	edx,ch_color	;梥⠢­ãâਠ祪 ¡®ªá 
	jmp	@f		;¡¥§ãá«®¢­ë© ¯à릮ª ­  ­¨¦­îî ¬¥âªã @@

.draw_ch:	     ;­ à¨á®¢ âì ¢ª«î祭­ë© 祪 ¡®ªá
	mov	edx,ch_border_color	;§ £à㧨âì 梥â
@@:
	mov	bx,ch_left	;§ £à㧨âì ª®®à¤¨­ âã ¯® å
	add	bx,(ch_size/3)	;¤®¡ ¢¨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /3)
	shl	ebx,16		;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
	mov	bx,(ch_size/2)	;§ £à㧨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /2)
	mov	bp,bx		;á®åà ­¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
	;push   bx
	mov	cx,ch_top	;§ £à㧨âì ª®®à¤¨­ âã ¯® ã
	add	cx,(ch_size/3)	;¤®¡ ¢¨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /3)
	shl	ecx,16		;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
	mov	cx,bp		;§ £à㧨¬ §­ ç¥­¨ï ॣ¨áâà  ãª § â¥«ï ¡ §ë ¢ cx
	;pop    cx
	mov	eax,13		;¢ eax - §­ ç¥­¨ï ä㭪樨 ¤«ï ¢ë¢®¤  ¯®«®áë â.¥. ¯® áã⨠¯àאַ㣮«ì­¨ª , ª®â®àë© ®â®¡à ¦ ¥â ¢ª«î祭­ë© ª®¬¯®­¥­â 祪 ¡®ªá
	int	0x40		;¢ë¢®¤
ret				;¢ë©â¨ ¨§ ¯à®æ¥¤ãàë

.mouse: 		;®¡à ¡®âª  ¬ëè¨
pusha
	mov	eax,37		;¡ã¤¥¬ çâ® â® ¤¥« âì ¥á«¨ ã ­ á çâ® - ­¨âì ­ ¦ â®
	xor	ebx,ebx 	;®¡­ã«¨âì ॣ¨áâà ebx (¨§¬¥­ï¥â ä« £¨)
	add	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 â® ¯¥à¥©â¨  ¢ ª®­¥æ â.¥. íâ® ¢ë室
	mov	esi,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		;¯®«ã稬 ª®®à¤¨­ âë ¬ë誨
	xor	ebx,ebx 	;®¡­ã«¨âì ॣ¨áâà
	add	ebx,1		;¤®¡ ¢¨âì 1
	int	0x40		    ;¯®«ãç¨âì ª®®à¤¨­ âë ªãàá®à  ®â­®á¨â¥«ì­® ®ª­ 

	mov	bx,ch_top	    ;§ £à㧨âì ¢ bx §­ ç¥­¨¥ ª®®à¤¨­ âë ã
	cmp	ax,bx		    ;áà ¢­¨âì á á ª®®à¤¨­ â®© ªãàá®à 
	jl	.mouse_end	    ;SF <> OF ¥á«¨ ¬¥­ìè¥
	add	bx,ch_size	    ;¤®¡ ¢¨âì à §¬¥à
	cmp	ax,bx		    ;áà ¢­¨âì
	jg	.mouse_end	    ;ZF = 0 ¨ SF = OF ¥á«¨ ¡®«ìè¥

	shr	eax,16		    ;à §¤¥«¨¬ ­  65536 ¨«¨ ¯à®á⮠ᤢ¨­¥¬ ¡¨âë ­  16 §­ ç¥­¨©
	mov	bx,ch_left	    ;¯à®¨§¢¥¤¥¬  ­ «®£¨ç­®¥ áà ¢­¥­¨¥
	cmp	ax,bx		     ;áà ¢­¨âì ॣ¨áâàë
	jl	.mouse_end	     ;¥á«¨ ¬¥­ìè¥
	add	bx,ch_size	     ;¤®¡ ¢¨âì ¤«¨­ã áâ®à®­ë ¯àאַ㣮«ì­¨ª 
	add	bx,si		    ;“ç¥áâì ¢ §­ ç¥­¨¨ ¯® å ¥é¥ ¨ ¤«¨­ã ­ ¤¯¨á¨ ª 祪¡®ªáã
	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: dd text_length ; +20      ¤«¨­  ⥪áâ 
.flags: dd flags+0   ;+24               ä« £¨
}
ch_struc_size=28			;®¡é ï áâàãªâãà  28 ¡ ©â
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 ­  ¢¥àå­îî @@
}
macro check_boxes_set_sys_color start,end,color_table
{
	mov	edi,start
	mov	ecx,((end-start)/ch_struc_size)
	mov	esi,color_table
@@:
	push	dword [esi+32]
	pop	dword ch_text_color
	push	dword [esi+36]
	pop	dword ch_border_color
	add	edi,ch_struc_size
	loop	@b
}