There is no rounded box object or parameter to change the corners, so you cannot create a rounded rectangle box at the moment. You can create a shape layer that is very similar to objects:
Screen.Cursor := crHourglass;
try
iLayer := ImageEnView.LayersAdd(ielkShape);
ImageEnView.Layers[iLayer].Name := 'Shape Layer';
ImageEnView.Layers[iLayer].PosX := ImageEnView.Layers[iLayer - 1]
.PosX + 100;
ImageEnView.Layers[iLayer].PosY := ImageEnView.Layers[iLayer - 1]
.PosY + 100;
ImageEnView.LayersCurrent := iLayer;
with TIEShapeLayer(ImageEnView.CurrentLayer) do
begin
Shape := iesRoundRect;
ImageEnView.Update;
end;
ImageEnView.MouseInteract := ImageEnView.MouseInteract +
[miMoveLayers, miResizeLayers];
finally
Screen.Cursor := crDefault;
end;
ShapeLayers require use of ImageEn versions 7.x
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development
Search
