FONT: Difference between revisions
Jump to navigation
Jump to search
Navigation:
Main Page with Articles and Tutorials
Keyword Reference - Alphabetical
Keyword Reference - By usage
Report a broken link
(Created page with "{{DISPLAYTITLE:_FONT}} The _FONT statement sets the current _LOADFONT function font handle to be used by PRINT. {{PageSyntax}} : _FONT {{Parameter|fontHandle&}}[, {{Parameter|imageHandle&}}] {{Parameters}} * {{Parameter|fontHandle&}} is the handle retrieved from _LOADFONT function, the _FONT function, or a predefined handle. * If the image handle is omitted the current image _DESTination is used. Zero can designate the cu...") |
No edit summary |
||
| Line 1: | Line 1: | ||
{{DISPLAYTITLE:_FONT}} | {{DISPLAYTITLE:_FONT}} | ||
The [[_FONT]] statement sets the current [[_LOADFONT]] function font handle to be used by [[PRINT]]. | The [[_FONT]] statement sets the current [[_LOADFONT]] function font handle to be used by [[PRINT]]. | ||
| Line 26: | Line 26: | ||
{{PageExamples}} | {{PageExamples}} | ||
''Example:'' Previewing a font in SCREEN 0. A different true type font can be substituted below. | ''Example:'' Previewing a font in SCREEN 0. A different true type font can be substituted below. | ||
{{CodeStart}} | {{CodeStart}} | ||
| Line 49: | Line 49: | ||
{{Cl|GOSUB}} ClearFont | {{Cl|GOSUB}} ClearFont | ||
font& = {{Cl|_LOADFONT}}(fontpath$, fontsize%, style$) | font& = {{Cl|_LOADFONT}}(fontpath$, fontsize%, style$) | ||
{{Cl|_FONT|_FONT }}font& | {{Cl|_FONT|_FONT }}font& | ||
{{Cl|PRINT}} | {{Cl|PRINT}} | ||
{{Cl|PRINT}} "This is your LUCON font! Want to try another STYLE?(Y/N): "; | {{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|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|LOOP}} {{Cl|UNTIL}} K$ = "N" | ||
| Line 59: | Line 59: | ||
{{Cl|END}} | {{Cl|END}} | ||
ClearFont: | ClearFont: | ||
{{Cl|IF}} font& > 0 {{Cl|THEN}} | {{Cl|IF}} font& > 0 {{Cl|THEN}} | ||
{{Cl|_FONT|_FONT }}16 'select inbuilt 8x16 default font | {{Cl|_FONT|_FONT }}16 'select inbuilt 8x16 default font | ||
Revision as of 01:39, 23 January 2023
The _FONT statement sets the current _LOADFONT function font handle to be used by PRINT.
Syntax
- _FONT fontHandle&[, imageHandle&]
- fontHandle& is the handle retrieved from _LOADFONT function, the _FONT function, or a predefined handle.
- If the image handle is omitted the current image _DESTination is used. Zero can designate the current program SCREEN.
Description
- Predefined QB64 font handle numbers can be used before freeing a font:
- Unicode characters can be assigned to a monospace font that contains those unicode characters using the _MAPUNICODE TO 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 _NEWIMAGE in 32 bit color.
- Check for valid handle values greater than 0 before using or freeing font handles.
- Free unused font handles with _FREEFONT. Freeing invalid handles will create an "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.
Examples
Example: Previewing a font in SCREEN 0. A different true type font can be substituted below.
fontpath$ = ENVIRON$("SYSTEMROOT") + "\fonts\lucon.ttf" 'Find Windows Folder Path. DO: CLS DO style$ = "MONOSPACE" PRINT INPUT "Enter A FONT Size 8 TO 25: ", fontsize% LOOP UNTIL fontsize% > 7 and fontsize% < 26 DO PRINT INPUT "Enter (0) for REGULAR OR (1) for ITALIC FONT: ", italic% LOOP UNTIL italic% = 0 or italic% = 1 DO PRINT INPUT "Enter (0) for REGULAR OR (1) for BOLD FONT: ", bold% LOOP UNTIL italic% = 0 or italic% = 1 IF italic% = 1 THEN style$ = style$ + ", ITALIC" IF bold% = 1 then style$ = style$ + ", BOLD" GOSUB ClearFont font& = _LOADFONT(fontpath$, fontsize%, style$) _FONT font& PRINT PRINT "This is your LUCON font! Want to try another STYLE?(Y/N): "; DO: SLEEP: K$ = UCASE$(INKEY$): LOOP UNTIL K$ = "Y" OR K$ = "N" LOOP UNTIL K$ = "N" GOSUB ClearFont PRINT "This is the QB64 default _FONT 16!" END ClearFont: IF font& > 0 THEN _FONT 16 'select inbuilt 8x16 default font _FREEFONT font& END IF RETURN |
NOTE: ENVIRON$("SYSTEMROOT") returns a string value of: "C:\WINDOWS". Add the "\FONTS\" folder and the .TTF font file name.
See also