paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 07:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Markup fold color... fix array len, patch from issue #31049

Browse Source 
git-svn-id: trunk@53987 -
This commit is contained in:
martin 2017-01-24 01:29:29 +00:00
parent fad73bb819
commit b32479366d
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/synedit/syneditmarkupfoldcoloring.pas
View File

@ -82,11 +82,12 @@ type
FFirstCharacterColumnCache: Array of Byte;
FEndLineCache: Array of Integer;
FCacheCount,
FCacheCapacity: Integer;
FCacheCapacity,
FFoldColorInfosCount,
FFoldColorInfosCapacity: Integer;
FDefaultGroup: integer;
FFoldColorInfos: TMarkupFoldColorInfos;
FFoldColorInfosCount: Integer;
Colors : array of TColor;
FPreparedRow: integer;
@ -95,6 +96,7 @@ type
procedure DoMarkupParentCloseFoldAtRow(aRow: Integer);
procedure SetDefaultGroup(AValue: integer);
procedure SetCacheCount(pNewCount: Integer);
procedure SetFoldColorInfosCount(pNewCount: Integer);
procedure InitCache;
procedure ClearCache;
property FirstCharacterColumn[index: Integer]: Byte read GetFirstCharacterColumn;
@ -150,6 +152,7 @@ begin
FDefaultGroup := 0;
FFoldColorInfosCount := 0;
SetLength(FFoldColorInfos, 50);
FFoldColorInfosCapacity := 50;
FNestList := TLazSynEditNestedFoldsList.Create(Lines, FHighlighter);
FNestList.ResetFilter;
@ -298,7 +301,7 @@ var
DebugLn('!!! TSynEditMarkupFoldColors.DoMarkupParentFoldAtRow: FEndLine-Array too small !!!');
end;
end;
inc(FFoldColorInfosCount);
SetFoldColorInfosCount(FFoldColorInfosCount + 1);
with FFoldColorInfos[FFoldColorInfosCount - 1] do begin
SrcNode:= ANode; //needed by close node
@ -403,7 +406,7 @@ var
FFoldColorInfos[j].Border := False
end;
inc(FFoldColorInfosCount);
SetFoldColorInfosCount(FFoldColorInfosCount + 1);
with FFoldColorInfos[FFoldColorInfosCount - 1] do begin
Border := False;
SrcNode:= ANode; //needed by close node
@ -604,6 +607,18 @@ begin
FCacheCount := pNewCount;
end;
procedure TSynEditMarkupFoldColors.SetFoldColorInfosCount(pNewCount: Integer);
var
i: Integer;
begin
if pNewCount > FFoldColorInfosCapacity then begin
// expand array
FFoldColorInfosCapacity := pNewCount + 49;
SetLength(FFoldColorInfos, FFoldColorInfosCapacity);
end;
FFoldColorInfosCount := pNewCount;
end;
procedure TSynEditMarkupFoldColors.InitCache;
begin
if Assigned(FNestList) then