forked from KolibriOS/kolibrios
Ivan Baravy
6aac7a3d5a
Toolbar icons are loaded not in runtime from an image file but in compile time via fasm preprocessor script. An error was introduced in r7860 which is fixed now. git-svn-id: svn://kolibrios.org@7862 a494cfbc-eb01-0410-851d-a64ba20cac60
2556 lines
67 KiB
NASM
2556 lines
67 KiB
NASM
format binary as ""
|
|
|
|
use32
|
|
org 0x0
|
|
|
|
db 'MENUET01'
|
|
dd 0x01, START, I_END, E_END, stacktop, __params, sys_path
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
__DEBUG__ = 0
|
|
__DEBUG_LEVEL__ = 1
|
|
|
|
LG_TRACE equ 1
|
|
|
|
include 'config.inc'
|
|
include 'proc32.inc'
|
|
include 'macros.inc'
|
|
include 'KOSfuncs.inc'
|
|
include 'dll.inc'
|
|
include 'debug-fdo.inc'
|
|
include 'libimg.inc'
|
|
|
|
|
|
KEY_MOVE_PIXELS = 50
|
|
SCROLL_WIDTH_SIZE = 15
|
|
AR_OFFSET = 10
|
|
|
|
MIN_WINDOW_WIDTH = 50+25*numimages
|
|
MIN_WINDOW_HEIGHT = 100
|
|
TOOLBAR_HEIGHT = 31
|
|
CANVAS_PADDING = 5
|
|
;-----------------------------------------------------------------------------
|
|
|
|
START:
|
|
mcall SF_SYSTEM, SSF_MOUSE_SETTINGS, SSSF_SET_SPEED, 5
|
|
mcall SF_SYSTEM, SSF_MOUSE_SETTINGS, SSSF_SET_SPEEDUP, 5
|
|
mcall SF_SYS_MISC, SSF_HEAP_INIT
|
|
mcall SF_KEYBOARD, SSF_SET_INPUT_MODE, 1 ; set kbd mode to scancodes
|
|
mcall SF_SET_EVENTS_MASK, EVM_REDRAW or EVM_KEY or EVM_BUTTON or EVM_MOUSE or EVM_MOUSE_FILTER
|
|
|
|
stdcall dll.Load, @IMPORT
|
|
or eax, eax
|
|
jnz exit
|
|
|
|
invoke sort.START, 1
|
|
|
|
mov ecx, 1 ; for 15.4: 1 = tile
|
|
cmp word[__params], '\T'
|
|
jz set_bgr
|
|
inc ecx ; for 15.4: 2 = stretch
|
|
cmp word[__params], '\S'
|
|
jz set_bgr
|
|
|
|
cmp byte[__params], 0
|
|
jz @f
|
|
mov esi, __params
|
|
mov edi, path
|
|
mov ecx, 4096/4
|
|
rep movsd
|
|
mov byte[edi-1], 0
|
|
@@:
|
|
; OpenDialog initialisation
|
|
push dword OpenDialog_data
|
|
call [OpenDialog_Init]
|
|
|
|
; initialize keyboard handling
|
|
invoke ini_get_shortcut, inifilename, aShortcuts, aNext, -1, next_mod
|
|
mov [next_key], eax
|
|
invoke ini_get_shortcut, inifilename, aShortcuts, aPrev, -1, prev_mod
|
|
mov [prev_key], eax
|
|
invoke ini_get_shortcut, inifilename, aShortcuts, aSlide, -1, slide_mod
|
|
mov [slide_key], eax
|
|
invoke ini_get_shortcut, inifilename, aShortcuts, aTglbar, -1, tglbar_mod
|
|
mov [tglbar_key], eax
|
|
|
|
cmp byte[__params], 0
|
|
jnz params_given
|
|
|
|
mov [OpenDialog_data.draw_window], draw_window_fake
|
|
|
|
; OpenDialog Open
|
|
push dword OpenDialog_data
|
|
call [OpenDialog_Start]
|
|
|
|
cmp [OpenDialog_data.status], 1
|
|
jnz exit
|
|
|
|
mov [OpenDialog_data.draw_window], draw_window
|
|
|
|
mov esi, path
|
|
mov edi, __params
|
|
mov ecx, 4096/4
|
|
rep movsd
|
|
mov byte[edi-1], 0
|
|
jmp params_given
|
|
|
|
set_bgr:
|
|
mcall SF_BACKGROUND_SET, SSF_MODE_BG
|
|
stdcall load_image, __params+4
|
|
jc exit
|
|
call set_as_bgr
|
|
jmp exit
|
|
|
|
params_given:
|
|
mov esi, __params
|
|
push esi
|
|
call find_last_name_component
|
|
call load_directory
|
|
|
|
pop eax
|
|
stdcall load_image, eax
|
|
jc exit
|
|
|
|
;-----------------------------------------------------------------------------
|
|
|
|
redraw_all:
|
|
call draw_window
|
|
|
|
still:
|
|
mov eax, [orig_image]
|
|
test [eax+Image.Flags], Image.IsAnimated
|
|
movi eax, SF_WAIT_EVENT
|
|
jz .wait_event
|
|
mcall SF_SYSTEM_GET, SSF_TIME_COUNT
|
|
mov edx, [cur_frame]
|
|
mov ebx, [cur_frame_time]
|
|
add ebx, [edx+Image.Delay]
|
|
sub ebx, eax
|
|
cmp ebx, [edx+Image.Delay]
|
|
jna @f
|
|
call red_update_frame
|
|
jmp still
|
|
@@:
|
|
test ebx, ebx
|
|
jnz @f
|
|
call red_update_frame
|
|
jmp still
|
|
@@:
|
|
movi eax, SF_WAIT_EVENT_TIMEOUT
|
|
.wait_event:
|
|
mcall
|
|
dec eax
|
|
jns @f
|
|
call red_update_frame
|
|
jmp still
|
|
@@:
|
|
jz redraw_all
|
|
dec eax
|
|
jz key
|
|
dec eax
|
|
jz button
|
|
|
|
mouse:
|
|
mov eax, [need_scrollbar_v]
|
|
add eax, [need_scrollbar_h]
|
|
test eax, eax
|
|
jz .done
|
|
mov [pict_moved], 0
|
|
|
|
invoke scrollbar_vert_mouse, scroll_bar_data_vertical
|
|
invoke scrollbar_hort_mouse, scroll_bar_data_horizontal
|
|
xor ecx, ecx
|
|
mov eax, [scroll_bar_data_vertical.position]
|
|
cmp [pict.top], eax
|
|
mov [pict.top], eax
|
|
setnz cl
|
|
mov eax, [scroll_bar_data_horizontal.position]
|
|
cmp [pict.left], eax
|
|
mov [pict.left], eax
|
|
setnz ch
|
|
test ecx, ecx
|
|
jz @f
|
|
call draw_view
|
|
call draw_onimage_decorations
|
|
@@:
|
|
|
|
; check for scroll
|
|
mcall SF_MOUSE_GET, SSF_SCROLL_DATA
|
|
test eax, eax
|
|
jz .no_scroll
|
|
movsx ecx, ax
|
|
shl ecx, 4
|
|
sar eax, 16
|
|
shl eax, 4
|
|
stdcall move_pictport, eax, ecx
|
|
mov [pict_moved], eax
|
|
jmp .mouse_done
|
|
.no_scroll:
|
|
|
|
; get cursor coordinates in window
|
|
mcall SF_MOUSE_GET, SSF_WINDOW_POSITION
|
|
movsx ebx, ax
|
|
cmp ebx, 0
|
|
jge @f
|
|
add eax, 0x10000
|
|
@@:
|
|
mov ecx, [mouse_pos]
|
|
cmp eax, ecx
|
|
jz .no_mouse_move
|
|
mov [mouse_pos], eax
|
|
|
|
cmp [pict_drag], 1
|
|
jnz .no_mouse_move
|
|
sar eax, 16
|
|
movsx edx, cx
|
|
sar ecx, 16
|
|
sub eax, ecx
|
|
sub ebx, edx
|
|
neg eax
|
|
neg ebx
|
|
stdcall move_pictport, eax, ebx
|
|
mov [pict_moved], eax
|
|
jmp .no_mouse_move
|
|
.no_mouse_move:
|
|
|
|
; check buttons
|
|
mcall SF_MOUSE_GET, SSF_BUTTON
|
|
mov ecx, eax
|
|
xor ecx, [mouse_buttons]
|
|
mov [mouse_buttons], eax
|
|
test ecx, 0x01
|
|
jz .left_button_handled
|
|
test eax, 0x01
|
|
jnz .left_button_down
|
|
.left_button_up:
|
|
mov [pict_drag], 0
|
|
jmp .left_button_handled
|
|
.left_button_down:
|
|
mov ecx, [mouse_pos]
|
|
movzx edx, cx
|
|
sar ecx, 16
|
|
mov ebx, [canvas_abs_top]
|
|
add ebx, [view.top]
|
|
cmp ebx, edx
|
|
jg .left_click_pict_done
|
|
add ebx, [view.height]
|
|
cmp ebx, edx
|
|
jl .left_click_pict_done
|
|
mov ebx, [canvas_abs_left]
|
|
add ebx, [view.left]
|
|
cmp ebx, ecx
|
|
jg .left_click_pict_done
|
|
add ebx, [view.width]
|
|
cmp ebx, ecx
|
|
jl .left_click_pict_done
|
|
mov [pict_drag], 1
|
|
jmp .left_button_handled
|
|
.left_click_pict_done:
|
|
|
|
.left_button_handled:
|
|
.mouse_done:
|
|
mov eax, [pict_moved]
|
|
test eax, eax
|
|
jz .done
|
|
stdcall update_scrollbars, eax
|
|
call draw_view
|
|
call draw_onimage_decorations
|
|
.done:
|
|
jmp still
|
|
|
|
key:
|
|
xor esi, esi
|
|
keyloop:
|
|
mcall SF_GET_KEY
|
|
test al, al
|
|
jnz keyloopdone
|
|
shr eax, 8
|
|
mov ecx, eax
|
|
mcall SF_KEYBOARD, SSF_GET_CONTROL_KEYS
|
|
mov edx, next_mod
|
|
call check_shortcut
|
|
jz .next
|
|
add edx, prev_mod-next_mod
|
|
call check_shortcut
|
|
jz .prev
|
|
add edx, slide_mod-prev_mod
|
|
call check_shortcut
|
|
jz .slide
|
|
add edx, tglbar_mod-slide_mod
|
|
call check_shortcut
|
|
jz .tglbar
|
|
|
|
mov edx, scale_none_mod
|
|
call check_shortcut
|
|
jz .set_scale_none
|
|
add edx, scale_fit_min_mod-scale_none_mod
|
|
call check_shortcut
|
|
jz .set_scale_fit_min
|
|
add edx, move_pictport_left_1_mod-scale_fit_min_mod
|
|
call check_shortcut
|
|
jz .move_pictport_left
|
|
add edx, move_pictport_left_2_mod-move_pictport_left_1_mod
|
|
call check_shortcut
|
|
jz .move_pictport_left
|
|
add edx, move_pictport_right_1_mod-move_pictport_left_2_mod
|
|
call check_shortcut
|
|
jz .move_pictport_right
|
|
add edx, move_pictport_right_2_mod-move_pictport_right_1_mod
|
|
call check_shortcut
|
|
jz .move_pictport_right
|
|
add edx, move_pictport_up_1_mod-move_pictport_right_2_mod
|
|
call check_shortcut
|
|
jz .move_pictport_up
|
|
add edx, move_pictport_up_2_mod-move_pictport_up_1_mod
|
|
call check_shortcut
|
|
jz .move_pictport_up
|
|
add edx, move_pictport_down_1_mod-move_pictport_up_2_mod
|
|
call check_shortcut
|
|
jz .move_pictport_down
|
|
add edx, move_pictport_down_2_mod-move_pictport_down_1_mod
|
|
call check_shortcut
|
|
jz .move_pictport_down
|
|
|
|
cmp cl, 1 ; Esc
|
|
jz .esc
|
|
jmp keyloop
|
|
.esc:
|
|
test [bSlideShow], 1
|
|
jz keyloop
|
|
jmp .slide
|
|
.tglbar:
|
|
bt [window_style], 25
|
|
jnc @f
|
|
mov [bToggleToolbar], 1
|
|
xor [bShowToolbar], 1
|
|
@@:
|
|
jmp keyloop
|
|
.slide:
|
|
call slide_show
|
|
jmp keyloop
|
|
.set_scale_none:
|
|
mov eax, LIBIMG_SCALE_NONE
|
|
call set_scale_mode
|
|
jz @f
|
|
call recalc_canvas
|
|
@@:
|
|
jmp keyloop
|
|
.set_scale_fit_min:
|
|
mov eax, LIBIMG_SCALE_FIT_MIN
|
|
call set_scale_mode
|
|
jz @f
|
|
call recalc_work
|
|
@@:
|
|
jmp keyloop
|
|
.move_pictport_left:
|
|
stdcall move_pictport, -KEY_MOVE_PIXELS, 0
|
|
stdcall update_scrollbars, eax
|
|
call draw_view
|
|
call draw_onimage_decorations
|
|
jmp keyloop
|
|
.move_pictport_right:
|
|
stdcall move_pictport, KEY_MOVE_PIXELS, 0
|
|
stdcall update_scrollbars, eax
|
|
call draw_view
|
|
call draw_onimage_decorations
|
|
jmp keyloop
|
|
.move_pictport_up:
|
|
stdcall move_pictport, 0, -KEY_MOVE_PIXELS
|
|
stdcall update_scrollbars, eax
|
|
call draw_view
|
|
call draw_onimage_decorations
|
|
jmp keyloop
|
|
.move_pictport_down:
|
|
stdcall move_pictport, 0, KEY_MOVE_PIXELS
|
|
stdcall update_scrollbars, eax
|
|
call draw_view
|
|
call draw_onimage_decorations
|
|
jmp keyloop
|
|
.prev:
|
|
dec esi
|
|
jmp keyloop
|
|
.next:
|
|
inc esi
|
|
jmp keyloop
|
|
keyloopdone:
|
|
test esi, esi
|
|
jnz next_or_prev_handler
|
|
test [bToggleSlideShow], 1
|
|
jnz redraw_all
|
|
test [bToggleToolbar], 1
|
|
stdcall recalc_client
|
|
jnz redraw_all
|
|
test [bScaleModeChanged], 1
|
|
mov [bScaleModeChanged], 0
|
|
jnz redraw_all
|
|
test [bNewImage], 1
|
|
mov [bNewImage], 0
|
|
jnz redraw_all
|
|
jmp still
|
|
next_or_prev_handler:
|
|
call next_or_prev_image
|
|
jmp redraw_all
|
|
|
|
red_update_frame:
|
|
mov eax, [cur_frame]
|
|
mov eax, [eax+Image.Next]
|
|
test eax, eax
|
|
jnz @f
|
|
mov eax, [cur_image]
|
|
@@:
|
|
mov [cur_frame], eax
|
|
mcall SF_SYSTEM_GET, SSF_TIME_COUNT
|
|
mov [cur_frame_time], eax
|
|
call draw_view
|
|
ret
|
|
|
|
button:
|
|
mcall SF_GET_BUTTON
|
|
shr eax, 8
|
|
|
|
; flip horizontally
|
|
cmp eax, 'flh'
|
|
jnz .not_flh
|
|
|
|
mov eax, [cur_image]
|
|
cmp eax, [orig_image]
|
|
jz @f
|
|
invoke img.flip, [cur_image], FLIP_HORIZONTAL
|
|
@@:
|
|
invoke img.flip, [orig_image], FLIP_HORIZONTAL
|
|
jmp redraw_all
|
|
|
|
; flip vertically
|
|
.not_flh:
|
|
cmp eax, 'flv'
|
|
jnz .not_flv
|
|
|
|
mov eax, [cur_image]
|
|
cmp eax, [orig_image]
|
|
jz @f
|
|
invoke img.flip, [cur_image], FLIP_VERTICAL
|
|
@@:
|
|
invoke img.flip, [orig_image], FLIP_VERTICAL
|
|
jmp redraw_all
|
|
|
|
; flip both horizontally and vertically
|
|
.not_flv:
|
|
cmp eax, 'flb'
|
|
jnz .not_flb
|
|
|
|
mov eax, [cur_image]
|
|
cmp eax, [orig_image]
|
|
jz @f
|
|
invoke img.flip, [cur_image], FLIP_BOTH
|
|
@@:
|
|
invoke img.flip, [orig_image], FLIP_BOTH
|
|
jmp redraw_all
|
|
|
|
; rotate left
|
|
.not_flb:
|
|
cmp eax, 'rtl'
|
|
jnz .not_rtl
|
|
|
|
push ROTATE_90_CCW
|
|
.rotate_common:
|
|
mov eax, [cur_image]
|
|
cmp eax, [orig_image]
|
|
jz @f
|
|
invoke img.destroy, [cur_image]
|
|
mov [cur_image], 0
|
|
@@:
|
|
invoke img.rotate, [orig_image]
|
|
jmp redraw_all
|
|
|
|
; rotate right
|
|
.not_rtl:
|
|
cmp eax, 'rtr'
|
|
jnz .not_rtr
|
|
|
|
push ROTATE_90_CW
|
|
jmp .rotate_common
|
|
|
|
; open new file
|
|
.not_rtr:
|
|
cmp eax, 'opn'
|
|
jnz @f
|
|
|
|
; OpenDialog Open
|
|
push dword OpenDialog_data
|
|
call [OpenDialog_Start]
|
|
|
|
cmp [OpenDialog_data.status], 1
|
|
jnz still
|
|
|
|
mov esi, path
|
|
mov edi, __params
|
|
push edi
|
|
mov ecx, 4096/4
|
|
rep movsd
|
|
mov byte[edi-1], 0
|
|
|
|
pop esi
|
|
push esi
|
|
call find_last_name_component
|
|
|
|
pop eax
|
|
push [cur_image]
|
|
stdcall load_image, eax
|
|
jc .restore_old
|
|
call free_directory
|
|
jmp redraw_all
|
|
|
|
.restore_old:
|
|
pop eax
|
|
jmp still
|
|
|
|
; set background
|
|
@@:
|
|
cmp eax, 'bgr'
|
|
jnz @f
|
|
|
|
mcall SF_BACKGROUND_SET, SSF_MODE_BG, 2 ; stretch by default
|
|
call set_as_bgr
|
|
jmp still
|
|
|
|
@@:
|
|
cmp eax, 'sld'
|
|
jnz @f
|
|
|
|
call slide_show
|
|
jmp redraw_all
|
|
|
|
@@:
|
|
cmp eax, 'scl'
|
|
jnz .not_scl
|
|
mov eax, LIBIMG_SCALE_NONE
|
|
cmp [scale_mode], LIBIMG_SCALE_NONE
|
|
jnz @f
|
|
mov eax, LIBIMG_SCALE_FIT_MIN
|
|
@@:
|
|
call set_scale_mode
|
|
jz @f
|
|
call recalc_work
|
|
@@:
|
|
jmp redraw_all
|
|
.not_scl:
|
|
or esi, -1
|
|
cmp eax, 'bck'
|
|
jz next_or_prev_handler
|
|
neg esi
|
|
cmp eax, 'fwd'
|
|
jz next_or_prev_handler
|
|
|
|
cmp eax, 1
|
|
jnz still
|
|
|
|
exit:
|
|
mcall -1
|
|
|
|
|
|
proc load_image _filename
|
|
push ebx esi edi
|
|
invoke img.from_file, [_filename]
|
|
test eax, eax
|
|
jz .error
|
|
mov ebx, eax
|
|
|
|
test [eax+Image.Flags], Image.IsAnimated
|
|
jnz @f
|
|
cmp [eax+Image.Next], 0
|
|
jz @f
|
|
stdcall merge_icons_to_single_img, eax
|
|
test eax, eax
|
|
jz .error_destroy
|
|
@@:
|
|
stdcall init_frame, eax
|
|
clc
|
|
jmp .exit
|
|
|
|
.error_destroy:
|
|
invoke img.destroy, ebx
|
|
xor eax, eax
|
|
.error:
|
|
stc
|
|
.exit:
|
|
pop edi esi ebx
|
|
ret
|
|
endp
|
|
|
|
|
|
; in: eax -- pointer to image
|
|
; out: fill pict structure
|
|
proc calculate_picture_size
|
|
mov edx, [eax+Image.Width]
|
|
test [eax+Image.Flags], Image.IsAnimated
|
|
jnz .not_in_row
|
|
push eax
|
|
@@:
|
|
cmp [eax+Image.Next], 0
|
|
jz @f
|
|
mov eax, [eax+Image.Next]
|
|
add edx, [eax+Image.Width]
|
|
inc edx
|
|
jmp @b
|
|
@@:
|
|
pop eax
|
|
.not_in_row:
|
|
mov [pict.width], edx
|
|
add edx, 19
|
|
cmp edx, 50+25*numimages
|
|
jae @f
|
|
mov edx, 50+25*numimages
|
|
@@:
|
|
mov esi, [eax+Image.Height]
|
|
test [eax+Image.Flags], Image.IsAnimated
|
|
jnz .max_equals_first
|
|
push eax
|
|
@@:
|
|
cmp [eax+Image.Next], 0
|
|
jz @f
|
|
mov eax, [eax+Image.Next]
|
|
cmp esi, [eax+Image.Height]
|
|
jae @b
|
|
mov esi, [eax+Image.Height]
|
|
jmp @b
|
|
@@:
|
|
pop eax
|
|
.max_equals_first:
|
|
mov [pict.height], esi
|
|
ret
|
|
endp
|
|
|
|
|
|
; in: [orig_image]
|
|
proc set_as_bgr
|
|
mov esi, [orig_image]
|
|
mov ecx, [esi+Image.Width]
|
|
mov edx, [esi+Image.Height]
|
|
mcall SF_BACKGROUND_SET, SSF_SIZE_BG
|
|
mcall SF_BACKGROUND_SET, SSF_MAP_BG
|
|
test eax, eax
|
|
jz @f
|
|
|
|
push eax
|
|
invoke img.to_rgb2, esi, eax
|
|
pop ecx
|
|
mcall SF_BACKGROUND_SET, SSF_UNMAP_BG
|
|
|
|
@@:
|
|
mcall SF_BACKGROUND_SET, SSF_REDRAW_BG
|
|
; save to file eskin.ini
|
|
xor al, al
|
|
mov ecx, 1024
|
|
mov edi, sys_path+2
|
|
repne scasb
|
|
sub edi, sys_path+3
|
|
invoke ini_set_str, inifileeskin, amain, aprogram, sys_path+2, edi
|
|
; add param '\S__'
|
|
cmp word[__params], '\T'
|
|
jz @f
|
|
cmp word[__params], '\S'
|
|
je @f
|
|
mov esi, __params+4096-8
|
|
mov edi, __params+4096-4
|
|
mov ecx, 4096/4-1
|
|
std
|
|
rep movsd
|
|
cld
|
|
mov dword[__params], '\S__'
|
|
@@:
|
|
xor al, al
|
|
mov ecx, 4096
|
|
mov edi, __params
|
|
repne scasb
|
|
sub edi, __params+1
|
|
invoke ini_set_str, inifileeskin, amain, aparam, __params, edi
|
|
ret
|
|
endp
|
|
|
|
proc slide_show
|
|
push ebx esi edi
|
|
mov [bToggleSlideShow], 1
|
|
btc [window_style], 25
|
|
xor [bSlideShow], 1
|
|
jnz .to_fullscreen
|
|
; back from fullscreen
|
|
movzx eax, [bShowToolbarSave]
|
|
mov [bShowToolbar], al
|
|
mov [canvas_padding], CANVAS_PADDING
|
|
mov [bg_color], 0x00ffffff
|
|
mcall SF_CHANGE_WINDOW, [window_save.left], [window_save.top], [window_save.width], [window_save.height]
|
|
jmp .done
|
|
.to_fullscreen:
|
|
stdcall copy_box, window, window_save
|
|
movzx eax, [bShowToolbar]
|
|
mov [bShowToolbarSave], al
|
|
mov [bShowToolbar], 0
|
|
mov [canvas_padding], 0
|
|
mov [bg_color], 0x00000000
|
|
mcall SF_GET_SCREEN_SIZE
|
|
mov edx, eax
|
|
shr edx, 16
|
|
movzx eax, ax
|
|
mov esi, eax
|
|
mcall SF_CHANGE_WINDOW, 0, 0, ,
|
|
mov eax, LIBIMG_SCALE_FIT_MIN
|
|
call set_scale_mode
|
|
|
|
.done:
|
|
pop edi esi ebx
|
|
ret
|
|
endp
|
|
|
|
|
|
; seek to ESI image files
|
|
; esi>0 means next file, esi<0-prev file
|
|
proc next_or_prev_image
|
|
locals
|
|
files_cnt dd ?
|
|
file_idx dd ?
|
|
endl
|
|
push ebx esi edi
|
|
push esi
|
|
call load_directory
|
|
pop esi
|
|
mov eax, [directory_ptr]
|
|
mov eax, [eax+4]
|
|
mov [files_cnt], eax
|
|
cmp [directory_ptr], 0
|
|
jz .ret
|
|
cmp [files_cnt], 0 ; number of files
|
|
jz .ret
|
|
mov eax, [cur_file_idx]
|
|
cmp eax, -1
|
|
jnz @f
|
|
test esi, esi
|
|
jns @f
|
|
mov eax, [files_cnt]
|
|
@@:
|
|
add eax, esi
|
|
@@:
|
|
test eax, eax
|
|
jns @f
|
|
add eax, [files_cnt]
|
|
jmp @b
|
|
@@:
|
|
cmp eax, [files_cnt]
|
|
jb @f
|
|
sub eax, [files_cnt]
|
|
jmp @b
|
|
@@:
|
|
mov [file_idx], eax
|
|
.scanloop:
|
|
push eax esi
|
|
imul esi, eax, 304
|
|
add esi, [directory_ptr]
|
|
add esi, 32+40
|
|
mov edi, curdir
|
|
@@:
|
|
inc edi
|
|
cmp byte[edi-1], 0
|
|
jnz @b
|
|
mov byte[edi-1], '/'
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
test al, al
|
|
jnz @b
|
|
mov esi, curdir
|
|
push esi
|
|
mov edi, __params
|
|
mov ecx, 4096/4
|
|
rep movsd
|
|
mov byte[edi-1], 0
|
|
pop esi
|
|
stdcall load_image, curdir
|
|
pushfd
|
|
@@:
|
|
lodsb
|
|
test al, al
|
|
jnz @b
|
|
@@:
|
|
dec esi
|
|
cmp byte[esi], '/'
|
|
jnz @b
|
|
mov byte[esi], 0
|
|
popfd
|
|
pop esi eax
|
|
jnc .loadedok
|
|
test esi, esi
|
|
js .try_prev
|
|
.try_next:
|
|
inc eax
|
|
cmp eax, [files_cnt]
|
|
jb @f
|
|
xor eax, eax
|
|
@@:
|
|
.try_common:
|
|
cmp eax, [file_idx]
|
|
jz .notfound
|
|
jmp .scanloop
|
|
.try_prev:
|
|
dec eax
|
|
jns @f
|
|
mov eax, [files_cnt]
|
|
dec eax
|
|
@@:
|
|
jmp .try_common
|
|
.loadedok:
|
|
mov [cur_file_idx], eax
|
|
.ret:
|
|
pop edi esi ebx
|
|
ret
|
|
.notfound:
|
|
pop edi esi ebx
|
|
ret
|
|
endp
|
|
|
|
|
|
load_directory:
|
|
cmp [directory_ptr], 0
|
|
jnz .ret
|
|
mov esi, __params
|
|
mov edi, curdir
|
|
mov ecx, [last_name_component]
|
|
sub ecx, esi
|
|
dec ecx
|
|
js @f
|
|
rep movsb
|
|
@@:
|
|
mov byte[edi], 0
|
|
mcall 68, 12, 0x1000
|
|
test eax, eax
|
|
jz .ret
|
|
mov ebx, readdir_fileinfo
|
|
mov dword[ebx+12], (0x1000-32) / 304 ; blocks to read
|
|
mov dword[ebx+16], eax ; where to store
|
|
mcall 70
|
|
cmp eax, 6 ; read ok, but there are more files
|
|
jz .dirok
|
|
test eax, eax
|
|
jnz free_directory
|
|
mov edx, [directory_ptr]
|
|
mov ecx, [edx+8] ; total number of files
|
|
mov [readblocks], ecx
|
|
imul ecx, 304 ; try to read entire dir, FIXME
|
|
add ecx, 32 ; plus header
|
|
mcall 68, 20 ; realloc
|
|
test eax, eax
|
|
jz free_directory
|
|
mov [directory_ptr], eax
|
|
mcall 70, readdir_fileinfo
|
|
.dirok:
|
|
cmp ebx, 0
|
|
jle free_directory
|
|
mov eax, [directory_ptr]
|
|
mov edi, [eax+8] ; total number of files
|
|
mov [files_num], edi
|
|
add eax, 32 ; skip header
|
|
mov edi, eax
|
|
push 0
|
|
.dirskip:
|
|
push eax
|
|
test byte[eax], 0x18 ; volume label or folder
|
|
jnz .nocopy
|
|
lea esi, [eax+40] ; name
|
|
mov ecx, esi
|
|
@@:
|
|
lodsb
|
|
test al, al
|
|
jnz @b
|
|
@@:
|
|
dec esi
|
|
cmp esi, ecx
|
|
jb .noext
|
|
cmp byte[esi], '.'
|
|
jnz @b
|
|
inc esi
|
|
mov ecx, [esi]
|
|
cmp byte[esi+3], 0
|
|
jnz .not_3
|
|
or ecx, 0x202020
|
|
cmp ecx, 'jpg'
|
|
jz .copy
|
|
cmp ecx, 'bmp'
|
|
jz .copy
|
|
cmp ecx, 'gif'
|
|
jz .copy
|
|
cmp ecx, 'png'
|
|
jz .copy
|
|
cmp ecx, 'jpe'
|
|
jz .copy
|
|
cmp ecx, 'ico'
|
|
jz .copy
|
|
cmp ecx, 'cur'
|
|
jz .copy
|
|
cmp ecx, 'tga'
|
|
jz .copy
|
|
cmp ecx, 'pcx'
|
|
jz .copy
|
|
cmp ecx, 'xcf'
|
|
jz .copy
|
|
cmp ecx, 'pbm'
|
|
jz .copy
|
|
cmp ecx, 'pgm'
|
|
jz .copy
|
|
cmp ecx, 'pnm'
|
|
jz .copy
|
|
cmp ecx, 'ppm'
|
|
jz .copy
|
|
cmp ecx, 'tif'
|
|
jz .copy
|
|
cmp ecx, 'xbm'
|
|
jz .copy
|
|
.not_3:
|
|
cmp byte[esi+4], 0
|
|
jnz .nocopy
|
|
or ecx, 0x20202020
|
|
cmp ecx, 'tiff'
|
|
jz @f
|
|
cmp ecx, 'wbmp'
|
|
jz @f
|
|
cmp ecx, 'webp'
|
|
jz @f
|
|
cmp ecx, 'jpeg'
|
|
jnz .nocopy
|
|
@@:
|
|
cmp byte[esi+4], 0
|
|
jnz .nocopy
|
|
.copy:
|
|
mov esi, [esp]
|
|
mov ecx, 304 / 4
|
|
rep movsd
|
|
inc dword[esp+4]
|
|
.nocopy:
|
|
.noext:
|
|
pop eax
|
|
add eax, 304
|
|
dec ebx
|
|
jnz .dirskip
|
|
mov eax, [directory_ptr]
|
|
pop ebx
|
|
mov [eax+4], ebx
|
|
test ebx, ebx
|
|
jz free_directory
|
|
push 0 ; sort mode
|
|
push ebx
|
|
add eax, 32
|
|
push eax
|
|
call [SortDir]
|
|
xor eax, eax
|
|
mov edi, [directory_ptr]
|
|
add edi, 32+40 ; name
|
|
.scan:
|
|
mov esi, [last_name_component]
|
|
push edi
|
|
invoke strcmpi
|
|
pop edi
|
|
jz .found
|
|
inc eax
|
|
add edi, 304
|
|
dec ebx
|
|
jnz .scan
|
|
or eax, -1
|
|
.found:
|
|
mov [cur_file_idx], eax
|
|
.ret:
|
|
ret
|
|
|
|
free_directory:
|
|
mcall 68, 13, [directory_ptr]
|
|
and [directory_ptr], 0
|
|
ret
|
|
|
|
|
|
; in: esi->full name (e.g. /path/to/file.png)
|
|
; out: [last_name_component]->last component (e.g. file.png)
|
|
proc find_last_name_component
|
|
mov ecx, esi
|
|
@@:
|
|
lodsb
|
|
test al, al
|
|
jnz @b
|
|
@@:
|
|
dec esi
|
|
cmp esi, ecx
|
|
jb @f
|
|
cmp byte[esi], '/'
|
|
jnz @b
|
|
@@:
|
|
inc esi
|
|
mov [last_name_component], esi
|
|
ret
|
|
endp
|
|
|
|
|
|
proc init_frame uses ebx edx, _img
|
|
mov eax, [orig_image]
|
|
cmp eax, [_img]
|
|
jz .exit
|
|
test eax, eax
|
|
jz .freed
|
|
cmp eax, [cur_image]
|
|
jz @f
|
|
invoke img.destroy, [orig_image]
|
|
@@:
|
|
invoke img.destroy, [cur_image]
|
|
.freed:
|
|
|
|
mov [bNewImage], 1
|
|
mov eax, [_img]
|
|
mov [orig_image], eax
|
|
mov [cur_image], eax
|
|
mov [cur_frame], eax
|
|
test byte[eax+Image.Flags], Image.IsAnimated
|
|
jz @f
|
|
push ebx
|
|
mcall SF_SYSTEM_GET, SSF_TIME_COUNT
|
|
pop ebx
|
|
mov [cur_frame_time], eax
|
|
@@:
|
|
mov [pict.top], 0
|
|
mov [pict.left], 0
|
|
.exit:
|
|
ret
|
|
endp
|
|
|
|
|
|
proc draw_window
|
|
test [bFirstWinDraw], 1
|
|
jnz .min_size_ok
|
|
|
|
mcall SF_THREAD_INFO, procinfo, -1
|
|
xor eax, eax
|
|
mov edx, -1
|
|
mov esi, -1
|
|
cmp [procinfo.box.width], MIN_WINDOW_WIDTH
|
|
ja @f
|
|
mov edx, MIN_WINDOW_WIDTH
|
|
inc eax
|
|
@@:
|
|
cmp [procinfo.box.height], MIN_WINDOW_HEIGHT
|
|
ja @f
|
|
mov esi, MIN_WINDOW_HEIGHT
|
|
inc eax
|
|
@@:
|
|
test eax, eax
|
|
jz @f
|
|
mcall SF_CHANGE_WINDOW, -1, -1, ,
|
|
@@:
|
|
|
|
.min_size_ok:
|
|
test [bNewImage], 1
|
|
jz @f
|
|
call generate_window_header
|
|
@@:
|
|
mcall SF_REDRAW, SSF_BEGIN_DRAW
|
|
mov ecx, [window.top]
|
|
shl ecx, 16
|
|
mov cx, word[window.height]
|
|
mov ebx, [window.left]
|
|
shl ebx, 16
|
|
mov bx, word[window.width]
|
|
mcall 0, , , [window_style], 0, window_header
|
|
|
|
mcall SF_THREAD_INFO, procinfo, -1
|
|
test [procinfo.wnd_state], 0x04
|
|
jnz .nodraw
|
|
|
|
stdcall copy_box, window, window_prev
|
|
stdcall copy_box, procinfo.box, window
|
|
test [bFirstWinDraw], 1
|
|
jnz .recalc
|
|
test [bToggleSlideShow], 1
|
|
jnz .recalc
|
|
mov eax, [window.width]
|
|
cmp eax, [window_prev.width]
|
|
jnz .recalc
|
|
mov eax, [window.height]
|
|
cmp eax, [window_prev.height]
|
|
jnz .recalc
|
|
test [bNewImage], 1
|
|
jnz .recalc
|
|
test [bToggleToolbar], 1
|
|
jnz .recalc
|
|
jmp .recalc_done
|
|
|
|
.recalc:
|
|
stdcall recalc_window
|
|
.recalc_done:
|
|
|
|
stdcall draw_client
|
|
.nodraw:
|
|
mcall SF_REDRAW, SSF_END_DRAW
|
|
mov [bFirstWinDraw], 0
|
|
mov [bNewImage], 0
|
|
mov [bToggleToolbar], 0
|
|
mov [bToggleSlideShow], 0
|
|
|
|
ret
|
|
endp
|
|
|
|
|
|
proc draw_view uses ebx esi edi
|
|
cmp [scale_mode], LIBIMG_SCALE_FIT_MIN
|
|
jnz .scale_none
|
|
mov ecx, [cur_frame]
|
|
mov eax, [ecx+Image.Width]
|
|
cmp eax, [view.width]
|
|
jnz .scale
|
|
mov eax, [ecx+Image.Height]
|
|
cmp eax, [view.height]
|
|
jnz .scale
|
|
jmp .draw
|
|
.scale:
|
|
mov eax, [orig_image]
|
|
cmp eax, [cur_image]
|
|
jz @f
|
|
invoke img.destroy, [cur_image]
|
|
mov eax, [orig_image]
|
|
@@:
|
|
invoke img.scale, eax, 0, 0, [eax+Image.Width], [eax+Image.Height], 0, LIBIMG_SCALE_STRETCH, LIBIMG_INTER_DEFAULT, [view.width], [view.height]
|
|
test eax, eax
|
|
;FIXME
|
|
mov [cur_image], eax
|
|
mov [cur_frame], eax ; FIXME index
|
|
jmp .draw
|
|
|
|
.scale_none:
|
|
|
|
.draw:
|
|
push [pict.top]
|
|
push [pict.left]
|
|
push [view.height]
|
|
push [view.width]
|
|
push [view_abs_top] ; ypos
|
|
push [view_abs_left] ; xpos
|
|
invoke img.draw, [cur_frame]
|
|
.done:
|
|
ret
|
|
endp
|
|
|
|
proc draw_scale_button
|
|
pushad
|
|
mcall 65, buttons+scalebtn*20, <20,20>, [scale_button_xy], 8, palette
|
|
mov ebx, [scale_button_xy]
|
|
add ebx, 0x00050006
|
|
; print letter(s) corresponding to the current scaling mode
|
|
mov edi, 2
|
|
mov [scale_button_letter], 'x1'
|
|
cmp [scale_mode], LIBIMG_SCALE_NONE
|
|
jz @f
|
|
add ebx, 0x00020001
|
|
mov edi, 1
|
|
mov [scale_button_letter], 'W'
|
|
; cmp [scale_mode], LIBIMG_SCALE_FIT_MIN
|
|
@@:
|
|
mcall 4, , 0x800000ff, scale_button_letter
|
|
popad
|
|
ret
|
|
endp
|
|
|
|
proc draw_toolbar uses ebx esi edi
|
|
cmp [toolbar.height], 0
|
|
jz .quit
|
|
mov ebx, [toolbar_abs_left]
|
|
shl ebx, 16
|
|
add ebx, [toolbar.width]
|
|
inc ebx
|
|
mov ecx, [toolbar_abs_top]
|
|
shl ecx, 16
|
|
add ecx, [toolbar.height]
|
|
mcall 13, , , [bg_color]
|
|
mov ebx, [toolbar_abs_left]
|
|
shl ebx, 16
|
|
add ebx, [toolbar_abs_left]
|
|
add ebx, [toolbar.width]
|
|
mov ecx, [toolbar_abs_top]
|
|
shl ecx, 16
|
|
add ecx, [toolbar_abs_top]
|
|
add ecx, (30 SHL 16)+30
|
|
mcall 38, , , 0x007F7F7F
|
|
mov ebx, [toolbar_abs_left]
|
|
shl ebx, 16
|
|
add ebx, [toolbar_abs_left]
|
|
add ebx, ((5+25*1) SHL 16)+(5+25*1)
|
|
mov ecx, [toolbar_abs_top]
|
|
shl ecx, 16
|
|
add ecx, [toolbar_abs_top]
|
|
add ecx, [toolbar.height]
|
|
mcall
|
|
add ebx, ((5+25*2) SHL 16)+(5+25*2)
|
|
mcall
|
|
add ebx, ((5+25*2) SHL 16)+(5+25*2)
|
|
mcall
|
|
add ebx, ((5+25*1) SHL 16)+(5+25*1)
|
|
mcall
|
|
mov ebx, [toolbar_abs_left]
|
|
add ebx, [toolbar.width]
|
|
sub ebx, 25*5+10
|
|
shl ebx, 16
|
|
add ebx, [toolbar_abs_left]
|
|
add ebx, [toolbar.width]
|
|
sub ebx, 25*5+10
|
|
mcall
|
|
|
|
mov ebx, [toolbar_abs_left]
|
|
shl ebx, 16
|
|
add ebx, ((4+25*0) SHL 16)+21
|
|
mov ecx, [toolbar_abs_top]
|
|
shl ecx, 16
|
|
add ecx, (4 SHL 16)+21
|
|
mcall SF_DEFINE_BUTTON, , , 'opn'+40000000h
|
|
add ebx, (5+25*1) SHL 16
|
|
mcall , , , 'bck'+40000000h
|
|
add ebx, (0+25*1) SHL 16
|
|
mcall , , , 'fwd'+40000000h
|
|
add ebx, (5+25*1) SHL 16
|
|
mcall , , , 'bgr'+40000000h
|
|
add ebx, (0+25*1) SHL 16
|
|
mcall , , , 'sld'+40000000h
|
|
add ebx, (5+25*1) SHL 16
|
|
mcall , , , 'scl'+40000000h
|
|
mov ebx, [toolbar_abs_left]
|
|
add ebx, [toolbar.width]
|
|
sub ebx, 25*5+10
|
|
add ebx, 5
|
|
shl ebx, 16
|
|
mov bl, 21
|
|
mcall , , , 'flh'+40000000h
|
|
add ebx, 25 SHL 16
|
|
mcall , , , 'flv'+40000000h
|
|
add ebx, 30 SHL 16
|
|
mcall , , , 'rtr'+40000000h
|
|
add ebx, 25 SHL 16
|
|
mcall , , , 'rtl'+40000000h
|
|
add ebx, 25 SHL 16
|
|
mcall , , , 'flb'+40000000h
|
|
|
|
mov ebp, (numimages-1)*20
|
|
|
|
mov edx, [toolbar_abs_left]
|
|
shl edx, 16
|
|
add edx, [toolbar_abs_top]
|
|
add edx, ((5+25*0) SHL 16)+5
|
|
mcall 65, buttons+openbtn *20, <20, 20>, , 8, palette
|
|
add edx, ((5+25*1) SHL 16)+0
|
|
mcall , buttons+backbtn *20
|
|
add edx, ((0+25*1) SHL 16)+0
|
|
mcall , buttons+forwardbtn*20
|
|
add edx, ((5+25*1) SHL 16)+0
|
|
mcall , buttons+bgrbtn *20
|
|
add edx, ((0+25*1) SHL 16)+0
|
|
mcall , buttons+slidebtn *20
|
|
add edx, ((5+25*1) SHL 16)+0
|
|
; mcall , buttons+scalebtn *20
|
|
mov [scale_button_xy], edx
|
|
call draw_scale_button
|
|
mov edx, [client_abs_left]
|
|
add edx, [client.width]
|
|
sub edx, 25*5+4
|
|
shl edx, 16
|
|
add edx, [client_abs_top]
|
|
add edx, 5
|
|
mcall , buttons+fliphorzbtn*20
|
|
add edx, 25*65536
|
|
mcall , buttons+flipvertbtn*20
|
|
add edx, 30*65536
|
|
mcall , buttons+rotcwbtn*20
|
|
add edx, 25*65536
|
|
mcall , buttons+rotccwbtn*20
|
|
add edx, 25*65536
|
|
mcall , buttons+rot180btn*20
|
|
|
|
.quit:
|
|
ret
|
|
endp
|
|
|
|
|
|
proc draw_canvas
|
|
push ebx esi edi
|
|
|
|
mov ebx, [canvas_abs_left]
|
|
shl ebx, 16
|
|
add ebx, [canvas.width]
|
|
mov ecx, [canvas_abs_top]
|
|
shl ecx, 16
|
|
add ecx, [view.top]
|
|
;mov edx, 0xff0000
|
|
mcall 13, , , [bg_color]
|
|
mcall 13
|
|
mov ecx, [view_abs_top]
|
|
add ecx, [view.height]
|
|
shl ecx, 16
|
|
add ecx, [canvas.height]
|
|
sub ecx, [view.top]
|
|
sub ecx, [view.height]
|
|
;mov edx, 0x00ff00
|
|
mcall 13, , , [bg_color]
|
|
mcall 13
|
|
mov ebx, [canvas_abs_left]
|
|
shl ebx, 16
|
|
add ebx, [view.left]
|
|
mov ecx, [canvas_abs_top]
|
|
shl ecx, 16
|
|
add ecx, [canvas.height]
|
|
;mov edx, 0x0000ff
|
|
;bg_color
|
|
mcall
|
|
mov ebx, [view_abs_left]
|
|
add ebx, [view.width]
|
|
shl ebx, 16
|
|
mov eax, [canvas.width]
|
|
sub eax, [view.left]
|
|
sub ebx, [view.width]
|
|
add ebx, eax
|
|
;mov edx, 0xffff00
|
|
;bg_color
|
|
mcall 13
|
|
@@:
|
|
|
|
call draw_view
|
|
|
|
pop edi esi ebx
|
|
ret
|
|
endp
|
|
|
|
|
|
proc draw_client
|
|
push ebx esi edi
|
|
|
|
test [bShowToolbar], 1
|
|
jz .toolbar_done
|
|
call draw_toolbar
|
|
.toolbar_done:
|
|
call draw_work
|
|
|
|
pop edi esi ebx
|
|
ret
|
|
endp
|
|
|
|
|
|
proc draw_work
|
|
push ebx esi edi
|
|
|
|
mov ebx, [work_abs_left]
|
|
shl ebx, 16
|
|
add ebx, [work.width]
|
|
inc ebx
|
|
mov ecx, [work_abs_top]
|
|
shl ecx, 16
|
|
add ecx, [canvas.top]
|
|
; mcall 13, , , 0xff0000
|
|
mcall 13, , , [bg_color]
|
|
mov eax, [canvas.height]
|
|
ror ecx, 16
|
|
add ecx, eax
|
|
add ecx, [canvas_padding]
|
|
ror ecx, 16
|
|
; mcall 13, , , 0x00ff00
|
|
mcall 13, , , [bg_color]
|
|
; mcall 13
|
|
|
|
mov ebx, [work_abs_left]
|
|
shl ebx, 16
|
|
add ebx, [canvas.left]
|
|
mov ecx, [work_abs_top]
|
|
add ecx, [canvas_padding]
|
|
shl ecx, 16
|
|
add ecx, [canvas.height]
|
|
; mcall 13, , , 0x0000ff
|
|
mcall 13, , , [bg_color]
|
|
; mcall
|
|
mov eax, [canvas.width]
|
|
ror ebx, 16
|
|
add ebx, eax
|
|
add ebx, [canvas_padding]
|
|
ror ebx, 16
|
|
; mcall 13, , , 0xffff00
|
|
mcall 13, , , [bg_color]
|
|
; mcall 13
|
|
|
|
call draw_canvas
|
|
call draw_onimage_decorations
|
|
|
|
mov eax, 13
|
|
cmp [need_scrollbar_v], 1
|
|
jnz @f
|
|
cmp [need_scrollbar_h], 1
|
|
jnz @f
|
|
mov ebx, [work_abs_left]
|
|
add ebx, [work.width]
|
|
sub ebx, SCROLL_WIDTH_SIZE
|
|
shl ebx, 16
|
|
add ebx, SCROLL_WIDTH_SIZE
|
|
inc ebx
|
|
mov ecx, [work_abs_top]
|
|
add ecx, [work.height]
|
|
sub ecx, SCROLL_WIDTH_SIZE
|
|
shl ecx, 16
|
|
add ecx, SCROLL_WIDTH_SIZE
|
|
inc ecx
|
|
mov edx, [bg_color]
|
|
; mov edx, 0x00ffff
|
|
mcall
|
|
@@:
|
|
|
|
cmp [need_scrollbar_v], 0
|
|
jz .v_scrollbar_done
|
|
mov eax, [client.left]
|
|
add eax, [client.width]
|
|
sub eax, SCROLL_WIDTH_SIZE
|
|
mov [scroll_bar_data_vertical.start_x], ax
|
|
mov eax, [toolbar.height]
|
|
add eax, [client.top]
|
|
mov [scroll_bar_data_vertical.start_y], ax
|
|
mov eax, [canvas.height]
|
|
add eax, [canvas_padding]
|
|
add eax, [canvas_padding]
|
|
mov [scroll_bar_data_vertical.size_y], ax
|
|
mov [scroll_bar_data_vertical.all_redraw], 1
|
|
invoke scrollbar_vert_draw, scroll_bar_data_vertical
|
|
.v_scrollbar_done:
|
|
|
|
cmp [need_scrollbar_h], 0
|
|
jz .h_scrollbar_done
|
|
mov eax, [client.left]
|
|
mov [scroll_bar_data_horizontal.start_x], ax
|
|
mov eax, [client.top]
|
|
add eax, [client.height]
|
|
sub eax, SCROLL_WIDTH_SIZE
|
|
mov [scroll_bar_data_horizontal.start_y], ax
|
|
mov eax, [canvas.width]
|
|
add eax, [canvas_padding]
|
|
add eax, [canvas_padding]
|
|
mov [scroll_bar_data_horizontal.size_x], ax
|
|
mov [scroll_bar_data_horizontal.all_redraw], 1
|
|
invoke scrollbar_hort_draw, scroll_bar_data_horizontal
|
|
.h_scrollbar_done:
|
|
|
|
pop edi esi ebx
|
|
ret
|
|
endp
|
|
|
|
|
|
proc draw_onimage_decorations
|
|
bt [window_style], 25
|
|
jc @f
|
|
; draw fullscreen decorations on image
|
|
call draw_filename
|
|
call draw_fullscreen_controls
|
|
@@:
|
|
ret
|
|
endp
|
|
|
|
|
|
proc draw_filename
|
|
push esi
|
|
mcall 4, <100, 65>, 0x40ffffff, window_header, [window_header_len], 0x008800
|
|
pop esi
|
|
ret
|
|
endp
|
|
|
|
|
|
proc draw_fullscreen_controls
|
|
push esi
|
|
mov ebx, [canvas.width]
|
|
shr ebx, 1
|
|
add ebx, [canvas.left]
|
|
sub ebx, 22
|
|
shl ebx, 16
|
|
add ebx, 20
|
|
mov ecx, [canvas.height]
|
|
shr ecx, 3
|
|
neg ecx
|
|
add ecx, [canvas.height]
|
|
add ecx, [canvas.top]
|
|
shl ecx, 16
|
|
add ecx, 20
|
|
mcall 8, , , 'bck'+40000000h
|
|
add ebx, 25 SHL 16
|
|
mcall 8, , , 'fwd'+40000000h
|
|
mov edx, [canvas.width]
|
|
shr edx, 1
|
|
add edx, [canvas.left]
|
|
sub edx, 22
|
|
shl edx, 16
|
|
add edx, [canvas.height]
|
|
shr dx, 3
|
|
neg dx
|
|
add dx, word[canvas.height]
|
|
add edx, [canvas.top]
|
|
mcall 65, buttons+backbtn*20, <20, 20>, , 8, palette
|
|
add edx, 25 SHL 16
|
|
mcall 65, buttons+forwardbtn*20, , , 8,
|
|
pop esi
|
|
ret
|
|
endp
|
|
|
|
|
|
proc check_shortcut
|
|
; in: cl = scancode (from sysfn 2),
|
|
; eax = state of modifiers (from sysfn 66.3),
|
|
; edx -> shortcut descriptor
|
|
; out: ZF set <=> fail
|
|
cmp cl, [edx+4]
|
|
jnz .not
|
|
push eax
|
|
mov esi, [edx]
|
|
and esi, 0xf
|
|
and al, 3
|
|
call dword[check_modifier_table+esi*4]
|
|
test al, al
|
|
pop eax
|
|
jnz .not
|
|
push eax
|
|
mov esi, [edx]
|
|
shr esi, 4
|
|
and esi, 0xf
|
|
shr al, 2
|
|
and al, 3
|
|
call dword[check_modifier_table+esi*4]
|
|
test al, al
|
|
pop eax
|
|
jnz .not
|
|
push eax
|
|
mov esi, [edx]
|
|
shr esi, 8
|
|
and esi, 0xf
|
|
shr al, 4
|
|
and al, 3
|
|
call dword[check_modifier_table+esi*4]
|
|
test al, al
|
|
pop eax
|
|
; jnz .not
|
|
.not:
|
|
ret
|
|
endp
|
|
|
|
|
|
check_modifier_0:
|
|
setnz al
|
|
ret
|
|
check_modifier_1:
|
|
setp al
|
|
ret
|
|
check_modifier_2:
|
|
cmp al, 3
|
|
setnz al
|
|
ret
|
|
check_modifier_3:
|
|
cmp al, 1
|
|
setnz al
|
|
ret
|
|
check_modifier_4:
|
|
cmp al, 2
|
|
setnz al
|
|
ret
|
|
|
|
; >edi = destination string
|
|
; >eax = number
|
|
proc bin2dec
|
|
push ebx ecx edx esi
|
|
|
|
mov ebx, 10
|
|
xor ecx, ecx
|
|
@@:
|
|
xor edx, edx
|
|
div ebx
|
|
push edx
|
|
inc ecx
|
|
test eax, eax
|
|
jnz @b
|
|
|
|
@@:
|
|
pop eax
|
|
add eax, '0'
|
|
stosb
|
|
inc [window_header_len]
|
|
dec ecx
|
|
jnz @b
|
|
|
|
pop esi edx ecx ebx
|
|
ret
|
|
endp
|
|
|
|
|
|
; fills window_header with window title
|
|
; window title is generated as '[k/n] <filename> - Kolibri Image Viewer'
|
|
; n = total files in dir
|
|
; k = current file index
|
|
proc generate_window_header
|
|
push eax ebx esi edi
|
|
mov esi, [last_name_component]
|
|
mov edi, window_header
|
|
mov [window_header_len], 4 ; [,/,],
|
|
|
|
mov byte[edi], '['
|
|
inc edi
|
|
mov eax, [cur_file_idx]
|
|
inc eax
|
|
call bin2dec
|
|
mov byte[edi], '/'
|
|
inc edi
|
|
mov eax, [directory_ptr]
|
|
mov eax, [eax+4]
|
|
call bin2dec
|
|
mov word[edi], '] '
|
|
add edi, 2
|
|
|
|
; add filename
|
|
.next_symbol:
|
|
lodsb
|
|
test al, al
|
|
jz @f
|
|
stosb
|
|
inc [window_header_len]
|
|
cmp edi, window_header+256
|
|
jb .next_symbol
|
|
.overflow:
|
|
mov dword[edi-4], '...'
|
|
.ret:
|
|
pop edi esi ebx eax
|
|
ret
|
|
@@:
|
|
mov esi, s_header
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
test al, al
|
|
jz .ret
|
|
cmp edi, window_header+256
|
|
jb @b
|
|
jmp .overflow
|
|
endp
|
|
|
|
|
|
proc scale_none_calc
|
|
push ebx
|
|
|
|
mov [scale_mode], LIBIMG_SCALE_NONE
|
|
|
|
mov eax, [orig_image]
|
|
mov [cur_image], eax
|
|
mov [cur_frame], eax
|
|
mov ebx, eax
|
|
|
|
mov [need_scrollbar_v], 0
|
|
mov [need_scrollbar_h], 0
|
|
|
|
mov eax, [ebx+Image.Width]
|
|
cmp eax, [canvas.width]
|
|
jbe @f
|
|
sub [canvas.height], SCROLL_WIDTH_SIZE+1
|
|
mov [need_scrollbar_h], 1
|
|
@@:
|
|
mov eax, [ebx+Image.Height]
|
|
cmp eax, [canvas.height]
|
|
jbe @f
|
|
sub [canvas.width], SCROLL_WIDTH_SIZE+1
|
|
mov [need_scrollbar_v], 1
|
|
@@:
|
|
cmp [need_scrollbar_h], 1
|
|
jz @f
|
|
mov eax, [ebx+Image.Width]
|
|
cmp eax, [canvas.width]
|
|
jbe @f
|
|
sub [canvas.height], SCROLL_WIDTH_SIZE+1
|
|
mov [need_scrollbar_h], 1
|
|
@@:
|
|
|
|
|
|
mov eax, [ebx+Image.Width]
|
|
cmp eax, [canvas.width]
|
|
jbe @f
|
|
mov eax, [canvas.width]
|
|
@@:
|
|
mov [view.width], eax
|
|
mov [pict.width], eax
|
|
|
|
mov eax, [ebx+Image.Height]
|
|
cmp eax, [canvas.height]
|
|
jbe @f
|
|
mov eax, [canvas.height]
|
|
@@:
|
|
mov [view.height], eax
|
|
mov [pict.height], eax
|
|
|
|
mov eax, [canvas.width]
|
|
sub eax, [view.width]
|
|
sar eax, 1
|
|
mov [view.left], eax
|
|
mov eax, [canvas.height]
|
|
sub eax, [view.height]
|
|
sar eax, 1
|
|
mov [view.top], eax
|
|
|
|
mov eax, [ebx+Image.Width]
|
|
sub eax, [pict.width]
|
|
sar eax, 1
|
|
mov [pict.left], eax
|
|
mov eax, [ebx+Image.Height]
|
|
sub eax, [pict.height]
|
|
sar eax, 1
|
|
mov [pict.top], eax
|
|
|
|
|
|
mov eax, [ebx+Image.Height]
|
|
mov [scroll_bar_data_vertical.max_area], eax
|
|
mov eax, [pict.height]
|
|
mov [scroll_bar_data_vertical.cur_area], eax
|
|
mov eax, [pict.top]
|
|
mov [scroll_bar_data_vertical.position], eax
|
|
|
|
mov eax, [ebx+Image.Width]
|
|
mov [scroll_bar_data_horizontal.max_area], eax
|
|
mov eax, [pict.width]
|
|
mov [scroll_bar_data_horizontal.cur_area], eax
|
|
mov eax, [pict.left]
|
|
mov [scroll_bar_data_horizontal.position], eax
|
|
|
|
pop ebx
|
|
ret
|
|
endp
|
|
|
|
|
|
proc scale_fit_min_calc
|
|
push ebx
|
|
|
|
mov [need_scrollbar_v], 0
|
|
mov [need_scrollbar_h], 0
|
|
mov [scroll_bar_data_vertical.position], 0
|
|
mov [scroll_bar_data_horizontal.position], 0
|
|
|
|
mov eax, [orig_image]
|
|
cmp [eax+Image.Type], Image.bpp24
|
|
jz @f
|
|
cmp [eax+Image.Type], Image.bpp32
|
|
jz @f
|
|
cmp [eax+Image.Type], Image.bpp8g
|
|
jz @f
|
|
invoke img.convert, eax, 0, Image.bpp24, 0, 0
|
|
test eax, eax
|
|
; jz .error
|
|
push eax
|
|
invoke img.destroy, [orig_image]
|
|
pop eax
|
|
mov [orig_image], eax
|
|
mov [cur_image], eax
|
|
mov [cur_frame], eax
|
|
@@:
|
|
|
|
mov eax, [orig_image]
|
|
mov ecx, [eax+Image.Height]
|
|
mov eax, [eax+Image.Width]
|
|
cmp eax, [canvas.width]
|
|
ja .get_size
|
|
cmp ecx, [canvas.height]
|
|
ja .get_size
|
|
jmp .got_size
|
|
.get_size:
|
|
invoke img.get_scaled_size, eax, ecx, LIBIMG_SCALE_FIT_MIN, [canvas.width], [canvas.height]
|
|
.got_size:
|
|
|
|
mov [pict.top], 0
|
|
mov [pict.left], 0
|
|
|
|
cmp eax, [canvas.width]
|
|
jbe @f
|
|
mov eax, [canvas.width]
|
|
@@:
|
|
mov [view.width], eax
|
|
mov [pict.width], eax
|
|
neg eax
|
|
add eax, [canvas.width]
|
|
shr eax, 1
|
|
mov [view.left], eax
|
|
|
|
mov eax, ecx
|
|
cmp eax, [canvas.height]
|
|
jbe @f
|
|
mov eax, [canvas.height]
|
|
@@:
|
|
mov [view.height], eax
|
|
mov [pict.height], eax
|
|
neg eax
|
|
add eax, [canvas.height]
|
|
shr eax, 1
|
|
mov [view.top], eax
|
|
|
|
|
|
pop ebx
|
|
ret
|
|
endp
|
|
|
|
|
|
; eax: new scaling mode
|
|
; z/Z - not/changed
|
|
proc set_scale_mode
|
|
cmp eax, [scale_mode]
|
|
mov [scale_mode], eax
|
|
setnz [bScaleModeChanged]
|
|
ret
|
|
endp
|
|
|
|
proc move_pictport _dx, _dy
|
|
locals
|
|
new_left dd ?
|
|
new_top dd ?
|
|
endl
|
|
push ebx ecx
|
|
|
|
mov ebx, [cur_image]
|
|
.x:
|
|
mov eax, [pict.left]
|
|
add eax, [_dx]
|
|
cmp eax, 0
|
|
jge @f
|
|
mov [new_left], 0
|
|
jmp .xdone
|
|
@@:
|
|
mov ecx, eax
|
|
add eax, [pict.width]
|
|
cmp eax, [ebx+Image.Width]
|
|
ja @f
|
|
mov [new_left], ecx
|
|
jmp .xdone
|
|
@@:
|
|
mov eax, [ebx+Image.Width]
|
|
sub eax, [pict.width]
|
|
mov [new_left], eax
|
|
jmp .xdone
|
|
.xdone:
|
|
|
|
.y:
|
|
mov eax, [pict.top]
|
|
add eax, [_dy]
|
|
cmp eax, 0
|
|
jge @f
|
|
mov [new_top], 0
|
|
jmp .ydone
|
|
@@:
|
|
mov ecx, eax
|
|
add eax, [pict.height]
|
|
cmp eax, [ebx+Image.Height]
|
|
ja @f
|
|
mov [new_top], ecx
|
|
jmp .ydone
|
|
@@:
|
|
mov eax, [ebx+Image.Height]
|
|
sub eax, [pict.height]
|
|
mov [new_top], eax
|
|
jmp .ydone
|
|
.ydone:
|
|
|
|
xor eax, eax
|
|
mov ecx, [new_left]
|
|
mov edx, [new_top]
|
|
|
|
cmp ecx, [pict.left]
|
|
setnz al
|
|
shl eax, 8
|
|
|
|
cmp edx, [pict.top]
|
|
setnz al
|
|
|
|
mov [pict.left], ecx
|
|
mov [pict.top], edx
|
|
|
|
pop ecx ebx
|
|
ret
|
|
endp
|
|
|
|
|
|
proc update_scrollbars _xxhv
|
|
mov eax, [_xxhv]
|
|
|
|
test ah, ah
|
|
jz .no_h_scroll
|
|
push eax
|
|
mov [scroll_bar_data_horizontal.all_redraw], 0
|
|
mov eax, [pict.left]
|
|
mov [scroll_bar_data_horizontal.position], eax
|
|
invoke scrollbar_hort_draw, scroll_bar_data_horizontal
|
|
pop eax
|
|
.no_h_scroll:
|
|
test al, al
|
|
jz .no_v_scroll
|
|
push eax
|
|
mov [scroll_bar_data_vertical.all_redraw], 0
|
|
mov eax, [pict.top]
|
|
mov [scroll_bar_data_vertical.position], eax
|
|
invoke scrollbar_vert_draw, scroll_bar_data_vertical
|
|
pop eax
|
|
.no_v_scroll:
|
|
|
|
ret
|
|
endp
|
|
|
|
|
|
proc merge_icons_to_single_img _img
|
|
push ebx esi edi
|
|
|
|
mov edx, [_img]
|
|
mov eax, [edx+Image.Width]
|
|
mov ecx, [edx+Image.Height]
|
|
.next:
|
|
cmp [edx+Image.Next], 0
|
|
jz .got_sizes
|
|
inc eax
|
|
mov edx, [edx+Image.Next]
|
|
add eax, [edx+Image.Width]
|
|
cmp ecx, [edx+Image.Height]
|
|
jae @f
|
|
mov ecx, [edx+Image.Height]
|
|
@@:
|
|
jmp .next
|
|
|
|
.got_sizes:
|
|
invoke img.create, eax, ecx, Image.bpp32
|
|
test eax, eax
|
|
jz .error
|
|
mov ebx, eax
|
|
|
|
mov eax, [bg_color]
|
|
mov edi, [ebx+Image.Data]
|
|
mov ecx, [ebx+Image.Width]
|
|
imul ecx, [ebx+Image.Height]
|
|
rep stosd
|
|
|
|
mov eax, [_img]
|
|
cmp [eax+Image.Type], Image.bpp32
|
|
jz @f
|
|
invoke img.convert, eax, 0, Image.bpp32, 0, 0
|
|
test eax, eax
|
|
jz .error
|
|
push eax
|
|
invoke img.destroy, [_img]
|
|
pop eax
|
|
@@:
|
|
mov esi, eax
|
|
xor edi, edi
|
|
.next_img:
|
|
stdcall put_img_on_img, ebx, esi, edi, 0
|
|
add edi, [esi+Image.Width]
|
|
inc edi
|
|
cmp [esi+Image.Next], 0
|
|
jz @f
|
|
mov esi, [esi+Image.Next]
|
|
jmp .next_img
|
|
@@:
|
|
invoke img.destroy, esi
|
|
mov eax, ebx
|
|
jmp .quit
|
|
|
|
.error:
|
|
xor eax, eax
|
|
.quit:
|
|
pop edi esi ebx
|
|
ret
|
|
endp
|
|
|
|
|
|
proc put_img_on_img _bottom, _top, _x, _y
|
|
locals
|
|
img_height dd ?
|
|
endl
|
|
push ebx esi edi
|
|
|
|
mov ebx, [_bottom]
|
|
mov edx, [_top]
|
|
mov eax, [edx+Image.Height]
|
|
mov [img_height], eax
|
|
mov esi, [edx+Image.Data]
|
|
mov edi, [ebx+Image.Data]
|
|
mov eax, [_y]
|
|
imul eax, [ebx+Image.Width]
|
|
add eax, [_x]
|
|
shl eax, 2
|
|
add edi, eax
|
|
.next_line:
|
|
mov ecx, [edx+Image.Width]
|
|
rep movsd
|
|
mov eax, [ebx+Image.Width]
|
|
sub eax, [edx+Image.Width]
|
|
shl eax, 2
|
|
add edi, eax
|
|
dec [img_height]
|
|
jnz .next_line
|
|
|
|
pop edi esi ebx
|
|
ret
|
|
endp
|
|
|
|
|
|
proc copy_box _src, _dst
|
|
pushad
|
|
|
|
mov esi, [_src]
|
|
mov edi, [_dst]
|
|
mov ecx, 4
|
|
rep movsd
|
|
|
|
popad
|
|
ret
|
|
endp
|
|
|
|
|
|
proc cmp_box _a, _b
|
|
pushad
|
|
|
|
mov esi, [_a]
|
|
mov edi, [_b]
|
|
mov ecx, 4
|
|
rep cmpsd
|
|
|
|
popad
|
|
ret
|
|
endp
|
|
|
|
|
|
proc recalc_client
|
|
stdcall copy_box, toolbar, toolbar_prev
|
|
mov [toolbar.left], 0
|
|
mov [toolbar.top], 0
|
|
mov eax, [client.width]
|
|
mov [toolbar.width], eax
|
|
mov [toolbar.height], 0
|
|
cmp [bShowToolbar], 1
|
|
jnz @f
|
|
mov [toolbar.height], TOOLBAR_HEIGHT
|
|
@@:
|
|
|
|
mov eax, [toolbar.top]
|
|
add eax, [client_abs_top]
|
|
mov [toolbar_abs_top], eax
|
|
mov eax, [toolbar.left]
|
|
add eax, [client_abs_left]
|
|
mov [toolbar_abs_left], eax
|
|
|
|
test [bFirstWinDraw], 1
|
|
jnz .recalc_toolbar
|
|
stdcall cmp_box, toolbar, toolbar_prev
|
|
jnz .recalc_toolbar
|
|
test [bNewImage], 1
|
|
jnz .recalc_toolbar
|
|
jmp .recalc_toolbar_done
|
|
.recalc_toolbar:
|
|
stdcall recalc_toolbar
|
|
.recalc_toolbar_done:
|
|
|
|
stdcall copy_box, work, work_prev
|
|
xor ecx, ecx
|
|
test [bShowToolbar], 1
|
|
jz @f
|
|
mov ecx, [toolbar.height]
|
|
@@:
|
|
mov eax, ecx
|
|
mov [work.top], eax
|
|
mov eax, [client.height]
|
|
sub eax, ecx
|
|
mov [work.height], eax
|
|
mov [work.left], 0
|
|
mov eax, [client.width]
|
|
mov [work.width], eax
|
|
|
|
mov eax, [work.top]
|
|
add eax, [client_abs_top]
|
|
mov [work_abs_top], eax
|
|
mov eax, [work.left]
|
|
add eax, [client_abs_left]
|
|
mov [work_abs_left], eax
|
|
|
|
test [bFirstWinDraw], 1
|
|
jnz .recalc_work
|
|
test [bNewImage], 1
|
|
jnz .recalc_work
|
|
stdcall cmp_box, work, work_prev
|
|
jnz .recalc_work
|
|
jmp .recalc_work_done
|
|
.recalc_work:
|
|
stdcall recalc_work
|
|
.recalc_work_done:
|
|
|
|
ret
|
|
endp
|
|
|
|
|
|
proc recalc_toolbar
|
|
|
|
ret
|
|
endp
|
|
|
|
|
|
proc recalc_window
|
|
stdcall copy_box, client, client_prev
|
|
test [bSlideShow], 1
|
|
jz .no_slide_show
|
|
.slide_show:
|
|
mov [client.left], 0
|
|
mov [client.top], 0
|
|
mov eax, [procinfo.box.width]
|
|
mov [client.width], eax
|
|
mov eax, [procinfo.box.height]
|
|
mov [client.height], eax
|
|
jmp .calc_abs
|
|
.no_slide_show:
|
|
mcall SF_STYLE_SETTINGS, SSF_GET_SKIN_HEIGHT
|
|
mov [client.top], eax
|
|
neg eax
|
|
add eax, [procinfo.box.height]
|
|
sub eax, 5
|
|
mov [client.height], eax
|
|
mov [client.left], 5
|
|
mov eax, [procinfo.box.width]
|
|
sub eax, 10
|
|
mov [client.width], eax
|
|
|
|
.calc_abs:
|
|
mov eax, [client.top]
|
|
mov [client_abs_top], eax
|
|
mov eax, [client.left]
|
|
mov [client_abs_left], eax
|
|
|
|
stdcall cmp_box, client, client_prev
|
|
jnz .recalc_client
|
|
test [bNewImage], 1
|
|
jnz .recalc_client
|
|
test [bToggleToolbar], 1
|
|
jnz .recalc_client
|
|
jmp .recalc_client_done
|
|
.recalc_client:
|
|
stdcall recalc_client
|
|
.recalc_client_done:
|
|
|
|
ret
|
|
endp
|
|
|
|
|
|
proc recalc_work
|
|
stdcall copy_box, canvas, canvas_prev
|
|
mov eax, [work.left]
|
|
add eax, [canvas_padding]
|
|
mov [canvas.left], eax
|
|
mov eax, [work.width]
|
|
sub eax, [canvas_padding]
|
|
sub eax, [canvas_padding]
|
|
inc eax
|
|
mov [canvas.width], eax
|
|
mov eax, [canvas_padding]
|
|
mov [canvas.top], eax
|
|
mov eax, [work.height]
|
|
sub eax, [canvas_padding]
|
|
sub eax, [canvas_padding]
|
|
inc eax
|
|
mov [canvas.height], eax
|
|
|
|
mov eax, [canvas.top]
|
|
add eax, [work_abs_top]
|
|
mov [canvas_abs_top], eax
|
|
mov eax, [canvas.left]
|
|
add eax, [work_abs_left]
|
|
mov [canvas_abs_left], eax
|
|
|
|
test [bFirstWinDraw], 1
|
|
jnz .recalc_canvas
|
|
test [bNewImage], 1
|
|
jnz .recalc_canvas
|
|
stdcall cmp_box, canvas, canvas_prev
|
|
jnz .recalc_canvas
|
|
cmp [bScaleModeChanged], 0
|
|
jnz .recalc_canvas
|
|
jmp .recalc_canvas_done
|
|
.recalc_canvas:
|
|
stdcall recalc_canvas
|
|
.recalc_canvas_done:
|
|
ret
|
|
endp
|
|
|
|
|
|
proc recalc_canvas
|
|
stdcall copy_box, view, view_prev
|
|
mov eax, [scale_mode]
|
|
call [scale_mode_calc+eax*4]
|
|
|
|
mov eax, [view.top]
|
|
add eax, [canvas_abs_top]
|
|
mov [view_abs_top], eax
|
|
mov eax, [view.left]
|
|
add eax, [canvas_abs_left]
|
|
mov [view_abs_left], eax
|
|
|
|
ret
|
|
endp
|
|
|
|
;-----------------------------------------------------------------------------
|
|
DATA
|
|
|
|
s_header db ' - Kolibri Image Viewer',0
|
|
window_style dd 0x53FFFFFF
|
|
window BOX 101, 144, 529, 324 ; left top width height
|
|
window_prev BOX 0, 0, 0, 0
|
|
window_save BOX 0, 0, 0, 0 ; restore after slide show
|
|
client BOX 0, 0, 0, 0
|
|
client_prev BOX 0, 0, 0, 0
|
|
client_abs_top dd ?
|
|
client_abs_left dd ?
|
|
toolbar BOX 0, 0, 0, 0
|
|
toolbar_prev BOX 0, 0, 0, 0
|
|
toolbar_abs_top dd ?
|
|
toolbar_abs_left dd ?
|
|
work BOX 0, 0, 0, 0
|
|
work_prev BOX 0, 0, 0, 0
|
|
work_abs_top dd ?
|
|
work_abs_left dd ?
|
|
canvas BOX 0, 0, 0, 0
|
|
canvas_prev BOX 0, 0, 0, 0
|
|
canvas_abs_top dd ?
|
|
canvas_abs_left dd ?
|
|
view BOX -1, -1, 0, 0
|
|
view_prev BOX -1, -1, 0, 0
|
|
view_abs_top dd ?
|
|
view_abs_left dd ?
|
|
pict BOX 0, 0, 0, 0
|
|
canvas_padding dd 5
|
|
bg_color dd 0x00ffffff
|
|
scale_mode dd LIBIMG_SCALE_FIT_MIN
|
|
pict_drag dd 0
|
|
scroll_v_drag dd 0
|
|
scroll_h_drag dd 0
|
|
|
|
mouse_buttons dd 0
|
|
mouse_pos dd 0
|
|
need_scrollbar_v dd 0
|
|
need_scrollbar_h dd 0
|
|
|
|
pict_moved dd 0
|
|
|
|
;-----------------------------------------------------------------------------
|
|
align 4
|
|
scroll_bar_data_vertical:
|
|
.x:
|
|
.size_x dw SCROLL_WIDTH_SIZE
|
|
.start_x dw 1
|
|
.y:
|
|
.size_y dw 100
|
|
.start_y dw 0
|
|
.btn_high dd SCROLL_WIDTH_SIZE
|
|
.type dd 0 ;+12
|
|
.max_area dd 100 ;+16
|
|
.cur_area dd 10 ;+20
|
|
.position dd 0 ;+24
|
|
.bckg_col dd 0xAAAAAA ;+28
|
|
.frnt_col dd 0xCCCCCC ;+32
|
|
.line_col dd 0 ;+36
|
|
.redraw dd 0 ;+40
|
|
.delta dw 0 ;+44
|
|
.delta2 dw 0 ;+46
|
|
.run_x:
|
|
.r_size_x dw 0 ;+48
|
|
.r_start_x dw 0 ;+50
|
|
.run_y:
|
|
.r_size_y dw 0 ;+52
|
|
.r_start_y dw 0 ;+54
|
|
.m_pos dd 0 ;+56
|
|
.m_pos_2 dd 0 ;+60
|
|
.m_keys dd 0 ;+64
|
|
.run_size dd 0 ;+68
|
|
.position2 dd 0 ;+72
|
|
.work_size dd 0 ;+76
|
|
.all_redraw dd 0 ;+80
|
|
.ar_offset dd KEY_MOVE_PIXELS ;+84
|
|
;-----------------------------------------------------------------------------
|
|
align 4
|
|
scroll_bar_data_horizontal:
|
|
.x:
|
|
.size_x dw 0 ;+0
|
|
.start_x dw 0 ;+2
|
|
.y:
|
|
.size_y dw SCROLL_WIDTH_SIZE ;+4
|
|
.start_y dw 0 ;+6
|
|
.btn_high dd SCROLL_WIDTH_SIZE ;+8
|
|
.type dd 0 ;+12
|
|
.max_area dd 50 ;+16
|
|
.cur_area dd 50 ;+20
|
|
.position dd 0 ;+24
|
|
.bckg_col dd 0xAAAAAA ;+28
|
|
.frnt_col dd 0xCCCCCC ;+32
|
|
.line_col dd 0 ;+36
|
|
.redraw dd 0 ;+40
|
|
.delta dw 0 ;+44
|
|
.delta2 dw 0 ;+46
|
|
.run_x:
|
|
.r_size_x dw 0 ;+48
|
|
.r_start_x dw 0 ;+50
|
|
.run_y:
|
|
.r_size_y dw 0 ;+52
|
|
.r_start_y dw 0 ;+54
|
|
.m_pos dd 0 ;+56
|
|
.m_pos_2 dd 0 ;+60
|
|
.m_keys dd 0 ;+64
|
|
.run_size dd 0 ;+68
|
|
.position2 dd 0 ;+72
|
|
.work_size dd 0 ;+76
|
|
.all_redraw dd 0 ;+80
|
|
.ar_offset dd KEY_MOVE_PIXELS ;+84
|
|
;-----------------------------------------------------------------------------
|
|
align 4
|
|
@IMPORT:
|
|
|
|
library \
|
|
libgfx , 'libgfx.obj' , \
|
|
libimg , 'libimg.obj' , \
|
|
libini , 'libini.obj' , \
|
|
sort , 'sort.obj' , \
|
|
proc_lib, 'proc_lib.obj', \
|
|
box_lib , 'box_lib.obj'
|
|
|
|
|
|
import libgfx , \
|
|
libgfx.init , 'lib_init' , \
|
|
gfx.open , 'gfx_open' , \
|
|
gfx.close , 'gfx_close' , \
|
|
gfx.pen.color, 'gfx_pen_color', \
|
|
gfx.line , 'gfx_line'
|
|
|
|
import libimg , \
|
|
libimg.init , 'lib_init' , \
|
|
img.from_file , 'img_from_file' , \
|
|
img.to_rgb2 , 'img_to_rgb2' , \
|
|
img.create , 'img_create' , \
|
|
img.flip , 'img_flip' , \
|
|
img.rotate , 'img_rotate' , \
|
|
img.destroy , 'img_destroy' , \
|
|
img.scale , 'img_scale' , \
|
|
img.get_scaled_size, 'img_get_scaled_size', \
|
|
img.convert , 'img_convert' , \
|
|
img.draw , 'img_draw'
|
|
|
|
import libini , \
|
|
ini_get_shortcut, 'ini_get_shortcut', \
|
|
ini_set_str, 'ini_set_str'
|
|
|
|
import sort ,\
|
|
sort.START, 'START' ,\
|
|
SortDir , 'SortDir',\
|
|
strcmpi , 'strcmpi'
|
|
|
|
import proc_lib ,\
|
|
OpenDialog_Init , 'OpenDialog_init' ,\
|
|
OpenDialog_Start, 'OpenDialog_start'
|
|
|
|
import box_lib ,\
|
|
scrollbar_vert_draw , 'scrollbar_v_draw' ,\
|
|
scrollbar_vert_mouse, 'scrollbar_v_mouse',\
|
|
scrollbar_hort_draw , 'scrollbar_h_draw' ,\
|
|
scrollbar_hort_mouse, 'scrollbar_h_mouse'
|
|
|
|
bFirstWinDraw db 1
|
|
bSlideShow db 0
|
|
bToggleSlideShow db 0
|
|
bShowToolbar db 1
|
|
bShowToolbarSave db 0 ; to restore state when return from slide show
|
|
bToggleToolbar db 0
|
|
bScaleModeChanged db 0
|
|
bNewImage db 0
|
|
;-----------------------------------------------------------------------------
|
|
|
|
virtual at 0
|
|
file 'kivicons.bmp':0xA,4
|
|
load offbits dword from 0
|
|
end virtual
|
|
numimages = 11
|
|
openbtn = 0
|
|
backbtn = 1
|
|
forwardbtn = 2
|
|
bgrbtn = 3
|
|
fliphorzbtn = 4
|
|
flipvertbtn = 5
|
|
rotcwbtn = 6
|
|
rotccwbtn = 7
|
|
rot180btn = 8
|
|
slidebtn = 9
|
|
scalebtn = 10
|
|
|
|
palette:
|
|
file 'kivicons.bmp':0x36,offbits-0x36
|
|
buttons:
|
|
file 'kivicons.bmp':offbits
|
|
repeat 10
|
|
y = %-1
|
|
z = 20-%
|
|
repeat numimages*5
|
|
load a dword from $ - numimages*20*20 + numimages*20*y + (%-1)*4
|
|
load b dword from $ - numimages*20*20 + numimages*20*z + (%-1)*4
|
|
store dword a at $ - numimages*20*20 + numimages*20*z + (%-1)*4
|
|
store dword b at $ - numimages*20*20 + numimages*20*y + (%-1)*4
|
|
end repeat
|
|
end repeat
|
|
|
|
inifilename db '/sys/settings/app.ini',0
|
|
aShortcuts db 'Kiv',0
|
|
aNext db 'Next',0
|
|
aPrev db 'Prev',0
|
|
aSlide db 'SlideShow',0
|
|
aTglbar db 'ToggleBar',0
|
|
|
|
inifileeskin db '/sys/settings/eskin.ini',0
|
|
amain db 'bg',0
|
|
aprogram db 'program',0
|
|
aparam db 'param',0
|
|
|
|
align 4
|
|
check_modifier_table:
|
|
dd check_modifier_0
|
|
dd check_modifier_1
|
|
dd check_modifier_2
|
|
dd check_modifier_3
|
|
dd check_modifier_4
|
|
|
|
;---------------------------------------------------------------------
|
|
align 4
|
|
OpenDialog_data:
|
|
.type dd 0
|
|
.procinfo dd procinfo ; +4
|
|
.com_area_name dd communication_area_name ; +8
|
|
.com_area dd 0 ; +12
|
|
.opendir_path dd temp_dir_path ; +16
|
|
.dir_default_path dd communication_area_default_path ; +20
|
|
.start_path dd open_dialog_path ; +24
|
|
.draw_window dd draw_window ; +28
|
|
.status dd 0 ; +32
|
|
.openfile_path dd path ; openfile_path ; +36
|
|
.filename_area dd 0 ; +40
|
|
.filter_area dd Filter
|
|
.x:
|
|
.x_size dw 420 ; +48 ; Window X size
|
|
.x_start dw 10 ; +50 ; Window X position
|
|
.y:
|
|
.y_size dw 320 ; +52 ; Window y size
|
|
.y_start dw 10 ; +54 ; Window Y position
|
|
|
|
communication_area_name:
|
|
db 'FFFFFFFF_open_dialog',0
|
|
|
|
open_dialog_path:
|
|
if __nightbuild eq yes
|
|
db '/sys/MANAGERS/opendial',0
|
|
else
|
|
db '/sys/File Managers/opendial',0
|
|
end if
|
|
communication_area_default_path:
|
|
db '/rd/1',0
|
|
|
|
Filter:
|
|
dd Filter.end-Filter
|
|
.1:
|
|
db 'BMP',0
|
|
db 'GIF',0
|
|
db 'JPG',0
|
|
db 'JPEG',0
|
|
db 'JPE',0
|
|
db 'PNG',0
|
|
db 'ICO',0
|
|
db 'CUR',0
|
|
db 'TGA',0
|
|
db 'PCX',0
|
|
db 'XCF',0
|
|
db 'PBM',0
|
|
db 'PGM',0
|
|
db 'PNM',0
|
|
db 'PPM',0
|
|
db 'TIF',0
|
|
db 'TIFF',0
|
|
db 'WBMP',0
|
|
db 'WEBP',0
|
|
db 'XBM',0
|
|
.end:
|
|
db 0
|
|
|
|
draw_window_fake:
|
|
ret
|
|
;------------------------------------------------------------------------------
|
|
scale_mode_calc dd scale_none_calc, 0, 0, 0, scale_fit_min_calc
|
|
|
|
scale_none_mod dd 0
|
|
scale_none_key dd 13 ; '='
|
|
scale_fit_min_mod dd 0
|
|
scale_fit_min_key dd 17 ; 'w'
|
|
|
|
move_pictport_left_1_mod dd 0
|
|
move_pictport_left_1_key dd 35 ; 'h'
|
|
move_pictport_left_2_mod dd 0
|
|
move_pictport_left_2_key dd 75 ; arrow left
|
|
|
|
move_pictport_right_1_mod dd 0
|
|
move_pictport_right_1_key dd 38 ; 'l'
|
|
move_pictport_right_2_mod dd 0
|
|
move_pictport_right_2_key dd 77 ; arrow right
|
|
|
|
move_pictport_up_1_mod dd 0
|
|
move_pictport_up_1_key dd 37 ; 'k'
|
|
move_pictport_up_2_mod dd 0
|
|
move_pictport_up_2_key dd 72 ; arrow up
|
|
|
|
move_pictport_down_1_mod dd 0
|
|
move_pictport_down_1_key dd 36 ; 'j'
|
|
move_pictport_down_2_mod dd 0
|
|
move_pictport_down_2_key dd 80 ; arrow down
|
|
|
|
;shift_left_down_mod
|
|
|
|
;include_debug_strings
|
|
|
|
readdir_fileinfo:
|
|
dd 1
|
|
dd 0
|
|
dd 0
|
|
readblocks dd 0
|
|
directory_ptr dd 0
|
|
curdir rb 1024
|
|
;------------------------------------------------------------------------------
|
|
|
|
I_END:
|
|
align 4
|
|
img_data_len rd 1
|
|
fh rd 1
|
|
orig_image rd 1
|
|
cur_image rd 1
|
|
files_num rd 1
|
|
cur_file_idx rd 1
|
|
cur_frame_time rd 1
|
|
cur_frame rd 1
|
|
|
|
next_mod rd 1
|
|
next_key rd 1
|
|
prev_mod rd 1
|
|
prev_key rd 1
|
|
slide_mod rd 1
|
|
slide_key rd 1
|
|
tglbar_mod rd 1
|
|
tglbar_key rd 1
|
|
|
|
|
|
last_name_component rd 1
|
|
toolbar.height_old rd 1
|
|
|
|
procinfo process_information
|
|
scale_button_xy dd ?
|
|
scale_button_letter dd ? ; i.e. 'x1',0
|
|
align 16
|
|
path rb 4096
|
|
window_header rb 256
|
|
window_header_len rd 1
|
|
__params rb 4096
|
|
;---------------------------------------------------------------------
|
|
sys_path rb 1024
|
|
temp_dir_path:
|
|
rb 4096
|
|
;---------------------------------------------------------------------
|
|
rb 4096
|
|
stacktop:
|
|
;---------------------------------------------------------------------
|
|
E_END:
|