; Keyboard indicators v0.2 ; by Albom and IgorA use32 org 0 db 'MENUET01' dd 1 dd _start dd _end dd _memory 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' include 'lang.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 align 4 red_win: call draw_window 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 ebx, 4 mov edx, 0 mov cl, 69 int 0x40 mov eax, 66 mov ebx, 4 mov edx, 0 mov cl, 58 int 0x40 mov eax, 66 mov ebx, 4 mov edx, 0 mov cl, 70 int 0x40 ret align 4 draw_window: pushad mcall 12,1 xor eax,eax 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 align 4 _indicators_check: pusha mov eax, 66 mov ebx, 3 int 40h test_ins: test eax, 0x80 jz @f bts dword[ch1.flags],1 jmp test_caps @@: btr dword[ch1.flags],1 test_caps: test eax, 0x40 jz @f bts dword[ch2.flags],1 jmp test_scroll @@: btr dword[ch2.flags],1 test_scroll: test eax, 0x100 jz @f bts dword[ch3.flags],1 jmp test_ok @@: btr dword[ch3.flags],1 test_ok: call draw_window popa ret align 4 button: mcall 17 cmp ah,1 jne still .exit: mcall -1 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: if lang eq it txt_160 db 'Bloc Num',0 txt_159 db 'Bloc Maiusc',0 txt_158 db 'Bloc Scorr',0 else txt_160 db 'Num',0 txt_159 db 'Caps',0 txt_158 db 'Scroll',0 end if 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 stacktop: sys_path rb 1024 library_path rb 1024 _memory: