kolibrios/programs/media/kiv/trunk/kiv.asm

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 '../../../develop/libraries/libs-dev/libimg/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, aKivSection, aNext, -1, next_mod
        mov     [next_key], eax
        invoke  ini_get_shortcut, inifilename, aKivSection, aPrev, -1, prev_mod
        mov     [prev_key], eax
        invoke  ini_get_shortcut, inifilename, aKivSection, aSlide, -1, slide_mod
        mov     [slide_key], eax
        invoke  ini_get_shortcut, inifilename, aKivSection, aTglbar, -1, tglbar_mod
        mov     [tglbar_key], eax

        invoke  ini_get_int, inifilename, aKivSection, aWinX, 100
        mov     [window.left], eax
        invoke  ini_get_int, inifilename, aKivSection, aWinY, 150
        mov     [window.top], eax
        invoke  ini_get_int, inifilename, aKivSection, aWinW, 0
        mov     [window.width], eax
        invoke  ini_get_int, inifilename, aKivSection, aWinH, 0
        mov     [window.height], 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
        push    dword[esp]
        invoke  img.rotate, [cur_image]
@@:
        invoke  img.rotate, [orig_image]
        mov     [bNewImage], 1
        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:
        invoke  ini_set_int, inifilename, aKivSection, aWinX, [window.left]
        invoke  ini_set_int, inifilename, aKivSection, aWinY, [window.top]
        invoke  ini_set_int, inifilename, aKivSection, aWinW, [window.width]
        invoke  ini_set_int, inifilename, aKivSection, aWinH, [window.height]
        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
@@:
        cmp     [window.width], 0
        jne     @f
        mcall   SF_GET_SCREEN_SIZE
        mov     ebx, eax
        shr     ebx, 16         ; ebx = width
        movzx   esi, ax         ; esi = height

        mov     eax, ebx
        xor     edx, edx
        mov     ebx, 3
        div     ebx
        imul    eax, 2
        mov     [window.width], eax

        xor     edx, edx
        mov     ebx, 4
        div     ebx
        mov     [window.left], eax

        mov     eax, esi
        xor     edx, edx
        mov     ebx, 3
        div     ebx
        imul    eax, 2
        mov     [window.height], eax

        xor     edx, edx
        mov     ebx, 4
        div     ebx
        mov     [window.top], eax
@@:

        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, [cur_image]
        cmp     eax, [orig_image]
        jz      @f
        invoke  img.destroy, eax
@@:
        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 100, 150, 0, 0  ; 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_get_int,      'ini_get_int',\
        ini_set_int,      'ini_set_int',\
        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
aKivSection  db  'Kiv',0
aNext       db  'Next',0
aPrev       db  'Prev',0
aSlide      db  'SlideShow',0
aTglbar     db  'ToggleBar',0
aWinX       db  'WinX',0
aWinY       db  'WinY',0
aWinW       db  'WinW',0
aWinH       db  'WinH',0

inifileeskin db '/sys/settings/system.ini',0
amain       db 'style',0
aprogram    db 'bg_program',0
aparam      db 'bg_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: