From 66f30ba3674c4f4877ce6232d8beca418df043a0 Mon Sep 17 00:00:00 2001
From: zoran <zoran@lazarus-ide.org>
Date: Thu, 7 Mar 2019 11:31:22 +0000
Subject: [PATCH] DateTimePicker: add option dtpoResetSelection

git-svn-id: trunk@60614 -
---
 components/datetimectrls/datetimepicker.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/components/datetimectrls/datetimepicker.pas b/components/datetimectrls/datetimepicker.pas
index f2c3f06a7f..787e543640 100644
--- a/components/datetimectrls/datetimepicker.pas
+++ b/components/datetimectrls/datetimepicker.pas
@@ -119,8 +119,8 @@ type
     dtaDefault means it is determined by BiDiMode }
   TDTCalAlignment = (dtaLeft, dtaRight, dtaDefault);
 
-  TDateTimePickerOption = (
-    dtpoDoChangeOnSetDateTime, dtpoEnabledIfUnchecked, dtpoAutoCheck, dtpoFlatButton);
+  TDateTimePickerOption = (dtpoDoChangeOnSetDateTime, dtpoEnabledIfUnchecked,
+                           dtpoAutoCheck, dtpoFlatButton, dtpoResetSelection);
   TDateTimePickerOptions = set of TDateTimePickerOption;
 
   { TCustomDateTimePicker }
@@ -2717,6 +2717,11 @@ end;
 
 procedure TCustomDateTimePicker.DoEnter;
 begin
+  if dtpoResetSelection in Options then begin
+    FSelectedTextPart := High(TTextPart);
+    MoveSelectionLR(False);
+  end;
+
   inherited DoEnter;
   Invalidate;
 end;