From 2b355e456b9d8e131b4e4c93ec60e2813c3163a5 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 18 Apr 2008 07:30:22 +0000
Subject: [PATCH] new version of rxpopupunit.pas

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@430 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxpopupunit.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/components/rx/rxpopupunit.pas b/components/rx/rxpopupunit.pas
index 17a263e4c..f4c9ca804 100644
--- a/components/rx/rxpopupunit.pas
+++ b/components/rx/rxpopupunit.pas
@@ -112,6 +112,7 @@ type
 
   TPopUpFormOptions = class(TPersistent)
   private
+    FAutoFillColumns: boolean;
     FAutoSort: boolean;
     FBorderStyle: TBorderStyle;
     FColumns: TPopUpFormColumns;
@@ -123,6 +124,7 @@ type
     FTitleButtons: boolean;
     FTitleStyle: TTitleStyle;
     function GetColumns: TPopUpFormColumns;
+    procedure SetAutoFillColumns(const AValue: boolean);
     procedure SetAutoSort(const AValue: boolean);
     procedure SetColumns(const AValue: TPopUpFormColumns);
     procedure SetDropDownCount(const AValue: integer);
@@ -136,6 +138,7 @@ type
     destructor Destroy; override;
     procedure Assign(Source: TPersistent); override;
   published
+    property AutoFillColumns:boolean read FAutoFillColumns write SetAutoFillColumns default false;
     property AutoSort:boolean read FAutoSort write SetAutoSort default false;
     property BorderStyle: TBorderStyle read FBorderStyle write FBorderStyle default bsNone;
     property Columns:TPopUpFormColumns read GetColumns write SetColumns;
@@ -477,6 +480,7 @@ begin
   FGrid.TitleStyle:=FPopUpFormOptions.TitleStyle;
   FGrid.BorderStyle:=FPopUpFormOptions.BorderStyle;
   FGrid.OnGetCellProps:=FPopUpFormOptions.OnGetCellProps;
+  FGrid.AutoFillColumns:=FPopUpFormOptions.AutoFillColumns;
   
 end;
 
@@ -493,6 +497,12 @@ begin
   Result:=FColumns;
 end;
 
+procedure TPopUpFormOptions.SetAutoFillColumns(const AValue: boolean);
+begin
+  if FAutoFillColumns=AValue then exit;
+  FAutoFillColumns:=AValue;
+end;
+
 procedure TPopUpFormOptions.SetColumns(const AValue: TPopUpFormColumns);
 begin
   FColumns.Assign(AValue);