XProfan

- Page 2 -

RGH

[quote:830c00dcca=Rolf cook]Kleinigkeit is yet there. If one clicked has, so remaining the hint still To to one Focuswechsel disappeared. but so could one Yes life.[/quote:830c00dcca]
this is unfortunately no Kleinigkeit, separate unfortunately exakt the old trouble: one must to a others Tooltip the equal Tooltipcontrols change, so it to one Click again appear. If one but only a Button has, ...

i'll moreover search ...

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

Rolf
Koch

[quote:fa196aaad7]If one but only a Button has[/quote:fa196aaad7]
Oja is correct

RGH

but I faith, with a ploy have I it now still geschafft: though the Style TTF_SUBCLASS with whom Tooltips indicated is and it therefore not necessary his should (and To Win 2000 neither necessary is) send I now with Mausaktionen as a precaution once more one TTM_RELAYEVENT on the Tooltip-Control (I have in XProfan now too only yet one, that at first create(Tooltip,...) created becomes). well then works it too XP and the Tooltips come to one Click again!
(this is of course not really The pure Solution, but one Workaround, the functions. but what in XProfan abgeht, can the users Yes really alike his. ;) )

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

Rolf
Koch

Wow hears itself Yes correctly. SUPER on

Sorry wants Yes not nerves so, but think You then in a too on whom Timeout? If the hint without Click disappears, is it too unfortunately pfutsch. or has then with your method too Done? *freu*

RGH

[quote:21e4a8f00f=Rolf cook]but think You then in a too on whom Timeout? If the hint without Click disappears, is it too unfortunately pfutsch. or has then with your method too Done? *freu*[/quote:21e4a8f00f]
too the TimeOut power no Problems More!
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

05/10/06 ▲

Frank
Abbing

05/10/06 ▲

Georg
Hovenbitzer

Hello together,

integrally is the Error but not yet so fixed

leaves one whom Cursor such a long time over the Button To the Timeout clutching, comes the ToolTip not again if one not before a others displayed get.
but for can Yes The Timeout Time hochdrehen.

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

05/12/06 ▲

RGH

[quote:6b9f9cb681=Georg Hovenbitzer]Hello together, integrally is the Error but not yet so fixed[/quote:6b9f9cb681]
Hello Georg,
my testify relating itself already on The next Subscriptionsversion! The shining on my XP-Testrechner and beir Rolf XP perfect To walk. Please something patience. i think, on this weekend is it again so far ...

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

05/12/06 ▲

Alfred
Wagner

Hello people!

here one Beispielcode,functions wonderful.

From whom the Original is white I do not,I Have it only slightly abgeändert and plenty Happiness coming the out
Compile Mark Separation

 $P+
SetErrorLevel 0
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
Declare Button&,Tooltip&
Declare ToolinfoButton#,RKText1#,SA%

Proc TTip

    @Sendmessage(Tooltip&,$0403,$2,30000)Dauer des Tips
    Parameters rkhwnd&,Handle&,RKText$,hwf&,txtf&,rkstil&,d%
    @SendMessage(Tooltip&,1048,0,500)
    @SendMessage(Tooltip&,1027,3,d%)
    Tooltip& = @Create("Tooltip",%Hwnd,%Hwnd,"")Tooltip auf das Haupfenster
    DELETEOBJECT Sa%
    Dim ToolinfoButton#,40
    Dim RKText1#,500
    String RKText1#,0=RKText$
    LONG ToolinfoButton#,0=40Strukturgroesse
    LONG ToolinfoButton#,4=$11Flags
    LONG ToolinfoButton#,8=Handle&
    LONG ToolinfoButton#,12=Handle&
    LONG ToolinfoButton#,36=RKText1#Text
    @SendMessage(Tooltip&,$0404,0,ToolInfoButton#)
    Dispose ToolinfoButton#
    Dispose RKText1#
    Return Tooltip&

EndProc

WINDOWSTYLE 31
WINDOWTITLE "Tooltip Fenster"
WINDOW SUB(DIV(%MAXX,2),DIV(370,2)),SUB(DIV(%MAXY,2),DIV(141,2))-370,141
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Button& = @Control("BUTTON","Ende",$50000001,130,50,100,22,%Hwnd,100,%Hinstance,$10000)
TTip %Hwnd,Button&,"
Ein Tooltip der sich immer wieder erneuert !
"
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(Button&)

        ENDE%= 1

    ENDIF

='./../../Function-References/XProfan/wend/'>WEND

beautiful weekend all

Alfred with family

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

05/13/06 ▲

Frank
Abbing

objectively. The code functions in this shape correct, though it Yes only slight of all others Tooltip-Codes abweicht....
Have Alfreds code time of everything compel free, here:
Compile Mark Separation

DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
Declare button1&,button2&,tooltip&,tib#

Proc TTip

    Parameters rkhwnd&,handle&,rktext$
    tooltip&=@Create("Tooltip",0,rkhwnd&,"")
    Dim tib#,40
    Clear tib#
    LONG tib#,0=40          Strukturgroesse
    LONG tib#,4=$11         Flags
    LONG tib#,8=handle&
    LONG tib#,12=handle&
    LONG tib#,36=Addr(RKText$)
    @SendMessage(Tooltip&,$0404,0,tib#)
    Dispose tib#
    RETURN tooltip&

EndProc

WindowStyle 31
CLS GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
button1& = @Create("Button",%hwnd,"Test 1",130,30,100,22)
TTip %Hwnd,button1&,"Ein Tooltip, der sich immer wieder erneuert!"
button2& = @Create("Button",%hwnd,"Test 2",130,60,100,22)
TTip %Hwnd,button2&,"Noch einer!"

While 1

    WaitInput
    Case %key=2:BREAK

EndWhile

End

05/13/06 ▲

RGH

[quote:fe108e115f=Frank Abbing]objectively. The code functions in this shape correct, though it Yes only slight of all others Tooltip-Codes abweicht....[/quote:fe108e115f]
with which XProfan-Version tested? too with the 9?

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

05/13/06 ▲