Subversion Repositories Kolibri OS

use32

use32

org 0x0

org 0x0

db 'MENUET01'

db 'MENUET01'

AR_OFFSET         = 10

include '../../../develop/libraries/libs-dev/libio/libio.inc'

include '../../../develop/libraries/libs-dev/libimg/libimg.inc'

TOOLBAR_HEIGHT    = 31

;include '../../../develop/libraries/box_lib/asm/trunk/opendial.mac'

START:

;use_OpenDialog

        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_SYS_MISC, SSF_HEAP_INIT

        mcall   SF_SET_EVENTS_MASK, EVM_REDRAW or EVM_KEY or EVM_BUTTON or EVM_MOUSE or EVM_MOUSE_FILTER

    or  eax, eax

        or      eax, eax

    mov ecx, 1  ; for 15.4: 1 = tile

        mov     ecx, 1  ; for 15.4: 1 = tile

    cmp word [@PARAMS], '\T'

        cmp     word[__params], '\T'

    jz  set_bgr

        jz      set_bgr

    inc ecx ; for 15.4: 2 = stretch

        inc     ecx     ; for 15.4: 2 = stretch

    mov [prev_key], eax

        mov     [prev_key], eax

    invoke  ini_get_shortcut, inifilename, aShortcuts, aSlide, -1, slide_mod

        invoke  ini_get_shortcut, inifilename, aShortcuts, aSlide, -1, slide_mod

    mov [slide_key], eax

        mov     [slide_key], eax

    invoke  ini_get_shortcut, inifilename, aShortcuts, aTglbar, -1, tglbar_mod

        invoke  ini_get_shortcut, inifilename, aShortcuts, aTglbar, -1, tglbar_mod

    mov [tglbar_key], eax

        mov     [tglbar_key], eax

    cmp byte [@PARAMS], 0

        cmp     byte[__params], 0

    jnz params_given

        jnz     params_given

    mov [OpenDialog_data.draw_window],draw_window_fake

        mov     [OpenDialog_data.draw_window], draw_window_fake

; OpenDialog Open

; OpenDialog Open

    call    [OpenDialog_Start]

        call    [OpenDialog_Start]

    jne exit

        jnz     exit

    mov [OpenDialog_data.draw_window],draw_window

        mov     [OpenDialog_data.draw_window], draw_window

    mov esi, path

        mov     esi, path

    mov edi, @PARAMS

        mov     edi, __params

    mov byte [edi-1], 0

        rep     movsd

        mov     byte[edi-1], 0

set_bgr:

        jmp     params_given

    mcall   SF_BACKGROUND_SET, SSF_MODE_BG

    jc  exit

        mcall   SF_BACKGROUND_SET, SSF_MODE_BG

        stdcall load_image, __params + 4

    call    set_as_bgr

        call    set_as_bgr

params_given:

    push    esi

        push    esi

    call    find_last_name_component

        call    find_last_name_component

        jc      exit

;-----------------------------------------------------------------------------

;-----------------------------------------------------------------------------

red:

    call    draw_window

redraw_all:

        call    draw_window

    mov eax, [image]

        movi    eax, SF_WAIT_EVENT

    jz  @f

        mov     ebx, [cur_frame_time]

    mcall   SF_SYSTEM_GET, SSF_TIME_COUNT

        cmp     ebx, [edx + Image.Delay]

    mov edx, [cur_frame]

        jna     @f

    sub ebx, eax

    @@:

    ja  red_update_frame

  .left_click_pict_done:

    test    ebx, ebx

    jz  red_update_frame

  .left_button_handled:

    push    SF_WAIT_EVENT_TIMEOUT

  .mouse_done:

    call    check_shortcut

        call    check_shortcut

    jz  .slide

        jz      .slide

    add edx, tglbar_mod - slide_mod

        add     edx, tglbar_mod - slide_mod

    call    check_shortcut

        call    check_shortcut

    jz  .tglbar

        jz      .tglbar

    cmp cl, 1 ; Esc

        cmp     cl, 1 ; Esc

    jz  .esc

        jz      .esc

    jmp keyloop

        jmp     keyloop

