|
procedure TWPSyntaxHigh.HighlighterNameChange(Sender: TObject);
begin
if WPSynEditHighlight1.SelectLanguage( HighlighterName.Text ) then
begin
WPSynEditHighlight1.Execute(WPRichText1.FirstPar);
WPSynEditHighlight1.Enabled := FALSE;
WPRichText1.ReformatAll(true, true);
WPSynEditHighlight1.Enabled := TRUE;
end;
WPRichText1.SetFocus;
end; |