Skip to content

GetFontName.md

Latest commit

 

History

History
88 lines (74 loc) · 2.2 KB

GetFontName.md

File metadata and controls

88 lines (74 loc) · 2.2 KB
Raw

GetFontName

Description

Function GetFontName converts a system font ID to a font name.

An integer ID with a value representing a font in the current operating system.

FUNCTION GetFontName(fontID : INTEGER): STRING;
def vs.GetFontName(fontID):
    return STRING

Parameters

Name Type Description
fontID INTEGER Font ID value.

Remarks

_c_ (2016.03.05): Upon passing an illegal font index it returns:

  • before VW 2015: an empty string
  • after VW 2015: the string "System font regular". After VW 2015 you can use GetFontListSize to fetch the count of installed fonts. Before that you had to check in both negative and positive direction the whole integer limit: from -32767 to +32767.

Examples

VectorScript

PROCEDURE Example;
VAR
str :STRING;
cnt :INTEGER;
BEGIN
FOR cnt := 0 to 10 DO str := Concat(str, Chr(13), GetFontName(cnt));
AlrtDialog(str);
END;
RUN(Example);

Python

def Example():
	str = ''
	for cnt in range(0,10):
		str = vs.Concat(str, vs.Chr(13), vs.GetFontName(cnt))
	vs.AlrtDialog(str)
Example()
{set the text style, size and font for the creation of the new Callout}
SetPrefString(100, GetFontName(GetTextFont( textFoundH, 0 )) );
{SetPrefReal(57, GetTextSize(textFoundH, 0 ) );}
SetPrefInt(58, GetTextStyle( textFoundH, 0 ) );

if str <> '' then BEGIN
	version := Str2Num(str);
	fieldVal := GetRField(parmH, parmN, fieldN);
	if version >= 1000 then BEGIN
		SetRField(parmH, parmN, fieldN, GetFontName(GetObjectVariableInt(parmH, 28)));
	end else IF (fieldVal <> '') THEN BEGIN
		SetObjectVariableInt(parmH, 28, GetFontID(fieldVal));
		TextFont(GetFontID(fieldVal));
	END;

	{* Get Font *}
	SetObjectVariableInt(gParmH,28,GetObjectVariableInt(h,28));
	{* Get Style *}
	SetObjectVariableInt(gParmH,19,GetObjectVariableInt(h,19));
	tmp_i := GetFontID(GetFontName(GetTextFont(h,0)));
END;
import vs

# Function GetFontName converts a system font ID to a font name.
fontID = 1

name = vs.GetFontName(fontID)
vs.Message('GetFontName returned: ' + str(name))

Version

Availability: from VectorWorks 8.0

Category