[lazarus] TCalendar under win32

Marc Weustink marc at dommelstein.net
Tue Oct 7 19:42:10 EDT 2003


At 02:41 2-10-2003, Karl Brandt wrote:
>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

Hmm... it seems that someone already aplied those patches.

>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

They make sense.

Marc







More information about the Lazarus mailing list