| 0,0 → 1,571 |
|---|
| ;************************************************************** |
| ; MenuBar Macro for Kolibri OS |
| ; Copyright (c) 2009, Mario79 |
| ; All rights reserved. |
| ; |
| ; Redistribution and use in source and binary forms, with or without |
| ; modification, are permitted provided that the following conditions are met: |
| ; * Redistributions of source code must retain the above copyright |
| ; notice, this list of conditions and the following disclaimer. |
| ; * Redistributions in binary form must reproduce the above copyright |
| ; notice, this list of conditions and the following disclaimer in the |
| ; documentation and/or other materials provided with the distribution. |
| ; * Neither the name of the <organization> nor the |
| ; names of its contributors may be used to endorse or promote products |
| ; derived from this software without specific prior written permission. |
| ; |
| ; THIS SOFTWARE IS PROVIDED BY Mario79 ''AS IS'' AND ANY |
| ; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED |
| ; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE |
| ; DISCLAIMED. IN NO EVENT SHALL <copyright holder> BE LIABLE FOR ANY |
| ; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES |
| ; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; |
| ; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND |
| ; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
| ; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS |
| ; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| ;***************************************************************************** |
| macro menu_bar_exit |
| { |
| popa |
| ret 4 |
| } |
| ;***************************************************************************** |
| macro use_menu_bar |
| { |
| menu_bar: |
| m_type equ [edi] |
| m_size_x equ [edi+4] |
| m_start_x equ [edi+6] |
| m_size_y equ [edi+8] |
| m_start_y equ [edi+10] |
| m_text_pointer equ [edi+12] |
| m_pos_pointer equ [edi+16] |
| m_text_end equ [edi+20] |
| m_mouse_pos equ [edi+24] |
| m_mouse_keys equ [edi+28] |
| m_size_x1 equ [edi+32] |
| m_start_x1 equ [edi+34] |
| m_size_y1 equ [edi+36] |
| m_start_y1 equ [edi+38] |
| m_bckg_col equ [edi+40] |
| m_frnt_col equ [edi+44] |
| m_menu_col equ [edi+48] |
| m_select equ [edi+52] |
| m_out_select equ [edi+56] |
| m_buf_adress equ [edi+60] |
| m_procinfo equ [edi+64] |
| m_click equ [edi+68] |
| m_cursor equ [edi+72] |
| m_cursor_old equ [edi+76] |
| m_interval equ [edi+80] |
| m_cursor_max equ [edi+84] |
| m_extended_key equ [edi+88] |
| m_menu_sel_col equ [edi+92] |
| m_bckg_text_col equ [edi+96] |
| m_frnt_text_col equ [edi+100] |
| m_mouse_keys_old equ [edi+104] |
| m_font_height equ [edi+108] |
| m_cursor_out equ [edi+112] |
| m_get_mouse_flag equ [edi+116] |
| ;***************************************************************************** |
| ;***************************************************************************** |
| ; draw event |
| ;***************************************************************************** |
| ;***************************************************************************** |
| .draw: |
| pusha |
| mov edi,dword [esp+36] |
| call .draw_1 |
| menu_bar_exit |
| .draw_1: |
| call .calc_m_cursor_max |
| dec dword m_cursor_max |
| mov eax,m_cursor_max |
| imul eax,m_interval |
| mov m_size_y1,ax |
| |
| mov ebx,m_size_x |
| mov ecx,m_size_y |
| cmp m_select,dword 1 |
| je .active |
| mov edx,m_bckg_col |
| jmp @f |
| .active: |
| mov edx,m_frnt_col |
| @@: |
| mcall 13 |
| shr ecx,16 |
| mov bx,cx |
| movzx eax,word m_size_y |
| call .calculate_font_offset |
| cmp m_select,dword 1 |
| je .active_1 |
| mov ecx,m_bckg_text_col |
| add ecx,0x80000000 |
| jmp @f |
| .active_1: |
| mov ecx,m_frnt_text_col |
| add ecx,0x80000000 |
| @@: |
| mov edx,m_text_pointer |
| mcall 4 |
| ret |
| |
| .draw_2: |
| mov ebx,m_size_x1 |
| mov ecx,m_size_y1 |
| mov edx,m_menu_col |
| mcall 13 |
| ret |
| |
| .calculate_font_offset: |
| sub eax,m_font_height |
| shr eax,1 |
| add ebx,eax |
| add ebx,4 shl 16 |
| ret |
| |
| .draw_3: |
| mov ebx,m_size_x1 |
| mov ecx,m_size_y1 |
| |
| push ebx ecx |
| mov eax,m_cursor_old |
| imul eax,m_interval |
| shl eax,16 |
| add ecx,eax |
| mov cx,m_interval |
| mov edx,m_menu_col |
| mcall 13 |
| pop ecx ebx |
| |
| push ebx ecx |
| mov eax,m_cursor |
| imul eax,m_interval |
| shl eax,16 |
| add ecx,eax |
| mov cx,m_interval |
| mov edx,m_menu_sel_col |
| mcall 13 |
| pop ecx ebx |
| |
| shr ecx,16 |
| mov bx,cx |
| mov eax,m_interval |
| call .calculate_font_offset |
| mov edx,m_pos_pointer |
| xor ebp,ebp |
| @@: |
| cmp ebp,m_cursor |
| jne .no_active_text |
| mov ecx,m_frnt_text_col |
| jmp .active_text |
| .no_active_text: |
| mov ecx,m_bckg_text_col |
| .active_text: |
| add ecx,0x80000000 |
| mcall 4 |
| call .get_next_text |
| inc ebp |
| add ebx,m_interval |
| jmp @r |
| .draw_end: |
| ret |
| |
| .calc_m_cursor_max: |
| mov edx,m_pos_pointer |
| mov m_cursor_max,dword 0 |
| @@: |
| inc dword m_cursor_max |
| call .get_next_text |
| jmp @r |
| ;***************************************************************************** |
| .get_next_text: |
| mov esi,edx |
| @@: |
| cmp esi,m_text_end |
| je .get_next_text_end |
| cld |
| lodsb |
| test al,al |
| jnz @r |
| mov edx,esi |
| ret |
| .get_next_text_end: |
| add esp,4 |
| ret |
| ;***************************************************************************** |
| ;***************************************************************************** |
| ; mouse event |
| ;***************************************************************************** |
| ;***************************************************************************** |
| .mouse: |
| pusha |
| mov edi,dword [esp+36] |
| ;.mouse_1: |
| ; mov eax,m_mouse_pos |
| ; cmp m_get_mouse_flag,dword 0 |
| ; je @f |
| call .processing_real_mouse |
| ;@@: |
| test eax,0x80000000 |
| jnz .exit_menu |
| test eax,0x8000 |
| jnz .exit_menu |
| |
| mov ebx,eax |
| shr ebx,16 ; x position |
| shl eax,16 |
| shr eax,16 ; y position |
| |
| mov cx,m_start_x |
| cmp bx,cx |
| jb .exit_menu |
| |
| add cx,m_size_x |
| dec cx |
| cmp bx,cx |
| ja .exit_menu |
| |
| mov cx,m_start_y |
| cmp ax,cx |
| jb .exit_menu |
| |
| add cx,m_size_y |
| cmp ax,cx |
| ja .exit_menu |
| |
| test m_mouse_keys,dword 1b |
| jnz @f |
| cmp m_select,dword 1 |
| je .exit_menu_1 |
| mov m_select,dword 1 |
| call .draw_1 |
| jmp .exit_menu_1 |
| @@: |
| |
| cmp m_get_mouse_flag,dword 1 |
| mov m_get_mouse_flag,dword 0 |
| je @f |
| |
| mov eax,m_mouse_keys |
| cmp eax,m_mouse_keys_old |
| je .exit_menu_1 |
| @@: |
| mov m_select,dword 1 |
| call .draw_1 |
| call .allocate_menu_area |
| call .get_menu_area |
| |
| call .draw_2 |
| .red: |
| call .draw_3 |
| .still: |
| mcall 10 |
| cmp eax,1 |
| je .exit_menu_3 ;red |
| cmp eax,2 |
| je .key_menu |
| cmp eax,3 |
| je .exit_menu_3 |
| cmp eax,6 |
| je .mouse_menu |
| jmp .still |
| |
| .key_menu: |
| mcall 2 |
| cmp m_extended_key,dword 1 |
| je .extended_key |
| test al,al |
| jnz .key_menu_end |
| cmp ah, 0xE0 |
| jne @f |
| mov m_extended_key,dword 1 |
| .key_menu_end: |
| jmp .still |
| @@: |
| cmp ah,72 ;Arrow Up |
| je .menu_key_72_1 |
| cmp ah,80 ; Arrow Down |
| je .menu_key_80_1 |
| cmp ah,28 ; Enter |
| je .menu_key_28_1 |
| cmp ah,1 ; Esc |
| je .menu_key_1_1 |
| .key_menu_end_1: |
| cmp ah,208 ; Arrow Down |
| je .key_menu_end |
| cmp ah,200 ; Arrow Up |
| je .key_menu_end |
| cmp ah,156 ; Enter |
| je .key_menu_end |
| cmp ah,129 ; Esc |
| je .key_menu_end |
| ; cmp ah,184 ;Alt to Up |
| ; je .end_5 |
| ; cmp ah,187 ; F1 to Up |
| ; je .end_1 |
| ; cmp ah,188 ; F2 to Up |
| ; je .end_1 |
| cmp ah,199 ;Home |
| je .key_menu_end |
| cmp ah,207 ;End |
| je .key_menu_end |
| cmp ah,201 ;Page UP |
| je .key_menu_end |
| cmp ah,209 ;Page Down |
| je .key_menu_end |
| cmp ah,42 ; NumLock ON |
| je .key_menu_end |
| cmp ah,170 ; NumLock ON |
| je .key_menu_end |
| cmp ah,210 ; Insert |
| je .key_menu_end |
| cmp ah,211 ; Delete |
| je .key_menu_end |
| ; cmp ah,56 ;Alt to Up |
| ; je .end_4 |
| ; cmp ah,59 ; F1 to Down |
| ; je .end_2 |
| ; cmp ah,60 ; F2 to Down |
| ; je .end_3 |
| |
| ;.for_all_key: |
| ; mov [close_menu],1 |
| ; ret |
| jmp .exit_menu_3 ;.still |
| |
| ;--------------------------------------------------------------------- |
| .extended_key: |
| mov m_extended_key, dword 0 |
| .menu_key_80: |
| cmp ah,80 ; arrow down |
| jne .menu_key_72 |
| .menu_key_80_1: |
| mov eax,m_cursor_max |
| dec eax |
| cmp eax,m_cursor |
| je .still ;@f |
| mov ebx,m_cursor |
| mov m_cursor_old,ebx |
| inc dword m_cursor |
| ;@@: |
| jmp .red |
| ;--------------------------------------------------------------------- |
| .menu_key_72: |
| cmp ah,72 ;arrow up |
| jne .menu_key_71 |
| .menu_key_72_1: |
| cmp m_cursor,dword 0 |
| je .still ;@f |
| mov ebx,m_cursor |
| mov m_cursor_old,ebx |
| dec dword m_cursor |
| ;@@: |
| jmp .red |
| ;--------------------------------------------------------------------- |
| .menu_key_71: |
| cmp ah,71 ;Home |
| je @f |
| cmp ah,73 ;PageUp |
| jne .menu_key_79 |
| @@: |
| cmp m_cursor,dword 0 |
| je .still |
| mov ebx,m_cursor |
| mov m_cursor_old,ebx |
| mov m_cursor,dword 0 |
| jmp .red |
| ;--------------------------------------------------------------------- |
| .menu_key_79: |
| cmp ah,79 ; End |
| je @f |
| cmp ah,81 ; PageDown |
| jne .menu_key_1 |
| @@: |
| mov ecx,m_cursor_max |
| dec ecx |
| cmp m_cursor,ecx |
| je .still |
| mov ebx,m_cursor |
| mov m_cursor_old,ebx |
| mov m_cursor,ecx |
| jmp .red |
| ;--------------------------------------------------------------------- |
| .menu_key_1: |
| cmp ah,1 ; Esc |
| jne .menu_key_28 |
| .menu_key_1_1: |
| jmp .exit_menu_3 |
| ;--------------------------------------------------------------------- |
| .menu_key_28: |
| cmp ah,28 ; Enter |
| jne .menu_key_end |
| .menu_key_28_1: |
| ; mov [press_enter_menu],1 |
| ; ret |
| jmp .exit_menu_2 |
| .menu_key_end: |
| jmp .key_menu_end_1 |
| ;--------------------------------------------------------------------- |
| .processing_real_mouse: |
| mcall 37,2 |
| mov ebx,m_mouse_keys |
| mov m_mouse_keys_old,ebx |
| mov m_mouse_keys,eax |
| |
| mcall 37,1 |
| mov m_mouse_pos,eax |
| ret |
| ;--------------------------------------------------------------------- |
| .allocate_menu_area: |
| cmp m_buf_adress,dword 0 |
| je @f |
| call .free_menu_area |
| @@: |
| movzx ecx,word m_size_x1 |
| movzx eax,word m_size_y1 |
| imul ecx,eax |
| lea ecx,[ecx*3] |
| mcall 68, 12 |
| mov m_buf_adress,eax |
| ret |
| ;--------------------------------------------------------------------- |
| .free_menu_area: |
| mcall 68,13,m_buf_adress |
| xor eax,eax |
| mov m_buf_adress,eax |
| ret |
| ;--------------------------------------------------------------------- |
| .get_menu_area: |
| mcall 9, m_procinfo,-1 |
| |
| mov cx,m_size_x1 |
| shl ecx,16 |
| mov cx,m_size_y1 |
| |
| mov dx,m_start_x1 |
| mov eax,m_procinfo |
| add dx,[eax+34] |
| shl edx,16 |
| mov dx,m_start_y1 |
| add dx,[eax+38] |
| |
| mcall 36, m_buf_adress |
| ret |
| ;--------------------------------------------------------------------- |
| .put_menu_area: |
| mov cx,m_size_x1 |
| shl ecx,16 |
| mov cx,m_size_y1 |
| |
| mov dx,m_start_x1 |
| shl edx,16 |
| mov dx,m_start_y1 |
| |
| mcall 7, m_buf_adress |
| ret |
| ;--------------------------------------------------------------------- |
| .mouse_menu: |
| call .processing_real_mouse |
| |
| test eax,0x80000000 |
| jnz .still |
| test eax,0x8000 |
| jnz .still |
| |
| mov ebx,eax |
| shr ebx,16 |
| shl eax,16 |
| shr eax,16 |
| |
| xor ecx,ecx |
| mov cx,m_start_y1 |
| cmp ax,cx |
| jbe .close |
| add cx,m_size_y1 |
| cmp ax,cx |
| jae .close |
| mov cx,m_start_x1 |
| cmp bx,cx |
| jbe .close |
| add cx,m_size_x1 |
| cmp bx,cx |
| jae .close |
| sub ax,m_start_y1 |
| mov ebx,m_interval |
| xor edx,edx |
| div ebx |
| mov ebx,m_cursor |
| cmp eax,ebx |
| je .no_red |
| mov m_cursor_old,ebx |
| cmp eax,m_cursor_max |
| jb @f |
| mov eax,m_cursor_max |
| @@: |
| mov m_cursor,eax |
| test m_mouse_keys,dword 1b |
| jz .red |
| jmp .exit_menu_2 |
| .no_red: |
| test m_mouse_keys,dword 1b |
| jz .still |
| jmp .exit_menu_2 |
| .close: |
| test m_mouse_keys,dword 1b |
| jz .still |
| jmp .exit_menu_3 |
| |
| .exit_menu: |
| cmp m_select,dword 0 |
| je .exit_menu_1 |
| mov m_select,dword 0 |
| |
| call .draw_1 |
| ; jmp .exit_menu_1 |
| test m_mouse_keys,dword 1b |
| jz .exit_menu_1 |
| |
| .exit_menu_3: |
| mov m_select,dword 0 |
| call .put_menu_area |
| xor eax,eax |
| mov m_cursor_out,eax |
| jmp .exit |
| |
| .exit_menu_2: |
| mov m_select,dword 0 |
| call .put_menu_area |
| mov edx,m_pos_pointer |
| |
| mov ebx,m_cursor |
| @@: |
| cmp ebx,0 |
| jz @f |
| dec ebx |
| call .get_next_text |
| jmp @r |
| |
| @@: |
| mov m_out_select,edx |
| mov eax,m_cursor |
| inc eax |
| mov m_cursor_out,eax |
| |
| mov eax,m_mouse_keys |
| cmp eax,m_mouse_keys_old |
| jne .exit |
| xor eax,eax |
| mov m_cursor_out,eax |
| .exit: |
| call .draw_1 |
| mov m_click,dword 1 |
| jmp @f |
| .exit_menu_1: |
| mov m_click,dword 0 |
| @@: |
| menu_bar_exit |
| } |
| |