paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 01:38:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Codetools: Improve class code beautifier, patch from Anton.

Browse Source 
git-svn-id: trunk@31984 -
This commit is contained in:
juha 2011-08-14 09:09:57 +00:00
parent e6e192474e
commit ea052b646d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/codebeautifier.pas
View File

@ -693,7 +693,7 @@ var
procedure StartProcedure(Typ: TFABBlockType);
begin
if Stack.TopType<>bbtDefinition then
if not (Stack.TopType in [bbtDefinition,bbtClassSection]) then
EndIdentifierSectionAndProc;
if Stack.TopType in (bbtAllCodeSections+bbtAllProcedures+[bbtNone,bbtDefinition,bbtClassSection])
then begin
@ -727,8 +727,11 @@ var
if Stack.TopType=bbtProcedureHead then
EndBlock;
if (Stack.TopType in bbtAllProcedures) and (not IsProcedureImplementation)
then
then begin
EndBlock;
if Stack.TopType=bbtDefinition then
EndBlock;
end;
end;
function CheckProcedureModifiers: boolean;