badpork/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity
7920032ceb
kolibrios/programs/system/MyKey/trunk/MyKey.asm

698 lines
14 KiB
NASM
Raw Normal View History

Added sources of 'kerpack', 'MyKey', '@notify', 'spanel', 'test'. git-svn-id: svn://kolibrios.org@1815 a494cfbc-eb01-0410-851d-a64ba20cac60
2011-01-30 16:54:21 +01:00
;
; MyKey. Version 0.1.
;
; Author: Asper
; Date of issue: 04.12.2009
; Compiler: FASM
; Target: KolibriOS
;
use32
org 0x0
db 'MENUET00' ; 8 byte id
dd 38 ; required os
dd STARTAPP ; program start
dd I_END ; program image size
dd 0x1000000 ; required amount of memory
dd 0x00000000 ; reserved=no extended header
include "aspAPI.inc"
include 'macros.inc'
include 'editbox_ex.mac'
include 'load_lib.mac'
include 'debug.inc'
DEBUG equ 0;1
N_KEYCOLOR equ 0x00EEEEEE ; Normal button color
C_KEYCOLOR equ 0x00CBE1E1 ; Control button color
A_KEYCOLOR equ 0x000099BB;258778 ; Active button color
C_TEXTCOLOR equ 0x80000000 ; Button caption color
CA_TEXTCOLOR equ 0x80FFFFFF ; Active button caption color
WIN_X equ 265
WIN_Y equ 50;175
WIN_W equ 595
WIN_H equ 415 ;570
WIN_COLOR equ 0x04EEEEEE
BUT_W equ 192;100
BUT_H equ 23
BUT_SPACE equ 0
MAX_HOTKEYS_NUM equ 15 ; Bad bounding :/. Until we have normal listbox control.
PATH_MAX_CHARS equ 255
@use_library
STARTAPP:
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
;mcall 68,11
;or eax,eax
;jz close_app
mcall 66, 1, 1 ; Set keyboard mode to get scancodes.
mcall 26, 2, 1, ascii_keymap
;get_mykey_window_slot_number:
; mcall 5, 10 ;wait
; mcall 18, 7
; mov [mykey_window], eax
set_event_mask:
mcall 40, 39
red:
; .test_slot:
; mov eax, [mykey_window] ; Test is receiver MyKey window
; mov ecx, [it_window]
; cmp eax, ecx
; je @f;still ; if yes still.
; .activate_it_window:
; mov eax, 18
; mov ebx, 3
; int 0x40
; @@:
call draw_window
still:
call reset_modifiers
mov eax, 10 ; Wait for an event in the queue.
int 0x40
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:
mov eax, 2
int 0x40
push eax
mcall 66, 3
mov edx, eax
and edx, 0x00000FFF
mov dword [modifiers], edx
pop eax
test word [edit1.flags], 10b;ed_focus ; <20>᫨ <20><> <20> 䮪<><E4AEAA><EFBFBD>, <20><>室<EFBFBD><E5AEA4>
jnz .editbox_input
test word [edit2.flags], 10b;ed_focus ; <20>᫨ <20><> <20> 䮪<><E4AEAA><EFBFBD>, <20><>室<EFBFBD><E5AEA4>
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
; cmp [keyUpr],0
; jne still
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, 5
mov esi, ebx
add ebx, dword Hotkeys.codes
cmp ah, byte [ebx]
jne @f
mov edx, dword [ebx]
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 ;cmp cl, 0
jnz .test_next_hotkey ;jge .test_next_hotkey
.end_test:
;------------------------
jmp still
button:
mov eax, 17 ; Get pressed button code
int 0x40
cmp ah, 1 ; Test x button
je close_app
cmp ah, 2
jne @f
call AddHotKey
jmp red
@@:
cmp ah, 5 ; Test if pressed buttons
jb still ; is a HotKey button...
mov al, ah
sub al, 5
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;shr ax, 8
if DEBUG
dps "Button = "
dph eax
end if
mov cl, byte PATH_MAX_CHARS
mul cl
if DEBUG
dps " offset = "
dph eax
end if
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
if DEBUG
dps " len = "
dph ecx
newline
end if
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 ;still
mouse:
push dword edit1
call [edit_box_mouse]
push dword edit2
call [edit_box_mouse]
;test word [edit1.flags],10b;ed_focus ; <20>᫨ <20><> <20> 䮪<><E4AEAA><EFBFBD>, <20><>室<EFBFBD><E5AEA4>
;jne still
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
push dword edit1
call [edit_box_draw]
push dword edit2
call [edit_box_draw]
stdcall draw_button, 7,WIN_H-30,80,20,2,C_KEYCOLOR,AddKeyText, 0,C_TEXTCOLOR ; Add Hot key.
if 0
stdcall draw_button, 90,WIN_H-30,80,20,3,C_KEYCOLOR,DeleteKeyText,0,C_TEXTCOLOR ; Delete Hot key.
stdcall draw_button, 173,WIN_H-30,80,20,4,C_KEYCOLOR,ManageKeyText,0,C_TEXTCOLOR ; Manage Hot key.
end if
movzx ecx, byte [hotkeys_num]
cmp ecx, MAX_HOTKEYS_NUM
jng @f
mov ecx, MAX_HOTKEYS_NUM
@@:
mov eax, 30
mov ebx, 5
@@:
or cl, cl
jz @f
mov edx, ebx
sub edx, 5
shl edx, 5; edx=edx*32
add edx, dword Hotkeys
cmp bl, byte [butt]
jne .l1
stdcall draw_button, 7,eax,BUT_W,BUT_H,ebx,A_KEYCOLOR,edx,0,CA_TEXTCOLOR ; F5
jmp .l2
.l1:
stdcall draw_button, 7,eax,BUT_W,BUT_H,ebx,N_KEYCOLOR,edx,0,C_TEXTCOLOR ; F5
.l2:
add eax, BUT_H+BUT_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
mov eax, 51
mov ebx, 1
mov ecx, start_input_thread
mov edx, dword input_thread_stack_top
mcall
.end:
ret
reset_modifiers:
pusha
mov esi, dword [it_hotkey_addr]
test esi, esi
jz .end_set_mods
lodsd
mov cl, al ; set new hotkey
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
.end_set_mods:
popa
ret
;######################## Input Thread code start ##########################
start_input_thread:
;get_it_window_slot_number:
; mcall 5, 10 ;wait
; mcall 18, 7
; mov [it_window], eax
mov ecx, 1 ; to get scancodes.
mov eax, 66
mov ebx, 1 ; Set keyboard mode
int 0x40
mcall 26, 2, 1, ascii_keymap
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
it_set_event_mask:
mcall 40, 39
it_red:
call it_draw_window
it_still:
mov eax, 10 ; Wait for an event in the queue.
int 0x40
cmp al,1 ; redraw request ?
jz it_red
cmp al,2 ; key in buffer ?
jz it_key
cmp al,3 ; button in buffer ?
jz button
cmp al,6
jz it_mouse
jmp it_still
it_key:
mov eax, 2
int 0x40
mov byte [it_keycode], 0
stdcall outtextxy, 10, 100, ctrl_key_names, 35, 0
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 cl, byte [hotkeys_num]
.test_next_hotkey:
mov bl, cl
and ebx, 0xFF
shl ebx, 5
mov esi, ebx
add ebx, dword Hotkeys.codes
cmp ah, byte [ebx]
jne @f
push eax
mov eax, PATH_MAX_CHARS
mul cl
add eax, dword buf_cmd_line
mov esi, eax
pop eax
mov edx, 0 ; no parametrs yet <- change it!
call RunProgram
jmp .end_test
@@:
dec cl
cmp cl, 0
jge .test_next_hotkey
.end_test:
;------------------------
mov byte [it_keycode], ah
call Scan2ASCII
test word [it_edit.flags], 10b;ed_focus ; <20>᫨ <20><> <20> 䮪<><E4AEAA><EFBFBD>, <20><>室<EFBFBD><E5AEA4>
jz .end
push dword it_edit
call [edit_box_key]
jmp it_still
.end:
call it_test_key_modifiers
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
mov al, byte [hotkeys_num]
sub al, 1
and eax, 0xFF
shl eax, 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
and edx, 0x00000FFF
.lshift:
test al, 1 ; LShift ?
jz .rshift
stdcall outtextxy, 10, 100, ctrl_key_names, 6, 0x00FF0000
.rshift:
test al, 2 ; RShift ?
jz .lctrl
stdcall outtextxy, 184, 100, ctrl_key_names+29, 6, 0x00FF0000
.lctrl:
test al, 4 ; LCtrl ?
jz .rctrl
stdcall outtextxy, 52, 100, ctrl_key_names+7, 5, 0x00FF0000
.rctrl:
test al, 8 ; RCtrl ?
jz .lalt
stdcall outtextxy, 148, 100, ctrl_key_names+23, 5, 0x00FF0000
.lalt:
test al, 0x10 ; LAlt ?
jz .ralt
stdcall outtextxy, 88, 100, ctrl_key_names+13, 4, 0x00FF0000
.ralt:
test al, 0x20 ; RAlt ?
jz @f
stdcall outtextxy, 118, 100, ctrl_key_names+18, 4, 0x00FF0000
@@:
pop eax
ret
it_mouse:
push dword it_edit
call [edit_box_mouse]
jmp it_still
it_draw_window:
start_draw_window WIN_X,WIN_Y+250,225,70,WIN_COLOR,it_labelt, 26;labellen-labelt
push dword it_edit
call [edit_box_draw]
stdcall outtextxy, 10, 100, ctrl_key_names, 35, 0
;stdcall draw_button, 7,WIN_H-30,80,20,2,C_KEYCOLOR,AddKeyText, 0,C_TEXTCOLOR ; Add Hot key.
end_draw_window
ret
;######################## Input Thread code end ##########################
Scan2ASCII:
push esi
mov esi, ascii_keymap
shr eax, 8
add esi, eax
lodsb
shl eax, 8
pop esi
ret
;****************************************
;* input: esi = pointer to string *
;* output: ecx = length of the string *
;****************************************
strlen:
push eax
xor ecx, ecx
@@:
lodsb
or al, al
jz @f
inc ecx
jmp @b
@@:
pop eax
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
mov eax, 70
mov ebx, InfoStructure
int 0x40
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.1'
;mykey_window dd 0 ; Slot number of MyKey
;########### 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 db MAX_HOTKEYS_NUM*32 dup(0) ; !Make it dinamyc!!!
;it_window dd 0 ; Slot number of Input thread
it_keycode db 0
it_hotkey_addr dd 0
;########### Input Thread data end ############
;Button names
AddKeyText db 'Add',0
DeleteKeyText db 'Delete',0
ManageKeyText db 'Manage',0
hotkeys_num db 0;15
;keyboard_mode db 0 ; Scan or ASCII keys to send ? 0 - ASCII , 1 - Scan
butt db 5 ; 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 db MAX_HOTKEYS_NUM*PATH_MAX_CHARS dup(0) ; !Make it dinamyc!!!
buf_cmd_params db MAX_HOTKEYS_NUM*PATH_MAX_CHARS dup(0) ; !Make it dinamyc!!!
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
;] 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
Hotkeys: ;(name = 32 b) + (modifiers = 3 b) + (keycode = 1 b) = 36 byte for 1 hotkey
.names:
db 'My Favorite 1',0
rb 18
db 'My Favorite 2',0
rb 18
db 'My Favorite 3',0
rb 18
rb MAX_HOTKEYS_NUM*32-3
.codes:
dd MAX_HOTKEYS_NUM dup (0)
Copy Permalink