Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
1 - Einsteigerfragen

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Font im Textmodus
Autor: Wilfried Heyse2 (---.echostar.pl)
Datum:   11.01.18 12:00

Zitat:
Ich nutze bei PRINT den font 2 als Fettdruck, font 0 als Normaldruck.
Weil ich den üblichen Programmfluss nicht stören will, aber eine Art "Lebenszeichen" programmieren wollte, das zeigt, daß der PC nicht abgestürzt ist, sondern eben länger rechnet, wäre es gut, die aktuelle Einstellung des auf die PRINT-Befehle wirkenden Font (also ob 0,1 oder 2) danach wieder restaurieren zu können.

Meinst du so etwas?

 Declare Fontmidi&
 Declare Fontklein&
 Declare Melddruck&
 Fontmidi& = Create("Font","ARIAL",20,0,1,0,0)
 Fontklein& = Create("Font","SYSTEM",0,0,0,0,0)
 
 Window 0,0-1366,768
 
 Startprint
 Melddruck
 'print dies und das
 sleep 5000 'hier beispielhaft 5s  die Zeit in der gedruckt wird
 Endprint
 Destroywindow(Melddruck&)
 
 Proc Melddruck
       SETDIALOGFONT 1
       Melddruck& = Create("Dialog",%hwnd,"M E L D U N G",480,360,300,150)
       SetDialogFont Fontmidi&
       Create("Text", Melddruck&, "Es wird gedruckt, bitte warten..." ,30,40,270,150)
       SetDialogFont FontKlein&
       Endproc
 


 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Font im Textmodus  Neu
p. specht 28.12.17 17:03 
 Re: Font im Textmodus  Neu
Michael Wodrich 30.12.17 00:22 
 Re: Font im Textmodus  Neu
Heinz Brill 30.12.17 07:20 
 Re: Font im Textmodus  Neu
p. specht 30.12.17 12:43 
 Re: Font im Textmodus  Neu
Wilfried Heyse2 11.01.18 12:00 
 Re: Font im Textmodus  Neu
p. specht 12.01.18 16:42 
 Re: Font im Textmodus  Neu
Jörg Greve 31.12.17 00:18 
 Re: Font im Textmodus  Neu
p. specht 31.12.17 19:59 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org