| |
|
|
Jac de Lad | Hello.
How I by API a Toolbar beget, The as Tooltips Sprechblasen has, white I, but white someone, How I a Toolbar, The with Create(Toolbar created watts, Sprechblasen allocate can?
Jac |
|
|
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 01/28/08 ▲ |
|
|
|
|
Jörg Sellmeyer | there slopes I time dran and question, whether someone white, How one The Tooltips the individual Buttons change can. The Button having of course a ID, but Gethandle daruf applied gives only 0 back. there's The Message TTM_UPDATETIPTEXT, The well very for virtual is. for normal Buttons functions it indeed, but How are with Toolbarbuttons? |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/10/08 ▲ |
|
|
|
|
Andreas Miethe
| CompileMarkSeparationDeclare hToolBar&, hBild&, ende%
Cls
hToolbar& = @Create("TOOLBAR", %hWnd, 0, 0, 32, 2000, 1)
Toolbar("AddButton", hToolbar&, 1, 201, "TipStyle-Bubble")
Toolbar("AddButton", hToolbar&, 2, 202, "Tiptext")
Toolbar("AddButton", hToolbar&, 3, 203, "ENDE")
WhileNot ende%
WaitInput
If %KEY = 2
ende% = 1
ElseIf %KEY = 4
SetWindowPos hToolbar& = 0, 0 - 0, 0; 0
ElseIf @MenuItem(201)
SetStyle sendmessage(hToolbar&,1059,0,0),Getstyle(sendmessage(hToolbar&,1059,0,0)) | $40
ElseIf @MenuItem(202)
SetTipText(sendmessage(hToolbar&,1059,0,0),hToolbar&,202,"ups, ich bin geändert worden "+Time$(0)+":"+left$(Time$(1),2))
ElseIf @MenuItem(203)
ende% = 1
EndIf
EndWhile
End
Proc SetTipText
Parameters TipCtl&,Owner&,Ctl&,NewText$
Declare TButton#
DIM TButton#,40
LONG TButton#,0=40
LONG TButton#,4=$0
LONG TButton#,8=Owner&
LONG TButton#,12=Ctl&*-1
LONG TButton#,36=addr(NewText$)
Sendmessage(TipCtl&,1036,0,TButton#)TTM_UPDATETIPTEXT
Dispose TButton#
ENDPROC
|
|
|
| Gruss Andreas ________ ________ ________ ________ _ Profan 3.3 - XProfanX2 Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher Homepage : [...] | 08/14/08 ▲ |
|
|
|
|
Jörg Sellmeyer | Ah! The Andreas - thanks vielmals!
and only the Vollstädigkeit halber:
1059 = ~TB_GETTOOLTIPS |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/14/08 ▲ |
|
|
|
|
| [offtopic]@Jörg: hint: there the Thread one to that cover suitable Codesnippet aufzeigt (thanks Andreas) have I this to the Codesnippets moved and a [X] Blindkopie under "Programmierung/generally/Einsteigerfragen" leave.[/offtopic] |
|
|
| |
|
|