paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 16:59:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: more TSynMultiSyn fixes

Browse Source 
git-svn-id: trunk@25059 -
This commit is contained in:
martin 2010-04-29 02:43:48 +00:00
parent a58d37f968
commit 826b437986
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synhighlightermulti.pas
View File

@ -1304,7 +1304,7 @@ var
i: Integer; i: Integer;
begin begin
inherited; inherited;
if (aOp = opRemove) then begin if (aOp = opRemove) and (Schemes <> nil) then begin
if (aComp = DefaultHighlighter) then if (aComp = DefaultHighlighter) then
DefaultHighlighter := nil DefaultHighlighter := nil
else for i := 0 to Schemes.Count - 1 do else for i := 0 to Schemes.Count - 1 do