Subversion Repositories Kolibri OS

Rev

Rev 356 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;ª®¬¯®­¥­â OptionBox (Žá­®¢ ­ ­  Checkbox)
  2. ;Ž£à®¬­ ï ¡« £®¤ à­®áâì Maxxxx32, Diamond, ¨ ¤à㣨¬ ¯à®£à ¬¬¨áâ ¬, ¨ ¨å ¯à®£à ¬¬ ¬, ¡¥§
  3. ;ª®â®àëå ï ­¥ ᬮ£ ¡ë ­ ¯¨á âì íâ®â ª®¬¯®­¥­â.
  4. ;16.02.2007
  5. ;<Lrz>  - ’¥¯«®¢ €«¥ªá¥©  www.lrz.land.ru
  6.  
  7. macro use_option_box
  8. {
  9. op_text_margin=4     ;à ááâ®ï­¨¥ ®â ¯àאַ㣮«ì­¨ª  祪 ¡®ªá  ¤® ­ ¤¯¨á¨
  10. op_size=10           ;à §¬¥à ª¢ ¤à â  祪 ¡®ªá 
  11. op_left equ [edi]    ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® å
  12. op_top equ [edi+2]   ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® ã
  13. op_color equ [edi+4] ;梥⠢­ãâਠoptionbox
  14. op_border_color equ [edi+8] ;梥â à ¬ª¨ optionbox
  15. op_text_color equ [edi+12]  ;梥â ⥪áâ 
  16. op_text_ptr equ [edi+16]    ;㪠§ â¥«ì ­  ­ ç «® ⥪á⮢®© áâப¨
  17. op_text_length equ [edi+20] ;¤«¨­  ­ ¤¯¨á¨ (2^64 â ª®© ¤«¨­ë ¬®¦¥â ¡ëâì ⥪áâ)
  18. op_optibox_gr   equ [edi+22]
  19. option_box:
  20. .draw:
  21. pusha   ;á®åà ­¨¬ ¢á¥ ॣ¨áâàë
  22.         mov     eax,38          ;à¨á®¢ ­¨¥ «¨­¨¨
  23.         movzx   ebx,word op_left        ;¯®«®¦¥­¨¥ ¯® å
  24.         mov     ecx,ebx         ;á®åà ­¨¬ ¢ ॣ¨áâॠcx §­ ç¥­¨¥ bx  1 ¬¨ªà®®¯¥à æ¨ï
  25.         ;push   bx  ;3 - ¬¨ªà®®¯¥à æ¨¨  ¨á¯®«ì§ãï á⥪ ¬®¦­® ¢ë¨£à âì ¢ à §¬¥à¥, ¨á¯®«ì§ãï ॣ¨áâàë - ¢ ᪮à®áâ¨
  26.         shl     ebx,16          ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
  27.         ;pop    bx  ;2 - ¬¨ªà®®¯¥à æ¨¨  ­  ¤ ­­ë© ¬®¬¥­â áä®à¬¨à®¢ ­  [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ x]*65536 + [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ x]
  28.         mov     bx,cx           ;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ bx
  29.         movzx   ecx,word op_top ;§ £à㧨¬ ¢ cx §­ ç¥­¨¥ y
  30.         mov     esi,ecx         ;á®åà ­¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx ¢ ॣ¨áâà 㪠§ â¥«ì si                          
  31.         ;push   cx
  32.         shl     ecx,16          ; ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)      mov     cx,si           ;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx
  33.         mov     cx,si           ;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx
  34.         ;pop    cx      ;[ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ y]*65536 + [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ y]
  35.         ;push   cx      
  36.         add     ecx,op_size ;[ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ y]*65536 + [ª®®à¤¨­ â  ª®­æ  ¯® ®á¨ y]
  37.         mov     edx,op_border_color ;–¢¥â «¨­¨¨
  38.         int     0x40   ;à¨á®¢ ­¨¥ ¢¥à⨪ «ì­®© «¥¢®© «¨­¨¨ ª¢ ¤à â  (¯àאַ㣮«ì­¨ª )
  39. ;
  40.         mov     ebp,ebx ;á®åà ­¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
  41.         ;push   bx   ;¢â®«ª­ãâì ¢ bx [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ å]*65536 + [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ x]
  42.         add     ebx,op_size      ;[ª®®à¤¨­ â  ­ ç «  + ¤«¨­  áâ®à®­ë ¯® ®á¨ å]
  43.         ror     ebx,16          ;[ª®®à¤¨­ â  ­ ç «  + ¤¨­  áâ®à®­ë ¯® ®á¨ å]*65536
  44.         add     ebx,op_size      ;[ª®®à¤¨­ â  ­ ç « +¤«¨­  áâ®à®­ë ¯® ®á¨ å]*65536 + [ª®®à¤¨­ â  ­ ç « +¤«¨­  áâ®à®­ë ¯® ®á¨ x]
  45.         int     0x40
  46.        
  47.         mov     bx,bp           ;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ ॣ¨áâà  bx
  48.         ;pop    bx
  49.         mov     cx,si           ;á®åà ­¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx ¢ ॣ¨áâà 㪠§ â¥«ì
  50.         ;pop    cx
  51.         int     0x40
  52.         add     ecx,op_size     ;¤®¡ ¢¨¬ à §¬¥à áâ®à®­ë
  53.         mov     esi,ecx         ;á®åà ­¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx ¢ ॣ¨áâà 㪠§ â¥«ì si
  54.         ;push   cx
  55.         shl     ecx,16
  56.         mov     cx,si
  57.         ;pop    cx
  58.         int     0x40            ;­ à¨á®¢ «¨ ¯àאַ㣮«ì­¨ª
  59.  
  60.         mov     eax,13          ;§ ªà è¨¢ ¥¬ ¥£®. ”ã­ªæ¨ï 13 - ­ à¨á®¢ âì ¯®«®áã
  61.         movzx   ebx,word op_left        ;§ £à㧨âì ¢ bx, ¯®«®¦¥­¨¥ ¯® å
  62.         add     ebx,1           ;ᤢ¨­¥¬ ­  1 â.¥. ¯à¨¡ ¢¨¬ 1 ¨­ ç¥ § âà¥âáï à ¬ª 
  63.         shl     ebx,16          ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
  64.         mov     bx,op_size      ;¯à¨¡ ¢¨¬ ¤«¨­ã áâ®à®­ë ¯àאַ㣮«ì­¨ª 
  65.         sub     ebx,1           ;¢ëç⥬ 1 â.ª. ¨­ ç¥ § âà¥âáï à ¬ª 
  66.         mov     bp,bx           ;á®åà ­¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
  67.         ;push   bx
  68.         movzx   ecx,word op_top ;§ £à㧨¬ ª®®à¤¨­ âë ¯® y
  69.         add     ecx,1           ;ᤢ¨­¥¬ ­  1 â.¥. ¯à¨¡ ¢¨¬ 1 ¨­ ç¥ § âà¥âáï à ¬ª 
  70.         shl     ecx,16          ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
  71.         mov     cx,bp           ;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx
  72.         ;pop    cx
  73.         mov     edx,op_color    ;§ £à㧨¬ 梥⠯®«®áë
  74.         int     0x40            ;§ ªà á¨«¨
  75.  
  76.         mov     eax,op_optibox_gr
  77.         mov     dword eax,[eax]
  78.         cmp     eax,edi
  79.         jne     @f
  80.         call    .draw_op  ;­ à¨á®¢ âì ¢ª«î祭­ë© 祪 ¡®ªá
  81. ;----------------------------
  82. ;à áç¥â ªã¤  ¡ã¤¥â ¯à®¨§¢¥¤¥­ ¢ë¢®¤ ⥪áâ 
  83. ;----------------------------
  84. @@:     movzx   ebx,word op_left        ;§ £à㧨âì §­ ç¥­¨¥ å ¤«ï 祪 ¡®ªá 
  85.         add     ebx,(op_size+op_text_margin) ;¤®¡ ¢¨âì à §¬¥à áâ®à®­ë ¨ à ááâ®ï­¨¥ ­  ª®â®à®¬ ­ ç­¥âáï ¢ë¢®¤ ⥪áâ 
  86.         shl     ebx,16          ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
  87.         mov     bx,op_top       ;§ £à㧨¬ §­ ç¥­¨¥ ¯® y
  88.         add     ebx,(op_size-9+2)       ;¤®¡ ¢¨¬ §­ ç¥­¨¥ ¤«¨­ë áâ®à®­ë -9+2
  89.         mov     ecx,op_text_color       ;§ £à㧨¬ 梥⠭ ¤¯¨á¨
  90.        
  91.         mov     edx,op_text_ptr         ;㪠¦¥¬  ¤à¥á ®â ªã¤  ­ã¦­® ¢ë¢®¤¨âì áâபã
  92.         movzx   esi,word op_text_length ;‡ £à㧨¬ ¤«¨­ã ­ ¤¯¨á¨ ¢ esi
  93.         ;¢­¥á¥¬ ¢ eax §­ ç¥­¨¥ ¢ë¢®¤  ­ ¤¯¨á¨ ­  ª ­¢ã
  94.         mov     eax,4
  95.         int     0x40            ;‚뢮¤
  96. popa                            ;¢®ááâ ­®¢¨âì §­ ç¥­¨ï ॣ¨áâ஢ ¨§ á⥪ 
  97. ret                             ;¢ë©¤¥¬ ¨§ ¯à®æ¥¤ãàë
  98.  
  99. .clear_op:                      ;®ç¨á⪠ 祪 ¡®ªá 
  100.         mov     edx,op_color    ;梥⠢­ãâਠ祪 ¡®ªá 
  101.         jmp     @f              ;¡¥§ãá«®¢­ë© ¯à릮ª ­  ­¨¦­îî ¬¥âªã @@
  102.  
  103. .draw_op:            ;­ à¨á®¢ âì ¢ª«î祭­ë© 祪 ¡®ªá
  104.         mov     edx,op_border_color     ;§ £à㧨âì 梥â
  105. @@:
  106.         movzx   ebx,word op_left        ;§ £à㧨âì ª®®à¤¨­ âã ¯® å
  107.         add     ebx,(op_size/3) ;¤®¡ ¢¨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /3)
  108.         shl     ebx,16          ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
  109.         mov     bx,(op_size/2)  ;§ £à㧨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /2)
  110.         mov     bp,bx           ;á®åà ­¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
  111.         ;push   bx
  112.         movzx   ecx,word op_top ;§ £à㧨âì ª®®à¤¨­ âã ¯® ã
  113.         mov     eax,13          ;¢ eax - §­ ç¥­¨ï ä㭪樨 ¤«ï ¢ë¢®¤  ¯®«®áë â.¥. ¯® áã⨠¯àאַ㣮«ì­¨ª , ª®â®àë© ®â®¡à ¦ ¥â ¢ª«î祭­ë© ª®¬¯®­¥­â 祪 ¡®ªá
  114.         add     ecx,(op_size/3) ;¤®¡ ¢¨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /3)
  115.         shl     ecx,16          ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
  116.         mov     cx,bp           ;§ £à㧨¬ §­ ç¥­¨ï ॣ¨áâà  ãª § â¥«ï ¡ §ë ¢ cx
  117.         ;pop    cx
  118.         int     0x40            ;¢ë¢®¤
  119. ret                             ;¢ë©â¨ ¨§ ¯à®æ¥¤ãàë
  120.  
  121. .mouse:                 ;®¡à ¡®âª  ¬ëè¨
  122. pusha
  123.         mov     eax,37          ;¡ã¤¥¬ çâ® â® ¤¥« âì ¥á«¨ ã ­ á çâ® - ­¨âì ­ ¦ â®
  124.         mov     ebx,2           ;¢­¥á⨠¢ ॣ¨áâà §­ ç¥­¨¥ 2
  125.         int     0x40            ;¯à®¢¥àª  ­¥ ­ ¦ « «¨ ¯®«ì§®¢ â¥«ì ª­®¯ªã ¬ë誨
  126.         test    eax,eax    ;¯à®¢¥àª  ¥á«¨ ã ­ á ¢ eax=0, â® ãáâ ­®¢¨¬ ä« £ ¨ ¢ë©¤¥¬
  127.         jnz     @f         ;¯¥à¥©â¨ ­  ­¨¦­îî ¬¥âªã @@
  128.         popa                    ;¥á«¨ ­¨ç¥£® ­¥ ¯à®¨§®è«®, â® ¢®ááâ ­®¢¨¬ §­ ç¥­¨ï ॣ¨áâ஢ ¨§ á⥪ 
  129.         ret                     ;¢ë室
  130. @@:
  131.         movzx   esi,word op_text_length ;§ £à㧨âì ª®«-¢® ᨬ¢®«®¢ ¢ ⥪á⮢®© áâப¥
  132.         ;“¬­®¦¥­¨¥ ­  6 ëáâ஥ 㬭®¦¥­¨¥ ¬®¦­® ¢®á¯®«ì§®¢ âìáï «î¡ë¬ ¬§ ¬¥â®¤®¢, ­® ­  áâ àëå à®æ¥áá®à å (386,486,P1)¡ëáâ॥ ¡ã¤¥â á ¨­áâàãªæ¨¥© Lea
  133.         ;lea    esi,[eax*2+eax]
  134.         ;shl    eax,1
  135.         imul    esi,6               ; ¨«¨ ¬®¦­® ¨ â ª 㬭®¦¨âì ­  6
  136.         add     esi,op_text_margin   ;¤®¡ ¢¨âì 3 - à ááâ®ï­¨¥ ®â 祪 ¡®ªá  ¤® ­ ¤¯¨á¨
  137.        
  138.         mov     eax,37          ;¯®«ã稬 ª®®à¤¨­ âë ¬ë誨
  139.         mov     ebx,1           ;¤®¡ ¢¨âì 1
  140.         int     0x40                ;¯®«ãç¨âì ª®®à¤¨­ âë ªãàá®à  ®â­®á¨â¥«ì­® ®ª­ 
  141.  
  142.         movzx   ebx,word op_top           ;§ £à㧨âì ¢ bx §­ ç¥­¨¥ ª®®à¤¨­ âë ã
  143.         cmp     ax,bx               ;áà ¢­¨âì á á ª®®à¤¨­ â®© ªãàá®à 
  144.         jl      .mouse_end          ;SF <> OF ¥á«¨ ¬¥­ìè¥
  145.         add     ebx,op_size          ;¤®¡ ¢¨âì à §¬¥à
  146.         cmp     ax,bx               ;áà ¢­¨âì
  147.         jg      .mouse_end          ;ZF = 0 ¨ SF = OF ¥á«¨ ¡®«ìè¥
  148.        
  149.         shr     eax,16              ;à §¤¥«¨¬ ­  65536 ¨«¨ ¯à®á⮠ᤢ¨­¥¬ ¡¨âë ­  16 §­ ç¥­¨©
  150.         movzx   ebx,word op_left          ;¯à®¨§¢¥¤¥¬  ­ «®£¨ç­®¥ áà ¢­¥­¨¥
  151.         cmp     ax,bx                ;áà ¢­¨âì ॣ¨áâàë
  152.         jl      .mouse_end           ;¥á«¨ ¬¥­ìè¥
  153.         add     ebx,op_size          ;¤®¡ ¢¨âì ¤«¨­ã áâ®à®­ë ¯àאַ㣮«ì­¨ª 
  154.         add     ebx,esi             ;“ç¥áâì ¢ §­ ç¥­¨¨ ¯® å ¥é¥ ¨ ¤«¨­ã ­ ¤¯¨á¨ ª 祪¡®ªáã
  155.         cmp     ax,bx                ;áâà ¢­¨âì ॣ¨áâàë
  156.         jg      .mouse_end           ;¥á«¨ ¡®«ìè¥
  157.         mov     eax,op_optibox_gr
  158.         mov     [eax],edi
  159.  
  160. .mouse_end:
  161. popa                              ;¢®ááâ ­®¢¨âì ॣ¨áâàë ¨§ á⥪ 
  162. ret                               ;¢ë©â¨
  163. }
  164.  
  165. struc option_box left,top,color,border_color,text_color,text,text_length,point_gr,flags
  166. {       ;áâàãªâãà  ¯ à ¬¥â஢ ¤«ï 祪 ¡®ªá 
  167. .left: dw left  ;+0     ;¯®«®¦¥­¨¥ ¯® å
  168. .top: dw top    ;+2     ;¯®«®¦¥­¨¥ ¯® ã
  169. .color: dd color ;+4    ;梥⠢­ãâਠ祪 ¡®ªá 
  170. .border_color: dd border_color ;+8      梥â à ¬ª¨
  171. .text_color: dd text_color     ;+12     梥â ⥪áâ  ­ ¤¯¨á¨
  172. .text: dd text       ;+16                ¤à¥á ¢ ª®¤¥ ¯à®£à ¬¬ë £¤¥ à á¯®«®¦¥­ ⥪áâà
  173. .text_length: dw text_length ; +20      ¤«¨­  ⥪áâ 
  174. .option_group: dd point_gr      ;㪠§ â¥«ì ­  à §¬¥é¥­¨¥ edi - ¨¤¥­â¨ä¨ª â®à  optibox
  175. }
  176. op_struc_size=26                        ;®¡é ï áâàãªâãà  24 ¡ ©â
  177. op_flag_en=10b
  178. macro draw_option_boxes start,end       ;à¨á®¢ âì 祪 ¡®ªáë
  179. {
  180.         mov     edi,start                       ;“ª § â¥«ì ­  ­ ç «® ¤ ­­ëå 祪 ¡®ªá®¢ â.¥. ­  ­ ç «® ¤ ­­ëå ¯¥à¢®£® 祪¡®ªá 
  181.         mov     ecx,((end-start)/op_struc_size) ;Š®«¨ç¥á⢮ 祪 ¡®ªá®¢
  182. @@:
  183.         call    option_box.draw                  ;Žâ®¡à §¨âì 祪 ¡®ªá
  184.         add     edi,op_struc_size               ;“ª § â¥«ì ­  ¯®á«¥¤ãî騥 祪 ¡®ªáë  â.¥. +28
  185.         loop    @b      ;¯à룭ãâì ¥á«¨ ¢ ecx/cx §­ ç¥­¨¥ ­¥ 0 ­  ¢¥àå­îî @@
  186. }
  187. macro mouse_option_boxes start,end      ;ãáâ ­®¢ª  祪 ¡®ªá®¢, ¢ § ¢¨á¨¬®á⨠®â ᮡëâ¨ï
  188. {
  189.         mov     edi,start               ; “ª § â¥«ì ­  ­ ç «® ¤ ­­ëå 祪 ¡®ªá®¢ â.¥. ­  ­ ç «® ¤ ­­ëå ¯¥à¢®£® 祪¡®ªá 
  190.         mov     ecx,((end-start)/op_struc_size) ;Š®«¨ç¥á⢮ 祪 ¡®ªá®¢
  191. @@:
  192.         call    option_box.mouse                ;¯à®¢¥àª  ¬ë誨 ¨ ®¡à ¡®âª  ᮡë⨩
  193.         add     edi,op_struc_size       ;“ª § â¥«ì ­  ¯®á«¥¤ãî騥 祪 ¡®ªáë
  194.         loop    @b      ;¯à룭ãâì ¥á«¨ ¢ ecx/cx §­ ç¥­¨¥ ­¥ 0 ­  ¢¥àå­îî @@
  195.  
  196.         mov     edi,start               ; “ª § â¥«ì ­  ­ ç «® ¤ ­­ëå 祪 ¡®ªá®¢ â.¥. ­  ­ ç «® ¤ ­­ëå ¯¥à¢®£® 祪¡®ªá 
  197.         mov     ecx,((end-start)/op_struc_size) ;Š®«¨ç¥á⢮ 祪 ¡®ªá®¢
  198.  
  199. .home:
  200.         mov     eax,[edi+22]    ;op_optibox_gr
  201.         mov     dword eax,[eax]
  202.  
  203.         pusha
  204.  
  205.         cmp     eax,edi
  206.         jne     @f
  207.        
  208.         call    option_box.draw_op
  209.         jmp     .nxtm
  210. @@:     call    option_box.clear_op
  211.  
  212. .nxtm:  popa
  213.         add     edi,op_struc_size               ;“ª § â¥«ì ­  ¯®á«¥¤ãî騥 祪 ¡®ªáë  â.¥. +28
  214.         loop    .home
  215.  
  216. }