XProfan

Français

Stephie

Erstmal une s'il te plaît, comment lieu je ici den Code comme liste dar ?
s'il te plaît meinen wandeln, qui cela droite en supplément hat, DANKE.
So eh bien trop meinem Anliegn. j'appelle sur mon Menu une Ausgabe sur, dans qui bestimmte Sachen angezeigt volonté devoir. cela la fenêtre soll sur Tastendruck ou bien sur une Button geschlossen volonté, cela Hauptfenster mais devrait pas dabei geschlossen volonté.
Habe viel gelesen et rumprobiert, so dass je maintenant vraie pas plus weis quoi je faire soll. (chez mir schloss sich ensuite aussi cela Hauptfenster, habe cette partie wieder gelöscht sicherheitshalber).

ici mon Code :
'----- ini Ausgabe -----

Kompilieren Marque Séparation

Proc ini-Ausgabe

    Déclarer Listbox%,Dlg%
    SetTrueColor 1
    Cls @RGB(255,255,255)
    Dlg% = @Créer("Dialog",%Hwnd,Titel$,300,100,400,500)
    ListBox%=@CreateListBox(Dlg%,»,10,10,370,410)
    @AddStrings(ListBox%,"Familie im Netz 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%,Dossier$)
    @AddStrings(ListBox%,Dummys$)
    @AddStrings(ListBox%,Erweiterungen$)
    @AddStrings(ListBox%,Fonts$)
    @AddStrings(ListBox%,Hintergrundbild$)
    @AddStrings(ListBox%,cadre$)
    @AddStrings(ListBox%,Sprachen$)
    @AddStrings(ListBox%,Tafelbilder$)
    @AddStrings(ListBox%,Vorlagen$)
    @AddStrings(ListBox%,Wiki$)

ENDPROC

18.08.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

si je toi richtig verstehe veux du simple seulement un Dialog-la fenêtre schließen sans cela Hauptfenster avec zuschließen!?

Kompilieren Marque Séparation

declare Dlg%
Utilisateur Messages $10
Windowstyle 24
Fenêtre 100,200-300,250
ini-Ausgabe

tandis que 1

    waitinput

    si CloseWindow(Dlg%)

        destroywindow(Dlg%)

    elseif CloseWindow(%hwnd)

        pause

    Endif

Endwhile

end

Proc ini-Ausgabe

    Déclarer Listbox%
    SetTrueColor 1
    Cls @RGB(255,255,255)
    Dlg% = @Créer("Dialog",%Hwnd,»,300,100,400,500)
    ListBox%=@Créer(ListBox,Dlg%,»,10,10,370,410)
    @AddStrings(ListBox%,"Familie im Netz 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

    Paramètres hdl&
    var x%=0

    si %UMessage = $10

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

    Endif

    Retour x%

ENDPROC

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

18.08.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Stephie

So erstmal merci pour den qui den Code so fertig gemacht hat. mais comment fais je cela pour qui Zukunft ? quoi muss je là Eingeben avec cela pas toujours son cela pour mich faire müsst.
eh bien trop Dir Julian57, j'appelle de meinem Hauptfenster sur dessen Menu cet Dialogfenster sur. après que je regarder peux, cela alles encore i.O. ist, voudrais je par einfachen Druck einer bouton (z.B. waitinput) ou bien sur une Button qui unten im Dialog-la fenêtre erscheinen pourrait, cette Dialog schliessen, um ensuite im Hauptfenster weiterarbeiten trop peut.
avec dem Waitinput passiert rien, avec dem Button (si Je l' einbaue) schliesse je aussi cela Hauptfenster.
Es sollte alors une Routine incorporé volonté, qui meines erachtens dans dem Proc ini-Ausgabe jusqu'à ENDPROC stehen devrait.

Salut Stephie
(PS: Habe wohl chez qui ersten Anfrage meinen Namen oublier qc, Hole je maintenant pour.)

19.08.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

la fois sans Messages trop "verbiegen" et sans Extra-Proc:

Kompilieren Marque Séparation

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

WhileNot ProgEnde%'attendre...

    waitinput

    Si @Clicked(Btn1&)

        ini_Ausgabe'Aufruf ini-Ausgabe, si sur cette Button ou bien menu ist deine l'affaire

    ElseIf %Key = 2'Schliessen-Croix im Hauptfenster

        Progende% = 100'Programme finissons

    EndIF

Endwhile

end

Proc ini_Ausgabe'KEIN BINDESTRICH!!!

    Déclarer Listbox%,Dlg%, Titel$'div. declaration fehlt, hab den reste unten comme String pris
    Titel$ = "Testbox"
    SetTrueColor 1
    Cls @RGB(255,255,255)
    Fenêtre Style 1024
    Dlg% = @Créer("Dialog",%Hwnd,Titel$,300,100,400,500)
    ListBox%=@CreateListBox(Dlg%,»,10,10,370,410)
    @AddStrings(ListBox%,"Familie im Netz 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& = @Créer("Button",Dlg%,"ini-Ausgabe beenden",10,@Height(Dlg%)-30,300,25)'Button zum finissons qui Ausgabe
    var Ini_Ende% = 0
    Enablewindow %Hwnd,0'Hauptfenster désactiver

    WhileNot Ini_Ende%

        waitinput'attendre, jusqu'à Dlg% sur Button geschlossen wird
        Cas @Clicked(Ini_Ende_Btn&): Ini_Ende% = 1

    Endwhile

    DestroyWindow(Dlg%)'Dialog anéantir
    Enablewindow %Hwnd,1'Hauptfenster wieder aktivieren
    Setwindowpos %HWnd = %WinLeft,%WinTop;0'la fenêtre wieder dans den Vordergrund holen

ENDPROC

Hoffe, cela hilft quelque chose...

chez mir funktioniert cela 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 citation

Absatzweise Citation Zeilenweise Citation

Dietmar
Horn

allô Stephie,

j'étais qui Bösewicht gewesen, qui sich à Deinem Code vergriffen hat.

avant den Code mets Du [~CODE] et après [~/CODE] - sans "~".

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

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

avant den Code mets Du [~CODE] et après [~/CODE] - sans "~".

ou bien encore einfacher: sur diesem Beitragstextedit ist une Leiste avec "Beitrag|Schrift|Smilies" et am Ende un kleiner flèche. Den klick la fois à...

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

19.08.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

Dietmar Horn (19.08.11)

avant den Code mets Du [~CODE] et après [~/CODE] - sans "~".

Simple sur cela Menu aufzurufen...

[OFFTOPIC]hmmm.....Jörg était plus rapide

[/OFFTOPIC]

code.jpg	44 kB

Hochgeladen:	19.08.2011

Downloadcounter:
		Download

19.08.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

ici aussi encore mon variante trop la fenêtre schließen:

Kompilieren Marque Séparation

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

Tandis que 1

    WaitInput

    Si CloseDlg(%hwnd)

        Pause

    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 citation

Absatzweise Citation Zeilenweise Citation

allô Stephie,

Unbenannt (19.08.11)

... hat. mais comment fais je cela pour qui Zukunft?

cela allez entier léger.

après que Du den Voir le texte source dans cela Beitragseditorfeld eingefügt la hâte markierst Du den Voir le texte source simple et wählst (comment im folgenden Screenshot abgebildet) "Quelltext" aus. qui markierte Beitragstext wird ensuite avec [CODE]...[/CODE] umrandet womit il comme Voir le texte source gekennzeichnet ist.

Unbenannt (19.08.11)

(PS: Habe wohl chez qui ersten Anfrage meinen Namen oublier qc, Hole je maintenant pour.)

encore einfacher ist es si Du Deinen (Lieblings-)Mitgliedsnamen ici festlegst: [...]

Ebenso könntest un Anzeigebild/ Avatar pour toi festlegen: [...]

ce sont alles Optionen sous mon-XProfan: [...]

ensuite sieht on automatisch qui qui Urheber eines Beitrages ist et ensuite la hâte Du aussi un Profil cela Du avec weiteren (optionalen) Angaben bereichern peux.

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

Absatzweise Citation Zeilenweise Citation

Stephie

Boh wohin fange je à ....
alors j'ai mich pour den Vorschlag de E.T. entschieden, là je es aussi nachvollziehen peux, quoi pour mich important ist.

Tja si je cela maintenant avec dem Code et espace den anderen mille Sachen oublier qc sollte, ensuite wäre es oui pénible chez so vielen Informationen.

DAHER DANKE AN ALLE.

XProfan 11

19.08.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

es willkommen!