forked from KolibriOS/kolibrios
BOX_LIB use new controls: SCROLLBAR, DINAMIC BUTTON, MENUBAR.
git-svn-id: svn://kolibrios.org@1037 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Marat Zakiyanov (Mario79)
parent
6dc97d69a6
commit
bd2b02d953
@ -12,6 +12,9 @@ include 'macros.inc'
|
|||||||
include 'editbox.mac' ;¬ ªà®á ª®â®àë© ¤®«¦¥ ®¡«¥£ç¨âì ¦¨§ì :) á¯¥æ¨ «ì® ¤«ï editbox
|
include 'editbox.mac' ;¬ ªà®á ª®â®àë© ¤®«¦¥ ®¡«¥£ç¨âì ¦¨§ì :) á¯¥æ¨ «ì® ¤«ï editbox
|
||||||
include 'checkbox.mac' ;¬ ªà®á ᮤ¥à¦¨â ॠ«¨§ æ¨î checkbox
|
include 'checkbox.mac' ;¬ ªà®á ᮤ¥à¦¨â ॠ«¨§ æ¨î checkbox
|
||||||
include 'optionbox.mac' ;¬ ªà®á ᮤ¥à¦¨â ॠ«¨§ æ¨î optionbox
|
include 'optionbox.mac' ;¬ ªà®á ᮤ¥à¦¨â ॠ«¨§ æ¨î optionbox
|
||||||
|
include 'scrollbar.mac' ;¬ ªà®á ᮤ¥à¦¨â ॠ«¨§ æ¨î scrollbar
|
||||||
|
include 'd_button.mac' ;¬ ªà®á ᮤ¥à¦¨â ॠ«¨§ æ¨î dinamic button
|
||||||
|
include 'menubar.mac' ;¬ ªà®á ᮤ¥à¦¨â ॠ«¨§ æ¨î menubar
|
||||||
;----------------------------------------------------
|
;----------------------------------------------------
|
||||||
;EditBox
|
;EditBox
|
||||||
;----------------------------------------------------
|
;----------------------------------------------------
|
||||||
@ -34,6 +37,25 @@ use_optionbox_driver ;
|
|||||||
use_optionbox_draw ;¬ ªà®á à ááªàë¢ ¥â äãªæ¨î ®â®¡à ¦¥¨ï ¡®ªá .
|
use_optionbox_draw ;¬ ªà®á à ááªàë¢ ¥â äãªæ¨î ®â®¡à ¦¥¨ï ¡®ªá .
|
||||||
use_optionbox_mouse ;¬ ªà®á à ááªàë¢ ¥â äãªæ¨î ®¡à ¡®âª¨ ¬ëè¨.
|
use_optionbox_mouse ;¬ ªà®á à ááªàë¢ ¥â äãªæ¨î ®¡à ¡®âª¨ ¬ëè¨.
|
||||||
|
|
||||||
|
;--------------------------------------------------
|
||||||
|
;scrollbar Group
|
||||||
|
;--------------------------------------------------
|
||||||
|
use_scroll_bar
|
||||||
|
use_scroll_bar_vertical
|
||||||
|
use_scroll_bar_horizontal
|
||||||
|
|
||||||
|
;--------------------------------------------------
|
||||||
|
;dinamic button Group
|
||||||
|
;--------------------------------------------------
|
||||||
|
use_dinamic_button
|
||||||
|
|
||||||
|
;--------------------------------------------------
|
||||||
|
;menubar Group
|
||||||
|
;--------------------------------------------------
|
||||||
|
use_menu_bar
|
||||||
|
|
||||||
|
|
||||||
|
;--------------------------------------------------
|
||||||
align 16
|
align 16
|
||||||
EXPORTS:
|
EXPORTS:
|
||||||
|
|
||||||
@ -47,6 +69,17 @@ EXPORTS:
|
|||||||
dd sz_option_box_draw, option_box_draw
|
dd sz_option_box_draw, option_box_draw
|
||||||
dd sz_option_box_mouse, option_box_mouse
|
dd sz_option_box_mouse, option_box_mouse
|
||||||
dd szVersion_op, 0x00000001
|
dd szVersion_op, 0x00000001
|
||||||
|
dd sz_Scrollbar_ver_draw, scroll_bar_vertical.draw
|
||||||
|
dd sz_Scrollbar_ver_mouse, scroll_bar_vertical.mouse
|
||||||
|
dd sz_Scrollbar_hor_draw, scroll_bar_horizontal.draw
|
||||||
|
dd sz_Scrollbar_hor_mouse, scroll_bar_horizontal.mouse
|
||||||
|
dd szVersion_scrollbar, 0x00010001
|
||||||
|
dd sz_Dbutton_draw, dinamic_button.draw
|
||||||
|
dd sz_Dbutton_mouse, dinamic_button.mouse
|
||||||
|
dd szVersion_dbutton, 0x00010001
|
||||||
|
dd sz_Menu_bar_draw, menu_bar.draw
|
||||||
|
dd sz_Menu_bar_mouse, menu_bar.mouse
|
||||||
|
dd szVersion_menu_bar, 0x00010001
|
||||||
dd 0,0
|
dd 0,0
|
||||||
|
|
||||||
sz_edit_box db 'edit_box',0
|
sz_edit_box db 'edit_box',0
|
||||||
@ -59,6 +92,17 @@ szVersion_ch db 'version_ch',0
|
|||||||
sz_option_box_draw db 'option_box_draw',0
|
sz_option_box_draw db 'option_box_draw',0
|
||||||
sz_option_box_mouse db 'option_box_mouse',0
|
sz_option_box_mouse db 'option_box_mouse',0
|
||||||
szVersion_op db 'version_op',0
|
szVersion_op db 'version_op',0
|
||||||
|
sz_Scrollbar_ver_draw db 'scrollbar_v_draw',0
|
||||||
|
sz_Scrollbar_ver_mouse db 'scrollbar_v_mouse',0
|
||||||
|
sz_Scrollbar_hor_draw db 'scrollbar_h_draw',0
|
||||||
|
sz_Scrollbar_hor_mouse db 'scrollbar_h_mouse',0
|
||||||
|
szVersion_scrollbar db 'version_scrollbar',0
|
||||||
|
sz_Dbutton_draw db 'dbutton_draw',0
|
||||||
|
sz_Dbutton_mouse db 'dbutton_mouse',0
|
||||||
|
szVersion_dbutton db 'version_dbutton',0
|
||||||
|
sz_Menu_bar_draw db 'menu_bar_draw',0
|
||||||
|
sz_Menu_bar_mouse db 'menu_bar_mouse',0
|
||||||
|
szVersion_menu_bar db 'version_menu_bar',0
|
||||||
|
|
||||||
;;;;;;;;;;;
|
;;;;;;;;;;;
|
||||||
;;Data
|
;;Data
|
||||||
|
|||||||
170
programs/develop/libraries/box_lib/trunk/d_button.mac
Normal file
170
programs/develop/libraries/box_lib/trunk/d_button.mac
Normal file
@ -0,0 +1,170 @@
|
|||||||
|
;**************************************************************
|
||||||
|
; Dinamic Button 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 dinamic_button_exit
|
||||||
|
{
|
||||||
|
popa
|
||||||
|
ret 4
|
||||||
|
}
|
||||||
|
;*****************************************************************************
|
||||||
|
macro use_dinamic_button
|
||||||
|
{
|
||||||
|
dinamic_button:
|
||||||
|
db_type equ [edi]
|
||||||
|
db_size_x equ [edi+4]
|
||||||
|
db_start_x equ [edi+6]
|
||||||
|
db_size_y equ [edi+8]
|
||||||
|
db_start_y equ [edi+10]
|
||||||
|
db_mouse_pos equ [edi+12]
|
||||||
|
db_mouse_keys equ [edi+16]
|
||||||
|
db_mouse_keys_old equ [edi+20]
|
||||||
|
db_active_raw equ [edi+24]
|
||||||
|
db_passive_raw equ [edi+28]
|
||||||
|
db_click_raw equ [edi+32]
|
||||||
|
db_resolution_raw equ [edi+36]
|
||||||
|
db_palette_raw equ [edi+40]
|
||||||
|
db_offset_raw equ [edi+44]
|
||||||
|
db_select equ [edi+48]
|
||||||
|
db_click equ [edi+52]
|
||||||
|
;*****************************************************************************
|
||||||
|
;*****************************************************************************
|
||||||
|
; draw event
|
||||||
|
;*****************************************************************************
|
||||||
|
;*****************************************************************************
|
||||||
|
.draw:
|
||||||
|
pusha
|
||||||
|
mov edi,dword [esp+36]
|
||||||
|
call .draw_1
|
||||||
|
dinamic_button_exit
|
||||||
|
|
||||||
|
.draw_1:
|
||||||
|
cmp db_select,dword 1
|
||||||
|
je .active_1
|
||||||
|
cmp db_select,dword 2
|
||||||
|
je .click_2
|
||||||
|
mov ebx,db_passive_raw
|
||||||
|
jmp .draw_2 ;@f
|
||||||
|
.active_1:
|
||||||
|
mov ebx,db_active_raw
|
||||||
|
jmp .draw_2 ;@f
|
||||||
|
.click_2:
|
||||||
|
mov ebx,db_click_raw
|
||||||
|
@@:
|
||||||
|
.draw_2:
|
||||||
|
mov cx,db_size_x
|
||||||
|
shl ecx,16
|
||||||
|
mov cx,db_size_y
|
||||||
|
|
||||||
|
mov dx,db_start_x
|
||||||
|
shl edx,16
|
||||||
|
mov dx,db_start_y
|
||||||
|
|
||||||
|
mov esi,db_resolution_raw
|
||||||
|
|
||||||
|
mov ebp,db_offset_raw
|
||||||
|
|
||||||
|
push edi
|
||||||
|
mov edi,db_palette_raw
|
||||||
|
mcall 65
|
||||||
|
pop edi
|
||||||
|
ret
|
||||||
|
;*****************************************************************************
|
||||||
|
;*****************************************************************************
|
||||||
|
; mouse event
|
||||||
|
;*****************************************************************************
|
||||||
|
;*****************************************************************************
|
||||||
|
.mouse:
|
||||||
|
pusha
|
||||||
|
mov edi,dword [esp+36]
|
||||||
|
mcall 37,2
|
||||||
|
mov ebx,db_mouse_keys
|
||||||
|
mov db_mouse_keys_old,ebx
|
||||||
|
|
||||||
|
mov db_mouse_keys,eax
|
||||||
|
|
||||||
|
mcall 37,1
|
||||||
|
mov db_mouse_pos,eax
|
||||||
|
|
||||||
|
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,db_start_x
|
||||||
|
cmp bx,cx
|
||||||
|
jb .exit_menu
|
||||||
|
|
||||||
|
add cx,db_size_x
|
||||||
|
cmp bx,cx
|
||||||
|
ja .exit_menu
|
||||||
|
|
||||||
|
mov cx,db_start_y
|
||||||
|
cmp ax,cx
|
||||||
|
jb .exit_menu
|
||||||
|
|
||||||
|
add cx,db_size_y
|
||||||
|
cmp ax,cx
|
||||||
|
ja .exit_menu
|
||||||
|
|
||||||
|
test db_mouse_keys,dword 1b
|
||||||
|
jnz @f
|
||||||
|
cmp db_select,dword 1
|
||||||
|
je .exit_menu_1
|
||||||
|
mov db_select,dword 1
|
||||||
|
call .draw_1
|
||||||
|
jmp .exit_menu_1
|
||||||
|
@@:
|
||||||
|
mov eax,db_mouse_keys
|
||||||
|
cmp eax,db_mouse_keys_old
|
||||||
|
je .exit_menu_1
|
||||||
|
|
||||||
|
mov db_select,dword 2
|
||||||
|
call .draw_1
|
||||||
|
mcall 5, 25
|
||||||
|
mov db_select,dword 1
|
||||||
|
call .draw_1
|
||||||
|
|
||||||
|
mov db_click,dword 1
|
||||||
|
jmp .exit_menu_2
|
||||||
|
|
||||||
|
.exit_menu:
|
||||||
|
cmp db_select,dword 0
|
||||||
|
je .exit_menu_1
|
||||||
|
mov db_select,dword 0
|
||||||
|
|
||||||
|
call .draw_1
|
||||||
|
|
||||||
|
.exit_menu_1:
|
||||||
|
; mov db_click,dword 0
|
||||||
|
.exit_menu_2:
|
||||||
|
dinamic_button_exit
|
||||||
|
}
|
||||||
571
programs/develop/libraries/box_lib/trunk/menubar.mac
Normal file
571
programs/develop/libraries/box_lib/trunk/menubar.mac
Normal file
@ -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
|
||||||
|
}
|
||||||
|
|
||||||
1326
programs/develop/libraries/box_lib/trunk/scrollbar.mac
Normal file
1326
programs/develop/libraries/box_lib/trunk/scrollbar.mac
Normal file
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user