| |
| |
|
Dieter
Zornow | Hi,
might time someone this small example testing, by me exits itself too the Mainwindow, after I the dialog over the Cross closed have. i will only know whether the only me so is or with several around the cause festzustelllen, whether there what not together verträgt.
Vorzugsweise with XProfan 11, because it by me so happens.
CompileMarkSeparation $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
Greeting
Dieter |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 08/03/08 ▲ |
|
| |
|
|
Rolf
Koch | Hi Dieter.
I open whom dialog and click supra the Dialogkreuz. the only what itself by me close is then Correctly the dialog and the Mainwindow remaining open.
Irgendwas is correct with you really not. in a what, but Real comic. |
|
| |
| |
| |
|
|
Jac
de
Lad | |
| |
|
|
Dieter
Zornow | @Rolf: thanks for testing, so slow faith I Geister. I have it even to one Neustart ausprobiert and the same Result. I must time any Hintergrundprogramme How Virenscanner and Firewall stop, whether there something reinfunkt. but the ought to Yes really too unmöglich his.
@Jac: thanks for suggestions but It's all right neither, if I User Messages integrally rauslasse and 2 x with %key = 2 work. Gehts because with you, I faith you have indeed already XProfan 11
I can but time try in the dialog on User Message To change and the
(%uMessage=16) AND (%mWnd=dlg&)
incorporate, whether it itself then still on Mainwindow auswirkt, because How you see work I in dialog Yes with %key = 2
Greeting
Dieter |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 08/03/08 ▲ |
|
| |
|
|
Jac
de
Lad | Hello Dieter!
so funktionierts:
CompileMarkSeparation $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
only 2 Lines 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 | 08/03/08 ▲ |
|
| |
|
|
GDL | Hi,
by me close too both Window.
trouble I had with my Programs too.
once 2 creep walk, must I 2time %umessage inquire.
WinXP,XProfan11
Hello
Georg, the with the Druckbefehlen in the meantime NEN horror get. |
|
| |
| |
| |
|
|
Dieter
Zornow | Jac: Yes so functions it by me too, thanks for Hiilfe, is nevertheless strange, that one such Verrenkungen make must for so a simple thing, the might not his.
@Georg: your Test power me directly glad, i was already near dran on my computer einzuschlagen
Greeting
Dieter |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 08/03/08 ▲ |
|
| |
|
|
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 | 08/03/08 ▲ |
|
| |
|
|
Sato
Pinto | Hello
by me close too both Windows
greeting
Sato |
|
| |
| |
| |
|
|
Dieter
Zornow | thanks Sato, now white I, that not on my computer lying
@Jac: have you stars given now pleased, I stops of course nothing of it but here you are.
Greeting
Dieter |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 08/04/08 ▲ |
|
| |
|
|
| @Jac
Isch willlll Schtärnäääähhh!!!
with full tempo with the head to The next Wand run - then have You each crowd stars ! |
|
| |
| |
| |
|
|
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 | 08/04/08 ▲ |
|
| |
|
(471)
Deutsch
English
Français
Español
Italia