Subversion Repositories Kolibri OS

;

; Example for Box_lib: scrollbar, menubar, dinamic_button

; Copyright (c) 2009, Mario79

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

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

;---    Start of program        ----------------------------------------------

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

START:

        mcall 68, 11

        mcall 66, 1, 1

        mcall 40, 0x27

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

; Procinfo area for function 9 in MenuBar

        mcall   68,12,1024

        mov     [menu_data_1.procinfo],eax

        mov     [menu_data_2.procinfo],eax

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

; loading Box_Lib library

load_libraries l_libs_start,end_l_libs

;sys_load_library  boxlib_name, path, file_name, system_dir, \

;er_message_found_lib, ihead_f_l, myimport, er_message_import, ihead_f_i

;        test    eax,eax

;        jnz  button.exit

;----------------------------------old

;        mov     ebx,boxlib_name

;        mov     esi,path

;        mov     edi,file_name

;        call    copy_path

;

;        mcall 68,19,file_name ; load of alternative

;        test    eax,eax

;        jnz @f

;

;        mcall 68,19,system_dir ; load of sys directory

;        test    eax,eax

;        jz      button.exit

;@@:

;        call    import_boxlib

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

; Load and convert BMP file for DinamicButton

; This procedures use cnv_bmp.obj and this module used only for

; demonstration of use DinamicButton

;        mov     ebx,plugin_BMP_name

;        mov     esi,path

;        mov     edi,file_name

	copy_path   plugin_BMP_name,path,file_name

;

        mcall 68,19,file_name

        test    eax,eax

        jz  button.exit

        mov     eax,[eax+4]

        mov     [plugin],eax

;ïðîâåðêà íà ñêîëüêî óäà÷íî çàãóçèëàñü íàøà ëèáà

        mov     ebp,library01

        cmp     dword [ebp+ll_struc_size-4],0

        jnz     button.exit

;

;        mov     ebp,library02

;        cmp     dword [ebp+ll_struc_size-4],0x2

;        jnz     button.exit

;        mov     eax,dword [ebp+36]

;        mov     eax,[eax+4]

;        mov     [plugin],eax

;        mov     ebx,icons_file_name

;        mov     esi,path

;        mov     edi,file_name

        copy_path    icons_file_name,path,file_name

        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    [plugin]

        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: