pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
alexs75
2010-01-19 19:19:35 +00:00
parent f01088fc7a
commit 888ed25fdd
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/rx/rxpopupunit.pas
View File

@ -189,6 +189,7 @@ type
procedure KeyPress(var Key: char); override; procedure KeyPress(var Key: char); override;
constructor CreatePopUp(AOwner: TComponent; constructor CreatePopUp(AOwner: TComponent;
APopUpFormOptions:TPopUpFormOptions; AFieldList:string; BtnWidtn:integer); APopUpFormOptions:TPopUpFormOptions; AFieldList:string; BtnWidtn:integer);
destructor Destroy; override;
property DataSet:TDataSet read GetDataSet write SetDataSet; property DataSet:TDataSet read GetDataSet write SetDataSet;
property LookupDisplayIndex:integer read GetLookupDisplayIndex write SetLookupDisplayIndex; property LookupDisplayIndex:integer read GetLookupDisplayIndex write SetLookupDisplayIndex;
end; end;
@ -507,6 +508,12 @@ begin
FRowCount:=FPopUpFormOptions.DropDownCount + 2 + ord(dgTitles in FGrid.Options); FRowCount:=FPopUpFormOptions.DropDownCount + 2 + ord(dgTitles in FGrid.Options);
end; end;
destructor TPopUpForm.Destroy;
begin
FGrid.DataSource:=nil;
inherited Destroy;
end;
{ TPopUpFormOptions } { TPopUpFormOptions }
procedure TPopUpFormOptions.SetAutoSort(const AValue: boolean); procedure TPopUpFormOptions.SetAutoSort(const AValue: boolean);