unit UnitMagn;

interface

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

type
  TFormMagn = class(TForm)
    Label3: TLabel;
    MagnOpacity: TGaugeBar;
    Label5: TLabel;
    MagnRotation: TGaugeBar;
    MagnInterpolate: TCheckBox;
    procedure MagnOpacityChange(Sender: TObject);
    procedure MagnMagnificationChange(Sender: TObject);
    procedure MagnRotationChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMagn: TFormMagn;

implementation

uses MainUnit;

{$R *.DFM}

procedure TFormMagn.MagnOpacityChange(Sender: TObject);
begin
  MainForm.ImgView.Invalidate;
end;

procedure TFormMagn.MagnMagnificationChange(Sender: TObject);
begin
  MainForm.ImgView.Invalidate;
end;

procedure TFormMagn.MagnRotationChange(Sender: TObject);
begin
  MainForm.ImgView.Invalidate;
end;

end.