Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2003-10

TCalendar under win32

2 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Marc Weustink
to Karl Brandt: Here's a patch that: - implements TCalendar - change declaration of some functions where…
Karl Brandt wrote 10 lines
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.

Show quoted text 13 lines
I'd also suggest changs the following 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

Reply by email

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

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

Reply by email