English
Forum

Anfängerin need time More as a council

 

Stephie
Hi,
i'm Beginner and through chance on Profan punched.
now Try I mean Review one Prog umzusetzen and need eure Help.
I have 2 ask (Problems)
my Settings : Profan 11, in the Interpreter runs everything without Problems, Win 7 and Vista, exe becomes without Problems created and runs without Problems, portable Version, yet no seperate DLL used
have into Forums sought, The Help durchblättert and some ausprobiert.
still unfortunately wars I the somehow not there.

trouble 1, display Dateiname
If I a File load should in the Window Title next to my names the name the File come along with the Endung, no File loaded should too showing.
example : Test [no File loaded] or Test [august.csv]
trouble 2, Fonts
have one Fonts-Ordner in the 2 Own Fonts hinterlegt are, The not absolutely eachone in its windows Ordner has. These Fonts need I but as standard to display. the Prog clutching always the windows Fonts To, but should additional on my Ordner grab, I not would like thats in that WindowsFonts copies go should.

where find I suitable Notes circa this umzusetzen or. How must I program ? deliberating I work first since ca. 1 month with Profan and some terms are "böhmische Dörfer" for me.
thanks for your understanding Stephanie
 
08/11/11  
 




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 ...
08/12/11  
 




Dietmar
Horn
Hello Stephanie,

To 1.
CompileMarkSeparation
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:  [...] 
08/12/11  
 



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.
 
08/12/11  
 



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.
 
08/12/11  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

4.601 Views

Untitledvor 0 min.
Konverter03/24/24
RudiB.11/08/12
Stephan Sonneborn02/27/12
Torben Nissen01/26/12
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie