From 864081102a5f252415f41950b3039a896b4ae9c5 Mon Sep 17 00:00:00 2001 From: Vadim Dashevskiy Date: Mon, 8 Oct 2012 18:43:29 +0000 Subject: Awkwars's plugins - welcome to our trunk git-svn-id: http://svn.miranda-ng.org/main/trunk@1822 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/Libs/MCKfakeClasses.inc | 79 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 79 insertions(+) create mode 100644 plugins/Libs/MCKfakeClasses.inc (limited to 'plugins/Libs/MCKfakeClasses.inc') 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} + -- cgit v1.2.3