1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

  TSynEditForm = class(TampForm)
    cbHighlighter: TComboBox;
    Panel1: TPanel;
    SynEdit1: TSynEdit;
    procedure cbHighlighterChange(Sender: TObject);
    procedure SynEdit1Change(Sender: TObject);
  private  
    highlighter:TSynCustomHighlighter;
  public
...
    procedure AfterConstruction; override;
  end;


implementation



procedure TSynEditForm.AfterConstruction;
var i:integer;
    hlList:TSynHighlighterList;
begin
  inherited;
  hlList := GetPlaceableHighlighters; // verfügbare 'higleiter' holen und in combo laden
  for i := 0 to hlList.Count-1 do
  begin
    cbHighlighter.AddItem(hlList[i].GetLanguageName,TObject(hlList[i]));
    if hlList[i].ClassName = TSynEditPort(MindPort).HighlighterClass
    then cbHighlighter.ItemIndex := i;
  end;
  {if cbHighlighter.Items.Count > 0 then
  begin
    cbHighlighter.ItemIndex := 0;
    cbHighlighterChange(nil);
  end; }
end;

procedure TSynEditForm.cbHighlighterChange(Sender: TObject); // onChange von combo
var hlClass:TSynCustomHighlighterClass;
begin
  if cbHighlighter.ItemIndex > -1 then
  begin  
    hlClass := TSynCustomHighlighterClass(cbHighlighter.Items.Objects[cbHighlighter.ItemIndex]);
    TSynEditPort(MindPort).HighlighterClass := hlClass.ClassName;
    if (hlCLass <> nil) then
    begin
      if (highlighter <> nil) and (highlighter.ClassType <> hlClass)
      then FreeAndNil(highlighter);
      if highlighter = nil then 
      begin
        highlighter := hlClass.Create(self);
        SynEdit1.Highlighter := highlighter;
      end;  
    end;  
  end else FreeAndNil(highlighter);  
  DataChanged := true;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

{
  Erstellt das Higleiter Menu
  
  Autor: Michael Springwald
  Datum: 01.07.2004
  Upgedatet: 01.07.2004
}

procedure TForm1.CreateHigMenu;
var
  hlList:TSynHighlighterList;
  M:TMenuItem;
  count,i:Integer;
  str:String;
begin  
  inherited;  
  hlList := GetPlaceableHighlighters; // verfügbare 'higleiter' holen und in combo laden
  count:=0;  
  for i := 0 to hlList.Count-1 do begin
    // Higleiter dem Menu hinzufügen
    if count <= HigMaxiMenu-1 then begin
      inc(count);
      m:=TMenuItem.Create(self);
      m.Caption:=hlList.Items[i].GetLanguageName;
      Higleiter1.Add(m);
    end;

    // Menu Eintrag Auswählen erstellen
    if count = HigMaxiMenu then begin
      count:=count+1;
      m:=TMenuItem.Create(Self);
      m.Caption:='-';
      HigLeiter1.Add(m);

      m:=TMenuItem.Create(Self);
      m.Caption:='Menu &Auswählen...';
      M.ShortCut:=TextToShortCut('Strg+H');
      M.OnClick:=HigAusClick;
      HigLeiter1.Add(m);     
    
    end
    else // ListBox fühllen von Form2
      Form2.ListBox1.Items.Add(hlList.Items[i].GetLanguageName);    
  end;  

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

for i := 0 to hlList.Count-1 do 
begin  
    
      m:=TMenuItem.Create(self);  
      m.Caption:=hlList.Items[i].GetLanguageName;  
      // klasse in tag speichern
      m.tag := integer(hlList[i]); 
      // THighlighterClass(TMenuItem(sender).tag) kommst du dann wieder an die klasse
end;       

m:=TMenuItem.Create(Self);  
m.Caption:='-';  
HigLeiter1.Add(m);  
 
m:=TMenuItem.Create(Self);  
m.Caption:='Menu &Auswählen...';  
M.ShortCut:=TextToShortCut('Strg+H');  
M.OnClick:=HigAusClick;  
HigLeiter1.Add(m);