upgrade radiobatton

git-svn-id: svn://kolibrios.org@367 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/examples/radiobutton/trunk/optionbox.asm

@@ -1,6 +1,7 @@
 ;ª®¬¯®­¥­â OptionBox (®á­®¢ ­ ­  Checkbox)
 ;Ž£à®¬­ ï ¡« £®¤ à­®áâì Maxxxx32, Diamond, Heavyiron ¨ ¤à㣨¬ ¯à®£à ¬¬¨áâ ¬, ¨ ¨å ¯à®£à ¬¬ ¬, ¡¥§
 ;ª®â®àëå ï ­¥ ᬮ£ ¡ë ­ ¯¨á âì íâ®â ª®¬¯®­¥­â. 
+;21.02.2007 ¬®¤¥à­¨§ æ¨ï ¨ ¯®¤¤¥à¦ª  ¤¢ãå à §­ëå ¢ à¨ ­â®¢ á ¨á¯®«ì§®¢ ­¨¥¬ á¨á 梥⮢ ¨ áâ à®© á奬®©
 ;19.02.2007 ®¡é¥¥ ã«ãç襭¨¥ ª®¤ , 㬥­ì襭¨¥ à §¬¥à  ¨ ¨á¯®«ì§®¢ ­¨¥ á¨á⥬­ëå 梥⮢ ¤«ï ®â®¡à ¦¥­¨ï optionkbox
 ;16.02.2007 ¤ â  ᮧ¤ ­¨ï ª®¬¯®­¥­â 
 ;<Lrz>  - ’¥¯«®¢ €«¥ªá¥©  www.lrz.land.ru
@@ -24,6 +25,9 @@ use32		;
 ;------------------
 	include	'macros.inc'
 	include 'optionbox.inc'	;¢ª«îç¨âì ä ©« opeck.inc
+
+        version_op              ;¢ à¨ ­â, ¯à¨ ª®â®à®¬ ¨á¯®«ì§ãîâáï 梥â , ª®â®àë¥ § ¤ ¥â ¯®«ì§®¢ â¥«ì
+;	version_op1             ;æ¢¥â  ¡¥àãâáï ¨§ á¨á⥬ë
 	use_option_box		;¨á¯®«ì§ãï ¬ ªà®áë,¢­¥á⨠¯à®æ¥¤ãàë ¤«ï à¨á®¢ ­¨ï optionbox
 align 16
 ;Ž¡« áâì ª®¤ 
@@ -83,6 +87,7 @@ draw_window:		;
 ;”®à¬ â ¤ ­­ëå 祪 ¡®ªá :
 ;10 - ª®®à¤¨­ â  祪 ¡®ªá  ¯® å 
 ;30 - ª®®à¤¨­ â  祪 ¡®ªá  ¯® ã
+;0 
 ;0 - 梥â à ¬ª¨ 祪 ¡®ªá 
 ;0 - 梥â ⥪áâ  ­ ¤¯¨á¨
 ;op_text.1 - 㪠§ â¥«ì ­  ­ ç «® áâப¨
@@ -91,12 +96,21 @@ draw_window:		;
 ;
 align 16
 option_boxes:
-op1 option_box 10,15,op_text.1,op_text.e1-op_text.1,option_group1
+;op1 option_box1 option_group1,10,15,op_text.1,op_text.e1-op_text.1
-op2 option_box 10,30,op_text.2,op_text.e2-op_text.2,option_group1
+;op2 option_box1 option_group1,10,30,op_text.2,op_text.e2-op_text.2
-op3 option_box 10,45,op_text.3,op_text.e3-op_text.3,option_group1
+;op3 option_box1 option_group1,10,45,op_text.3,op_text.e3-op_text.3
-op11 option_box 10,80,op_text.1,op_text.e1-op_text.1,option_group2
+;op11 option_box1 option_group2,10,80,op_text.1,op_text.e1-op_text.1
-op12 option_box 10,95,op_text.2,op_text.e2-op_text.2,option_group2
+;op12 option_box1 option_group2,10,95,op_text.2,op_text.e2-op_text.2
-op13 option_box 10,110,op_text.3,op_text.e3-op_text.3,option_group2
+;op13 option_box1 option_group2,10,110,op_text.3,op_text.e3-op_text.3
+;
+;struc option_box point_gr,left,top,color,border_color,text_color,text,text_length
+op1 option_box option_group1,10,15,0xffffff,0,0,op_text.1,op_text.e1-op_text.1
+op2 option_box option_group1,10,30,0xFFFFFF,0,0,op_text.2,op_text.e2-op_text.2
+op3 option_box option_group1,10,45,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
+op11 option_box option_group2,10,80,0xffffff,0,0,op_text.1,op_text.e1-op_text.1
+op12 option_box option_group2,10,95,0xffffff,0,0,op_text.2,op_text.e2-op_text.2
+op13 option_box option_group2,10,110,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
+
 option_boxes_end:
 
 op_text:		; ‘®¯à®¢®¦¤ î騩 ⥪áâ ¤«ï 祪 ¡®ªá®¢
