kolibrios-gitea/programs/develop/libraries/box_lib/trunk/menubar.mac

;**************************************************************
; MenuBar Macro for Kolibri OS
; Copyright (c) 2009, Marat Zakiyanov aka Mario79, aka Mario
; 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 Marat Zakiyanov ''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_ret_key		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	dword m_select,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	dword m_select,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
;*****************************************************************************
;*****************************************************************************
.activate:
	pusha
	mov	edi,dword [esp+36]
	jmp	.start_loop
.mouse:
	pusha
	mov	edi,dword [esp+36]

	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	dword m_mouse_keys,1b
	jnz	@f
	cmp	dword m_select,1
	je	.exit_menu_1
	mov	dword m_select,1
	call	.draw_1
	jmp	.exit_menu_1
@@:

	cmp	dword m_get_mouse_flag,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
@@:
.start_loop:
	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
	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	dword m_extended_key,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
	cmp	ah,75  ; L-Arrow down
	je	.menu_key_75_1
	cmp	ah,77  ; R-Arrow down
	je	.menu_key_77_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,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,157  ; Ctrl up
	je	.key_menu_end
	cmp	ah,184  ; Alt up
	je	.key_menu_end
	cmp	ah,170  ; L-Shift up
	je	.key_menu_end
	cmp	ah,182  ; R-Shift up
	je	.key_menu_end
	cmp	ah,203  ; L-Arrow up
	je	.key_menu_end
	cmp	ah,205  ; R-Arrow up
	je	.key_menu_end

	jmp	.exit_menu_3

;---------------------------------------------------------------------
.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	dword m_cursor,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_75
.menu_key_28_1:
	xor	eax,eax
	mov	m_mouse_keys_old,eax
	inc	eax
	mov	m_mouse_keys,eax
	jmp	.exit_menu_2
;---------------------------------------------------------------------
.menu_key_75:
	cmp	ah,75  ; L-Arrow down
	jne	.menu_key_77
.menu_key_75_1:
	mov	m_ret_key,dword 1
	jmp	.exit_menu_3
;---------------------------------------------------------------------
.menu_key_77:
	cmp	ah,77  ; R-Arrow down
	jne	.key_menu_end_1
.menu_key_77_1:
	mov	m_ret_key,dword 2
	jmp	.exit_menu_3
;---------------------------------------------------------------------
.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
	ret
;---------------------------------------------------------------------
.allocate_menu_area:
	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:
	cmp	dword m_buf_adress,0
	je	@f
	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]
	add	dx,[eax+54]
	shl	edx,16
	mov	dx,m_start_y1
	add	dx,[eax+38]
	add	dx,[eax+58]
	 
	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
	call	.free_menu_area
	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	dword m_select,0
	je	.exit_menu_1
	mov	m_select,dword 0
	 
	call	.draw_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
}