| |
| |
|
| - Página 1 - |
|
Rolf
Koch | Bin una Stückchen weitergekommen.
Erstellt veces a la Button por ROC.
Dem Button una Tooltip zuordnen
Geht en el Subclassmanager
Aktiviert hay Subclass para %hwnd
Sucht el Eintrag: WM_NOTIFY
Anklicken y folgendes en el If Abfrage escribir:
imprimir %notifycode;
speichern
Startet esta erstellte Expediente con uno Profano con Manifest y una vez sin Manifest.
Mit Manifest voluntad el Daten ausgeführt. Ohne se garnix adecuado.
Ob como el Wurm begraben liegt?
Rolf |
|
| |
| |
| |
|
| |
| |
| - Página 2 - |
|
|
RGH | [quote:830c00dcca=Rolf Koch]Kleinigkeit es todavía como. Wenn uno geklickt ha, así restos el Tip siempre todavía a una Focuswechsel verschwunden. Aber así podría uno sí leben.[/quote:830c00dcca]
Es desafortunadamente no Kleinigkeit, pero desafortunadamente exakt el alte Problema: Man muß a una otro Tooltip des gleichen Tooltipcontrols wechseln, así él una Clic otra vez erscheint. Wenn uno aber sólo una Button ha, ... 
Yo voluntad más suchen ...
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 | 09.05.2006 ▲ |
|
| |
|
|
Rolf
Koch | [quote:fa196aaad7]Wenn uno aber sólo una Button ha[/quote:fa196aaad7]
Oja stimmt  |
|
| |
| |
| |
|
|
RGH | Aber Yo glaube, con un Trick Yo lo ahora doch geschafft: Obwohl el Stil TTF_SUBCLASS en el Tooltips angegeben es y lo por lo tanto no nötig ser se (y a Win 2000 auch no nötig es) sende Yo nun en Mausaktionen sicherheitshalber una vez más una TTM_RELAYEVENT a el Tooltip-Control (Yo en XProfan ahora sólo todavía eins, daß beim ersten create(Tooltip,...) geschaffen se). Und nun klappt lo auch bajo XP y el Tooltips kommen una Clic otra vez!
(Es zwar no wirklich el reine Solución, aber una Workaround, el funktioniert. Aber qué en XProfan abgeht, kann el Anwender sí eigentlich egal ser. ;) )
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 | 09.05.2006 ▲ |
|
| |
|
|
Rolf
Koch | Wow hört se sí correcto SUPER a 
Sorry voluntad sí no nerven así, aber denkst Usted entonces en un auch a el Timeout? Wenn el Tip sin Clic verschwindet, es él auch desafortunadamente pfutsch. Oder ha se entonces con Deiner Método auch hecho? *freu* |
|
| |
| |
| |
|
|
RGH | [quote:21e4a8f00f=Rolf Koch]aber denkst Usted entonces en un auch a el Timeout? Wenn el Tip sin Clic verschwindet, es él auch desafortunadamente pfutsch. Oder ha se entonces con Deiner Método auch hecho? *freu*[/quote:21e4a8f00f]
Auch el TimeOut macht no Problemas mehr!
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 | 10.05.2006 ▲ |
|
| |
|
|
Frank
Abbing | |
| |
| |
| |
|
|
Georg
Hovenbitzer | ¡Hola zusammen,
bastante es el Fehler aber todavía no así Fijo
Läßt uno el Mauszeiger así largo encima el Button a el Timeout greift, kommt el ToolTip no otra vez si uno no vorher una otro adecuado bekommt.
Aber dafür puede ser sí el Timeout Tiempo hochdrehen. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 12.05.2006 ▲ |
|
| |
|
|
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
KompilierenMarcaSeparació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 |
|
| |
| |
| |
|
|
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:
KompilierenMarcaSeparaciónDEF 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 | 13.05.2006 ▲ |
|
| |
|
|
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 |
|
| |
| |
| |
|
(787)
Deutsch
English
Français
Español
Italia