XProfan

- Page 2 -

RGH

[quote:830c00dcca=Rolf Koch]Kleinigkeit ist noch da. Wenn man geklickt hat, so bleibt der Tip immer noch bis nach einem Focuswechsel verschwunden. Aber damit potuto man ja leben.[/quote:830c00dcca]
Das ist leider keine Kleinigkeit, sondern leider exakt das alte Problem: Man muß zu einem anderen Tooltip des gleichen Tooltipcontrols wechseln, damit er nach einem Klick wieder erscheint. Wenn man aber nur einen Button hat, ...

Ich werde weiter suchen ...

Saluto
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]Wenn man aber nur einen Button hat[/quote:fa196aaad7]
Oja stimmt

RGH

Aber ich glaube, mit einem Trick habe ich es jetzt doch geschafft: Obwohl der Stil TTF_SUBCLASS bei den Tooltips angegeben ist und es daher nicht nötig sein soll (und bis Win 2000 auch nicht nötig ist) sende ich nun bei Mausaktionen sicherheitshalber noch mal ein TTM_RELAYEVENT an das Tooltip-Control (ich habe in XProfan jetzt auch nur noch eins, daß beim ersten create(Tooltip,...) geschaffen wird). Und nun klappt es auch unter XP und die Tooltips kommen nach einem Klick wieder!
(Das ist zwar nicht wirklich die reine Lösung, aber ein Workaround, der funktioniert. Aber was in XProfan abgeht, kann dem Anwender ja eigentlich egal sein. ;) )

Saluto
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 hört sich ja richtig SUPER an

Sorry will ja nicht nerven damit, aber denkst Du dann in einem auch an den Timeout? Wenn der Tip ohne Klick verschwindet, ist er auch leider pfutsch. Oder hat sich dann mit Deiner Methode auch erledigt? *freu*

RGH

[quote:21e4a8f00f=Rolf Koch]aber denkst Du dann in einem auch an den Timeout? Wenn der Tip ohne Klick verschwindet, ist er auch leider pfutsch. Oder hat sich dann mit Deiner Methode auch erledigt? *freu*[/quote:21e4a8f00f]
Auch der TimeOut macht keine Probleme mehr!
Saluto
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.05.2006 ▲

Frank
Abbing

10.05.2006 ▲

Georg
Hovenbitzer

Hallo zusammen,

ganz ist der Fehler aber noch nicht damit behoben

Läßt man den Mauszeiger so lange circa dem Button bis der Timeout greift, kommt der ToolTip nicht wieder wenn man nicht vorher einen anderen angezeigt bekommt.
Aber dafür kann man ja die Timeout Zeit hochdrehen.

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

12.05.2006 ▲

RGH

[quote:6b9f9cb681=Georg Hovenbitzer]Hallo zusammen, ganz ist der Fehler aber noch nicht damit behoben[/quote:6b9f9cb681]
Hallo Georg,
meine Aussagen beziehen sich bereits auf die nächste Subscriptionsversion! Die scheint auf meinem XP-Testrechner und auch beir Rolf unter XP perfekt zu laufen. Bitte etwas Geduld. Ich denke, an diesem Wochenende ist es wieder soweit ...

Saluto
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

12.05.2006 ▲

Alfred
Wagner

Hallo Leute!

Hier ein Beispielcode,funktioniert wunderbar.

Von wem das Original ist weiß ich nicht,ich hab ihn nur etwas abgeändert und mit viel Glück kam das raus
Kompilieren Markieren Separieren

 $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

='./../../funktionsreferenzen/xprofan/wend/'>WEND

Schönes Wochenende allen

Alfred mit Familie

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

13.05.2006 ▲

Frank
Abbing

Tatsächlich. Der Code funktioniert in dieser Form einwandfrei, obwohl er ja nur leicht von allen anderen Tooltip-Codes abweicht....
Hab Alfreds Code mal von allem Nötigen befreit, hier:
Kompilieren Markieren Separieren

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

13.05.2006 ▲

RGH

[quote:fe108e115f=Frank Abbing]Tatsächlich. Der Code funktioniert in dieser Form einwandfrei, obwohl er ja nur leicht von allen anderen Tooltip-Codes abweicht....[/quote:fe108e115f]
Mit welcher XProfan-Version getestet? Auch mit der 9?

Saluto
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

13.05.2006 ▲