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

IDE: remove obsolete UnitInfoFlagNames, use WriteStr

Browse Source 
git-svn-id: trunk@33231 -
This commit is contained in:
juha 2011-11-02 23:14:15 +00:00
parent 3ae1241e1b
commit daeaa70d10
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/project.pp
View File

@ -1115,13 +1115,6 @@ const
var var
Project1: TProject = nil;// the main project Project1: TProject = nil;// the main project
const
UnitInfoFlagNames: array[TUnitInfoFlag] of string = (
'uifComponentUsedByDesigner',
'uifComponentIndirectlyUsedByDesigner',
'uifMarked'
);
function AddCompileReasonsDiff(const PropertyName: string; function AddCompileReasonsDiff(const PropertyName: string;
const Old, New: TCompileReasons; Tool: TCompilerDiffTool = nil): boolean; const Old, New: TCompileReasons; Tool: TCompilerDiffTool = nil): boolean;
function dbgs(aType: TUnitCompDependencyType): string; overload; function dbgs(aType: TUnitCompDependencyType): string; overload;
@ -1169,7 +1162,7 @@ end;
function dbgs(Flag: TUnitInfoFlag): string; function dbgs(Flag: TUnitInfoFlag): string;
begin begin
Result:=UnitInfoFlagNames[Flag]; WriteStr(Result, Flag);
end; end;
function dbgs(Flags: TUnitInfoFlags): string; function dbgs(Flags: TUnitInfoFlags): string;