| |
| |
|
Georg
Hovenbitzer | ¡Hola zusammen,
Yo versuche nun ya seit einiger Tiempo el Icongröße en un ToolTip a ändern,
welches una propio Icon zugewiesen bekommen ha.
Más como 16x16 oder lo podría auch 24x24 ser Yo no soy gelungen.
Geht dies überhaupt y si como ?
KompilierenMarcaSeparaciónDef LoadImage(6) !USER32.DLL,LoadImageA
Def DestroyIcon(1) !USER32.DLL,DestroyIcon
Declare Font&
Declare Dll&
Declare Icon&
Declare Name$
Declare Button&
Declare ToolTip&
Font& = @Create(FONT,ARIAL,24,0,0,0,0)
Cls
Dll& = @UseDLL(SHELL32.DLL)
Name$ = #20 + @Chr$(0)
Icon& = LoadImage(DLL&,@Addr(Name$),1,48,48,$2000)
Button& = @Control(BUTTON,,$5000804A,100,100,64,64,%hWnd,100,%hInstance,$10000)
@SendMessage(Button&,$00F7,1,Icon&)
ToolTip& = @Create(Tooltip,%Hwnd,Button&,Wieso geht es nicht?)
SetStyle ToolTip&,$D000040
@SendMessage(ToolTip&,$30,Font&,0) WM_SetFont
Name$ = großes Icon ? + @Chr$(0)
@SendMessage(ToolTip&,$0420,Icon&,@Addr(Name$)) TTM_SetTitle
@SendMessage(ToolTip&,$0403,$2,15000) TTM_SetDelayTime ~TTDT_AutoPop
@SetFocus(%hWnd)
While 1
Waitinput
Wend
DeleteObject Font&
DestroyIcon(Icon&)
FreeDLL DLL&
|
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 20.11.2005 ▲ |
|
| |
|
|
Frank
Abbing | | Hm, bajo XP Home tut se como gar nix. Kommt überhaupt kein Tooltext, geschweige porque uno con Icon... |
|
| |
| |
| |
|
|
Rolf
Koch | @Franco
Liegt a dieser Línea:
Setstyle Tooltip&,$D000040
hast determinado auch el Bubbles abgeschaltet.
Rolf |
|
| |
| |
| |
|
|
Frank
Abbing | Klar, Rolf. Nerven sí sonst a viel  
Hab el código sólo kurz sobrevolados y luego getestet. |
|
| |
| |
| |
|
|
Rolf
Koch | Georg, para Problema kurz:
Vor dieser Cuestión stand Yo auch veces (Gracias Usted para el Erinnerung con el Icon, porque habs vergessen en Noctramic einzubauen *lol* ).
Als Yo entonces irgendwann el Schnauze voll hatte, tener Yo kurzerhand el Icons con un Staticbitmap überlagert. Funktioniert. Und una Staticbitmap (Hintgrundfarbe ident con Tooltip Color de fondo) lässt se muy bequem en el Grösse adaptar.
El Fläche ansich es sí ya gross genung en hay una Mapa de bits einzupflanzen.
(aber tal vez son sí todavía uno una richtige Solución)
Hier una Ejemplo:
KompilierenMarcaSeparaciónDef 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 | ¡Hola Rolf,
vielen Dank para el Tip.
Yo voluntad ihn me morgen veces genauer ansehen.
Was mich sólo wundert es, dass uno con el TTM_GETTITLE Message el Größe des Icons auslesen kann. Der Umkehrschluss wäre doch, dass uno con TTM_SETTITLE el Größe conjunto kann, qué por desgracia, no el Fall es.
Woran macht Windows el Größe des Icons fest ?
Yo melde mich morgen nochmals, sobalt Yo getestet habe. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 21.11.2005 ▲ |
|
| |
|
|
Georg
Hovenbitzer | ¡Hola Rolf,
Yo hatte nun Tiempo me el code veces genauer anzusehen, klappt super klasse 
Klasse Concepto lo así a hacer !
Wenn uno folgendes ändert es auch con Icons:
KompilierenMarcaSeparaciónStatbild&=@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) | 22.11.2005 ▲ |
|
| |
|
|
Rolf
Koch | ... bien a wissen 
Rolf |
|
| |
| |
| |
|
(468)
Deutsch
English
Français
Español
Italia