.esc:

  .esc:

.tglbar:

  .tglbar:

@@:

    @@:

    jmp keyloop

        jmp     keyloop

.slide:

  .slide:

    call slide_show

        call    slide_show

    jmp keyloop

        jmp     keyloop

.prev:

  .prev:

    dec esi

        dec     esi

    jmp keyloop

        jmp     keyloop

.next:

  .next:

    inc esi

        inc     esi

    jmp keyloop

        jmp     keyloop

keyloopdone:

keyloopdone:

    test esi, esi

        test    esi, esi

    jnz next_or_prev_handler

        jnz     next_or_prev_handler

    jmp still

        jmp     still

next_or_prev_handler:

next_or_prev_handler:

    call    next_or_prev_image

        call    next_or_prev_image

red_update_frame:

red_update_frame:

    mov eax, [cur_frame]

        mov     eax, [cur_frame]

    mov eax, [eax + Image.Next]

        mov     eax, [eax + Image.Next]

    test    eax, eax

        test    eax, eax

    mov eax, [image]

        mov     eax, [cur_image]

  @@:

    @@:

    mov [cur_frame], eax

        mov     [cur_frame], eax

    mcall   SF_SYSTEM_GET, SSF_TIME_COUNT

        mcall   SF_SYSTEM_GET, SSF_TIME_COUNT

    jmp still

        ret

button:

button:

    mcall   SF_GET_BUTTON

        mcall   SF_GET_BUTTON

    shr eax, 8

        shr     eax, 8

    jne @f

        invoke  img.flip, [cur_image], FLIP_HORIZONTAL

    ; flip vertically

        cmp     eax, [orig_image]

    jmp redraw_image

    @@: cmp eax, 'flb'

        invoke  img.flip, [cur_image], FLIP_BOTH

    jne @f

    @@:

    @@: cmp eax, 'rtl'

        push    ROTATE_90_CCW

    push    ROTATE_90_CCW

        jz      @f

.rotate_common:

        invoke  img.destroy, [cur_image]

    invoke  img.rotate, [image]

        mov     [cur_image], 0

    call    update_image_sizes

    jmp redraw_image

        ; rotate right

  .not_rtl:

    ; rotate right

        cmp     eax, 'rtr'

    jne @f

    push    ROTATE_90_CW

        jmp     .rotate_common

    jmp .rotate_common

        ; open new file

    ; open new file

  .not_rtr:

    @@: cmp eax, 'opn'

        cmp     eax, 'opn'

    jne @f

        jnz     @f

; OpenDialog Open

; OpenDialog Open

    mov esi, path

        cmp     [OpenDialog_data.status], 1

    push    edi

    mov byte [edi-1], 0

        mov     edi, __params

        push    edi

    pop esi

        mov     ecx, 4096/4

    push    esi

        rep     movsd

    pop eax 

        pop     esi

    push    [image]

        push    esi

    call    load_image

        call    find_last_name_component

    jc  .restore_old

        push    [cur_image]

    call    free_directory

        jc      .restore_old

        call    free_directory

    .restore_old:

        jmp     redraw_all

    pop [image]

    call    init_frame

  .restore_old:

    jmp still

        pop     eax

        jmp     still

    ; set background

    cmp eax, 'bgr'

    @@:

        call    set_as_bgr

    cmp eax, 1

        jmp     still

    or  eax, eax

        cmp     eax, 'bck'

    jz  .error_close

    jnz .error_close

        cmp     eax, 1

	cmp eax, 1

