From 042dd6b290e5682e5bc25c44e1e68a4ee6e0144e Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 5 Jun 2011 10:54:20 +0000
Subject: [PATCH] IDE & designer: add layout management to anchor editor and
 tab order dialog

git-svn-id: trunk@31095 -
---
 designer/anchoreditor.lfm |  2 +-
 designer/anchoreditor.pas | 10 +++++++++-
 designer/taborderdlg.lfm  |  3 +--
 designer/taborderdlg.pas  | 11 ++++++++++-
 ide/findinfilesdlg.lfm    |  1 -
 ide/findinfilesdlg.pas    |  9 +++------
 6 files changed, 24 insertions(+), 12 deletions(-)

diff --git a/designer/anchoreditor.lfm b/designer/anchoreditor.lfm
index 11afa43b41..733f3ba435 100644
--- a/designer/anchoreditor.lfm
+++ b/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
diff --git a/designer/anchoreditor.pas b/designer/anchoreditor.pas
index 463a0f5971..a2ecc073c0 100644
--- a/designer/anchoreditor.pas
+++ b/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;
diff --git a/designer/taborderdlg.lfm b/designer/taborderdlg.lfm
index 3ac88b8a1a..b4557ed549 100644
--- a/designer/taborderdlg.lfm
+++ b/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
diff --git a/designer/taborderdlg.pas b/designer/taborderdlg.pas
index 55407de529..9a3cd7fee3 100644
--- a/designer/taborderdlg.pas
+++ b/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;
diff --git a/ide/findinfilesdlg.lfm b/ide/findinfilesdlg.lfm
index 6c52b8cf65..b0c1ee8803 100644
--- a/ide/findinfilesdlg.lfm
+++ b/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
diff --git a/ide/findinfilesdlg.pas b/ide/findinfilesdlg.pas
index 932303c6b2..afb1bc9499 100644
--- a/ide/findinfilesdlg.pas
+++ b/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 }