Please send me the modified file privately.

Hanks,
Jason Wharton
CPS - Mesa AZ
http://www.ibobjects.com

----- Original Message -----
From: "Nello Sestini" <nello@...>
To: <IBObjects@yahoogroups.com>
Sent: Monday, April 02, 2001 11:43 AM
Subject: [IBO] TIB_CustomDateTimePicker notifications fix


> IBO_3_6_Cf
>
> I think there's a bug in TIB_CustomDateTimePicker.CNNotify
>
> The effect is to discard notifications other than
> the two it processes - so for example the OnCloseUp
> and OnDropDown events don't work and the DroppedDown
> property won't ever be true.
>
> I think the fix is to add an "else" case and
> call the inherited handler. The way the original
> is indented it looks like there is one - but it's
> actually the else for the "if" in the last case.
>
> Code follows
>
> -ns
>
>
> procedure TIB_CustomDateTimePicker.CNNotify(var Message: TWMNotify);
> begin
> with Message, Message.NMHdr^ do begin
> Result := 0;
> case code of
> DTN_DATETIMECHANGE: if DataLink.Modify then begin
> inherited;
> DataLink.ControlIsModified := true;
> SysUpdateData( nil );
> end;
> DTN_WMKEYDOWN: if DataLink.Modify then begin
> inherited;
> DataLink.ControlIsModified := true;
> SysUpdateData( nil );
> end else begin
> inherited;
> end;
> else begin
> inherited;
> end;
> end;
> end;
> end;
>
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>