From cbd597f5905f451832e4ed5da07a4e87493c52d8 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Wed, 20 Jan 2010 07:53:48 +0000
Subject: [PATCH] LCL, dbgrids.columns returns TDBGridColumns instead of
 TGridColumns, issue #15388

git-svn-id: trunk@23496 -
---
 lcl/dbgrids.pas | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas
index 8c0aa9ee97..f361301ae6 100644
--- a/lcl/dbgrids.pas
+++ b/lcl/dbgrids.pas
@@ -298,6 +298,7 @@ type
     FKeyBookmark: TBookmarkStr;
     FKeySign: Integer;
     procedure EmptyGrid;
+    function GetColumns: TDBGridColumns;
     function GetCurrentColumn: TColumn;
     function GetCurrentField: TField;
     function GetDataSource: TDataSource;
@@ -315,6 +316,7 @@ type
     procedure OnNewDataSet(aDataSet: TDataset);
     procedure OnDataSetScrolled(aDataSet:TDataSet; Distance: Integer);
     procedure OnUpdateData(aDataSet: TDataSet);
+    procedure SetColumns(const AValue: TDBGridColumns);
     //procedure ReadColumns(Reader: TReader);
     //procedure SetColumns(const AValue: TDBGridColumns);
     procedure SetCurrentField(const AValue: TField);
@@ -422,6 +424,7 @@ type
     procedure WMVScroll(var Message : TLMVScroll); message LM_VScroll;
     procedure WndProc(var TheMessage : TLMessage); override;
 
+    property Columns: TDBGridColumns read GetColumns write SetColumns;
     property GridStatus: TDBGridStatus read FGridStatus write FGridStatus;
     property DataSource: TDataSource read GetDataSource write SetDataSource;
     property Options: TDBGridOptions read FOptions write SetOptions default
@@ -733,6 +736,11 @@ begin
     ColWidths[0]:=12;
 end;
 
+function TCustomDBGrid.GetColumns: TDBGridColumns;
+begin
+  result := TDBGridColumns( inherited Columns );
+end;
+
 procedure TCustomDBGrid.InvalidateSizes;
 begin
   GridFlags := GridFlags + [gfVisualChange];
@@ -873,6 +881,12 @@ procedure TCustomDBGrid.OnUpdateData(aDataSet: TDataSet);
 begin
   UpdateData;
 end;
+
+procedure TCustomDBGrid.SetColumns(const AValue: TDBGridColumns);
+begin
+  inherited Columns := TGridColumns(AValue);
+end;
+
 {
 procedure TCustomDBGrid.ReadColumns(Reader: TReader);
 begin