| |
| |
|
Jac
de
Lad | ¡Hola.
Como Yo por API una Toolbar erzeuge, el como Tooltips Sprechblasen ha, weiß Yo, aber weiß alguien, Yo una Toolbar, el con Crear(Toolbar producido 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 | Como hänge Yo mich veces dran y frage, si alguien weiß, cómo el Tooltips el individual Buttons verändern kann. El Button haben zwar una ID, aber Gethandle daruf angewendet son sólo 0 zurück.
Lo son el Message TTM_UPDATETIPTEXT, el wohl genau dafür pensamiento es. Für normale Buttons funktioniert lo en efecto, aber como es con Toolbarbuttons? |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 10.08.2008 ▲ |
|
| |
|
|
Andreas
Miethe
 |
KompilierenMarcaSeparaciónDeclare 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 sólo el 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: Como el Hilo una para Titel passendes Codesnippet aufzeigt (danke Andreas) Yo esta a Codesnippets movido y una [X] Blindkopie bajo "Programmierung/Allgemein/Einsteigerfragen" belassen.[/offtopic] |
|
| |
| |
| |
|
(802)
Deutsch
English
Français
Español
Italia