{------------------------------------------------------------------------------}
{
   Unit Name: edttestf
   Purpose  : To test EditDouble-component
   Author   : Vesa Lappalainen
   Date     : 10.09.00
   Changed  :

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

unit edttestf;

interface

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

type
  TFormEditTest = class(TForm)
    LabelDouble: TLabel;
    CBOK: TCheckBox;
    PanelButtons: TPanel;
    GroupBoxOptions: TGroupBox;
    ParamLuku: TkParam;
    CBValittu: TkCheckBox;
    EditIniTeksti: TEditIni;
    procedure FormCreate(Sender: TObject);
    procedure EditChange(Sender: TObject);
  private
    ed : TEditDoubleIni;
    ButtonCancel : TOptionButton;
  public
  end;

var
  FormEditTest: TFormEditTest;

implementation
{$R *.DFM}

procedure TFormEditTest.FormCreate(Sender: TObject);
var Button : TOptionButton;

 procedure NewButton(const s:string;mr:TModalResult);
 begin
   Button := TOptionButton.Create(self);
   Button.Parent :=PanelButtons;
   Button.Align := alLeft;
   Button.Left := 1000;
   Button.Caption := s;
   Button.ModalResult := mr;
   Button.ShowReason := true;
 end;

begin
  ed := TEditDoubleIni.Create(self);
  ed.Parent :=self;
  ed.OnChange := EditChange;
  ed.Name := 'EditIniLuku';
  ed.Hint := 'Kissa';
  ed.Check.Min := 10;
  ed.Check.Max := 100;
  ed.Loaded;

  NewButton('&Cancel',mrCancel);
  Button.Cancel := true;
  NewButton('&Restore',mrNo);
  NewButton('&Save',mrYes);
  NewButton('&OK',mrOK);
  Button.Default := true;
end;

procedure TFormEditTest.EditChange(Sender: TObject);
begin
  LabelDouble.Caption := FloatToStr(ed.Value);
  CBOK.Checked := ed.Check.OK;
end;

end.