Subversion Repositories Kolibri OS

Rev

Rev 1372 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. ;ä ©« ᮧ¤ ­ 13.02.2009 <Lrz>   ª®¤ ¯à¨¬¥­¥­  GPL2 «¨æ¥­§¨ï
  2. ;Œ ªà®á ¤«ï á¨á⥬­®© ¡¨¡«¨®â¥ª¨ box_lib.obj
  3. ;Optionbox
  4.  
  5. macro use_optionbox_driver      ;¬ ªà®áë ª®â®àë¥ ã¯à ¢«ïîâ à ¡®â®© ¡®ªá  )
  6. {
  7. option_box_draw:
  8.         pusha
  9.  
  10.         mov     eax,dword [esp+36]
  11. @@:     mov     edi,dword [eax]
  12.         test    edi,edi
  13.         je      option_check
  14.         call    option_box_draw_box
  15.         add     eax,4
  16.         jmp    @b
  17.  
  18. option_check:
  19.         mov     eax,dword [esp+36]
  20. @@:     mov     edi,dword [eax]
  21.         test    edi,edi
  22.         je      @f
  23.        
  24.         mov     ebx,dword [edi]
  25.         mov     ebx,dword [ebx]
  26.         cmp     edi,ebx
  27.         jne     .clear_op
  28.        
  29.         pusha
  30.         call    option_box_draw_op
  31.         popa
  32.         add     eax,4
  33.         jmp     @b
  34.  
  35. .clear_op:
  36.         pusha
  37.         call    option_box_clear_op
  38.         popa
  39.         add     eax,4
  40.         jmp     @b
  41.  
  42.  
  43. @@:     popa
  44.         ret 4
  45.         ; exit ¢®®¡é¥ :)
  46.  
  47.  
  48. option_box_mouse:
  49.         pusha
  50.         mcall   37,2
  51.         test    eax,eax
  52.         jnz     @f
  53.         popa
  54.         ret 4
  55. @@:
  56.         mov     eax,dword [esp+36]
  57. @@:     mov     edi,dword [eax]
  58.         test    edi,edi
  59.         je      option_check
  60.         call    option_box_mouse_op
  61.         add     eax,4
  62.         jmp    @b
  63.  
  64. }
  65. macro use_optionbox_draw
  66. {
  67. option_box_draw_box:
  68. option_group equ [edi]
  69. op_left equ [edi+4]    ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® å
  70. op_top equ [edi+6]     ;ª®®à¤¨­ â  ­ ç «  à¨á®¢ ­¨ï ¯® ã
  71. op_text_margin equ [edi+8]      ;=4 à ááâ®ï­¨¥ ®â ¯àאַ㣮«ì­¨ª  祪 ¡®ªá  ¤® ­ ¤¯¨á¨
  72. op_size equ [edi+12]             ;12 à §¬¥à ª¢ ¤à â  祪 ¡®ªá 
  73. op_color equ [edi+16]
  74. op_border_color equ [edi+20] ; or [edi+4] ;梥â à ¬ª¨ checkbox ¥¥ ¬®¦­® § ¤ âì á ¬®áâ®ï⥫쭮
  75. op_text_color equ   [edi+24];[edi+4]  ;梥â ⥪áâ 
  76. op_text_ptr equ [edi+28]    ;㪠§ â¥«ì ­  ­ ç «® ⥪á⮢®© áâப¨
  77. op_text_length equ [edi+32]
  78. op_flags equ [edi+36]       ;ä« £¨
  79.  
  80.         pusha   ;á®åà ­¨¬ ¢á¥ ॣ¨áâàë
  81.  
  82.         movzx ebx,word op_left
  83.         shl ebx,16
  84.         add ebx,dword op_size
  85.         movzx ecx,word op_top
  86.         shl ecx,16
  87.         add ecx,dword op_size
  88.         mov edx,dword op_border_color
  89.         mov eax,13
  90.         mcall ;à¨á㥬 à ¬ªã
  91.  
  92.         mov edx,dword op_color
  93.         add ebx,1 shl 16 - 2
  94.         add ecx,1 shl 16 - 2
  95.         mcall ;§ ªà è¨¢ ¥¬ ¢­ãâ७­®á⨠祪¡®ªá 
  96.  
  97. ;        mov     eax,dword option_group
  98. ;        mov     dword eax,[eax]
  99. ;        cmp     eax,edi
  100. ;        jne     @f
  101. ;        call    option_box_draw_op  ;­ à¨á®¢ âì ¢ª«î祭­ë© 祪 ¡®ªá
  102.  
  103.  
  104. ;----------------------------
  105. ;à áç¥â ªã¤  ¡ã¤¥â ¯à®¨§¢¥¤¥­ ¢ë¢®¤ ⥪áâ 
  106. ;----------------------------
  107. @@:     movzx ebx,word op_left        ;§ £à㧨âì §­ ç¥­¨¥ å ¤«ï 祪 ¡®ªá 
  108.         add   ebx,dword op_size
  109.         add   ebx,dword op_text_margin;¤®¡ ¢¨âì à §¬¥à áâ®à®­ë ¨ à ááâ®ï­¨¥ ­  ª®â®à®¬ ­ ç­¥âáï ¢ë¢®¤ ⥪áâ 
  110.         shl   ebx,16                ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
  111.         mov   bx,word op_top        ;§ £à㧨¬ §­ ç¥­¨¥ ¯® y
  112.         add   ebx,op_size
  113.         mov   ecx,dword op_text_color        ;§ £à㧨¬ 梥⠭ ¤¯¨á¨ + flags
  114.         sub   ebx,7        ;¤®¡ ¢¨¬ §­ ç¥­¨¥ ¤«¨­ë áâ®à®­ë -9+2
  115.        
  116.         mov   edx,dword op_text_ptr                ;㪠¦¥¬  ¤à¥á ®â ªã¤  ­ã¦­® ¢ë¢®¤¨âì áâபã
  117.         mov   esi,dword op_text_length
  118.         ;¢­¥á¥¬ ¢ eax §­ ç¥­¨¥ ¢ë¢®¤  ­ ¤¯¨á¨ ­  ª ­¢ã
  119.         mov   eax,4
  120.         mcall                  ;‚뢮¤
  121. popa                           ;¢®ááâ ­®¢¨âì §­ ç¥­¨ï ॣ¨áâ஢ ¨§ á⥪ 
  122. ret                            ;¢ë©¤¥¬ ¨§ ¯à®æ¥¤ãàë
  123.  
  124. option_box_clear_op:                      ;®ç¨á⪠ 祪 ¡®ªá 
  125.         mov     edx,dword op_color    ;梥⠢­ãâਠ祪 ¡®ªá 
  126.         jmp     @f              ;¡¥§ãá«®¢­ë© ¯à릮ª ­  ­¨¦­îî ¬¥âªã @@
  127.  
  128.  
  129. option_box_draw_op:            ;­ à¨á®¢ âì ¢ª«î祭­ë© 祪 ¡®ªá
  130.         mov   edx,dword op_border_color        ;§ £à㧨âì 梥â
  131. @@:
  132.         movzx ebx,word op_left  ;§ £à㧨âì ª®®à¤¨­ âã ¯® å
  133.         mov   eax,dword op_size
  134.         mov   bp,ax
  135.         shr   eax,2
  136.         push  ax
  137.  
  138.         push  ax
  139.         add   ebx,eax          
  140.         shl   ebx,16            ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
  141.         pop   ax
  142.         lea   eax,[eax*2]
  143.         sub   bp,ax             ;á®åà ­¨¬ ॣ¨áâà bx ¢ ॣ¨áâॠ㪠§ â¥«ï ¡ §ë
  144.         mov   bx,bp
  145.  
  146.         movzx ecx,word op_top ;§ £à㧨âì ª®®à¤¨­ âã ¯® ã
  147.         pop   ax
  148.         add   cx,ax        
  149.         shl   ecx,16          ;ᤢ¨­¥¬ ­  16 à §à冷¢ ¢ «¥¢® (㬭®¦¨¬ ­  65536)
  150.         mov   cx,bp           ;§ £à㧨¬ §­ ç¥­¨ï ॣ¨áâà  ãª § â¥«ï ¡ §ë ¢ cx
  151.         mov   eax,13          ;¢ eax - §­ ç¥­¨ï ä㭪樨 ¤«ï ¢ë¢®¤  ¯®«®áë â.¥. ¯® áã⨠¯àאַ㣮«ì­¨ª , ª®â®àë© ®â®¡à ¦ ¥â ¢ª«î祭­ë© ª®¬¯®­¥­â 祪 ¡®ªá
  152.         mcall            ;¢ë¢®¤
  153. ret                                ;¢ë©â¨ ¨§ ¯à®æ¥¤ãàë
  154. }
  155.  
  156.  
  157. macro use_optionbox_mouse
  158. {
  159. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  160. ;Ž¡à ¡®â稪 mouse
  161. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  162. option_box_mouse_op:                 ;®¡à ¡®âª  ¬ëè¨
  163. pusha
  164.         mov     esi,dword op_text_length ;§ £à㧨âì ª®«-¢® ᨬ¢®«®¢ ¢ ⥪á⮢®© áâப¥
  165.         ;“¬­®¦¥­¨¥ ­  6 ëáâ஥ 㬭®¦¥­¨¥ ¬®¦­® ¢®á¯®«ì§®¢ âìáï «î¡ë¬ ¬§ ¬¥â®¤®¢, ­® ­  áâ àëå à®æ¥áá®à å (386,486,P1)¡ëáâ॥ ¡ã¤¥â á ¨­áâàãªæ¨¥© Lea
  166. ;        lea    esi,[eax*2+eax]
  167. ;        shl    eax,1
  168.         imul    esi,6               ; ¨«¨ ¬®¦­® ¨ â ª 㬭®¦¨âì ­  6
  169.         xor     ebx,ebx
  170.         add     esi,dword op_text_margin   ;¤®¡ ¢¨âì 3 - à ááâ®ï­¨¥ ®â 祪 ¡®ªá  ¤® ­ ¤¯¨á¨
  171.        
  172.         mov     eax,37          ;¯®«ã稬 ª®®à¤¨­ âë ¬ë誨
  173.         inc     ebx             ;¤®¡ ¢¨âì 1
  174.         mcall                ;¯®«ãç¨âì ª®®à¤¨­ âë ªãàá®à  ®â­®á¨â¥«ì­® ®ª­ 
  175.  
  176.         movzx   ebx,word op_top           ;§ £à㧨âì ¢ bx §­ ç¥­¨¥ ª®®à¤¨­ âë ã
  177.         cmp     ax,bx               ;áà ¢­¨âì á á ª®®à¤¨­ â®© ªãàá®à 
  178.         jl      option_box_mouse_end          ;SF <> OF ¥á«¨ ¬¥­ìè¥
  179.         add     ebx,dword op_size          ;¤®¡ ¢¨âì à §¬¥à
  180.         cmp     ax,bx               ;áà ¢­¨âì
  181.         jg      option_box_mouse_end          ;ZF = 0 ¨ SF = OF ¥á«¨ ¡®«ìè¥
  182.        
  183.         shr     eax,16              ;à §¤¥«¨¬ ­  65536 ¨«¨ ¯à®á⮠ᤢ¨­¥¬ ¡¨âë ­  16 §­ ç¥­¨©
  184.         movzx   ebx,word op_left          ;¯à®¨§¢¥¤¥¬  ­ «®£¨ç­®¥ áà ¢­¥­¨¥
  185.         cmp     ax,bx                ;áà ¢­¨âì ॣ¨áâàë
  186.         jl      option_box_mouse_end           ;¥á«¨ ¬¥­ìè¥
  187.         add     ebx,dword op_size          ;¤®¡ ¢¨âì ¤«¨­ã áâ®à®­ë ¯àאַ㣮«ì­¨ª 
  188.         add     ebx,esi              ;“ç¥áâì ¢ §­ ç¥­¨¨ ¯® å ¥é¥ ¨ ¤«¨­ã ­ ¤¯¨á¨ ª 祪¡®ªáã
  189.         cmp     ax,bx                ;áâà ¢­¨âì ॣ¨áâàë
  190.         jg      option_box_mouse_end           ;¥á«¨ ¡®«ìè¥
  191.         mov     eax,dword option_group
  192.         mov     [eax],edi
  193.  
  194. option_box_mouse_end:
  195. popa                              ;¢®ááâ ­®¢¨âì ॣ¨áâàë ¨§ á⥪ 
  196. ret                               ;¢ë©â¨
  197.  
  198. }