I create a Rectangle Shape Layer with this code:
procedure TformPreview.DoCreateRectangleShape;
begin
ImageEnViewPreview.LayersAdd(
iesRectangle,
Rect(
10, // Left
10, // Top
100, // Right
100), // Bottom
clRed, 5);
ImageEnViewPreview.CurrentLayer.Selected := True; // select this layer: does not work
end;
However, the layer is not selected!
And how to set the layer's inherent properties, such as Moveable, Sizeable, and Rotateable, without having to mess around with MouseInteractLayers?
Search
