svn/view/afdg.pas

unit afdg;

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

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


interface

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


type

  { TAutoFormatDlg }

  TAutoFormatDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    HelpBtn: TButton;
    Bevel1: TBevel;
    CheckListBox1: TCheckListBox;
    programCharset1: TRadioGroup;
    procedure HelpBtnClick(Sender: TObject);
    procedure programCharset1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  AutoFormatDlg: TAutoFormatDlg;
  AutoFormatKw:boolean=true;
  ProgramFileCharsetUTF8:boolean={$IFDEF Windows}false{$ELSE}true{$ENDIF};


procedure  setAutoFormat;

implementation
uses base,base0;

{$R *.lfm}

procedure TAutoFormatDlg.HelpBtnClick(Sender: TObject);
begin
  Application.HelpContext(HelpContext);
end;

procedure TAutoFormatDlg.programCharset1Click(Sender: TObject);
begin

end;

procedure  setAutoFormat;
begin
 with AutoFormatDlg do
  begin
    //OkBtn.Focused;
    CheckListBox1.checked[0]:=AutoFormatKw;
    ProgramCharset1.ItemIndex:=byte(ProgramFileCharsetUTF8);
    if ShowModal=mrOk then
      begin
        AutoFormatKw:=CheckListBox1.checked[0];
        byte(ProgramFileCharsetUTF8) := ProgramCharset1.ItemIndex;

      end;
  end;
end;

initialization
    with TMyIniFile.create('AutoFormat') do
       begin
         AutoFormatKw:=ReadBool('kw',AutoFormatKw);
         ProgramFileCharsetUTF8:=ReadBool('cs',ProgramFileCharsetUTF8);
         free
        end;

finalization
      with TMyIniFile.create('AutoFormat') do
         begin
             WriteBool('kw',AutoFormatKw);
             WriteBool('cs',ProgramFileCharsetUTF8);
             free
         end;

end.
