Subversion Repositories Kolibri OS

Rev

Rev 1227 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;Їрщы ёючфрэ 13.02.2009 <Lrz> ═р ъюф яЁшьхэхэр GPL2 ышЎхэчш 
  2. ;╠ръЁюё фы  ёшёЄхьэющ сшсышюЄхъш box_lib.obj
  3. ;Optionbox
  4.  
  5. struc option_box point_gr,left,top,op_text_margin,op_size,color,border_color,text_color,text,op_text_length,flags
  6. {        ;структура параметров для чек бокса
  7. op_flag_en=10b
  8. .option_group: dd point_gr
  9. .left: dw left       ;+0 ;положение по х
  10. .top:  dw top        ;положение по у
  11. .ch_text_margin:  dd op_text_margin ;расстояние от прямоугольника чек бокса до надписи
  12. .ch_size: dd op_size ;размер квадрата чек бокса, для примера 12
  13. .color:   dd color   ;цвет внутри чекбокса
  14. .border_color: dd border_color ;цвет рамки
  15. .text_color:   dd text_color   ;цвет надписи
  16. .text: dd text                 ;адрес в коде программы где расположен текст
  17. .ch_text_length: dd op_text_length ;длинна строки с символами
  18. .flags: dd flags+0   ; флаги
  19. }
  20.  
  21. macro use_optionbox_driver      ;ьръЁюё√ ъюЄюЁ√х єяЁрты ■Є ЁрсюЄющ сюъёр )
  22. {
  23. option_box_draw:
  24.         pusha
  25.  
  26.         mov     eax,dword [esp+36]
  27. @@:     mov     edi,dword [eax]
  28.         test    edi,edi
  29.         je      option_check
  30.         call    option_box_draw_box
  31.         add     eax,4
  32.         jmp    @b
  33.  
  34. option_check:
  35.         mov     eax,dword [esp+36]
  36. @@:     mov     edi,dword [eax]
  37.         test    edi,edi
  38.         je      @f
  39.        
  40.         mov     ebx,dword [edi]
  41.         mov     ebx,dword [ebx]
  42.         cmp     edi,ebx
  43.         jne     .clear_op
  44.        
  45.         pusha
  46.         call    option_box_draw_op
  47.         popa
  48.         add     eax,4
  49.         jmp     @b
  50.  
  51. .clear_op:
  52.         pusha
  53.         call    option_box_clear_op
  54.         popa
  55.         add     eax,4
  56.         jmp     @b
  57.  
  58.  
  59. @@:     popa
  60.         ret 4
  61.         ; exit тююс∙х :)
  62.  
  63.  
  64. option_box_mouse:
  65.         pusha
  66.         mcall   37,2
  67.         test    eax,eax
  68.         jnz     @f
  69.         popa
  70.         ret 4
  71. @@:
  72.         mov     eax,dword [esp+36]
  73. @@:     mov     edi,dword [eax]
  74.         test    edi,edi
  75.         je      option_check
  76.         call    option_box_mouse_op
  77.         add     eax,4
  78.         jmp    @b
  79.  
  80. }
  81. macro use_optionbox_draw
  82. {
  83. option_box_draw_box:
  84. option_group equ [edi]
  85. op_left equ [edi+4]    ;ъююЁфшэрЄр эрўрыр Ёшёютрэш  яю ї
  86. op_top equ [edi+6]     ;ъююЁфшэрЄр эрўрыр Ёшёютрэш  яю є
  87. op_text_margin equ [edi+8]      ;=4 ЁрёёЄю эшх юЄ яЁ ьюєуюы№эшър ўхъ сюъёр фю эрфяшёш
  88. op_size equ [edi+12]             ;12 ЁрчьхЁ ътрфЁрЄр ўхъ сюъёр
  89. op_color equ [edi+16]
  90. op_border_color equ [edi+20] ; or [edi+4] ;ЎтхЄ Ёрьъш checkbox хх ьюцэю чрфрЄ№ ёрьюёЄю Єхы№эю
  91. op_text_color equ   [edi+24];[edi+4]  ;ЎтхЄ ЄхъёЄр
  92. op_text_ptr equ [edi+28]    ;єърчрЄхы№ эр эрўрыю ЄхъёЄютющ ёЄЁюъш
  93. op_text_length equ [edi+32]
  94. op_flags equ [edi+36]       ;Їыруш
  95.  
  96.         pusha   ;ёюїЁрэшь тёх ЁхушёЄЁ√
  97.  
  98.         movzx ebx,word op_left
  99.         shl ebx,16
  100.         add ebx,dword op_size
  101.         movzx ecx,word op_top
  102.         shl ecx,16
  103.         add ecx,dword op_size
  104.         mov edx,dword op_border_color
  105.         mov eax,13
  106.         mcall ;Ёшёєхь Ёрьъє
  107.  
  108.         mov edx,dword op_color
  109.         add ebx,1 shl 16 - 2
  110.         add ecx,1 shl 16 - 2
  111.         mcall ;чръЁр°штрхь тэєЄЁхээюёЄш ўхъсюъёр
  112.  
  113. ;        mov     eax,dword option_group
  114. ;        mov     dword eax,[eax]
  115. ;        cmp     eax,edi
  116. ;        jne     @f
  117. ;        call    option_box_draw_op  ;эрЁшёютрЄ№ тъы■ўхээ√щ ўхъ сюъё
  118.  
  119.  
  120. ;----------------------------
  121. ;ЁрёўхЄ ъєфр сєфхЄ яЁюшчтхфхэ т√тюф ЄхъёЄр
  122. ;----------------------------
  123. @@:     movzx ebx,word op_left        ;чруЁєчшЄ№ чэрўхэшх ї фы  ўхъ сюъёр
  124.         add   ebx,dword op_size
  125.         add   ebx,dword op_text_margin;фюсртшЄ№ ЁрчьхЁ ёЄюЁюэ√ ш ЁрёёЄю эшх эр ъюЄюЁюь эрўэхЄё  т√тюф ЄхъёЄр
  126.         shl   ebx,16                ;ёфтшэхь эр 16 ЁрчЁ фют т ыхтю (єьэюцшь эр 65536)
  127.         mov   bx,word op_top        ;чруЁєчшь чэрўхэшх яю y
  128.         add   ebx,op_size
  129.         mov   ecx,dword op_text_color        ;чруЁєчшь ЎтхЄ эрфяшёш + flags
  130.         sub   ebx,7        ;фюсртшь чэрўхэшх фышэ√ ёЄюЁюэ√ -9+2
  131.        
  132.         mov   edx,dword op_text_ptr                ;єърцхь рфЁхё юЄ ъєфр эєцэю т√тюфшЄ№ ёЄЁюъє
  133.         mov   esi,dword op_text_length
  134.         ;тэхёхь т eax чэрўхэшх т√тюфр эрфяшёш эр ърэтє
  135.         mov   eax,4
  136.         mcall                  ;┬√тюф
  137. popa                           ;тюёёЄрэютшЄ№ чэрўхэш  ЁхушёЄЁют шч ёЄхър
  138. ret                            ;т√щфхь шч яЁюЎхфєЁ√
  139.  
  140. option_box_clear_op:                      ;юўшёЄър ўхъ сюъёр
  141.         mov     edx,dword op_color    ;ЎтхЄ тэєЄЁш ўхъ сюъёр
  142.         jmp     @f              ;схчєёыютэ√щ яЁ√цюъ эр эшцэ■■ ьхЄъє @@
  143.  
  144.  
  145. option_box_draw_op:            ;эрЁшёютрЄ№ тъы■ўхээ√щ ўхъ сюъё
  146.         mov   edx,dword op_border_color        ;чруЁєчшЄ№ ЎтхЄ
  147. @@:
  148.         movzx ebx,word op_left  ;чруЁєчшЄ№ ъююЁфшэрЄє яю ї
  149.         mov   eax,dword op_size
  150.         mov   bp,ax
  151.         shr   eax,2
  152.         push  ax
  153.  
  154.         push  ax
  155.         add   ebx,eax          
  156.         shl   ebx,16            ;ёфтшэхь эр 16 ЁрчЁ фют т ыхтю (єьэюцшь эр 65536)
  157.         pop   ax
  158.         lea   eax,[eax*2]
  159.         sub   bp,ax             ;ёюїЁрэшь ЁхушёЄЁ bx т ЁхушёЄЁх єърчрЄхы  срч√
  160.         mov   bx,bp
  161.  
  162.         movzx ecx,word op_top ;чруЁєчшЄ№ ъююЁфшэрЄє яю є
  163.         pop   ax
  164.         add   cx,ax        
  165.         shl   ecx,16          ;ёфтшэхь эр 16 ЁрчЁ фют т ыхтю (єьэюцшь эр 65536)
  166.         mov   cx,bp           ;чруЁєчшь чэрўхэш  ЁхушёЄЁр єърчрЄхы  срч√ т cx
  167.         mov   eax,13          ;т eax - чэрўхэш  ЇєэъЎшш фы  т√тюфр яюыюё√ Є.х. яю ёєЄш яЁ ьюєуюы№эшър, ъюЄюЁ√щ юЄюсЁрцрхЄ тъы■ўхээ√щ ъюьяюэхэЄ ўхъ сюъё
  168.         mcall            ;т√тюф
  169. ret                                ;т√щЄш шч яЁюЎхфєЁ√
  170. }
  171.  
  172.  
  173. macro use_optionbox_mouse
  174. {
  175. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  176. ;╬сЁрсюЄўшъ mouse
  177. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  178. option_box_mouse_op:                 ;юсЁрсюЄър ь√°ш
  179. pusha
  180.         mov     esi,dword op_text_length ;чруЁєчшЄ№ ъюы-тю ёшьтюыют т ЄхъёЄютющ ёЄЁюъх
  181.         ;╙ьэюцхэшх эр 6 ┴√ёЄЁюх єьэюцхэшх ьюцэю тюёяюы№чютрЄ№ё  ы■с√ь ьч ьхЄюфют, эю эр ёЄрЁ√ї ╧ЁюЎхёёюЁрї (386,486,P1)с√ёЄЁхх сєфхЄ ё шэёЄЁєъЎшхщ Lea
  182. ;        lea    esi,[eax*2+eax]
  183. ;        shl    eax,1
  184.         imul    esi,6               ; шыш ьюцэю ш Єръ єьэюцшЄ№ эр 6
  185.         xor     ebx,ebx
  186.         add     esi,dword op_text_margin   ;фюсртшЄ№ 3 - ЁрёёЄю эшх юЄ ўхъ сюъёр фю эрфяшёш
  187.        
  188.         mov     eax,37          ;яюыєўшь ъююЁфшэрЄ√ ь√°ъш
  189.         inc     ebx             ;фюсртшЄ№ 1
  190.         mcall                ;яюыєўшЄ№ ъююЁфшэрЄ√ ъєЁёюЁр юЄэюёшЄхы№эю юъэр
  191.  
  192.         movzx   ebx,word op_top           ;чруЁєчшЄ№ т bx чэрўхэшх ъююЁфшэрЄ√ є
  193.         cmp     ax,bx               ;ёЁртэшЄ№ ё ё ъююЁфшэрЄющ ъєЁёюЁр
  194.         jl      option_box_mouse_end          ;SF <> OF хёыш ьхэ№°х
  195.         add     ebx,dword op_size          ;фюсртшЄ№ ЁрчьхЁ
  196.         cmp     ax,bx               ;ёЁртэшЄ№
  197.         jg      option_box_mouse_end          ;ZF = 0 ш SF = OF хёыш сюы№°х
  198.        
  199.         shr     eax,16              ;Ёрчфхышь эр 65536 шыш яЁюёЄю ёфтшэхь сшЄ√ эр 16 чэрўхэшщ
  200.         movzx   ebx,word op_left          ;яЁюшчтхфхь рэрыюушўэюх ёЁртэхэшх
  201.         cmp     ax,bx                ;ёЁртэшЄ№ ЁхушёЄЁ√
  202.         jl      option_box_mouse_end           ;хёыш ьхэ№°х
  203.         add     ebx,dword op_size          ;фюсртшЄ№ фышэє ёЄюЁюэ√ яЁ ьюєуюы№эшър
  204.         add     ebx,esi              ;╙ўхёЄ№ т чэрўхэшш яю ї х∙х ш фышэє эрфяшёш ъ ўхъсюъёє
  205.         cmp     ax,bx                ;ёЄЁртэшЄ№ ЁхушёЄЁ√
  206.         jg      option_box_mouse_end           ;хёыш сюы№°х
  207.         mov     eax,dword option_group
  208.         mov     [eax],edi
  209.  
  210. option_box_mouse_end:
  211. popa                              ;тюёёЄрэютшЄ№ ЁхушёЄЁ√ шч ёЄхър
  212. ret                               ;т√щЄш
  213.  
  214. }