LCL, use DateTime property to set initial date in TCalendar, avoid problems with non numeric month shortdate formats

git-svn-id: trunk@14144 -

lcl/calendar.pp

@@ -151,7 +151,7 @@ begin
   SetInitialBounds(0,0,GetControlClassDefaultSize.X,GetControlClassDefaultSize.Y);
   fDisplaySettings := [dsShowHeadings, dsShowDayNames];
   ControlStyle:=ControlStyle-[csTripleClicks,csQuadClicks,csAcceptsControls];
-  Date := FormatDateTime(ShortDateFormat,Now);
+  DateTime := Now;
 end;
 
 destructor TCustomCalendar.Destroy;