PictureAlignmentHorizontal: GxAlignment;
The PictureAlignmentHorizontal property determines horizontal image alignment within a control.
Executing the example requires that the repository contains workspace with the IWSTYLE identifier containing shape. It is also required to have the ConnectedCPs.gif image.
Add links to the Andy, Drawing, Metabase system assemblies.
Sub UserProc;
Var
mb: IMetabase;
ws: IWxWorkspace;
Shape: IWxShape;
style: IWxStyle;
Begin
// Get workspace for editing
mb := MetabaseClass.Active;
ws := mb.ItemById("IWSTYLE").Edit As IWxWorkspace;
Shape := ws.Shapes.Item(0);
Shape.Picture := GxImage.FromFile("C:\ConnectedCPs.gif");
Style := Shape.Style;
Style.PictureAlignmentHorizontal := GxAlignment.Near;
(ws As IMetabaseObject).Save;
End Sub UserProc;
After executing the example the image in the object is aligned to the left edge.
See also: