| |
| |
|
Nico | Hi,
I use Profan since a half-way year and having me demand whether it possible is about one Window in the background one dialog to create, the as 2. Window over the 1. lying.
The dialog should in example so looks:
CompileMarkSeparationDECLARE EDIT1&
DECLARE ok&
DECLARE ende%
DECLARE spieler$
WINDOW 22,20-645,163
EDIT1& = CREATE("EDIT",%HWND,"",0022,0024,0120,0020)
ok& = CREATE("BUTTON",%HWND,"OK",0168,0026,0117,0030)
SETFOCUS(EDIT1&)
WHILENOT ENDE%
IF GETFOCUS(ok&)
ENDE%=1
LET ENDE%= 1
spieler$ = gettext$(EDIT1&)
ende%=2
endif
WEND
would be beautiful, if your me there a simple Possibility explain can. 
- Nico |
|
| |
| |
| |
|
|
 | Something like?
CompileMarkSeparationuserMessages 16
cls
var dlg&=Create("Dialog",%hWnd,"Dialog",100,100,200,200)
var btn&=Create("Button",dlg&,"Button",10,10,90,20)
while 1
waitinput
select %uMessage
caseof 16 : break
endSelect
wend
end
|
|
| |
| |
| |
|
|
Nico | | very the, thanks |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Nico | another further question, how can I the program moreover run, after itself the dialog-Window closed has, and how can I in Hintergundfenster one Load image?
Presentation:
CompileMarkSeparationcls
DECLARE ende%
DECLARE spieler$
var dlg&=Create("Dialog",%hWnd,"Dialog",100,100,200,200)
var EDIT1& = CREATE("EDIT",dlg&,"",0022,0024,0120,0020)
var ok& = Create("BUTTON",dlg&,"OK",08,0096,0117,0030)
SETFOCUS(EDIT1&)
WHILENOT ENDE%
IF GETFOCUS(ok&)
ENDE%=1
LET ENDE%= 1
spieler$ = gettext$(EDIT1&)
ende%=2
endif
WEND
waitkey
end
|
|
| |
| |
| |
|
|
Dietmar
Horn | Hello Nico,
look you simply time my XProfan-Textbook on. there are such things (and yet plenty More) in the volume 1 into first Kapiteln in detail described.
Greeting
Dietmar |
|
| |
| XProfan X2Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]  Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 06/18/12 ▲ |
|
| |
|
|
Nico | The problem is, I already some Basics rule, and me not by the whole Neueinsteiger-stuff reading would like. i know, the sound rotten, but here To ask erschließt itself me then nevertheless as better Possibility
As I said, my question exists yet |
|
| |
| |
| |
|
|
| Like that?
CompileMarkSeparationuserMessages 16
cls
var dlg&=Create("Dialog",%hWnd,"Dialog",100,100,200,200)
var btn&=create("Button",dlg&,"Button",10,10,90,20)
var dlgIstOffen&=1
var bild&=create("hNewPic",320,200,$FF0000)
startpaint bild&
whileLoop 1000
setpixel rnd(320),rnd(200),rnd($FFFFFF)
wend
endpaint
drawPic bild&,0,0;0
deleteObject bild&
while 1
waitinput
select %uMessage
caseof 16
select &UWnd
caseof dlg&
if dlgIstOffen&
dlgIstOffen&=0
destroyWindow(dlg&)
endif
caseof %hWnd : break
endSelect
endSelect
wend
end
|
|
| |
| |
| |
|
(1.111)
Deutsch
English
Français
Español
Italia