kolibrios-gitea/programs/develop/libraries/box_lib/asm/trunk/ctrldemo.asm

;*****************************************************************************
; Example for Box_lib: scrollbar, menubar, dinamic_button
; 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.
;******************************************************************************
; import_boxlib procedure written by <Lrz>
;---------------------------------------------------------------------

	use32
	org 0x0

	db 'MENUET01'
	dd 0x01
	dd START
	dd IM_END
	dd I_END
	dd stacktop
	dd 0x0
	dd path

include '../../../../../macros.inc'
include '../../load_lib.mac'
;include 'macros.inc'
;include 'load_lib.mac'
@use_library
include 'opendial.mac'
use_OpenDialog
;---------------------------------------------------------------------
;--- Start of program ----------------------------------------------
;---------------------------------------------------------------------
START:
	mcall	68,11
	mcall	66,1,1
	mcall	40,0x27
;---------------------------------------------------------------------	

load_libraries	l_libs_start,end_l_libs

	test	eax,eax
	jnz	button.exit

; unpack deflate
	mov	eax,[unpack_DeflateUnpack2]
	mov	[deflate_unpack],eax

; OpenDialog initialisation
init_OpenDialog	OpenDialog_data

	mov	edi,filename_area
	mov	esi,start_temp_file_name
	xor	eax,eax
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
	
	
;	mov	ebx,icons_file_name
;	mov	esi,path
;	mov	edi,file_name

	copy_path	icons_file_name,path,library_path,0
	
	mcall	70,fileinfo

	mov	[fileinfo+0],dword 0

	mov	ecx,[file_info+32]
	mov	[fileinfo+12],ecx
	mov	[img_size],ecx
	

	mcall	68,12


	mov	[fileinfo+16],eax
	mov	[image_file],eax


	mcall	70,fileinfo
	
	xor	eax,eax
	mov	[return_code],eax
	mov	eax,image_file
	call	[cnv_png_import.Start]
	
	mov	ecx,[image_file]
	mcall	68,13,
	
	cmp	[return_code],dword 0
	jne	button.exit
	
	mov	ebx,[raw_pointer]
	mov	eax,[ebx+4]
; set of button size
	mov	[dinamic_button_data_1.size_x],ax
	mov	[dinamic_button_data_1.size_y],ax
	mov	[dinamic_button_data_2.size_x],ax
	mov	[dinamic_button_data_2.size_y],ax
	mov	eax,[ebx+12]
; set of RAW resolution to pixel
	mov	[dinamic_button_data_1.resolution_raw],eax
	mov	[dinamic_button_data_2.resolution_raw],eax
	mov	eax,[ebx+20]
	add	eax,ebx
; set RAW palette, use else resolution 8bit or less
	mov	[dinamic_button_data_1.palette_raw],eax
	mov	[dinamic_button_data_2.palette_raw],eax
	mov	eax,[ebx+28]
	add	eax,ebx
; set RAW area for passive button
	mov	[dinamic_button_data_1.passive_raw],eax
	mov	[dinamic_button_data_2.passive_raw],eax
	mov	ecx,[ebx+4]
	imul	ecx,[ebx+4]
	imul	ecx,[ebx+12]
	shr	ecx,3
	add	eax,ecx
; set RAW area for active button
	mov	[dinamic_button_data_1.active_raw],eax
	mov	[dinamic_button_data_2.active_raw],eax
	add	eax,ecx
; RAW area for click button
	mov	[dinamic_button_data_1.click_raw],eax
	mov	[dinamic_button_data_2.click_raw],eax
;---------------------------------------------------------------------
red:
	call	draw_window
still:
	mcall	10

	cmp	eax,1
	je	red
	cmp	eax,2
	je	key
	cmp	eax,3
	je	button
	cmp	eax,6
	je	mouse
	jmp	still
;---------------------------------------------------------------------
	key:
	mcall	2
	jmp	still
;---------------------------------------------------------------------
	button:
	mcall	17
	cmp	ah,1
	jne	still
	.exit:
	mcall	-1
