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

IDE: codeexplorer: sorted class section constants for visibility

Browse Source 
git-svn-id: trunk@13572 -
This commit is contained in:
mattias 2008-01-02 00:55:06 +00:00
parent 9d014e876b
commit e59a6c5881
2 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/codetools/codetree.pas
View File

@ -81,18 +81,18 @@ const
ctnClass = 30;
ctnClassInterface = 31;
ctnClassTypePublic = 32;
ctnClassTypePrivate = 33;
ctnClassTypeProtected = 34;
ctnClassTypePrivate = 32;
ctnClassTypeProtected = 33;
ctnClassTypePublic = 34;
ctnClassTypePublished = 35;
ctnClassVarPublic = 36;
ctnClassVarPrivate = 37;
ctnClassVarProtected = 38;
ctnClassVarPrivate = 36;
ctnClassVarProtected = 37;
ctnClassVarPublic = 38;
ctnClassVarPublished = 39;
ctnClassPublished = 40;
ctnClassPrivate = 41;
ctnClassProtected = 42;
ctnClassPublic = 43;
ctnClassPrivate = 40;
ctnClassProtected = 41;
ctnClassPublic = 42;
ctnClassPublished = 43;
ctnClassGUID = 44;
ctnProperty = 50;

6
ide/codeexplorer.pas
View File

@ -1168,18 +1168,18 @@ const
ctnProcedure: Result:=3;
// class sections
ctnClassTypePublic,
ctnClassTypePrivate,
ctnClassTypeProtected,
ctnClassTypePublic,
ctnClassTypePublished,
ctnClassVarPublic,
ctnClassVarPrivate,
ctnClassVarProtected,
ctnClassVarPublic,
ctnClassVarPublished,
ctnClassPrivate,
ctnClassProtected,
ctnClassPublic,
ctnClassPublished : Result:=Desc-ctnClassTypePublic;
ctnClassPublished : Result:=Desc-ctnClassTypePrivate;
else Result:=1000;
end;