@@ -110,6 +124,6 @@ op_text:		;
 option_group1	dd op1 	;㪠§ â¥«¨, ®­¨ ®â®¡à ¦ îâáï ¯® 㬮«ç ­¨î, ª®£¤  ¢ë¢®¤¨âáï 
 option_group2	dd op11 ;¯à¨«®¦¥­¨¥
 
-hed db 'Optionbox [19.02.2007]',0	;§ £®«®¢®ª ¯à¨«®¦¥­¨ï
+hed db 'Optionbox [21.02.2007]',0	;§ £®«®¢®ª ¯à¨«®¦¥­¨ï
 sc     system_colors
 i_end:			;ª®­¥æ ª®¤ 

programs/develop/examples/radiobutton/trunk/optionbox.inc

@@ -1,67 +1,61 @@
 ;ª®¬¯®­¥­â OptionBox (Žá­®¢ ­ ­  Checkbox)
 ;Ž£à®¬­ ï ¡« £®¤ à­®áâì Maxxxx32, Diamond, Heavyiron, ¨ ¤à㣨¬ ¯à®£à ¬¬¨áâ ¬, ¨ ¨å ¯à®£à ¬¬ ¬, ¡¥§
 ;ª®â®àëå ï ­¥ ᬮ£ ¡ë ­ ¯¨á âì íâ®â ª®¬¯®­¥­â. 
+;21.02.2007 ¬®¤¥à­¨§ æ¨ï ¨ ¯®¤¤¥à¦ª  ¤¢ãå à §­ëå ¢ à¨ ­â®¢ á ¨á¯®«ì§®¢ ­¨¥¬ á¨á 梥⮢ ¨ áâ à®© á奬®©
 ;19.02.2007 ®¡é¥¥ ã«ãç襭¨¥ ª®¤ , 㬥­ì襭¨¥ à §¬¥à  ¨ ¨á¯®«ì§®¢ ­¨¥ á¨á⥬­ëå 梥⮢ ¤«ï ®â®¡à ¦¥­¨ï optionkbox
 ;16.02.2007 ¤ â  ᮧ¤ ­¨ï ª®¬¯®­¥­â 
 ;<Lrz>  - ’¥¯«®¢ €«¥ªá¥©  www.lrz.land.ru
 
