829d5adfe5
отличия от 2.88:
+ procedure TControl.TBClear; {* |<#toolbar> Deletes all buttons. Dufa }
+ property TControl.TBButtonLParam[const Idx: Integer]: DWORD read TBGetButtonLParam write TBSetButtonLParam;
{* |<#toolbar> Allows to access/change LParam. Dufa }
+ добавлен MCKfakeClasses200x.inc для исправления глюка с ложными МСК варнингами(в версиях 2006-2009) // Dufa
* DefFont = Tahoma
* procedure TDirList.ScanDirectory исправлена утечка памяти // Dufa
* function TControl.WndProcTransparent исправлено "странное" поведение приложения, при кол-во форм >= 2 // Galkov
* procedure TControl.SetCurIndex устранен AV // Galkov
* visual_xp_styles.inc: function IsManifestFilePresent : boolean; исправлена ошибка при работе с библиотеками //Dufa
*** возможно что-то забыл.... %)
git-svn-id: https://svn.code.sf.net/p/kolmck/code@3 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
78 lines
1.9 KiB
PHP
78 lines
1.9 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;
|
|
|
|
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;
|
|
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}
|
|
|