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%

Notes:
- 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