Delphi SynEdit 開發 IDE 元件

http://synedit.sourceforge.net/

使用 Pascal highlighter
在 Form 上放入 SynEdit -> TSynEdit 和 SynEdit Highlighters -> TSynPasSyn
在 Form OnCreate 事件中加入

procedure TForm1.FormCreate(Sender: TObject);
begin
  with SynPasSyn1 do
  begin
    // set color
    CommentAttri.Foreground := clGreen;
    IdentifierAttri.Foreground := clNavy;
    NumberAttri.Foreground := clBlue;
    StringAttri.Foreground := clBlue;
  end;
  // set Highlighter
  SynEdit1.Highlighter := SynPasSyn1;
  with SynEdit1.Lines do
  begin
    // add Pascal code
    Add('// Delphi source code');
    Add('function StrToInt(const S: string): Integer;');
    Add('var');
    Add('  E: Integer;');
    Add('begin');
    Add('  Val(S, Result, E);');
    Add('  if E <> 0 then ConvertErrorFmt(@SInvalidInteger, [S]);');
    Add('end;');
  end;
end;