ftagedit.pas

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

unit fTagEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CorelButton;

type
  TfrmTagEdit = class(TForm)
    memTag: TMemo;
    edtTag: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    btnCursor: TCorelButton;
    btnIntput: TCorelButton;
    StaticText1: TStaticText;
    CorelButton1: TCorelButton;
    CorelButton2: TCorelButton;
    procedure btnCursorClick(Sender: TObject);
    procedure btnIntputClick(Sender: TObject);
    procedure CorelButton2Click(Sender: TObject);
    procedure CorelButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    bNewTag: Boolean;
    { Public declarations }
  end;

var
  frmTagEdit: TfrmTagEdit;

implementation

uses fOptions;

{$R *.dfm}

procedure TfrmTagEdit.btnCursorClick(Sender: TObject);
begin
  memTag.SelText := '^!';
end;

procedure TfrmTagEdit.btnIntputClick(Sender: TObject);
var
  str: String;
begin
  if InputQuery('Input Query', 'What would you like the user to input', str) then
    memTag.SelText := '^#' + str + '#^';
end;

procedure TfrmTagEdit.CorelButton2Click(Sender: TObject);
begin
  close;
end;

procedure TfrmTagEdit.CorelButton1Click(Sender: TObject);
begin
  if bNewTag = false then begin
    if frmOptions.lstTags.Selected = nil then exit;
    with frmOptions.lstTags.Selected do begin
      Caption := edtTag.Text;
      SubItems[0] := memTag.Text;
      frmOptions.SaveTags;
    end;
  end
  else begin
    With frmOptions.lstTags.Items.Add do begin
      Caption := edtTag.Text;
      SubItems.Add(memTag.Text);
      frmOptions.SaveTags;
    end;
  end;
  close;
end;

end.