| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TKOLDateTimePicker mck errors

GMax ©   (2005-09-08 14:31:00) 

во-первых, в зеркале нет 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 16:57:00) [1]

и ещё на ту же тему:
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()

---

GMax   (2005-09-08 14:42:00) [2]

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

---

Наверх