kolibrios/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     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
	call	get_filter_data

	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
	call	draw_window
	jmp	still ; OpenDialog user selected the target file
	; [OpenDialog_data.openfile_pach] pointer of area the target file
;---------------------------------------------------------------------
get_filter_data:
	mov	edi,[OpenDialog_data.com_area]
	test	edi,edi
	jnz	@f
	add	esp,4
	jmp	still
@@:
	add	edi,4096+4
	mov	esi,Filter
	mov	ecx,[esi]
	inc	ecx
	cld
	rep	movsb
	mov	edi,[OpenDialog_data.com_area]
	mov	[edi+4096],dword 1
	ret
;---------------------------------------------------------------------
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,openfile_pach,,0xffffb0
;---------------------------------------------
; 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
;---------------------------------------------------------------------
file_info:
        rb 40
;---------------------------------------------------------------------
procinfo:
        rb 1024
;---------------------------------------------------------------------
I_END: