SynEdit Highlighter

[Die Muhkuh]

Zitat von Störtebeker:

Zum einen, ist das richtig, dass SynEdit nur einen Highleiter zulässt?
Und zweitens, dachte ich, dem Benutzer die Möglichkeit zu geben, zwischen verschiedenen Highlightern zu wählen.

Zum ersten: Nein, ist falsch. SynEdit ist in der Lage, mehrere Highlighter zu verwenden. Stichwort hierbei ist TSynMultiSyn. Mit dem funktioniert das.

Zum zweiten:

Aufbau der Combobox (Items)

HTML
PHP
JavaScript

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if (SynEdit1.Highlighter <> nil) then
    SynEdit1.Highlighter.Free;

  case Combobox1.ItemIndex of
    0: SynEdit1.Highlighter := TSynHTMLSyn.Create(SynEdit1);
    1: SynEdit1.Highlighter := TSynPHPSyn.Create(SynEdit1);
    2: SynEdit1.Highlighter := TSynJScriptSyn.Create(SynEdit1);
  end;
end;

Dazu die entsprechenden Uses:

Delphi-Quellcode:

SynEdit,
  {Highlighters}
  SynEditHighlighter, SynHighlighterHtml, SynHighlighterPHP,
  SynHighlighterJScript;