From f3d543e261e06c31f893aacd25288c9ab6f0f926 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 22 Jun 2014 09:55:48 +0000
Subject: [PATCH] IDE: add separators around Import/Export buttons in Project
 options dialog.

git-svn-id: trunk@45609 -
---
 components/ideintf/ideoptionsintf.pas |  1 +
 ide/frames/compiler_path_options.pas  |  2 ++
 ide/ideoptionsdlg.lfm                 |  4 ++--
 ide/ideoptionsdlg.pas                 | 14 +++++++++++++-
 4 files changed, 18 insertions(+), 3 deletions(-)

diff --git a/components/ideintf/ideoptionsintf.pas b/components/ideintf/ideoptionsintf.pas
index b4eccf5770..1be6a85729 100644
--- a/components/ideintf/ideoptionsintf.pas
+++ b/components/ideintf/ideoptionsintf.pas
@@ -200,6 +200,7 @@ type
   TAbstractOptionsEditorDialog = class(TForm)
   public
     function AddButton: TBitBtn; virtual; abstract;
+    procedure AddButtonSeparator; virtual; abstract;
     function AddControl(AControlClass: TControlClass): TControl; virtual; abstract; reintroduce;
     function FindEditor(AEditor: TAbstractIDEOptionsEditorClass): TAbstractIDEOptionsEditor; virtual; abstract;
     function FindEditor(GroupIndex, AIndex: integer): TAbstractIDEOptionsEditor; virtual; abstract;
diff --git a/ide/frames/compiler_path_options.pas b/ide/frames/compiler_path_options.pas
index 30c28485e4..d88e904fb0 100644
--- a/ide/frames/compiler_path_options.pas
+++ b/ide/frames/compiler_path_options.pas
@@ -738,6 +738,7 @@ begin
   btnCheck.OnClick  := @DoCheck;
   btnCheck.LoadGlyphFromStock(idButtonYes);
   // Import
+  ADialog.AddButtonSeparator;
   btnLoadSave := CreateButton(lisImport);
   btnLoadSave.OnClick  := @DoImport;
   btnLoadSave.Hint := dlgCOLoadSave;
@@ -747,6 +748,7 @@ begin
   btnExport.OnClick  := @DoExport;
   btnExport.Hint := dlgCOLoadSave;
   btnExport.LoadGlyphFromStock(idButtonSave);
+  ADialog.AddButtonSeparator;
 
   if btnLoadSave.Glyph.Empty then
     btnLoadSave.LoadGlyphFromResourceName(HInstance, 'laz_save');
diff --git a/ide/ideoptionsdlg.lfm b/ide/ideoptionsdlg.lfm
index 1d5c15711f..2981c1973e 100644
--- a/ide/ideoptionsdlg.lfm
+++ b/ide/ideoptionsdlg.lfm
@@ -181,9 +181,9 @@ object IDEOptionsDialog: TIDEOptionsDialog
     Height = 317
     Top = 40
     Width = 424
-    HorzScrollBar.Page = 424
+    HorzScrollBar.Page = 1
     HorzScrollBar.Tracking = True
-    VertScrollBar.Page = 317
+    VertScrollBar.Page = 1
     VertScrollBar.Tracking = True
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Right = 6
diff --git a/ide/ideoptionsdlg.pas b/ide/ideoptionsdlg.pas
index af95b95b85..09606059fa 100644
--- a/ide/ideoptionsdlg.pas
+++ b/ide/ideoptionsdlg.pas
@@ -101,6 +101,7 @@ type
     constructor Create(AOwner: TComponent); override;
     function ShowModal: Integer; override;
     function AddButton: TBitBtn; override;
+    procedure AddButtonSeparator; override;
     function AddControl(AControlClass: TControlClass): TControl; override;
     procedure OpenEditor(AEditor: TAbstractIDEOptionsEditorClass); override;
     procedure OpenEditor(GroupIndex, AIndex: integer); override;
@@ -663,11 +664,22 @@ begin
   Result := TBitBtn.Create(Self);
   Result.Align := alCustom;
   Result.Default := false;
-  Result.Constraints.MinWidth:=25;
+  Result.Constraints.MinWidth := 25;
   Result.AutoSize := true;
   Result.Parent := ButtonPanel;
 end;
 
+procedure TIDEOptionsDialog.AddButtonSeparator;
+var
+  pnl: TPanel;
+begin
+  pnl := TPanel.Create(Self);
+  pnl.Align := alCustom;
+  pnl.BevelOuter := bvNone;
+  pnl.Width := 6;
+  pnl.Parent := ButtonPanel;
+end;
+
 function TIDEOptionsDialog.AddControl(AControlClass: TControlClass): TControl;
 begin
   Result := AControlClass.Create(Self);