From 50a5126435fde8f6159b62db692a1987a949f3c8 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 13 Feb 2015 06:41:27 +0000
Subject: [PATCH] RxFPC: TRxDBDateEdit - fix error on set focus if
 dataset.active=false

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3941 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/tooledit.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/components/rx/trunk/tooledit.pas b/components/rx/trunk/tooledit.pas
index e0bb8d5b7..52f3b6618 100644
--- a/components/rx/trunk/tooledit.pas
+++ b/components/rx/trunk/tooledit.pas
@@ -116,6 +116,7 @@ type
 
     function GetDefaultGlyphName: String; override;
     function CreatePopupForm:TPopupCalendar;
+    procedure DoEnter; override;
 
     property BlanksChar: Char read FBlanksChar write SetBlanksChar default ' ';
     property DialogTitle:TCaption Read FDialogTitle Write FDialogTitle Stored IsStoreTitle;
@@ -867,6 +868,12 @@ begin
   TRxCalendarGrid(Result.Calendar).NotInThisMonthColor:=FNotInThisMonthColor;
 end;
 
+procedure TCustomRxDateEdit.DoEnter;
+begin
+  if Enabled then
+    inherited DoEnter;
+end;
+
 constructor TCustomRxDateEdit.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);