Function GetTextJust returns the text justification of the referenced text object.
Table - Text Justification
| Justification | Constant |
|---|---|
| Left | 1 |
| Center | 2 |
| Right | 3 |
| Justify | 4 |
FUNCTION GetTextJust(TextHd : HANDLE): INTEGER;def vs.GetTextJust(TextHd):
return INTEGER| Name | Type | Description |
|---|---|---|
| TextHd | HANDLE | Handle to text object. |
([[User:Orso.b.schmid|Orso]], 2012 Mai. 26): The constant 4 "Justify" is introduced by VW 2011.
BEGIN
MyFontID := GetTextFont(HanToLegendText, 0);
MyTextSize := GetTextSize(HanToLegendText, 0);
MyStyle := GetTextStyle(HanToLegendText, 0);
MyTextJust := GetTextJust(HanToLegendText);
MyVertAlign := GetTextVerticalAlign(HanToLegendText);
MyTextWidth := GetTextWidth(HanToLegendText);
MyTextWrap := GetTextWrap(HanToLegendText);
GetPenFore(HanToLegendText, MyPFRColor, MyPFGColor, MyPFBColor);import vs
# Function GetTextJust returns the text justification of the referenced text
# object.
TextHd = vs.FSActLayer() # handle to the first selected object on the active layer
resultN = vs.GetTextJust(TextHd)
vs.Message('GetTextJust returned: ' + str(resultN))VS Functions:
Availability: from MiniCAD 6.0
