XProfan

declare buttontip&
declare toolinfobutton#,rktext#,rktext1#
dim toolinfobutton#,255

proc oid_tip

    Parameters rkhwnd&,Handle&,RKText$,hwf&,txtf&,rkstil&,d%

    if equ(rkstil&,0)

        Let ButtonTip&=@Control(tooltips_class32,,$D0000000,0,0,0,0,rkhwnd&,0,%hinstance)

    elseif equ(rkstil&,1)

        Let ButtonTip&=@Control(tooltips_class32,,$D000040,0,0,0,0,rkhwnd&,0,%hinstance)

    endif

    sendmessage(ButtonTip&,1043,hwf&,0)
    sendmessage(ButtonTip&,1044,txtf&,0)
    SendMessage(ButtonTip&,1048,0,200)
    SendMessage(ButtonTip&,1027,3,d%)
    Dim ToolinfoButton#,40
    Dim RKText1#,255
    String RKText1#,0=RKText$
    LONG ToolinfoButton#,0=40
    LONG ToolinfoButton#,4=$11
    LONG ToolinfoButton#,8=Handle&
    LONG ToolinfoButton#,12=Handle&
    LONG ToolinfoButton#,36=RKText1#
    SendMessage(ButtonTip&,$0404,0,ToolInfoButton#)
    Dispose ToolinfoButton#
    Dispose RKText1#
    Return Buttontip&

EndProc

print
oid_tip %hwnd,%hwnd,test the test
test test
zeile 3?,0,rgb(255,255,255),1,100

while 1

    waitinput

Wend

@Control(tooltips_class32,,$D000040,0,0,0,0,rkhwnd&,0,%hinstance)