forked from KolibriOS/kolibrios
1028 lines
21 KiB
NASM
1028 lines
21 KiB
NASM
;
|
|
; MyKey. Version 0.2.
|
|
;
|
|
; Author: Asper
|
|
; Date of issue: 29.12.2009
|
|
; Compiler: FASM
|
|
; Target: KolibriOS
|
|
;
|
|
|
|
use32
|
|
org 0x0
|
|
|
|
db 'MENUET01' ; 8 byte id
|
|
dd 38 ; required os
|
|
dd STARTAPP ; program start
|
|
dd I_END ; program image size
|
|
dd 0x1000000 ; required amount of memory
|
|
dd 0x1000000 ; stack heap
|
|
dd 0x0
|
|
dd app_path
|
|
|
|
include 'ASPAPI.INC'
|
|
include 'string.inc'
|
|
include 'macros.inc'
|
|
include 'editbox_ex.mac'
|
|
include 'load_lib.mac'
|
|
include 'dll.inc'
|
|
|
|
include 'debug.inc'
|
|
DEBUG equ 0;1
|
|
|
|
N_KEYCOLOR equ 0x00EEEEEE ; Normal button color
|
|
C_KEYCOLOR equ 0x00CBE1E1 ; Control button color
|
|
A_KEYCOLOR equ 0x00FF6400;258778 ; Active button color
|
|
C_TEXTCOLOR equ 0x80000000 ; Button caption color
|
|
CA_TEXTCOLOR equ 0x80FFFFFF ; Active button caption color
|
|
A_TEXTCOLOR equ 0x00FFFFFF ; Active text color
|
|
|
|
WIN_X equ 265
|
|
WIN_Y equ 50;175
|
|
WIN_W equ 595
|
|
WIN_H equ 415 ;570
|
|
WIN_COLOR equ 0x040099BB;0x04EEEEEE
|
|
|
|
ITEM_BUTTON_W equ 192;100
|
|
ITEM_BUTTON_H equ 23
|
|
ITEM_BUTTON_SPACE equ 0
|
|
FIRST_ITEM_BUTTON_ID equ 7
|
|
|
|
BUT_W equ 80
|
|
BUT_H equ 20
|
|
|
|
MAX_HOTKEYS_NUM equ 15 ; Bad bounding :/. Until we have normal listbox control.
|
|
PATH_MAX_CHARS equ 255
|
|
|
|
@use_library
|
|
|
|
STARTAPP:
|
|
; Initialize memory
|
|
mcall 68, 11
|
|
or eax,eax
|
|
jz close_app
|
|
; Import libraries
|
|
sys_load_library boxlib_name, sys_path, boxlib_name, system_dir0, err_message_found_lib, head_f_l, myimport,err_message_import, head_f_i
|
|
cmp eax,-1
|
|
jz close_app
|
|
stdcall dll.Load,importTable
|
|
test eax, eax
|
|
jnz close_app
|
|
|
|
; Get memory for editboxes text
|
|
mcall 68, 12, MAX_HOTKEYS_NUM*PATH_MAX_CHARS
|
|
mov dword [buf_cmd_line], eax
|
|
mov dword [edit1.text], eax
|
|
mcall 68, 12, MAX_HOTKEYS_NUM*PATH_MAX_CHARS
|
|
mov dword [buf_cmd_params], eax
|
|
mov dword [edit2.text], eax
|
|
mcall 68, 12, MAX_HOTKEYS_NUM*32
|
|
mov dword [it_buf_cmd_line], eax
|
|
mov dword [it_edit.text], eax
|
|
|
|
call Load_HotkeyList
|
|
|
|
mcall 66, 1, 1 ; Set keyboard mode to get scancodes.
|
|
mcall 26, 2, 1, ascii_keymap
|
|
|
|
get_mykey_window_slot_number:
|
|
call draw_window
|
|
mcall 18, 7
|
|
mov [mykey_window], eax
|
|
|
|
set_event_mask:
|
|
mcall 40, 39
|
|
|
|
red:
|
|
.test_slot:
|
|
mcall 18, 7
|
|
mov ebx, [mykey_window]
|
|
cmp eax, ebx
|
|
jne @f
|
|
|
|
mov ecx, [it_window]
|
|
cmp ebx, ecx
|
|
je @f
|
|
.activate_it_window:
|
|
mov al, byte [it_alive]
|
|
test al, al
|
|
jz @f
|
|
mov byte [it_alive], 0
|
|
|
|
mcall 18, 3 ; Activate input thread window
|
|
@@:
|
|
call draw_window
|
|
|
|
still:
|
|
call reset_modifiers
|
|
|
|
mcall 10 ; Wait for an event in the queue.
|
|
|
|
cmp al,1 ; redraw request ?
|
|
jz red
|
|
cmp al,2 ; key in buffer ?
|
|
jz key
|
|
cmp al,3 ; button in buffer ?
|
|
jz button
|
|
cmp al,6
|
|
jz mouse
|
|
|
|
jmp still
|
|
|
|
key:
|
|
mcall 2
|
|
|
|
push eax
|
|
mcall 66, 3
|
|
mov dword [modifiers], eax
|
|
pop eax
|
|
|
|
test word [edit1.flags], 10b
|
|
jnz .editbox_input
|
|
test word [edit2.flags], 10b
|
|
jz @f
|
|
.editbox_input:
|
|
cmp ah, 0x80 ;if key up
|
|
ja still
|
|
cmp ah, 42 ;LShift
|
|
je still
|
|
cmp ah, 54 ;RShift
|
|
je still
|
|
cmp ah, 56 ;Alt
|
|
je still
|
|
cmp ah, 29 ;Ctrl
|
|
je still
|
|
cmp ah, 69 ;Pause/Break
|
|
je still
|
|
|
|
mov esi, ascii_keymap
|
|
call Scan2ASCII
|
|
|
|
push dword edit1
|
|
call [edit_box_key]
|
|
|
|
push dword edit2
|
|
call [edit_box_key]
|
|
jmp still
|
|
@@:
|
|
|
|
;------------------------
|
|
mov cl, byte [hotkeys_num]
|
|
.test_next_hotkey:
|
|
dec cl
|
|
mov bl, cl
|
|
and ebx, 0xFF
|
|
shl ebx, 2
|
|
add ebx, dword Hotkeys.codes
|
|
|
|
mov edx, dword [ebx]
|
|
cmp ah, dl
|
|
jne @f
|
|
|
|
shr edx, 8
|
|
cmp edx, dword [modifiers]
|
|
jne @f
|
|
|
|
push eax
|
|
mov eax, PATH_MAX_CHARS
|
|
mul cl
|
|
mov edx, eax
|
|
add edx, dword [buf_cmd_params]
|
|
add eax, dword [buf_cmd_line]
|
|
mov esi, eax
|
|
pop eax
|
|
call RunProgram
|
|
jmp .end_test
|
|
@@:
|
|
or cl, cl
|
|
jnz .test_next_hotkey
|
|
.end_test:
|
|
;------------------------
|
|
|
|
jmp still
|
|
|
|
button:
|
|
mcall 17 ; Get pressed button code
|
|
cmp ah, 1 ; Test x button
|
|
je close_app
|
|
|
|
cmp ah, 2
|
|
jne @f
|
|
call AddHotKey
|
|
jmp red
|
|
@@:
|
|
cmp ah, 5
|
|
jne @f
|
|
call Load_HotkeyList
|
|
jmp red
|
|
@@:
|
|
cmp ah, 6
|
|
jne @f
|
|
call WriteIni
|
|
xor edx, edx
|
|
mov esi, aRamSaver
|
|
call RunProgram
|
|
@@:
|
|
|
|
cmp ah, FIRST_ITEM_BUTTON_ID ; Test if pressed buttons
|
|
jb still ; is a HotKey button...
|
|
mov al, ah
|
|
sub al, FIRST_ITEM_BUTTON_ID
|
|
cmp al, byte [hotkeys_num]
|
|
jnb still ; ...so, if not then still,
|
|
|
|
|
|
mov byte [butt], ah ; if yes then save pressed button ID
|
|
and eax, 0xFF
|
|
mov cl, byte PATH_MAX_CHARS
|
|
mul cl
|
|
mov ebx, eax
|
|
add ebx, dword [buf_cmd_params]
|
|
add eax, dword [buf_cmd_line]
|
|
|
|
mov dword [edit1.text], eax
|
|
mov dword [edit2.text], ebx
|
|
|
|
mov esi, eax
|
|
call strlen
|
|
mov dword [edit1.size], ecx
|
|
mov dword [edit1.pos], ecx
|
|
|
|
mov esi, ebx
|
|
call strlen
|
|
mov dword [edit2.size], ecx
|
|
mov dword [edit2.pos], ecx
|
|
|
|
jmp red
|
|
|
|
mouse:
|
|
push dword edit1
|
|
call [edit_box_mouse]
|
|
push dword edit2
|
|
call [edit_box_mouse]
|
|
|
|
jmp still
|
|
|
|
|
|
close_app:
|
|
mov eax,-1 ; close this program
|
|
int 0x40
|
|
|
|
|
|
draw_window:
|
|
start_draw_window WIN_X,WIN_Y,WIN_W,WIN_H,WIN_COLOR,labelt, 11;labellen-labelt
|
|
|
|
;bar 5, 24, 585, 385, 0x800000 or 0x90D2
|
|
;rectangle2 6, 25, 585, 385, 0xFFFFFF, 0
|
|
|
|
;bar 5, 24, BUT_W+4, 350, 0x008C00D2;0x800000 or A_KEYCOLOR
|
|
;rectangle2 6, 25, BUT_W+4, 350, 0xFFFFFF, 0
|
|
|
|
|
|
push dword edit1
|
|
call [edit_box_draw]
|
|
push dword edit2
|
|
call [edit_box_draw]
|
|
|
|
stdcall draw_button, 7,WIN_H-BUT_H-10,BUT_W,BUT_H,2,0x0050D250,AddKeyText, 0,C_TEXTCOLOR ; Add Hotkey.
|
|
if 0
|
|
stdcall draw_button, 90,WIN_H-BUT_H-10,BUT_W,BUT_H,3,C_KEYCOLOR,DeleteKeyText,0,C_TEXTCOLOR ; Delete Hotkey.
|
|
stdcall draw_button, 173,WIN_H-BUT_H-10,BUT_W,BUT_H,4,C_KEYCOLOR,ManageKeyText,0,C_TEXTCOLOR ; Manage Hotkey.
|
|
end if
|
|
stdcall draw_button, WIN_W-BUT_W*2-14,WIN_H-BUT_H-10,BUT_W,BUT_H,5,0x0050D250,ReloadKeyText, 0,C_TEXTCOLOR ; Save Hotkeys list.
|
|
stdcall draw_button, WIN_W-BUT_W-7,WIN_H-BUT_H-10,BUT_W,BUT_H,6,0x0050D250,SaveKeyText, 0,C_TEXTCOLOR ; Save Hotkeys list.
|
|
|
|
movzx ecx, byte [hotkeys_num]
|
|
cmp ecx, MAX_HOTKEYS_NUM
|
|
jng @f
|
|
mov ecx, MAX_HOTKEYS_NUM
|
|
@@:
|
|
mov eax, 30
|
|
mov ebx, FIRST_ITEM_BUTTON_ID
|
|
@@:
|
|
or cl, cl
|
|
jz @f
|
|
|
|
mov edx, ebx
|
|
sub edx, FIRST_ITEM_BUTTON_ID
|
|
shl edx, 5; edx=edx*32
|
|
add edx, dword Hotkeys
|
|
|
|
cmp bl, byte [butt]
|
|
jne .l1
|
|
stdcall draw_button, 7,eax,ITEM_BUTTON_W,ITEM_BUTTON_H,ebx,A_KEYCOLOR ,edx,0,CA_TEXTCOLOR
|
|
bar 220, 70, 350, 30, 0x00C8E1F0 ;0x800000 or A_KEYCOLOR
|
|
rectangle2 221, 71, 350, 30, 0xFFFFFF, 0
|
|
mov esi, Hotkeys.code_names
|
|
sub edx, dword Hotkeys
|
|
shl edx, 1
|
|
add esi, edx
|
|
stdcall outtextxy, 225, 80, esi, 64, C_TEXTCOLOR
|
|
jmp .l2
|
|
.l1:
|
|
stdcall draw_button, 7,eax,ITEM_BUTTON_W,ITEM_BUTTON_H,ebx,N_KEYCOLOR,edx,0,C_TEXTCOLOR
|
|
.l2:
|
|
|
|
add eax, ITEM_BUTTON_H+ITEM_BUTTON_SPACE
|
|
inc ebx
|
|
dec cl
|
|
jmp @b
|
|
@@:
|
|
end_draw_window
|
|
ret
|
|
|
|
|
|
AddHotKey:
|
|
mov al, byte [hotkeys_num]
|
|
cmp al, MAX_HOTKEYS_NUM
|
|
jge .end
|
|
inc al
|
|
mov byte [hotkeys_num], al
|
|
|
|
mcall 51, 1, dword start_input_thread, dword input_thread_stack_top
|
|
.end:
|
|
ret
|
|
|
|
|
|
Load_HotkeyList:
|
|
call ReadIni
|
|
|
|
mov al, byte [butt]
|
|
mov ah, byte [hotkeys_num]
|
|
cmp al, ah
|
|
jle @f
|
|
mov al, ah
|
|
@@:
|
|
and eax, 0xFF
|
|
sub al, FIRST_ITEM_BUTTON_ID
|
|
mov cl, byte PATH_MAX_CHARS
|
|
mul cl
|
|
mov ebx, eax
|
|
add eax, dword [buf_cmd_line]
|
|
add ebx, dword [buf_cmd_params]
|
|
|
|
|
|
mov esi, eax
|
|
call strlen
|
|
mov dword [edit1.size], ecx
|
|
mov dword [edit1.pos], ecx
|
|
|
|
mov esi, ebx
|
|
call strlen
|
|
mov dword [edit2.size], ecx
|
|
mov dword [edit2.pos], ecx
|
|
ret
|
|
|
|
|
|
reset_modifiers:
|
|
pusha
|
|
mov esi, dword [it_hotkey_addr]
|
|
test esi, esi
|
|
jz .end_set_mods
|
|
|
|
lodsd
|
|
|
|
; Set new hotkey for the main thread
|
|
mov cl, al
|
|
shr eax, 8
|
|
|
|
xor edx, edx
|
|
push cx
|
|
mov cl, 3
|
|
.next_pair:
|
|
shl edx, 4
|
|
mov bl, al
|
|
and bl, 3
|
|
|
|
or bl, bl
|
|
jz .l1
|
|
|
|
cmp bl, 3 ; both?
|
|
jne @f
|
|
or dl, 2
|
|
jmp .l1
|
|
@@:
|
|
add bl, 2
|
|
or dl, bl
|
|
.l1:
|
|
shr eax, 2
|
|
dec cl
|
|
test cl, cl
|
|
jnz .next_pair
|
|
|
|
mov bx, dx
|
|
and bx, 0xF0F
|
|
xchg bl, bh
|
|
and dx, 0x0F0
|
|
or dx, bx
|
|
pop cx
|
|
|
|
mcall 66, 4
|
|
mov dword [it_hotkey_addr], 0
|
|
.end_set_mods:
|
|
popa
|
|
ret
|
|
|
|
|
|
;######################## Input Thread code start ##########################
|
|
|
|
start_input_thread:
|
|
mov ecx, 1 ; to get scancodes.
|
|
mcall 26, 2, 1, it_ascii_keymap
|
|
mcall 66, 1 ; Set keyboard mode
|
|
mov dword [it_hotkey_addr], 0
|
|
it_set_editbox:
|
|
mov al, byte [hotkeys_num]
|
|
sub al, 1
|
|
and eax, 0xFF
|
|
shl eax, 5
|
|
add eax, dword Hotkeys.names
|
|
mov dword [it_edit.text], eax
|
|
|
|
mov esi, eax
|
|
call strlen
|
|
mov dword [it_edit.size], ecx
|
|
mov dword [it_edit.pos], ecx
|
|
get_it_window_slot_number:
|
|
call it_draw_window
|
|
mcall 18, 7
|
|
mov [it_window], eax
|
|
|
|
it_set_event_mask:
|
|
mcall 40, 39
|
|
it_red:
|
|
call it_draw_window
|
|
|
|
it_still:
|
|
mcall 10 ; Wait for an event in the queue.
|
|
|
|
cmp al,1 ; redraw request ?
|
|
jz it_red
|
|
cmp al,2 ; key in buffer ?
|
|
jz it_key
|
|
cmp al,3 ; button in buffer ?
|
|
jz it_button
|
|
cmp al,6
|
|
jz it_mouse
|
|
|
|
jmp it_still
|
|
|
|
it_key:
|
|
mcall 2
|
|
|
|
mov byte [it_keycode], 0
|
|
stdcall outtextxy, 10, 100, ctrl_key_names, 35, 0
|
|
|
|
cmp ah, 1 ;Esc
|
|
jne @f
|
|
dec byte [hotkeys_num]
|
|
jmp close_app
|
|
@@:
|
|
|
|
cmp ah, 0x80 ;if key up
|
|
ja .end
|
|
cmp ah, 42 ;[Shift] (left)
|
|
je .end
|
|
cmp ah, 54 ;[Shift] (right)
|
|
je .end
|
|
cmp ah, 56 ;[Alt]
|
|
je .end
|
|
cmp ah, 29 ;[Ctrl]
|
|
je .end
|
|
cmp ah, 69 ;[Pause Break]
|
|
je .end
|
|
|
|
mov byte [it_keycode], ah
|
|
mov esi, it_ascii_keymap
|
|
call Scan2ASCII
|
|
|
|
test word [it_edit.flags], 10b
|
|
jz .end
|
|
push dword it_edit
|
|
call [edit_box_key]
|
|
jmp it_still
|
|
.end:
|
|
|
|
mcall 26, 2, 1, it_ascii_keymap
|
|
call it_test_key_modifiers
|
|
test dl, 3
|
|
jz @f
|
|
push edx
|
|
mcall 26, 2, 2, it_ascii_keymap
|
|
pop edx
|
|
@@:
|
|
|
|
mov al, byte [it_keycode]
|
|
test al, al
|
|
jz @f
|
|
shl edx, 8
|
|
mov dl, al
|
|
|
|
mov eax, dword [it_hotkey_addr]
|
|
test eax, eax
|
|
jnz @f
|
|
|
|
call it_set_keycode_name
|
|
|
|
mov al, byte [hotkeys_num]
|
|
dec al
|
|
and eax, 0xFF
|
|
shl eax, 2;5
|
|
add eax, dword Hotkeys.codes
|
|
mov dword [eax], edx
|
|
mov dword [it_hotkey_addr], eax
|
|
|
|
mov cl, dl ; finally set hotkey
|
|
shr edx, 8
|
|
mcall 66, 4
|
|
@@:
|
|
|
|
jmp it_still
|
|
|
|
|
|
it_test_key_modifiers:
|
|
push eax
|
|
mcall 66, 3 ;get control keys state
|
|
mov edx, eax
|
|
.lshift:
|
|
test al, 1 ; LShift ?
|
|
jz .rshift
|
|
stdcall outtextxy, 10, 100, ctrl_key_names, 6, A_TEXTCOLOR
|
|
.rshift:
|
|
test al, 2 ; RShift ?
|
|
jz .lctrl
|
|
stdcall outtextxy, 184, 100, ctrl_key_names+29, 6, A_TEXTCOLOR
|
|
.lctrl:
|
|
test al, 4 ; LCtrl ?
|
|
jz .rctrl
|
|
stdcall outtextxy, 52, 100, ctrl_key_names+7, 5, A_TEXTCOLOR
|
|
.rctrl:
|
|
test al, 8 ; RCtrl ?
|
|
jz .lalt
|
|
stdcall outtextxy, 148, 100, ctrl_key_names+23, 5, A_TEXTCOLOR
|
|
.lalt:
|
|
test al, 0x10 ; LAlt ?
|
|
jz .ralt
|
|
stdcall outtextxy, 88, 100, ctrl_key_names+13, 4, A_TEXTCOLOR
|
|
.ralt:
|
|
test al, 0x20 ; RAlt ?
|
|
jz @f
|
|
stdcall outtextxy, 118, 100, ctrl_key_names+18, 4, A_TEXTCOLOR
|
|
@@:
|
|
pop eax
|
|
ret
|
|
|
|
|
|
it_set_keycode_name:
|
|
pusha
|
|
mov al, byte [hotkeys_num]
|
|
dec al
|
|
and eax, 0xFF
|
|
shl eax, 6
|
|
mov edi, Hotkeys.code_names
|
|
add edi, eax
|
|
|
|
mov ecx, 64
|
|
xor ax, ax
|
|
call strnset
|
|
mcall 66, 3 ;get control keys state
|
|
.lshift:
|
|
test al, 1 ; LShift ?
|
|
jz .rshift
|
|
mov esi, ctrl_key_names
|
|
mov ecx, 6
|
|
call strncat
|
|
|
|
mov esi, aPlus
|
|
mov ecx, 3
|
|
call strncat
|
|
.rshift:
|
|
test al, 2 ; RShift ?
|
|
jz .lctrl
|
|
mov esi, ctrl_key_names+29
|
|
mov ecx, 6
|
|
call strncat
|
|
|
|
mov esi, aPlus
|
|
mov ecx, 3
|
|
call strncat
|
|
.lctrl:
|
|
test al, 4 ; LCtrl ?
|
|
jz .rctrl
|
|
mov esi, ctrl_key_names+7
|
|
mov ecx, 5
|
|
call strncat
|
|
|
|
mov esi, aPlus
|
|
mov ecx, 3
|
|
call strncat
|
|
.rctrl:
|
|
test al, 8 ; RCtrl ?
|
|
jz .lalt
|
|
mov esi, ctrl_key_names+23
|
|
mov ecx, 5
|
|
call strncat
|
|
|
|
mov esi, aPlus
|
|
mov ecx, 3
|
|
call strncat
|
|
.lalt:
|
|
test al, 0x10 ; LAlt ?
|
|
jz .ralt
|
|
mov esi, ctrl_key_names+13
|
|
mov ecx, 4
|
|
call strncat
|
|
|
|
mov esi, aPlus
|
|
mov ecx, 3
|
|
call strncat
|
|
.ralt:
|
|
test al, 0x20 ; RAlt ?
|
|
jz @f
|
|
mov esi, ctrl_key_names+18
|
|
mov ecx, 4
|
|
call strncat
|
|
|
|
mov esi, aPlus
|
|
mov ecx, 3
|
|
call strncat
|
|
@@:
|
|
mov esi, it_ascii_keymap
|
|
and edx, 0xFF
|
|
add esi, edx
|
|
mov ecx, 1
|
|
call strncat
|
|
|
|
popa
|
|
ret
|
|
|
|
|
|
it_button:
|
|
mcall 17 ; Get pressed button code
|
|
cmp ah, 1 ; Test x button
|
|
jne @f
|
|
jmp close_app
|
|
@@:
|
|
jmp it_still
|
|
|
|
it_mouse:
|
|
|
|
push dword it_edit
|
|
call [edit_box_mouse]
|
|
|
|
jmp it_still
|
|
|
|
it_draw_window:
|
|
start_draw_window 450,WIN_Y+250,225,70,WIN_COLOR,it_labelt, 26;labellen-labelt
|
|
|
|
push dword it_edit
|
|
call [edit_box_draw]
|
|
|
|
stdcall outtextxy, 43, 50, it_hint, 0, 0x323232
|
|
stdcall outtextxy, 10, 100, ctrl_key_names, 0, 0
|
|
;stdcall draw_button, 7,WIN_H-30,80,20,2,C_KEYCOLOR,AddKeyText, 0,C_TEXTCOLOR ; Add Hot key.
|
|
end_draw_window
|
|
mov byte [it_alive], 1
|
|
ret
|
|
|
|
;######################## Input Thread code end ##########################
|
|
|
|
|
|
; Read configuration file
|
|
ReadIni:
|
|
; Get path
|
|
mov edi, ini_path
|
|
mov esi, app_path
|
|
call strlen
|
|
|
|
.get_path:
|
|
cmp byte [app_path+ecx-1], '/'
|
|
je @f
|
|
loop .get_path
|
|
@@:
|
|
call strncpy
|
|
mov byte [ini_path+ecx], 0
|
|
mov esi, aIni
|
|
call strlen
|
|
call strncat
|
|
|
|
; Get hotkey number
|
|
invoke ini_get_int, ini_path, aMain, aKeynum, 0
|
|
|
|
and eax, 0xFF
|
|
test al, al
|
|
jz .end
|
|
cmp al, MAX_HOTKEYS_NUM
|
|
jle @f
|
|
mov al, MAX_HOTKEYS_NUM
|
|
@@:
|
|
mov byte [hotkeys_num], al
|
|
|
|
mov ecx, eax
|
|
xor eax, eax
|
|
.get_next_hotkey_values:
|
|
call set_next_hotkey_section_name
|
|
; Get hotkey name
|
|
mov edi, eax
|
|
shl edi, 5 ; edi=eax*32
|
|
add edi, dword Hotkeys
|
|
push eax ecx
|
|
invoke ini_get_str, ini_path, aHotkey, aName, edi, 32, 0
|
|
pop ecx eax
|
|
; Get hotkey code
|
|
mov edi, eax
|
|
shl edi, 2 ; edi=eax*4
|
|
add edi, dword Hotkeys.codes
|
|
push eax ecx edx
|
|
invoke ini_get_int, ini_path, aHotkey, aKeycode, 0
|
|
mov dword [it_hotkey_addr], edi
|
|
stosd
|
|
; set hotkey
|
|
call reset_modifiers
|
|
pop edx ecx eax
|
|
; Get hotkey code_name
|
|
mov edi, eax
|
|
shl edi, 6 ; edi=eax*64
|
|
add edi, dword Hotkeys.code_names
|
|
push eax ecx
|
|
invoke ini_get_str, ini_path, aHotkey, aKeycodeName, edi, 64, 0
|
|
pop ecx eax
|
|
; Get hotkey path and param
|
|
push eax ecx
|
|
mov cl, byte PATH_MAX_CHARS
|
|
mul cl
|
|
mov edi, eax
|
|
push edi
|
|
add edi, dword [buf_cmd_line]
|
|
invoke ini_get_str, ini_path, aHotkey, aPath, edi, 32, 0
|
|
pop edi
|
|
add edi, dword [buf_cmd_params]
|
|
invoke ini_get_str, ini_path, aHotkey, aParam, edi, 32, 0
|
|
pop ecx eax
|
|
|
|
inc al
|
|
dec ecx
|
|
test ecx, ecx
|
|
jnz .get_next_hotkey_values
|
|
.end:
|
|
ret
|
|
|
|
|
|
; Write configuration file
|
|
WriteIni:
|
|
mov edi, ini_path
|
|
; Set hotkey number
|
|
movzx ecx, byte [hotkeys_num]
|
|
invoke ini_set_int, ini_path, aMain, aKeynum, ecx
|
|
|
|
xor eax, eax
|
|
.get_next_hotkey_values:
|
|
call set_next_hotkey_section_name
|
|
; Set hotkey name
|
|
push eax ecx
|
|
mov esi, eax
|
|
shl esi, 5 ; edi=eax*32
|
|
add esi, dword Hotkeys
|
|
call strlen
|
|
invoke ini_set_str, ini_path, aHotkey, aName, esi, ecx
|
|
pop ecx eax
|
|
; Set hotkey code
|
|
mov esi, eax
|
|
shl esi, 2 ; edi=eax*4
|
|
add esi, dword Hotkeys.codes
|
|
push eax ecx edx
|
|
invoke ini_set_int, ini_path, aHotkey, aKeycode, dword [esi]
|
|
pop edx ecx eax
|
|
; Set hotkey code_name
|
|
mov esi, eax
|
|
shl esi, 6 ; edi=eax*64
|
|
add esi, dword Hotkeys.code_names
|
|
push eax ecx
|
|
call strlen
|
|
invoke ini_set_str, ini_path, aHotkey, aKeycodeName, esi, ecx
|
|
pop ecx eax
|
|
; Set hotkey path and param
|
|
push eax ecx
|
|
;inc al
|
|
mov cl, byte PATH_MAX_CHARS
|
|
mul cl
|
|
mov esi, eax
|
|
push esi
|
|
add esi, dword [buf_cmd_line]
|
|
call strlen
|
|
invoke ini_set_str, ini_path, aHotkey, aPath, esi, ecx
|
|
pop esi
|
|
add esi, dword [buf_cmd_params]
|
|
call strlen
|
|
invoke ini_set_str, ini_path, aHotkey, aParam, esi, ecx
|
|
pop ecx eax
|
|
|
|
inc al
|
|
dec ecx
|
|
test ecx, ecx
|
|
jnz .get_next_hotkey_values
|
|
.end:
|
|
ret
|
|
|
|
|
|
set_next_hotkey_section_name: ;(eax - num)
|
|
; this code mainly from debug.inc
|
|
push eax ecx edi
|
|
mov edi, aHotkey
|
|
add edi, 6 ; + strlen("hotkey")
|
|
mov ecx, 10
|
|
push -'0'
|
|
.l0:
|
|
xor edx, edx
|
|
div ecx
|
|
push edx
|
|
test eax, eax
|
|
jnz .l0
|
|
.l1:
|
|
pop eax
|
|
add al, '0'
|
|
;call debug_outchar
|
|
stosb
|
|
jnz .l1
|
|
pop edi ecx eax
|
|
ret
|
|
|
|
|
|
;****************************************
|
|
;* input: esi = pointer to keymap *
|
|
;* ah = scan code *
|
|
;* output: ah = ascii code *
|
|
;****************************************
|
|
Scan2ASCII:
|
|
push esi
|
|
shr eax, 8
|
|
add esi, eax
|
|
lodsb
|
|
shl eax, 8
|
|
pop esi
|
|
ret
|
|
|
|
|
|
|
|
;********************************************
|
|
;* input: esi = pointer to the file name *
|
|
;* edx = pointer to the parametrs *
|
|
;********************************************
|
|
|
|
RunProgram:
|
|
pusha
|
|
mov dword [InfoStructure], 7 ; run program
|
|
mov dword [InfoStructure+4], 0 ; flags
|
|
mov dword [InfoStructure+8], edx ; pointer to the parametrs
|
|
mov dword [InfoStructure+12], 0 ; reserved
|
|
mov dword [InfoStructure+16], 0 ; reserved
|
|
mov dword [InfoStructure+20], 0 ; reserved
|
|
mov dword [InfoStructure+21], esi ; pointer to the file name
|
|
mcall 70, InfoStructure
|
|
cmp eax, 0
|
|
jl .err_out
|
|
.out:
|
|
popa
|
|
clc
|
|
ret
|
|
.err_out:
|
|
print "Can't load program"
|
|
popa
|
|
stc
|
|
ret
|
|
|
|
|
|
; DATA AREA
|
|
|
|
; Application Title
|
|
labelt db 'MyKey v.0.2'
|
|
mykey_window dd 0 ; Slot number of MyKey main thread
|
|
|
|
|
|
;########### Input Thread data start ############
|
|
|
|
; Input Thread Title
|
|
it_labelt db "Input hotkey and it's name"
|
|
;labellen:
|
|
it_edit edit_box 180, 20, 30, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, 31, it_buf_cmd_line, 0, 0
|
|
it_buf_cmd_line dd 0 ;db MAX_HOTKEYS_NUM*32 dup(0) ; !Make it dynamic!!!
|
|
it_window dd 0 ; Slot number of the input thread
|
|
it_alive db 0 ; Flag of the input thread existance
|
|
it_keycode db 0
|
|
it_hotkey_addr dd 0
|
|
it_hint db 'or press Esc to cancel',0
|
|
;########### Input Thread data end ############
|
|
|
|
;Button names
|
|
AddKeyText db 'Add',0
|
|
ReloadKeyText db 'Reload',0
|
|
SaveKeyText db 'Save',0
|
|
;DeleteKeyText db 'Delete',0
|
|
;ManageKeyText db 'Manage',0
|
|
|
|
|
|
hotkeys_num db 0;15
|
|
butt db FIRST_ITEM_BUTTON_ID ; Pressed button ID
|
|
modifiers dd 0
|
|
|
|
;Data structures for loadlib.mac and editbox_ex.mac [
|
|
edit1 edit_box 350, 220, 30, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, PATH_MAX_CHARS+1, buf_cmd_line, 0, 0
|
|
edit2 edit_box 350, 220, 50, 0xffffff, 0xAA80, 0x0000ff, 0x0, 0x0, PATH_MAX_CHARS+1, buf_cmd_params, 0, 0
|
|
|
|
buf_cmd_line dd 0
|
|
buf_cmd_params dd 0
|
|
|
|
sys_path:
|
|
system_dir0 db '/sys/lib/'
|
|
boxlib_name db 'box_lib.obj',0
|
|
|
|
err_message_found_lib db "Can't find box_lib.obj",0
|
|
head_f_i:
|
|
head_f_l db 'System error',0
|
|
err_message_import db 'Error on import box_lib.obj',0
|
|
|
|
align 4
|
|
myimport:
|
|
edit_box_draw dd aEdit_box_draw
|
|
edit_box_key dd aEdit_box_key
|
|
edit_box_mouse dd aEdit_box_mouse
|
|
version_ed dd aVersion_ed
|
|
dd 0,0
|
|
|
|
aEdit_box_draw db 'edit_box',0
|
|
aEdit_box_key db 'edit_box_key',0
|
|
aEdit_box_mouse db 'edit_box_mouse',0
|
|
aVersion_ed db 'version_ed',0
|
|
|
|
align 16
|
|
importTable:
|
|
library \
|
|
libini, 'libini.obj';, \
|
|
; boxlib, 'boxlib.obj' \
|
|
|
|
;import boxlib, \
|
|
;edit_box_draw , 'edit_box', \
|
|
;edit_box_key , 'edit_box_key', \
|
|
;edit_box_mouse , 'edit_box_mouse', \
|
|
;version_ed , 'version_ed'
|
|
|
|
|
|
import libini, \
|
|
ini_get_str ,'ini_get_str', \
|
|
ini_set_str ,'ini_set_str', \
|
|
ini_get_int ,'ini_get_int', \
|
|
ini_set_int ,'ini_set_int';, \
|
|
; ini_get_color,'ini_get_color', \
|
|
; ini_set_color,'ini_set_color'
|
|
|
|
|
|
;] Data structures for loadlib.mac and editbox_ex.mac
|
|
|
|
InfoStructure:
|
|
dd 0x0 ; subfunction number
|
|
dd 0x0 ; position in the file in bytes
|
|
dd 0x0 ; upper part of the position address
|
|
dd 0x0 ; number of bytes to read
|
|
dd 0x0 ; pointer to the buffer to write data
|
|
db 0
|
|
dd 0 ; pointer to the filename
|
|
|
|
|
|
I_END: ; End of application code and data marker
|
|
|
|
rb 300 ;input thread stack size
|
|
input_thread_stack_top:
|
|
|
|
ascii_keymap:
|
|
db 128 dup(?)
|
|
ctrl_key_names db 'LShift LCtrl LAlt RAlt RCtrl RShift',0
|
|
aPlus db ' + ',0
|
|
aIni db 'mykey.ini',0
|
|
aMain db 'main',0
|
|
aKeynum db 'keynum',0
|
|
aHotkey db 'hotkey',0,0,0
|
|
aName db 'name',0
|
|
aKeycode db 'keycode',0
|
|
aKeycodeName db 'keycode_name',0
|
|
aPath db 'path',0
|
|
aParam db 'param',0
|
|
aRamSaver db '/sys/rdsave',0
|
|
|
|
app_path rb 255
|
|
ini_path rb 255
|
|
|
|
Hotkeys: ;(name = 32 b) + (modifiers = 3 b) + (keycode = 1 b) + (keycode_name = 64 b) = 100 bytes for 1 hotkey
|
|
.names:
|
|
db 'My1',0
|
|
rb 28
|
|
db 'My2',0
|
|
rb 28
|
|
db 'My3',0
|
|
rb 28
|
|
rb MAX_HOTKEYS_NUM*32-3
|
|
.codes:
|
|
dd MAX_HOTKEYS_NUM dup (0)
|
|
.code_names:
|
|
rb MAX_HOTKEYS_NUM*64
|
|
|
|
it_ascii_keymap:
|