XProfan

English

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 -----

Compile Mark Separation

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

08/18/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

If I you correctly. understand want You just one dialog-Window close without the Mainwindow with zuschließen!?

Compile Mark Separation

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

XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

08/18/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

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.)

08/19/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

time without Messages To "verbiegen" and without Extra-Proc:

Compile Mark Separation

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 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

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 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

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 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

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]

code.jpg	44 kB

Hochgeladen:	08/19/11

Downloadcounter:
		Download

08/19/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

here too yet my Variante To Window close:

Compile Mark Separation

User Messages $10
Def CloseDlg(1) (%umessage = $10) And (GetActiveWindow() = &(1))
Cls
Var dlg& = Create("Dialog",%hwnd,"Dialog",100,100,200,400)

While 1

    WaitInput

    If CloseDlg(%hwnd)

        Break

    ElseIf CloseDlg(dlg&)

        DestroyWindow(dlg&)

    EndIf

Wend

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

08/19/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hello Stephie,

Untitled (19.08.11)

... has. but How make I the for future?

the goes integrally slight.

after You whom View source into Beitragseditorfeld eingefügt have markierst You whom View source simply and dial (How in the subesquent Screenshot pictured) "Quelltext" from. The markierte Beitragstext becomes then with [CODE]...[/CODE] umrandet with which it as View source marked is.

Untitled (19.08.11)

(PS: have well with the first inquire my names forget, fetch I now to.)

yet plainer is it if you your (Lieblings-)Mitgliedsnamen here festlegst: [...]

likewise could one Anzeigebild/ Avatar for you determine: [...]

the are everything Options under my-XProfan: [...]

then sees one automatically who the Urheber one Beitrages is and then have You too one Profil the You with further (optionalen) indicated bereichern can.

~~schritt.png~~

10 kB

Hochgeladen:

08/19/11

Downloadcounter:

~~Download~~

~~ergebnis.png~~

4 kB

Hochgeladen:

08/19/11

Downloadcounter:

~~Download~~

XProfan X2, XProfan 11
Win7 Home Premium, SP1, Core(TM)2 Duo E6750 @ 2.66GHz

08/19/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

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.

XProfan 11

08/19/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

are Welcome!