Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Code-Beispiel
FB-Fonts gezielt einschalten
| Lizenz: | Erster Autor: | Letzte Bearbeitung: |
| LGPL |  Volta |  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 | |||||||
|---|---|---|---|---|---|---|---|
|
|||||||
Bearbeiten
Versionen