0,0 → 1,187 |
; à®á⮩ ¯à¨¬¥à ¯à®£à ¬¬ë ¤«ï KolibriOS |
; ®§¢ã稢 ¥â ª®¤ ¦ ⮩ ª« ¢¨è¨ |
; - ¯¥à¥¤¥« ª ª ¯à¨¬¥à ¨á¯®«ì§®¢ ¨ï tooltip |
|
use32 ; ¢ª«îç¨âì 32-¡¨âë© à¥¦¨¬ áᥬ¡«¥à |
org 0x0 ; ¤à¥á æ¨ï á ã«ï |
|
db 'MENUET01' ; 8-¡ ©âë© ¨¤¥â¨ä¨ª â®à MenuetOS |
dd 0x01 ; ¢¥àá¨ï § £®«®¢ª (¢á¥£¤ 1) |
dd START ; ¤à¥á ¯¥à¢®© ª®¬ ¤ë |
dd CODE_END ; à §¬¥à ¯à®£à ¬¬ë |
dd DATA_END ; ª®«¨ç¥á⢮ ¯ ¬ï⨠|
dd STACK_END ; ¤à¥á ¢¥àè¨ë áâíª |
dd 0x0 ; ¤à¥á ¡ãä¥à ¤«ï ¯ à ¬¥â஢ |
dd cur_dir_path ; 㪠§ â¥«ì ¤à¥á, ªã¤ ¯®¬¥é ¥âáï áâப , ᮤ¥à¦ é ï ¯ãâì ¤® ¯à®£à ¬¬ë ¢ ¬®¬¥â § ¯ã᪠. |
|
include '../../../../../proc32.inc' |
include '../../../../../macros.inc' |
include '../../../../../KOSfuncs.inc' |
include '../../../../../Dll.inc' ; malloc fn |
include '../../trunk/box_lib.mac' |
include '../../load_lib.mac' |
;include 'proc32.inc' |
;include 'macros.inc' |
;include 'KOSfuncs.inc' |
|
;--------------------------------------------------------------------- |
;--- ---------------------------------------------- |
;--------------------------------------------------------------------- |
; íâ®â ¬ ªà®á ®¡ï§ ⥫¥ ¤«ï ¢á¥å ª®¬¯®¥â®¢, ¨á¯®«ì§ãîé¨å heap |
; ªà®¬¥ ⮣®, ®¡ï§ â¥«ì® ¨¬®àâ¨à®¢ âì lib_init - ¯à¨ ¨¬¯®à⥠®¯à¥¤¥«ïîâáï |
; äãªæ¨¨ 娯 ¤«ï ¡¨¡«¨®â¥ª¨ |
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load |
|
START: |
;--------------------------------------------------------------------- |
;--- ---------------------------------------- |
;--------------------------------------------------------------------- |
;mov eax, mem_alloc |
;mov [mem.alloc], eax |
;mov eax, mem_realloc |
;mov [mem.realloc], eax |
;mov eax, mem_free |
;mov [mem.free], eax |
mcall 68, 11 |
|
mcall 40, $C0000027 ; ¬ ᪠ᮡë⨩ - ¬ëèì ⮫쪮 ¢ ªâ¨¢®¬ ®ª¥ |
|
sys_load_library lib_name, cur_dir_path, lib_path, sys_path, \ |
e_notfound_lib, head_f_l, myimport, e_import, head_f_i |
test eax,eax |
jz @f |
mcall -1 ; alarm exit |
@@: |
|
|
invoke tooltip_init, redbox_tt ; only begin of list |
|
red: ; ¯¥à¥à¨á®¢ âì ®ª® |
|
call draw_window ; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª |
|
;--------------------------------------------------------------------- |
;--- ---------------------------------------- |
;--------------------------------------------------------------------- |
|
still: |
mcall 23, 5 ; äãªæ¨ï 23 - ¦¤ âì ᮡëâ¨ï ¥ ¡®«¥¥ 祬 0.05á |
test eax, eax ; ¥â ᮡë⨩ - ¯à®¢¥à¨âì à¨á®¢ ¨¥ âã«â¨¯®¢ ¯® â ©¬¥àã |
je yield |
cmp eax,1 ; ¯¥à¥à¨á®¢ âì ®ª® ? |
je red ; ¥á«¨ ¤ - ¬¥âªã red |
cmp eax,2 ; ¦ â ª« ¢¨è ? |
je key ; ¥á«¨ ¤ - key |
cmp eax,3 ; ¦ â ª®¯ª ? |
je button ; ¥á«¨ ¤ - button |
cmp eax,6 ; ᮡë⨥ ¬ëè¨ |
je mouse ; ¥á«¨ ¤ - mouse |
|
jmp still ; ¥á«¨ ¤à㣮¥ ᮡë⨥ - ¢ ç «® 横« |
|
|
;--------------------------------------------------------------------- |
yield: |
invoke tooltip_test_show, redbox_tt |
jmp still ; ¢¥àãâìáï ª ç «ã 横« |
|
mouse: |
invoke tooltip_mouse, redbox_tt |
jmp still ; ¢¥àãâìáï ª ç «ã 横« |
|
key: ; ¦ â ª« ¢¨è ª« ¢¨ âãॠ|
mcall 2 ; äãªæ¨ï 2 - áç¨â âì ª®¤ ᨬ¢®« (¢ ah) |
|
jmp still ; ¢¥àãâìáï ª ç «ã 横« |
|
;--------------------------------------------------------------------- |
|
button: |
mcall 17 ; 17 - ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ ⮩ ª®¯ª¨ |
|
cmp ah, 1 ; ¥á«¨
¦ â ª®¯ª á ®¬¥à®¬ 1, |
jne still ; ¢¥àãâìáï |
|
pexit: |
invoke tooltip_delete, redbox_tt ; ®á¢®¡®¦¤ ¥¬ ¯ ¬ïâì |
mcall -1 ; ¨ ç¥ ª®¥æ ¯à®£à ¬¬ë |
|
|
;--------------------------------------------------------------------- |
;---
---------------------------------- |
;--------------------------------------------------------------------- |
|
draw_window: |
|
mcall 12, 1 ; äãªæ¨ï 12: á®®¡é¨âì ® ç «¥ ®âà¨á®¢ª¨ |
|
mcall 48, 3, sc,sizeof.system_colors |
|
mov edx, [sc.work] ; 梥â ä® |
or edx, 0x33000000 ; ¨ ⨯ ®ª 3 |
mcall 0, <200,300>, <200,150>, , ,title |
|
; ¢ë¢®¤ ª¢ ¤à ⨪®¢ |
mcall 13, <60,50>, <50,50>, $FF0000 |
mcall 13, <140,50>, <50,50>, $FF |
|
|
mcall 12, 2 ; äãªæ¨ï 12.2, § ª®ç¨«¨ à¨á®¢ âì |
|
ret ; ¢ë室¨¬ ¨§ ¯à®æ¥¤ãàë |
|
|
CODE_END: ; ¬¥âª ª®æ ¯à®£à ¬¬ë; --------------------------------------------; |
|
; ---------------------------------------------------------------------------- ; |
;--------------------------------------------------------------------- |
;---
---------------------------------------------- |
;--------------------------------------------------------------------- |
|
sys_path db '/sys/lib/' |
;sys_path db '/tmp0/1/' |
lib_name db 'box_lib.obj',0 |
cur_dir_path rb 4096 |
lib_path rb 4096 |
|
e_notfound_lib db 'Sorry I cannot load library box_lib.obj',0 |
|
head_f_i: |
head_f_l db 'System error',0 |
e_import db 'Error on load import library box_lib.obj',0 |
|
myimport: |
dd sz_lib_init ;äãªæ¨ï § ¯ã᪠¥âáï ¬ ªà®á®¬ 1 à § ¯à¨ ¯®¤ª«î票¨ |
;¡¨¡«¨®â¥ª¨, ¯®â®¬ã ¢ ¯à®£à ¬¬¥ ¬¥âª ¥¥ ¥ 㦠|
tooltip_init dd sz_tooltip_init |
tooltip_delete dd sz_tooltip_delete |
tooltip_test_show dd sz_tooltip_test_show |
tooltip_mouse dd sz_tooltip_mouse |
get_font_size dd sz_get_font_size |
dd 0 |
dd 0 |
|
sz_lib_init db 'lib_init',0 |
sz_tooltip_init db 'tooltip_init', 0 |
sz_tooltip_delete db 'tooltip_delete', 0 |
sz_tooltip_test_show db 'tooltip_test_show', 0 |
sz_tooltip_mouse db 'tooltip_mouse', 0 |
sz_get_font_size db 'get_font_size', 0 |
|
|
;tooltip txt, next, zone_x, zone_w, zone_y, zone_h, col_txt, col_bkg, tm_wait |
redbox_tt tooltip redboxtxt, blubox_tt, 60, 50, 50, 50, 0, $FFF473, 100 |
blubox_tt tooltip bluboxtxt, 0, 140, 50, 50, 50, $110000FF, $FFF473, 100 |
|
redboxtxt db 'Red Box Tooltip', 13, 'May be multilined', 13, 13, 'Even with empty lines', 0 |
bluboxtxt db 'Blue Box Tooltip', 0 |
|
sc system_colors |
|
title db 'Toooltip demo',0 |
|
; stack----------------------------------------------------------------------- ; |
rb 4096 |
STACK_END dd ? |
|
DATA_END: ; ¬¥âª ª®æ ¤ ëå ¯à®£à ¬¬ë; ------------------------------------ ; |