XProfan

English

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 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

on the simplest would it well so: Compile Mark Separation Cls Declare btn&,tip& btn& = Create(Button,%hwnd,Klick mich!,10,10,100,20) tip& = Create(ToolTip,%hwnd,btn&,Str$(&GetTickCount)) While 1 WaitInput tip& = Create(ToolTip,%hwnd,btn&,Str$(&GetTickCount))
Windows XP SP2 XProfan X4 ... und hier mal was ganz anderes als Profan ...	10/20/07 ▲ Vollständiges Quote Absatzweise Quote Zeilenweise Quote

Frank
Abbing

If you the whole another DestroyWindow spendierst, might the Resourcenfrage too erübrigt having. Tooltipps are so ditto Controls.

10/20/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

no, the not working. then diving no Tooltip More on

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

10/20/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

Habs even in Winspy loaded and fixes, that it really too without Destroy with one hint remaining. Comic thing The of course super whom object erfüllt, but I wealth vlcht. regelt this windows already in the background, there one each Objekt How Button and Co only one TTip zuordnen can?
would be I yourself place one Button over ands over again produce, so would I Yes logischerweise sometime time sauviele Buttons own and the memory into knees force. not so with TTIPS.
means definitiv: it'll only a handle verbraten with the obigen code.

10/20/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

the have so did i tested. I faith, it's located on it, that the Mainwindow one TilTipWnd zugeordnet get and hereon go The texts for Controls gepinselt, means not jedesmal new Controls created.
sees somehow unelegant from but: smell How crude oil, schmeckt How crude oil - hey the must crude oil his!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

10/20/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

shining so as would windows whom middle-aged Tooltipp dispose, if one New allocated becomes. is still aale.

10/21/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Manfred
Barei

Yes, but one can Yes none new allocate

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 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

Yes, but one can Yes none new allocate

Why? Praktischer GEHTS still not, because You beget still a new and this even (if you want) same Variable

10/21/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Compile Mark Separation

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 :
Compile Mark Separation

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 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

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 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

and in XProfan 11 becomes the following wealthy:

a: without Tooltip-Headline
Compile Mark Separation

Cls
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$

E

b: with Headline:
Compile Mark Separation

Cls
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