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

DockedFormEditor: Debug texts added

Browse Source 
git-svn-id: trunk@64760 -
This commit is contained in:
michl 2021-03-06 21:03:11 +00:00
parent 66352de6ae
commit 47a75ed8b8
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -327,8 +327,10 @@ class procedure TDockedMainIDE.WindowCreate(Sender: TObject);
var var
LSourceEditorWindow: TSourceEditorWindowInterface; LSourceEditorWindow: TSourceEditorWindowInterface;
begin begin
if not (Sender is TSourceEditorWindowInterface) then Exit;
if Sender.ClassNameIs('TSourceNotebook') then if Sender.ClassNameIs('TSourceNotebook') then
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.WindowCreate SourceEditor created'); {$ENDIF}
LSourceEditorWindow := Sender as TSourceEditorWindowInterface; LSourceEditorWindow := Sender as TSourceEditorWindowInterface;
SourceEditorWindows.Add(TSourceEditorWindow.Create(LSourceEditorWindow)); SourceEditorWindows.Add(TSourceEditorWindow.Create(LSourceEditorWindow));
end; end;
@ -338,6 +340,8 @@ class procedure TDockedMainIDE.WindowDestroy(Sender: TObject);
var var
LDesignForm: TDesignForm; LDesignForm: TDesignForm;
begin begin
if not (Sender is TSourceEditorWindowInterface) then Exit;
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.WindowDestroy'); {$ENDIF}
for LDesignForm in DesignForms do for LDesignForm in DesignForms do
if LDesignForm.LastActiveSourceWindow = Sender then if LDesignForm.LastActiveSourceWindow = Sender then
LDesignForm.LastActiveSourceWindow := nil; LDesignForm.LastActiveSourceWindow := nil;
@ -351,6 +355,7 @@ var
LSourceEditorWindow: TSourceEditorWindow; LSourceEditorWindow: TSourceEditorWindow;
LDesignForm: TDesignForm; LDesignForm: TDesignForm;
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.WindowHide'); {$ENDIF}
LSourceEditorWindow := SourceEditorWindows.SourceEditorWindow[Sender as TSourceEditorWindowInterface]; LSourceEditorWindow := SourceEditorWindows.SourceEditorWindow[Sender as TSourceEditorWindowInterface];
if not Assigned(LSourceEditorWindow) or (LSourceEditorWindow.ActiveDesignForm = nil) then if not Assigned(LSourceEditorWindow) or (LSourceEditorWindow.ActiveDesignForm = nil) then
Exit; Exit;
@ -363,6 +368,7 @@ var
LSourceEditorWindow: TSourceEditorWindow; LSourceEditorWindow: TSourceEditorWindow;
LDesignForm: TDesignForm; LDesignForm: TDesignForm;
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.WindowShow'); {$ENDIF}
LSourceEditorWindow := SourceEditorWindows.SourceEditorWindow[Sender as TSourceEditorWindowInterface]; LSourceEditorWindow := SourceEditorWindows.SourceEditorWindow[Sender as TSourceEditorWindowInterface];
if not Assigned(LSourceEditorWindow) or (LSourceEditorWindow.ActiveDesignForm = nil) then if not Assigned(LSourceEditorWindow) or (LSourceEditorWindow.ActiveDesignForm = nil) then
Exit; Exit;
@ -410,6 +416,7 @@ var
begin begin
if Sender is TSourceEditorInterface then if Sender is TSourceEditorInterface then
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.EditorActivated');{$ENDIF}
LSourceEditor := TSourceEditorInterface(Sender); LSourceEditor := TSourceEditorInterface(Sender);
// if we create directly new project then Activate is called without EditorCreate... // if we create directly new project then Activate is called without EditorCreate...
if not (LSourceEditor.EditorControl.Parent.Parent is TModulePageControl) then if not (LSourceEditor.EditorControl.Parent.Parent is TModulePageControl) then
@ -486,6 +493,7 @@ var
LParent: TWinControl; LParent: TWinControl;
LPageCtrl: TModulePageControl; LPageCtrl: TModulePageControl;
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.EditorCreate'); {$ENDIF}
LSourceEditor := Sender as TSourceEditorInterface; LSourceEditor := Sender as TSourceEditorInterface;
if LSourceEditor.EditorControl.Parent.Parent is TModulePageControl then Exit; if LSourceEditor.EditorControl.Parent.Parent is TModulePageControl then Exit;
LParent := LSourceEditor.EditorControl.Parent; LParent := LSourceEditor.EditorControl.Parent;
@ -505,6 +513,7 @@ var
LSourceEditorWindow: TSourceEditorWindow; LSourceEditorWindow: TSourceEditorWindow;
LDesignForm: TDesignForm; LDesignForm: TDesignForm;
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.EditorDestroyed'); {$ENDIF}
// sender is here as special parameter, because is possible situation where is moved editor // sender is here as special parameter, because is possible situation where is moved editor
// to another window and was not triggered EditorDestroy - for more info goto editoractivate // to another window and was not triggered EditorDestroy - for more info goto editoractivate
if Sender = nil then if Sender = nil then
@ -551,6 +560,7 @@ var
LDesignForm: TDesignForm; LDesignForm: TDesignForm;
LPageCtrl: TModulePageControl; LPageCtrl: TModulePageControl;
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.TabChange'); {$ENDIF}
// activate proper source editor window when user is clicking on page. // activate proper source editor window when user is clicking on page.
// (at clicking time can be active other source window) // (at clicking time can be active other source window)
LActiveSourceWindowInterface := TComponent(Sender).Owner as TSourceEditorWindowInterface; LActiveSourceWindowInterface := TComponent(Sender).Owner as TSourceEditorWindowInterface;
@ -590,6 +600,7 @@ var
LPageCtrl: TModulePageControl; LPageCtrl: TModulePageControl;
LResizer: TResizer; LResizer: TResizer;
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.GlobalSNOnChangeBounds'); {$ENDIF}
// Check parent. Maybe is different? If yes then window changed state (docked/undocked) and we need to perform few actions // Check parent. Maybe is different? If yes then window changed state (docked/undocked) and we need to perform few actions
LSourceEditorWindowInterface := Sender as TSourceEditorWindowInterface; LSourceEditorWindowInterface := Sender as TSourceEditorWindowInterface;
@ -623,6 +634,7 @@ var
LSourceEditorWindow: TSourceEditorWindow; LSourceEditorWindow: TSourceEditorWindow;
LSourceEditorInterface: TSourceEditorInterface; LSourceEditorInterface: TSourceEditorInterface;
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.OnShowDesignerForm'); {$ENDIF}
LDesignForm := DesignForms.Find(TCustomForm(Sender).Designer); LDesignForm := DesignForms.Find(TCustomForm(Sender).Designer);
if (LDesignForm = nil) or LDesignForm.Hiding then Exit; if (LDesignForm = nil) or LDesignForm.Hiding then Exit;
LPageCtrl := SourceEditorWindows.FindModulePageControl(SourceEditorManagerIntf.ActiveEditor); LPageCtrl := SourceEditorWindows.FindModulePageControl(SourceEditorManagerIntf.ActiveEditor);
@ -646,6 +658,7 @@ end;
class procedure TDockedMainIDE.OnShowSrcEditor(Sender: TObject); class procedure TDockedMainIDE.OnShowSrcEditor(Sender: TObject);
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.OnShowSrcEditor'); {$ENDIF}
DockedTabMaster.ShowCode(Sender as TSourceEditorInterface); DockedTabMaster.ShowCode(Sender as TSourceEditorInterface);
end; end;
@ -656,6 +669,7 @@ var
LSourceEditorWindowInterface: TSourceEditorWindowInterface; LSourceEditorWindowInterface: TSourceEditorWindowInterface;
i: Integer; i: Integer;
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.OnDesignShowMethod'); {$ENDIF}
if FormEditingHook = nil then Exit; if FormEditingHook = nil then Exit;
LDesignForm := DesignForms.Find(FormEditingHook.GetCurrentDesigner); LDesignForm := DesignForms.Find(FormEditingHook.GetCurrentDesigner);
if LDesignForm = nil then Exit; if LDesignForm = nil then Exit;
@ -706,6 +720,7 @@ var
end; end;
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.OnDesignRefreshPropertyValues'); {$ENDIF}
if not (GlobalDesignHook.LookupRoot is TCustomFrame) if not (GlobalDesignHook.LookupRoot is TCustomFrame)
and not (GlobalDesignHook.LookupRoot is TCustomForm) then Exit; and not (GlobalDesignHook.LookupRoot is TCustomForm) then Exit;
@ -719,6 +734,7 @@ class procedure TDockedMainIDE.OnDesignModified(Sender: TObject);
var var
LPageCtrl: TModulePageControl; LPageCtrl: TModulePageControl;
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.OnDesignModified'); {$ENDIF}
LPageCtrl := GetCurrentPageControl; LPageCtrl := GetCurrentPageControl;
if not Assigned(LPageCtrl) then Exit; if not Assigned(LPageCtrl) then Exit;
if not Assigned(LPageCtrl.Resizer) then Exit; if not Assigned(LPageCtrl.Resizer) then Exit;
@ -727,11 +743,13 @@ end;
class procedure TDockedMainIDE.OnDesignPersistentAdded(APersistent: TPersistent; Select: Boolean); class procedure TDockedMainIDE.OnDesignPersistentAdded(APersistent: TPersistent; Select: Boolean);
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.OnDesignPersistentAdded'); {$ENDIF}
OnDesignModified(nil); OnDesignModified(nil);
end; end;
class procedure TDockedMainIDE.OnDesignPersistentDeleted(APersistent: TPersistent); class procedure TDockedMainIDE.OnDesignPersistentDeleted(APersistent: TPersistent);
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.OnDesignPersistentDeleted'); {$ENDIF}
OnDesignModified(nil); OnDesignModified(nil);
end; end;
@ -740,6 +758,7 @@ class procedure TDockedMainIDE.OnDesignMouseDown(Sender: TObject;
var var
LPageCtrl: TModulePageControl; LPageCtrl: TModulePageControl;
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} writeln('TDockedMainIDE.OnDesignMouseDown'); {$ENDIF}
LPageCtrl := GetCurrentPageControl; LPageCtrl := GetCurrentPageControl;
if not Assigned(LPageCtrl) then Exit; if not Assigned(LPageCtrl) then Exit;
LPageCtrl.DesignerSetFocus; LPageCtrl.DesignerSetFocus;
@ -751,6 +770,7 @@ var
LDesignForm: TDesignForm; LDesignForm: TDesignForm;
LSelectedControl: TControl; LSelectedControl: TControl;
begin begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TDockedMainIDE.OnDesignSetSelection'); {$ENDIF}
LDesignForm := DesignForms.Find(FormEditingHook.GetCurrentDesigner); LDesignForm := DesignForms.Find(FormEditingHook.GetCurrentDesigner);
if LDesignForm = nil then Exit; if LDesignForm = nil then Exit;
if (ASelection.Count = 1) and (ASelection[0] is TControl) then if (ASelection.Count = 1) and (ASelection[0] is TControl) then