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

DockedFormEditor: Minor refactoring DockedFormAccess

Browse Source 
git-svn-id: trunk@64577 -
This commit is contained in:
michl 2021-02-14 15:42:58 +00:00
parent 58c7171e6c
commit b34cb9897a
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/dockedformeditor/source/dockedformaccesses.pas
View File

@ -75,6 +75,7 @@ type
FAnchorDesigner: TBasicAnchorDesigner; FAnchorDesigner: TBasicAnchorDesigner;
FLastActiveSourceWindow: TSourceEditorWindowInterface; FLastActiveSourceWindow: TSourceEditorWindowInterface;
FSelectedControl: TControl; FSelectedControl: TControl;
function GetCurrentObjectInspector: TObjectInspectorDlg;
function GetDesigner: TIDesigner; function GetDesigner: TIDesigner;
function GetDesignWinControl: TWinControl; function GetDesignWinControl: TWinControl;
public public
@ -85,6 +86,7 @@ type
function IsAnchorDesign: Boolean; function IsAnchorDesign: Boolean;
public public
property AnchorDesigner: TBasicAnchorDesigner read FAnchorDesigner write FAnchorDesigner; property AnchorDesigner: TBasicAnchorDesigner read FAnchorDesigner write FAnchorDesigner;
property CurrentObjectInspector: TObjectInspectorDlg read GetCurrentObjectInspector;
property Designer: TIDesigner read GetDesigner; property Designer: TIDesigner read GetDesigner;
property DesignWinControl: TWinControl read GetDesignWinControl; property DesignWinControl: TWinControl read GetDesignWinControl;
property LastActiveSourceWindow: TSourceEditorWindowInterface read FLastActiveSourceWindow write FLastActiveSourceWindow; property LastActiveSourceWindow: TSourceEditorWindowInterface read FLastActiveSourceWindow write FLastActiveSourceWindow;
@ -194,6 +196,14 @@ begin
Result := FForm.Designer; Result := FForm.Designer;
end; end;
function TDesignFormIDE.GetCurrentObjectInspector: TObjectInspectorDlg;
begin
if Assigned(FormEditingHook) and (FormEditingHook.GetCurrentDesigner = Designer) then
Result := FormEditingHook.GetCurrentObjectInspector
else
Result := nil;
end;
function TDesignFormIDE.GetDesignWinControl: TWinControl; function TDesignFormIDE.GetDesignWinControl: TWinControl;
begin begin
Result := Form; Result := Form;
@ -226,20 +236,13 @@ begin
end; end;
procedure TDesignFormIDE.EndUpdate(AModified: Boolean); procedure TDesignFormIDE.EndUpdate(AModified: Boolean);
var
OI: TObjectInspectorDlg;
begin begin
THackForm(FForm).SetDesigning(True, False); THackForm(FForm).SetDesigning(True, False);
if Assigned(FAnchorDesigner) then if Assigned(FAnchorDesigner) then
FAnchorDesigner.EndUpdate; FAnchorDesigner.EndUpdate;
inherited EndUpdate(AModified); inherited EndUpdate(AModified);
if AModified and (FormEditingHook <> nil) if AModified and Assigned(CurrentObjectInspector) then
and (FormEditingHook.GetCurrentDesigner = Designer) then CurrentObjectInspector.RefreshPropertyValues;
begin
OI := FormEditingHook.GetCurrentObjectInspector;
if Assigned(OI) then
OI.RefreshPropertyValues;
end;
end; end;
function TDesignFormIDE.IsAnchorDesign: Boolean; function TDesignFormIDE.IsAnchorDesign: Boolean;