;---------------------------------------------------------------------
mouse:
;-----------------------------------------------
	cmp	[scroll_bar_data_horizontal.delta2],0
	jne	.horizontal
.vertical:
	mov	eax,[scroll_bar_data_vertical.max_area]
	cmp	eax,[scroll_bar_data_vertical.cur_area]
	jbe	.horizontal
; mouse event for Vertical ScrollBar
	push	dword scroll_bar_data_vertical
	call	[scrollbar_ver_mouse]
	mov	eax,scroll_bar_data_vertical.redraw
	xor	ebx,ebx
	cmp	[eax],ebx
	je	@f
	mov	[eax],ebx
	jmp	.draw_cube
@@:
	cmp	[scroll_bar_data_vertical.delta2],0
	jne	still
.horizontal:
	mov	eax,[scroll_bar_data_horizontal.max_area]
	cmp	eax,[scroll_bar_data_horizontal.cur_area]
	jbe	.other
; mouse event for Horizontal ScrollBar
	push	dword scroll_bar_data_horizontal
	call	[scrollbar_hor_mouse]
	mov	eax,scroll_bar_data_horizontal.redraw
	xor	ebx,ebx
	cmp	[eax],ebx	
	je	.other
	mov	[eax],ebx
.draw_cube:
	call	draw_cube
	jmp	still
.other:
	cmp	[scroll_bar_data_vertical.delta2],0
	jne	still
	cmp	[scroll_bar_data_horizontal.delta2],0
	jne	still
;-----------------------------------------------
.menu_bar_1:
	call	.set_mouse_flag
@@:
; mouse event for Menu 1
	push	dword menu_data_1
	call	[menu_bar_mouse]
	cmp	[menu_data_1.click],dword 1
	jne	.menu_bar_2
	cmp	[menu_data_1.cursor_out],dword 0
	jne	analyse_out_menu_1
	jmp	.menu_bar_1
;--------------------------------------------
.menu_bar_2:
; mouse event for Menu 2
	push	dword menu_data_2
	call	[menu_bar_mouse]
	cmp	[menu_data_2.click],dword 1
	jne	.mouse_dinamic_button
	cmp	[menu_data_2.cursor_out],dword 0
	jne	analyse_out_menu_2
	jmp	.menu_bar_1
;--------------------------------------------
.mouse_dinamic_button:
; mouse event for Dinamic Button 1
	push	dword dinamic_button_data_1
	call	[dinamic_button_mouse]
	mov	eax,dinamic_button_data_1.click
	cmp	[eax],dword 1
	jne	@f
	mov	[eax],dword 0
	jmp	about
@@:
; mouse event for Dinamic Button 2
	push	dword dinamic_button_data_2
	call	[dinamic_button_mouse]
	mov	eax,dinamic_button_data_2.click
	cmp	[eax],dword 1
	jne	still	;@f
	mov	[eax],dword 0
	jmp	button.exit
;---------------------------------------------------------------------
.set_mouse_flag:	
	xor	eax,eax
	inc	eax
	mov	[menu_data_1.get_mouse_flag],eax
	mov	[menu_data_2.get_mouse_flag],eax
	ret
;---------------------------------------------------------------------
analyse_out_menu_1:
; analyse result of Menu 1
	mov	eax,[menu_data_1.cursor_out]
	cmp	eax,dword 1
	je	OpenDialog_start_0
	cmp	eax,dword 2
	je	OpenDialog_start_1
	cmp	eax,dword 3
	je	OpenDialog_start_2
	cmp	eax,dword 4
	je	button.exit	
	jmp	still
;---------------------------------------------------------------------
analyse_out_menu_2:
; analyse result of Menu 2
	cmp	[menu_data_2.cursor_out],dword 2
	je	about
	jmp	still
;---------------------------------------------------------------------
	about:
	mcall	51,1,thread3,thread
	jmp	still
;---------------------------------------------------------------------
OpenDialog_start_0:
	mov	[OpenDialog_data.type],0
	jmp	OpenDialog_start
OpenDialog_start_1:
	mov	[OpenDialog_data.type],1
	jmp	OpenDialog_start
