Subversion Repositories Kolibri OS

Rev

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

  1. ;Ž¯â¨¬¨§¨à®¢ ­­ë© ª®¬¯®­¥­â CheckBox (ˆá室­ë© ¢ à¨ ­â ®â Maxxxx32)
  2. ;Ž¯â¨¬¨§¨à®¢ ­ ¢ë¢®¤ áâப¨ ­ ¤¯¨á¨ ¤«ï CheckBox'a + ⥯¥àì, ¯à¨ ¯à®¢¥àª¥ ­¥ ¯à®¨á室¨â ¯®¤áç¥â ª®«-¢  ᨬ¢®«®¢ ¢ áâப¥
  3. ;Ž¯â¨¬¨§ æ¨ï ª®¬ ­¤ - ®âª § «áï ®â á®åà ­¥­¨ï ॣ¨áâ஢ ¢ á⥪¥.
  4. ;19.02.2007 ®¡é¥¥ ã«ãç襭¨¥ ª®¤ , 㬥­ì襭¨¥ à §¬¥à  ¨ ¨á¯®«ì§®¢ ­¨¥ á¨á⥬­ëå 梥⮢ ¤«ï ®â®¡à ¦¥­¨ï checkbox
  5. ;17.07.2006 ¯à®¨§¢¥¤¥­  ®¯â¨¬¨§ æ¨ï, ¯à¨ ãáâ ­®¢ª¥ 祪 ¡®ªá  ¢ ¯®«®¦¥­¨¥ ¢ª«î祭® ¯®á«¥¤ãî騥 祪 ¡®ªáë ¢ â®â ¦¥ ¯à®¬¥¦ã⮪ ¢à¥¬¥­¨ ­¥ ¯à®¢¥àïîâáï
  6. ;22.08.2006 ¯à®¨§¢¥¤¥­  ®¯â¨¬¨§ æ¨ï ª®¬ ­¤, ¯à¨­ïâë ¢® ¢­¨¬ ­¨¥ § ¬¥ç ­¨ï DIAMOND' .
  7. ;<Lrz>  - ’¥¯«®¢ €«¥ªá¥©  www.lrz.land.ru
  8.  
  9. macro use_check_box
  10. {
  11. ch_text_margin=4     ;à ááâ®ï­¨¥ ®â ¯àאַ㣮«ì­¨ª  祪 ¡®ªá  ¤® ­ ¤¯¨á¨
  12. ch_size=10           ;à §¬¥à ª¢ ¤à â  祪 ¡®ªá 
  13. ch_left equ [edi]    ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® å
  14. ch_top equ [edi+2]   ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® ã
  15. ch_border_color equ [sc.work_graph] ; or [edi+4] ;梥â à ¬ª¨ checkbox ¥¥ ¬®¦­® § ¤ âì á ¬®áâ®ï⥫쭮
  16. ch_text_color equ   [sc.work_text];[edi+4]  ;梥â ⥪áâ 
  17. ch_text_ptr equ [edi+4]    ;㪠§ â¥«ì ­  ­ ç «® ⥪á⮢®© áâப¨
  18. ch_text_length equ [edi+8] ;¤«¨­  ­ ¤¯¨á¨ (2^64 â ª®© ¤«¨­ë ¬®¦¥â ¡ëâì ⥪áâ)
  19. ch_flags equ [edi+10]       ;ä« £¨
  20. check_box:
  21. .draw:
  22. pusha   ;á®åà ­¨¬ ¢á¥ ॣ¨áâàë
  23.         mov     eax,38          ;à¨á®¢ ­¨¥ «¨­¨¨
  24.         movzx   ebx,word ch_left        ;¯®«®¦¥­¨¥ ¯® å
  25.         mov     ecx,ebx         ;á®åà ­¨¬ ¢ ॣ¨áâॠcx §­ ç¥­¨¥ bx  1 ¬¨ªà®®¯¥à æ¨ï
  26.         ;push   bx  ;3 - ¬¨ªà®®¯¥à æ¨¨  ¨á¯®«ì§ãï á⥪ ¬®¦­® ¢ë¨£à âì ¢ à §¬¥à¥, ¨á¯®«ì§ãï ॣ¨áâàë - ¢ ᪮à®áâ¨
  27.         shl     ebx,16          ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
  28.         ;pop    bx  ;2 - ¬¨ªà®®¯¥à æ¨¨  ­  ¤ ­­ë© ¬®¬¥­â áä®à¬¨à®¢ ­  [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ x]*65536 + [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ x]
  29.         mov     bx,cx           ;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ bx
  30.         movzx   ecx,word ch_top ;§ £à㧨¬ ¢ cx §­ ç¥­¨¥ y
  31.         mov     esi,ecx         ;á®åà ­¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx ¢ ॣ¨áâà 㪠§ â¥«ì si                          
  32.         ;push   cx
  33.         shl     ecx,16          ; ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)      mov     cx,si           ;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx
  34.         mov     cx,si           ;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx
  35.         ;pop    cx      ;[ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ y]*65536 + [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ y]
  36.         ;push   cx      
  37.         add     ecx,ch_size ;[ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ y]*65536 + [ª®®à¤¨­ â  ª®­æ  ¯® ®á¨ y]
  38.         mov     edx,ch_border_color ;–¢¥â «¨­¨¨
  39.         int     0x40   ;à¨á®¢ ­¨¥ ¢¥à⨪ «ì­®© «¥¢®© «¨­¨¨ ª¢ ¤à â  (¯àאַ㣮«ì­¨ª )
  40. ;
  41.         mov     ebp,ebx ;á®åà ­¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
  42.         ;push   bx   ;¢â®«ª­ãâì ¢ bx [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ å]*65536 + [ª®®à¤¨­ â  ­ ç «  ¯® ®á¨ x]
  43.         add     ebx,ch_size      ;[ª®®à¤¨­ â  ­ ç «  + ¤«¨­  áâ®à®­ë ¯® ®á¨ å]
  44.         ror     ebx,16          ;[ª®®à¤¨­ â  ­ ç «  + ¤¨­  áâ®à®­ë ¯® ®á¨ å]*65536
  45.         add     ebx,ch_size      ;[ª®®à¤¨­ â  ­ ç « +¤«¨­  áâ®à®­ë ¯® ®á¨ å]*65536 + [ª®®à¤¨­ â  ­ ç « +¤«¨­  áâ®à®­ë ¯® ®á¨ x]
  46.         int     0x40
  47.        
  48.         mov     bx,bp           ;¢®ááâ ­®¢¨¬ §­ ç¥­¨¥ ॣ¨áâà  bx
  49.         ;pop    bx
  50.         mov     cx,si           ;á®åà ­¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx ¢ ॣ¨áâà 㪠§ â¥«ì
  51.         ;pop    cx
  52.         int     0x40
  53.         add     ecx,ch_size     ;¤®¡ ¢¨¬ à §¬¥à áâ®à®­ë
  54.         mov     esi,ecx         ;á®åà ­¨¬ §­ ç¥­¨¥ ॣ¨áâà  cx ¢ ॣ¨áâà 㪠§ â¥«ì si
  55.         ;push   cx
  56.         shl     ecx,16
  57.         mov     cx,si
  58.         ;pop    cx
  59.         int     0x40            ;­ à¨á®¢ «¨ ¯àאַ㣮«ì­¨ª
  60.  
  61.         call    .clear_ch
  62.  
  63.         test    word ch_flags,2  ;¤®áâ âì §­ ç¥­¨¥ ¡¨â  ¨§ ¯¥à¥¬¥­­®© ¨ ¯®¬¥áâ¨âì ¢  ä« £ CF
  64.         jz      @f              ;¢ ¥á«¨ CF=1, â® ¢ë¯®«­¨¬ á«¥¤ãîéãî ¯à®æ¥¤ãàã ¨­ ç¥ ¯¥à¥©â¨ ­  ­¨¦­îî @@
  65.         call    .draw_ch  ;­ à¨á®¢ âì ¢ª«î祭­ë© 祪 ¡®ªá
  66. @@:
  67. ;----------------------------
  68. ;à áç¥â ªã¤  ¡ã¤¥â ¯à®¨§¢¥¤¥­ ¢ë¢®¤ ⥪áâ 
  69. ;----------------------------
  70.         movzx   ebx,word ch_left        ;§ £à㧨âì §­ ç¥­¨¥ å ¤«ï 祪 ¡®ªá 
  71.         add     ebx,(ch_size+ch_text_margin) ;¤®¡ ¢¨âì à §¬¥à áâ®à®­ë ¨ à ááâ®ï­¨¥ ­  ª®â®à®¬ ­ ç­¥âáï ¢ë¢®¤ ⥪áâ 
  72.         shl     ebx,16          ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
  73.         mov     bx,ch_top       ;§ £à㧨¬ §­ ç¥­¨¥ ¯® y
  74.         add     ebx,(ch_size-9+2)       ;¤®¡ ¢¨¬ §­ ç¥­¨¥ ¤«¨­ë áâ®à®­ë -9+2
  75.         mov     ecx,ch_text_color       ;§ £à㧨¬ 梥⠭ ¤¯¨á¨
  76.        
  77.         mov     edx,ch_text_ptr         ;㪠¦¥¬  ¤à¥á ®â ªã¤  ­ã¦­® ¢ë¢®¤¨âì áâபã
  78.         movzx   esi,word ch_text_length ;‡ £à㧨¬ ¤«¨­ã ­ ¤¯¨á¨ ¢ esi
  79.         ;¢­¥á¥¬ ¢ eax §­ ç¥­¨¥ ¢ë¢®¤  ­ ¤¯¨á¨ ­  ª ­¢ã
  80.         mov     eax,4
  81.         int     0x40            ;‚뢮¤
  82. popa                            ;¢®ááâ ­®¢¨âì §­ ç¥­¨ï ॣ¨áâ஢ ¨§ á⥪ 
  83. ret                             ;¢ë©¤¥¬ ¨§ ¯à®æ¥¤ãàë
  84.  
  85. .clear_ch:                      ;®ç¨á⪠ 祪 ¡®ªá 
  86.         mov     edx,dword [sc.work]     ;梥⠢­ãâਠ祪 ¡®ªá 
  87.         jmp     @f              ;¡¥§ãá«®¢­ë© ¯à릮ª ­  ­¨¦­îî ¬¥âªã @@
  88.  
  89. .draw_ch:            ;­ à¨á®¢ âì ¢ª«î祭­ë© 祪 ¡®ªá
  90.         mov     edx,ch_border_color     ;§ £à㧨âì 梥â
  91. @@:
  92.         movzx   ebx,word ch_left        ;§ £à㧨âì ª®®à¤¨­ âã ¯® å
  93.         add     ebx,(ch_size/3) ;¤®¡ ¢¨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /3)
  94.         shl     ebx,16          ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
  95.         mov     bx,(ch_size/2)  ;§ £à㧨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /2)
  96.         mov     bp,bx           ;á®åà ­¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
  97.         ;push   bx
  98.         movzx   ecx,word ch_top ;§ £à㧨âì ª®®à¤¨­ âã ¯® ã
  99.         mov     eax,13          ;¢ eax - §­ ç¥­¨ï ä㭪樨 ¤«ï ¢ë¢®¤  ¯®«®áë â.¥. ¯® áã⨠¯àאַ㣮«ì­¨ª , ª®â®àë© ®â®¡à ¦ ¥â ¢ª«î祭­ë© ª®¬¯®­¥­â 祪 ¡®ªá
  100.         add     ecx,(ch_size/3) ;¤®¡ ¢¨âì (áâ®à®­  ¯àאַ㣮«ì­¨ª /3)
  101.         shl     ecx,16          ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
  102.         mov     cx,bp           ;§ £à㧨¬ §­ ç¥­¨ï ॣ¨áâà  ãª § â¥«ï ¡ §ë ¢ cx
  103.         ;pop    cx
  104.        
  105.         int     0x40            ;¢ë¢®¤
  106. ret                             ;¢ë©â¨ ¨§ ¯à®æ¥¤ãàë
  107.  
  108. .mouse:                 ;®¡à ¡®âª  ¬ëè¨
  109. pusha
  110.         mov     eax,37          ;¡ã¤¥¬ çâ® â® ¤¥« âì ¥á«¨ ã ­ á çâ® - ­¨âì ­ ¦ â®
  111.         mov     ebx,2           ;¢­¥á⨠¢ ॣ¨áâà §­ ç¥­¨¥ 2
  112.         int     0x40            ;¯à®¢¥àª  ­¥ ­ ¦ « «¨ ¯®«ì§®¢ â¥«ì ª­®¯ªã ¬ë誨
  113.         test    eax,eax    ;¯à®¢¥àª  ¥á«¨ ã ­ á ¢ eax=0, â® ãáâ ­®¢¨¬ ä« £ ¨ ¢ë©¤¥¬
  114.         jnz     @f         ;¯¥à¥©â¨ ­  ­¨¦­îî ¬¥âªã @@
  115.         btr     word ch_flags,2  ;¨§¢«¥ç¥­¨¥ §­ ç¥­¨ï § ¤ ­­®£® ¡¨â  ¢ ä« £ cf ¨ ¨§¬¥­¥­¨¥ ¥£® §­ ç¥­¨ï ­  ­ã«¥¢®¥.
  116.         popa                    ;¥á«¨ ­¨ç¥£® ­¥ ¯à®¨§®è«®, â® ¢®ááâ ­®¢¨¬ §­ ç¥­¨ï ॣ¨áâ஢ ¨§ á⥪ 
  117.         ret                     ;¢ë室
  118. @@:
  119.         bts     word ch_flags,2   ;¯à®¢¥àª  ä« £  â.¥. ¯¥à¥­®á ¢ cf §­ ç¥­¨¥ ¡¨â  ¨ ãáâ ­®¢ª  ¡¨â  ¢ á®áâ®ï­¨¥ ¢ª«î祭®
  120.         jc      .mouse_end         ;¥á«¨ CF=1 â® ¯¥à¥©â¨  ¢ ª®­¥æ â.¥. íâ® ¢ë室
  121.         movzx   esi,word ch_text_length ;§ £à㧨âì ª®«-¢® ᨬ¢®«®¢ ¢ ⥪á⮢®© áâப¥
  122.         ;“¬­®¦¥­¨¥ ­  6 ëáâ஥ 㬭®¦¥­¨¥ ¬®¦­® ¢®á¯®«ì§®¢ âìáï «î¡ë¬ ¬§ ¬¥â®¤®¢, ­® ­  áâ àëå à®æ¥áá®à å (386,486,P1)¡ëáâ॥ ¡ã¤¥â á ¨­áâàãªæ¨¥© Lea
  123.         ;lea    esi,[eax*2+eax]
  124.         ;shl    eax,1
  125.         imul    esi,6               ; ¨«¨ ¬®¦­® ¨ â ª 㬭®¦¨âì ­  6
  126.         add     esi,ch_text_margin   ;¤®¡ ¢¨âì 3 - à ááâ®ï­¨¥ ®â 祪 ¡®ªá  ¤® ­ ¤¯¨á¨
  127.        
  128.         mov     eax,37          ;¯®«ã稬 ª®®à¤¨­ âë ¬ë誨
  129.         mov     ebx,1           ;¤®¡ ¢¨âì 1
  130.         int     0x40                ;¯®«ãç¨âì ª®®à¤¨­ âë ªãàá®à  ®â­®á¨â¥«ì­® ®ª­ 
  131.        
  132.         movzx   ebx,word ch_top           ;§ £à㧨âì ¢ bx §­ ç¥­¨¥ ª®®à¤¨­ âë ã
  133.         cmp     ax,bx               ;áà ¢­¨âì á á ª®®à¤¨­ â®© ªãàá®à 
  134.         jl      .mouse_end          ;SF <> OF ¥á«¨ ¬¥­ìè¥
  135.         add     ebx,ch_size          ;¤®¡ ¢¨âì à §¬¥à
  136.         cmp     ax,bx               ;áà ¢­¨âì
  137.         jg      .mouse_end          ;ZF = 0 ¨ SF = OF ¥á«¨ ¡®«ìè¥
  138.        
  139.         shr     eax,16              ;à §¤¥«¨¬ ­  65536 ¨«¨ ¯à®á⮠ᤢ¨­¥¬ ¡¨âë ­  16 §­ ç¥­¨©
  140.         movzx   ebx,word ch_left          ;¯à®¨§¢¥¤¥¬  ­ «®£¨ç­®¥ áà ¢­¥­¨¥
  141.         cmp     ax,bx                ;áà ¢­¨âì ॣ¨áâàë
  142.         jl      .mouse_end           ;¥á«¨ ¬¥­ìè¥
  143.         add     ebx,ch_size          ;¤®¡ ¢¨âì ¤«¨­ã áâ®à®­ë ¯àאַ㣮«ì­¨ª 
  144.         add     ebx,esi             ;“ç¥áâì ¢ §­ ç¥­¨¨ ¯® å ¥é¥ ¨ ¤«¨­ã ­ ¤¯¨á¨ ª 祪¡®ªáã
  145.         cmp     ax,bx                ;áâà ¢­¨âì ॣ¨áâàë
  146.         jg      .mouse_end           ;¥á«¨ ¡®«ìè¥
  147.  
  148.         bts     word ch_flags,1  ;¨§¢«¥ç¥­¨¥ §­ ç¥­¨ï § ¤ ­­®£® ¡¨â  ¢ ä« £ cf ¨ ¨§¬¥­¥­¨¥ ¥£® §­ ç¥­¨ï ­  1.
  149.         jc      @f                ;CF=1 â® ¯¥à¥©â¨ ­  ­¨¦­îî @@
  150.        
  151.         call    .draw_ch          ;®â®¡à §¨âì ¢ª«î祭­ë© 祪 ¡®ªá
  152.         mov     dword [esp+24],1  ;¤ «ì­¥©è ï ¯à®¢¥àª  祪 ¡®ªá®¢ ¡¥á¬ëá«¥­ , ¯® í⮬㠢 á⥪, £¤¥ à á¯®« £ ¥âáï ecx ¯®¬¥áâ¨â¬ 0
  153.         jmp     .mouse_end        ;¢ë©â¨
  154. @@:
  155.         btr     word ch_flags,1  ;¨§¢«¥ç¥­¨¥ §­ ç¥­¨ï § ¤ ­­®£® ¡¨â  ¢ ä« £ cf ¨ ¨§¬¥­¥­¨¥ ¥£® §­ ç¥­¨ï ­  ­ã«¥¢®¥.
  156.         call    .clear_ch         ;¢ëª«îç¨âì 祪 ¡®ªá â.¥. ­  ¬¥á⥠§ ªà è¥­­®£® ¯àאַ㣮«ì­¨ª  ®â®¡à §¨âì 梥â ä®­ .
  157. .mouse_end:
  158. popa                              ;¢®ááâ ­®¢¨âì ॣ¨áâàë ¨§ á⥪ 
  159. ret                               ;¢ë©â¨
  160. }
  161.  
  162. struc check_box left,top,text,text_length,flags
  163. {       ;áâàãªâãà  ¯ à ¬¥â஢ ¤«ï 祪 ¡®ªá 
  164. .left: dw left  ;+0     ;¯®«®¦¥­¨¥ ¯® å
  165. .top: dw top    ;+2     ;¯®«®¦¥­¨¥ ¯® ã
  166. ;.border_color: dd border_color ;+8     梥â à ¬ª¨
  167. ;.text_color: dd text_color     ;+12    梥â ⥪áâ  ­ ¤¯¨á¨
  168. .text: dd text       ;+16                ¤à¥á ¢ ª®¤¥ ¯à®£à ¬¬ë £¤¥ à á¯®«®¦¥­ ⥪áâà
  169. .text_length: dw text_length ; +20      ¤«¨­  ⥪áâ 
  170. .flags: dw flags+0   ;+22               ä« £¨
  171. }
  172. ch_struc_size=12                        ;®¡é ï áâàãªâãà  24 ¡ ©â
  173. ch_flag_en=10b
  174. macro draw_check_boxes start,end        ;à¨á®¢ âì 祪 ¡®ªáë
  175. {
  176.         mov     edi,start                       ;“ª § â¥«ì ­  ­ ç «® ¤ ­­ëå 祪 ¡®ªá®¢ â.¥. ­  ­ ç «® ¤ ­­ëå ¯¥à¢®£® 祪¡®ªá 
  177.         mov     ecx,((end-start)/ch_struc_size) ;Š®«¨ç¥á⢮ 祪 ¡®ªá®¢
  178. @@:
  179.         call    check_box.draw                  ;Žâ®¡à §¨âì 祪 ¡®ªá
  180.         add     edi,ch_struc_size               ;“ª § â¥«ì ­  ¯®á«¥¤ãî騥 祪 ¡®ªáë  â.¥. +28
  181.         loop    @b      ;¯à룭ãâì ¥á«¨ ¢ ecx/cx §­ ç¥­¨¥ ­¥ 0 ­  ¢¥àå­îî @@
  182. }
  183. macro mouse_check_boxes start,end       ;ãáâ ­®¢ª  祪 ¡®ªá®¢, ¢ § ¢¨á¨¬®á⨠®â ᮡëâ¨ï
  184. {
  185.         mov     edi,start               ; “ª § â¥«ì ­  ­ ç «® ¤ ­­ëå 祪 ¡®ªá®¢ â.¥. ­  ­ ç «® ¤ ­­ëå ¯¥à¢®£® 祪¡®ªá 
  186.         mov     ecx,((end-start)/ch_struc_size) ;Š®«¨ç¥á⢮ 祪 ¡®ªá®¢
  187. @@:
  188.         call    check_box.mouse         ;¯à®¢¥àª  ¬ë誨 ¨ ®¡à ¡®âª  ᮡë⨩
  189.         add     edi,ch_struc_size       ;“ª § â¥«ì ­  ¯®á«¥¤ãî騥 祪 ¡®ªáë
  190.         loop    @b      ;¯à룭ãâì ¥á«¨ ¢ ecx/cx §­ ç¥­¨¥ ­¥ 0 ­  ¢¥àå­îî @@
  191. }