options.pas

IDE开发环境

unit Options;
      
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, INIFiles, BrowseDialog;

type
  TOptionsFrm = class(TForm)
    CompileGroup: TGroupBox;
    Label1: TLabel;
    CompileCommand: TEdit;
    OpenDialog1: TOpenDialog;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    EnviornmentGroup: TGroupBox;
    WrittenLangLabel: TLabel;
    WrittenLangBtn: TButton;
    Label3: TLabel;
    DefaultPath: TEdit;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    GridX: TEdit;
    GridY: TEdit;
    GrabHandleType: TComboBox;
    Label2: TLabel;
    MenuStyle: TComboBox;
    SnapToGrid: TCheckBox;
    Button2: TButton;
    Button3: TButton;
    LanguageLabel: TLabel;
    BrowseDialog1: TBrowseDialog;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure WrittenLangBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DefaultPathChange(Sender: TObject);
    procedure SetDefaultPath(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OptionsFrm: TOptionsFrm;

implementation

uses LangUnit, MainUnit, Utils;

{$R *.dfm}

procedure TOptionsFrm.BitBtn1Click(Sender: TObject);
var
  SettingsINI : TINIFile;
begin
SettingsINI := TINIFile.Create('BASICIDE.INI');

SettingsINI.WriteString('Options', 'CompileCommand', CompileCommand.Text);
SettingsINI.WriteInteger('Form Designer', 'GrabHandleStyle', GrabHandleType.ItemIndex);
SettingsINI.WriteString('Form Designer', 'GridX', GridX.Text);
SettingsINI.WriteString('Form Designer', 'GridY', GridX.Text);
SettingsINI.WriteInteger('Options', 'MenuStyle', MenuStyle.ItemIndex);
SettingsINI.WriteBool('Form Designer', 'SnapToGrid', SnapToGrid.Checked);
SettingsINI.WriteString('Options','DefaultPath',DefaultPath.Text);
SettingsINI.Free;

OptionsFrm.Close;
end;

procedure TOptionsFrm.Button1Click(Sender: TObject);
begin
OpenDialog1.InitialDir := DefaultPath.Text;
IF OpenDialog1.Execute then
  CompileCommand.Text := OpenDialog1.FileName;
end;

procedure TOptionsFrm.BitBtn2Click(Sender: TObject);
begin
OptionsFrm.Close;
end;

procedure TOptionsFrm.WrittenLangBtnClick(Sender: TObject);
begin
LanguageFrm.Show;
end;

procedure TOptionsFrm.FormShow(Sender: TObject);
var
  SettingsINI : TINIFile;
begin
SettingsINI := TINIFile.Create('BASICIDE.INI');

CompileCommand.Text := SettingsINI.ReadString('Options', 'CompileCommand', '');
GrabHandleType.ItemIndex := SettingsINI.ReadInteger('Form Designer', 'GrabHandleStyle', 0);
GridX.Text := SettingsINI.ReadString('Form Designer', 'GridX', '8');
GridY.Text := SettingsINI.ReadString('Form Designer', 'GridY', '8');
MenuStyle.ItemIndex := SettingsINI.ReadInteger('Options', 'MenuStyle', 2);
DefaultPath.Text := SettingsINI.ReadString('Options','DefaultPath', 'C:\');
OpenDialog1.InitialDir := DefaultPath.Text;
LanguageLabel.Caption := SettingsINI.ReadString('Options', 'Language', 'English');
Utils.SetSettings;
SettingsINI.Free;
end;

procedure TOptionsFrm.DefaultPathChange(Sender: TObject);
begin
OpenDialog1.InitialDir := DefaultPath.Text;
end;

procedure TOptionsFrm.SetDefaultPath(Sender: TObject);
begin
BrowseDialog1.Title := 'Choose a default directory for Open and Save dialogs.';
IF BrowseDialog1.Execute then
  DefaultPath.Text  := BrowseDialog1.Folder;
end;

end.