-macro use_option_box
+macro version_op           ;¤«ï ᮢ¬¥á⨬®á⨠ᮠáâ à묨 ¢¥àá¨ï¬¨ optionbox ¢á¥ æ¢¥â  § ¤ îâáï àã窠¬¨
 {
-op_text_margin=4     ;à ááâ®ï­¨¥ ®â ¯àאַ㣮«ì­¨ª  祪 ¡®ªá  ¤® ­ ¤¯¨á¨ 
+op_struc_size=26
-op_size=10           ;à §¬¥à ª¢ ¤à â  祪 ¡®ªá  
+option_group equ [edi]
-op_left equ [edi]    ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® å
+op_left equ [edi+4]    ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® å
-op_top equ [edi+2]   ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® ã
+op_top equ [edi+6]   ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® ã
+op_color equ [edi+8]
+op_border_color equ [edi+12] ; or [edi+4] ;梥â à ¬ª¨ checkbox ¥¥ ¬®¦­® § ¤ âì á ¬®áâ®ï⥫쭮
+op_text_color equ   [edi+16];[edi+4]  ;梥â ⥪áâ 
+op_text_ptr equ [edi+20]    ;㪠§ â¥«ì ­  ­ ç «® ⥪á⮢®© áâப¨ 
+op_text_length equ [edi+24] ;¤«¨­  ­ ¤¯¨á¨ (2^64 â ª®© ¤«¨­ë ¬®¦¥â ¡ëâì ⥪áâ)
+}
+
+macro   version_op1        ;¯à®¤¢¨­ãâ ï ¢¥àá¨ï, ¨á¯®«ì§ã¥â æ¢¥â  áª¨­ . 
+{
+op_struc_size=14
+option_group equ [edi]
+op_left equ [edi+4]    ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® å
+op_top equ [edi+6]   ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® ã
+op_color equ [sc.work] ;
 op_border_color equ [sc.work_graph] ; or [edi+4] ;梥â à ¬ª¨ checkbox ¥¥ ¬®¦­® § ¤ âì á ¬®áâ®ï⥫쭮
 op_text_color equ   [sc.work_text];[edi+4]  ;梥â ⥪áâ 
-;op_border_color equ [edi+4] ;梥â à ¬ª¨ optionbox
+op_text_ptr equ [edi+8]    ;㪠§ â¥«ì ­  ­ ç «® ⥪á⮢®© áâப¨ 
-;op_text_color equ [edi+8]  ;梥â ⥪áâ 
+op_text_length equ [edi+12] ;¤«¨­  ­ ¤¯¨á¨ (2^64 â ª®© ¤«¨­ë ¬®¦¥â ¡ëâì ⥪áâ)
-op_text_ptr equ [edi+4]    ;㪠§ â¥«ì ­  ­ ç «® ⥪á⮢®© áâப¨ 
+}
-op_text_length equ [edi+8] ;¤«¨­  ­ ¤¯¨á¨ (2^64 â ª®© ¤«¨­ë ¬®¦¥â ¡ëâì ⥪áâ)
+
-op_optibox_gr	equ [edi+10]
+
+macro use_option_box
+{
 option_box:
 .draw:
 pusha   ;á®åà ­¨¬ ¢á¥ ॣ¨áâàë
-	mov	eax,38     	;à¨á®¢ ­¨¥ «¨­¨¨
+op_text_margin=4     ;à ááâ®ï­¨¥ ®â ¯àאַ㣮«ì­¨ª  祪 ¡®ªá  ¤® ­ ¤¯¨á¨ 
-	movzx	ebx,word op_left	;¯®«®¦¥­¨¥ ¯® å
+op_size=12           ;à §¬¥à ª¢ ¤à â  祪 ¡®ªá  
-	mov	ecx,ebx		;á®åà ­¨¬ ¢ ॣ¨áâॠcx §­ ç¥­¨¥ bx  1 ¬¨ªà®®¯¥à æ¨ï
+       mov eax,13 
-	;push	bx  ;3 - ¬¨ªà®®¯¥à æ¨¨  ¨á¯®«ì§ãï á⥪ ¬®¦­® ¢ë¨£à âì ¢ à §¬¥à¥, ¨á¯®«ì§ãï ॣ¨áâàë - ¢ ᪮à®áâ¨
+       mov ebx,op_left 
-	shl	ebx,16		;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
+       shl ebx,16 
-	;pop	bx  ;2 - ¬¨ªà®®¯¥à æ¨¨  ­  ¤ ­­ë© ¬®¬¥­â áä®à¬¨à®¢ ­  [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ x]*65536 + [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ x]
+       add ebx,op_size 
-	mov	bx,cx		;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ bx
+       mov ecx,op_top 
-	movzx	ecx,word op_top	;§ £à㧨¬ ¢ cx §­ ç¥­¨¥ y
+       shl ecx,16 
-	mov	esi,ecx		;á®åà ­¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx ¢ ॣ¨áâà 㪠§ â¥«ì si				
+       add ecx,op_size 
-	;push	cx
+       mov edx,op_border_color 
-	shl	ecx,16		; ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)	mov	cx,si		;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx
+       int 0x40 ;à¨á㥬 à ¬ªã 
-	mov 	cx,si		;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx
-	;pop	cx    	;[ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ y]*65536 + [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ y]
-	;push	cx       
-	add	ecx,op_size ;[ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ y]*65536 + [ª®®à¤¨­ â  ª®­æ  ¯® ®á¨ y]
-	mov	edx,dword op_border_color ;–¢¥â «¨­¨¨
-	int	0x40   ;à¨á®¢ ­¨¥ ¢¥à⨪ «ì­®© «¥¢®© «¨­¨¨ ª¢ ¤à â  (¯àאַ㣮«ì­¨ª )
-;
-	mov	ebp,ebx	;á®åà ­¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
-	;push	bx   ;¢â®«ª­ãâì ¢ bx [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ å]*65536 + [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ x]
-	add	ebx,op_size      ;[ª®®à¤¨­ â  ­ ç «  + ¤«¨­  áâ®à®­ë ¯® ®á¨ å]
-	ror	ebx,16          ;[ª®®à¤¨­ â  ­ ç «  + ¤¨­  áâ®à®­ë ¯® ®á¨ å]*65536
-	add	ebx,op_size      ;[ª®®à¤¨­ â  ­ ç « +¤«¨­  áâ®à®­ë ¯® ®á¨ å]*65536 + [ª®®à¤¨­ â  ­ ç « +¤«¨­  áâ®à®­ë ¯® ®á¨ x]
-	int	0x40
-	
-	mov	bx,bp		;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ ॣ¨áâà  bx
-	;pop	bx
-	mov	cx,si		;á®åà ­¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx ¢ ॣ¨áâà 㪠§ â¥«ì
-	;pop	cx
-	int	0x40
-	add	ecx,op_size	;¤®¡ ¢¨¬ à §¬¥à áâ®à®­ë 
-	mov	esi,ecx		;á®åà ­¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx ¢ ॣ¨áâà 㪠§ â¥«ì si
-	;push	cx
-	shl	ecx,16
-	mov	cx,si
-	;pop	cx
-	int	0x40            ;­ à¨á®¢ «¨ ¯àאַ㣮«ì­¨ª
 
