XProfan

- page 2 -

RGH

[quote-part:6b9f9cb681=Georg Hovenbitzer]allô zusammen, entier ist qui faute mais encore pas avec cela behoben[/quote-part:6b9f9cb681]
allô Georg,
mon Aussagen beziehen sich bereits sur qui prochain Subscriptionsversion! qui scheint sur meinem XP-Testrechner et beir Rolf sous XP parfait trop courir. s'il te plaît quelque chose patience. je denke, à diesem Wochenende ist es wieder soweit ...

Salut
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

allô gens!

ici un Beispielcode,funktioniert wunderbar.

de qui cela Original ist sais je pas,je hab ihn seulement quelque chose abgeändert et viel Glück kam cela raus
Kompilieren Marque Séparation

 $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 avec la famille

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

Frank
Abbing

réellement. qui Code funktioniert dans cette forme einwandfrei, quoique il oui seulement léger de allen anderen Tooltip-Codes abweicht....
Hab Alfreds Code la fois de allem Nötigen befreit, ici:
Kompilieren Marque Séparation

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

Fin

RGH

[quote-part:fe108e115f=Frank Abbing]réellement. qui Code funktioniert dans cette forme einwandfrei, quoique il oui seulement léger de allen anderen Tooltip-Codes abweicht....[/quote-part:fe108e115f]
avec quel XProfan-Version getestet? aussi avec qui 9?

Salut
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 gens,
stimmt klappt sogar sous 8.0

cet Présentation ist aus ROC, peux mais sur Anhieb maintenant wirklich keinen Unterschied (ausser omettre de wichtigen sendmessages et Standart Profan Tip anstatt Contrôle) trouver. quoi ist car ici anders? suis je blind?

Rolf

- page 3 -

Frank
Abbing

Tricolore avec qui 10il Version getestet.

RGH

[quote-part:577464dc60=Rolf Koch]quoi ist car ici anders? suis je blind?

Rolf[/quote-part:577464dc60]
Es volonté deux Tooltips erzeugt!
1. avec Créer(ToolTip, 0, %hWnd, )
Beim Aufruf zur Erzeugung des Toolips wird oui zunächst un Tooltipcontrol erzeugt. et zwar sur dem Parentwindow 0. qui zweite paramètre gibt cela Fensterhandle des Controls à. c'est ici cela Hauptfenster. alors wird un Tooltip pour cela ganze Hauptfenster erzeugt, allerdings sans Test.
2. avec SendMessage(...)
ici wird un zweiter Tooltip erzeugt et zwar diesesmal pour den Button avec entsprechendem Text.

si je cela dans XProfan so einbaue, ensuite funktioniert es aussi.

pourquoi cela so ist, doit alllerdings quelqu'un anders expliquer. Mir venez cela reichlich unlogisch avant.

Salut
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
c'est oui cela komische, dans qui originalen Version de Roc (siehe im Dossier /LIB qui Tooltip.inc) wird aussi un Tip erstellt (arrêt comme Contrôle) et qui sendmessage genutzt.

Frank
Abbing

[quote-part:58d8351af6]si je cela dans XProfan so einbaue, ensuite funktioniert es aussi.

pourquoi cela so ist, doit alllerdings quelqu'un anders expliquer. Mir venez cela reichlich unlogisch avant.[/quote-part:58d8351af6]
oui, mir aussi.
mais le principal, qui l'affaire funktioniert eh bien sûrement et XProfan-comilierte-Programme bekommen maintenant sichere Tooltips.
Manche Dinge à Windows sommes plan wunderlich et logischem Verstand pas begreifbar

Tjah - cela Perfekte ist arrêt qui ennemi des Guten.

Rolf
Koch

et quand même serait je volontiers savons, quoi qui Unterschied trop qui Include dans Roc ist. là wird genauso vorgegangen - toujours Blind je Koch je? *lol*

quoi mir maintenant aufgefallen ist:
Kompilieren Marque Séparation

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

Avec l' Créer(Tooltip.... funktioniert super, cependant den welchen je absolument brauche ist qui Controlerstellte.

ou bien liegt es peut-être. hieran?:
[quote-part:f13b489d82]
N3 : chez Windows avec Menüs cela Menühandle
chez Dialogelementen qui numéro des Dialogelementes
(chez mehreren avec @Contrôle erzeugten Dialogelementen

eines Fensters sollte chaque une anderen Wert conservé.

[/quote-part:f13b489d82]

RGH

allô Rolf,

qui Code de A.Wagner basé letztendlich puis, qui plan deux Tooltips erzeugt volonté. qui XProfan-Funktion create(Tooltip,...) erzeugt oui pas seulement cela Tooltip-Contrôle, mais fügt aussi juste avec SendMessage un Tooltip hinzu. So comme A.Wagner verwendet, avec 0 comme erstem paramètre, dem Fensterhandle comme zweiten paramètre et einem Leerstring comme Text wird cela Tooltipcontrol avec Parentwindow 0 erstellt et un Tooltip sans Text pour cela la fenêtre. en supplément venez ensuite avec dem SendMessage qui Tooltip pour cela Dialogojekt (Button).
cet seltsame Kombination funktioniert évident.

Kurz: j'ai pour XProfan 10 maintenant deux funktionierende Varianten. là je chez beiden pas wirklich sais, pourquoi vous marcher, werde je chez meinere variante rester, qui wir letztlich zusammen getestet hatten.

Salut
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