unit ksimlinf;
{------------------------------------------------------------------------------}
{
  KSimLine - This file include Kave 2000 Simulation for SimLine-components:
    TsLine

   Author:  Vesa Lappalainen
   Date:    9.9.1996
   Changes: 15.3.1998/vl
            + saved as own unit with edit form
}
{------------------------------------------------------------------------------}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ksimmot, savepos, StdCtrls, kinicomp, KParam, kComp, ExtCtrls, kavesimu,
  kavesimf,ksimmotf;

type

  TFormEditKSimLine = class(TFormEditKSimMot)
    ParamRollCount: TkParam;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure GetData(const o:TaSimuObject); override;
    procedure SetData(o:TaSimuObject); override;
  end;

//var
//  FormEditKSimLine: TFormEditKSimLine;

implementation
uses kdouble,ksimline;
{$R *.DFM}

//-----------------------------------------------------------------------------
procedure TFormEditKSimLine.GetData(const o:TaSimuObject); //  override;
var ob : TsLine;
begin
  if not ( o is TsLine ) then exit;
  ob := o as TsLine;
  inherited;
  ParamRollCount.Value := ob.RollCount;
end;


//-----------------------------------------------------------------------------
procedure TFormEditKSimLine.SetData(o:TaSimuObject); //  override;
var ob : TsLine;
begin
  if not ( o is TsLine ) then exit;
  ob := o as TsLine;
  inherited;
  ob.RollCount := trunc(ParamRollCount.Value);
end;


end.