procedure TForm1.IEConvertToThumbnail1Click(Sender: TObject);
{ Convert TBitmap to the specified size with or without a border or a shadow. }
var
  iMaxX: Integer;
  iMaxY: Integer;
  iCanStretch: boolean;
  iQualityFilter: TResampleFilter;
  iAddBorder: boolean;
  iBorderColor: TColor;
  iAddShadow: boolean;
  iBlurRadius: Integer;
  iShadowOffset: Integer;
  iShadowColor: TColor;
  iBackgroundColor: TColor;
begin
  ImageEnView1.Proc.SaveUndo();
  Undo1.Enabled := ImageEnView1.Proc.CanUndo;
  iMaxX := StrToIntDef(Width1.Text, 320);
  iMaxY := StrToIntDef(Height1.Text, 240);
  iCanStretch := CanStretch1.Checked;
  iQualityFilter := TResampleFilter(ResampleFilter1.ItemIndex);
  iAddBorder := AddBorder1.Checked;
  iBorderColor := BorderColor1.Selected;
  iAddShadow := AddShadow1.Checked;
  iBlurRadius := StrToIntDef(BlurRadius1.Text, 4);
  iShadowOffset := StrToIntDef(ShadowOffset1.Text, 4);
  iShadowColor := ShadowColor1.Selected;
  iBackgroundColor := ThumbnailBackgroundColor1.Selected;
  ImageEnView1.Bitmap.IEConvertToThumbnail(iMaxX, iMaxY, iCanStretch, iQualityFilter, iAddBorder,
    iBorderColor,
    iAddShadow, iBlurRadius, iShadowOffset, iShadowColor, iBackgroundColor);
  ImageEnView1.Update;
  StatusBar1.Panels[2].Text := 'Width: ' + IntegerToString(ImageEnView1.Bitmap.Width);
  StatusBar1.Panels[3].Text := 'Height: ' + IntegerToString(ImageEnView1.Bitmap.Height);
end;