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
48 lines
2.1 KiB
PHP
48 lines
2.1 KiB
PHP
//{$DEFINE _FPC}
|
|
{$DEFINE ASM_VERSION} // Comment this line to produce Pascal code.
|
|
// Or, just add PAS_VERSION to conditionals
|
|
// of your project (must be rebuilt).
|
|
|
|
{$IFDEF ASM_VERSION}
|
|
{$IFDEF PAS_VERSION}
|
|
{$UNDEF ASM_VERSION}
|
|
// To compile a project with ASM_VERSION option turned off,
|
|
// define a symbol PAS_VERSION in project options.
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
{$I KOLDEF.INC}
|
|
|
|
//{$DEFINE USE_CONSTRUCTORS}
|
|
// Comment this line to produce smaller code if constructors are not used.
|
|
// When uncommented, this definition allows to create descendant controls
|
|
// and objects overriding constructors, which are actually members of objects.
|
|
// Otherwise, global functions (usually named New<ObjectName>) are used to
|
|
// create and initialize object instances. This gives smaller code, but
|
|
// prevents from using OOP inheritance.
|
|
// Note: creating descendant objects derived from TObj does not require using
|
|
// of this option. It is actually needed only for deriving new controls on
|
|
// base of TControl. See also option USE_CUSTOMEXTENSIONS below.
|
|
|
|
//{$DEFINE USE_CUSTOMEXTENSIONS}
|
|
// Uncomment this option or add it to your project conditional defines,
|
|
// if You wish to extend existing TControl object from
|
|
// the inner of those. When this option is turned on, include directive at the
|
|
// tail of TControl declaration is enabled, causing a compiler to include your
|
|
// portion of source directly into the TControl body. See comments near this
|
|
// directive there. (Search the word: USE_CUSTOMEXTENSIONS).
|
|
// Please note, that this option is not fully supported now.
|
|
|
|
{$IFNDEF NOT_UNLOAD_RICHEDITLIB}
|
|
{$DEFINE UNLOAD_RICHEDITLIB}
|
|
{$ENDIF}
|
|
// You can freely comment this directive. 1st, if the application does not
|
|
// use richedit control. 2nd, even if it does, freeing the library handle
|
|
// actually is not needed.
|
|
// Another way to turn this option off is to define symbol NOT_UNLOAD_RICHEDITLIB
|
|
// in your project options.
|
|
|
|
//{$DEFINE TEST_VERSION}
|
|
{$IFNDEF _D6orHigher}
|
|
{$DEFINE PARANOIA} //seems not needed under D6 !!! Inprise fixed this, finally...
|
|
{$ENDIF} |