Скачать: CL | DM;

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()

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c