-	call	.clear_op       ;®ç¨á⪠ ®¡« áâ¨
+       mov edx,op_color 
+       add ebx,1 shl 16 - 2 
+       add ecx,1 shl 16 - 2 
+       int 0x40 ;§ ªà è¨¢ ¥¬ ¢­ãâ७­®á⨠祪¡®ªá  
 
-        mov	eax,dword op_optibox_gr
+        mov	eax,option_group
 	mov	dword eax,[eax]
         cmp	eax,edi
 	jne	@f
@@ -85,25 +79,25 @@ popa				;
 ret				;¢ë©¤¥¬ ¨§ ¯à®æ¥¤ãàë
 
 .clear_op:			;®ç¨á⪠ 祪 ¡®ªá 
-	mov	edx,dword [sc.work]	;梥⠢­ãâਠ祪 ¡®ªá 
+	mov	edx,op_color	;梥⠢­ãâਠ祪 ¡®ªá 
 	jmp	@f		;¡¥§ãá«®¢­ë© ¯à릮ª ­  ­¨¦­îî ¬¥âªã @@
 
 .draw_op:            ;­ à¨á®¢ âì ¢ª«î祭­ë© 祪 ¡®ªá
-	mov	edx,op_border_color	;§ £à㧨âì 梥â
+
+	mov   edx,op_border_color	;§ £à㧨âì 梥â
 @@:
-	movzx	ebx,word op_left	;§ £à㧨âì ª®®à¤¨­ âã ¯® å
+        movzx ebx,word op_left  ;§ £à㧨âì ª®®à¤¨­ âã ¯® å
-	add	ebx,(op_size/3)	;¤®¡ ¢¨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /3)
+        add   ebx,(op_size/4)   ;¤®¡ ¢¨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /3)
-	shl	ebx,16		;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
+        shl   ebx,16            ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
-	mov	bx,(op_size/2)	;§ £à㧨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /2)
+        mov   bx,(op_size/2)    ;§ £à㧨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /2)
-	mov	bp,bx		;á®åà ­¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
+        mov   bp,bx             ;á®åà ­¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
-	;push	bx
+        ;push        bx
-	movzx	ecx,word op_top	;§ £à㧨âì ª®®à¤¨­ âã ¯® ã
+        movzx ecx,word op_top ;§ £à㧨âì ª®®à¤¨­ âã ¯® ã
-	mov	eax,13		;¢ eax - §­ ç¥­¨ï ä㭪樨 ¤«ï ¢ë¢®¤  ¯®«®áë â.¥. ¯® áã⨠¯àאַ㣮«ì­¨ª , ª®â®àë© ®â®¡à ¦ ¥â ¢ª«î祭­ë© ª®¬¯®­¥­â 祪 ¡®ªá
+        mov   eax,13          ;¢ eax - §­ ç¥­¨ï ä㭪樨 ¤«ï ¢ë¢®¤  ¯®«®áë â.¥. ¯® áã⨠¯àאַ㣮«ì­¨ª , ª®â®àë© ®â®¡à ¦ ¥â ¢ª«î祭­ë© ª®¬¯®­¥­â 祪 ¡®ªá
-	add	ecx,(op_size/3)	;¤®¡ ¢¨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /3)
+        add   ecx,(op_size/4) ;¤®¡ ¢¨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /3)
-	shl	ecx,16		;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
+        shl   ecx,16          ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
-	mov	cx,bp		;§ £à㧨¬ §­ ç¥­¨ï ॣ¨áâà  ãª § â¥«ï ¡ §ë ¢ cx
+        mov   cx,bp           ;§ £à㧨¬ §­ ç¥­¨ï ॣ¨áâà  ãª § â¥«ï ¡ §ë ¢ cx
-	;pop	cx
+        int   0x40            ;¢ë¢®¤
-	int	0x40		;¢ë¢®¤
 ret				;¢ë©â¨ ¨§ ¯à®æ¥¤ãàë
 
 .mouse:                 ;®¡à ¡®âª  ¬ëè¨ 
