forked from KolibriOS/kolibrios
2537 lines
67 KiB
NASM
2537 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 [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
|
|
|
|
@@:
|
|
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 _img
|
|
push ebx edx
|
|
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:
|
|
pop edx ebx
|
|
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
|
|
push 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:
|
|
pop edi esi ebx
|
|
ret
|
|
endp
|
|
|
|
|
|
proc draw_toolbar
|
|
push 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
|
|
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
|
|
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
|
|
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:
|
|
pop edi esi ebx
|
|
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
|
|
|
|
|
|
proc is_root_dir _path
|
|
push ecx esi
|
|
|
|
mov esi, [_path]
|
|
xor ecx, ecx
|
|
@@:
|
|
lodsb
|
|
test al, al
|
|
jz .done
|
|
cmp al, '/'
|
|
jnz @b
|
|
inc ecx
|
|
jmp @b
|
|
.done:
|
|
xor eax, eax
|
|
cmp ecx, 3
|
|
jz @f
|
|
mov eax, -2
|
|
@@:
|
|
pop esi ecx
|
|
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
|
|
stdcall is_root_dir, path
|
|
add eax, [files_num]
|
|
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
|
|
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, 750, 600 ; 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 = 10
|
|
openbtn = 0
|
|
backbtn = 1
|
|
forwardbtn = 2
|
|
bgrbtn = 3
|
|
fliphorzbtn = 4
|
|
flipvertbtn = 5
|
|
rotcwbtn = 6
|
|
rotccwbtn = 7
|
|
rot180btn = 8
|
|
slidebtn = 9
|
|
|
|
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 db 1024 dup (?)
|
|
;------------------------------------------------------------------------------
|
|
|
|
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
|
|
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:
|