MCKfakeClasses.~inc

   1 {\r
   2   KOL MCK (C) 2000 by Vladimir Kladov\r
   3 \r
   4   MCKfakeClasses.inc\r
   5 \r
   6   This file redefines mirror class types to PControl / PObj\r
   7   to use it by Delphi compiler - while compiling mirror KOL\r
   8   project. At design time these definitions are not visible\r
   9   for Delphi IDE because of conditional compiling directives.\r
  10 }\r
  11 \r
  12 {$I KOLDEF.INC}\r
  13 {$IFNDEF FPC}\r
  14 {$IFDEF _D7orHigher}\r
  15   {$WARN UNSAFE_TYPE OFF} // Too many such warnings in Delphi7\r
  16   {$WARN UNSAFE_CODE OFF}\r
  17   {$WARN UNSAFE_CAST OFF}\r
  18 {$ENDIF}\r
  19 {$ENDIF}\r
  20 \r
  21   TKOLProject = Pointer;\r
  22   TKOLApplet = Pointer;\r
  23   TKOLForm = Pointer;\r
  24   TKOLDataModule = Pointer;\r
  25   TKOLFrame = Pointer;\r
  26   TKOLMDIClient = PControl;\r
  27   TKOLMDIChild = Pointer;\r
  28   TKOLService = Pointer;\r
  29 \r
  30   TKOLButton = PControl;\r
  31   TKOLLabel = PControl;\r
  32   TKOLLabelEffect = PControl;\r
  33   TKOLPanel = PControl;\r
  34   TKOLSplitter = PControl;\r
  35   TKOLGradientPanel = PControl;\r
  36   TKOLBitBtn = PControl;\r
  37   TKOLGroupBox = PControl;\r
  38   TKOLCheckBox = PControl;\r
  39   TKOLRadioBox = PControl;\r
  40   TKOLEditBox = PControl;\r
  41   TKOLMemo = PControl;\r
  42   TKOLListBox = PControl;\r
  43   TKOLComboBox = PControl;\r
  44   TKOLPaintBox = PControl;\r
  45   TKOLImageShow = PControl;\r
  46 \r
  47   TKOLRichEdit = PControl;\r
  48   TKOLProgressBar = PControl;\r
  49   TKOLListView = PControl;\r
  50   TKOLTreeView = PControl;\r
  51   TKOLToolbar = PControl;\r
  52   TKOLTabControl = PControl;\r
  53   TTabPage = PControl;\r
  54   TKOLScrollBox = PControl;\r
  55   TKOLDateTimePicker = PControl;\r
  56 \r
  57   TKOLTimer = PTimer;\r
  58   TKOLThread = PThread;\r
  59   TKOLImageList = PImageList;\r
  60   TKOLMainMenu = PMenu;\r
  61   TKOLPopupMenu = PMenu;\r
  62   TKOLOpenSaveDialog = POpenSaveDialog;\r
  63   TKOLOpenDirDialog = POpenDirDialog;\r
  64   TKOLColorDialog = PColorDialog;\r
  65   TKOLTrayIcon = PTrayIcon;\r
  66   TKOLActionList = PActionList;\r
  67   TKOLAction = PAction;\r
  68 \r
  69 {$IFNDEF FPC}\r
  70 {$IFDEF _D7orHigher}\r
  71   //{$WARN UNSAFE_TYPE ON} // Too many such warnings in Delphi7\r
  72   {$WARN UNSAFE_CODE ON}\r
  73   {$WARN UNSAFE_CAST ON}\r
  74 {$ENDIF}\r
  75 {$ENDIF}\r
  76 \r