Procedure TextRotate sets the angle of a new text object.
PROCEDURE TextRotate(Rotation : REAL);def vs.TextRotate(Rotation):
return None| Name | Type | Description |
|---|---|---|
| Rotation | REAL | Rotation angle, in degrees, for text. |
TextRotate(45);
TextOrigin(0",0");
CreateText('Rotated string');if ((tmpAngle <= -90) AND (tmpAngle >= -180)) THEN
tmpAngle := 180 + tmpAngle
else if ((tmpAngle <= 180) AND (tmpAngle > 90)) THEN
tmpAngle := tmpAngle - 180;
TextRotate(tmpAngle);
TextJust(2);
TextOrigin(ptX + tmpVector[1] + labelVector[1], ptY + tmpVector[2] + labelVector[2]);
TextSize (gCellLabelSize);
PushAttrs;
{TextFace ([bold]);}
TextFlip (0);
TextRotate (#0);
TextSpace (2);
TextJust (2);
TextVerticalAlign (3);
FillPat (kFPat0);
SetLSN(lnewobj,CheckLSN(-lineStyle));
HRotate(lnewobj,x,y,-rot);
TextJust(2);
TextVerticalAlign(3);
IF pRotateText THEN TextRotate(-rot) ELSE TextRotate(tRot);
TextSize(pItem_Text_Size);
TextOrigin(xC,yC);
CreateText(concat(pprfx,itemTag));
hText := lnewobj;vs.TextRotate(Rotation)Availability: from All Versions