;***************************************************************************** ; 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 ;--------------------------------------------------------------------- ;--- 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 push dword OpenDialog_data call [OpenDialog_Init] 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 push 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 push dword OpenDialog_data call [OpenDialog_Start] 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: