WebSVN – Kolibri OS – Diff – /programs/system/open/open.asm


DEBUG equ 0
 
    LIST_WIDTH equ 256
    WIN_WIDTH equ (LIST_WIDTH + 16 + 12)
    LIST_SIZE equ 12
    LINE_SIZE equ 40
    LIST_HEIGHT equ (LIST_SIZE * LINE_SIZE / 2)
    WIN_HEIGHT equ (LIST_HEIGHT + 80)
 
    use32
    org     0
    db	    'MENUET01'
    dd	    1, main, dataend, memory, memory, params, 0
 
    include "../../proc32.inc"
    include "../../macros.inc"
    include "../../dll.inc"
    include "../../cmp.inc"
    include "../../string.inc"
    include "../../develop/libraries/box_lib/trunk/box_lib.mac"
 
    include "lang.inc"
 
if DEBUG eq 1
    include "../../debug.inc"
end if
 
 ;===============================
 
if lang eq ru
 title db "âªàëâì á ¯®¬®éìî", 0
 browse_txt db "¡§®à...", 0
 notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0
 checkbox_txt db "á¯®«ì§®¢ âì ¢á¥£¤ ", 0
else if lang eq et
 title db "Open with", 0
 browse_txt db "Browse...", 0
 notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0
 checkbox_txt db "Always use selected program", 0
else if lang eq it
 title db "Open with", 0
 browse_txt db "Browse...", 0
 notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0
 checkbox_txt db "Always use selected program", 0
else
 title db "Open with", 0
 browse_txt db "Browse...", 0
 notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0
 checkbox_txt db "Always use selected program", 0
end if
 
 sys_dir db "/sys", 0
 slash db "/", 0
 open_dialog_path db "/sys/file managers/opendial", 0
 app_link db "$", 0
 icons db "/sys/icons32.png", 0
 communication_area_name db "FFFFFF_open_dialog", 0
 assoc_ini db "/sys/settings/assoc.ini", 0
  .sec db "Assoc", 0
  .exec db "exec", 0
  .next db "next", 0
  .icon db "icon", 0
 
 sb_apps scrollbar \
  13, WIN_WIDTH - 25, LIST_HEIGHT, 10 + 12, \  ;; w, x, h, y
  0, 0, LIST_SIZE / 2, 0, \		       ;; b.h, max, area, pos
  0, 0, 0, 2
 
 cb_always check_box2 \
  5 shl 16 + 16, (LIST_HEIGHT + 33) shl 16 + 16, 6, 0, 0, 0, checkbox_txt, ch_flag_middle
 
 opendialog:
  .type dd 0
  .procinfo dd buffer3
  .com_area_name dd communication_area_name
  .com_area dd 0
  .opendir_path dd buffer4
  .dir_default_path dd sys_dir
  .start_path dd open_dialog_path
  .draw_window dd draw_window
  .status dd 0
  .openfile_pach dd buffer
  .filename_area dd buffer5
  .filter_area dd .filter
  .x:
  .x_size dw 420
  .x_start dw 200
  .y:
  .y_size dw 320
  .y_start dw 120
 
 .filter dd 0
 
 ps_addres:
  dd 0		;; type
  dw 7		;; y
  dw 4		;; x
  dw 6		;; font.w
  dw LIST_WIDTH ;; w
  dd 0		;; mono
  dd 0		;; without bg
  .color dd 0	;; text color
  dd 0		;; bg color
  .txt dd 0	;; text
  dd buffer2
  dd 0
 
 is_execute:
  dd 7, 0, 0, 0, 0
  db 0
  dd buffer
 
 is_openas:
  dd 7, 0, 0, 0, 0
  db 0
  dd buffer
 
 is_open:
  dd 7, 0, 0, 0, 0
  db 0
  dd buffer
 
 is_undefined:
  dd 7, 0, notify_txt, 0, 0
  db "/sys/@notify", 0
 
 is_openimg_info:
  dd 5, 0, 0, 0, img.buf
  db 0
  dd icons
 
 is_openimg:
  dd 0, 0, 0, 0, 0
  db 0
  dd icons
 
 is_file_exists:
  dd 0, 0, 0, 0, buffer6
  db 0
  dd buffer
 
  last_x dd -1
  last_y dd -1
 
if DEBUG eq 1
    std_param db "/sys/example.asm", 0
end if
 
 imports:
    library libini, "libini.obj"
    import  libini, libini.get_str, "ini_get_str", \
		    libini.set_str, "ini_set_str", \
		    libini.get_num, "ini_get_int", \
		    libini.for_each_section, "ini_enum_sections"
 
 imports_add:
    library libimg, "libimg.obj", \
	    boxlib, "box_lib.obj", \
	    prclib, "proc_lib.obj"
    import  libimg, libimg.init, "lib_init", \
		    libimg.toRGB, "img_to_rgb2", \
		    libimg.decode, "img_decode", \
		    libimg.destroy, "img_destroy"
    import  boxlib, scrollbar.draw, "scrollbar_v_draw", \
		    scrollbar.mouse, "scrollbar_v_mouse", \
		    pathshow.init, "PathShow_prepare", \
		    pathshow.draw, "PathShow_draw", \
		    checkbox.init, "init_checkbox2", \
		    checkbox.draw, "check_box_draw2", \
		    checkbox.mouse, "check_box_mouse2"
    import  prclib, opendialog.lib_init, "lib_init", \
		    opendialog.init, "OpenDialog_init", \
		    opendialog.start, "OpenDialog_start"
 
 ;===============================
 
 main:
    mcall   68, 11
    stdcall dll.Load, imports
 
if DEBUG eq 1
    stdcall string.copy, std_param, params
