TImageEnView.AutoShrink

Declaration

property AutoShrink: Boolean;

Description

When enabled the following display rules are used:
◼If an image is bigger than TImageEnView window it is shrunk to fit;
◼If an image is smaller than TImageEnView window it is displayed 100%

Note:
◼Changes will not take effect until you call Update (or update the display by zooming or loading an image, for example). To make it automatically update, add iedoDisableAutoFitWhenZoom to DisplayOptions
◼To fit only to width or height, use FitMode
◼To automatically crop the view so the image takes up more of the control area, enable FitCropping

Default: False

Example

procedure TForm1.chkAutoShrinkClick(Sender: TObject);
begin
  ImageEnView1.AutoShrink := chkAutoShrink.Checked;
  if not chkAutoShrink.Checked then
    ImageEnView1.Zoom := 100
  else
    ImageEnView1.Fit();
end;

TImageEnView.AutoShrink