{------------------------------------------------------------------------------}
{
   Unit Name: FramePressShrinkParamas
   Purpose  : Container for all shrink params for one press 
   Author   : Vesa Lappalainen
   Date     : 28.10.2000
   Changed  :

   ToDo     :
   Params:

    N,
    MinShrk,
    MaxShrk,
    AvgShrk,
    LastBShrink,
    LastN,
    LastFront,
    LastBack,
    CBUsePress,
    FShrink,    P  These are just pointers to params that are on the
    BShrink     P  form.  These must be substitued before use.

{------------------------------------------------------------------------------}

unit FramePressShrinkParamas;

interface

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

type
  TFPressShrinkParams = class(TFrame)
    N: TkParam;
    MinShrk: TkParam;
    MaxShrk: TkParam;
    AvgShrk: TkParam;
    LastBShrink: TkParam;
    LastN: TkParam;
    LastFront: TkParam;
    LastBack: TkParam;
    LabelLast: TLabel;
    CBUsePress: TkCheckBox;
  private
    { Private declarations }
  public
    { Public declarations }
    Press : TaSimuObject;
    FShrink,
    BShrink : TkParam;
  end;

implementation

{$R *.DFM}

{ TFPressShrinkParams }


end.