XProfan

Español

Stephie

Erstmal una Bitte, como lugar Yo hier el código como Liste dar ?
Bitte media wandeln, wer el Recht dazu ha, DANKE.
So nun a mi Anliegn. Yo rufe encima mein Menu una Edición en, en el cierto Sachen adecuado voluntad debería. Das Ventana se en Tastendruck oder encima una Button geschlossen voluntad, la ventana principal sino que debe no esta geschlossen voluntad.
Posesiones viel gelesen y rumprobiert, así dass Yo ahora echt no mehr weis Yo hacer se. (En me schloss se entonces auch la ventana principal, habe esta teil otra vez gelöscht sicherheitshalber).

Hier mein Code :
'----- ini Edición -----

Kompilieren Marca Separación

Proc ini-Edición

    Declarar Listbox%,Dlg%
    SetTrueColor 1
    Cls @RGB(255,255,255)
    Dlg% = @Crear("Dialog",%Hwnd,Titel$,300,100,400,500)
    ListBox%=@CreateListBox(Dlg%,"",10,10,370,410)
    @AddStrings(ListBox%,"Familie en el Netz Versión 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%,Ejemplo$)
    @AddStrings(ListBox%,Bilder$)
    @AddStrings(ListBox%,Expediente$)
    @AddStrings(ListBox%,Dummys$)
    @AddStrings(ListBox%,Erweiterungen$)
    @AddStrings(ListBox%,Fonts$)
    @AddStrings(ListBox%,Hintergrundbild$)
    @AddStrings(ListBox%,Rahmen$)
    @AddStrings(ListBox%,Idiomas$)
    @AddStrings(ListBox%,Tafelbilder$)
    @AddStrings(ListBox%,Vorlagen$)
    @AddStrings(ListBox%,Wiki$)

ENDPROC

18.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Wenn Yo dich correcto verstehe willst du simplemente sólo una Diálogo-Ventana schließen sin la ventana principal con zuschließen!?

Kompilieren Marca Separación

declarar Dlg%
Mensajes del usuario $10
Windowstyle 24
Ventana 100,200-300,250
ini-Edición

mientras que 1

    waitinput

    if CloseWindow(Dlg%)

        destroywindow(Dlg%)

    elseif CloseWindow(%hwnd)

        romper

    Endif

Endwhile

end

Proc ini-Edición

    Declarar Listbox%
    SetTrueColor 1
    Cls @RGB(255,255,255)
    Dlg% = @Crear("Dialog",%Hwnd,"",300,100,400,500)
    ListBox%=@Crear("ListBox",Dlg%,"",10,10,370,410)
    @AddStrings(ListBox%,"Familie en el Netz Versión 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

    Parámetros hdl&
    var x%=0

    if %UMessage = $10

        caso GetActiveWindow()=hdl& : x%=1

    Endif

    Volver x%

ENDPROC

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

18.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Stephie

So primero Gracias para el el el código así fertig gemacht ha. Aber como mache Yo el para el Zukunft ? Was muss Yo como Eingeben así no siempre Ihr el para mich hacer müsst.
Nun a Usted Julian57, Yo rufe de mi Ventana principal encima dessen Menu dieses Dialogfenster en. Nachdem Yo schauen kann, el alles todavía i.O. es, möchte Yo por einfachen Druck uno Taste (z.B. waitinput) oder encima una Button el unten en el Diálogo-Ventana erscheinen podría, esta Diálogo schliessen, en entonces en el Ventana principal weiterarbeiten a puede.
Mit el Waitinput passiert nichts, con el Button (si yo el einbaue) schliesse Yo auch la ventana principal.
Lo debería also una Rutina se instalará, el meines erachtens en el Proc ini-Edición a ENDPROC posición debería.

Saludo Stephie
(PS: Posesiones wohl en ersten Anfrage media Namen vergessen, Hole Yo ahora después de.)

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Tiempo sin Messages a "verbiegen" y sin Extra-Proc:

Kompilieren Marca Separación

CLS'Ventana principal redactar
var Btn1& = Crear("Button",%HWnd,,"ini-Edición aufrufen",10,10,200,25)'selbsterklärend
var ProgEnde% = 0

Sinestar encargado ProgEnde%'warten...

    waitinput

    If @Clicked(Btn1&)

        ini_Ausgabe'Aufruf ini-Edición, si encima esta Button oder Menü es deine Sache

    ElseIf %Key = 2'Schliessen-Cruz en el Ventana principal

        Progende% = 100'Programa final

    EndIF

EndWhile

end

Proc ini_Ausgabe'KEIN BINDESTRICH!!!

    Declarar Listbox%,Dlg%, Titel$'div. declaration fehlt, tener el Rest unten como String genommen
    Titel$ = "Testbox"
    SetTrueColor 1
    Cls @RGB(255,255,255)
    Ventana de Estilo 1024
    Dlg% = @Crear("Dialog",%Hwnd,Titel$,300,100,400,500)
    ListBox%=@CreateListBox(Dlg%,"",10,10,370,410)
    @AddStrings(ListBox%,"Familie en el Netz Versión 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& = @Crear("Button",Dlg%,"ini-Edición beenden",10,@Height(Dlg%)-30,300,25)'Button para final el Edición
    var Ini_Ende% = 0
    Enablewindow %Hwnd,0'Ventana principal deaktivieren

    Sinestar encargado Ini_Ende%

        waitinput'warten, a Dlg% encima Button geschlossen se
        Case @Clicked(Ini_Ende_Btn&): Ini_Ende% = 1

    EndWhile

    DestroyWindow(Dlg%)'Diálogo zerstören
    Enablewindow %Hwnd,1'Ventana principal otra vez aktivieren
    Setwindowpos %HWnd = %WinLeft,%WinTop;0'Ventana otra vez en el Vordergrund holen

ENDPROC

Hoffe, el hilft algo...

en me funktioniert el 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 Cita Zeilenweise Cita

Dietmar
Horn

¡Hola Stephie,

Yo war el Bösewicht gewesen, el se a Deinem Code vergriffen ha.

Vor el código setzt Usted [~CODE] y danach [~/CODE] - sin "~".

Saludo
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 Cita Zeilenweise Cita

Jörg
Sellmeyer

Vor el código setzt Usted [~CODE] y danach [~/CODE] - sin "~".

oder todavía einfacher: encima diesem Beitragstextedit es una Leiste con "Beitrag|Schrift|Smilies" y al Ende una kleiner Pfeil. Den klick veces a...

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

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Dietmar Horn (19.08.11)

Vor el código setzt Usted [~CODE] y danach [~/CODE] - sin "~".

Simple encima el Menu aufzurufen...

[OFFTOPIC]hmmm.....Jörg war más rápido

[/OFFTOPIC]

code.jpg	44 kB

Hochgeladen:	19.08.2011

Ladeanzahl:
		Descargar

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Hier auch todavía mi Variante a Ventana schließen:

Kompilieren Marca Separación

Mensajes del usuario $10
Def CloseDlg(1) (%umessage = $10) And (GetActiveWindow() = &(1))
Cls
Var dlg& = Crear("Dialog",%hwnd,"Dialog",100,100,200,400)

Mientras que 1

    WaitInput

    If CloseDlg(%hwnd)

        Romper

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

¡Hola Stephie,

Unbenannt (19.08.11)

... ha. Aber como mache Yo el para el Zukunft?

Es bastante ligeramente.

Nachdem Usted el Ver código fuente en el Beitragseditorfeld eingefügt hast markierst Usted el Ver código fuente simplemente y wählst (como en el folgenden Screenshot abgebildet) "Quelltext" de. Der markierte Beitragstext se entonces con [CODE]...[/CODE] umrandet womit él como Ver código fuente gekennzeichnet es.

Unbenannt (19.08.11)

(PS: Posesiones wohl en ersten Anfrage media Namen vergessen, Hole Yo ahora después de.)

Noch einfacher es si Su (Lieblings-)Mitgliedsnamen hier festlegst: [...]

También könntest una Anzeigebild/ Avatar para Usted festlegen: [...]

Das son alles Optionen bajo Mein-XProfan: [...]

Dann sieht uno automáticamente wer el Urheber uno Beitrages es y luego hast Usted auch una Perfil el Usted con más (optionalen) Angaben bereichern kannst.

~~schritt.png~~

10 kB

Hochgeladen:

19.08.2011

Ladeanzahl:

~~Descargar~~

~~ergebnis.png~~

4 kB

Hochgeladen:

19.08.2011

Ladeanzahl:

~~Descargar~~

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

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Stephie

Boh Wo fange Yo a ....
Also Yo mich para el Vorschlag de E.T. entschieden, como Yo auch nachvollziehen kann, qué para mich wichtig es.

Tja si yo el ahora con el Code y all el otro tausend Sachen vergessen debería, entonces wäre lo sí peinlich en así vielen Informationen.

DAHER DANKE AN ALLE.

XProfan 11

19.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Bist willkommen!