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

Ошибка с 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}
...

---

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

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



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