ImageEn, unit imageenview |
|
TImageEnView.SelectedRect
Declaration
property SelectedRect: TIERectangle;
Description
Returns current selected rectangle. If no selected exists returns the whole image rectangle.
The coordinates are returned in terms of the bitmap (not the screen, i.e. not affected by
Zoom and
ViewX,
ViewY values).
You can programmatically make a selection using the
Select method.
If you specify a SelectedRect it will replace any existing selection (you must pass a complete TIERectangle variable).
Note: To convert between
TIERectangle and a TRect use:
◼IERectangle
◼IERectangleToRect
Read-only
// Zoom into the selected area of the image
procedure TMainForm.Button1Click(Sender: TObject);
var
sel: TIERectangle;
begin
if ImageEnView1.Selected then
begin
sel := ImageEnView1.SelectedRect;
ImageEnView1.VisibleBitmapRect := Rect( sel.x, sel.y, sel.x + sel.width, sel.y + sel.height );
end;
end;
// Crop the image at the bitmap position, Top-Left: (150, 100), Bottom-right: (450, 300)
ImageEnView1.SelectedRect := IERectangle( Rect( 100, 100, 300, 200 ));
ImageEnView1.Proc.CropSel();
// Which is the same as...
ImageEnView1.SelectionBase := iesbBitmap;
ImageEnView1.Select( 150, 100, 300, 200 );
ImageEnView1.Proc.CropSel();