IDE & designer: add layout management to anchor editor and tab order dialog

git-svn-id: trunk@31095 -

designer/anchoreditor.lfm

@@ -9,10 +9,10 @@ object AnchorDesigner: TAnchorDesigner
   ClientWidth = 596
   Constraints.MinHeight = 282
   Constraints.MinWidth = 476
+  OnClose = FormClose
   OnCreate = AnchorDesignerCreate
   OnDestroy = AnchorDesignerDestroy
   OnShow = AnchorDesignerShow
-  Position = poScreenCenter
   LCLVersion = '0.9.31'
   object BorderSpaceGroupBox: TGroupBox
     AnchorSideLeft.Control = Owner

designer/anchoreditor.pas

@@ -37,7 +37,7 @@ interface
 uses
   Classes, SysUtils, LCLProc, Forms, Controls, Graphics, Dialogs,
   StdCtrls, Buttons, Spin,
-  IDECommands, PropEdits,
+  IDECommands, PropEdits, IDEWindowIntf,
   LazarusIDEStrConsts, EnvironmentOpts, IDEOptionDefs;
 
 type
@@ -136,6 +136,7 @@ type
     procedure AnchorDesignerShow(Sender: TObject);
     procedure AnchorEnabledCheckBoxChange(Sender: TObject);
     procedure BorderSpaceSpinEditChange(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure SiblingComboBoxChange(Sender: TObject);
     procedure ReferenceSideButtonClicked(Sender: TObject);
   private
@@ -261,6 +262,8 @@ begin
 
   GlobalDesignHook.AddHandlerRefreshPropertyValues(@OnRefreshPropertyValues);
   GlobalDesignHook.AddHandlerSetSelection(@OnSetSelection);
+
+  IDEDialogLayoutList.ApplyLayout(Self);
 end;
 
 procedure TAnchorDesigner.AnchorDesignerDestroy(Sender: TObject);
@@ -276,6 +279,11 @@ begin
   Refresh(true);
 end;
 
+procedure TAnchorDesigner.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  IDEDialogLayoutList.SaveLayout(Self);
+end;
+
 procedure TAnchorDesigner.AnchorEnabledCheckBoxChange(Sender: TObject);
 var
   Kind: TAnchorKind;

designer/taborderdlg.lfm

@@ -4,13 +4,12 @@ object TabOrderDialog: TTabOrderDialog
   Top = 112
   Width = 310
   ActiveControl = ItemTreeview
-  BorderStyle = bsSizeToolWin
   Caption = 'TabOrderDialog'
   ClientHeight = 374
   ClientWidth = 310
+  OnClose = FormClose
   OnCreate = TabOrderDialogCREATE
   OnShow = FormShow
-  Position = poScreenCenter
   LCLVersion = '0.9.31'
   object ArrowUp: TSpeedButton
     AnchorSideRight.Control = Owner

designer/taborderdlg.pas

@@ -33,7 +33,8 @@ interface
 
 uses
   Classes, SysUtils, LCLProc, Forms, Controls, Graphics, Dialogs, Buttons,
-  ComCtrls, StdCtrls, Arrow, LazarusIDEStrConsts, ButtonPanel, PropEdits;
+  ComCtrls, StdCtrls, Arrow, LazarusIDEStrConsts, ButtonPanel,
+  PropEdits, IDEWindowIntf;
 
 type
 
@@ -43,6 +44,7 @@ type
     ArrowDown: TSpeedButton;
     ArrowUp: TSpeedButton;
     ItemTreeview: TTreeView;
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
     procedure ItemTreeviewClick(Sender: TObject);
     procedure TabOrderDialogCREATE(Sender: TObject);
@@ -90,6 +92,8 @@ begin
 
   ArrowDown.LoadGlyphFromLazarusResource('arrow_down');
   ArrowUp.LoadGlyphFromLazarusResource('arrow_up');
+
+  IDEDialogLayoutList.ApplyLayout(Self);
 end;
 
 procedure TTabOrderDialog.FormShow(Sender: TObject);
@@ -107,6 +111,11 @@ begin
   CheckButtonsEnabled;
 end;
 
+procedure TTabOrderDialog.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  IDEDialogLayoutList.SaveLayout(Self);
+end;
+
 procedure TTabOrderDialog.ItemTreeviewClick(Sender: TObject);
 begin
   CheckButtonsEnabled;

ide/findinfilesdlg.lfm

@@ -11,7 +11,6 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
   Constraints.MinWidth = 400
   OnClose = FormClose
   OnCreate = FormCreate
-  Position = poScreenCenter
   LCLVersion = '0.9.31'
   object OptionsCheckGroupBox: TCheckGroup
     AnchorSideLeft.Control = Owner

ide/findinfilesdlg.pas

@@ -24,12 +24,9 @@ interface
 
 uses
   Classes, SysUtils, LCLProc, LCLIntf, Controls, StdCtrls, Forms, Buttons,
-  ExtCtrls, FileProcs, LazarusIDEStrConsts, Dialogs, SynEditTypes,
-  ButtonPanel,
-  MacroIntf, IDEWindowIntf, SrcEditorIntf, IDEHelpIntf,
-  InputHistory,
-  IDEDialogs,
-  EditorOptions, SearchFrm, Project, SynEdit, SearchResultView;
+  ExtCtrls, FileProcs, LazarusIDEStrConsts, Dialogs, SynEditTypes, ButtonPanel,
+  MacroIntf, IDEWindowIntf, SrcEditorIntf, IDEHelpIntf, IDEDialogs,
+  InputHistory, EditorOptions, SearchFrm, Project, SynEdit, SearchResultView;
 
 type
   { TLazFindInFilesDialog }