fsettings.pas

Delphi编写的一个支持语法高亮显示和很多语言的文本编辑器

unit fSettings;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, iniFiles, COrelButton;

type
  TfrmSettings = class(TForm)
    pgSettings: TPageControl;
    tbsSettings: TTabSheet;
    tbsOptions: TTabSheet;
    pnlSettings: TPanel;
    pnlOptions: TPanel;
    imgEXE: TImage;
    imgEXE2: TImage;
    lblLang: TLabel;
    lblExt: TLabel;
    lblComp: TLabel;
    lblOpt: TLabel;
    lblFilename: TLabel;
    cmbLang: TComboBox;
    edtExt: TEdit;
    edtComp: TEdit;
    edtOpt: TEdit;
    edtFilename: TEdit;
    btnCompiler: TCorelButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    rdROff: TRadioButton;
    rdROn: TRadioButton;
    rdEOn: TRadioButton;
    rdEOff: TRadioButton;
    rdCOn: TRadioButton;
    rdCOff: TRadioButton;
    btnSave: TCorelButton;
    btnCancel: TCorelButton;
    dlgOpen: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure btnCompilerClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSettings: TfrmSettings;

implementation

{$R *.dfm}

procedure TfrmSettings.FormCreate(Sender: TObject);
var
  SRec : TSearchRec;
  b: Boolean;
begin
  b:=(FindFirst(ExtractFilePath(Application.ExeName) + 'syntax\*.lng', faAnyFile, SRec) = 0);
  While b do
  begin
    cmbLang.Items.Add(SRec.FindData.cFileName);
    b:=(FindNext(SRec) = 0);
  end;
end;

procedure TfrmSettings.btnCompilerClick(Sender: TObject);
begin
  dlgOpen.Filter := 'All Standard Compiler Extensions (*.exe;*.bat)|*.exe;*.bat|Executable Files (*.exe)|*.exe|Batch Files (*.bat)|*.bat|All Files (*.*)|*.*';
  With dlgOpen do begin
    if Execute then
      edtComp.Text := dlgOpen.FileName;
  end;
end;

procedure TfrmSettings.btnSaveClick(Sender: TObject);
var
  ini: TIniFile;
  tmpStr: String;
begin
  ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'compile\' + edtFilename.Text + '.cmp');
  ini.WriteString('Compile', 'Language', cmbLang.text);
  ini.WriteString('Compile', 'Extension', edtExt.Text);
  ini.WriteString('Compile', 'Compile', edtComp.Text);
  ini.WriteString('Compile', 'Variables', edtOpt.Text);
  if (rdROn.Checked = true) then
    tmpStr := 'on'
  else
    tmpStr := 'off';
  ini.WriteString('Compile', 'RunWhenComplete', tmpStr);
  if (rdEOn.Checked = true) then
    tmpStr := 'on'
  else
    tmpStr := 'off';
  ini.WriteString('Compile', 'InputForOutput', tmpStr);
  if (rdCOn.Checked = true) then
    tmpStr := 'on'
  else
    tmpSTr := 'off';
  ini.WriteString('Compile', 'CaptureOutput', tmpStr);
  ini.Destroy;
  close;
end;

procedure TfrmSettings.btnCancelClick(Sender: TObject);
begin
  close;
end;

end.