[lazarus] TCalendar under win32

[Karl Brandt]

Here's a patch that:
  - implements TCalendar
  - change declaration of some functions where the type is previously 
know to avoid unnecesary typecasts
  - change 2nd paremeter of ResizeChild:LCLControlSizeNeedsUpdate to 
false because MoveWindow already fires a WM_SIZE
  - patch to apply against vclglobals.pp: complete the missing 
CompStyles to CS_TO_STRING
  - patch to apply against wincontrol.inc:makes tracing of error at 
creating components easier

I'd also suggest changs the following lines at calendar.pp

at 112:
  from Date := FormatDateTime('dd-mm-yyyy',Now);
  to Date := FormatDateTime(ShortDateFormat,Now);

at 188
  from FDate := FormatDateTime('dd-mm-yyyy',Temp.Date);
  to FDate := FormatDateTime(ShortDateFormat,Temp.Date);

This will make system independant, and fix a bug at setting the value:
StrToDate returns 0 if you pass a value separated with other char then 
the DateSeparator variable

karl

-------------- next part --------------
A non-text attachment was scrubbed...
Name: zip00040.zip
Type: application/octet-stream
Size: 4641 bytes
Desc: "calendar.zip"
Url : http://localhost/pipermail/lazarus/attachments/20031001/fd89132f/zip00040.obj