paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 17:39:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

TDateTimePicker: expose FEffectiveDateDisplayOrder and FEffectiveHideDateTimeParts as read only protected properties. Patch by michalgw. Issue #39971.

Browse Source
This commit is contained in:
Bart 2022-12-03 15:59:41 +01:00
parent 1af6a0e61f
commit db8a298e3d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/datetimectrls/datetimepicker.pas
View File

@ -116,6 +116,7 @@ type
// because this set type is used for HideDateTimeParts property,
// where hiding of AMPM part is tied to hiding of hour (and, of
// course, it makes a difference only when TimeFormat is set to tf12)
TEffectiveDateTimeParts = set of TDateTimePart;
TArrowShape = (asClassicSmaller, asClassicLarger, asModernSmaller,
asModernLarger, asYetAnotherShape, asTheme);
@ -160,7 +161,7 @@ type
FChecked: Boolean;
FDateDisplayOrder: TDateDisplayOrder;
FHideDateTimeParts: TDateTimeParts;
FEffectiveHideDateTimeParts: set of TDateTimePart;
FEffectiveHideDateTimeParts: TEffectiveDateTimeParts;
FKind: TDateTimeKind;
FLeadingZeros: Boolean;
FMonthDisplay: TMonthDisplay;
@ -382,6 +383,9 @@ type
procedure RemoveHandlerOnChange(AOnChange: TNotifyEvent); virtual;
procedure RemoveHandlerOnCheckBoxChange(AOnCheckBoxChange: TNotifyEvent); virtual;
property EffectiveHideDateTimeParts: TEffectiveDateTimeParts read FEffectiveHideDateTimeParts;
property EffectiveDateDisplayOrder: TDateDisplayOrder read FEffectiveDateDisplayOrder;
property BorderStyle default bsSingle;
property AutoSize default True;
property TabStop default True;