This fix will be in the next sub-release.

Thanks,
Jason Wharton

----- Original Message -----

> Ok, here the fix:
> File: IBC_Date.IMP
> change the UpdateMask procedure with the following code:
> procedure TIB_CustomDate.UpdateMask( UnboundMask: string );
> begin
> if UnboundMask = '' then
> begin
> if copy(AnsiLowerCase(ShortDateFormat), 1, 1) = 'y' then // year
> first, like in Lithuanian and Latvian countries
> UnboundMask := '!9999' + DateSeparator + '99' + DateSeparator +
> '99;1; '
> else
> UnboundMask := '!99' + DateSeparator + '99' + DateSeparator +
> '9999;1; ';
> end;
> inherited UpdateMask( UnboundMask );
> end;
>
> That, in my tests, seems to work, and, contrary to what I supposed,
> Autofil property works as well.
> To Jason: since I don't have access to your code, could you please
> merge this improvement in the forecoming subrelease?
> In IBC_Date.int credits section there is to add:
> { Marco Menardi <mmenaz@...> }
> {
}
> { Added support while unbound for date format like yyyy/mm/dd
> (year first) }
> { used in countries like Lithuanian and
}
>
> Thanks
> Marco Menardi