| |
| |
|
Georg
Hovenbitzer | allô zusammen,
je versuche eh bien déjà depuis einiger Zeit qui Icongröße dans einem ToolTip trop changement,
welches un eigenes Icon zugewiesen bekommen hat.
plus comme 16x16 ou bien es pourrait aussi 24x24 son c'est moi pas gelungen.
allez ca überhaupt et si comment ?
KompilierenMarqueSéparationDef 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, sous XP Home tut sich là gar nix. venez überhaupt ne...aucune Tooltext, geschweige car einer avec Icon... |
|
| |
| |
| |
|
|
Rolf
Koch | @Frank
Liegt à cette la ligne:
Setstyle Tooltip&,$D000040
la hâte bestimmt aussi qui Bubbles abgeschaltet.
Rolf |
|
| |
| |
| |
|
|
Frank
Abbing | bien sûr, Rolf. Nerven oui sonst trop viel  
Hab den Code seulement kurz survolés et ensuite getestet. |
|
| |
| |
| |
|
|
Rolf
Koch | Georg, zum Problem kurz:
avant cette Frage stand je aussi la fois (merci Dir pour qui Erinnerung avec dem Icon, car habs oublier qc dans Noctramic einzubauen *lol* ).
comme je ensuite irgendwann qui Schnauze voll hatte, hab je kurzerhand qui Icônes avec einem Staticbitmap überlagert. Funktioniert. et un Staticbitmap (Hintgrundfarbe ident avec Tooltip Hintergrundfarbe) peut sich très bequem dans qui Grösse anpassen.
qui Surface ansich ist oui bereits gross genung um là un Bitmap einzupflanzen.
(mais peut-être gibt oui encore einer une richtige Solution)
ici un Beispiel:
KompilierenMarqueSéparationDef 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 | allô Rolf,
vielen Dank pour den Tip.
je werde ihn mir demain la fois genauer regarder.
quoi mich seulement wundert ist, dass on avec qui TTM_GETTITLE Message qui Taille des Icônes auslesen peux. qui Umkehrschluss wäre doch, dass on avec TTM_SETTITLE qui Taille mettons peux, quoi malheureusement pas qui le cas ist.
Woran pouvoir Windows qui Taille des Icônes fest ?
je melde mich demain nochmals, sobalt je es getestet habe. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 21.11.2005 ▲ |
|
| |
|
|
Georg
Hovenbitzer | allô Rolf,
je hatte eh bien Zeit mir den code la fois genauer anzusehen, klappt super super 
super concept es so trop faire !
si on folgendes ändert ca va aussi avec Icônes:
KompilierenMarqueSéparationStatbild&=@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 trop savons 
Rolf |
|
| |
| |
| |
|
(468)
Deutsch
English
Français
Español
Italia