mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-26 14:25: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.
54 lines
2.1 KiB
Plaintext
54 lines
2.1 KiB
Plaintext
The '''_FONTHEIGHT''' function returns the font height of a font handle created by {{KW|_LOADFONT}}.
|
|
|
|
|
|
|
|
{{PageSyntax}}
|
|
:{{Parameter|pixel_height%}} = {{KW|_FONTHEIGHT}}[({{Parameter|font_handle}})]
|
|
|
|
|
|
* Will return height of the last font used if a handle is not designated.
|
|
* If no font is used it returns the current screen mode's text block height.
|
|
|
|
|
|
''Example:'' Finding the [[_FONT|font]] or text block size of printed [[STRING|string]] characters in graphic [[SCREEN]] modes.
|
|
{{CodeStart}} '' ''
|
|
DO
|
|
{{Cl|INPUT}} "Enter Screen mode 1, 2 or 7 to 13 or 256, 32 for {{Cl|_NEWIMAGE}}: ", scr$
|
|
mode% = {{Cl|VAL}}(scr$)
|
|
{{Cl|LOOP}} {{Cl|UNTIL}} mode% > 0
|
|
{{Cl|SELECT CASE}} mode%
|
|
{{Cl|CASE}} 1, 2, 7 {{Cl|TO}} 13: {{Cl|SCREEN}} mode%
|
|
{{Cl|CASE}} 256, 32: {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(800, 600, mode%)
|
|
{{Cl|CASE ELSE}}: {{Cl|PRINT}} "Invalid mode selected!": {{Cl|END}}
|
|
{{Cl|END SELECT}}
|
|
|
|
{{Cl|INPUT}} "Enter first name of TTF font to use or hit enter for text block size: ", TTFont$
|
|
{{Cl|IF...THEN|IF}} {{Cl|LEN}}(TTFont$) {{Cl|THEN}} {{Cl|INPUT}} "Enter font height: ", hi$
|
|
height& = {{Cl|VAL}}(hi$)
|
|
{{Cl|IF...THEN|IF}} height& > 0 {{Cl|THEN}}
|
|
fnt& = {{Cl|_LOADFONT}}("C:\Windows\Fonts\" + TTFont$ + ".ttf", height&, style$)
|
|
{{Cl|IF...THEN|IF}} fnt& <= 0 {{Cl|THEN}} {{Cl|PRINT}} "Invalid Font handle!": {{Cl|END}}
|
|
{{Cl|_FONT}} fnt&
|
|
{{Cl|END IF}}
|
|
|
|
TextSize wide&, high& 'get the font or current screen mode's text block pixel size
|
|
|
|
{{Cl|_PRINTSTRING}} (20, 100), "Block size = " + {{Cl|CHR$}}(1) + {{Cl|STR$}}(wide&) + " X" + {{Cl|STR$}}(high&) + " " + {{Cl|CHR$}}(2)
|
|
|
|
{{Cl|END}}
|
|
|
|
{{Cl|SUB}} TextSize (TextWidth&, TextHeight&)
|
|
TextWidth& = {{Cl|_PRINTWIDTH}}("W") 'measure width of one font or text character
|
|
TextHeight& = {{Cl|_FONTHEIGHT}} 'can measure normal text block heights also
|
|
{{Cl|END SUB}} '' ''
|
|
{{CodeEnd}}
|
|
|
|
|
|
{{PageSeeAlso}}
|
|
* [[_FONTWIDTH]], [[_FONT]]
|
|
* [[_PRINTWIDTH]], [[_PRINTSTRING]]
|
|
* [[SCREEN]], [[_LOADFONT]]
|
|
* [[Text Using Graphics]] (Demo)
|
|
|
|
|
|
{{PageNavigation}} |