| |
| |
|
Jac
de
Lad | Hallo.
Wie ich per API eine Toolbar erzeuge, die als Tooltips Sprechblasen hat, weiß ich, aber weiß jemand, wie ich eine Toolbar, die mit Create(Toolbar erzeugt wurde, Sprechblasen zuweisen kann?
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 | 28.01.2008 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Da hänge ich mich mal dran und frage, ob jemand weiß, wie man die Tooltips der einzelnen Buttons verändern kann. Die Button haben zwar eine ID, aber Gethandle daruf angewendet gibt nur 0 zurück.
Es gibt die Message TTM_UPDATETIPTEXT, die wohl genau dafür gedacht ist. Für normale Buttons funktioniert es ja auch, aber wie geht es mit Toolbarbuttons? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 10.08.2008 ▲ |
|
| |
|
|
Andreas
Miethe
 |
KompilierenMarkierenSeparierenDeclare 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 : [...]  | 14.08.2008 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Ah! Der Andreas - danke vielmals!
Und nur der Vollstädigkeit halber:
1059 = ~TB_GETTOOLTIPS |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 14.08.2008 ▲ |
|
| |
|
|
 | [offtopic]@Jörg: Tip: Da der Thread ein zum Titel passendes Codesnippet aufzeigt (danke Andreas) habe ich diesen zu den Codesnippets verschoben und eine [X] Blindkopie unter "Programmierung/Allgemein/Einsteigerfragen" belassen.[/offtopic] |
|
| |
| |
| |
|
(913)
Deutsch
English
Français
Español
Italia