XProfan

Frank
Abbing

Hm, XP Home does itself there quite nothing. comes at all no Tooltext, geschweige because of/ one with Icon...

Rolf
Koch

@Frank
lying on this row:
Setstyle Tooltip&,$D000040

have certainly too The Bubbles shorted.

Rolf

Frank
Abbing

clear, Rolf. nerves Yes otherwise To plenty

Have whom code only short überflogen and then tested.

Rolf
Koch

Georg, to that trouble short:
to this question stood so did i time (thanks you for recollection with the Icon, because habs forget in Noctramic incorporate *lol* ).
as i then sometime The Schnauze fully having, Have I abruptly The Icons with a Staticbitmap overlay. functions. and a Staticbitmap (Hintgrundfarbe ident with Tooltip Backgroundcolor) can itself very easily in the Size adjust.
The expanse ansich is Yes already tall genung circa there one Bitmap einzupflanzen.
(but Perhaps gives Yes another a right Solution)

here an example:
Compile Mark Separation

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&

Rolf

Georg
Hovenbitzer

Hello Rolf,

many Thanks for hint.
i'll it me tommorrow time accurate standing.

what me only wundert is, that one with the TTM_GETTITLE Message The Size the Icons read can. The Umkehrschluss would still, that one with TTM_SETTITLE The Size settle can, what unfortunately not the case is.
Why power windows The Size the Icons solid ?

I login me tommorrow over again, sobalt I it tested have.

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

Georg
Hovenbitzer

Hello Rolf,

I had now Time me whom code time accurate to examine, works super class

class idea it so To make !
If one the following changes goes it too with icons:
Compile Mark Separation

Statbild&=@Control(STATIC,,$50000903,Mausx%,Mausy%,0,0,Handl&,$7918,%hInstance)
Sendmessage(Statbild&,$172,1,H&)e>

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

11/22/05 ▲

Rolf
Koch

... well to know

Rolf

11/22/05 ▲