| |
| |
|
Dieter
Zornow | Salut,
Könnte la fois quelqu'un cet kleine Beispiel testen, chez mir finissez sich aussi cela Hauptfenster, après que Je l' Dialog sur cela Croix geschlossen habe. je veux seulement savons si cela seulement chez mir so ist ou bien chez mehreren à Ursache festzustelllen, si sich là quoi pas miteinander verträgt.
Vorzugsweise avec XProfan 11, weil es chez mir avec cela passiert.
KompilierenMarqueSéparation $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
Salut
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 ▲ |
|
| |
|
|
Rolf
Koch | Hi Dieter.
j'ouvre den Dialog et klicke dessus sur cela Dialogkreuz. cela einzige quoi sich chez mir schliesst ist ensuite korrekterweise qui Dialog et cela Hauptfenster bleibt offen.
Irgendwas stimmt chez Dir wirklich pas. je n'en sais rien quoi, mais vraie komisch. |
|
| |
| |
| |
|
|
Jac
de
Lad | |
| |
|
|
Dieter
Zornow | @Rolf: merci pour testen, so lente glaube je à Geister. j'ai es sogar pour einem Neustart ausprobiert et cela gleiche Ergebnis. je muss la fois alle Hintergrundprogramme comment Virenscanner et Firewall stoppen, si là irgendwas reinfunkt. mais cela sollte oui eigentlich aussi unmöglich son.
@Jac: merci pour qui Ratschläge mais und dir aussi pas, si je Usermessages entier rauslasse et 2 x avec %clé = 2 arbeite. Gehts car chez dir, je crois tu as oui aussi déjà XProfan 11
je peux mais la fois versuchen im Dialog sur Usermessage trop changement et cela
(%uMessage=16) AND (%mWnd=dlg&)
einzubauen, si es sich ensuite toujours sur Hauptfenster auswirkt, car comment tu vois arbeite je im Dialog oui avec %clé = 2
Salut
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 ▲ |
|
| |
|
|
Jac
de
Lad | allô Dieter!
So funktionierts:
KompilierenMarqueSéparation $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
seulement 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 ▲ |
|
| |
|
|
GDL | Hi,
chez mir schließen aussi beide la fenêtre.
Problem J'ai eu chez meinen Programmen aussi.
Sobald 2 Schleifen courir, muss je 2la fois %umessage abfragen.
WinXP,XProfan11
salut
Georg, qui avec den Druckbefehlen mittlerweile nen Horror bekommt. |
|
| |
| |
| |
|
|
Dieter
Zornow | Jac: oui so funktioniert es chez mir aussi, merci pour qui Hiilfe, ist mais quand même seltsam, dass on solche Verrenkungen faire muss pour so une simple l'affaire, cela pourrait pas son.
@Georg: Dein Test pouvoir mich direct froh, j'étais déjà proche tour sur meinen ordinateur einzuschlagen
Salut
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 ▲ |
|
| |
|
|
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 ▲ |
|
| |
|
|
Sato
Pinto | allô
chez mir schliessen aussi beide Windows
Gruss
Sato |
|
| |
| |
| |
|
|
Dieter
Zornow | merci Sato, eh bien sais je, dass es pas à meinem calculateur liegt
@Jac: Habe dir Sterne gegeben eh bien zufrieden, je halte zwar rien en mais s'il te plaît très.
Salut
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 ▲ |
|
| |
|
|
| @Jac
Isch willlll Schtärnäääähhh!!!
avec vollem Tempo avec dem tête avant qui prochain mur rennen - ensuite la hâte Du chacun la quantité Sterne ! |
|
| |
| |
| |
|
|
Jac
de
Lad | Juuuuhuuuuhh!!  |
|
| |
| 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 | 04.08.2008 ▲ |
|
| |
|
(540)
Deutsch
English
Français
Español
Italia