I am trying to insert consecutive numbers to my screenshots:
procedure TformPreview.mInsertNumberClick(Sender: TObject);
begin
// Append a Number text layer:
ImageEnViewPreview.LayersAdd(ielkText);
with TIETextLayer(ImageEnViewPreview.CurrentLayer) do
begin
Text := '1';
BorderWidth := 0;
FillColor := clRed;
Font.Size := 16;
Font.Color := clWhite;
Alignment := iejCenter;
Layout := ielCenter;
BorderShape := iesEllipse;
SoftShadow.Enabled := True;
Width := 50;
Height := 50;
AspectRatioLocked := True;
end;
end;
However, these layers can be dragged only at their edges - which many users find difficult to handle!
How can these layers made to be dragged on the entire shape?
Search
