forked from KolibriOS/kolibrios
0c97a5b795
2) Ctrldemo (demo of Box_Lib) is corrected for new cnv_png.obj 3) Actual zsea.inc git-svn-id: svn://kolibrios.org@1953 a494cfbc-eb01-0410-851d-a64ba20cac60
424 lines
12 KiB
NASM
424 lines
12 KiB
NASM
;*****************************************************************************
|
|
; 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
|
|
|
|
;---------------------------------------------------------------------
|
|
;--- 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:
|
|
|