1 files changed, 79 insertions, 0 deletions
diff --git a/plugins/Libs/MCKfakeClasses.inc b/plugins/Libs/MCKfakeClasses.inc
new file mode 100644
index 0000000000..5483d42442
--- /dev/null
+++ b/plugins/Libs/MCKfakeClasses.inc
@@ -0,0 +1,79 @@
+{
+  KOL MCK (C) 2000 by Vladimir Kladov
+
+  MCKfakeClasses.inc
+
+  This file redefines mirror class types to PControl / PObj
+  to use it by Delphi compiler - while compiling mirror KOL
+  project. At design time these definitions are not visible
+  for Delphi IDE because of conditional compiling directives.
+}
+
+{$I KOLDEF.INC}
+{$IFNDEF FPC}
+{$IFDEF _D7orHigher}
+  {$WARN UNSAFE_TYPE OFF} // Too many such warnings in Delphi7
+  {$WARN UNSAFE_CODE OFF}
+  {$WARN UNSAFE_CAST OFF}
+{$ENDIF}
+{$ENDIF}
+
+  TKOLProject = Pointer;
+  TKOLApplet = Pointer;
+  TKOLForm = Pointer;
+  TKOLDataModule = Pointer;
+  TKOLFrame = Pointer;
+  TKOLMDIClient = PControl;
+  TKOLMDIChild = Pointer;
+  TKOLService = Pointer;
+  TBringFront = Pointer;
+
+  TKOLButton = PControl;
+  TKOLLabel = PControl;
+  TKOLLabelEffect = PControl;
+  TKOLPanel = PControl;
+  TKOLSplitter = PControl;
+  TKOLGradientPanel = PControl;
+  TKOLBitBtn = PControl;
+  TKOLGroupBox = PControl;
+  TKOLCheckBox = PControl;
+  TKOLRadioBox = PControl;
+  TKOLEditBox = PControl;
+  TKOLMemo = PControl;
+  TKOLListBox = PControl;
+  TKOLComboBox = PControl;
+  TKOLPaintBox = PControl;
+  TKOLImageShow = PControl;
+
+  TKOLRichEdit = PControl;
+  TKOLProgressBar = PControl;
+  TKOLListView = PControl;
+  TKOLTreeView = PControl;
+  TKOLToolbar = PControl;
+  TKOLTabControl = PControl;
+  TKOLTabPage = PControl;
+  TTabPage = PControl;
+  TKOLScrollBox = PControl;
+  TKOLDateTimePicker = PControl;
+
+  TKOLTimer = PTimer;
+  TKOLThread = PThread;
+  TKOLImageList = PImageList;
+  TKOLMainMenu = PMenu;
+  TKOLPopupMenu = PMenu;
+  TKOLOpenSaveDialog = POpenSaveDialog;
+  //TKOLOpenDirDialog = POpenDirDialog;
+  TKOLTrayIcon = PTrayIcon;
+  TKOLColorDialog = PColorDialog;
+  //TKOLActionList = PActionList;
+  //TKOLAction = PAction;
+  TKOLScrollBar = PControl;
+
+{$IFNDEF FPC}
+{$IFDEF _D7orHigher}
+  //{$WARN UNSAFE_TYPE ON} // Too many such warnings in Delphi7
+  //{$WARN UNSAFE_CODE ON}
+  //{$WARN UNSAFE_CAST ON}
+{$ENDIF}
+{$ENDIF}
+