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

DockedFormEditor: Simplify code - use just one method to find ModulePageControl

Browse Source 
git-svn-id: trunk@64726 -
This commit is contained in:
michl 2021-03-02 19:52:56 +00:00
parent 16eb8abc21
commit 817c9aa159
2 changed files with 12 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/dockedformeditor/source/dockedmainide.pas
View File

@ -251,7 +251,8 @@ begin
LDesignForm := DesignForms.Find(LForm);
if LDesignForm = nil then Exit;
LSourceEditorWindowInterface := LDesignForm.LastActiveSourceWindow;
Result := SourceEditorWindows.FindModulePageControl(LSourceEditorWindowInterface);
if not Assigned(LSourceEditorWindowInterface) then Exit;
Result := SourceEditorWindows.FindModulePageControl(LSourceEditorWindowInterface.ActiveEditor);
end;
class procedure TDockedMainIDE.Screen_FormAdded(Sender: TObject; AForm: TCustomForm);
@ -604,7 +605,7 @@ begin
LSourceEditorWindow.ActiveDesignForm := LDesignForm;
if LDesignForm <> nil then
begin
LPageCtrl := SourceEditorWindows.FindModulePageControl(LSourceEditorWindowInterface);
LPageCtrl := SourceEditorWindows.FindModulePageControl(LSourceEditorWindowInterface.ActiveEditor);
if not Assigned(LPageCtrl) then Exit;
LResizer := LPageCtrl.Resizer;
if not Assigned(LResizer) then Exit;

30
components/dockedformeditor/source/dockedsourceeditorwindow.pas
View File

@ -54,8 +54,7 @@ type
destructor Destroy; override;
procedure AddPageCtrl(ASourceEditor: TSourceEditorInterface; APageControl: TModulePageControl);
procedure AdjustPageControl;
function FindModulePageControl(ASourceEditor: TSourceEditorInterface): TModulePageControl; overload;
function FindModulePageControl(AForm: TSourceEditorWindowInterface): TModulePageControl; overload;
function FindModulePageControl(ASourceEditor: TSourceEditorInterface): TModulePageControl;
procedure RemoveActiveDesignForm;
procedure RemovePageCtrl(ASourceEditor: TSourceEditorInterface);
public
@ -78,8 +77,7 @@ type
function Contains(ASrcEditor: TSourceEditorWindow): Boolean;
procedure DeleteItem(Index: Integer);
function FindDesignForm(AModulePageCtrl: TModulePageControl): TDesignForm;
function FindModulePageControl(ASrcEditor: TSourceEditorInterface): TModulePageControl; overload;
function FindModulePageControl(AForm: TSourceEditorWindowInterface): TModulePageControl; overload;
function FindModulePageControl(ASrcEditor: TSourceEditorInterface): TModulePageControl;
function IndexOf(AWindowInterface: TSourceEditorWindowInterface): Integer; overload;
procedure RefreshActivePageControls;
procedure RefreshAllPageControls;
@ -128,7 +126,7 @@ begin
FActiveDesignForm.HideWindow;
FActiveDesignForm := AValue;
LPageCtrl := FindModulePageControl(FSourceEditorWindowInterface);
LPageCtrl := FindModulePageControl(ActiveEditor);
// important when we want back to tab where was oppened form
if (AValue <> nil) then
LazarusIDE.DoShowDesignerFormOfSrc(ActiveEditor);
@ -142,7 +140,7 @@ var
LPageCtrl: TModulePageControl;
begin
FNotebookPageChanged(Sender);
LPageCtrl := FindModulePageControl(FSourceEditorWindowInterface.ActiveEditor);
LPageCtrl := FindModulePageControl(ActiveEditor);
if not Assigned(LPageCtrl) then Exit;
if LPageCtrl.DesignerPageActive then
begin
@ -180,7 +178,7 @@ procedure TSourceEditorWindow.AdjustPageControl;
var
LPageCtrl: TModulePageControl;
begin
LPageCtrl := FindModulePageControl(FSourceEditorWindowInterface);
LPageCtrl := FindModulePageControl(ActiveEditor);
if LPageCtrl <> nil then
LPageCtrl.AdjustPage;
end;
@ -201,11 +199,6 @@ begin
Result := nil;
end;
function TSourceEditorWindow.FindModulePageControl(AForm: TSourceEditorWindowInterface): TModulePageControl;
begin
Result := FindModulePageControl(AForm.ActiveEditor);
end;
procedure TSourceEditorWindow.RemoveActiveDesignForm;
begin
FActiveDesignForm := nil;
@ -277,7 +270,7 @@ begin
begin
if AModulePageCtrl.Owner = LSourceEditorWindow.SourceEditorWindowInterface then
begin
LSourceEditorInterface := LSourceEditorWindow.SourceEditorWindowInterface.ActiveEditor;
LSourceEditorInterface := LSourceEditorWindow.ActiveEditor;
if LSourceEditorInterface = nil then Exit;
Result := DesignForms.Find(LSourceEditorInterface.GetDesigner(True));
Exit;
@ -295,11 +288,6 @@ begin
Exit(LSourceEditorWindow.PageControlList.PageControl[ASrcEditor]);
end;
function TSourceEditorWindows.FindModulePageControl(AForm: TSourceEditorWindowInterface): TModulePageControl;
begin
Result := FindModulePageControl(AForm.ActiveEditor);
end;
function TSourceEditorWindows.IndexOf(AWindowInterface: TSourceEditorWindowInterface): Integer;
var
i: Integer;
@ -317,12 +305,12 @@ var
begin
for LWindow in Self do
begin
LPageCtrl := LWindow.FindModulePageControl(LWindow.SourceEditorWindowInterface);
LPageCtrl := LWindow.FindModulePageControl(LWindow.ActiveEditor);
// for example LPageCtrl is nil when we clone module to new window
if (LPageCtrl = nil) or (csDestroying in LWindow.SourceEditorWindowInterface.ComponentState) then
Continue;
if (LWindow.SourceEditorWindowInterface.ActiveEditor = nil)
or (LWindow.SourceEditorWindowInterface.ActiveEditor.GetDesigner(True) <> nil)
if (LWindow.ActiveEditor = nil)
or (LWindow.ActiveEditor.GetDesigner(True) <> nil)
then
LPageCtrl.RemoveDesignPages
else begin