OpenDialog_start_2:
	mov	[OpenDialog_data.type],2
OpenDialog_start:
;	mov	ebx,open_dialog_name
;	mov	esi,path
;	mov	edi,library_path
;	call	copy_file_path

	copy_path	open_dialog_name,path,library_path,0


start_OpenDialog	OpenDialog_data

	cmp	[OpenDialog_data.status],2	; OpenDialog does not start
	je	still	; some kind of alternative, instead OpenDialog
	cmp	[OpenDialog_data.status],1
	jne	still	; OpenDialog user say cancel
; copy path
; prepare path - PathShow
	push	dword PathShow_data_1
	call	[PathShow_prepare]
	
	call	draw_window
	jmp	still	; OpenDialog user selected the target file
;	[OpenDialog_data.openfile_pach] pointer of area the target file
;---------------------------------------------------------------------
;---------------------------------------------------------------------
draw_window:
	mcall	12,1
	mcall	0,<0,400>,<0,400>,0x03AABBCC,0x805080D0,0x005080D0
	mcall	71,1,header_1
;---------------------------------------------
; draw for Menu 1
	push	dword menu_data_1
	call	[menu_bar_draw]	
; draw for Menu 2
	push	dword menu_data_2
	call	[menu_bar_draw]	
;---------------------------------------------
; draw for Dinamic Button	1
	push	dword dinamic_button_data_1
	call	[dinamic_button_draw]
; draw for Dinamic Button 2
	push	dword dinamic_button_data_2
	call	[dinamic_button_draw]
;---------------------------------------------
	mcall	13,<170,200>,<25,15>,0xffffb0
;	mov	bx,28
;	add	ebx,2 shl 16
;	mcall	4,,0xC0000000,text_work_area,,0xffffb0
; draw for PathShow
	push	dword PathShow_data_1
	call	[PathShow_draw]	
;---------------------------------------------
; set all_redraw flag for draw all ScrollBar
; In some cases it is necessity to draw only the area
; of moving of a "runner", for acceleration of output -
; in this case the flag needs to be reset to 0 (zero).
	xor	eax,eax
	inc	eax
	mov	[scroll_bar_data_vertical.all_redraw],eax
	mov	[scroll_bar_data_horizontal.all_redraw],eax
	
; draw for Vertical ScrollBar
	push	dword scroll_bar_data_vertical
	call	[scrollbar_ver_draw]
; draw for Horizontal ScrollBar
	push	dword scroll_bar_data_horizontal
	call	[scrollbar_hor_draw]
; reset all_redraw flag	
	xor	eax,eax
	mov	[scroll_bar_data_vertical.all_redraw],eax
	mov	[scroll_bar_data_horizontal.all_redraw],eax
;---------------------------------------------
	call	draw_cube
	mcall	12,2
	ret
;---------------------------------------------------------------------
draw_cube:
	mcall	13,<30,301>,<50,301>,0xafafaf
	mov	ecx,[scroll_bar_data_vertical.position]
	add	ecx,50
	shl	ecx,16
	mov	cx,30
	mov	ebx,[scroll_bar_data_horizontal.position]
	add	ebx,30
	shl	ebx,16
	mov	bx,30
	mcall	13,,,0x0
	ret
;---------------------------------------------------------------------
include 'data.inc'
include 'w_about.inc'
;---------------------------------------------------------------------
IM_END:
	rb 1024
thread:
;---------------------------------------------------------------------
	rb 1024
stacktop:
;---------------------------------------------------------------------
path:
	rb 4096
;---------------------------------------------------------------------
openfile_pach:
	rb 4096
;---------------------------------------------------------------------
file_name:
library_path:
	rb 4096
;---------------------------------------------------------------------
plugin_pach:
	rb 4096
;---------------------------------------------------------------------
text_work_area:
	rb 4096
;---------------------------------------------------------------------
filename_area:
	rb 256
;---------------------------------------------------------------------
file_info:
	rb 40
;---------------------------------------------------------------------
procinfo:
	rb 1024
;---------------------------------------------------------------------
I_END: