У меня появилось пару вопросов по KOL
1) Я для отображения времени в статус-баре написал такой код
procedure TForm1.Timer1Timer(Sender: PObj);
var
sys:TSystemTime;
time:string;
d:TDateTime;
begin
GetSystemTime(sys);
systemtime2datetime(sys,d);
time:=DateTime2StrShort(d);
form1.Form.StatusText[0]:=PChar(time);
end;
Так вот, например вместо 19:00 он мне показывает 15:00! В чём проблема!
2) Я скачал библиотеку ActiveKOL, дал ссылку на папку с компонентом, но когда я пытаюсь установить компонент KOLCdWriter (для которого нужен activekol), он мне выдаёт ошибку в файле ActiveKOL.pas:

procedure TOleCtl.KeyPress(var Key: Char);
begin
 if Assigned(FOnChar) then FOnChar(@Self,key,0); <-
end;                                                                  

[Error] ActiveKOL.pas(1443): Types of actual and formal var parameters must be identical
[Fatal Error] CDWriter_TLBKOL.pas(41): Could not compile used unit 'ActiveKOL.pas'

В чём проблема???

1. время по гринвичу (узнавай время через Now например)
2. Char заменить надо на KOLChar из-за введенной поддержки уникода

Удалено модератором

Удалено модератором

Удалено модератором

Удалено модератором