| |
| |
|
Jac
de
Lad | allô.
comment je per API une Toolbar erzeuge, qui comme Tooltips Sprechblasen hat, sais je, mais sais quelqu'un, comment je une Toolbar, qui avec Créer(Toolbar erzeugt wurde, Sprechblasen zuweisen peux?
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 | là hänge je mich la fois tour et frage, si quelqu'un sais, comment on qui Tooltips qui individuel Buttons verändern peux. qui Button avons zwar une ID, mais Gethandle daruf angewendet gibt seulement 0 zurück.
il y a qui Message TTM_UPDATETIPTEXT, qui wohl oui c'est ca pour gedacht ist. Pour normale Buttons funktioniert es oui aussi, mais ca va avec Toolbarbuttons? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 10.08.2008 ▲ |
|
| |
|
|
Andreas
Miethe
 |
KompilierenMarqueSéparationDeclare 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! qui Andreas - merci vielmals!
et seulement qui 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: là qui Fil un zum Titel passendes Codesnippet aufzeigt (merci Andreas) habe je cette le Codesnippets déménagé et une [X] Blindkopie sous "Programmierung/Allgemein/Einsteigerfragen" belassen.[/offtopic] |
|
| |
| |
| |
|
(1.115)
Deutsch
English
Français
Español
Italia