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

IDE: fixed compilation

Browse Source 
git-svn-id: trunk@34885 -
This commit is contained in:
mattias 2012-01-23 17:48:01 +00:00
parent d1a81f63bd
commit 0cb62e4c38
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/sourcesyneditor.pas
View File

@ -390,6 +390,7 @@ var
InfCnt, i, t, ListCnt: Integer;
Inf: TFoldViewNodeInfo;
InfList: array [0..1] of TFoldViewNodeInfo;
NodeFoldType: TPascalCodeFoldBlockType;
begin
if FSrcSynCaretChangedLock or not(TextView.HighLighter is TSynPasSyn) then exit;
@ -404,22 +405,23 @@ begin
if sfaInvalid in Inf.HNode.FoldAction then
continue;
if (TPascalCodeFoldBlockType(Inf.HNode.FoldType) in [cfbtClassSection]) and (ListCnt = 0) then begin
NodeFoldType:=TPascalCodeFoldBlockType(PtrUInt(Inf.HNode.FoldType));
if (NodeFoldType in [cfbtClassSection]) and (ListCnt = 0) then begin
InfList[ListCnt] := Inf;
inc(ListCnt);
end;
if (TPascalCodeFoldBlockType(Inf.HNode.FoldType) in [cfbtClass]) and (ListCnt < 2) then begin
if (NodeFoldType in [cfbtClass]) and (ListCnt < 2) then begin
InfList[ListCnt] := Inf;
inc(ListCnt);
end;
if (TPascalCodeFoldBlockType(Inf.HNode.FoldType) in [cfbtProcedure]) and (ListCnt < 2) then begin
if (NodeFoldType in [cfbtProcedure]) and (ListCnt < 2) then begin
InfList[ListCnt] := Inf;
inc(ListCnt);
end;
if (TPascalCodeFoldBlockType(Inf.HNode.FoldType) in [cfbtProcedure]) and (ListCnt = 2) and
(TPascalCodeFoldBlockType(InfList[ListCnt-1].HNode.FoldType) = cfbtProcedure)
if (NodeFoldType in [cfbtProcedure]) and (ListCnt = 2) and
(TPascalCodeFoldBlockType(PtrUInt(InfList[ListCnt-1].HNode.FoldType)) = cfbtProcedure)
then begin
InfList[ListCnt-1] := Inf;
end;