XProfan

- Página 2 -

RGH

[quote:6b9f9cb681=Georg Hovenbitzer]¡Hola zusammen, bastante es el Fehler aber todavía no así Fijo[/quote:6b9f9cb681]
¡Hola Georg,
mi Aussagen beziehen se ya en el nächste Subscriptionsversion! El scheint en mi XP-Testrechner y beir Rolf bajo XP perfekt a laufen. Bitte algo Geduld. Yo denke, a diesem Wochenende es otra vez soweit ...

Saludo
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

¡Hola Personas!

Hier una Beispielcode,funktioniert wunderbar.

Von wem el Original es weiß Yo no,Yo tener ihn sólo algo abgeändert y viel Glück kam el fuera
Kompilieren Marca Separación

 $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 con Familie

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

Frank
Abbing

Tatsächlich. Der Code funktioniert en dieser Form einwandfrei, obwohl él sí sólo ligeramente de allen otro Tooltip-Codes abweicht....
Hab Alfreds Code tiempos de allem Nötigen befreit, hier:
Kompilieren Marca Separación

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]Tatsächlich. Der Code funktioniert en dieser Form einwandfrei, obwohl él sí sólo ligeramente de allen otro Tooltip-Codes abweicht....[/quote:fe108e115f]
Mit welcher XProfan-Versión getestet? Auch con el 9?

Saludo
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 Personas,
stimmt klappt incluso bajo 8.0

Diese Presentación es de ROC, kann aber en Anhieb ahora wirklich no hay diferencia (salvo weglassen de wichtigen sendmessages y Standart Profano Tip anstatt Control) encontrar. Was es porque hier anders? Bin Yo blind?

Rolf

- Página 3 -

Frank
Abbing

Habs con el 10él Versión getestet.

RGH

[quote:577464dc60=Rolf Koch]Was es porque hier anders? Bin Yo blind?

Rolf[/quote:577464dc60]
Lo voluntad zwei Tooltips producido!
1. con Crear(ToolTip, 0, %hWnd, )
Beim Aufruf a Erzeugung des Toolips se sí primero una Tooltipcontrol producido. Und zwar en el Parentwindow 0. Der zweite Parámetro son el Fensterhandle des Controls a. Es hier la ventana principal. Also se una Tooltip para todos Ventana principal producido, allerdings sin Test.
2. con SendMessage(...)
Hier se una zweiter Tooltip producido y zwar diesesmal para el Button con entsprechendem Texto.

Wenn Yo el en XProfan así einbaue, entonces funktioniert lo auch.

¿Por qué el así es, muß alllerdings alguien anders erklären. Mir kommt el reichlich unlogisch antes.

Saludo
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
Es sí el komische, en el originalen Versión de Roc (siehe en el Ordner /LIB el Tooltip.inc) se auch una Tip erstellt (sólo como Control) y el sendmessage genutzt.

Frank
Abbing

[quote:58d8351af6]Wenn Yo el en XProfan así einbaue, entonces funktioniert lo auch.

¿Por qué el así es, muß alllerdings alguien anders erklären. Mir kommt el reichlich unlogisch antes.[/quote:58d8351af6]
Sí, me auch.
Aber Hauptsache, el Sache funktioniert nun sicher y XProfan-comilierte-Programas bekommen ahora sichere Tooltips.
Manche Dinge a Windows son eben wunderlich y logischem Verstand no begreifbar

Tjah - el Perfekte es sólo el Feind des Bueno.

Rolf
Koch

y trotzdem sería Me gusta wissen, qué el Diferencia a el Incluir en Roc es. Como se genauso vorgegangen - siempre todavía Blind Yo Koch Yo? *lol*

Was me ahora aufgefallen es:
Kompilieren Marca Separación

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

Con el Crear(Tooltip.... funktioniert super, sin embargo el welchen Yo necesariamente brauche es el Controlerstellte.

Oder liegt lo evtl. hieran?:
[quote:f13b489d82]
N3 : En Fenstern con Menüs el Menühandle
En Dialogelementen el Nummer des Dialogelementes
(En más con @Control erzeugten Dialogelementen

uno Fensters debería cada una otro Valor obtener.

[/quote:f13b489d82]

RGH

¡Hola Rolf,

el Code de A.Wagner basiert letztendlich darauf, daß eben zwei Tooltips producido voluntad. El XProfan-Función create(Tooltip,...) producido sí no sólo el Tooltip-Control, pero fügt auch igual con SendMessage una Tooltip hinzu. So como A.Wagner verwendet, con 0 como erstem Parámetro, el Fensterhandle como zweiten Parámetro y una Leerstring como texto se el Tooltipcontrol con Parentwindow 0 erstellt y una Tooltip sin Texto para el Ventana. Dazu kommt entonces con el SendMessage el Tooltip para el Dialogojekt (Button).
Diese seltsame Kombination funktioniert offenbar.

Kurz: Yo habe para XProfan 10 ahora zwei funktionierende Varianten. Desde que en beiden no wirklich weiß, por qué ellos trabajo, voluntad Yo en meinere Variante bleiben, el wir letztlich zusammen getestet hatten.

Saludo
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