summaryrefslogtreecommitdiff
path: root/plugins/Libs/MCKfakeClasses.inc
blob: 5483d4244201aef7bcabd1adad10e12c03e8148f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
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}