unit linetes;
{
  Package compile kaatuu, jos ksimcomp on mukana
}
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls,   kscale, kavesimu,  StdCtrls, ToolWin, ComCtrls, kCutter, ksimmot,
  ksheet, KHairLin, KParam, kinicomp, kComp, savepos;

type
  TForm1 = class(TForm)
    Scale1: TScale;
    s1: TaSimuObject;
    Label1: TLabel;
    Shape1: TShape;
    ToolBar1: TToolBar;
    Button1: TButton;
    Button3: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    s2: TaSimuObject;
    LinkComp1: TLinkComp;
    Label2: TLabel;
    Button7: TButton;
    Button8: TButton;
    sLine1: TsLine;
    Sheet1: TSheet;
    SheetFromRoll1: TSheetFromRoll;
    HairY: THairLine;
    HairLine1: THairLine;
    kCheckBox1: TkCheckBox;
    CheckBoxIni1: TCheckBoxIni;
    ParamEka: TkParam;
    SavePos1: TSavePos;
    Splitter1: TSplitter;
//    Scale1: TScale;
//    aSimuObject1: TaSimuObject;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Cutter1BladeUpper(blade: TBlade; msg: TBladeMessage);
  private
    { Private declarations }
//    t : TSheetTile;
    sc : TScale;
    ob : TCutter;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
{
  t := TSheetTile.Create(self);
  t.Parent := Scale1;
  t.Top := 100;
  t.Left := 100;
  t.Height := 20;
  t.Width := 50;
}
{
  sc := TScale.Create(self);
  sc.Parent := self;
  sc.Align := alClient;
}
  sc := scale1;
(*
  ob := TCutter.Create(self);
  ob.Parent := sc;
  ob.Box.dp.SetXY(20,100);
  ob.Box.Origo.SetXY(10,50);
*)  
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  s1.Advance((Sender as TButton).Tag);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Scale1.Fac.x := -Scale1.Fac.x;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Scale1.Fac.y := -Scale1.Fac.y;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  Scale1.Factor := Scale1.Factor * 0.5;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  Scale1.Factor := Scale1.Factor * 2;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
//  Cutter1.BladeUpper.StartCut;
//  Cutter1.BladeLower.StartCut;
  HairLine1.LineDirection := hldVertical;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
//  Cutter1.BladeUpper.GoHome;
  HairLine1.LineDirection := hldHorizontal;
end;

procedure TForm1.Cutter1BladeUpper(blade: TBlade; msg: TBladeMessage);
begin
  blade.stop;
end;

end.