procedure TMainForm.FormCreate(Sender: TObject);
var
tkLevel1, tkLevel2, tkLevel3,
tkLevel4, tkLevel5, tkLevel6: TSynHighlighterAttributes;
begin
FMailHighlighter := TSynFacilSyn.Create(self);
with TSynFacilSyn(FMailHighlighter) do begin
ClearSpecials;
CreateAttributes;
ClearMethodTables;
tkLevel1 := NewTokType('Level1');
tkLevel1.Foreground := $BD814F;
tkLevel2 := NewTokType('Level2');
tkLevel2.Foreground := $4D50C0;
tkLevel3 := NewTokType('Level3');
tkLevel3.Foreground := $59BB9B;
tkLevel4 := NewTokType('Level4');
tkLevel4.Foreground := $A264B0;
tkLevel5 := NewTokType('Level5');
tkLevel5.Foreground := $C6AC4B;
tkLevel6 := NewTokType('Level6');
tkLevel6.Foreground := $4696F7;
DefTokDelim('>', '', tkLevel1);
DefTokDelim('On', ':$', tkLevel1);
DefTokDelim('On', ':$', tkLevel1);
DefTokDelim('>>', '', tkLevel2);
DefTokDelim('> >', '', tkLevel2);
DefTokDelim('> On', ':$', tkLevel2);
DefTokDelim('> On', ':$', tkLevel2);
DefTokDelim('>>>', '', tkLevel3);
DefTokDelim('> > >', '', tkLevel3);
DefTokDelim('>> On', ':$', tkLevel3);
DefTokDelim('> > On', ':$', tkLevel3);
DefTokDelim('>>>>', '', tkLevel4);
DefTokDelim('>>> On', ':$', tkLevel4);
DefTokDelim('>>> On', ':$', tkLevel4);
DefTokDelim('> > > >', '', tkLevel4);
DefTokDelim('> > > On', ':$', tkLevel4);
DefTokDelim('> > > On', ':$', tkLevel4);
DefTokDelim('>>>>>', '', tkLevel5);
DefTokDelim('>>>> On', ':$', tkLevel5);
DefTokDelim('>>>> On', ':$', tkLevel5);
DefTokDelim('> > > > >', '', tkLevel5);
DefTokDelim('> > > > On', ':$', tkLevel5);
DefTokDelim('> > > > On', ':$', tkLevel5);
DefTokDelim('>>>>>>', '', tkLevel6);
DefTokDelim('>>>>> On', ':$', tkLevel6);
DefTokDelim('>>>>> On', ':$', tkLevel6);
DefTokDelim('> > > > > >', '', tkLevel6);
DefTokDelim('> > > > > On', ':$', tkLevel6);
DefTokDelim('> > > > > On', ':$', tkLevel6);
Rebuild;
end;