Skip to content

TextFont.md

Latest commit

 

History

History
67 lines (56 loc) · 1.52 KB

TextFont.md

File metadata and controls

67 lines (56 loc) · 1.52 KB
Raw

TextFont

Description

Procedure TextFont sets the active font for the document.

PROCEDURE TextFont(fontID : INTEGER);
def vs.TextFont(fontID):
    return None

Parameters

Name Type Description
fontID INTEGER Font ID setting for document.

Examples

VectorScript

TextFont(GetFontID('Times'));

Python



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;

  if( typeIntComp = -1 ) | ( typeIntStyle = -1 ) | ( typeIntArrow = -1 ) THEN BEGIN
defaultFont := GetPrefString(100);  { save default font and set back after OK pressed }
GetVersion(major, minor, maintenance, platform);
if (platform = 1) then { Macintosh = 1; Windows = 2 }
	TextFont(0)	{ set default font to the application font }
else
	TextFont(-1);
ALLOCATE layers [1..NumLayers];
layerCnt := 0;
h := FLayer;
for cnt := 1 to NumLayers do BEGIN

BEGIN
	PushAttrs;
	TextFont( GetFontID( GetLocStr (12028, 4) ) );
	TextSize( 48 );
	x := x2 - ((borderWidth + blockWidth/2));
	y := y2 + ((borderWidth + blockWidth/2));
	TextVerticalAlign(3);


vs.TextFont(fontID)


See also in tutorials: 09. Dimensioning and Text Annotation


Version


Availability: from All Versions


Category