Subversion Repositories Kolibri OS

Rev

Rev 1372 | 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. 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. }