paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 02:38:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

datetimectrls: datetimepicker: add EnableIfUnchecked property

Browse Source 
git-svn-id: trunk@53760 -
This commit is contained in:
ondrej 2016-12-22 18:13:34 +00:00
parent 33449c9e87
commit b8082b8827
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/datetimectrls/datetimepicker.pas
View File

@ -187,6 +187,7 @@ type
FChangeInRecursiveCall: Boolean;
FCorrectedDTP: TDateTimePart;
FCorrectedValue: Word;
FEnableWhenUnchecked: Boolean;
function AreSeparatorsStored: Boolean;
function GetChecked: Boolean;
@ -248,6 +249,7 @@ type
procedure SetYear(const AValue: Word);
procedure SetYYYYMMDD(const AValue: TYMD);
procedure SetHMSMs(const AValue: THMSMs);
procedure SetEnableWhenUnchecked(const AEnableWhenUnchecked: Boolean);
procedure UpdateIfUserChangedText;
function GetSelectedText: String;
procedure AdjustSelection;
@ -393,7 +395,7 @@ type
property DroppedDown: Boolean read GetDroppedDown;
property CalAlignment: TDTCalAlignment read FCalAlignment write SetCalAlignment default dtaDefault;
property FlatButton: Boolean read GetFlatButton write SetFlatButton default False;
property EnableWhenUnchecked: Boolean read FEnableWhenUnchecked write SetEnableWhenUnchecked default False;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -465,6 +467,7 @@ type
property ShowMonthNames;
property CalAlignment;
property FlatButton;
property EnableWhenUnchecked;
// events:
property OnChange;
property OnCheckBoxChange;
@ -679,6 +682,8 @@ begin
// we'll change the date, but keep the time:
DTPicker.SetDateTime(ComposeDateTime(Cal.GetDate, DTPicker.DateTime));
end;
if DTPicker.ShowCheckBox and not DTPicker.Checked then
DTPicker.Checked := True;
finally
Dec(DTPicker.FUserChanging);
end;
@ -893,7 +898,7 @@ end;
procedure TCustomDateTimePicker.CheckTextEnabled;
begin
FTextEnabled := Self.Enabled and GetChecked;
FTextEnabled := Self.Enabled and (FEnableWhenUnchecked or GetChecked);
if Assigned(FArrowButton) then
FArrowButton.Enabled := FTextEnabled;
@ -2915,6 +2920,16 @@ begin
end;
end;
procedure TCustomDateTimePicker.SetEnableWhenUnchecked(
const AEnableWhenUnchecked: Boolean);
begin
if FEnableWhenUnchecked = AEnableWhenUnchecked then Exit;
FEnableWhenUnchecked := AEnableWhenUnchecked;
CheckTextEnabled;
Invalidate;
end;
procedure TCustomDateTimePicker.SetFlatButton(const AValue: Boolean);
begin
if FlatButton=AValue then