Ошибка с TKOLOpenDirDialog

← →
chum (2006-01-20 16:16) [0]

Поставил последнюю версию KOL и открыл старый проект. При попытке скомпилировать выдаётся ошибка

[Error] Unit1.pas(26): Undeclared identifier: "TKOLOpenDirDialog"

В поиске нашёл, что TKOLOpenDirDialog определяется в KOL.pas, но это не работает. потом посмотрел в MCKfakeClasses и там строчка
//TKOLOpenDirDialog = POpenDirDialog;

Если её раскоментировать, то всё нормально. В чём тогда прикол?

← →
ECM © (2006-01-20 17:39) [1]

kol.pas (2.31):

{$IFDEF KOL_MCK}
type TKOLOpenDirDialog = POpenDirDialog;
{$ENDIF}

KOLAdd.pas:

{$IFDEF KOL_MCK}
type TKOLOpenDirDialog = POpenDirDialogEx;
{$ENDIF}

define KOL_MCK ?

← →
chum (2006-01-21 14:58) [2]

define KOL_MCK ?</>

Конечно есть!!! вот я и не пойму в чём дело.

← →
Sormy (2006-01-21 20:33) [3]

А если в интерфейсной части (перед формой) вписать: "type TKOLOpenDirDialog = POpenDirDialog;"?

← →
Sormy (2006-01-21 20:47) [4]

...
{$IFDEF KOL_MCK} type TKOLOpenDirDialog = POpenDirDialog; {$ENDIF} type {$IFDEF KOL_MCK} {$I MCKfakeClasses.inc} {$IFDEF KOLCLASSES} TForm1 = class; PForm1 = TForm1; {$ELSE OBJECTS} PForm1 = ^TForm1; {$ENDIF CLASSES/OBJECTS} {$IFDEF KOLCLASSES}{$I TForm1.inc}{$ELSE} TForm1 = object(TObj) {$ENDIF} Form: PControl; {$ELSE not_KOL_MCK} TForm1 = class(TForm) {$ENDIF KOL_MCK}
...

Ошибка с TKOLOpenDirDialog Найти похожие ветки