svn/view/optina.pas

unit optina;

{$IFDEF FPC}
  {$MODE DELPHI}{$H+}
{$ENDIF}

(***************************************)
(* Copyright (C) 2003, SHIRAISHI Kazuo *)
(***************************************)


interface

uses
  SysUtils,  Classes, Graphics, Controls,
  StdCtrls, Forms, CheckLst , LResources, Buttons;

type
  TOptionAC = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Help1: TButton;
    CheckListBox1: TCheckListBox;
    Label1: TLabel;
    CheckListBox2: TCheckListBox;
    Label2: TLabel;
    Label3: TLabel;
    CheckListBox3: TCheckListBox;
    Label4: TLabel;
    CheckListBox4: TCheckListBox;
    procedure FormCreate(Sender: TObject);
    procedure Help1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  end;

var
  OptionAC: TOptionAC;


implementation
uses inifiles,base,base0;
{$R *.lfm}


procedure TOptionAC.FormCreate(Sender: TObject);
var
   i:integer;
   IniFile:TMyIniFile;
begin
   with CheckListBox1 do
      for i:=ac_let to ac_remark do
          checked[i]:=true;

   IniFile:=TMyIniFile.create('OptionAC');
   for i:=0 to ac_end do
            AutoCorrect[i]:=IniFile.ReadBool(IntToStr(i),AutoCorrect[i]);
   IniFile.free;
end;

procedure TOptionAC.Help1Click(Sender: TObject);
begin
  Application.HelpContext(HelpContext);
end;

procedure TOptionAC.FormDestroy(Sender: TObject);
var
   i:integer;
   IniFile:TMyIniFile;
begin
       IniFile:=TMyIniFile.create('OptionAC');
       for i:=0 to ac_end do
                IniFile.WriteBool(IntToStr(i),AutoCorrect[i]);
       IniFile.free;
end;

initialization


end.