XProfan

Jörg
Sellmeyer

allô Stephanie, la hâte Du maintenant aussi hierher trouvé. Willkommen!

trop Deiner ersten Frage:
si Vous Dossier lädst, la hâte Du oui (wahrscheinlich avec LoadFile$()) ihren Namen. Den peux Du maintenant simple à Deinen regulären Fenstertitel anhängen.
Text$ = "Mein Programme " + Dossier$
Titre de la fenêtre Text$

trop Deiner zweiten Frage spuckt qui cherche ici cet aus:
[...]

je hab simple la fois "Schriftart" eingegeben et à court par qui Titel qui Ergebnisse gesucht. Anhand qui Stichworte peux on ensuite la plus part du temps quoi trouver.
Zugegeben: je konnte mich dunkel erinnern, cela "Pascal" quelque chose comme la fois posté hatte...
Evtl. ist cela Ergebnis seulement pour qui Freeware Version nutzbar. si Du Schwierigkeiten la hâte, cela pour qui 8il-Version umzusetzen, melde toi nochmal.

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

Dietmar
Horn

allô Stephanie,

trop 1.
Kompilieren Marque Séparation

Var x% = 640
Var y% = 240
Var e% = 0
Var Titel$ = "Mein Programm"
Var Zusatz$ = "Keine Datei geladen"
Var Datei$ = ""
'#################
FENSTER

WhileNot e%

    WaitInput

    If (%Key = 2) or Menuitem(199) or MenuItem(999)

        BEENDEN

    ElseIf Menuitem(101)

        DATEI_LADEN

    EndIf

EndWhile

End
'#################

Proc FENSTER

    WindowTitle Titel$ + Space$(2) + "[" + Zusatz$ + "]"
    WindowStyle 8 + 16
    Window ((%MaxX - x%) / 2),((%MaxY - y%) /2) - x%,y%
    MENU

EndProc

Proc MENU

    Popup "Datei"
    AppendMenu 101,"Datei laden"
    Separator
    AppendMenu 199,"Programm beenden"
    AppendMenubar 999,"Beenden"

EndProc

Proc BEENDEN

    e% = 1

EndProc

Proc DATEI_LADEN

    CHDIR "C:\"
    Datei$ = Trim$(LoadFile$("Datei laden","*.*"))

    If fileexists(Datei$)

        Datei$ = SubStr$(Datei$, -1, "\\")
        Zusatz$ = "[" + Datei$ + "]"
        SetText %HWnd,Titel$ + Space$(2) + Zusatz$

    EndIf

f='./../../references-fonction/XProfan/endproc/'>ENDPROC

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

allô
erstaml merci à beide.

Tja cela on ici her findet bleibt doch pas aus, avant allem, gibt es ici gute idées et Ansätze.
Dein Link sieht vielversprechend aus.

Dietmar tu as Dir oui grand Mühe gegeben (à cause de den ganzen Programmcode).

viens seulement malheureusement aujourd'hui soir ou bien am Wochenende en supplément mir beides näher anzuschauen et auszuprobieren.
car j'ai ici aussi et avec ca trouvé, quoi je justement ausprobiere et versuche à mon Bedürfnisse anzupassen et cela depuis 2 Tagen.
Wird ensuite wohl mon prochain chantier son.

qui Link avec den Fonts, hat super geklappt. merci
Dietmars Vorschlag était mir einleuchtender et hat pour qui Anpassung aussi super geklappt.

Allen beiden un DANKE.