0,0 → 1,348 |
; ---------------------------------------------------------------------------- ; |
; Tooltip widget |
; |
; Created by Siemargl, 2016 |
; |
; Changelist |
; 161107 - initial version + test |
|
|
; http://stackoverflow.com/questions/8976600/fasm-how-to-send-struct-to-proc |
virtual at edi |
ttip tooltip ?, ?, ?, ?, ?, ?, ?, ?, ? |
end virtual |
|
; ---------------------------------------------------------------------------- ; |
; ¨¨æ¨ «¨§ æ¨ï ¢á¥© 楯®çª¨ âã«â¨¯®¢, ä®à¬¨à®¢ ¨¥ à §¬¥à®¢ ¨ ¡ãä¥à®¢ ¯ ¬ï⨠|
; return eax zero if fails |
align 16 |
proc tooltip_init uses esi edi, ttip:dword |
locals |
max_len dw ? ;maximum chars in line |
lines dw ? ;lines in tooltip |
endl |
|
mov edi, [ttip] |
jmp .tail_call |
.list_next: |
; init statics |
mov [ttip.mouse], 0 |
mov [ttip.tm_strt], 0 |
mov [ttip.video_y], 0 |
mov [ttip.video_x], 0 |
mov [ttip.video], 0 |
stdcall get_font_size, [ttip.col_txt] |
mov [ttip.font_sz], eax |
|
; count num of lines and max len |
mov esi, [ttip.txt] |
mov [lines], 1 ; lines |
mov [max_len], 0 ; max_len |
.line: |
mov ecx, 0 ; len |
.symb: |
mov al, [esi] |
cmp al, 0 |
je .eos |
cmp al, 13 |
jne .next |
inc [lines] |
inc esi |
cmp cx, [max_len] ; detect max |
jle @f |
mov [max_len], cx |
@@: |
jmp .line |
.next: |
inc ecx |
inc esi |
jmp .symb |
.eos:; string ended, we have correct width and hight |
cmp cx, [max_len] ; detect max |
jle @f |
mov [max_len], cx |
@@: |
|
mov eax, [ttip.font_sz] |
shr eax, 16 |
imul [max_len] |
mov dx, ax ; width in pixels |
mov [ttip.video_w], ax |
mov eax, [ttip.font_sz] ; lo word == h |
and eax, $FFFF |
imul ax, [lines] |
mov [ttip.video_h], ax |
imul [ttip.video_w] |
imul eax, 3 ; eax have now width * height in pixels *3 |
; getmem |
invoke mem.alloc, eax |
mov [ttip.video], eax |
test eax, eax |
je .exitp ; malloc fails |
|
; cycle list |
mov edi, [ttip.next] |
.tail_call: |
test edi, edi |
jne .list_next |
xor eax, eax |
inc eax ; god return |
.exitp: |
ret |
endp |
|
; ---------------------------------------------------------------------------- ; |
; ®ç¨á⪠¯ ¬ï⨠¢á¥© 楯®çª¨ âã«â¨¯®¢ |
align 4 |
proc tooltip_delete uses edi, ttip:dword |
mov edi, [ttip] |
jmp .tail_call |
.list_next: |
mov eax, [ttip.video] |
test eax, eax |
je @f |
invoke mem.free, eax |
@@: |
mov edi, [ttip.next] |
.tail_call: |
test edi, edi |
jne .list_next |
ret |
endp |
|
; ---------------------------------------------------------------------------- ; |
; ¯®ª § 㦮£® ¨§ ¢á¥© 楯®çª¨ âã«â¨¯®¢ ¯à¨ ¡¥§¤¥©á⢨¨ (event 0) |
align 4 |
proc tooltip_test_show uses edi ebx, ttip:dword |
mov edi, [ttip] |
jmp .tail_call |
.list_next: |
cmp [ttip.tm_strt], 0 ; â ©¬¥à 0, § ç¨â ¬ë ¥ ¢ §®¥ |
je .nextp |
cmp [ttip.video_y], 0 ; âã«â¨¯ 㦥 ®â®¡à ¦¥ |
;;; jne .redraw |
jne .nextp |
mcall SF_SYSTEM_GET, SSF_TIME_COUNT |
movzx ebx, [ttip.tm_wait] |
sub eax, ebx |
cmp eax, [ttip.tm_strt] |
jl .exitp ; ¬®£ ¡ëâì ⮫쪮 ®¤¨ |
; ¢à¥¬ï ®â⨪ «®, á®åà 塞 ®¡« áâì ¨ à¨á㥬áï |
;CopyScreen(shadow_buf, 5*skinned+x+wForm.left, GetSkinHeight()*skinned+y+wForm.top, w, h); |
mcall SF_THREAD_INFO, proc_info, -1 |
movzx edx, word [proc_info + 34] ; window x position |
add edx, 5 |
shl edx, 16 |
mcall SF_STYLE_SETTINGS, SSF_GET_SKIN_HEIGHT |
movzx ebx, word [proc_info + 38] ; window y position |
add eax, ebx |
add edx, eax ; x_y |
add edx, [ttip.mouse] |
add edx, 20 ; pixels below mouse |
mov ecx, dword [ttip.video_h] ; w_h |
mcall SF_GET_IMAGE, [ttip.video] |
|
mov eax, [ttip.mouse] ; á®åà ¨¬ ¯®§¨æ¨î £¤¥ à¨á㥬áï |
add eax, 20 ; pixels below mouse |
mov [ttip.video_y], ax |
shr eax, 16 |
mov [ttip.video_x], ax |
.redraw: ; à¨á㥬áï ®â®á¨â¥«ì® ¬ëè¨!!! |
stdcall tooltip_draw, edi |
|
jmp .exitp ; ¬®£ ¡ëâì ⮫쪮 ®¤¨ |
.nextp: |
mov edi, [ttip.next] |
.tail_call: |
test edi, edi |
jne .list_next |
.exitp: |
ret |
endp |
|
; à¨á㥬áï ®â®á¨â¥«ì® ¬ëè¨!!! |
; internal func |
proc tooltip_draw uses esi edi ebx, ttip:dword |
locals |
line dw ? ;line # drawing |
ptr_li dd ? ;line begin |
endl |
mov edi, [ttip] |
; draw square |
movzx ebx, [ttip.video_x] |
shl ebx, 16 |
mov bx, [ttip.video_w] |
movzx ecx, [ttip.video_y] |
shl ecx, 16 |
mov cx, [ttip.video_h] |
mcall SF_DRAW_RECT, , , [ttip.col_bkg] |
|
; 横« ¯® áâப ¬ |
; count num of lines and max len |
mov esi, [ttip.txt] |
mov [line], 0 ; line # |
.line: |
mov ecx, 0 ; len |
mov [ptr_li], esi |
.symb: |
mov al, [esi] |
cmp al, 0 |
je @f |
cmp al, 13 |
jne .next |
@@: |
; draw line if len > 0 |
test ecx, ecx |
je @f |
; draw single line |
pushad |
mov esi, ecx ; length |
movzx ebx, [ttip.video_x] |
shl ebx, 16 |
mov eax, [ttip.font_sz] |
and eax, $FFFF |
imul ax, [line] |
add ax, [ttip.video_y] |
add ebx, eax |
mov ecx, [ttip.col_txt] |
and ecx, $37FFFFFF |
mov edx, [ptr_li] |
mcall SF_DRAW_TEXT |
popad |
@@: |
cmp byte ptr esi, 0 |
je .exitp |
inc [line] |
inc esi |
jmp .line |
.next: |
inc ecx |
inc esi |
jmp .symb |
.exitp: |
ret |
endp |
|
; ---------------------------------------------------------------------------- ; |
; ã¡à âì âã«â¨¯ë ¯à¨ 饫窥 ¬ëè¨ ¨«¨ áꥧ¤¥ ¨§ §®ë. ¤«ï ¢á¥© 楯®çª¨ âã«â¨¯®¢ ¯à¨ ᮡë⨨ ¬ëè¨ |
; ¥á«¨ mouse_coord == -1 ®¯à®á¨â ¬ëèì |
align 4 |
proc tooltip_mouse, ttip:dword |
locals |
mouse_coord dd ? |
mouse_but dd ? |
endl |
pushad |
; ®¯à®á¨¬ ¬ëèì ¨ à áá㥬 ¯® âã«â¨¯ ¬ |
mcall SF_MOUSE_GET, SSF_WINDOW_POSITION |
mov [mouse_coord], eax |
mcall SF_MOUSE_GET, SSF_BUTTON |
mov [mouse_but], eax |
mov edi, [ttip] |
.list_next: |
test edi, edi |
je .exitp |
cmp [mouse_but], 0 ; ¯à¨ 饫窥 áâ¨à ¥¬áï |
jne @f |
; ¯®¯ ¤ ¥¬ «¨ ¢ §®ã ª®â஫ï |
mov eax, [mouse_coord] |
mov [ttip.mouse], eax ; ¬¥áâ® £¤¥ ¡ë« § ¬¥ç¥ ¬ëèì! (å§ § 祬) |
mov ecx, eax |
shr ecx, 16 |
cmp cx, [ttip.zone_x] ; zone_x is higher word |
jl @f |
cmp ax, [ttip.zone_y] |
jl @f |
mov cx, [ttip.zone_w] |
add cx, [ttip.zone_x] |
shl ecx, 16 |
cmp eax, ecx ; x+w < mouse_x (mouse_y in low word ignored) |
jge @f |
mov cx, [ttip.zone_y] |
add cx, [ttip.zone_h] |
cmp ax, cx |
jge @f |
; ¬ë ¢ §®¥ - § ᥪ ¥¬ áâ àâ, ¥á«¨ ¥£® ¥ ¡ë«® |
cmp [ttip.tm_strt], 0 |
jne .nextp |
mcall SF_SYSTEM_GET, SSF_TIME_COUNT |
mov [ttip.tm_strt], eax |
jmp .nextp |
@@: |
; ¥á«¨ ¥áâì ¡ãä¥à, ¢¥àãâì ª à⨪㠢§ ¤, ¨ ç¥ ¨¤¥¬ ¤ «ìè¥ ¯® 楯®çª¥ |
mov [ttip.tm_strt], 0 |
cmp [ttip.video_y], 0 |
je .nextp |
movzx ecx, [ttip.video_w] |
shl ecx, 16 |
mov cx, [ttip.video_h] |
movzx edx, [ttip.video_x] |
shl edx, 16 |
mov dx, [ttip.video_y] |
mcall SF_PUT_IMAGE, [ttip.video] |
mov [ttip.video_y], 0 |
;jmp exitp ; ¬®£ ¡ëâì ⮫쪮 ®¤¨ - ®â¬¥ - ®¡à ¡®â âì 㦮 ¢á¥ á¡à®áë â ©¬¥à®¢ |
.nextp: |
;mov eax, [ttip].next |
;stdcall tooltip_mouse, [ttip].next, [mouse_coord], [mouse_but] |
; tail call unroll recursion |
mov edi, [ttip.next] |
jmp .list_next |
.exitp: |
popad |
ret |
endp |
|
; ---------------------------------------------------------------------------- ; |
; decrypt font size as of SysFn 4 |
; returns eax = (x,y) |
align 4 |
proc get_font_size, color:dword ; x86 calling convention uses eax ecx edx |
;font = color >> 24; |
;int font_multipl = (font & 7) + 1; |
;if (font & 0x10) // 8x16 |
;{ |
; ed->width_sym = 8 * font_multipl; |
; ed->hight_sym = 16 * font_multipl; |
;} else // 6x9 |
;{ |
; ed->width_sym = 6 * font_multipl; |
; ed->hight_sym = 9 * font_multipl; |
;} |
mov edx, [color] |
shr edx, 24 ; font |
|
mov ecx, edx ; font_multipl |
and ecx, 7 |
inc ecx |
|
test edx, $10 |
mov edx, ecx |
jz @f |
; 8x16 |
shl edx, 3 + 16 ; x == width |
mov eax, edx |
mov edx, ecx |
shl edx, 4 ; y == hight |
jmp .exitp |
@@: |
; 6x9 |
imul edx, 6 ; x == width |
shl edx, 16 |
mov eax, edx |
mov edx, ecx |
imul edx, 9 ; y == hight |
.exitp: |
or eax, edx |
ret |
endp |
|
CODE_END: ; ¬¥âª ª®æ ¯à®£à ¬¬ë; ---------------------------------------------------------------------------- ; |
; ---------------------------------------------------------------------------- ; |
;--------------------------------------------------------------------- |
;---
---------------------------------------------- |
;--------------------------------------------------------------------- |
|
proc_info rd 1024 |
|
DATA_END: ; ¬¥âª ª®æ ¤ ëå ¯à®£à ¬¬ë; ---------------------------------------------------------------------------- ; |