{------------------------------------------------------------------------------}
{
   Unit Name: IniTestForm
   Purpose  : To test kini
   Author   : Vesa Lappalainen
   Date     : 3.1.2001
   Changed  :

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

unit IniTestForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  savepos, StdCtrls, EditDouble, EditDoubleIni, OptionButton, ExtCtrls,
  kComp, KParam, kinicomp, kEditPnl, TestFrame, BigFrame;

type
  TFormIniTest = class(TForm)
    SavePos1: TSavePos;
    OptionButton1: TOptionButton;
    ButtonRead: TButton;
    EditKana: TEditPanel;
    CtrlPanelKana: TCtrlPanel;
    EditKanaEdit: TEdit;
    CtrlPanelKotka: TCtrlPanel;
    CtrlPanelKotkaEditDouble: TEditDouble;
    kParam1: TkParam;
    EditIni1: TEditIni;
    EditIni2: TEditIni;
    EditDoubleIni1: TEditDoubleIni;
    CtrlPanelKanaEditDouble: TEditDouble;
    PaintBox1: TPaintBox;
    FrameTest1: TFrameTest;
    FrameTest2: TFrameTest;
    FrameBig1: TFrameBig;
    EditIni3: TEditIni;
    procedure ButtonReadClick(Sender: TObject);
    procedure EditKanaClick(Sender: TObject);
    procedure CtrlPanelKanaDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormIniTest: TFormIniTest;

implementation
uses kIniSave;
{$R *.DFM}

procedure TFormIniTest.ButtonReadClick(Sender: TObject);
begin
  IniSaveReadAll(Application);
end;

procedure TFormIniTest.EditKanaClick(Sender: TObject);
begin
  ShowMessage('Osu');
end;

procedure TFormIniTest.CtrlPanelKanaDblClick(Sender: TObject);
begin
  ShowMessage('2-Osu');

end;

end.