From 7acf6de61a5d9c10c902a5ce68714cf0143e8a34 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Thu, 8 Mar 2007 10:05:39 +0000
Subject: [PATCH] LCL: published Borderspacing for DB controls (bug #8472)

git-svn-id: trunk@10720 -
---
 lcl/dbctrls.pp | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/lcl/dbctrls.pp b/lcl/dbctrls.pp
index 6c2b83895c..25f84fb23e 100644
--- a/lcl/dbctrls.pp
+++ b/lcl/dbctrls.pp
@@ -165,6 +165,7 @@ Type
 
     property Anchors;
     property AutoSize;
+    property BorderSpacing;
     property CharCase;
     property Color;
     property Constraints;
@@ -288,8 +289,6 @@ Type
   published
     property DataField: string read GetDataField write SetDataField;
     property DataSource: TDataSource read GetDataSource write SetDataSource;
-    property DragCursor;
-    property DragMode;
 
     // we need to overrride the write method for db aware.
     // the Read isn't an issue since the list will be updated
@@ -301,7 +300,10 @@ Type
 
     property Align;
     property Anchors;
+    property BorderSpacing;
     property BorderStyle;
+    property DragCursor;
+    property DragMode;
     property ExtendedSelect;
     property ItemHeight;
     property MultiSelect;
@@ -371,6 +373,7 @@ Type
   published
     property Align;
     property Anchors;
+    property BorderSpacing;
     property Caption;
     property Columns;
     property DataField: string read GetDataField write SetDataField;
@@ -433,6 +436,7 @@ Type
     property AllowGrayed;
     property Anchors;
     property AutoSize;
+    property BorderSpacing;
     property Caption;
     property Color;
     property DataField: string read GetDataField write SetDataField;
@@ -500,6 +504,7 @@ Type
     property Anchors;
     property ArrowKeysTraverseList;
     property AutoDropDown;
+    property BorderSpacing;
     property Color;
     property Ctl3D;
     property DataField: string read GetDataField write SetDataField;
@@ -587,6 +592,7 @@ Type
     property Align;
     property Anchors;
     property AutoDisplay: Boolean read FAutoDisplay write SetAutoDisplay default True;
+    property BorderSpacing;
     property Color;
     property DataField: string read GetDataField write SetDataField;
     property DataSource: TDataSource read GetDataSource write SetDataSource;
@@ -636,6 +642,7 @@ Type
   published
     property Align;
     property Anchors;
+    property BorderSpacing;
     property Caption;
     property ClientHeight;
     property ClientWidth;
@@ -711,6 +718,7 @@ Type
     property Anchors;
     property AutoDisplay: Boolean read FAutoDisplay write SetAutoDisplay default True;
     property AutoSize;
+    property BorderSpacing;
     property Center;
     property Constraints;
     property DataField: string read GetDataField write SetDataField;
@@ -767,6 +775,7 @@ Type
 
     property Field: TField read GetField;
   published
+    property BorderSpacing;
     property DataField: string read GetDataField write SetDataField;
     property DataSource: TDataSource read GetDataSource write SetDataSource;
 
@@ -921,6 +930,7 @@ type
     property BevelInner;
     property BevelOuter;
     property BevelWidth;
+    property BorderSpacing;
     property BorderStyle;
     property BorderWidth;
     property Caption;