exit:

	jle .end0

        mcall   -1

	sub ecx, 10-1 ;10 px = 2 borders

        push    ebx esi edi

	cmp ecx, 1

        invoke  img.from_file, [_filename]

	jle .end3

        test    eax, eax

	cmp ecx, [ebx+Image.Width]

        jz      .error

	.end3:

        test    [eax + Image.Flags], Image.IsAnimated

		xor ecx,ecx

        jnz     @f

		jmp .end5

        cmp     [eax + Image.Next], 0

	.end4:

        jz      @f

		mov [ebx+Image.Width],ecx

        stdcall merge_icons_to_single_img, eax

	cmp eax,ecx

    @@:

		test eax,eax

        clc

		jz .end_f

        jmp     .exit

	@@:

	stdcall [buf2d_resize], buf_0, ecx, eax, 2

  .error_destroy:

.end_f:

        invoke  img.destroy, ebx

        xor     eax, eax

align 4

  .error:

free_img_data:

        stc

    mov eax, [img_data]

  .exit:

    jz  @f

endp

    stdcall mem.Free, eax

@@:

    ret

; in:  eax -- pointer to image

; out: fill pict structure

update_image_sizes:

proc calculate_picture_size

    mov edx, [eax + Image.Width]

        jnz     .not_in_row

    mov edx, 50 + 25*numimages

    @@:

    mov [wnd_width], edx

        jmp     @b

    mov esi, [eax + Image.Height]

    @@:

    test    [eax + Image.Flags], Image.IsAnimated

        pop     eax

    push eax

  .not_in_row:

@@: cmp [eax + Image.Next], 0

        mov     [pict.width], edx

    jz  @f

        add     edx, 19

    mov eax, [eax + Image.Next]

        cmp     edx, 50 + 25*numimages

    pop ecx

        pop     ecx

    mcall   SF_BACKGROUND_SET, SSF_UNMAP_BG

        mcall   SF_BACKGROUND_SET, SSF_UNMAP_BG

@@:

    @@:

        mcall   SF_BACKGROUND_SET, SSF_REDRAW_BG

	;save to file eskin.ini

        ; save to file eskin.ini

	xor al,al

        xor     al, al

	mov ecx,1024

        mov     ecx, 1024

	mov edi,sys_path+2

        mov     edi, sys_path+2

	repne scasb

        repne scasb

	sub edi,sys_path+3

        sub     edi, sys_path+3

	invoke  ini_set_str, inifileeskin, amain, aprogram, sys_path+2, edi

        invoke  ini_set_str, inifileeskin, amain, aprogram, sys_path+2, edi

	cmp word[@PARAMS],'\S'

        cmp     word[__params], '\S'

    mov edi, @PARAMS+4096-4

        mov     edi, __params+4096-4

    mov ecx, 4096/4-1

        mov     ecx, 4096/4-1

	std

        std

    rep movsd

        rep movsd

	mov dword[@PARAMS],'\S__'

        mov     dword[__params], '\S__'

	;

    @@:

	xor al,al

        xor     al, al

	mov edi,@PARAMS

        mov     edi, __params

	invoke  ini_set_str, inifileeskin, amain, aparam, @PARAMS, edi

        invoke  ini_set_str, inifileeskin, amain, aparam, __params, edi

    mov [image_padding], 0

  .done:

.toolbar_height_done:

endp

    ret

; seek to ESI image files

        file_idx        dd ?

; esi>0 means next file, esi<0 - prev file

endl

next_or_prev_image:

        push    ebx esi edi

    pop esi

        mov     eax, [eax+4]

    test    ebx, ebx

        cmp     [directory_ptr], 0

    jz  .ret

        jz      .ret

    cmp dword[ebx+4], 0

        cmp     [files_cnt], 0 ; number of files

    jz  .ret

        jz      .ret

    mov eax, [cur_file_idx]

        mov     eax, [cur_file_idx]

    cmp eax, -1

        cmp     eax, -1

    test    esi, esi

        test    esi, esi

    mov eax, [ebx+4]

        jns     @f

@@:

        mov     eax, [files_cnt]

    push    [image]

    @@:

    add eax, esi

        add     eax, esi

    test    eax, eax

        test    eax, eax

    jns @f

        jns     @f

    jmp @b

        jmp     @b

    cmp eax, [ebx+4]

        cmp     eax, [files_cnt]

    jb  @f

        jb      @f

    jmp @b

        jmp     @b

    push    eax

        mov     [file_idx], eax

