paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 20:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

components: datetime picker: add FlatButton property

Browse Source 
git-svn-id: trunk@51968 -
This commit is contained in:
ondrej 2016-03-17 07:04:35 +00:00
parent 6850c3787f
commit 516b7dd2cc
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/datetimectrls/datetimepicker.pas
View File

@ -193,6 +193,7 @@ type
function GetDate: TDate;
function GetDateTime: TDateTime;
function GetDroppedDown: Boolean;
function GetFlatButton: Boolean;
function GetShowCheckBox: Boolean;
function GetTime: TTime;
procedure SetArrowShape(const AValue: TArrowShape);
@ -204,6 +205,7 @@ type
procedure CheckTextEnabled;
procedure SetDateDisplayOrder(const AValue: TDateDisplayOrder);
procedure SetDateMode(const AValue: TDTDateMode);
procedure SetFlatButton(const AValue: Boolean);
procedure SetHideDateTimeParts(AValue: TDateTimeParts);
procedure SetKind(const AValue: TDateTimeKind);
procedure SetLeadingZeros(const AValue: Boolean);
@ -390,6 +392,7 @@ type
read FShowMonthNames write SetShowMonthNames default False;
property DroppedDown: Boolean read GetDroppedDown;
property CalAlignment: TDTCalAlignment read FCalAlignment write SetCalAlignment default dtaDefault;
property FlatButton: Boolean read GetFlatButton write SetFlatButton default False;
public
constructor Create(AOwner: TComponent); override;
@ -461,6 +464,7 @@ type
property MonthNames;
property ShowMonthNames;
property CalAlignment;
property FlatButton;
// events:
property OnChange;
property OnCheckBoxChange;
@ -2879,6 +2883,14 @@ begin
end;
end;
procedure TCustomDateTimePicker.SetFlatButton(const AValue: Boolean);
begin
if FlatButton=AValue then
Exit;
if FArrowButton<>nil then
FArrowButton.Flat := AValue;
end;
procedure TCustomDateTimePicker.SetAutoSize(Value: Boolean);
begin
if AutoSize <> Value then begin
@ -3322,6 +3334,14 @@ begin
Result := Assigned(FCalendarForm);
end;
function TCustomDateTimePicker.GetFlatButton: Boolean;
begin
if FArrowButton<>nil then
Result := FArrowButton.Flat
else
Result := False;
end;
function TCustomDateTimePicker.GetShowCheckBox: Boolean;
begin
Result := Assigned(FCheckBox);