end if
 
 ;; trim params
    stdcall string.to_lower_case, params
    stdcall string.trim_last, params
    stdcall string.trim_first, params
    mov     [param_s], eax
 
 ;; if empty - exit
    cmpe    [eax], byte 0, exit
 
 ;; if folder
    stdcall string.length, [param_s]
    add     eax, [param_s]
    cmpe    [eax - 1], byte '/', open
 
 ;; if dialog
    mov     eax, [param_s]
    mov     [is_openas + 8], eax
    cmpne   [eax], byte '~', @f
    inc     [param_s]
    mov     eax, [param_s]
    mov     [is_openas + 8], eax
    jmp     start_dialog
  @@:
 
 ;; if without '.' - execute
    stdcall string.last_index_of, [param_s], '.', 1
    cmpe    eax, -1, execute
 ;; if '.' is part of path - execute
    mov     esi, eax
    stdcall string.last_index_of, [param_s], '/', 1
    cmpg    eax, esi, execute
 
 ;; if ext == "kex" - execute
    add     esi, [param_s]
    mov     [param_e], esi
    cmpe    [esi], dword "kex", execute
 
 open_as:
    invoke  libini.get_str, assoc_ini, assoc_ini.sec, esi, buffer8, 2048, undefined
    cmpe    byte [buffer8], 0, start_dialog_pre
 .run:
    mov     edi, 0
    cmpne   byte [buffer8], "$", .pre_open
    mov     edi, 1
    invoke  libini.get_str, assoc_ini, buffer8 + 1, assoc_ini.exec, buffer, 2048, undefined
    cmpe    byte [buffer], 0, ini_error
    jmp     @f
 .pre_open:
    stdcall string.copy, buffer8, buffer
  @@:
    mcall   70, is_openas
    cmpge   eax, 0, exit
    cmpe    edi, 0, start_dialog
    invoke  libini.get_str, assoc_ini, buffer8 + 1, assoc_ini.next, buffer8, 2048, undefined
    cmpne   byte [buffer], 0, .run
    jmp     start_dialog
 
 execute:
    mov     eax, [param_s]
    mov     [is_execute + 21], eax
    mcall   70, is_execute
    jmp     exit
 
 open:
    invoke  libini.get_str, assoc_ini, assoc_ini.sec, slash, buffer, 2048, undefined
    cmpne   [buffer], byte "$", @f
    invoke  libini.get_str, assoc_ini, buffer + 1, assoc_ini.exec, buffer, 2048, undefined
    cmpe    [buffer], byte 0, ini_error
  @@:
    mov     eax, [param_s]
    mov     [is_open + 8], eax
    mcall   70, is_open
    jmp     exit
 
 ini_error:
    mcall   70, is_undefined
    jmp     exit
 
 ;----------------------
 
 start_dialog_pre:
    or	    [cb_always.flags], ch_flag_en
 
 start_dialog:
    stdcall dll.Load, imports_add
    invoke  opendialog.lib_init
 
    mcall   40, 100111b
 
 ;; get title
    stdcall string.copy, title, win.title
 
 ;; get positions
    mcall   14
    movzx   ebx, ax
    shr     ebx, 1
    shr     eax, 16 + 1
    sub     eax, WIN_WIDTH / 2 - 1
    sub     ebx, WIN_HEIGHT / 2 - 1
    mov     [win.x], eax
    mov     [win.y], ebx
 
 ;; get colors
    mcall   48, 3, skin, sizeof.system_colors
 
 ;; get opendialog
    invoke  opendialog.init, opendialog
 
 ;; get pathshow
    mov     eax, [param_s]
    mov     ebx, [skin.work_text]
    mov     [ps_addres.txt], eax
    mov     [ps_addres], ebx
    invoke  pathshow.init, ps_addres
 
 ;; get checkbox
    mov     eax, 0xFFFfff
    mov     ebx, [skin.work_graph]
    mov     ecx, [skin.work_text]
    mov     [cb_always.color], eax
    mov     [cb_always.border_color], ebx
    mov     [cb_always.text_color], ecx
    invoke  checkbox.init, cb_always
 
 ;; get list
    invoke  libini.for_each_section, assoc_ini, section_cb
    stdcall sort_list
    mov     eax, [sb_apps.max_area]
    and     eax, 1b
    shr     [sb_apps.max_area], 1
    add     [sb_apps.max_area], eax
 
    mov     eax, 0xFFFfff
    mov     ebx, 0xCCCccc ;[skin.3d]
    mov     [sb_apps.bg_color], eax
    mov     [sb_apps.front_color], ebx
    mov     [sb_apps.line_color], ebx
 
 ;; get icons
    mcall   70, is_openimg_info
    mov     edx, dword [img.buf + 32]
    shl     edx, 4
    stdcall mem.Alloc, edx
    mov     [img.rgb], eax
 
    mov     [is_openimg + 12], edx
    m2m     dword[is_openimg + 16], dword[img.rgb]
    mcall   70, is_openimg
 
    invoke  libimg.decode, dword[img.rgb], ebx, 0
    mov     [img], eax
 
  ;; alpha
    mov     edi, [eax + 8]
    shl     edi, 7
    sub     edi, 4
    mov     eax, [eax + 24]
 .setalpha:
    mov     ebx, [eax + edi]
    shr     ebx, 24
    cmpne   ebx, 0, @f
    mov     ecx, 0xFFFfff
    mov     [eax + edi], ecx
 @@:
    cmpe    edi, 0, @f
    sub     edi, 4
    jmp     .setalpha
 @@:
 
    invoke  libimg.toRGB, [img], [img.rgb]
    invoke  libimg.destroy, [img]
 
 ;----------------------
 
 update:
    mcall   10
    cmpe    eax, EV_REDRAW, event_redraw
    cmpe    eax, EV_KEY, event_key
    cmpe    eax, EV_BUTTON, event_button
    cmpe    eax, EV_MOUSE, event_mouse
    jmp     update
 
 ;----------------------
 
 event_redraw:
    call    draw_window
    jmp     update
 
 ;----------------------
 
 event_key:
    mcall   2
    cmpe    ah, 27, exit
 
    cmpe    ah,  13, list_item_activate
    cmpe    ah,   9, event_button.opendialog
    cmpe    ah,  32, .toggle_cb
    cmpe    ah, 179, .go_right
    cmpe    ah, 176, .go_left
    cmpe    ah, 178, .go_up
    cmpe    ah, 177, .go_down
 
    cmpl    ah, "a", @f
    cmpg    ah, "z", @f
    jmp     .letter
  @@:
 
    cmpl    ah, " ", @f
    cmpg    ah, "ï", @f
    jmp     .letter
  @@:
 
    cmpl    ah, "A", @f
    cmpg    ah, "Z", @f
    jmp     .letter_big
  @@:
 
    cmpl    ah, "", @f
    cmpg    ah, "", @f
    jmp     .letter_big
  @@:
 
    cmpl    ah, "0", @f
    cmpg    ah, "9", @f
    jmp     .letter
  @@:
 
    jmp     update
 
 .letter_big:
    movzx   ebx, ah
    stdcall downcase_char, ebx
    mov     ah, al
 
 .letter:
    push    eax
 
    stdcall get_index
    inc     eax
 
    mov     ecx, eax
 
    imul    ebx, eax, 32
    add     ebx, list
 
    pop     eax
 
  @@:
    cmpe    byte [ebx], 0, @f
 
    movzx   edx, byte [ebx]
    stdcall downcase_char, edx
    cmpne   ah, al, .next
    stdcall set_index, ecx
    stdcall draw_list
    jmp     update
 
 .next:
    inc     ecx
    add     ebx, 32
    jmp     @b
  @@:
    jmp     update
 
 .toggle_cb:
    mov     eax, [cb_always.flags]
    mov     ebx, eax
    and     ebx, ch_flag_en
    cmpe    ebx, 0, @f
    sub     eax, ch_flag_en
    jmp     .toggle_cb.redraw
  @@:
    add     eax, ch_flag_en
 .toggle_cb.redraw:
    mov     [cb_always.flags], eax
    invoke  checkbox.draw, cb_always
    jmp     update
 
 .go_right:
    mov     esi, 1
    jmp     .go_anyway
 
 .go_left:
    mov     esi, -1
    jmp     .go_anyway
 
 .go_up:
    mov     esi, -2
    jmp     .go_anyway
 
 .go_down:
    mov     esi, 2
 
 .go_anyway:
;; HIDE OLD SELECTION
    stdcall draw_item, [last_x], [last_y], 0
 
;; [X, Y] -> INDEX
    stdcall get_index
 
;; CHANGE INDEX
    add     eax, esi
 
    cmpl    eax, [list.size], @f
    mov     eax, [list.size]
    dec     eax
  @@:
 
    cmpge   eax, 0, @f
    mov     eax, 0
  @@:
 
;; INDEX -> [X, Y]
    stdcall set_index, eax
    cmpe    eax, 1, @f
 
;; PARTLY REDRAW
    stdcall draw_item, [last_x], [last_y], 1
    jmp     update
 
;; FULL REDRAW
  @@:
    stdcall draw_list
    jmp     update
 
 ;----------------------
 
 event_button:
    mcall   17
    cmpe    ah, 1, exit
    cmpe    ah, 2, .opendialog
    jmp     list_item_activate
 
 .opendialog:
    invoke  opendialog.start, opendialog
    cmpne   [opendialog.status], 1, update
    mcall   70, is_openas
 
    mov     edi, 0
    jmp     save_assoc
 
 ;----------------------
 
 list_item_activate:
    stdcall get_index
    shl     eax, 5
    add     eax, list
    cmpe    byte [eax], 0, update
    mov     [param_a], eax
    invoke  libini.get_str, assoc_ini, eax, assoc_ini.exec, buffer, 256, undefined
    cmpe    byte [buffer], 0, ini_error
    mcall   70, is_openas
 
    mov     edi, 1
    jmp     save_assoc
 
 ;----------------------
 
 save_assoc:
    mov     eax, [cb_always.flags]
    and     eax, ch_flag_en
    cmpe    eax, 0, exit
 
    cmpe    edi, 0, @f
    stdcall string.copy, app_link, buffer
    stdcall string.concatenate, [param_a], buffer
  @@:
 
    invoke  libini.set_str, assoc_ini, assoc_ini.sec, [param_e], buffer, 33
    jmp     exit
 
 ;----------------------
 
 event_mouse:
    invoke  checkbox.mouse, cb_always
    mov     edi, [sb_apps.position]
    invoke  scrollbar.mouse, sb_apps
    sub     edi, [sb_apps.position]
    jz	    @f
    call    draw_list
  @@:
 
    mcall   37, 1
    movzx   edi, ax
    shr     eax, 16
    mov     esi, eax
    sub     esi, 4
    sub     edi, 10 + 12
    cmpl    esi, 0, .out
    cmpge   esi, LIST_WIDTH, .out
    cmpl    edi, 0, .out
    cmpge   edi, LIST_HEIGHT, .out
 
    mcall   37, 7
    and     eax, 0xFFFF
    cmpe    eax, 65535, .scroll_up
    cmpe    eax, 0, @f
 
 .scroll_down:
    mov     eax, [sb_apps.position]
    add     eax, LIST_SIZE / 2
    shl     eax, 1
    cmpge   eax, [list.size], @f
    inc     [sb_apps.position]
    stdcall draw_list
    jmp     update
 
 .scroll_up:
    cmpe    [sb_apps.position], 0, @f
    dec     [sb_apps.position]
    stdcall draw_list
    jmp     update
 
  @@:
 
    mov     eax, esi
    mov     ebx, LIST_WIDTH / 2
    mov     edx, 0
    div     ebx
    mov     esi, eax
 
    mov     eax, edi
    mov     ebx, LINE_SIZE
    mov     edx, 0
    div     ebx
    mov     edi, eax
 
    cmpne   esi, [last_x], .redraw
    cmpne   edi, [last_y], .redraw
    jmp     @f
 
 .redraw:
    stdcall draw_item, [last_x], [last_y], 0
    mov     [last_x], esi
    mov     [last_y], edi
    stdcall draw_item, esi, edi, 1
    jmp     @f
 
 .out:
    cmpe    [last_x], -1, @f
    stdcall draw_item, [last_x], [last_y], 0
    mov     [last_x], -1
    mov     [last_y], -1
  @@:
 
    jmp     update
 
 ;----------------------
 
 exit:
    mcall   -1
 
 ;----------------------
 
 proc draw_window
    mcall   12, 1
 
    mov     edx, [skin.work]
    or	    edx, 0x34 shl 24
    mcall   0, <[win.x], WIN_WIDTH>, <[win.y], WIN_HEIGHT>, , , win.title
    stdcall draw_list
    invoke  pathshow.draw, ps_addres
    invoke  checkbox.draw, cb_always
 
    mcall   13, <207, 66>, , [skin.work_graph]
    mcall   8, <208, 63>, , 2, [skin.work_button]
;
    mov     ecx, [skin.work_button_text]
    add     ecx, 0x80 shl 24
    mcall   4, <214, LIST_HEIGHT + 37>, , browse_txt
 
 ;; buttons
    mov     eax, 8
    mov     ebx, 4 shl 16 + LIST_WIDTH / 2
    mov     ecx, (10 + 12) shl 16 + LINE_SIZE - 1
    mov     edx, 0x60 shl 24 + 10
    mov     edi, LIST_SIZE
    mov     esi, 0
  @@:
    cmpe    edi, 0, @f
    mcall
 
    cmpe    esi, 0, .doA
 .doB:
    sub     ebx, LIST_WIDTH shl 16
    add     ecx, LINE_SIZE shl 16
 .doA:
    add     ebx, (LIST_WIDTH / 2) shl 16
    sub     ecx, LINE_SIZE shl 16
 
    not     esi
    add     ecx, LINE_SIZE shl 16
    inc     edx
    dec     edi
    jmp     @b
  @@:
 
    mcall   12, 2
    ret
  endp
 
 ;----------------------
 
 proc draw_list
    mcall   13, <3, LIST_WIDTH + 2 + 12>, <9 + 12, 1>, [skin.work_graph]
    mcall     , 			, 
    mcall     , <3, 1>, <9 + 12, LIST_HEIGHT + 1>
    mcall     , <3 + LIST_WIDTH + 12 + 1, 1>
    mcall     , <4, LIST_WIDTH>, <10 + 12, LIST_HEIGHT>, 0xFFFfff
 
    mov     esi, 1
    mov     edi, LIST_SIZE / 2 - 1
 .draw_loop:
    mov     edx, 0
    cmpne   [last_x], esi, @f
    cmpne   [last_y], edi, @f
    mov     edx, 1
  @@:
    stdcall draw_item, esi, edi, edx
    dec     esi
    cmpne   esi, -1, @f
    mov     esi, 1
    dec     edi
  @@:
    cmpne   edi, -1, .draw_loop
 
    invoke  scrollbar.draw, sb_apps
 
    ret
 endp
 
 ;----------------------
 
 proc draw_item uses edx edi esi, _x, _y, _sel
 ;; get index
    stdcall get_index_cur, [_x], [_y]
    mov     edi, eax
 
    cmpge   edi, [list.size], .break
 
 ;; background
    mov     ebx, [_x]
    shl     ebx, 7 + 16
    add     ebx, 4 shl 16 + LIST_WIDTH / 2
 
    imul    ecx, [_y], LINE_SIZE
    shl     ecx, 16
    add     ecx, (10 + 12) shl 16 + LINE_SIZE
 
    mov     edx, 0xFFFfff
    cmpe    [_sel], 0, @f
    mov     edx, 0x94AECE
  @@:
    mcall   13
 
 ;; shadows
    push    ecx
    cmpe    [_sel], 1, .after_shadows
    mov     edx, 0xCCCccc ;[skin.3d]
 
    cmpne   [_x], 0, @f
    imul     ecx, [_y], LINE_SIZE
    shl      ecx, 16
    add      ecx, (10 + 12) shl 16 + LINE_SIZE
    mcall     , <4, 1>
  @@:
 
    cmpne   [_y], 0, @f
    imul     ebx, [_x], LIST_WIDTH / 2
    shl      ebx, 16
    add      ebx, 4 shl 16 + LIST_WIDTH / 2
    mcall     , , <10 + 12, 1>
  @@:
 
 .after_shadows:
    pop     ecx
 
 ;; icon
    and     ebx, 0xFFFF shl 16
    shr     ecx, 16
    add     ecx, ebx
    mov     edx, ecx
    add     edx, 6 shl 16 + (LINE_SIZE - 32) / 2
 
    mov     ebx, edi
    shl     ebx, 2
    mov     ebx, [ebx + list.icon]
    imul    ebx, 32 * 32 * 3
    add     ebx, [img.rgb]
    cmpe    [_sel], 0, .draw_icon
 .selected:
    mov     eax, img.sel
    mov     ecx, 32 * 32
    push    edx
  @@:
    mov     edx, [ebx]
    and     edx, 0xFFFFFF
    cmpne   edx, 0xFFFFFF, .not
    mov     edx, 0x94AECE
 .not:
    mov     [eax], edx
    add     eax, 3
    add     ebx, 3
    dec     ecx
    jnz     @b
    pop     edx
    mov     ebx, img.sel
 
 .draw_icon:
    mcall   7, , <32, 32>
 
 ;; text
    mov     ebx, edx
    add     ebx, (32 + 6) shl 16 + 32 / 2 - 9 / 2
 
    mov     ecx, 0x000000 ; inactive item text
    cmpe    [_sel], 0, @f
    mov     ecx, 0x000000 ; active item text
  @@:
    add     ecx, 0x80 shl 24
 
    mov     edx, edi
    shl     edx, 5
    add     edx, list
 
    mcall   4
 
  .break:
    ret
 endp
 
 ;----------------------
 
 proc downcase_char uses ebx, _ch
    mov     ebx, [_ch]
 
    cmpl    bl, "A", @f
    cmpg    bl, "Z", @f
    sub     bl, "A" - "a"
    jmp     .ret
  @@:
 
    cmpl    bl, "", @f
    cmpg    bl, "", @f
    sub     bl, "" - " "
  @@:
 
 .ret:
    mov     al, bl
    ret
 endp
 
 ;----------------------
 
 proc get_index_cur uses ebx, _x, _y
    mov     eax, [_y]
    shl     eax, 1
    add     eax, [_x]
    mov     ebx, [sb_apps.position]
    shl     ebx, 1
    add     eax, ebx
 
    ret
 endp
 
 ;----------------------
 
 proc get_index
    stdcall get_index_cur, [last_x], [last_y]
    ret
 endp
 
 ;----------------------
 
 proc set_index uses ebx,_index
    mov     eax, [_index]
    mov     ebx, [sb_apps.position]
    shl     ebx, 1
    sub     eax, ebx
 
    mov     ebx, eax
    and     ebx, 1b
    mov     [last_x], ebx
    shr     eax, 1
    mov     [last_y], eax
 
    mov     eax, 0
 
    cmpl    [last_y], 0xFFFF, @f
    mov     [last_y], 0
    dec     [sb_apps.position]
    mov     eax, 1
    jmp     .exit
  @@:
 
    cmpl    [last_y], LIST_SIZE / 2, @f
    mov     ebx, [last_y]
    sub     ebx, LIST_SIZE / 2 - 1
    mov     [last_y], LIST_SIZE / 2 - 1
    add     [sb_apps.position], ebx
    mov     eax, 1
    jmp     .exit
  @@:
 
 .exit:
    cmpge   [sb_apps.position], 0, @f
    mov     [sb_apps.position], 0
  @@:
 
    ret
 endp
 
 ;----------------------
 
 proc section_cb, _file, _sec
 ;; CHECK IF EXISTS
    invoke  libini.get_str, assoc_ini, [_sec], assoc_ini.exec, buffer, 2048, undefined
    mcall   70, is_file_exists
    cmpe    ebx, -1, .exit
 
    mov     ebx, [list.size]
    shl     ebx, 5
    add     ebx, list
    stdcall string.compare, [_sec], assoc_ini.sec
    cmpe    eax, 1, @f
    stdcall string.copy, [_sec], ebx
    invoke  libini.get_num, [_file], [_sec], assoc_ini.icon, 0
    mov     ecx, [list.size]
    shl     ecx, 2
    mov     [ecx + list.icon], eax
    inc     [list.size]
    inc     [sb_apps.max_area]
  @@:
    mov     eax, 1
  .exit:
    ret
 endp
 
 ;----------------------
 
 proc sort_list
    mov     edi, 0
    mov     ebx, list		 ;; i = 0
    imul    ecx, [list.size], 32 ;; i < n - 1
    sub     ecx, 32
    add     ecx, list
 
 .loop1:
    mov     edx, list		 ;; j = 0
    mov     esi, [list.size]	 ;; j < n - i - 1
    sub     esi, edi
    dec     esi
    imul    esi, 32
    add     esi, list
 .loop2:
    mov     eax, edx
    add     eax, 32
    stdcall string.cmp, edx, eax, 32
    cmpne   eax, 1, .next2
;; swap names
    mov     eax, edx
    add     eax, 32
    stdcall string.copy, edx, buffer7
    stdcall string.copy, eax, edx
    stdcall string.copy, buffer7, eax
;; swap icons
    mov     eax, edx
    sub     eax, list
    shr     eax, 3
    add     eax, list.icon
    push    ebx ecx
    mov     ebx, [eax]
    mov     ecx, [eax + 4]
    mov     [eax], ecx
    mov     [eax + 4], ebx
    pop     ecx ebx
 .next2:
    add     edx, 32
    cmpne   edx, esi, .loop2
 .next1:
    inc     edi
    add     ebx, 32
    cmpne   ebx, ecx, .loop1
 
    ret
 endp
 
 ;----------------------
 
 dataend:
 
 ;===============================
 
 skin system_colors
 list rb 32 * 256
  .icon rd 256
  .size rd 1
 img  rd 1
  .rgb rd 1
  .size rd 1
  .buf rb 40
  .sel rb 32 * 32 * 3
 win:
  .x rd 1
  .y rd 1
 win.title rb 256
 param_s rd 1
 param_e rd 1
 param_a rd 1
 undefined rb 1
 buffer  rb 2048
 buffer2 rb 2048 ;OD
 buffer3 rb 2048 ;OD
 buffer4 rb 2048 ;OD
 buffer5 rb 2048 ;OD
 buffer6 rb 2048 ;check existance
 buffer7 rb 32	 ;for sorting
 buffer8 rd 2048
 params rb 2048
 _stack rb 2048
 memory:

