| |
| |
|
| - Page 1 - |
|
Manfred
Barei | Hi,
is it possible whom with one Program Start for a Buttton tuned Tooltip at Programmlauf as an afterthought To Change? 
whom the Button another function sustain, should itself too the Tooltip Change.
gives it for a Message or Set function, have diesbezüglich nothing found. 
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 | | 10/20/07 ▲ |
|
| |
|
|
| |
| |
| - Page 1 - |
|
Andreas
Miethe
 |
CompileMarkSeparation
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
the here's too integrally nice :
CompileMarkSeparation
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,an new information circa +time$(0)+:+left$(time$(1),2))
ENDPROC
Cls
Declare btn&,tip&
btn& = Create(Button,%hwnd,Click me!,10,10,100,20)
tip& = Create(ToolTip,%hwnd,btn&,Str $(&GetTickCount))
While 1
WaitInput
SetTipText(Tip&,%hwnd,Btn&,last Click circa : +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 : [...]  | 10/21/07 ▲ |
|
| |
|
|
Jörg
Sellmeyer | | Ah! The Andreas, very beautiful. I had yesterday too yet rumexperimentiert, but always Sendmessage on the incorrect lever skillful. therefore funktionierte not. particularly the second thing is splendid! |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 10/21/07 ▲ |
|
| |
|
|
RGH | and in XProfan 11 becomes the following wealthy:
a: without Tooltip-Headline
CompileMarkSeparationCls
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: with Headline:
CompileMarkSeparationCls
Declare btn&, tip&, Text$
btn& = Create(Button,%hwnd,Click me!,10,10,100,20)
tip& = Create(ToolTip,%hwnd,btn&,Str $(&GetTickCount))
While 1
WaitInput
Text$ = last Click circa : +time$(0)+:+left$(time$(1),2)
SetText Tip&, %hwnd, Btn&, Text$, 1, Text$
EndWhile
Greeting
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 | 10/21/07 ▲ |
|
| |
|
| |
| |
| - Page 2 - |
|
|
Manfred
Barei | thanks Andreas   , very so wished I it only coming I with the SendMessage not zurecht  .very How Jörg. have etliches with the Prfellow Include WFHINTS.inc probiert. 
but I find it too cool, the Roland itself with the thing befasst having and a Set in the new Version installed has, 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 | | 10/21/07 ▲ |
|
| |
|
|
Jörg
Sellmeyer | OK, then have so did i yet what:
CompileMarkSeparationCls
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 ... | 10/21/07 ▲ | |
|
| |
|
|
Thomas
Freier | |
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 10/21/07 ▲ |
|
| |
|
|
Jörg
Sellmeyer | comic, by me funktionierts
so must it then looks: |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10/21/07 ▲ |
|
| |
|
|
Rolf
Koch | I Have me time hingesetzt and my Tipunit bisschen rebuilt. at least Have I so time started. must indeed yet on The work, therefore lasts it yet To I The Unit hochlade. here at least time one Shot:
As I said, not yet ready, but the appeal becomes about then so looks:
CompileMarkSeparationtip.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>
I implementiere hold different Tags How in Html, around the hint To style. Skining is with the last Parameter for a Image.
@Thomas:
you become sure in Your system The Bubbletips shorted having. so a function has z.B. XP-Antispy. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Hello Rolf,
Very schick! are the still real Tooltips, or have You a Own class created and show the control OnMouseOver on?
Greeting
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10/22/07 ▲ |
|
| |
|
|
Thomas
Freier | @ Rolf:
my supposition went already into direction. the solid Window- classic was is not. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 10/22/07 ▲ |
|
| |
|
|
 | @Rolf
Schöööööön !  |
|
| |
| |
| |
|
|
Rolf
Koch | @Jörg: are yet real Tooltips
@Horst: Thx 
lasts Yes anyhow yet be strain first from the Maloche come. and in 3 Std. again bed |
|
| |
| |
| |
|
(456)
Deutsch
English
Français
Español
Italia