.scanloop:

  .scanloop:

    push    eax ebx esi

        push    eax esi

    imul    esi, eax, 304

        imul    esi, eax, 304

    add esi, [directory_ptr]

        add     esi, [directory_ptr]

@@:

    @@:

    lodsb

        lodsb

    stosb

        stosb

    test    al, al

        test    al, al

    jnz @b

        jnz     @b

    mov esi, curdir

        mov     esi, curdir

    push    esi

        push    esi

    mov ecx, 4096/4

        mov     ecx, 4096/4

    rep movsd

        rep movsd

    mov byte [edi-1], 0

        mov     byte[edi-1], 0

    pop esi

        pop     esi

@@:

    @@:

    lodsb

        lodsb

    test    al, al

        test    al, al

    jnz @b

        jnz     @b

@@:

    @@:

    dec esi

        dec     esi

    cmp byte [esi], '/'

        cmp     byte[esi], '/'

    jnz @b

        jnz     @b

    mov byte [esi], 0

        mov     byte[esi], 0

    jnc .loadedok

        jnc     .loadedok

    test    esi, esi

        test    esi, esi

    js  .try_prev

        js      .try_prev

.try_next:

  .try_next:

    inc eax

        inc     eax

    jb  @f

        jb      @f

    xor eax, eax

        xor     eax, eax

@@:

    @@:

.try_common:

  .try_common:

    jz  .notfound

        jz      .notfound

    jmp .scanloop

        jmp     .scanloop

.try_prev:

  .try_prev:

    dec eax

        dec     eax

    jns @f

        jns     @f

    dec eax

        dec     eax

@@:

    @@:

    jmp .try_common

        jmp     .try_common

.loadedok:

  .loadedok:

    mov [cur_file_idx], eax

        mov     [cur_file_idx], eax

.ret:

  .ret:

    ret

        ret

.notfound:

  .notfound:

    ret

        ret

load_directory:

load_directory:

    cmp [directory_ptr], 0

        cmp     [directory_ptr], 0

    mov esi, @PARAMS

        mov     esi, __params

    mov edi, curdir

        mov     edi, curdir

    mov ecx, [last_name_component]

        mov     ecx, [last_name_component]

    sub ecx, esi

        sub     ecx, esi

    dec ecx

        dec     ecx

    js  @f

        js      @f

    rep movsb

        rep     movsb

@@:

    @@:

    mcall   SF_SYS_MISC, SSF_MEM_ALLOC, 0x1000

        mcall   68, 12, 0x1000

    test    eax, eax

        test    eax, eax

    jz  .ret

        jz      .ret

    cmp eax, 6

        cmp     eax, 6  ; read ok, but there are more files

    jz  .dirok

        jz      .dirok

    test    eax, eax

        test    eax, eax

    jnz free_directory

        jnz     free_directory

    mov ecx, [edx+8]

        mov     ecx, [edx+8]            ; total number of files

    mcall   SF_SYS_MISC, SSF_MEM_REALLOC

        mcall   68, 20          ; realloc

    test    eax, eax

        test    eax, eax

    jz  free_directory

        jz      free_directory

    mcall   SF_FILE, readdir_fileinfo

        mcall   70, readdir_fileinfo

.dirok:

  .dirok:

    cmp ebx, 0

        cmp     ebx, 0

    jle free_directory

        jle     free_directory

    add eax, 32

        add     eax, 32         ; skip header

    mov edi, eax

        mov     edi, eax

    push    0

        push    0

.dirskip:

  .dirskip:

    test    byte [eax], 18h

        test    byte[eax], 0x18 ; volume label or folder

    lea esi, [eax+40]

        lea     esi, [eax+40]   ; name

    mov ecx, esi

        mov     ecx, esi

