XProfan

Tooltip mit Icon von Rolf Koch
Def Loadimage(6) !"USER32.DLL","LoadImageA"
Def Destroyicon(1) !"USER32.DLL","DestroyIcon"
Declare Font&,icon1&
Declare Dll&
Declare Icon&
Declare Name$
Declare Button&
Declare Tooltip&

PROC ICONPIC

    Declare h&,abx#,statbild&
    Parameters bild$,mausx%,mausy%,breitobj&,hochobj&,handl&
    Dim abx#,Add(Len(bild$),1)
    String abx#,0=bild$
    Let h&=LoadImage(%hinstance,abx#,0,breitobj&,hochobj&,$50)
    Let statbild&=@Control("STATIC","",$05000010E,mausx%,mausy%,breitobj&,hochobj&,handl&,$7918,%hinstance)
    SendMessage(statbild&,$172,0,h&)
    DISPOSE abx#
    Return statbild&

ENDPROC

Font& = @Create("FONT","ARIAL",24,0,0,0,0)
Cls
Dll& = @Usedll("SHELL32.DLL")
Name$ = "#20" + @Chr$(0)
Icon1& = Loadimage(Dll&,@Addr(Name$),1,48,48,$2000)
Button& = @Control("BUTTON","",$5000804A,100,100,64,64,%Hwnd,100,%Hinstance,$10000)
@Sendmessage(Button&,$00F7,1,Icon1&)
Tooltip& = @Create("Tooltip",%Hwnd,Button&,"Wieso geht es nicht?")
@Sendmessage(Tooltip&,$30,Font&,0)WM_SetFont
Name$ = "großes Icon ?" + @Chr$(0)
@Sendmessage(Tooltip&,$0403,$2,15000)TTM_SetDelayTime ~TTDT_AutoPop
ICONPIC "Pic1.bmp",2,2,30,30,Tooltip&
Pic1.BMP mit gleichem Hintergrund wie Tooltip am besten
ICON&=&(0)
@Sendmessage(Tooltip&,$0420,Icon&,@Addr(Name$))TTM_SetTitle
@Setfocus(%Hwnd)

While 1

    Waitinput

Wend

Deleteobject Font&
Destroyicon(Icon&)
Freedll Dll&