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

new version of rxpopupunit.pas

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@430 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2008-04-18 07:30:22 +00:00
parent 7eba9e2d01
commit 2b355e456b
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/rx/rxpopupunit.pas
View File

@ -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);