TKOLDateTimePicker mck errors

← →
GMax (2005-09-08 14:31) [0]

во-первых, в зеркале нет OnChange, а это самое главное :)

во-вторых, OnDTPUserString не работает. при её добавлении, появляется
процедура с вот такой декларацией:
(Sender: TObject;
const UserString: String; var DateAndTime: TDateTime;
var AllowChange: Boolean);
естественно это выдаёт ошибку компиляции:
Incompatible types: PControl and TObject

и, наконец(это уже к KOL?), если включена опция dtpoShowNone, то при выключении приходит событие OnChange, а дата при этом имеет
значение "-NAN", и это нигде не проверяется. в isNAN отлавливается только NAN без минуса.
-NAN в терминологии I64 это
(.lo=0) and (.hi=$FFF80000)

да, цветов в mck тоже нет :(

пункт 2 особенно неприятен. где покрутить ?

← →
GMax (2005-09-08 14:42) [1]

соврал :-\
-NAN тоже ловится.
но остальное - в силе

← →
GMax (2005-09-08 16:57) [2]

и ещё на ту же тему:
KOL.PAS
procedure TControl.SetDateTime(Value: TDateTime);
var ST: TSystemTime;
begin
DateTime2SystemTime( Value, ST );
Perform( DTM_SETSYSTEMTIME, Integer( IsNAN( Value ) ) , Integer( @ ST ) );
end;

первую строчку необходимо заменить на

if (Not IsNAN(Value)) then DateTime2SystemTime( Value, ST );

потому как если там NAN, то DateTime2SystemTime молча умирает на trunc()

TKOLDateTimePicker mck errors Найти похожие ветки