XProfan

Jörg
Sellmeyer

Hallo Stephanie, hast Du jetzt auch hierher gefunden. Willkommen!

Zu Deiner ersten Frage:
Wenn Du eine Datei lädst, hast Du ja (wahrscheinlich mit LoadFile$()) ihren Namen. Den kannst Du jetzt einfach an Deinen regulären Fenstertitel anhängen.
Text$ = "Mein Programm " + Datei$
WindowTitle Text$

Zu Deiner zweiten Frage spuckt die Suche hier dieses aus:
[...]

Ich hab einfach mal "Schriftart" eingegeben und kurz durch die Titel der Ergebnisse gesucht. Anhand der Stichworte kann man dann meistens was finden.
Zugegeben: ich konnte mich dunkel erinnern, das "Pascal" sowas mal gepostet hatte...
Evtl. ist das Ergebnis nur für die Freewareversion nutzbar. Wenn Du Schwierigkeiten hast, das für die 8er-Version umzusetzen, melde Dich nochmal.

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

Dietmar
Horn

Hallo Stephanie,

zu 1.
Kompilieren Markieren Separieren

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

EndProc

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

Hallo
erstaml Danke an beide.

Tja das man hier her findet bleibt doch nicht aus, vor allem, gibt es hier gute Ideen und Ansätze.
Dein Link sieht vielversprechend aus.

Dietmar Du hast Dir ja große Mühe gegeben (wegen den ganzen Programmcode).

Komme erst leider heute Abend oder am Wochenende dazu mir beides näher anzuschauen und auszuprobieren.
Denn ich habe hier auch noch etwas gefunden, was ich gerade ausprobiere und versuche an meine Bedürfnisse anzupassen und das seit 2 Tagen.
Wird dann wohl meine nächste Baustelle sein.

Der Link mit den Fonts, hat super geklappt. Danke
Dietmars Vorschlag war mir einleuchtender und hat nach der Anpassung auch super geklappt.

Allen beiden ein DANKE.