unit UnitBitmapLayer;

interface

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

type
  TFormBitmapLayer = class(TForm)
    Label2: TLabel;
    LayerOpacity: TGaugeBar;
    LayerInterpolate: TCheckBox;
    Cropped: TCheckBox;
    LayerRescale: TButton;
    LayerResetScale: TButton;
    procedure LayerOpacityChange(Sender: TObject);
    procedure LayerInterpolateClick(Sender: TObject);
    procedure CroppedClick(Sender: TObject);
    procedure LayerRescaleClick(Sender: TObject);
    procedure LayerResetScaleClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormBitmapLayer: TFormBitmapLayer;

implementation

uses MainUnit;

{$R *.DFM}

procedure TFormBitmapLayer.LayerOpacityChange(Sender: TObject);
begin
  MainForm.LayerOpacityChange(Self);
end;

procedure TFormBitmapLayer.LayerInterpolateClick(Sender: TObject);
begin
  MainForm.LayerInterpolateClick(Self);
end;

procedure TFormBitmapLayer.CroppedClick(Sender: TObject);
begin
  MainForm.CroppedClick(Self);
end;

procedure TFormBitmapLayer.LayerRescaleClick(Sender: TObject);
begin
  MainForm.LayerRescaleClick(Self);
end;

procedure TFormBitmapLayer.LayerResetScaleClick(Sender: TObject);
begin
  MainForm.LayerResetScaleClick(Self);
end;

end.