I meant whether there is a built-in Zoom VALUE, not how to interactively limit the zooming to a custom value.
However, when zooming with the Zoom buttons on the TImageEnViewToolbar:
... there seems to be a built-in minimum zoom to 1%.
However, even when I limit the Zoom to a minimum of 5%:
procedure TformMain.imgMainZoomOut(Sender: TObject; var NewZoom: Double);
begin
if NewZoom < 5 then
NewZoom := 5;
end;
... the ZoomOut button on the Toolbar does not respect this custom limit of 5%:
Also, when setting a maximum Zoom value, the ZoomIn Toolbar button does not respect this:
procedure TformMain.imgMainZoomIn(Sender: TObject; var NewZoom: Double);
begin
if NewZoom > 3000 then
NewZoom := 3000;
end;
Is this a bug?
Search
