Procedure CropMove;
VAR
x1,x2,y1,y2:REAL;
BEGIN
GetBBox( FSActLayer, x1,y1,x2, y2);
MoveObjs( -(x1+x2)/2, -(y1+y2)/2,FALSE,FALSE );
END;
Run(CropMove);
More than 5 years have passed since last update.
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme