delphi - DScintilla 是否有语法突出显示的示例？

Question

我已经安装了DScintilla , Delphi VCL 包装器 Scintilla代码编辑组件，但我找不到任何如何使用它的基本示例。

您能否发布一些语法突出显示的基本代码示例或对其代码示例的引用？

Answer 1

非常有趣的库，但很难说你到底想用它做什么。例如，这里是 Pascal 语法荧光笔的一些基本颜色设置的示例。请注意，您的项目文件夹(或应用程序查找它的文件夹)中需要有 SciLexer.dll 库。

这个库包装器提供了许多具有有意义名称的功能，因此我认为最好的是您自己浏览它们。

uses
  DScintillaTypes, DScintilla;

procedure TForm1.Button1Click(Sender: TObject);
var
  Scintilla: TDScintilla;
begin
  Scintilla := TDScintilla.Create(Self); // creating it dynamically, it's also available as a component, so you don't need to do this
  Scintilla.DllModule := 'SciLexer.dll'; // the syntax library
  Scintilla.Align := alClient;           // object alignment to the whole parent
  Scintilla.Parent := Self;              // setting up the parent
  Scintilla.SetLexer(SCLEX_PASCAL);      // and setting the syntax highlighter, see SCLEX_ types in DScintillaTypes.pas

  Scintilla.StyleSetBack(STYLE_DEFAULT, clBlack); // setting up the default background color
  Scintilla.StyleSetFore(SCE_PAS_DEFAULT, clWhite); // Pascal specific default fore color
  Scintilla.StyleSetBack(SCE_PAS_DEFAULT, clBlack); // Pascal specific default back color
  Scintilla.StyleSetFore(SCE_PAS_IDENTIFIER, clYellow); // Pascal specific identifier fore color
  Scintilla.StyleSetBack(SCE_PAS_IDENTIFIER, clBlack); // Pascal specific identifier back color
  Scintilla.StyleSetBold(SCE_PAS_IDENTIFIER, True); // Pascal specific identifier bold font style
  Scintilla.StyleSetUnderline(SCE_PAS_IDENTIFIER, True); // Pascal specific identifier underline font style
  Scintilla.StyleSetFore(SCE_PAS_COMMENT, RGB(243, 236, 255)); // etc.
  Scintilla.StyleSetBack(SCE_PAS_COMMENT, clBlack);
  Scintilla.StyleSetFore(SCE_PAS_COMMENT2, RGB(243, 236, 255));
  Scintilla.StyleSetBack(SCE_PAS_COMMENT2, clBlack);
  Scintilla.StyleSetFore(SCE_PAS_COMMENTLINE, RGB(243, 236, 255));
  Scintilla.StyleSetBack(SCE_PAS_COMMENTLINE, clBlack);
  Scintilla.StyleSetFore(SCE_PAS_NUMBER, RGB(243, 236, 255));
  Scintilla.StyleSetBack(SCE_PAS_NUMBER, clBlack);
  Scintilla.StyleSetFore(SCE_PAS_HEXNUMBER, RGB(243, 236, 255));
  Scintilla.StyleSetBack(SCE_PAS_HEXNUMBER, clBlack);
  Scintilla.StyleSetFore(SCE_PAS_WORD, RGB(243, 236, 255));
  Scintilla.StyleSetBack(SCE_PAS_WORD, clBlack);
  Scintilla.StyleSetFore(SCE_PAS_STRING, RGB(243, 236, 255));
  Scintilla.StyleSetBack(SCE_PAS_STRING, clBlack);
  Scintilla.StyleSetFore(SCE_PAS_STRINGEOL, RGB(243, 236, 255));
  Scintilla.StyleSetBack(SCE_PAS_STRINGEOL, clBlack);
  Scintilla.StyleSetFore(SCE_PAS_CHARACTER, RGB(243, 236, 255));
  Scintilla.StyleSetBack(SCE_PAS_CHARACTER, clBlack);
  Scintilla.StyleSetFore(SCE_PAS_OPERATOR, clRed);
  Scintilla.StyleSetBack(SCE_PAS_OPERATOR, clBlack);
  Scintilla.StyleSetFore(SCE_PAS_ASM, clRed);
  Scintilla.StyleSetBack(SCE_PAS_ASM, clBlack);
end;