From: "Mark Reichert" <mark@messagelink.com>
Subject: Re: Delphi's lack of improved components
Date: 20 Sep 2000 00:00:00 GMT
Message-ID: <39c90658$1_2@dnews>
References: <39C46B50.71DF6453@svn.net> <8q22up$ski6@bornews.borland.com> <39c5075f_2@dnews> <8q36nj$6ro10@bornews.borland.com> <39c5b5e1_2@dnews> <8q59tv$1ji3@bornews.borland.com> <39c63349$1_1@dnews> <8q5fbi$1j47@bornews.borland.com> <8q5mjm$5s54@bornews.borland.com> <8q6d42$a8l5@bornews.borland.com> <39C80AC3.873D6AFB@inprise.com> <8q9ieb$6av13@bornews.borland.com>
X-Trace: 20 Sep 2000 11:47:52 -0800, 216.162.98.53
X-MSMail-Priority: Normal
X-Priority: 3
Newsgroups: borland.public.delphi.non-technical
X-Mimeole: Produced By Microsoft MimeOLE V5.00.2314.1300

Earl F. Glynn wrote in message
news:8q9ieb$6av13@bornews.borland.com...
> Thank you for listening.    Feel free to adopt any of this TDateTimePicker
> information and examples that  I put online after I had to research the
problem:
> http://www.efg2.com/Lab/Library/Delphi/DatesAndTimes/#TDateTimePicker

I'll have to remember your page if we need to change the format.  The
biggest problem we've had with the TDateTimePicker is that the Date property
isn't updated while the calendar is dropped down in version 4 onward.  In
the OnChange handler for the TDateTimePicker control DT_SelDate, I had to do
the following to make sure a TreeView was updated every time the date
changed, whether the calendar was up or down.

procedure TF_Events.DT_SelDateChange(Sender: TObject);
Var Value : TSystemTime;
begin
  If Sender is TDateTimePicker Then
    If TDateTimePicker(Sender).DroppedDown Then begin
      IF DateTime_GetSystemTime(TDateTimePicker(Sender).Handle, Value) =
GDT_VALID Then
        SetupTreeView(SystemTimeToDateTime(Value));
    end
    else
      SetupTreeView(TDateTimePicker(Sender).Date);
end;

--
Please respond only in the newsgroup.  I will not respond
to newsgroup messages by e-mail.