From ba6aad3083b775b30d498b474b22d245ef78b0cc Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 28 Aug 2011 12:06:07 +0000
Subject: [PATCH] fix Editmask in TRxDateEdit

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

diff --git a/components/rx/tooledit.pas b/components/rx/tooledit.pas
index 7c8f3610c..45dcc42ea 100644
--- a/components/rx/tooledit.pas
+++ b/components/rx/tooledit.pas
@@ -143,8 +143,12 @@ type
   end;
   
 type
+
+  { TRxDateEdit }
+
   TRxDateEdit = class(TCustomRxDateEdit)
   public
+    constructor Create(AOwner: TComponent); override;
     property PopupVisible;
   published
     property Action;
@@ -353,6 +357,14 @@ begin
   end;
 end;
 
+{ TRxDateEdit }
+
+constructor TRxDateEdit.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  UpdateMask;
+end;
+
 { TCustomRxDateEdit }
 
 function TCustomRxDateEdit.IsStoreTitle: boolean;
@@ -460,6 +472,7 @@ begin
   if FStartOfWeek=AValue then exit;
   FStartOfWeek:=AValue;
   UpdatePopup;
+  UpdateMask;
 end;
 
 procedure TCustomRxDateEdit.SetWeekendColor(const AValue: TColor);
@@ -480,7 +493,8 @@ procedure TCustomRxDateEdit.SetYearDigits(const AValue: TYearDigits);
 begin
   if FYearDigits=AValue then exit;
   FYearDigits:=AValue;
-  UpdateFormat;
+//  UpdateFormat;
+  UpdateMask;
 end;
 
 procedure TCustomRxDateEdit.CalendarHintsChanged(Sender: TObject);