| |
| |
|
| - Seite 1 - |
|
Manfred
Barei | Hallo,
ist es möglich den bei einem Programmstart für einen Buttton eingestellten Tooltip beim Programmlauf nachträglich zu ändern? 
Wen der Button eine andere Funktion erhält, soll sich auch der Tooltip ändern.
Gibt es dafür eine Message oder Set Funktion, habe diesbezüglich nichts gefunden. 
Grus
Manfred |
|
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 20.10.2007 ▲ |
|
| |
|
|
| |
| |
| - Seite 1 - |
|
Andreas
Miethe
 |
KompilierenMarkierenSeparieren
Proc SetTipText
Parameters TipCtl&,Owner&,Ctl&,NewText$
Declare ToolInfo#
Dim Toolinfo#,40
Long Toolinfo#,0 = 40
Long ToolInfo#,8 = Owner&
Long ToolInfo#,12 = Ctl&
Long ToolInfo#,36 = Addr(NewText$)
Sendmessage(TipCtl&,1036,0,ToolInfo#)TTM_UPDATETIPTEXT
Dispose ToolInfo#
EndProc
Cls
Declare btn&,tip&
btn& = Create(Button,%hwnd,Klick mich!,10,10,100,20)
tip& = Create(ToolTip,%hwnd,btn&,Str$(&GetTickCount))
While 1
WaitInput
SetTipText(Tip&,%hwnd,Btn&,Letzter Klick um : +Time$(0)+:+left$(Time$(1),2))
Wend
Das hier ist auch ganz nett :
KompilierenMarkierenSeparieren
Proc SetTipTitle
Parameters TipCtl&,Icon&,Title$
Sendmessage(TipCtl&,1056,Icon&,Addr(Title$))TTM_SETTITLE
EndProc
Proc SetTipText
Parameters TipCtl&,Owner&,Ctl&,NewText$
Declare ToolInfo#
Dim Toolinfo#,40
Long Toolinfo#,0 = 40
Long ToolInfo#,8 = Owner&
Long ToolInfo#,12 = Ctl&
Long ToolInfo#,36 = Addr(NewText$)
Sendmessage(TipCtl&,1036,0,ToolInfo#)TTM_UPDATETIPTEXT
Dispose ToolInfo#
SetTipTitle(Tip&,1,Eine neue Information um +Time$(0)+:+left$(Time$(1),2))
EndProc
Cls
Declare btn&,tip&
btn& = Create(Button,%hwnd,Klick mich!,10,10,100,20)
tip& = Create(ToolTip,%hwnd,btn&,Str$(&GetTickCount))
While 1
WaitInput
SetTipText(Tip&,%hwnd,Btn&,Letzter Klick um : +Time$(0)+:+left$(Time$(1),2))
Wend
|
|
| |
| 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 : [...]  | 21.10.2007 ▲ |
|
| |
|
|
Jörg
Sellmeyer | | Ah! Der Andreas, sehr schön. Ich hatte gestern auch noch rumexperimentiert, aber immer Sendmessage an das falsche Handle geschickt. Deshalb funktionierte es nicht. Besonders das zweite Ding ist großartig! |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 21.10.2007 ▲ |
|
| |
|
|
RGH | Und in XProfan 11 wird folgendes reichen:
a: Ohne Tooltip-Überschrift
KompilierenMarkierenSeparierenCls
Declare btn&, tip&, text$
btn& = Create(Button,%hwnd,Klick mich!,10,10,100,20)
tip& = Create(ToolTip,%hwnd,btn&,Str$(&GetTickCount))
While 1
WaitInput
text$ = Letzter Klick um : +Time$(0)+:+left$(Time$(1),2)
SetText Tip&, %hwnd, Btn&, text$
EndWhile
b: Mit Überschrift:
KompilierenMarkierenSeparierenCls
Declare btn&, tip&, text$
btn& = Create(Button,%hwnd,Klick mich!,10,10,100,20)
tip& = Create(ToolTip,%hwnd,btn&,Str$(&GetTickCount))
While 1
WaitInput
text$ = Letzter Klick um : +Time$(0)+:+left$(Time$(1),2)
SetText Tip&, %hwnd, Btn&, text$, 1, text$
EndWhile
Gruß
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 21.10.2007 ▲ |
|
| |
|
| |
| |
| - Seite 2 - |
|
|
Manfred
Barei | Danke Andreas   , genau so wollte ich es nur kam ich mit der SendMessage nicht zurecht  .genau wie Jörg. Habe etliches mit der Prfellow Include WFHINTS.inc probiert. 
Aber ich finde es auch toll, das Roland sich mit der Sache befasst hatt und ein Set in der neuen Version eingebaut hat, super 
grus |
|
| |
| Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 21.10.2007 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Ok, dann habe ich auch noch was:
KompilierenMarkierenSeparierenCls
Declare btn&,tip&
btn& = Create(Button,%hwnd,Klick mich!,10,10,100,20)
tip& = Create(ToolTip,%hwnd,btn&,Str$(&GetTickCount))
SendMessage(tip&,$0413,$FF00FF,0)
SendMessage(tip&,$0414,$FF00,0)
SetStyle tip&,$0000040
While 1
WaitInput
Wend
kleiner Nachtrag: Statt $D000040 reicht $0000040 |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.10.2007 ▲ |
|
| |
|
|
Thomas
Freier | |
| |
| |
| |
|
|
Jörg
Sellmeyer | Komisch, bei mir funktionierts
So muß es dann aussehen: |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.10.2007 ▲ |
|
| |
|
|
Rolf
Koch | Ich hab mich mal hingesetzt und meine Tipunit bisschen umgebaut. Zumindest hab ich damit mal angefangen. Muss ja auch noch auf die Arbeit, deswegen dauert es noch bis ich die Unit hochlade. Hier zumindest mal ein Shot:
Wie gesagt, noch nicht fertig, aber der Aufruf wird ungefähr dann so aussehen:
KompilierenMarkierenSeparierentip.SetToolTip %HWND,BUTTON&,"<b><font-color:rgb(255,0,0)>Ist das nicht schön?</b></font><br>Geht wie immer mehrzeilig<br>Hier mit Verlauf","VERL.BMP"
TIP1&=&(0)
Ich implementiere halt verschiedene Tags wie in Html, um den Tip zu gestalten. Skining ist mit dem letzten Parameter für ein Bild.
@Thomas:
Du wirst sicherlich in Deinem System die Bubbletips abgeschaltet haben. So eine Funktion hat z.B. XP-Antispy. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Hallo Rolf,
Sehr schick! Sind das immer noch echte Tooltips, oder hast Du eine eigene Klasse erzeugt und zeigst das Control OnMouseOver an?
Gruß
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 22.10.2007 ▲ |
|
| |
|
|
Thomas
Freier | @ Rolf:
meine Vermutung ging auch schon in die Richtung. Das Design Window- klassisch war es nicht. |
|
| |
| |
| |
|
|
 | @Rolf
Schöööööön !  |
|
| |
| |
| |
|
|
Rolf
Koch | @Jörg: Sind noch echte Tooltips
@Horst: Thx 
Dauert ja sowieso noch bin grad erst von der Maloche gekommen. Und in 3 Std. wieder Bett |
|
| |
| |
| |
|
(511)
Deutsch
English
Français
Español
Italia