XProfan

Español

Dieter
Zornow

¡Hola,

Könnte veces alguien dieses kleine Ejemplo testen, en me final se auch la ventana principal, después de que el Diálogo encima el Cruz geschlossen habe. Yo voluntad sólo wissen si el sólo en me así es oder en más a Ursache festzustelllen, si como qué no miteinander verträgt.

Vorzugsweise con XProfan 11, porque lo en me así passiert.
Kompilieren Marca Separación

 $P+
SET("ERRORLEVEL",0)
DECLARE d&,ENDE%
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 31
WINDOWTITLE "Hauptfenster"
WINDOW (%maxx/2 - 640/2),(%maxy/2 - 500/2) - 640,500
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
d& = CREATE("BUTTON",%HWND,"Dialog",0271,0406,0100,0025)
SETFOCUS(%HWND)
usermessages 16
REPAINT

WHILENOT ENDE%

    WAITINPUT

    If %umessage = 16

        ENDE%= 1

    ELSEIF CLICKED(d&)

        dialog()

    ENDIF

ENDWHILE

end

PROC DIALOG

    var DLG&=CREATE("DIALOG",%HWND,"Dialog",(%maxx/2 - 640/2),(%maxy/2 - 500/2),640,500)
    USEFONT "MS Sans Serif",13,0,0,0,0
    SETDIALOGFONT 1
    SETFOCUS(DLG&)
    var DIALOGENDE%=0

    WHILENOT DIALOGENDE%

        WAITINPUT

        If %KEY=2

            DIALOGENDE%= 1

        ENDIF

    ENDWHILE

    DESTROYWINDOW(DLG&)

ENDPROC

Saludo

Dieter

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

03.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Hi Dieter.
Yo öffne el Diálogo y klicke oben el Dialogkreuz. Das einzige qué se en me schliesst es entonces korrekterweise el Diálogo y la ventana principal restos offen.
Irgendwas stimmt con usted wirklich no. Keine Idea qué, aber echt komisch.

03.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Vergleiche veces %mWnd con el Handle lo Dialogs, also Kompilieren Marca Separación if (%uMessage=16) AND (%mWnd=dlg&)re> (Und dlg& natürlich global declarieren). Alternativ: Vor el Rückstprung en el Hauptprogramm todos Messages entfernen: Kompilieren Marca Separación proc KillMessages while 1 SetTimer 100 Waitinput if %wmTimer KillTimer Break endif endwhile
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP	03.08.2008 ▲ Vollständiges Zitat Absatzweise Cita Zeilenweise Cita

Dieter
Zornow

@Rolf: Gracias fürs testen, así langsam glaube Yo a Geister. Yo habe lo incluso una Neustart ausprobiert y el gleiche Ergebnis. Yo muss veces todos Hintergrundprogramme como Virenscanner y Firewall stoppen, si como algo reinfunkt. Aber el debería sí eigentlich auch unmöglich ser.

@Jac: Gracias para el Ratschläge pero va auch no, si yo Usermessages bastante rauslasse y 2 x con %key = 2 arbeite. Gehts porque en dir, Yo glaube du hast en efecto ya XProfan 11
Puedo aber veces versuchen en el Diálogo en Usermessage a ändern y el
(%uMessage=16) AND (%mWnd=dlg&)
einzubauen, si se entonces siempre todavía en Ventana principal auswirkt, porque como du siehst arbeite Yo en el Diálogo sí con %key = 2

Saludo

Dieter

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

03.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

¡Hola Dieter!

So funktionierts:
Kompilieren Marca Separación

 $P+
SET("ERRORLEVEL",0)
DECLARE d&,ENDE%
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 31
WINDOWTITLE "Hauptfenster"
WINDOW (%maxx/2 - 640/2),(%maxy/2 - 500/2) - 640,500
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
d& = CREATE("BUTTON",%HWND,"Dialog",0271,0406,0100,0025)
SETFOCUS(%HWND)
usermessages 16
REPAINT

WHILENOT ENDE%

    WAITINPUT

    If %umessage = 16

        ENDE%= 1

    ELSEIF CLICKED(d&)

        dialog()

    ENDIF

ENDWHILE

end

PROC DIALOG

    var DLG&=CREATE("DIALOG",%HWND,"Dialog",(%maxx/2 - 640/2),(%maxy/2 - 500/2),640,500)
    USEFONT "MS Sans Serif",13,0,0,0,0
    SETDIALOGFONT 1
    SETFOCUS(DLG&)
    var DIALOGENDE%=0
    Usermessages -16

    WHILENOT DIALOGENDE%

        WAITINPUT

        If %KEY=2

            DIALOGENDE%= 1

        ENDIF

    ENDWHILE

    DESTROYWINDOW(DLG&)
    Usermessages 16

ENDPROC

Nur 2 Zeilen eingefügt.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

03.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

GDL

Hi,

En me schließen auch beide Ventana.
Problema Tuve en media Programmen auch.
Sobald 2 Schleifen laufen, muss Yo 2veces %umessage abfragen.

WinXP,XProfan11

Servus
Georg, el con el Druckbefehlen mittlerweile nen Horror bekommt.

Windows7 Xprofan 8,9,10 [...]

[...]

03.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dieter
Zornow

Jac: sí así funktioniert lo en me auch, danke para el Hiilfe, es aber trotzdem seltsam, dass uno solche Verrenkungen hacer muss para así una simple Sache, el dürfte no ser.

@Georg: Su Test macht mich direkt froh, Yo war ya nahe dran en media Computer einzuschlagen

Saludo

Dieter

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

03.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Isch willlll Schtärnäääähhh!!!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

03.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sato
Pinto

¡Hola

En me schliessen auch beide Fenstern

Gruss
Sato

Sato Pinto
WIN XP Home
XPROFAN 11

03.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dieter
Zornow

Gracias Sato, nun weiß Yo, dass no a mi Rechner liegt

@Jac: Posesiones dir Sterne gegeben nun zufrieden, Yo halte zwar nichts su aber Por favor, muy.

Saludo

Dieter

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

04.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita