| |
| |
|
| - page 1 - |
|
Manfred
Barei | Salut,
ist es possible den chez einem Programmstart pour une Buttton eingestellten Tooltip beim Programmlauf nachträglich trop changement? 
Wen qui Button une autre Funktion erhält, soll sich aussi qui Tooltip changement.
Gibt es pour une Message ou bien Set Funktion, habe diesbezüglich rien trouvé. 
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 ▲ |
|
| |
|
|
| |
| |
| - page 1 - |
|
Andreas
Miethe
 |
KompilierenMarqueSéparation
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
cela ici ist aussi entier gentil :
KompilierenMarqueSéparation
Proc SetTipTitle
Paramètres TipCtl&,Icon&,Title$
SendMessage(TipCtl&,1056,Icon&,Addr(Title$))TTM_SETTITLE
ENDPROC
Proc SetTipText
Paramètres TipCtl&,Owner&,Ctl&,NewText$
Déclarer ToolInfo#
Faible 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,une neue information um +Time $(0)+:+left$(Time $(1),2))
ENDPROC
Cls
Déclarer btn&,tip&
btn& = Créer(Button,%hwnd,Klick mich!,10,10,100,20)
tip& = Créer(ToolTip,%hwnd,btn&,Str$(&GetTickCount))
Tandis que 1
WaitInput
SetTipText(Tip&,%hwnd,Btn&,dernier 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! qui Andreas, très joli. je hatte gestern aussi encore rumexperimentiert, mais toujours SendMessage à cela falsche Handle envoyé. c'est pourquoi funktionierte es pas. Besonders cela zweite Ding ist grandiose! |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 21.10.2007 ▲ |
|
| |
|
|
RGH | et dans XProfan 11 wird folgendes reichen:
a: sans Tooltip-Überschrift
KompilierenMarqueSéparationCls
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$
Ee
b: avec Überschrift:
KompilierenMarqueSéparationCls
Déclarer btn&, tip&, text$
btn& = Créer(Button,%hwnd,Klick mich!,10,10,100,20)
tip& = Créer(ToolTip,%hwnd,btn&,Str$(&GetTickCount))
Tandis que 1
WaitInput
text$ = dernier Klick um : +Time $(0)+:+left$(Time $(1),2)
SetText Tip&, %hwnd, Btn&, text$, 1, text$
Endwhile
Salut
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 ▲ |
|
| |
|
| |
| |
| - page 2 - |
|
|
Manfred
Barei | merci Andreas   , oui c'est ca so voulais je es seulement kam je avec qui SendMessage pas zurecht  .oui c'est ca comment Jörg. Habe etliches avec qui Prfellow Include WFHINTS.inc probiert. 
mais je trouve es aussi toll, cela Roland sich avec qui l'affaire befasst hatt et un Set dans qui neuen Version incorporé 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, ensuite habe je aussi encore quoi:
KompilierenMarqueSéparationCls
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
Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.10.2007 ▲ | |
|
| |
|
|
Thomas
Freier | |
| |
| |
| |
|
|
Jörg
Sellmeyer | Komisch, chez mir funktionierts
So doit es ensuite air: |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 21.10.2007 ▲ |
|
| |
|
|
Rolf
Koch | je hab mich la fois hingesetzt et mon Tipunit bisschen umgebaut. Zumindest hab je avec cela la fois angefangen. Muss oui aussi encore sur qui travail, deswegen dauert es encore jusqu'à je qui Unit hochlade. ici zumindest la fois un Shot:
Comme je le disais, encore pas fertig, mais qui Aufruf wird ungefähr ensuite so air:
KompilierenMarqueSéparationtip.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)e>
je implementiere arrêt verschiedene Tags comment dans Html, um den Tip trop gestalten. Skining ist avec dem letzten paramètre pour un Bild.
@Thomas:
Du wirst sicherlich dans Deinem System qui Bubbletips abgeschaltet avons. So une Funktion hat z.B. XP-Antispy. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | allô Rolf,
très schick! sommes cela toujours echte Tooltips, ou bien la hâte Vous eigene super erzeugt et zeigst cela Contrôle OnMouseOver à?
Salut
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 22.10.2007 ▲ |
|
| |
|
|
Thomas
Freier | @ Rolf:
mon Vermutung ging aussi déjà dans qui direction. cela Design Fenêtre- klassisch était es pas. |
|
| |
| |
| |
|
|
 | @Rolf
Schöööööön !  |
|
| |
| |
| |
|
|
Rolf
Koch | @Jörg: sommes encore echte Tooltips
@Horst: Thx 
Dauert oui sowieso encore suis grad seulement de qui Maloche gekommen. et dans 3 Std. wieder Bett |
|
| |
| |
| |
|
(456)
Deutsch
English
Français
Español
Italia