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