paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 20:07:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixing up global designer references

Browse Source 
git-svn-id: trunk@14839 -
This commit is contained in:
mattias 2008-04-15 18:28:17 +00:00
parent 91532eaa76
commit d6163d5518
3 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/jitforms.pp
View File

@ -814,6 +814,9 @@ begin
// The other components are done at the end via GlobalFixupReferences.
// So, there is nothing left to do here.
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));
end;

8
ide/main.pp
View File

@ -5645,16 +5645,18 @@ begin
RefRootName:=ReferenceRootNames[i];
ReferenceInstanceNames.Clear;
GetFixupInstanceNames(CurRoot,RefRootName,ReferenceInstanceNames);
//DebugLn(['TMainIDE.DoFixupComponentReferences ',i,' ',dbgsName(CurRoot),' RefRoot=',RefRootName,' Refs="',Trim(ReferenceInstanceNames.Text),'"']);
{$IFDEF EnableMultiFormProperties}
DebugLn(['TMainIDE.DoFixupComponentReferences BEFORE loading ',i,' ',dbgsName(CurRoot),' RefRoot=',RefRootName,' Refs="',Trim(ReferenceInstanceNames.Text),'"']);
// load the referenced component
Result:=LoadDependencyHidden(RefRootName);
{$ENDIF}
GlobalFixupReferences;
ReferenceInstanceNames.Clear;
GetFixupInstanceNames(CurRoot,RefRootName,ReferenceInstanceNames);
//DebugLn(['TMainIDE.DoFixupComponentReferences AAA2 ',i,' ',dbgsName(CurRoot),' RefRoot=',RefRootName,' Refs="',Trim(ReferenceInstanceNames.Text),'"']);
DebugLn(['TMainIDE.DoFixupComponentReferences AFTER loading ',i,' ',dbgsName(CurRoot),' RefRoot=',RefRootName,' Refs="',Trim(ReferenceInstanceNames.Text),'"']);
// forget the rest of the dangling references
RemoveFixupReferences(CurRoot,RefRootName);
@ -5665,6 +5667,8 @@ begin
// b) undo the opening (close the designer forms)
end;
end;
finally
ReferenceRootNames.Free;
ReferenceInstanceNames.Free;

9
ideintf/propedits.pp
View File

@ -4124,9 +4124,14 @@ begin
end;
function TComponentPropertyEditor.AllEqual: Boolean;
var
AComponent: TComponent;
begin
Result:=(inherited AllEqual)
and (FindRootDesigner(GetComponentReference)<>nil);
Result:=false;
if not (inherited AllEqual) then exit;
AComponent:=GetComponentReference;
if AComponent=nil then exit;
Result:=csDesigning in AComponent.ComponentState;
end;