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

TRxDateRangeEdit - new property- Flat

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3247 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-06-27 08:45:29 +00:00
parent 8a1b12a9ec
commit 47e01cf753
1 changed files with 35 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
components/rx/trunk/rxdaterangeeditunit.pas
View File

@ -13,6 +13,7 @@ type
TRxCustomDateRangeEdit = class(TCustomControl)
private
FFlat: Boolean;
FOnEditChange: TNotifyEvent;
FOnEditClick: TNotifyEvent;
FOnEditEnter: TNotifyEvent;
@ -30,6 +31,7 @@ type
function GetMonth: word;
function GetPeriod: TDateTime;
function GetYear: word;
procedure SetFlat(AValue: Boolean);
procedure SetMonth(AValue: word);
procedure SetPeriod(AValue: TDateTime);
procedure SetYear(AValue: word);
@ -48,6 +50,7 @@ type
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Flat: Boolean read FFlat write SetFlat default False;
property Year:word read GetYear write SetYear;
property Month:word read GetMonth write SetMonth;
property Period:TDateTime read GetPeriod write SetPeriod;
@ -61,8 +64,30 @@ type
TRxDateRangeEdit = class(TRxCustomDateRangeEdit)
published
property Autosize default True;
property Align;
property Anchors;
property BiDiMode;
property BorderSpacing;
property BorderStyle default bsNone;
property Constraints;
property Color;
property Cursor;
property Enabled;
property Flat;
property Year;
property Month;
property Hint;
property ParentBiDiMode;
property ParentColor;
property ParentFont;
property PopupMenu;
// property ReadOnly;
property ShowHint;
property TabOrder;
property TabStop;
// property Text;
property Visible;
property OnChange;
property OnClick;
property OnEnter;
@ -120,6 +145,16 @@ begin
Result:=FEditYear.Value;
end;
procedure TRxCustomDateRangeEdit.SetFlat(AValue: Boolean);
begin
if FFlat=AValue then Exit;
FFlat:=AValue;
FsbDecMonth.Flat:=FFlat;
FsbDecYear.Flat:=FFlat;
FsbIncMonth.Flat:=FFlat;
FsbIncYear.Flat:=FFlat;
end;
procedure TRxCustomDateRangeEdit.SetMonth(AValue: word);
begin
if (AValue>0) and (AValue < 13) then