Since TImageEnView doesn't have a SelectAll method, I am forced to use this code:
procedure TformMain.mSelectAllClick(Sender: TObject);
begin
with ImageEnView1 do
begin
SelectionBase := iesbBitmap;
Select(0, 0, IEBitmap.Width, IEBitmap.Height);
MouseInteractGeneral := [miSelect];
end;
end;
It selects the whole image. However, the selection handles cannot be used to reduce the selection size with the mouse.
Search
SelectAll
Posted - Oct 29 2022 : 17:36:27
