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

Subversion Repositories Kolibri OS

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