Function GetTextVerticalAlign returns the vertical alignment of the referenced text object.
Table - Text Vertical Justification
| Justification | Constant |
|---|---|
| Top of text box | 1 |
| Top baseline | 2 |
| Text centerline | 3 |
| Bottom baseline | 4 |
| Bottom of text box | 5 |
FUNCTION GetTextVerticalAlign(TextHd : HANDLE): INTEGER;def vs.GetTextVerticalAlign(TextHd):
return INTEGER| Name | Type | Description |
|---|---|---|
| TextHd | HANDLE | Handle to text object. |
textDown := (GetTextVerticalAlign (H) = 1);
textDown := (GetTextVerticalAlign (gRevTextH) = 1);
END;
PushAttrs;
Marker(0,0,0);
CreateText('X');
VertAlign := GetTextVerticalAlign(LNewObj);{Not currently in Attrs call}
DelObject(LNewObj);
ClName:=ActiveClass;
ALName := GetLName(ActLayer);
LayerOpt:=GetLayerOptions;import vs
# Function GetTextVerticalAlign returns the vertical alignment of the
# referenced text object.
TextHd = vs.FSActLayer() # handle to the first selected object on the active layer
resultN = vs.GetTextVerticalAlign(TextHd)
vs.Message('GetTextVerticalAlign returned: ' + str(resultN))VS Functions:
Availability: from VectorWorks 8.0
