XProfan

Italia

Stephie

Erstmal eine Bitte, wie stelle ich hier den Code als Liste dar ?
Bitte meinen wandeln, wer das Recht dazu hat, DANKE.
So nun zu meinem Anliegn. Ich rufe circa mein Menu eine Ausgabe auf, in der bestimmte Sachen angezeigt werden sollen. Das Fenster soll auf Tastendruck oder circa einen Button geschlossen werden, das Hauptfenster soll aber nicht dabei geschlossen werden.
Habe viel gelesen und rumprobiert, so dass ich jetzt echt nicht mehr weis was ich machen soll. (Bei mir schloss sich dann auch das Hauptfenster, habe diesen teil wieder gelöscht sicherheitshalber).

Hier mein Code :
'----- ini Ausgabe -----

Kompilieren Markieren Separieren

Proc ini-Ausgabe

    Declare Listbox%,Dlg%
    SetTrueColor 1
    Cls @RGB(255,255,255)
    Dlg% = @Create("Dialog",%Hwnd,Titel$,300,100,400,500)
    ListBox%=@CreateListBox(Dlg%,"",10,10,370,410)
    @AddString(ListBox%,"Familie im Netz Version 1.0 portable")
    @AddString(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
    @AddString(ListBox%," ")
    @AddString(ListBox%,"ini - Zuweisungen")
    @AddString(ListBox%,"Fin.ini = "+Prini$)
    @AddString(ListBox%,"Sprache = "+Menuini$)
    @AddString(ListBox%," ")
    @AddString(ListBox%,"Ordner - Zuweisungen")
    @AddString(ListBox%,Backup$)
    @AddString(ListBox%,Beispiel$)
    @AddString(ListBox%,Bilder$)
    @AddString(ListBox%,File$)
    @AddString(ListBox%,Dummys$)
    @AddString(ListBox%,Erweiterungen$)
    @AddString(ListBox%,Fonts$)
    @AddString(ListBox%,Hintergrundbild$)
    @AddString(ListBox%,Rahmen$)
    @AddString(ListBox%,Sprachen$)
    @AddString(ListBox%,Tafelbilder$)
    @AddString(ListBox%,Vorlagen$)
    @AddString(ListBox%,Wiki$)

EndProc

18.08.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Julian
Schmidt

Wenn ich dich richtig verstehe willst du einfach nur ein Dialog-Fenster schließen ohne das Hauptfenster mit zuschließen!?

Kompilieren Markieren Separieren

declare Dlg%
UserMessages $10
Windowstyle 24
Window 100,200-300,250
ini-Ausgabe

while 1

    waitinput

    if CloseWindow(Dlg%)

        destroywindow(Dlg%)

    elseif CloseWindow(%hwnd)

        break

    Endif

Endwhile

end

Proc ini-Ausgabe

    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)
    @AddString(ListBox%,"Familie im Netz Version 1.0 portable")
    @AddString(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
    @AddString(ListBox%," ")
    @AddString(ListBox%,"ini - Zuweisungen")
    @AddString(ListBox%,"Fin.ini = "+"")
    @AddString(ListBox%,"Sprache = "+"")
    @AddString(ListBox%," ")
    @AddString(ListBox%,"Ordner - Zuweisungen")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(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 [...]

18.08.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Stephie

So erstmal Danke per den der den Code so fertig gemacht hat. Aber wie mache ich das per die Zukunft ? Was muss ich da Eingeben damit nicht immer Ihr das per mich machen müsst.
Nun zu Dir Julian57, Ich rufe von meinem Hauptfenster circa dessen Menu dieses Dialogfenster auf. Nachdem ich schauen kann, das alles noch i.O. ist, möchte ich durch einfachen Druck einer Taste (z.B. waitinput) oder circa einen Button der unten im Dialog-Fenster erscheinen potuto, diesen Dialog schliessen, um dann im Hauptfenster weiterarbeiten zu können.
Mit dem Waitinput passiert nichts, mit dem Button (wenn Io l' einbaue) schliesse ich auch das Hauptfenster.
Es sollte also eine Routine eingebaut werden, die meines erachtens in dem Proc ini-Ausgabe bis Endproc stehen müsste.

Saluto Stephie
(PS: Habe wohl bei der ersten Anfrage meinen Namen vergessen, Hole ich jetzt nach.)

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

E.T.

Mal ohne Messages zu "verbiegen" und ohne Extra-Proc:

Kompilieren Markieren Separieren

CLS'Hauptfenster erstellen
var Btn1& = Create("Button",%HWnd,,"ini-Ausgabe aufrufen",10,10,200,25)'selbsterklärend
var ProgEnde% = 0

WhileNot ProgEnde%'warten...

    waitinput

    If @Clicked(Btn1&)

        ini_Ausgabe'Aufruf ini-Ausgabe, ob circa diesen Button oder Menü ist deine Sache

    ElseIf %Key = 2'Schliessen-Kreuz im Hauptfenster

        Progende% = 100'Programm beenden

    EndIF

EndWhile

end

Proc ini_Ausgabe'KEIN BINDESTRICH!!!

    Declare Listbox%,Dlg%, Titel$'div. declaration fehlt, hab den Rest unten als String genommen
    Titel$ = "Testbox"
    SetTrueColor 1
    Cls @RGB(255,255,255)
    WindowStyle 1024
    Dlg% = @Create("Dialog",%Hwnd,Titel$,300,100,400,500)
    ListBox%=@CreateListBox(Dlg%,"",10,10,370,410)
    @AddString(ListBox%,"Familie im Netz Version 1.0 portable")
    @AddString(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
    @AddString(ListBox%," ")
    @AddString(ListBox%,"ini - Zuweisungen")
    @AddString(ListBox%,"Fin.ini = "+"Prini$")
    @AddString(ListBox%,"Sprache = "+"Menuini$")
    @AddString(ListBox%," ")
    @AddString(ListBox%,"Ordner - Zuweisungen")
    @AddString(ListBox%,"Backup$")
    @AddString(ListBox%,"Beispiel$")
    @AddString(ListBox%,"Bilder$")
    @AddString(ListBox%,"Datei$")
    @AddString(ListBox%,"Dummys$")
    @AddString(ListBox%,"Erweiterungen$")
    @AddString(ListBox%,"Fonts$")
    @AddString(ListBox%,"Hintergrundbild$")
    @AddString(ListBox%,"Rahmen$")
    @AddString(ListBox%,"Sprachen$")
    @AddString(ListBox%,"Tafelbilder$")
    @AddString(ListBox%,"Vorlagen$")
    @AddString(ListBox%,"Wiki$")
    var Ini_Ende_Btn& = @Create("Button",Dlg%,"ini-Ausgabe beenden",10,@Height(Dlg%)-30,300,25)'Button zum beenden der Ausgabe
    var Ini_Ende% = 0
    Enablewindow %Hwnd,0'Hauptfenster deaktivieren

    WhileNot Ini_Ende%

        waitinput'warten, bis Dlg% circa Button geschlossen wird
        Case @Clicked(Ini_Ende_Btn&): Ini_Ende% = 1

    EndWhile

    DestroyWindow(Dlg%)'Dialog zerstören
    Enablewindow %Hwnd,1'Hauptfenster wieder aktivieren
    Setwindowpos %HWnd = %WinLeft,%WinTop;0'Fenster wieder in den Vordergrund holen

EndProc

Hoffe, das hilft etwas...

bei mir funktioniert das bestens

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

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Dietmar
Horn

Hallo Stephie,

ich war der Bösewicht gewesen, der sich an Deinem Code vergriffen hat.

Vor den Code setzt Du [~CODE] und danach [~/CODE] - ohne "~".

Saluto
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: [...]

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Vor den Code setzt Du [~CODE] und danach [~/CODE] - ohne "~".

oder noch einfacher: circa diesem Beitragstextedit ist eine Leiste mit "Beitrag|Schrift|Smilies" und am Ende ein kleiner Pfeil. Den klick mal an...

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

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Julian
Schmidt

Dietmar Horn (19.08.11)

Vor den Code setzt Du [~CODE] und danach [~/CODE] - ohne "~".

Simple circa das Menu aufzurufen...

[OFFTOPIC]hmmm.....Jörg war schneller

[/OFFTOPIC]

code.jpg	44 kB

Hochgeladen:	19.08.2011

Downloadcounter:
		Download

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Hier auch noch meine Variante zu Fenster schließen:

Kompilieren Markieren Separieren

UserMessages $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 ...

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Hallo Stephie,

Unbenannt (19.08.11)

... hat. Aber wie mache ich das per die Zukunft?

Das geht ganz leicht.

Nachdem Du den Quelltext in das Beitragseditorfeld eingefügt hast markierst Du den Quelltext einfach und wählst (wie im folgenden Screenshot abgebildet) "Quelltext" aus. Der markierte Beitragstext wird dann mit [CODE]...[/CODE] umrandet womit er als Quelltext gekennzeichnet ist.

Unbenannt (19.08.11)

(PS: Habe wohl bei der ersten Anfrage meinen Namen vergessen, Hole ich jetzt nach.)

Noch einfacher ist es wenn Du Deinen (Lieblings-)Mitgliedsnamen hier festlegst: [...]

Ebenso könntest ein Anzeigebild/ Avatar per Dich festlegen: [...]

Das sind alles Optionen unter Mein-XProfan: [...]

Dann sieht man automatisch wer der Urheber eines Beitrages ist und dann hast Du auch ein Profilo das Du mit weiteren (optionalen) Angaben bereichern kannst.

~~schritt.png~~

10 kB

Hochgeladen:

19.08.2011

Downloadcounter:

~~Download~~

~~ergebnis.png~~

4 kB

Hochgeladen:

19.08.2011

Downloadcounter:

~~Download~~

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

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Stephie

Boh Wo fange ich an ....
Also ich habe mich per den Vorschlag von E.T. entschieden, da ich es auch nachvollziehen kann, was per mich wichtig ist.

Tja wenn ich das jetzt mit dem Code und all den anderen tausend Sachen vergessen sollte, dann wäre es ja peinlich bei so vielen Informationen.

DAHER DANKE AN ALLE.

XProfan 11

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Bist Benvenuto!