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

SynEdit, Folding: Refined the block-end for class-sections (private/public)

Browse Source 
git-svn-id: trunk@18026 -
This commit is contained in:
martin 2009-01-01 22:55:39 +00:00
parent 45a82235cd
commit e2d80cd0fd
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synhighlighterpas.pp
View File

@ -769,7 +769,7 @@ begin
EndCodeFoldBlock;
end else begin
if TopPascalCodeFoldBlockType = cfbtClassSection then
EndCodeFoldBlock;
EndCodeFoldBlockLastLine;
if TopPascalCodeFoldBlockType = cfbtClass then
EndCodeFoldBlock;
end;
@ -985,7 +985,7 @@ begin
Result := tkKey;
if (TopPascalCodeFoldBlockType in [cfbtClass, cfbtClassSection]) then begin
if (TopPascalCodeFoldBlockType=cfbtClassSection) then
EndCodeFoldBlock;
EndCodeFoldBlockLastLine;
StartPascalCodeFoldBlock(cfbtClassSection);
end;
end
@ -1152,7 +1152,7 @@ begin
Result := tkKey;
if (TopPascalCodeFoldBlockType in [cfbtClass, cfbtClassSection]) then begin
if (TopPascalCodeFoldBlockType=cfbtClassSection) then
EndCodeFoldBlock;
EndCodeFoldBlockLastLine;
StartPascalCodeFoldBlock(cfbtClassSection);
end;
end
@ -1190,7 +1190,7 @@ begin
Result := tkKey;
if (TopPascalCodeFoldBlockType in [cfbtClass, cfbtClassSection]) then begin
if (TopPascalCodeFoldBlockType=cfbtClassSection) then
EndCodeFoldBlock;
EndCodeFoldBlockLastLine;
StartPascalCodeFoldBlock(cfbtClassSection);
end;
end
@ -1280,7 +1280,7 @@ begin
Result := tkKey;
if (TopPascalCodeFoldBlockType in [cfbtClass, cfbtClassSection]) then begin
if (TopPascalCodeFoldBlockType=cfbtClassSection) then
EndCodeFoldBlock;
EndCodeFoldBlockLastLine;
StartPascalCodeFoldBlock(cfbtClassSection);
end;
end