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

TRxDBLookupEdit,TRxDBLookupCombo - PopUpFormOptions - add new property Color and AlternateColor

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3328 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-07-17 07:26:03 +00:00
parent e36050c80c
commit 4c68f33522
1 changed files with 19 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
components/rx/trunk/rxpopupunit.pas
View File

@ -152,9 +152,11 @@ type
TPopUpFormOptions = class(TPersistent) TPopUpFormOptions = class(TPersistent)
private private
FAlternateColor: TColor;
FAutoFillColumns: boolean; FAutoFillColumns: boolean;
FAutoSort: boolean; FAutoSort: boolean;
FBorderStyle: TBorderStyle; FBorderStyle: TBorderStyle;
FColor: TColor;
FColumns: TPopUpFormColumns; FColumns: TPopUpFormColumns;
FDataSource: TDataSource; FDataSource: TDataSource;
FDropDownCount: integer; FDropDownCount: integer;
@ -166,6 +168,7 @@ type
FTitleStyle: TTitleStyle; FTitleStyle: TTitleStyle;
FOwner:TPersistent; FOwner:TPersistent;
function GetColumns: TPopUpFormColumns; function GetColumns: TPopUpFormColumns;
function IsAltColorStored: Boolean;
procedure SetAutoFillColumns(const AValue: boolean); procedure SetAutoFillColumns(const AValue: boolean);
procedure SetAutoSort(const AValue: boolean); procedure SetAutoSort(const AValue: boolean);
procedure SetColumns(const AValue: TPopUpFormColumns); procedure SetColumns(const AValue: TPopUpFormColumns);
@ -176,13 +179,16 @@ type
procedure SetTitleButtons(const AValue: boolean); procedure SetTitleButtons(const AValue: boolean);
procedure SetTitleStyle(const AValue: TTitleStyle); procedure SetTitleStyle(const AValue: TTitleStyle);
protected protected
function GetOwner: TPersistent; dynamic; function GetOwner: TPersistent; dynamic;
public public
constructor Create(AOwner:TPersistent); constructor Create(AOwner:TPersistent);
destructor Destroy; override; destructor Destroy; override;
procedure Assign(Source: TPersistent); override; procedure Assign(Source: TPersistent); override;
property DataSource:TDataSource read FDataSource write FDataSource; property DataSource:TDataSource read FDataSource write FDataSource;
published published
property AlternateColor: TColor read FAlternateColor write FAlternateColor stored IsAltColorStored;
property Color: TColor read FColor write FColor default {$ifdef UseCLDefault}clDefault{$else}clWindow{$endif};
property AutoFillColumns:boolean read FAutoFillColumns write SetAutoFillColumns default false; property AutoFillColumns:boolean read FAutoFillColumns write SetAutoFillColumns default false;
property AutoSort:boolean read FAutoSort write SetAutoSort default false; property AutoSort:boolean read FAutoSort write SetAutoSort default false;
property BorderStyle: TBorderStyle read FBorderStyle write FBorderStyle default bsNone; property BorderStyle: TBorderStyle read FBorderStyle write FBorderStyle default bsNone;
@ -550,6 +556,9 @@ begin
FRowCount:=10 + ord(dgTitles in FGrid.Options) FRowCount:=10 + ord(dgTitles in FGrid.Options)
else else
FRowCount:=FPopUpFormOptions.DropDownCount + 2 + ord(dgTitles in FGrid.Options); FRowCount:=FPopUpFormOptions.DropDownCount + 2 + ord(dgTitles in FGrid.Options);
FGrid.Color:=FPopUpFormOptions.Color;
FGrid.AlternateColor:=FPopUpFormOptions.AlternateColor;
end; end;
destructor TPopUpForm.Destroy; destructor TPopUpForm.Destroy;
@ -571,6 +580,11 @@ begin
Result:=FColumns; Result:=FColumns;
end; end;
function TPopUpFormOptions.IsAltColorStored: Boolean;
begin
Result := FAlternateColor <> FColor;
end;
procedure TPopUpFormOptions.SetAutoFillColumns(const AValue: boolean); procedure TPopUpFormOptions.SetAutoFillColumns(const AValue: boolean);
begin begin
if FAutoFillColumns=AValue then exit; if FAutoFillColumns=AValue then exit;
@ -637,6 +651,8 @@ begin
FBorderStyle:=bsNone; FBorderStyle:=bsNone;
FColumns:=TPopUpFormColumns.Create(AOwner); FColumns:=TPopUpFormColumns.Create(AOwner);
FColumns.FPopUpFormOptions:=Self; FColumns.FPopUpFormOptions:=Self;
FColor:={$ifdef UseCLDefault}clDefault{$else}clWindow{$endif};
FAlternateColor:=FColor;
end; end;
destructor TPopUpFormOptions.Destroy; destructor TPopUpFormOptions.Destroy;
@ -657,6 +673,8 @@ begin
FTitleButtons:=TPopUpFormOptions(Source).FTitleButtons; FTitleButtons:=TPopUpFormOptions(Source).FTitleButtons;
FTitleStyle:=TPopUpFormOptions(Source).FTitleStyle; FTitleStyle:=TPopUpFormOptions(Source).FTitleStyle;
FBorderStyle:=TPopUpFormOptions(Source).FBorderStyle; FBorderStyle:=TPopUpFormOptions(Source).FBorderStyle;
FColor:=TPopUpFormOptions(Source).FColor;
FAlternateColor:=TPopUpFormOptions(Source).FAlternateColor;
end end
else else
inherited Assign(Source); inherited Assign(Source);