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

clean up

Browse Source 
git-svn-id: trunk@23644 -
This commit is contained in:
mattias 2010-02-05 16:22:49 +00:00
parent 9c28757ec7
commit f4b1d030b0
2 changed files with 3 additions and 3 deletions

4
ide/main.pp
View File

@ -15506,8 +15506,8 @@ begin
ATypeInfo,false,GetClassUnitName(APersistent.ClassType),APropertyPath,
OverrideMethodName);
{$IFDEF IDE_DEBUG}
writeln('');
writeln('[TMainIDE.OnPropHookCreateMethod] ************2 ',r,' ',AMethodName);
debugln('');
debugln('[TMainIDE.OnPropHookCreateMethod] ************2 ',r,' ',AMethodName);
{$ENDIF}
ApplyCodeToolChanges;
if r then begin

2
ide/projectresources.pas
View File

@ -277,7 +277,7 @@ begin
if ResourceTypesCache = nil then
ResourceTypesCache := TResourceTypesCache.Create;
ResourceTypesCache.Parse(Code, HasLRSIncludeDirective, HasRDirective);
DebugLn(['GuessResourceType ',Code.Filename,' HasLRS=',HasLRSIncludeDirective,' HasR=',HasRDirective]);
//DebugLn(['GuessResourceType ',Code.Filename,' HasLRS=',HasLRSIncludeDirective,' HasR=',HasRDirective]);
if HasLRSIncludeDirective then
begin
Typ := rtLRS;