XProfan

Jörg
Sellmeyer

¡Hola Stephanie, hast Usted ahora hierher gefunden. Willkommen!

Zu Deiner ersten Cuestión:
Si usted una Expediente lädst, hast Usted sí (wahrscheinlich con LoadFile$()) ihren Namen. Den kannst Usted ahora simplemente a Su regulären Fenstertitel anhängen.
Texto$ = "Mein Programa " + Expediente$
Título de la ventana Texto$

Zu Deiner zweiten Cuestión spuckt el Búsqueda hier dieses de:
[...]

Yo simplemente veces "Schriftart" eingegeben y de corta por el Titel el Ergebnisse gesucht. Anhand el Stichworte puede ser entonces meistens qué encontrar.
Zugegeben: Yo podría mich dunkel erinnern, el "Pascal" algo como veces Nuevo hatte...
Evtl. es el Ergebnis sólo para el Freewareversion nutzbar. Si usted Schwierigkeiten hast, el para el 8él-Versión umzusetzen, melde Usted otra vez.

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

Dietmar
Horn

¡Hola Stephanie,

a 1.
Kompilieren Marca Separación

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

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

¡Hola
erstaml Gracias a beide.

Tja el uno hier her findet restos doch no de, antes allem, hay hier gute Ideen y Ansätze.
Su Link sieht vielversprechend de.

Dietmar Usted hast Usted sí große Mühe gegeben (wegen el ganzen Programmcode).

Komme sólo desafortunadamente heute Abend oder al Wochenende dazu me beides näher anzuschauen y auszuprobieren.
Denn Yo hier auch todavía algo gefunden, Yo gerade ausprobiere y versuche a mi Bedürfnisse anzupassen y el seit 2 Tagen.
Wird entonces wohl mi nächste Baustelle ser.

Der Link con el Fonts, ha super geklappt. Gracias
Dietmars Vorschlag war me einleuchtender y ha después de el Anpassung auch super geklappt.

Allen beiden una DANKE.