| |
|
|
Stephie | Erstmal a Please, How place I here whom code as list dar ? Please my wandeln, who the right moreover has, THANK YOU. so now To my Anliegn. I call over my Menu a Output, in the defined things showing should. the Window should on Tastendruck or a Button closed go, the Mainwindow but should not thereby closed go. have plenty red and rumprobiert, so I now Real not any more wisely I make should. (by me lock itself then too the Mainwindow, have this part again deleted as a precaution).
here my code : '----- ini spending -----
Proc ini-spending
Declare Listbox%,Dlg%
SetTrueColor 1
Cls @RGB(255,255,255)
Dlg% = @Create("Dialog",%Hwnd,cover$,300,100,400,500)
ListBox%=@CreateListBox(Dlg%,"",10,10,370,410)
@AddStrings(ListBox%,"Familie in the network Version 1.0 portable")
@AddStrings(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
@AddStrings(ListBox%," ")
@AddStrings(ListBox%,"ini - Zuweisungen")
@AddStrings(ListBox%,"Fin.ini = "+Prini$)
@AddStrings(ListBox%,"Sprache = "+Menuini$)
@AddStrings(ListBox%," ")
@AddStrings(ListBox%,"Ordner - Zuweisungen")
@AddStrings(ListBox%,Backup$)
@AddStrings(ListBox%,example$)
@AddStrings(ListBox%,Images$)
@AddStrings(ListBox%,File$)
@AddStrings(ListBox%,Dummys$)
@AddStrings(ListBox%,extensions$)
@AddStrings(ListBox%,Fonts$)
@AddStrings(ListBox%,Wallpapers$)
@AddStrings(ListBox%,welt$)
@AddStrings(ListBox%,Languages$)
@AddStrings(ListBox%,Tafelbilder$)
@AddStrings(ListBox%,Vorlagen$)
@AddStrings(ListBox%,Wiki$)
ENDPROC
|
|
|
| |
|
|
|
Julian Schmidt | If I you correctly. understand want You just one dialog-Window close without the Mainwindow with zuschließen!?
declare Dlg%
User Messages $10
Windowstyle 24
Window 100,200-300,250
ini-spending
while 1
waitinput
if CloseWindow(Dlg%)
destroywindow(Dlg%)
elseif CloseWindow(%hwnd)
break
Endif
Endwhile
end
Proc ini-spending
Declare Listbox%
SetTrueColor 1
Cls @RGB(255,255,255)
Dlg% = @Create("Dialog",%Hwnd,"",300,100,400,500)
ListBox%=@Create("ListBox",Dlg%,"",10,10,370,410)
@AddStrings(ListBox%,"Familie in the network Version 1.0 portable")
@AddStrings(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
@AddStrings(ListBox%," ")
@AddStrings(ListBox%,"ini - Zuweisungen")
@AddStrings(ListBox%,"Fin.ini = "+"")
@AddStrings(ListBox%,"Sprache = "+"")
@AddStrings(ListBox%," ")
@AddStrings(ListBox%,"Ordner - Zuweisungen")
@AddStrings(ListBox%,"")
@AddStrings(ListBox%,"")
@AddStrings(ListBox%,"")
@AddStrings(ListBox%,"")
@AddStrings(ListBox%,"")
@AddStrings(ListBox%,"")
@AddStrings(ListBox%,"")
@AddStrings(ListBox%,"")
@AddStrings(ListBox%,"")
@AddStrings(ListBox%,"")
@AddStrings(ListBox%,"")
@AddStrings(ListBox%,"")
@AddStrings(ListBox%,"")
ENDPROC
Proc CloseWindow
Parameters hdl&
var x%=0
if %UMessage = $10
case GetActiveWindow()=hdl& : x%=1
Endif
Return x%
ENDPROC
|
|
|
| |
|
|
|
Stephie | so first thanks for the whom code so ready made has. but How make I the for future ? what must I there prompt lest always your the for me make must. now To you Julian57, I call of my Mainwindow over which Menu this Dialog-Window on. after I look can, the everything yet i.O. is, would like I through einfachen pressure of/ one Button (z.B. waitinput) or a Button the under in the dialog-Window attend could, this dialog close, circa then in the Mainwindow weiterarbeiten to. with the Waitinput happens nothing, with the Button (if I whom einbaue) close so did i the Mainwindow. it ought to means a routine be installed, The of my erachtens in the Proc ini-spending To Endproc stand should.
Greeting Stephie (PS: have well with the first inquire my names forget, fetch I now to.) |
|
|
| |
|
|
|
E.T. | time without Messages To "verbiegen" and without Extra-Proc:
CLS'Mainwindow create
var Btn1& = Create("Button",%HWnd,,"ini-spending aufrufen",10,10,200,25)'selbsterklärend
var ProgEnde% = 0
WhileNot ProgEnde%'Waiting...
waitinput
If @Clicked(Btn1&)
ini_Ausgabe'appeal ini-spending, whether over this Button or Menu is your thing
ElseIf %Key = 2'close-Cross in the Mainwindow
Progende% = 100'Program terminate
EndIF
EndWhile
end
Proc ini_Ausgabe'KEIN BINDESTRICH!!!
Declare Listbox%,Dlg%, cover$'div. declaration missing, Have whom remainder under as String taken
cover$ = "Testbox"
SetTrueColor 1
Cls @RGB(255,255,255)
Window Style 1024
Dlg% = @Create("Dialog",%Hwnd,cover$,300,100,400,500)
ListBox%=@CreateListBox(Dlg%,"",10,10,370,410)
@AddStrings(ListBox%,"Familie in the network Version 1.0 portable")
@AddStrings(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
@AddStrings(ListBox%," ")
@AddStrings(ListBox%,"ini - Zuweisungen")
@AddStrings(ListBox%,"Fin.ini = "+"Prini$")
@AddStrings(ListBox%,"Sprache = "+"Menuini$")
@AddStrings(ListBox%," ")
@AddStrings(ListBox%,"Ordner - Zuweisungen")
@AddStrings(ListBox%,"Backup$")
@AddStrings(ListBox%,"Beispiel$")
@AddStrings(ListBox%,"Bilder$")
@AddStrings(ListBox%,"Datei$")
@AddStrings(ListBox%,"Dummys$")
@AddStrings(ListBox%,"Erweiterungen$")
@AddStrings(ListBox%,"Fonts$")
@AddStrings(ListBox%,"Hintergrundbild$")
@AddStrings(ListBox%,"Rahmen$")
@AddStrings(ListBox%,"Sprachen$")
@AddStrings(ListBox%,"Tafelbilder$")
@AddStrings(ListBox%,"Vorlagen$")
@AddStrings(ListBox%,"Wiki$")
var Ini_Ende_Btn& = @Create("Button",Dlg%,"ini-spending beenden",10,@Height(Dlg%)-30,300,25)'Button to that terminate the spending
var Ini_Ende% = 0
Enablewindow %Hwnd,0'Mainwindow deaktivieren
WhileNot Ini_Ende%
waitinput'Waiting, To Dlg% over Button closed becomes
Case @Clicked(Ini_Ende_Btn&): Ini_Ende% = 1
EndWhile
DestroyWindow(Dlg%)'dialog destroy
Enablewindow %Hwnd,1'Mainwindow again enable
Setwindowpos %HWnd = %WinLeft,%WinTop;0'Window again into Vordergrund fetch
ENDPROC
hope, the helps something... by me functions the fine |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 08/19/11 ▲ |
|
|
|
|
Dietmar Horn | Hello Stephie,
i was the Bösewicht been, the itself on Your code out of print has.
to whom code setting You [~CODE] and thereafter [~/CODE] - without "~".
Greeting Dietmar |
|
|
| Multimedia 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: [...] | 08/19/11 ▲ |
|
|
|
|
Jörg Sellmeyer |
to whom code setting You [~CODE] and thereafter [~/CODE] - without "~".
or yet plainer: over this Beitragstextedit is a groin with "Beitrag|Schrift|Smilies" and end one small arrow. whom klick at times... |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/19/11 ▲ |
|
|
|
|
Julian Schmidt | Dietmar horn (19.08.11)
to whom code setting You [~CODE] and thereafter [~/CODE] - without "~".
Simple over the Menu aufzurufen...
[OFFTOPIC]hmmm.....Jörg was faster [/OFFTOPIC] |
|
|
| |
|
|
|
Jörg Sellmeyer | here too yet my Variante To Window close:
|
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08/19/11 ▲ |
|
|
|
|
|
|
|
| |
|
|
|
Stephie | Boh where catch I .... So I have me for suggestion of E.T. decided, I it too understand can, take off me important is.
Tja if I the now with the code and all whom others thousand things forget ought to, then would it Yes embarrassing with so many Information.
DAHER THANK YOU AN ALLE. |
|
|
| |
|
|
|
| are Welcome!
there You a (public) Mitgliedsnamen chosen have, have You (automatically)
too one (public) Profil: [...] |
|
|
| |
|
|