mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-26 15:35:53 +00:00
6e01fc8dce
Added new _STRCMP and _STRICMP commands for quick string comparisons. Cleaned up QB64 to finish removing the QUI (quick user insert) code and folders. Altered UCASE and LCASE routines to be faster in some situations for us.
79 lines
3.6 KiB
Plaintext
79 lines
3.6 KiB
Plaintext
The '''_FONT''' statement sets the current [[_LOADFONT]] function font handle to be used by [[PRINT]].
|
|
|
|
|
|
{{PageSyntax}}
|
|
::: '''_FONT ''Font_handle'''''[, ''Image_handle&'']
|
|
|
|
|
|
{{Parameters}}
|
|
* {{Parameter|Font_handle}} is the handle retrieved from {{KW|_LOADFONT}} function, the {{KW|_FONT (function)|_FONT}} function, or a predefined handle.
|
|
* If the image handle is omitted the current image [[_DEST]]ination is used. Zero can designate the current program [[SCREEN]].
|
|
|
|
|
|
''Usage:''
|
|
* Predefined '''QB64''' font handle numbers can be used before freeing a font:
|
|
**'''_FONT 8 ''' - default font for [[SCREEN (statement)|SCREEN]] 1, 2, 7, 8 or 13
|
|
**'''_FONT 14''' - default font for [[SCREEN (statement)|SCREEN]] 9 or 10
|
|
**'''_FONT 16''' - default font for [[SCREEN (statement)|SCREEN]] 0 ({{KW|WIDTH}} 80, 25 text only), 11 or 12
|
|
**'''_FONT 9, 15''' and '''17''' are the double width versions of 8, 14 and 16 respectively in text '''SCREEN 0 only'''.
|
|
* {{KW|Unicode}} characters can be assigned to a monospace font that contains those unicode characters using the {{KW|_MAPUNICODE}} TO {{KW|ASCII}} mapping statement. The optional '''IME cyberbit.ttf''' font included with QB64 can also be used.
|
|
* Can alpha blend a font with a background screen created by {{KW|_NEWIMAGE}} in 32 bit color.
|
|
* '''Check for valid handle values greater than 0 before using or freeing font handles!'''
|
|
* Free '''unused''' font handles with {{KW|_FREEFONT}}. Freeing invalid handles will create an [[ERROR Codes|"illegal function call"]] error!
|
|
* '''NOTE: SCREEN 0 can only use ONE font type and style per viewed SCREEN page! Font size may also affect the window size.'''
|
|
|
|
|
|
''Example:'' Previewing a font in SCREEN 0. A different true type font can be substituted.
|
|
{{CodeStart}}
|
|
|
|
fontpath$ = {{Cl|ENVIRON$}}("SYSTEMROOT") + "\fonts\lucon.ttf" 'Find Windows Folder Path.
|
|
{{Cl|DO}}: {{Cl|CLS}}
|
|
{{Cl|DO}}
|
|
style$ = "MONOSPACE"
|
|
{{Cl|PRINT}}
|
|
{{Cl|INPUT}} "Enter A FONT Size 8 {{Cl|TO}} 25: ", fontsize%
|
|
{{Cl|LOOP}} {{Cl|UNTIL}} fontsize% > 7 and fontsize% < 26
|
|
{{Cl|DO}}
|
|
{{Cl|PRINT}}
|
|
{{Cl|INPUT}} "Enter (0) for REGULAR {{Cl|OR}} (1) for ITALIC FONT: ", italic%
|
|
{{Cl|LOOP}} {{Cl|UNTIL}} italic% = 0 or italic% = 1
|
|
{{Cl|DO}}
|
|
{{Cl|PRINT}}
|
|
{{Cl|INPUT}} "Enter (0) for REGULAR {{Cl|OR}} (1) for BOLD FONT: ", bold%
|
|
{{Cl|LOOP}} {{Cl|UNTIL}} italic% = 0 or italic% = 1
|
|
{{Cl|IF}} italic% = 1 {{Cl|THEN}} style$ = style$ + ", ITALIC"
|
|
{{Cl|IF}} bold% = 1 then style$ = style$ + ", BOLD"
|
|
|
|
{{Cl|GOSUB}} ClearFont
|
|
font& = {{Cl|_LOADFONT}}(fontpath$, fontsize%, style$)
|
|
{{Cl|_FONT|_FONT }}font&
|
|
{{Cl|PRINT}}
|
|
{{Cl|PRINT}} "This is your LUCON font! Want to try another STYLE?(Y/N): ";
|
|
{{Cl|DO}}: {{Cl|SLEEP}}: K$ = {{Cl|UCASE$}}({{Cl|INKEY$}}): {{Cl|LOOP}} {{Cl|UNTIL}} K$ = "Y" {{Cl|OR}} K$ = "N"
|
|
{{Cl|LOOP}} {{Cl|UNTIL}} K$ = "N"
|
|
{{Cl|GOSUB}} ClearFont
|
|
|
|
{{Cl|PRINT}} "This is the QB64 default {{Cl|_FONT|_FONT }}16!"
|
|
{{Cl|END}}
|
|
|
|
ClearFont:
|
|
{{Cl|IF}} font& > 0 {{Cl|THEN}}
|
|
{{Cl|_FONT|_FONT }}16 'select inbuilt 8x16 default font
|
|
{{Cl|_FREEFONT}} font&
|
|
{{Cl|END IF}}
|
|
{{Cl|RETURN}}
|
|
|
|
{{CodeEnd}}
|
|
'''NOTE:''' [[ENVIRON$]]("SYSTEMROOT") returns a string value of: "C:\WINDOWS". Add the "\FONTS\" folder and the '''.TTF''' font file name.
|
|
|
|
|
|
|
|
|
|
{{PageSeeAlso}}
|
|
* [[_FONT (function)]]
|
|
* [[_LOADFONT]], [[_FREEFONT]]
|
|
* [[Unicode]], [[_MAPUNICODE]]
|
|
* [[Windows_Libraries#Font_Dialog_Box|Windows Font Dialog Box]]
|
|
|
|
|
|
{{PageNavigation}} |