forked from KolibriOS/kolibrios
1056 lines
23 KiB
NASM
1056 lines
23 KiB
NASM
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>, <LIST_HEIGHT + 29, 22>, [skin.work_graph]
|
||
mcall 8, <208, 63>, <LIST_HEIGHT + 30, 19>, 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 , , <LIST_HEIGHT + 9 + 1 + 12, 1>
|
||
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:
|