Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Grafik und Fonts

FB-Fonts gezielt einschalten

Lizenz:Erster Autor:Letzte Bearbeitung:
LGPLRedakteurVolta 25.03.2008

Die Funktion set_fbfont() schaltet auf die angegebene Fontgröße (nur 8, 14, 16) um (siehe Testprogramm).

'set_fbfont.bas by Volta
'Idee von counting_pine
'http://www.freebasic.net/forum/viewtopic.php?p=94251#94251

Function set_fbfont (ByVal x As Integer) As Integer
  Dim As Integer breit, hoch
  ScreenInfo breit, hoch
  Select Case x
    Case 8, 14, 16          'nur 8, 14 oder 16 funktioniert richtig
      Width breit\8, hoch\x ' hier wird auto. Cls ausgeführt
    Case Else
      Return 0        'etwas lief schief
  End Select
  Return 1            'Font erfolgreich gesetzt
End Function

'----hier ist nur ein Testprogramm--------
Const w = 400, h = 100
Dim As Integer Zeilen, Spalten
ScreenRes w, h, 32 'Set up a graphics screen

Zeilen = LoWord(Width) 'nicht nur im Console-Modus
Spalten = HiWord(Width)'die Anzahl Zeilen und Spalten abfragen.
Print "Voreinstellung bei Sceenres " & w & ", " & h & " (8*8 font)"
Print "Zeilen:  " & Zeilen
Print "Spalten: " & Spalten
Draw String (10,80),"Schrifttyp 8x8 Font (Draw String)",&Hffffff
Sleep

set_fbfont 16 ' 8*16 font
Zeilen = LoWord(Width)
Spalten = HiWord(Width)
Print "Set to 8*16 font (Width w\8, h\16)"
Print "Zeilen:  " & Zeilen
Print "Spalten: " & Spalten
Draw String (10,80),"Schrifttyp 8x16 Font (Draw String)",&Hff0000
Sleep

set_fbfont 14 ' 8*14 font
Zeilen = LoWord(Width)
Spalten = HiWord(Width)
Print "Set to 8*14 font (Width w\8, h\14)"
Print "Zeilen:  " & Zeilen
Print "Spalten: " & Spalten
Draw String (10,80),"Schrifttyp 8x14 Font (Draw String)",&Hff0000
Sleep

set_fbfont 8 ' 8*8 font
Zeilen = LoWord(Width)
Spalten = HiWord(Width)
Print "Set to 8*8 font (Width w\8, h\8)"
Print "Zeilen:  " & Zeilen
Print "Spalten: " & Spalten
Draw String (10,80),"Schrifttyp 8x8 Font (Draw String)",&Hff0000
Sleep

Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 25.03.2008 von RedakteurVolta angelegt.
  • Die aktuellste Version wurde am 25.03.2008 von RedakteurVolta gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen