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

IDE: enabled multi form properties by default

Browse Source 
git-svn-id: trunk@15334 -
This commit is contained in:
mattias 2008-06-06 06:14:04 +00:00
parent 7ef47a5ad7
commit 97ceeb98a6
4 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/jitforms.pp
View File

@ -875,9 +875,6 @@ begin
// The other components are done at the end via GlobalFixupReferences. // The other components are done at the end via GlobalFixupReferences.
// So, there is nothing left to do here. // So, there is nothing left to do here.
Result := nil; Result := nil;
{$IFDEF EnableMultiFormProperties}
//DebugLn('TJITComponentList.OnFindGlobalComponent Root=',dbgsName(CurReadJITComponent), ' Name=', AName, ' Result=', dbgsName(Result));
{$ENDIF}
//DebugLn(dbgsName(CurReadJITComponent), ' FIND global component ', AName, ' ', dbgsName(Result)); //DebugLn(dbgsName(CurReadJITComponent), ' FIND global component ', AName, ' ', dbgsName(Result));
end; end;

4
ide/include/ide.inc
View File

@ -21,7 +21,7 @@
{ $DEFINE IDE_VERBOSE} { $DEFINE IDE_VERBOSE}
// !!! if you change this flag, you have to make cleanide !!! // !!! if you change any of these flags, you have to make cleanide !!!
{ $DEFINE IDE_MEM_CHECK} { $DEFINE IDE_MEM_CHECK}
{ $DEFINE IDE_DEBUG} { $DEFINE IDE_DEBUG}
@ -34,7 +34,7 @@
{$DEFINE DisableFakeMethods} {$DEFINE DisableFakeMethods}
{$ENDIF} {$ENDIF}
{$IFDEF EnableMultiFormProperties} {$IFNDEF DisableMultiFormProperties}
{$DEFINE VerboseIDEMultiForm} {$DEFINE VerboseIDEMultiForm}
{$ENDIF} {$ENDIF}

2
ide/main.pp
View File

@ -5773,7 +5773,7 @@ begin
ReferenceInstanceNames.Clear; ReferenceInstanceNames.Clear;
GetFixupInstanceNames(CurRoot,RefRootName,ReferenceInstanceNames); GetFixupInstanceNames(CurRoot,RefRootName,ReferenceInstanceNames);
{$IFDEF EnableMultiFormProperties} {$IFNDEF DisableMultiFormProperties}
DebugLn(['TMainIDE.DoFixupComponentReferences BEFORE loading ',i,' ',dbgsName(CurRoot),' RefRoot=',RefRootName,' Refs="',Trim(ReferenceInstanceNames.Text),'"']); DebugLn(['TMainIDE.DoFixupComponentReferences BEFORE loading ',i,' ',dbgsName(CurRoot),' RefRoot=',RefRootName,' Refs="',Trim(ReferenceInstanceNames.Text),'"']);
// load the referenced component // load the referenced component

6
packager/pkgmanager.pas
View File

@ -4033,7 +4033,7 @@ var
begin begin
Result:=nil; Result:=nil;
if not (CurRoot is TComponent) then exit; if not (CurRoot is TComponent) then exit;
{$IFNDEF EnableMultiFormProperties} {$IFDEF DisableMultiFormProperties}
exit; exit;
{$ENDIF} {$ENDIF}
FMainOwner:=nil; FMainOwner:=nil;
@ -4081,7 +4081,7 @@ var
begin begin
if not (CurRoot is TComponent) then exit; if not (CurRoot is TComponent) then exit;
CheckComponent(TComponent(CurRoot)); CheckComponent(TComponent(CurRoot));
{$IFNDEF EnableMultiFormProperties} {$IFDEF DisableMultiFormProperties}
exit; exit;
{$ENDIF} {$ENDIF}
UnitList:=GetUsableComponentUnits(CurRoot); UnitList:=GetUsableComponentUnits(CurRoot);
@ -4159,7 +4159,7 @@ begin
if (RootName='') or (SysUtils.CompareText(RootName,TComponent(CurRoot).Name)=0) if (RootName='') or (SysUtils.CompareText(RootName,TComponent(CurRoot).Name)=0)
then then
CheckComponent(TComponent(CurRoot).Name,SubPath,TComponent(CurRoot)); CheckComponent(TComponent(CurRoot).Name,SubPath,TComponent(CurRoot));
{$IFNDEF EnableMultiFormProperties} {$IFDEF DisableMultiFormProperties}
exit; exit;
{$ENDIF} {$ENDIF}
if p<1 then exit; if p<1 then exit;