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

IDE: code explorer: fixed ignoring user defined constants

Browse Source 
git-svn-id: trunk@19461 -
This commit is contained in:
mattias 2009-04-16 23:29:31 +00:00
parent 97bbdab0c8
commit da0694aae0
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/basiccodetools.pas
View File

@ -3213,6 +3213,7 @@ begin
inc(p2); inc(p2);
dec(l); dec(l);
end; end;
Result:=0;
end; end;
function CompareStringConstants(p1, p2: PChar): integer; function CompareStringConstants(p1, p2: PChar): integer;

4
ide/codeexplopts.pas
View File

@ -296,6 +296,8 @@ begin
AppendPathDelim(GetPrimaryConfigPath)+'codeexploreroptions.xml'; AppendPathDelim(GetPrimaryConfigPath)+'codeexploreroptions.xml';
FNotFigureConstants:=TAvgLvlTree.Create(TListSortCompare(@CompareAtom)); FNotFigureConstants:=TAvgLvlTree.Create(TListSortCompare(@CompareAtom));
Clear; Clear;
AddNotFigureConstant('0');
AddNotFigureConstant('1');
end; end;
destructor TCodeExplorerOptions.Destroy; destructor TCodeExplorerOptions.Destroy;
@ -317,8 +319,6 @@ begin
FNestedProcCount:=DefaultFigNestedProcCount; FNestedProcCount:=DefaultFigNestedProcCount;
FFigureCharConst:=DefaultFigureCharConst; FFigureCharConst:=DefaultFigureCharConst;
ClearNotFigureConstants; ClearNotFigureConstants;
AddNotFigureConstant('0');
AddNotFigureConstant('1');
end; end;
procedure TCodeExplorerOptions.Assign(Source: TPersistent); procedure TCodeExplorerOptions.Assign(Source: TPersistent);