XProfan

- Page 2 -

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 : [...]

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

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

Rolf
Koch

Hi people,
is correct works even under 8.0

These Presentation is from ROC, can but on attempt now really none Difference (except omit of important sendmessages and Standart Profan hint instead of Control) find. What is because here differently? be I blind?

Rolf

- Page 3 -

Frank
Abbing

Habs with the 10it Version tested.

RGH

[quote:577464dc60=Rolf cook]What is because here differently? be I blind?

Rolf[/quote:577464dc60]
it go two Tooltips created!
1. with Create(ToolTip, 0, %hWnd, )
at that appeal to Erzeugung the Toolips becomes Yes first of all one Tooltipcontrol created. and of course on the Parentwindow 0. The second Parameter gives the Fensterhandle the Controls on. this is here the Mainwindow. means becomes one Tooltip for the whole Mainwindow created, though without Test.
2. with SendMessage(...)
here becomes one zweiter Tooltip created and of course diesesmal for Button with corresponding Text.

If I the in XProfan so einbaue, then functions it too.

Why the so is, must alllerdings anyone else explain. me comes the plenty unlogisch to.

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

@Roland
this is Yes the komische, in the originalen Version of Roc (see in the Ordner /LIB The Tooltip.inc) becomes too one hint prepares (hold as Control) and The sendmessage used.

Frank
Abbing

[quote:58d8351af6]If I the in XProfan so einbaue, then functions it too.

Why the so is, must alllerdings anyone else explain. me comes the plenty unlogisch to.[/quote:58d8351af6]
Yes, me too.
but Hauptsache, The thing functions now sure and XProfan-comilierte-programs get now secure Tooltips.
some items on windows are even queer and logischem mind not begreifbar

Tjah - the perfect is hold the Feind the good.

Rolf
Koch

and nevertheless would I gladly know, what the Difference to the Include in Roc is. there becomes just as vorgegangen - still blind I cook I? *lol*

what me now noticed is:
Compile Mark Separation

Tooltip&=@Control("tooltips_class32","",$D000001,0,0,0,0,rkhwnd&,0,%hinstance)
Tooltip&=@Create("Tooltip",0,Rkhwnd&,"")e>

With the Create(Tooltip.... functions super, however whom whom I absolutely need is the Controlerstellte.

or lying it evtl. hieran?:
[quote:f13b489d82]
n3 : with Windows with Menüs the Menühandle
with Dialogelementen The number the Dialogelementes
(with several with @Control begot Dialogelementen

one Fensters ought to each a others worth receive.

[/quote:f13b489d82]

RGH

Hello Rolf,

the Code A.wainwright basiert letztendlich hereon, that even two Tooltips created go. The XProfan-function create(Tooltip,...) created Yes not only the Tooltip-Control, separate fügt too same with SendMessage one Tooltip hinzu. so as A.wainwright uses, with 0 as first Parameter, the Fensterhandle as second Parameter and one Leerstring as Text becomes the Tooltipcontrol with Parentwindow 0 prepares and a Tooltip without Text for the Window. moreover comes then with the Sendmessage the Tooltip for the Dialogojekt (Button).
These seltsame combination functions evident.

concise: I have for XProfan 10 now two working mutants. Since I with both not really white, Why tappt im dunkeln functions, I will with meinere Variante stay, The we letztlich together tested had.

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