Subversion Repositories Kolibri OS

;*****************************************************************************

; 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  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  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 

;---------------------------------------------------------------------

        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

        cmp	eax,dword 3

        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:

;	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: