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

IDE: designer mediator: setting Designer

Browse Source 
git-svn-id: trunk@22668 -
This commit is contained in:
mattias 2009-11-18 10:32:59 +00:00
parent 42dbb82a49
commit b7dcea7011
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
designer/designer.pp
View File

@ -477,7 +477,7 @@ begin
FForm := TheDesignerForm;
if FForm is TNonControlDesignerForm then begin
FLookupRoot := TNonControlDesignerForm(FForm).LookupRoot;
FMediator:=TNonControlDesignerForm(FForm).Mediator;
Mediator:=TNonControlDesignerForm(FForm).Mediator;
end
else if FForm is TFrameDesignerForm then
FLookupRoot := TFrameDesignerForm(FForm).LookupRoot
@ -531,8 +531,8 @@ begin
// delete
if Form <> nil then
Form.Designer := nil;
if FMediator<>nil then
FMediator.Designer:=nil;
if Mediator<>nil then
Mediator.Designer:=nil;
// free or hide the form
TheFormEditor.DeleteComponent(FLookupRoot,FreeComponent);
FMediator:=nil;
@ -2829,10 +2829,10 @@ end;
procedure TDesigner.SetMediator(const AValue: TDesignerMediator);
begin
if FMediator=AValue then exit;
if FMediator<>nil then FMediator.Designer:=nil;
if Mediator=AValue then exit;
if Mediator<>nil then Mediator.Designer:=nil;
FMediator:=AValue;
if FMediator<>nil then FMediator.Designer:=Self;
if Mediator<>nil then Mediator.Designer:=Self;
end;
procedure TDesigner.SetShowEditorHints(const AValue: boolean);