{------------------------------------------------------------------------------}
{
   Unit Name: simutestform
   Purpose  : To test pressing component 
   Author   : Vesa Lappalainen
   Date     : 29.10.2000
   Changed  :

   ToDo     :
}
{------------------------------------------------------------------------------}

unit simutestform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ksheet, ExtCtrls, kavesimu, kCutter, kscale, StdCtrls, MaskPiece;

type
  TFormTestPress = class(TForm)
    Scale1: TScale;
    Cutter1: TCutter;
    Sheet1: TSheet;
    Sheet2: TSheet;
    ButtonHome: TButton;
    ButtonCut: TButton;
    ButtonUp: TButton;
    MaskPiece1: TMaskPiece;
    MaskPiece2: TMaskPiece;
    ButtonTurn: TButton;
    ButtonInvert: TButton;
    procedure ButtonHomeClick(Sender: TObject);
    procedure ButtonCutClick(Sender: TObject);
    procedure ButtonUpClick(Sender: TObject);
    procedure ButtonTurnClick(Sender: TObject);
    procedure ButtonInvertClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormTestPress: TFormTestPress;

implementation

{$R *.DFM}

procedure TFormTestPress.ButtonHomeClick(Sender: TObject);
begin
  Cutter1.PutHome;
end;

procedure TFormTestPress.ButtonCutClick(Sender: TObject);
begin
  Cutter1.BladeUpper.StartCut;
  Cutter1.BladeLower.StartCut;
end;

procedure TFormTestPress.ButtonUpClick(Sender: TObject);
begin
  Cutter1.BladeUpper.GoHome;
  Cutter1.BladeLower.GoHome;
end;

procedure TFormTestPress.ButtonTurnClick(Sender: TObject);
begin
  MaskPiece1.Upwards := not MaskPiece1.Upwards;
  MaskPiece2.Upwards := not MaskPiece2.Upwards;
end;

procedure TFormTestPress.ButtonInvertClick(Sender: TObject);
begin
  Scale1.Fac.x := -Scale1.Fac.x;
end;

procedure TFormTestPress.FormCreate(Sender: TObject);
begin
  MaskPiece2.xu1 := 0;
  MaskPiece2.xu2 := 100;
  MaskPiece2.xl1 := 0;
  MaskPiece2.xl2 := 0;
end;

end.