XProfan

Jörg
Sellmeyer

Hello Stephanie, have You now too hither found. Welcome!

To your first question:
If you a File load, have You Yes (probably with LoadFile$()) ihren names. whom can You now simply on your regulären Window Title append.
Text$ = "Mein Program " + File$
Window Title Text$

To your second question spit The Search here this from:
[...]

I Have simply time "Schriftart" association and short by the cover the Results sought. Anhand the Stichworte You can then usually what find.
Zugegeben: I could me dark remind, the "Pascal" something like time posted having...
Evtl. is the Result only for Freewareversion useable. If you difficulty have, the for 8it-Version umzusetzen, login you again.

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

Dietmar
Horn

Hello Stephanie,

To 1.
Compile Mark Separation

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

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

Hello
erstaml thanks on both.

Tja the one here since finds remaining still not from, particularly, there here good ideas and Approaches.
your Link sees very promising from.

Dietmar you have you Yes large trouble given (because of whom whole Programmcode).

come first unfortunately today evening or on the weekend moreover me both hither anzuschauen and auszuprobieren.
because I have here too yet something found, I straight ausprobiere and try on my needs anzupassen and the since 2 Meet.
becomes then well my next Construction site his.

The Link with the Fonts, has super worked. thanks
Dietmars suggestion was me einleuchtender and has to the Anpassung too super worked.

all both one THANK YOU.