paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-15 14:02:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fix crash using the Delphi highlighter (introduced in revision 19220 #9918770992) issue #13467

Browse Source 
git-svn-id: trunk@19229 -
This commit is contained in:
martin 2009-04-05 14:13:27 +00:00
parent 9eb3a0f03d
commit 63703b883c
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/editoroptions.pp
View File

@ -2319,10 +2319,12 @@ var
Path: String;
i: Integer;
begin
i := HighlighterList.FindByHighlighter(Syn);
if i < 0 then exit;
TheInfo := EditorOptionsDividerDefaults[HighlighterList[i].TheType];
ReadDefaultsForHighlighterFoldSettings(Syn);
TheInfo := EditorOptionsDividerDefaults
[HighlighterList[HighlighterList.FindByHighlighter(Syn)].TheType];
// read settings, that are different from the defaults
for i := 0 to TheInfo.Count - 1 do begin
Conf := Syn.DividerDrawConfig[i];
@ -2343,8 +2345,9 @@ var
TheInfo: TEditorOptionsDividerRecord;
i: Integer;
begin
TheInfo := EditorOptionsDividerDefaults
[HighlighterList[HighlighterList.FindByHighlighter(Syn)].TheType];
i := HighlighterList.FindByHighlighter(Syn);
if i < 0 then exit;
TheInfo := EditorOptionsDividerDefaults[HighlighterList[i].TheType];
for i := 0 to TheInfo.Count - 1 do begin
Syn.DividerDrawConfig[i].MaxDrawDepth := TheInfo.Info^[i].MaxLeveL;
Syn.DividerDrawConfig[i].TopColor := clDefault;
@ -2361,12 +2364,13 @@ var
TheInfo: TEditorOptionsDividerRecord;
ConfName: String;
begin
i := HighlighterList.FindByHighlighter(Syn);
if i < 0 then exit;
TheInfo := EditorOptionsDividerDefaults[HighlighterList[i].TheType];
DefSyn := TCustomSynClass(Syn.ClassType).Create(Nil);
try
ReadDefaultsForHighlighterFoldSettings(DefSyn);
TheInfo := EditorOptionsDividerDefaults
[HighlighterList[HighlighterList.FindByHighlighter(Syn)].TheType];
for i := 0 to TheInfo.Count - 1 do begin
Conf := Syn.DividerDrawConfig[i];
DefConf := DefSyn.DividerDrawConfig[i]; // default value