unit ScaleUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TScaleImage = class(TForm)
    Label1: TLabel;
    ScaleCombo: TComboBox;
    ImageInterpolate: TCheckBox;
    procedure ScaleComboChange(Sender: TObject);
    procedure ImageInterpolateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ScaleImage: TScaleImage;

implementation

uses MainUnit;

{$R *.DFM}

procedure TScaleImage.ScaleComboChange(Sender: TObject);
begin
  MainForm.ScaleComboChange(Self);
end;

procedure TScaleImage.ImageInterpolateClick(Sender: TObject);
begin
  MainForm.ImageInterpolateClick(Self);
end;

end.