TextPosition: WxTextPosition;
The TextPosition property determines the position of text relative to an image used as an object fill.
Executing the example requires an existing ws object of the IWxWorkspace type.
Sub UserProc;
Var
ws: IWxWorkspace;
Shape: IWxShape;
Style: IWxStyle;
Begin
ws.BeginUpdate;
Shape := ws.Shapes.Item(1);
Shape.Picture := New GxImage.CreateFromFile("C:\Image1.gif");
Shape.Text := "Text";
Style := Shape.Style;
Style.TextFontBrushColor := GxColor.FromName("Red");
Style.TextPosition := WxTextPosition.Right;
ws.EndUpdate;
End Sub UserProc;
After executing the example an image is used as shape fill and a shape contains text, aligned at the right relative to the image.
See also: