0f9b11b138
git-svn-id: https://svn.code.sf.net/p/kolmck/code@108 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
80 lines
2.0 KiB
PHP
80 lines
2.0 KiB
PHP
{
|
|
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}
|
|
|