@@:

    @@:

    lodsb

        lodsb

    test    al, al

        test    al, al

    cmp byte [esi], '.'

        cmp     byte[esi], '.'

    jnz @b

        jnz     @b

    inc esi

        inc     esi

    mov ecx, [esi]

        mov     ecx, [esi]

    cmp byte[esi+3], 0

        cmp     byte[esi+3], 0

    or  ecx, 0x202020

        or      ecx, 0x202020

    cmp ecx, 'jpg'

        cmp     ecx, 'jpg'

    jz  .copy

        jz      .copy

    cmp ecx, 'bmp'

        cmp     ecx, 'bmp'

    jz  .copy

        jz      .copy

    jz  .copy

        jz      .copy

    cmp ecx, 'pgm'

        cmp     ecx, 'pgm'

    jz  .copy

        jz      .copy

    cmp ecx, 'pnm'

        cmp     ecx, 'pnm'

    jz  .copy

        jz      .copy

    cmp ecx, 'tif'

        cmp     ecx, 'tif'

    jz  .copy

        jz      .copy

  .not_3:

  .not_3:

    cmp byte[esi+4], 0

        cmp     byte[esi+4], 0

    or  ecx, 0x20202020

        or      ecx, 0x20202020

    cmp ecx, 'tiff'

        cmp     ecx, 'tiff'

    jz  @f

        jz      @f

    cmp ecx, 'wbmp'

        cmp     ecx, 'wbmp'

    jz  @f

        jz      @f

    cmp ecx, 'jpeg'

        cmp     ecx, 'jpeg'

    jnz .nocopy

        jnz     .nocopy

@@:

    @@:

    cmp byte [esi+4], 0

        cmp     byte[esi+4], 0

    jnz .nocopy

        jnz     .nocopy

    add eax, 32

        add     eax, 32

    push    eax

        push    eax

    call    [SortDir]

        call    [SortDir]

    xor eax, eax

        xor     eax, eax

    mov edi, [directory_ptr]

        mov     edi, [directory_ptr]

.scan:

  .scan:

    mov esi, [last_name_component]

        mov     esi, [last_name_component]

    push    edi

        push    edi

    invoke  strcmpi

        invoke  strcmpi

    pop edi

        pop     edi

    mov [cur_file_idx], eax

        mov     [cur_file_idx], eax

.ret:

  .ret:

    ret

        ret

    mcall   SF_SYS_MISC, SSF_MEM_FREE, [directory_ptr]

        mcall   68, 13, [directory_ptr]

    and [directory_ptr], 0

        and     [directory_ptr], 0

    ret

; out: [last_name_component]->last component (e.g. file.png)

; out: [last_name_component]->last component (e.g. file.png)

find_last_name_component:

proc find_last_name_component

    mov ecx, esi

        mov     ecx, esi

@@:

    @@:

    lodsb

        lodsb

    jnz @b

        jnz     @b

@@:

    @@:

    inc esi

        inc     esi

    mov [last_name_component], esi

        mov     [last_name_component], esi

    ret

        ret

    mov eax, [image]

        mov     [cur_image], eax

    mov [cur_frame], eax

        mov     [cur_frame], eax

    test    byte [eax + Image.Flags], Image.IsAnimated

        test    byte[eax + Image.Flags], Image.IsAnimated

    jz  @f

        jz      @f

    push    ebx

        push    ebx

    mcall   SF_SYSTEM_GET, SSF_TIME_COUNT

        mcall   SF_SYSTEM_GET, SSF_TIME_COUNT

    pop ebx

        pop     ebx

    mov [cur_frame_time], eax

        mov     [cur_frame_time], eax

    pop eax

        pop     edx ebx

    cmp dword [procinfo.box.width], 50 + 25 * numimages

        ja      @f

    cmp dword [procinfo.box.height], 70

        ja      @f

    mov eax, edx

        inc     eax

    jz  @f

        test    eax, eax

        test    [bNewImage], 1

    mov ebx, [wnd_x]

        call    generate_window_header

    movzx eax, ax

        shl     ebx, 16