@@ -143,7 +137,7 @@ pusha
 	add	ebx,esi		     ;“ç¥áâì ¢ §­ ç¥­¨¨ ¯® å ¥é¥ ¨ ¤«¨­ã ­ ¤¯¨á¨ ª 祪¡®ªáã
 	cmp	ax,bx		     ;áâà ¢­¨âì ॣ¨áâàë
 	jg	.mouse_end	     ;¥á«¨ ¡®«ìè¥ 
-	mov	eax,dword op_optibox_gr
+	mov	eax,option_group
         mov	[eax],edi
 
 .mouse_end:
@@ -151,17 +145,26 @@ popa				  ;
 ret				  ;¢ë©â¨
 }
 
-struc option_box left,top,text,text_length,point_gr
+struc option_box1 point_gr,left,top,text,text_length
 {	;áâàãªâãà  ¯ à ¬¥â஢ ¤«ï 祪 ¡®ªá 
+.option_group: dd point_gr	;㪠§ â¥«ì ­  à §¬¥é¥­¨¥ edi - ¨¤¥­â¨ä¨ª â®à  optibox
 .left: dw left	;+0	;¯®«®¦¥­¨¥ ¯® å
 .top: dw top	;+2	;¯®«®¦¥­¨¥ ¯® ã
-;.border_color: dd border_color ;+8	梥â à ¬ª¨ 
-;.text_color: dd text_color     ;+12	梥â ⥪áâ  ­ ¤¯¨á¨
 .text: dd text	     ;+16		 ¤à¥á ¢ ª®¤¥ ¯à®£à ¬¬ë £¤¥ à á¯®«®¦¥­ ⥪áâà
 .text_length: dw text_length ; +20	¤«¨­  ⥪áâ 
-.option_group: dd point_gr	;㪠§ â¥«ì ­  à §¬¥é¥­¨¥ edi - ¨¤¥­â¨ä¨ª â®à  optibox
 }
-op_struc_size=14			;®¡é ï áâàãªâãà  24 ¡ ©â
+struc option_box point_gr,left,top,color,border_color,text_color,text,text_length
+{	;áâàãªâãà  ¯ à ¬¥â஢ ¤«ï 祪 ¡®ªá 
+.option_group: dd point_gr	;㪠§ â¥«ì ­  à §¬¥é¥­¨¥ edi - ¨¤¥­â¨ä¨ª â®à  optibox
+.left: dw left	;+0	;¯®«®¦¥­¨¥ ¯® å
+.top: dw top	;+2	;¯®«®¦¥­¨¥ ¯® ã
+.color: dd color
+.border_color: dd border_color; or [edi+4] ;梥â à ¬ª¨ checkbox ¥¥ ¬®¦­® § ¤ âì á ¬®áâ®ï⥫쭮
+.text_color:   dd text_color;[edi+4]  ;梥â ⥪áâ 
+.text: dd text	     ;+16		 ¤à¥á ¢ ª®¤¥ ¯à®£à ¬¬ë £¤¥ à á¯®«®¦¥­ ⥪áâà
+.text_length: dw text_length ; +20	¤«¨­  ⥪áâ 
+}
+
 op_flag_en=10b
 macro draw_option_boxes start,end	;à¨á®¢ âì 祪 ¡®ªáë
 {
@@ -185,7 +188,7 @@ macro mouse_option_boxes start,end	;
 	mov	ecx,((end-start)/op_struc_size)	;Š®«¨ç¥á⢮ 祪 ¡®ªá®¢
 
 .home:
-	mov	eax,[edi+10]	;op_optibox_gr
+	mov	eax,[edi]	;op_optibox_gr
         mov	dword eax,[eax]
 
         pusha