Subversion Repositories Kolibri OS

; ---------------------------------------------------------------------------- ;

; 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 ; good 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