Rev 5907	Rev 5908
1	DEBUG equ 0	1	DEBUG equ 0
2		2
3	LIST_WIDTH equ 256	3	LIST_WIDTH equ 256
4	WIN_WIDTH equ (LIST_WIDTH + 16 + 12)	4	WIN_WIDTH equ (LIST_WIDTH + 16 + 12)
5	LIST_SIZE equ 12	5	LIST_SIZE equ 12
6	LINE_SIZE equ 40	6	LINE_SIZE equ 40
7	LIST_HEIGHT equ (LIST_SIZE * LINE_SIZE / 2)	7	LIST_HEIGHT equ (LIST_SIZE * LINE_SIZE / 2)
8	WIN_HEIGHT equ (LIST_HEIGHT + 80)	8	WIN_HEIGHT equ (LIST_HEIGHT + 80)
9		9
10	use32	10	use32
11	org 0	11	org 0
12	db 'MENUET01'	12	db 'MENUET01'
13	dd 1, main, dataend, memory, memory, params, 0	13	dd 1, main, dataend, memory, memory, params, 0
14		14
15	include "../../proc32.inc"	15	include "../../proc32.inc"
16	include "../../macros.inc"	16	include "../../macros.inc"
17	include "../../dll.inc"	17	include "../../dll.inc"
18	include "../../cmp.inc"	18	include "../../cmp.inc"
19	include "../../string.inc"	19	include "../../string.inc"
20	include "../../develop/libraries/box_lib/trunk/box_lib.mac"	20	include "../../develop/libraries/box_lib/trunk/box_lib.mac"
21		21
22	include "lang.inc"	22	include "lang.inc"
23		23
24	if DEBUG eq 1	24	if DEBUG eq 1
25	include "../../debug.inc"	25	include "../../debug.inc"
26	end if	26	end if
27		27
28	;===============================	28	;===============================
29		29
30	if lang eq ru	30	if lang eq ru
31	title db "âªàëâì á ¯®¬®éìî", 0	31	title db "âªàëâì á ¯®¬®éìî", 0
32	browse_txt db "¡§®à...", 0	32	browse_txt db "¡§®à...", 0
33	notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0	33	notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0
34	checkbox_txt db "á¯®«ì§®¢ âì ¢á¥£¤ ", 0	34	checkbox_txt db "á¯®«ì§®¢ âì ¢á¥£¤ ", 0
35	else if lang eq et	35	else if lang eq et
36	title db "Open with", 0	36	title db "Open with", 0
37	browse_txt db "Browse...", 0	37	browse_txt db "Browse...", 0
38	notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0	38	notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0
39	checkbox_txt db "Always use selected program", 0	39	checkbox_txt db "Always use selected program", 0
40	else if lang eq it	40	else if lang eq it
41	title db "Open with", 0	41	title db "Open with", 0
42	browse_txt db "Browse...", 0	42	browse_txt db "Browse...", 0
43	notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0	43	notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0
44	checkbox_txt db "Always use selected program", 0	44	checkbox_txt db "Always use selected program", 0
45	else	45	else
46	title db "Open with", 0	46	title db "Open with", 0
47	browse_txt db "Browse...", 0	47	browse_txt db "Browse...", 0
48	notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0	48	notify_txt db "'Incorrect ", '"', "/sys/settings/assoc.ini", '"', " file' -tE", 0
49	checkbox_txt db "Always use selected program", 0	49	checkbox_txt db "Always use selected program", 0
50	end if	50	end if
51		51
52	sys_dir db "/sys", 0	52	sys_dir db "/sys", 0
53	slash db "/", 0	53	slash db "/", 0
54	open_dialog_path db "/sys/file managers/opendial", 0	54	open_dialog_path db "/sys/file managers/opendial", 0
55	app_link db "$", 0	55	app_link db "$", 0
56	icons db "/sys/icons32.png", 0	56	icons db "/sys/icons32.png", 0
57	communication_area_name db "FFFFFF_open_dialog", 0	57	communication_area_name db "FFFFFF_open_dialog", 0
58	assoc_ini db "/sys/settings/assoc.ini", 0	58	assoc_ini db "/sys/settings/assoc.ini", 0
59	.sec db "Assoc", 0	59	.sec db "Assoc", 0
60	.exec db "exec", 0	60	.exec db "exec", 0
-		61	.next db "next", 0
61	.icon db "icon", 0	62	.icon db "icon", 0
62		63
63	sb_apps scrollbar \	64	sb_apps scrollbar \
64	13, WIN_WIDTH - 25, LIST_HEIGHT, 10 + 12, \ ;; w, x, h, y	65	13, WIN_WIDTH - 25, LIST_HEIGHT, 10 + 12, \ ;; w, x, h, y
65	0, 0, LIST_SIZE / 2, 0, \ ;; b.h, max, area, pos	66	0, 0, LIST_SIZE / 2, 0, \ ;; b.h, max, area, pos
66	0, 0, 0, 2	67	0, 0, 0, 2
67		68
68	cb_always check_box2 \	69	cb_always check_box2 \
69	5 shl 16 + 16, (LIST_HEIGHT + 33) shl 16 + 16, 6, 0, 0, 0, checkbox_txt, ch_flag_middle	70	5 shl 16 + 16, (LIST_HEIGHT + 33) shl 16 + 16, 6, 0, 0, 0, checkbox_txt, ch_flag_middle
70		71
71	opendialog:	72	opendialog:
72	.type dd 0	73	.type dd 0
73	.procinfo dd buffer3	74	.procinfo dd buffer3
74	.com_area_name dd communication_area_name	75	.com_area_name dd communication_area_name
75	.com_area dd 0	76	.com_area dd 0
76	.opendir_path dd buffer4	77	.opendir_path dd buffer4
77	.dir_default_path dd sys_dir	78	.dir_default_path dd sys_dir
78	.start_path dd open_dialog_path	79	.start_path dd open_dialog_path
79	.draw_window dd draw_window	80	.draw_window dd draw_window
80	.status dd 0	81	.status dd 0
81	.openfile_pach dd buffer	82	.openfile_pach dd buffer
82	.filename_area dd buffer5	83	.filename_area dd buffer5
83	.filter_area dd .filter	84	.filter_area dd .filter
84	.x:	85	.x:
85	.x_size dw 420	86	.x_size dw 420
86	.x_start dw 200	87	.x_start dw 200
87	.y:	88	.y:
88	.y_size dw 320	89	.y_size dw 320
89	.y_start dw 120	90	.y_start dw 120
90		91
91	.filter dd 0	92	.filter dd 0
92		93
93	ps_addres:	94	ps_addres:
94	dd 0 ;; type	95	dd 0 ;; type
95	dw 7 ;; y	96	dw 7 ;; y
96	dw 4 ;; x	97	dw 4 ;; x
97	dw 6 ;; font.w	98	dw 6 ;; font.w
98	dw LIST_WIDTH ;; w	99	dw LIST_WIDTH ;; w
99	dd 0 ;; mono	100	dd 0 ;; mono
100	dd 0 ;; without bg	101	dd 0 ;; without bg
101	.color dd 0 ;; text color	102	.color dd 0 ;; text color
102	dd 0 ;; bg color	103	dd 0 ;; bg color
103	.txt dd 0 ;; text	104	.txt dd 0 ;; text
104	dd buffer2	105	dd buffer2
105	dd 0	106	dd 0
106		107
107	is_execute:	108	is_execute:
108	dd 7, 0, 0, 0, 0	109	dd 7, 0, 0, 0, 0
109	db 0	110	db 0
110	dd buffer	111	dd buffer
111		112
112	is_openas:	113	is_openas:
113	dd 7, 0, 0, 0, 0	114	dd 7, 0, 0, 0, 0
114	db 0	115	db 0
115	dd buffer	116	dd buffer
116		117
117	is_open:	118	is_open:
118	dd 7, 0, 0, 0, 0	119	dd 7, 0, 0, 0, 0
119	db 0	120	db 0
120	dd buffer	121	dd buffer
121		122
122	is_undefined:	123	is_undefined:
123	dd 7, 0, notify_txt, 0, 0	124	dd 7, 0, notify_txt, 0, 0
124	db "/sys/@notify", 0	125	db "/sys/@notify", 0
125		126
126	is_openimg_info:	127	is_openimg_info:
127	dd 5, 0, 0, 0, img.buf	128	dd 5, 0, 0, 0, img.buf
128	db 0	129	db 0
129	dd icons	130	dd icons
130		131
131	is_openimg:	132	is_openimg:
132	dd 0, 0, 0, 0, 0	133	dd 0, 0, 0, 0, 0
133	db 0	134	db 0
134	dd icons	135	dd icons
135		136
136	is_file_exists:	137	is_file_exists:
137	dd 0, 0, 0, 0, buffer6	138	dd 0, 0, 0, 0, buffer6
138	db 0	139	db 0
139	dd buffer	140	dd buffer
140		141
141	last_x dd -1	142	last_x dd -1
142	last_y dd -1	143	last_y dd -1
143		144
144	if DEBUG eq 1	145	if DEBUG eq 1
145	std_param db "~/sys/example.asm", 0	146	std_param db "/sys/example.asm", 0
146	end if	147	end if
147		148
148	imports:	149	imports:
149	library libini, "libini.obj"	150	library libini, "libini.obj"
150	import libini, libini.get_str, "ini_get_str", \	151	import libini, libini.get_str, "ini_get_str", \
151	libini.set_str, "ini_set_str", \	152	libini.set_str, "ini_set_str", \
152	libini.get_num, "ini_get_int", \	153	libini.get_num, "ini_get_int", \
153	libini.for_each_section, "ini_enum_sections"	154	libini.for_each_section, "ini_enum_sections"
154		155
155	imports_add:	156	imports_add:
156	library libimg, "libimg.obj", \	157	library libimg, "libimg.obj", \
157	boxlib, "box_lib.obj", \	158	boxlib, "box_lib.obj", \
158	prclib, "proc_lib.obj"	159	prclib, "proc_lib.obj"
159	import libimg, libimg.init, "lib_init", \	160	import libimg, libimg.init, "lib_init", \
160	libimg.toRGB, "img_to_rgb2", \	161	libimg.toRGB, "img_to_rgb2", \
161	libimg.decode, "img_decode", \	162	libimg.decode, "img_decode", \
162	libimg.destroy, "img_destroy"	163	libimg.destroy, "img_destroy"
163	import boxlib, scrollbar.draw, "scrollbar_v_draw", \	164	import boxlib, scrollbar.draw, "scrollbar_v_draw", \
164	scrollbar.mouse, "scrollbar_v_mouse", \	165	scrollbar.mouse, "scrollbar_v_mouse", \
165	pathshow.init, "PathShow_prepare", \	166	pathshow.init, "PathShow_prepare", \
166	pathshow.draw, "PathShow_draw", \	167	pathshow.draw, "PathShow_draw", \
167	checkbox.init, "init_checkbox2", \	168	checkbox.init, "init_checkbox2", \
168	checkbox.draw, "check_box_draw2", \	169	checkbox.draw, "check_box_draw2", \
169	checkbox.mouse, "check_box_mouse2"	170	checkbox.mouse, "check_box_mouse2"
170	import prclib, opendialog.lib_init, "lib_init", \	171	import prclib, opendialog.lib_init, "lib_init", \
171	opendialog.init, "OpenDialog_init", \	172	opendialog.init, "OpenDialog_init", \
172	opendialog.start, "OpenDialog_start"	173	opendialog.start, "OpenDialog_start"
173		174
174	;===============================	175	;===============================
175		176
176	main:	177	main:
177	mcall 68, 11	178	mcall 68, 11
178	stdcall dll.Load, imports	179	stdcall dll.Load, imports
179		180
180	if DEBUG eq 1	181	if DEBUG eq 1
181	stdcall string.copy, std_param, params	182	stdcall string.copy, std_param, params
182	end if	183	end if
183		184
184	;; trim params	185	;; trim params
185	stdcall string.to_lower_case, params	186	stdcall string.to_lower_case, params
186	stdcall string.trim_last, params	187	stdcall string.trim_last, params
187	stdcall string.trim_first, params	188	stdcall string.trim_first, params
188	mov [param_s], eax	189	mov [param_s], eax
189		190
190	;; if empty - exit	191	;; if empty - exit
191	cmpe [eax], byte 0, exit	192	cmpe [eax], byte 0, exit
192		193
193	;; if folder	194	;; if folder
194	stdcall string.length, [param_s]	195	stdcall string.length, [param_s]
195	add eax, [param_s]	196	add eax, [param_s]
196	cmpe [eax - 1], byte '/', open	197	cmpe [eax - 1], byte '/', open
197		198
198	;; if dialog	199	;; if dialog
199	mov eax, [param_s]	200	mov eax, [param_s]
200	mov [is_openas + 8], eax	201	mov [is_openas + 8], eax
201	cmpne [eax], byte '~', @f	202	cmpne [eax], byte '~', @f
202	inc [param_s]	203	inc [param_s]
203	mov eax, [param_s]	204	mov eax, [param_s]
204	mov [is_openas + 8], eax	205	mov [is_openas + 8], eax
205	jmp start_dialog	206	jmp start_dialog
206	@@:	207	@@:
207		208
208	;; if without '.' - execute	209	;; if without '.' - execute
209	stdcall string.last_index_of, [param_s], '.', 1	210	stdcall string.last_index_of, [param_s], '.', 1
210	cmpe eax, -1, execute	211	cmpe eax, -1, execute
211	;; if '.' is part of path - execute	212	;; if '.' is part of path - execute
212	mov esi, eax	213	mov esi, eax
213	stdcall string.last_index_of, [param_s], '/', 1	214	stdcall string.last_index_of, [param_s], '/', 1
214	cmpg eax, esi, execute	215	cmpg eax, esi, execute
215		216
216	;; if ext == "kex" - execute	217	;; if ext == "kex" - execute
217	add esi, [param_s]	218	add esi, [param_s]
218	mov [param_e], esi	219	mov [param_e], esi
219	cmpe [esi], dword "kex", execute	220	cmpe [esi], dword "kex", execute
220		221
221	open_as:	222	open_as:
222	invoke libini.get_str, assoc_ini, assoc_ini.sec, esi, buffer, 2048, undefined	223	invoke libini.get_str, assoc_ini, assoc_ini.sec, esi, buffer8, 2048, undefined
223	cmpe [buffer], byte 0, start_dialog_pre	224	cmpe byte [buffer8], 0, start_dialog_pre
-		225	.run:
-		226	mov edi, 0
224	cmpne [buffer], byte "$", @f	227	cmpne byte [buffer8], "$", .pre_open
-		228	mov edi, 1
225	invoke libini.get_str, assoc_ini, buffer + 1, assoc_ini.exec, buffer, 2048, undefined	229	invoke libini.get_str, assoc_ini, buffer8 + 1, assoc_ini.exec, buffer, 2048, undefined
226	cmpe [buffer], byte 0, ini_error	230	cmpe byte [buffer], 0, ini_error
-		231	jmp @f
-		232	.pre_open:
-		233	stdcall string.copy, buffer8, buffer
227	@@:	234	@@:
228	mcall 70, is_openas	235	mcall 70, is_openas
229	jmp exit	236	cmpge eax, 0, exit
-		237	cmpe edi, 0, start_dialog
-		238	invoke libini.get_str, assoc_ini, buffer8 + 1, assoc_ini.next, buffer8, 2048, undefined
-		239	cmpne byte [buffer], 0, .run
-		240	jmp start_dialog
230		241
231	execute:	242	execute:
232	mov eax, [param_s]	243	mov eax, [param_s]
233	mov [is_execute + 21], eax	244	mov [is_execute + 21], eax
234	mcall 70, is_execute	245	mcall 70, is_execute
235	jmp exit	246	jmp exit
236		247
237	open:	248	open:
238	invoke libini.get_str, assoc_ini, assoc_ini.sec, slash, buffer, 2048, undefined	249	invoke libini.get_str, assoc_ini, assoc_ini.sec, slash, buffer, 2048, undefined
239	cmpne [buffer], byte "$", @f	250	cmpne [buffer], byte "$", @f
240	invoke libini.get_str, assoc_ini, buffer + 1, assoc_ini.exec, buffer, 2048, undefined	251	invoke libini.get_str, assoc_ini, buffer + 1, assoc_ini.exec, buffer, 2048, undefined
241	cmpe [buffer], byte 0, ini_error	252	cmpe [buffer], byte 0, ini_error
242	@@:	253	@@:
243	mov eax, [param_s]	254	mov eax, [param_s]
244	mov [is_open + 8], eax	255	mov [is_open + 8], eax
245	mcall 70, is_open	256	mcall 70, is_open
246	jmp exit	257	jmp exit
247		258
248	ini_error:	259	ini_error:
249	mcall 70, is_undefined	260	mcall 70, is_undefined
250	jmp exit	261	jmp exit
251		262
252	;----------------------	263	;----------------------
253		264
254	start_dialog_pre:	265	start_dialog_pre:
255	or [cb_always.flags], ch_flag_en	266	or [cb_always.flags], ch_flag_en
256		267
257	start_dialog:	268	start_dialog:
258	stdcall dll.Load, imports_add	269	stdcall dll.Load, imports_add
259	invoke opendialog.lib_init	270	invoke opendialog.lib_init
260		271
261	mcall 40, 100111b	272	mcall 40, 100111b
262		273
263	;; get title	274	;; get title
264	stdcall string.copy, title, win.title	275	stdcall string.copy, title, win.title
265		276
266	;; get positions	277	;; get positions
267	mcall 14	278	mcall 14
268	movzx ebx, ax	279	movzx ebx, ax
269	shr ebx, 1	280	shr ebx, 1
270	shr eax, 16 + 1	281	shr eax, 16 + 1
271	sub eax, WIN_WIDTH / 2 - 1	282	sub eax, WIN_WIDTH / 2 - 1
272	sub ebx, WIN_HEIGHT / 2 - 1	283	sub ebx, WIN_HEIGHT / 2 - 1
273	mov [win.x], eax	284	mov [win.x], eax
274	mov [win.y], ebx	285	mov [win.y], ebx
275		286
276	;; get colors	287	;; get colors
277	mcall 48, 3, skin, sizeof.system_colors	288	mcall 48, 3, skin, sizeof.system_colors
278		289
279	;; get opendialog	290	;; get opendialog
280	invoke opendialog.init, opendialog	291	invoke opendialog.init, opendialog
281		292
282	;; get pathshow	293	;; get pathshow
283	mov eax, [param_s]	294	mov eax, [param_s]
284	mov ebx, [skin.work_text]	295	mov ebx, [skin.work_text]
285	mov [ps_addres.txt], eax	296	mov [ps_addres.txt], eax
286	mov [ps_addres], ebx	297	mov [ps_addres], ebx
287	invoke pathshow.init, ps_addres	298	invoke pathshow.init, ps_addres
288		299
289	;; get checkbox	300	;; get checkbox
290	mov eax, 0xFFFfff	301	mov eax, 0xFFFfff
291	mov ebx, [skin.work_graph]	302	mov ebx, [skin.work_graph]
292	mov ecx, [skin.work_text]	303	mov ecx, [skin.work_text]
293	mov [cb_always.color], eax	304	mov [cb_always.color], eax
294	mov [cb_always.border_color], ebx	305	mov [cb_always.border_color], ebx
295	mov [cb_always.text_color], ecx	306	mov [cb_always.text_color], ecx
296	invoke checkbox.init, cb_always	307	invoke checkbox.init, cb_always
297		308
298	;; get list	309	;; get list
299	invoke libini.for_each_section, assoc_ini, section_cb	310	invoke libini.for_each_section, assoc_ini, section_cb
300	stdcall sort_list	311	stdcall sort_list
301	mov eax, [sb_apps.max_area]	312	mov eax, [sb_apps.max_area]
302	and eax, 1b	313	and eax, 1b
303	shr [sb_apps.max_area], 1	314	shr [sb_apps.max_area], 1
304	add [sb_apps.max_area], eax	315	add [sb_apps.max_area], eax
305		316
306	mov eax, 0xFFFfff	317	mov eax, 0xFFFfff
307	mov ebx, 0xCCCccc ;[skin.3d]	318	mov ebx, 0xCCCccc ;[skin.3d]
308	mov [sb_apps.bg_color], eax	319	mov [sb_apps.bg_color], eax
309	mov [sb_apps.front_color], ebx	320	mov [sb_apps.front_color], ebx
310	mov [sb_apps.line_color], ebx	321	mov [sb_apps.line_color], ebx
311		322
312	;; get icons	323	;; get icons
313	mcall 70, is_openimg_info	324	mcall 70, is_openimg_info
314	mov edx, dword [img.buf + 32]	325	mov edx, dword [img.buf + 32]
315	shl edx, 4	326	shl edx, 4
316	stdcall mem.Alloc, edx	327	stdcall mem.Alloc, edx
317	mov [img.rgb], eax	328	mov [img.rgb], eax
318		329
319	mov [is_openimg + 12], edx	330	mov [is_openimg + 12], edx
320	m2m dword[is_openimg + 16], dword[img.rgb]	331	m2m dword[is_openimg + 16], dword[img.rgb]
321	mcall 70, is_openimg	332	mcall 70, is_openimg
322		333
323	invoke libimg.decode, dword[img.rgb], ebx, 0	334	invoke libimg.decode, dword[img.rgb], ebx, 0
324	mov [img], eax	335	mov [img], eax
325		336
326	;; alpha	337	;; alpha
327	mov edi, [eax + 8]	338	mov edi, [eax + 8]
328	shl edi, 7	339	shl edi, 7
329	sub edi, 4	340	sub edi, 4
330	mov eax, [eax + 24]	341	mov eax, [eax + 24]
331	.setalpha:	342	.setalpha:
332	mov ebx, [eax + edi]	343	mov ebx, [eax + edi]
333	shr ebx, 24	344	shr ebx, 24
334	cmpne ebx, 0, @f	345	cmpne ebx, 0, @f
335	mov ecx, 0xFFFfff	346	mov ecx, 0xFFFfff
336	mov [eax + edi], ecx	347	mov [eax + edi], ecx
337	@@:	348	@@:
338	cmpe edi, 0, @f	349	cmpe edi, 0, @f
339	sub edi, 4	350	sub edi, 4
340	jmp .setalpha	351	jmp .setalpha
341	@@:	352	@@:
342		353
343	invoke libimg.toRGB, [img], [img.rgb]	354	invoke libimg.toRGB, [img], [img.rgb]
344	invoke libimg.destroy, [img]	355	invoke libimg.destroy, [img]
345		356
346	;----------------------	357	;----------------------
347		358
348	update:	359	update:
349	mcall 10	360	mcall 10
350	cmpe eax, EV_REDRAW, event_redraw	361	cmpe eax, EV_REDRAW, event_redraw
351	cmpe eax, EV_KEY, event_key	362	cmpe eax, EV_KEY, event_key
352	cmpe eax, EV_BUTTON, event_button	363	cmpe eax, EV_BUTTON, event_button
353	cmpe eax, EV_MOUSE, event_mouse	364	cmpe eax, EV_MOUSE, event_mouse
354	jmp update	365	jmp update
355		366
356	;----------------------	367	;----------------------
357		368
358	event_redraw:	369	event_redraw:
359	call draw_window	370	call draw_window
360	jmp update	371	jmp update
361		372
362	;----------------------	373	;----------------------
363		374
364	event_key:	375	event_key:
365	mcall 2	376	mcall 2
366	cmpe ah, 27, exit	377	cmpe ah, 27, exit
367		378
368	cmpe ah, 13, list_item_activate	379	cmpe ah, 13, list_item_activate
369	cmpe ah, 9, event_button.opendialog	380	cmpe ah, 9, event_button.opendialog
370	cmpe ah, 32, .toggle_cb	381	cmpe ah, 32, .toggle_cb
371	cmpe ah, 179, .go_right	382	cmpe ah, 179, .go_right
372	cmpe ah, 176, .go_left	383	cmpe ah, 176, .go_left
373	cmpe ah, 178, .go_up	384	cmpe ah, 178, .go_up
374	cmpe ah, 177, .go_down	385	cmpe ah, 177, .go_down
375		386
376	cmpl ah, "a", @f	387	cmpl ah, "a", @f
377	cmpg ah, "z", @f	388	cmpg ah, "z", @f
378	jmp .letter	389	jmp .letter
379	@@:	390	@@:
380		391
381	cmpl ah, " ", @f	392	cmpl ah, " ", @f
382	cmpg ah, "ï", @f	393	cmpg ah, "ï", @f
383	jmp .letter	394	jmp .letter
384	@@:	395	@@:
385		396
386	cmpl ah, "A", @f	397	cmpl ah, "A", @f
387	cmpg ah, "Z", @f	398	cmpg ah, "Z", @f
388	jmp .letter_big	399	jmp .letter_big
389	@@:	400	@@:
390		401
391	cmpl ah, "", @f	402	cmpl ah, "", @f
392	cmpg ah, "", @f	403	cmpg ah, "", @f
393	jmp .letter_big	404	jmp .letter_big
394	@@:	405	@@:
395		406
396	cmpl ah, "0", @f	407	cmpl ah, "0", @f
397	cmpg ah, "9", @f	408	cmpg ah, "9", @f
398	jmp .letter	409	jmp .letter
399	@@:	410	@@:
400		411
401	jmp update	412	jmp update
402		413
403	.letter_big:	414	.letter_big:
404	movzx ebx, ah	415	movzx ebx, ah
405	stdcall downcase_char, ebx	416	stdcall downcase_char, ebx
406	mov ah, al	417	mov ah, al
407		418
408	.letter:	419	.letter:
409	push eax	420	push eax
410		421
411	stdcall get_index	422	stdcall get_index
412	inc eax	423	inc eax
413		424
414	mov ecx, eax	425	mov ecx, eax
415		426
416	imul ebx, eax, 32	427	imul ebx, eax, 32
417	add ebx, list	428	add ebx, list
418		429
419	pop eax	430	pop eax
420		431
421	@@:	432	@@:
422	cmpe byte [ebx], 0, @f	433	cmpe byte [ebx], 0, @f
423		434
424	movzx edx, byte [ebx]	435	movzx edx, byte [ebx]
425	stdcall downcase_char, edx	436	stdcall downcase_char, edx
426	cmpne ah, al, .next	437	cmpne ah, al, .next
427	stdcall set_index, ecx	438	stdcall set_index, ecx
428	stdcall draw_list	439	stdcall draw_list
429	jmp update	440	jmp update
430		441
431	.next:	442	.next:
432	inc ecx	443	inc ecx
433	add ebx, 32	444	add ebx, 32
434	jmp @b	445	jmp @b
435	@@:	446	@@:
436	jmp update	447	jmp update
437		448
438	.toggle_cb:	449	.toggle_cb:
439	mov eax, [cb_always.flags]	450	mov eax, [cb_always.flags]
440	mov ebx, eax	451	mov ebx, eax
441	and ebx, ch_flag_en	452	and ebx, ch_flag_en
442	cmpe ebx, 0, @f	453	cmpe ebx, 0, @f
443	sub eax, ch_flag_en	454	sub eax, ch_flag_en
444	jmp .toggle_cb.redraw	455	jmp .toggle_cb.redraw
445	@@:	456	@@:
446	add eax, ch_flag_en	457	add eax, ch_flag_en
447	.toggle_cb.redraw:	458	.toggle_cb.redraw:
448	mov [cb_always.flags], eax	459	mov [cb_always.flags], eax
449	invoke checkbox.draw, cb_always	460	invoke checkbox.draw, cb_always
450	jmp update	461	jmp update
451		462
452	.go_right:	463	.go_right:
453	mov esi, 1	464	mov esi, 1
454	jmp .go_anyway	465	jmp .go_anyway
455		466
456	.go_left:	467	.go_left:
457	mov esi, -1	468	mov esi, -1
458	jmp .go_anyway	469	jmp .go_anyway
459		470
460	.go_up:	471	.go_up:
461	mov esi, -2	472	mov esi, -2
462	jmp .go_anyway	473	jmp .go_anyway
463		474
464	.go_down:	475	.go_down:
465	mov esi, 2	476	mov esi, 2
466		477
467	.go_anyway:	478	.go_anyway:
468	;; HIDE OLD SELECTION	479	;; HIDE OLD SELECTION
469	stdcall draw_item, [last_x], [last_y], 0	480	stdcall draw_item, [last_x], [last_y], 0
470		481
471	;; [X, Y] -> INDEX	482	;; [X, Y] -> INDEX
472	stdcall get_index	483	stdcall get_index
473		484
474	;; CHANGE INDEX	485	;; CHANGE INDEX
475	add eax, esi	486	add eax, esi
476		487
477	cmpl eax, [list.size], @f	488	cmpl eax, [list.size], @f
478	mov eax, [list.size]	489	mov eax, [list.size]
479	dec eax	490	dec eax
480	@@:	491	@@:
481		492
482	cmpge eax, 0, @f	493	cmpge eax, 0, @f
483	mov eax, 0	494	mov eax, 0
484	@@:	495	@@:
485		496
486	;; INDEX -> [X, Y]	497	;; INDEX -> [X, Y]
487	stdcall set_index, eax	498	stdcall set_index, eax
488	cmpe eax, 1, @f	499	cmpe eax, 1, @f
489		500

Subversion Repositories Kolibri OS

(root)/programs/system/open/open.asm – Rev 5907 → 5908