Subversion Repositories Kolibri OS

format binary as ""

 

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

 

        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

@@:

        push    dword OpenDialog_data

        call    [OpenDialog_Init]

 

        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

 

        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

 

        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

 

 

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

 

 

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

 

 

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

        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

 

free_directory:

        mcall   68, 13, [directory_ptr]

        and     [directory_ptr], 0

        ret

 

 

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.wnd_state], 0x04

        je      .min_size_ok

        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

        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'

@@:

        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

        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]

        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]

        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]

        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

        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, , , [bg_color]

        mov     eax, [canvas.height]

        ror     ecx, 16

        add     ecx, eax

        add     ecx, [canvas_padding]

        ror     ecx, 16

        mcall   13, , , [bg_color]

 

        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, , , [bg_color]

        mov     eax, [canvas.width]

        ror     ebx, 16

        add     ebx, eax

        add     ebx, [canvas_padding]

        ror     ebx, 16

        mcall   13, , , [bg_color]

 

        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]

        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

        cmp     cl, [edx+4]

        jnz     .not

        push    eax

        mov     esi, [edx]

        and     esi, 0xf