In TRxDBLookupCombo property DropDownCount now work

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@431 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/docs/WhatsNew.eng.txt

@@ -36,7 +36,7 @@
   - fix error with empty sring in TRxDateEdit.
   + In property  TRxDBLookupCombo.PopUpFormOptions add field  AutoFillColumns. Used in dropdown list.
   - Cleanup code in  TRxDBLookupCombo.Paint
-
+  + In TRxDBLookupCombo property DropDownCount now work
 29.08.2007 - ������ 1.1.5.98 (svn revision 39)
   + In RxDBgrid - after close dataset  list of SelectedRows is cleared
   + fix resaizing find form for RxDbGrd    

components/rx/docs/WhatsNew.rus.txt

@@ -43,6 +43,7 @@
   + � �������� PopUpFormOptions ���������� TRxDBLookupCombo ��������� ���� AutoFillColumns - ������ ������������ ����
     �� TDBGrid - ������������ � ���������� ������
   - ������� ��� � ��������� ���������� TRxDBLookupCombo
+  + � TRxDBLookupCombo �������� �������� DropDownCount
 29.08.2007 - ������ 1.1.5.98 (svn revision 39)
   + � RxDBGrid ����� �������� ������ ������ ������ ���������� ����� (SelectedRows) 
     ���������

components/rx/rxpopupunit.pas

@@ -161,6 +161,7 @@ type
     FDataSource:TDataSource;
     FOnPopUpCloseEvent:TPopUpCloseEvent;
     FPopUpFormOptions:TPopUpFormOptions;
+    FRowCount:word;
     function GetDataSet: TDataSet;
     function GetLookupDisplayIndex: integer;
     procedure SetDataSet(const AValue: TDataSet);
@@ -174,6 +175,7 @@ type
     procedure GridClickEvent(Column: TColumn);
     procedure CloseOk;
     procedure Paint;override;
+    procedure CreateWnd;override;
     //
     procedure DoSetFieldsFromString(FL:string);
     procedure DoSetFieldsFromColList;
@@ -334,6 +336,12 @@ begin
   end;
 end;
 
+procedure TPopUpForm.CreateWnd;
+begin
+  inherited CreateWnd;
+  Height:=FGrid.DefaultRowHeight * FRowCount;
+end;
+
 procedure TPopUpForm.DoSetFieldsFromString(FL: string);
 var
   FieldName:string;
@@ -481,7 +489,10 @@ begin
   FGrid.BorderStyle:=FPopUpFormOptions.BorderStyle;
   FGrid.OnGetCellProps:=FPopUpFormOptions.OnGetCellProps;
   FGrid.AutoFillColumns:=FPopUpFormOptions.AutoFillColumns;
-  
+  if FPopUpFormOptions.DropDownCount < 1 then
+    FRowCount:=10 + ord(dgTitles in FGrid.Options)
+  else
+    FRowCount:=FPopUpFormOptions.DropDownCount + 2 + ord(dgTitles in FGrid.Options);
 end;
 
 { TPopUpFormOptions }