forked from KolibriOS/kolibrios
Modifications of keybi (using of box_lib) by IgorA
git-svn-id: svn://kolibrios.org@1919 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Albom
parent
dcd377f304
commit
2ae48e0a00
3
programs/system/keybi/build.bat
Normal file
3
programs/system/keybi/build.bat
Normal file
@ -0,0 +1,3 @@
|
||||
fasm keybi.asm keybi
|
||||
kpack keybi
|
||||
pause
|
||||
@ -1,6 +1,5 @@
|
||||
|
||||
; Keyboard indicators v0.1
|
||||
; by Albom
|
||||
; Keyboard indicators v0.2
|
||||
; by Albom and IgorA
|
||||
|
||||
use32
|
||||
org 0
|
||||
@ -9,108 +8,110 @@ dd 1
|
||||
dd _start
|
||||
dd _end
|
||||
dd _memory
|
||||
dd _stack
|
||||
dd _param
|
||||
dd stacktop
|
||||
dd 0
|
||||
dd sys_path
|
||||
|
||||
include '../../macros.inc'
|
||||
include '../../proc32.inc'
|
||||
include '../../develop/libraries/box_lib/load_lib.mac'
|
||||
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
|
||||
;include 'mem.inc'
|
||||
;include 'dll.inc'
|
||||
|
||||
@use_library ;_mem mem.Alloc,mem.Free,mem.ReAlloc, dll.Load
|
||||
|
||||
align 4
|
||||
_start:
|
||||
load_libraries l_libs_start,l_libs_end
|
||||
mcall 48,3,sc,sizeof.system_colors
|
||||
mcall 40,0x27
|
||||
|
||||
init_checkboxes2 check_boxes,check_boxes_end
|
||||
check_boxes_set_sys_color2 check_boxes,check_boxes_end,sc
|
||||
call _key_set
|
||||
call _wnd_draw
|
||||
|
||||
_event_wait:
|
||||
|
||||
mov eax, 10
|
||||
int 0x40
|
||||
|
||||
cmp eax, 1
|
||||
jne @f
|
||||
call _wnd_draw
|
||||
|
||||
@@:
|
||||
cmp eax, 2
|
||||
jne @f
|
||||
call _key_check
|
||||
|
||||
@@:
|
||||
cmp eax, 3
|
||||
jne @f
|
||||
call _btn_check
|
||||
|
||||
@@:
|
||||
align 4
|
||||
red_win:
|
||||
call draw_window
|
||||
|
||||
|
||||
jmp _event_wait
|
||||
align 4
|
||||
still:
|
||||
mcall 10
|
||||
|
||||
cmp al,1 ;èçì. ïîëîæåíèå îêíà
|
||||
jz red_win
|
||||
cmp al,2
|
||||
jz key
|
||||
cmp al,3
|
||||
jz button
|
||||
|
||||
;stdcall [check_box_mouse], ch1
|
||||
;stdcall [check_box_mouse], ch2
|
||||
;stdcall [check_box_mouse], ch3
|
||||
|
||||
jmp still
|
||||
|
||||
;óñòàíîâèòü îáùåñèñòåìíûå "ãîðÿ÷èå êëàâèøè"
|
||||
align 4
|
||||
_key_set:
|
||||
mov eax, 66
|
||||
mov edx, 0
|
||||
mov ebx, 4
|
||||
mov edx, 0
|
||||
mov cl, 69
|
||||
int 0x40
|
||||
|
||||
mov eax, 66
|
||||
mov edx, 0
|
||||
mov ebx, 4
|
||||
mov edx, 0
|
||||
mov cl, 58
|
||||
int 0x40
|
||||
|
||||
mov eax, 66
|
||||
mov edx, 0
|
||||
mov ebx, 4
|
||||
mov edx, 0
|
||||
mov cl, 70
|
||||
int 0x40
|
||||
|
||||
ret
|
||||
|
||||
|
||||
_wnd_draw:
|
||||
pusha
|
||||
|
||||
mov eax, 12
|
||||
mov ebx, 1
|
||||
int 0x40
|
||||
|
||||
align 4
|
||||
draw_window:
|
||||
pushad
|
||||
mcall 12,1
|
||||
xor eax,eax
|
||||
mov ebx, 10*65536+100
|
||||
mov ecx, 10*65536+30
|
||||
mov edx, 0x34ffffff
|
||||
mov edi, _ind
|
||||
mov ebx,(10 shl 16)+100
|
||||
mov ecx,(10 shl 16)+75
|
||||
mov edx,[sc.work]
|
||||
or edx,(2 shl 24)+0x10000000+0x20000000
|
||||
mov edi,[sc.grab] ;[sc.frame]
|
||||
mov esi,[sc.grab]
|
||||
int 0x40
|
||||
|
||||
mov eax,8
|
||||
mov ebx,(80 shl 16)+10
|
||||
mov cx,-15
|
||||
shl ecx,16
|
||||
mov cx,10
|
||||
mov edx,1
|
||||
mov esi,[sc.grab_button]
|
||||
int 0x40
|
||||
|
||||
stdcall [check_box_draw], ch1
|
||||
stdcall [check_box_draw], ch2
|
||||
stdcall [check_box_draw], ch3
|
||||
mcall 12,2
|
||||
popad
|
||||
ret
|
||||
|
||||
align 4
|
||||
key:
|
||||
mcall 2
|
||||
call _indicators_check
|
||||
jmp still
|
||||
|
||||
mov eax, 12
|
||||
mov ebx, 2
|
||||
int 0x40
|
||||
|
||||
popa
|
||||
ret
|
||||
|
||||
_key_check:
|
||||
pusha
|
||||
mov eax, 2
|
||||
int 0x40
|
||||
|
||||
call _indicators_check
|
||||
|
||||
popa
|
||||
ret
|
||||
|
||||
_btn_check:
|
||||
pusha
|
||||
mov eax, 17
|
||||
int 0x40
|
||||
cmp ah, 1
|
||||
jne @f
|
||||
mov eax, -1
|
||||
int 0x40
|
||||
@@:
|
||||
popa
|
||||
ret
|
||||
|
||||
|
||||
align 4
|
||||
_indicators_check:
|
||||
pusha
|
||||
mov eax, 66
|
||||
@ -120,43 +121,86 @@ pusha
|
||||
test_ins:
|
||||
test eax, 0x80
|
||||
jz @f
|
||||
mov [_ind], '*'
|
||||
bts dword[ch1.flags],1
|
||||
jmp test_caps
|
||||
@@:
|
||||
mov [_ind], 'o'
|
||||
btr dword[ch1.flags],1
|
||||
|
||||
test_caps:
|
||||
test eax, 0x40
|
||||
jz @f
|
||||
mov [_ind+1], '*'
|
||||
bts dword[ch2.flags],1
|
||||
jmp test_scroll
|
||||
@@:
|
||||
mov [_ind+1], 'o'
|
||||
btr dword[ch2.flags],1
|
||||
|
||||
test_scroll:
|
||||
test eax, 0x100
|
||||
jz @f
|
||||
mov [_ind+2], '*'
|
||||
bts dword[ch3.flags],1
|
||||
jmp test_ok
|
||||
@@:
|
||||
mov [_ind+2], 'o'
|
||||
btr dword[ch3.flags],1
|
||||
|
||||
test_ok:
|
||||
mov eax, 71
|
||||
mov ebx, 1
|
||||
mov ecx, _ind
|
||||
int 0x40
|
||||
call draw_window
|
||||
popa
|
||||
ret
|
||||
|
||||
_ind db 'ooo', 0
|
||||
align 4
|
||||
button:
|
||||
mcall 17
|
||||
cmp ah,1
|
||||
jne still
|
||||
.exit:
|
||||
mcall -1
|
||||
|
||||
_param:
|
||||
rb 256
|
||||
|
||||
check_boxes:
|
||||
ch1 check_box2 (5 shl 16)+15,(5 shl 16)+10,5, 0xffffff,0x8000,0xff,\
|
||||
txt_160,0+ch_flag_middle
|
||||
ch2 check_box2 (5 shl 16)+15,(17 shl 16)+10,5, 0xffffff,0x8000,0xff,\
|
||||
txt_159,0+ch_flag_middle
|
||||
ch3 check_box2 (5 shl 16)+15,(29 shl 16)+10,5, 0xffffff,0x8000,0xff,\
|
||||
txt_158,0+ch_flag_middle
|
||||
check_boxes_end:
|
||||
|
||||
txt_160 db 'Num',0
|
||||
txt_159 db 'Caps',0
|
||||
txt_158 db 'Scroll',0
|
||||
|
||||
head_f_i:
|
||||
head_f_l db 'Ñèñòåìíàÿ îøèáêà',0
|
||||
|
||||
system_dir_0 db '/sys/lib/'
|
||||
lib_name_0 db 'box_lib.obj',0
|
||||
err_msg_found_lib_0 db 'Íå íàéäåíà áèáëèîòåêà box_lib.obj',0
|
||||
err_msg_import_0 db 'Îøèáêà ïðè èìïîðòå áèáëèîòåêè box_lib',0
|
||||
|
||||
l_libs_start:
|
||||
lib_0 l_libs lib_name_0, sys_path, library_path, system_dir_0,\
|
||||
err_msg_found_lib_0,head_f_l,import_box_lib,err_msg_import_0,head_f_i
|
||||
l_libs_end:
|
||||
|
||||
align 4
|
||||
import_box_lib:
|
||||
;init dd sz_init
|
||||
init_checkbox dd sz_init_checkbox
|
||||
check_box_draw dd sz_check_box_draw
|
||||
check_box_mouse dd sz_check_box_mouse
|
||||
dd 0,0
|
||||
;sz_init db 'lib_init',0
|
||||
sz_init_checkbox db 'init_checkbox2',0
|
||||
sz_check_box_draw db 'check_box_draw2',0
|
||||
sz_check_box_mouse db 'check_box_mouse2',0
|
||||
|
||||
;mouse_dd dd 0x0
|
||||
sc system_colors
|
||||
|
||||
_end:
|
||||
|
||||
align 32
|
||||
rb 2048
|
||||
_stack:
|
||||
stacktop:
|
||||
sys_path rb 1024
|
||||
library_path rb 1024
|
||||
_memory:
|
||||
|
||||
Loading…
Reference in New Issue
Block a user