* code clean & refactoring

* some defines moved from KOL.pas to KOLDEF.inc
* dpk packages updated
+ add ComponentPlatformsAttribute for MCK components (fix disabled components for platform Win64)
+ add define for Delphi 10.4 Sydney (Hubert Bannwarth)

git-svn-id: https://svn.code.sf.net/p/kolmck/code@169 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

KOLDEF.inc

@@ -14,9 +14,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
 {$ENDIF}
 
 {$IFDEF VER160} // Delphi 8
@@ -31,9 +28,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
 {$ENDIF}
 
 {$IFDEF VER180} // Delphi 2006 or Turbo
@@ -45,9 +39,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
 {$ENDIF}
 
 {$IFDEF VER185} // Delphi 2007
@@ -60,9 +51,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
 {$ENDIF}
 
 {$IFDEF VER200} // Delphi 2009 (first unicode version)
@@ -76,9 +64,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
 {$ENDIF}
 
 {$IFDEF VER210} // Delphi 2010
@@ -93,9 +78,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
 {$ENDIF}
 
 {$IFDEF VER220} // Delphi XE
@@ -111,9 +93,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
 {$ENDIF}
 
 {$IFDEF VER230} // Delphi XE2
@@ -130,13 +109,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
-
-//  {$IFDEF WIN64}
-//    {$DEFINE UNICODE_CTRLS}
-//  {$ENDIF}
 {$ENDIF}
 
 {$IFDEF VER240} // Delphi XE3
@@ -154,13 +126,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
-
-//  {$IFDEF WIN64}
-//    {$DEFINE UNICODE_CTRLS}
-//  {$ENDIF}
 {$ENDIF}
 
 {$IFDEF VER250} // Delphi XE4
@@ -179,13 +144,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
-
-//  {$IFDEF WIN64}
-//    {$DEFINE UNICODE_CTRLS}
-//  {$ENDIF}
 
   {$DEFINE TMSG_WINDOWS}
 {$ENDIF}
@@ -207,13 +165,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
- 
-//  {$IFDEF WIN64}
-//    {$DEFINE UNICODE_CTRLS}
-//  {$ENDIF}
 
   {$DEFINE TMSG_WINDOWS}
 {$ENDIF}
@@ -236,13 +187,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
-
-//  {$IFDEF WIN64}
-//    {$DEFINE UNICODE_CTRLS}
-//  {$ENDIF}
 
   {$DEFINE TMSG_WINDOWS}
 {$ENDIF}
@@ -266,13 +210,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
-
-//  {$IFDEF WIN64}
-//    {$DEFINE UNICODE_CTRLS}
-//  {$ENDIF}
 
   {$DEFINE TMSG_WINDOWS}
 {$ENDIF}
@@ -297,13 +234,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
-
-//  {$IFDEF WIN64}
-//    {$DEFINE UNICODE_CTRLS}
-//  {$ENDIF}
 
   {$DEFINE TMSG_WINDOWS}
 {$ENDIF}
@@ -329,13 +259,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
-
-//  {$IFDEF WIN64}
-//    {$DEFINE UNICODE_CTRLS}
-//  {$ENDIF}
 
   {$DEFINE TMSG_WINDOWS}
 {$ENDIF}
@@ -362,13 +285,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
-
-//  {$IFDEF WIN64}
-//    {$DEFINE UNICODE_CTRLS}
-//  {$ENDIF}
 
   {$DEFINE TMSG_WINDOWS}
 {$ENDIF}
@@ -396,13 +312,6 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
-
-//  {$IFDEF WIN64}
-//    {$DEFINE UNICODE_CTRLS}
-//  {$ENDIF}
 
   {$DEFINE TMSG_WINDOWS}
 {$ENDIF}
@@ -431,13 +340,35 @@
 
   {$WARN UNIT_DEPRECATED OFF}
   {$WARN SYMBOL_PLATFORM OFF}
-//  {$WARN UNSAFE_TYPE OFF}
-//  {$WARN UNSAFE_CAST OFF}
-//  {$WARN UNSAFE_CODE OFF}
 
-//  {$IFDEF WIN64}
+  {$DEFINE TMSG_WINDOWS}
-//    {$DEFINE UNICODE_CTRLS}
+{$ENDIF}
-//  {$ENDIF}
+
+{$IFDEF VER340} // Delphi 10.4 Sydney
+  {$DEFINE _D6orHigher}
+  {$DEFINE _D7orHigher}
+  {$DEFINE _D2005orHigher}
+  {$DEFINE _D2006orHigher}
+  {$DEFINE _D2007orHigher}
+  {$DEFINE _D2009orHigher}
+  {$DEFINE _D2010orHigher}
+  {$DEFINE _DXEorHigher}
+  {$DEFINE _DXE2orHigher}
+  {$DEFINE _DXE3orHigher}
+  {$DEFINE _DXE4orHigher}
+  {$DEFINE _DXE5orHigher}
+  {$DEFINE _DXE6orHigher}
+  {$DEFINE _DXE7orHigher}
+  {$DEFINE _DXE8orHigher}
+  {$DEFINE _D10orHigher}
+  {$DEFINE _D10_1orHigher}
+  {$DEFINE _D10_2orHigher}
+  {$DEFINE _D10_3orHigher}
+  {$DEFINE _D10_4orHigher}
+  {$DEFINE _D10_4}
+
+  {$WARN UNIT_DEPRECATED OFF}
+  {$WARN SYMBOL_PLATFORM OFF}
 
   {$DEFINE TMSG_WINDOWS}
 {$ENDIF}
@@ -445,7 +376,6 @@
 {$IFDEF FPC}
   {$MODE DELPHI}
   {$ASMMODE INTEL}
-  {$DEFINE PAS_ONLY}
   {$DEFINE USE_OLD_FLAGS} //size of set type in fpc is 4 bytes
   {------------------------------------
   by Thaddy de Koning:
@@ -478,14 +408,6 @@
 
 //// from delphidef.inc ////
 
-{$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}
-
 //{$DEFINE USE_CUSTOMEXTENSIONS}
 // Uncomment this option or add it to your project conditional defines,
 // if You wish to extend existing TControl object from
@@ -501,7 +423,7 @@
   {$UNDEF  USE_FLAGS}
 {$ENDIF}
 
-{$IFnDEF EVENTS_STATIC}
+{$IFNDEF EVENTS_STATIC}
   {$DEFINE EVENTS_DYNAMIC}
 {$ENDIF}
 
@@ -510,9 +432,15 @@
   {$UNDEF PACK_COMMANDACTIONS}
 {$ENDIF}
 
+// AUTO UNICODE FOR DELPHI VERSION >= 2009
+{$IFDEF _D2009orHigher}
+  {$DEFINE UNICODE_CTRLS}
+  {$DEFINE UStr_} // use functions @UStrXXXX instead of @WStrXXXX
+{$ENDIF}
+
+// PAS ONLY FOR X64
 {$IFDEF WIN64}
   {$DEFINE PAS_VERSION}
-  {$DEFINE PAS_ONLY}
   {$ALIGN ON}
   {$Z1} // MinEnumSize
 {$ELSE}
@@ -524,31 +452,28 @@
 
 {$T-} // not typed @-operator
 
-{$IFDEF PAS_ONLY}
+// PAS ONLY FOR PACKAGE COMPILE
-  {$DEFINE PAS_VERSION}
+{$IFDEF INPACKAGE} 
-{$ENDIF PAS_ONLY}
-
-{$IFDEF PUREPASCAL}
-  {$DEFINE PAS_VERSION}
-  {$DEFINE PAS_ONLY}
-{$ENDIF}
-
-{$IFDEF INPACKAGE} // use this symbol in packages requiring kol.pas
   {$WARNINGS OFF}
   {$DEFINE PAS_VERSION}
+{$ENDIF}
+
+// USE ASM OR PASCAL CODE
+{$IFDEF PAS_VERSION}
   {$UNDEF ASM_VERSION}
-  {$UNDEF ASM_UNICODE}    
+  {$UNDEF ASM_UNICODE}
-
+  {$UNDEF ASM_TLIST}
-{$ENDIF}
+{$ELSE}
-
+  {$DEFINE ASM_VERSION}
-{$IFDEF _D2009orHigher}
+  // asm without unicode
-  {$DEFINE UNICODE_CTRLS}
+  {$IFNDEF UNICODE_CTRLS}
-{$ENDIF}
+    {$DEFINE ASM_UNICODE}
-  
+  {$ELSE}
-{$IFDEF UNICODE_CTRLS}
+    {$UNDEF ASM_UNICODE}
-  {$IFDEF _D2009orHigher}
+  {$ENDIF}
-    {$DEFINE UStr_} // use functions @UStrXXXX instead of @WStrXXXX
+  // asm TList
+  {$DEFINE ASM_TLIST}
+  {$IFDEF TLIST_FAST}
+    {$UNDEF ASM_TLIST}
   {$ENDIF}
 {$ENDIF}
-
-{$DEFINE KOL3XX}

KOLMCK10_2.dpk

@@ -1,57 +1,56 @@
-package KOLMCKXE7;
+package KOLMCK10_2;
-
+
-{$R *.res}
+{$R *.res}
-{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
-{$ALIGN 8}
+{$ALIGN 8}
-{$ASSERTIONS ON}
+{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
+{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
+{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
+{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
+{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
+{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
+{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
+{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
+{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
+{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
+{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
+{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
+{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
+{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
+{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
+{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
+{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
+{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
+{$MINENUMSIZE 1}
-{$IMAGEBASE $13400000}
+{$IMAGEBASE $13400000}
-{$DESCRIPTION 'KOLMCKXE7'}
+{$DESCRIPTION 'KOLMCK10_2'}
-{$DEFINE UNICODE_CTRLS}
+{$ENDIF IMPLICITBUILDING}
-{$DEFINE PAS_ONLY}
+{$DESIGNONLY}
-{$DEFINE PAS_VERSION}
+{$IMPLICITBUILD OFF}
-{$ENDIF IMPLICITBUILDING}
+{$DEFINE INPACKAGE}
-{$DESIGNONLY}
+{$DEFINE UNICODE_CTRLS}
-{$IMPLICITBUILD OFF}
+{$DEFINE PAS_VERSION}
-{$DEFINE INPACKAGE}
+
-
+requires
-requires
+  rtl,
-  rtl,
+  vcl,
-  vcl,
+  designide,
-  designide,
+  xmlrtl,
-  xmlrtl,
+  vclx;
-  vclx;
+
-
+contains
-contains
+  KOL in 'KOL.pas',
-  KOL in 'KOL.pas',
+  KOLadd in 'KOLadd.pas',
-  KOLadd in 'KOLadd.pas',
+  mirror in 'mirror.pas',
-  mirror in 'mirror.pas',
+  mckObjs in 'mckObjs.pas',
-  mckObjs in 'mckObjs.pas',
+  mckCtrls in 'mckCtrls.pas',
-  mckCtrls in 'mckCtrls.pas',
+  mckCtrlDraw in 'mckCtrlDraw.pas',
-  mckCtrlDraw in 'mckCtrlDraw.pas',
+  mckMenuEditor in 'mckMenuEditor.pas',
-  mckMenuEditor in 'mckMenuEditor.pas',
+  mckToolbarEditor in 'mckToolbarEditor.pas',
-  mckToolbarEditor in 'mckToolbarEditor.pas',
+  mckAccEditor in 'mckAccEditor.pas',
-  mckAccEditor in 'mckAccEditor.pas',
+  mckActionListEditor in 'mckActionListEditor.pas',
-  mckActionListEditor in 'mckActionListEditor.pas',
+  mckFileFilterEditor in 'mckFileFilterEditor.pas',
-  mckFileFilterEditor in 'mckFileFilterEditor.pas',
+  mckLVColumnsEditor in 'mckLVColumnsEditor.pas',
-  mckLVColumnsEditor in 'mckLVColumnsEditor.pas',
+  MCKAppExpert200x in 'MCKAppExpert200x.pas';
-  MCKAppExpert200x in 'MCKAppExpert200x.pas';
+
-
+end.
-end.

KOLMCK2009.dpk

@@ -26,7 +26,7 @@ package KOLMCK2009;
 {$DESIGNONLY}
 {$IMPLICITBUILD OFF}
 {$DEFINE INPACKAGE}
-//{$DEFINE UNICODE_CTRLS}
+{$DEFINE UNICODE_CTRLS}
 
 requires
   rtl,

KOLMCK2010.dpk

@@ -26,6 +26,7 @@ package KOLMCK2010;
 {$DESIGNONLY}
 {$IMPLICITBUILD OFF}
 {$DEFINE INPACKAGE}
+{$DEFINE UNICODE_CTRLS}
 
 requires
   rtl,

KOLMCK7.dpk

@@ -35,18 +35,18 @@ requires
   vclx;
 
 contains
+  KOL in 'KOL.pas',
+  KOLadd in 'KOLadd.pas',
   mirror in 'mirror.pas',
+  mckObjs in 'mckObjs.pas',
   mckCtrls in 'mckCtrls.pas',
   mckCtrlDraw in 'mckCtrlDraw.pas',
-  mckObjs in 'mckObjs.pas',
-  mckToolbarEditor in 'mckToolbarEditor.pas',
-  mckFileFilterEditor in 'mckFileFilterEditor.pas',
-  KOL in 'KOL.pas',
-  mckLVColumnsEditor in 'mckLVColumnsEditor.pas',
-  mckAccEditor in 'mckAccEditor.pas',
   mckMenuEditor in 'mckMenuEditor.pas',
+  mckToolbarEditor in 'mckToolbarEditor.pas',
+  mckAccEditor in 'mckAccEditor.pas',
   mckActionListEditor in 'mckActionListEditor.pas',
-  KOLadd in 'KOLadd.pas',
+  mckFileFilterEditor in 'mckFileFilterEditor.pas',
+  mckLVColumnsEditor in 'mckLVColumnsEditor.pas',
   MCKAppExpert200x in 'MCKAppExpert200x.pas';
 
 end.

KOLMCKXE10_2.dpk

@@ -1,57 +0,0 @@
-package KOLMCKXE10_2;
-
-{$R *.res}
-{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $13400000}
-{$DESCRIPTION 'KOLMCKXE10_2'}
-{$DEFINE UNICODE_CTRLS}
-{$DEFINE PAS_ONLY}
-{$DEFINE PAS_VERSION}
-{$ENDIF IMPLICITBUILDING}
-{$DESIGNONLY}
-{$IMPLICITBUILD OFF}
-{$DEFINE INPACKAGE}
-
-requires
-  rtl,
-  vcl,
-  designide,
-  xmlrtl,
-  vclx;
-
-contains
-  KOL in 'KOL.pas',
-  KOLadd in 'KOLadd.pas',
-  mirror in 'mirror.pas',
-  mckObjs in 'mckObjs.pas',
-  mckCtrls in 'mckCtrls.pas',
-  mckCtrlDraw in 'mckCtrlDraw.pas',
-  mckMenuEditor in 'mckMenuEditor.pas',
-  mckToolbarEditor in 'mckToolbarEditor.pas',
-  mckAccEditor in 'mckAccEditor.pas',
-  mckActionListEditor in 'mckActionListEditor.pas',
-  mckFileFilterEditor in 'mckFileFilterEditor.pas',
-  mckLVColumnsEditor in 'mckLVColumnsEditor.pas',
-  MCKAppExpert200x in 'MCKAppExpert200x.pas';
-
-end.

KOLMCKXE2.dpk

@@ -1,56 +0,0 @@
-package KOLMCKXE2;
-
-{$R *.res}
-{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
-{$ALIGN 4}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION ON}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES OFF}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $25800000}
-{$DEFINE DEBUG}
-{$DEFINE INPACKAGE}
-{$ENDIF IMPLICITBUILDING}
-{$DESCRIPTION 'KOLMCKXE2'}
-{$DESIGNONLY}
-{$IMPLICITBUILD OFF}
-
-requires
-  rtl,
-  vcl,
-  designide,
-  xmlrtl,
-  vclactnband,
-  vclx;
-
-contains
-  KOL in 'KOL.pas',
-  KOLadd in 'KOLadd.pas',
-  mirror in 'mirror.pas',
-  mckObjs in 'mckObjs.pas',
-  mckCtrls in 'mckCtrls.pas',
-  mckCtrlDraw in 'mckCtrlDraw.pas',
-  mckMenuEditor in 'mckMenuEditor.pas',
-  mckToolbarEditor in 'mckToolbarEditor.pas',
-  mckAccEditor in 'mckAccEditor.pas',
-  mckActionListEditor in 'mckActionListEditor.pas',
-  mckFileFilterEditor in 'mckFileFilterEditor.pas',
-  mckLVColumnsEditor in 'mckLVColumnsEditor.pas',
-  MCKAppExpert200x in 'MCKAppExpert200x.pas';
-
-end.

KOLMCKXE4.dpk

@@ -1,57 +0,0 @@
-package KOLMCKXE4;
-
-{$R *.res}
-{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION OFF}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES ON}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DEFINE DEBUG}
-{$DEFINE UNICODE_CTRLS}
-{$DEFINE pas_only}
-{$DEFINE pas_version}
-{$ENDIF IMPLICITBUILDING}
-{$DESCRIPTION 'MCK for XE4'}
-{$DESIGNONLY}
-{$IMPLICITBUILD ON}
-
-requires
-  rtl,
-  designide,
-  vcl,
-  vclx,
-  xmlrtl;
-
-contains
-  mckCtrlDraw in 'mckCtrlDraw.pas',
-  mckCtrls in 'mckCtrls.pas',
-  mckFileFilterEditor in 'mckFileFilterEditor.pas',
-  mckLVColumnsEditor in 'mckLVColumnsEditor.pas',
-  mckMenuEditor in 'mckMenuEditor.pas',
-  mckObjs in 'mckObjs.pas',
-  mckToolbarEditor in 'mckToolbarEditor.pas',
-  KOL in '..\KOL.pas',
-  KOLadd in '..\KOLadd.pas',
-  MCKAppExpert200x in 'MCKAppExpert200x.pas',
-  mirror in 'mirror.pas',
-  mckAccEditor in 'mckAccEditor.pas',
-  mckActionListEditor in 'mckActionListEditor.pas';
-
-end.

KOLMCKXE5.dpk

@@ -1,57 +0,0 @@
-package KOLMCKXE5;
-
-{$R *.res}
-{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
-{$ALIGN 8}
-{$ASSERTIONS ON}
-{$BOOLEVAL OFF}
-{$DEBUGINFO ON}
-{$EXTENDEDSYNTAX ON}
-{$IMPORTEDDATA ON}
-{$IOCHECKS ON}
-{$LOCALSYMBOLS ON}
-{$LONGSTRINGS ON}
-{$OPENSTRINGS ON}
-{$OPTIMIZATION OFF}
-{$OVERFLOWCHECKS OFF}
-{$RANGECHECKS OFF}
-{$REFERENCEINFO ON}
-{$SAFEDIVIDE OFF}
-{$STACKFRAMES ON}
-{$TYPEDADDRESS OFF}
-{$VARSTRINGCHECKS ON}
-{$WRITEABLECONST OFF}
-{$MINENUMSIZE 1}
-{$IMAGEBASE $400000}
-{$DEFINE DEBUG}
-{$DEFINE UNICODE_CTRLS}
-{$DEFINE pas_only}
-{$DEFINE pas_version}
-{$ENDIF IMPLICITBUILDING}
-{$DESCRIPTION 'MCK for XE5'}
-{$DESIGNONLY}
-{$IMPLICITBUILD ON}
-
-requires
-  rtl,
-  designide,
-  vcl,
-  vclx,
-  xmlrtl;
-
-contains
-  mckCtrlDraw in 'mckCtrlDraw.pas',
-  mckCtrls in 'mckCtrls.pas',
-  mckFileFilterEditor in 'mckFileFilterEditor.pas',
-  mckLVColumnsEditor in 'mckLVColumnsEditor.pas',
-  mckMenuEditor in 'mckMenuEditor.pas',
-  mckObjs in 'mckObjs.pas',
-  mckToolbarEditor in 'mckToolbarEditor.pas',
-  KOL in '..\KOL.pas',
-  KOLadd in '..\KOLadd.pas',
-  MCKAppExpert200x in 'MCKAppExpert200x.pas',
-  mirror in 'mirror.pas',
-  mckAccEditor in 'mckAccEditor.pas',
-  mckActionListEditor in 'mckActionListEditor.pas';
-
-end.

KOL_ASM.inc

@@ -13566,4 +13566,555 @@ asm
     POP  EAX
 end;
 
+procedure Swap(var X, Y: PtrInt);
+asm
+  MOV  ECX, [EDX]
+  XCHG ECX, [EAX]
+  MOV  [EDX], ECX
+end;
+
+function Min( X, Y: Integer ): Integer;   
+asm
+  CMP   EAX, EDX
+  CMOVG EAX, EDX
+end;
+
+function Max( X, Y: Integer ): Integer;
+asm
+  CMP EAX, EDX
+  CMOVL EAX, EDX
+end;
+
+function Sgn( X: Integer ): Integer;
+asm
+  CMP EAX, 0
+  MOV EDX, -1
+  CMOVL EAX, EDX
+  MOV EDX, 1
+  CMOVG EAX, EDX
+end;
+
+function ColorsMix( Color1, Color2: TColor ): TColor;
+asm
+   //PUSH EDX
+   CALL Color2Rgb
+   //POP  EDX
+   XCHG EAX, EDX
+   //PUSH EDX
+   CALL Color2Rgb
+   //POP EDX
+   MOV ECX, $0FEFEFE
+   AND EAX, ECX
+   AND EDX, ECX
+   ADD EAX, EDX
+   ROR EAX, 1
+end;
+
+// This version of code by Galkov: Changes in comparison to Delphi standard:
+//              no Overflow exception if Exponent is very big negative value
+//              (just 0 in result in such case).
+function IntPower(Base: Extended; Exponent: Integer): Extended;
+asm
+        fld1             { Result := 1 }
+        test    eax,eax  // check Exponent for 0, return 0 ** 0 = 1
+        jz      @@3      // (though Mathematics says that this is not so...)
+        fld     Base
+        jg      @@2
+        fdivr   ST,ST(1) { Base := 1 / Base }
+        neg     eax
+        jmp     @@2
+@@1:    fmul    ST,ST    { X := Base * Base }
+@@2:    shr     eax,1
+        jnc     @@1
+        fmul    ST(1),ST { Result := Result * X }
+        jnz     @@1
+        fstp    st       { pop X from FPU stack }
+@@3:    fwait
+end;
+
+function GetBits( N: DWORD; first, last: Byte ): DWord;
+asm
+   XCHG EAX, EDX  // (1) EDX=N, AL=first
+   CMP AL, 31     // first(AL) > 31 ?
+   JBE  @@1       // (2) åñëè äà, òî Result := 0;
+@@0:
+   XOR  EAX, EAX  // (2)
+   RET            // (1)
+@@1:
+   XCHG EAX, ECX  // (1) AL = last CL = first
+   SHR  EDX, CL   // (2) EDX = N shr first
+   SUB  AL,  CL	  // (2) AL = last - first
+   JL @@0         // (2) åñëè last < first òî Result := 0;
+
+   CMP AL, 32     // (2) last - first >= 32 ?
+   XCHG ECX, EAX  // (1) CL = last - first
+   XCHG EAX, EDX  // (1) EAX = N shr first
+   JAE  @@exit    // (2) åñëè last - first > 31, òî Result := EAX;
+   SBB  EDX, EDX  // (2) EDX = -1
+   DEC  EDX       // (1) EDX = 1111...10 = -2
+   SHL  EDX, CL   // (2) EDX = 111...100..0 (ãäå n(0)=last-first+1)
+   NOT  EDX       // (2) EDX = ìàñêà 000..0111...1 (ãäå n(1)=last-first+1)
+   AND  EAX, EDX  // (2)
+@@exit: // EAX = ðåçóëüòàò, (1 áàéò íà êîìàíäó RET)
+end;
+
+function GetBitsL( N: DWORD; from, len: Byte ): DWord;
+asm
+   ADD  CL, DL
+   DEC  CL
+   JMP  GetBits
+end;
+
+function StrCopy(Dest, Source: PAnsiChar): PAnsiChar; assembler;
+asm
+        PUSH    EDI
+        PUSH    ESI
+        MOV     ESI,EAX
+        MOV     EDI,EDX
+        OR      ECX, -1
+        XOR     AL,AL
+        REPNE   SCASB
+        NOT     ECX
+        MOV     EDI,ESI
+        MOV     ESI,EDX
+        MOV     EDX,ECX
+        MOV     EAX,EDI
+        SHR     ECX,2
+        REP     MOVSD
+        MOV     ECX,EDX
+        AND     ECX,3
+        REP     MOVSB
+        POP     ESI
+        POP     EDI
+end;
+
+function StrScan(Str: PAnsiChar; Chr: AnsiChar): PAnsiChar; assembler;
+asm
+        PUSH    EDI
+        PUSH    EAX
+        MOV     EDI,Str
+        OR      ECX, -1
+        XOR     AL,AL
+        REPNE   SCASB
+        NOT     ECX
+        POP     EDI
+        XCHG    EAX, EDX
+        REPNE   SCASB
+
+        XCHG    EAX, EDI
+        POP     EDI
+
+        JE      @@1
+        XOR     EAX, EAX
+        RET
+
+@@1:    DEC     EAX
+end;
+
+function StrRScan(Str: PAnsiChar; Chr: AnsiChar): PAnsiChar; assembler;
+asm
+        PUSH    EDI
+        MOV     EDI,Str
+        MOV     ECX,0FFFFFFFFH
+        XOR     AL,AL
+        REPNE   SCASB
+        NOT     ECX
+        STD
+        DEC     EDI
+        MOV     AL,Chr
+        REPNE   SCASB
+        MOV     EAX,0
+        JNE     @@1
+        MOV     EAX,EDI
+        INC     EAX
+@@1:    CLD
+        POP     EDI
+end;
+
+function StrScanLen(Str: PAnsiChar; Chr: AnsiChar; Len: Integer): PAnsiChar; assembler;
+asm
+        PUSH    EDI
+        XCHG    EDI, EAX
+        XCHG    EAX, EDX
+        REPNE   SCASB
+        XCHG    EAX, EDI
+        POP     EDI
+        { -> EAX => to next character after found or to the end of Str,
+             ZF = 0 if character found. }
+end;
+
+procedure Str2LowerCase( S: PAnsiChar );
+asm
+        XOR      ECX, ECX
+@@1:
+        MOV      CL, byte ptr [EAX]
+        JECXZ    @@exit  {>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
+        SUB      CL, 'A'
+        CMP      CL, 'Z'-'A'
+        JA       @@2
+        ADD      byte ptr [EAX], 32
+@@2:    INC      EAX
+        JMP      @@1
+@@exit:
+end;
+
+function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; assembler;
+asm
+        PUSH    ESI
+        PUSH    EDI
+        MOV     ESI,P1
+        MOV     EDI,P2
+        MOV     EDX,ECX
+        XOR     EAX,EAX
+        AND     EDX,3
+        SHR     ECX,1
+        SHR     ECX,1
+        REPE    CMPSD
+        JNE     @@2
+        MOV     ECX,EDX
+        REPE    CMPSB
+        JNE     @@2
+@@1:    INC     EAX
+@@2:    POP     EDI
+        POP     ESI
+end;
+
+function _WStrLComp(S1, S2: PWideChar; Len: Integer): Integer;
+asm
+        PUSH    EDI
+        PUSH    ESI
+        MOV     EDI,EDX
+        XCHG    ESI,EAX
+        CMP     EAX, EAX
+        REPE    CMPSW
+        MOVZX   EAX, word ptr [ESI-2]
+        MOVZX   EDX, word ptr [EDI-2]
+        SUB     EAX,EDX
+        POP     ESI
+        POP     EDI
+end;
+
+function _AnsiCompareStrA(const S1, S2: PAnsiChar): Integer;
+asm
+  CMP BYTE PTR [IsAnsiInit], $00
+  JNZ @@Start
+@@Upper:
+  PUSH S1
+  PUSH S2
+  CALL InitAnsi
+  POP  S2
+  POP  S1
+@@Start:
+  CALL _AnsiCompareStrA_Fast
+end;
+
+function _AnsiCompareStrNoCaseA(const S1, S2: PAnsiChar): Integer;
+asm
+  CMP BYTE PTR [IsAnsiNoCaseInit], $00
+  JNZ @@Start
+@@Upper:
+  PUSH S1
+  PUSH S2
+  CALL InitAnsiNoCase
+  POP  S2
+  POP  S1
+@@Start:
+  CALL _AnsiCompareStrNoCaseA_Fast
+end;
+
+function WStrLen( W: PWideChar ): Integer;
+asm
+         XCHG     EDI, EAX
+         XCHG     EDX, EAX
+         OR       ECX, -1
+         XOR      EAX, EAX
+         CMP      EAX, EDI
+         JE       @@exit0
+         REPNE    SCASW
+         DEC      EAX
+         DEC      EAX
+         SUB      EAX, ECX
+@@exit0:
+         MOV      EDI, EDX
+end;
+
+function WStrCmp( W1, W2: PWideChar ): Integer;
+asm
+         PUSH     ESI
+         PUSH     EDI
+         XCHG     ESI, EAX
+         MOV      EDI, EDX
+         XOR      EAX, EAX
+@@loop:  LODSW
+         MOVZX    EDX, word ptr [EDI]
+         INC      EDI
+         INC      EDI
+         CMP      EAX, EDX
+         JNE      @@exit
+         TEST     EAX, EAX
+         JNZ      @@loop
+@@exit:  SUB      EAX, EDX
+         POP      EDI
+         POP      ESI
+end;
+
+procedure WStrCopy( Dest, Src: PWideChar );
+asm
+        PUSH    EDI
+        PUSH    ESI
+        MOV     ESI,EAX
+        MOV     EDI,EDX
+        OR      ECX, -1
+        XOR     EAX, EAX
+        REPNE   SCASW
+        NOT     ECX
+        MOV     EDI,ESI
+        MOV     ESI,EDX
+        REP     MOVSW
+        POP     ESI
+        POP     EDI
+end;
+
+function StrIsStartingFromNoCase( Str, Pattern: PAnsiChar ): Boolean;
+asm
+        XOR     ECX, ECX
+      @@1:
+        MOV     CL, [EDX]   // pattern[ i ]
+        INC     EDX
+        MOV     CH, [EAX]   // str[ i ]
+        INC     EAX
+        JECXZ   @@2         // str = pattern; CL = #0, CH = #0
+        CMP     CL, 'a'
+        JB      @@cl_ok
+        CMP     CL, 'z'
+        JA      @@cl_ok
+        SUB     CL, 32
+      @@cl_ok:
+        CMP     CH, 'a'
+        JB      @@ch_ok
+        CMP     CH, 'z'
+        JA      @@ch_ok
+        SUB     CH, 32
+      @@ch_ok:
+        CMP     CL, CH
+        JE      @@1
+      @@2:
+        TEST    CL, CL
+        SETZ    AL
+end;
+
+function StrLCopy(Dest: PAnsiChar; const Source: PAnsiChar; MaxLen: Cardinal): PAnsiChar; assembler;
+asm
+        PUSH    EDI
+        PUSH    ESI
+        PUSH    EBX
+        MOV     ESI,EAX
+        MOV     EDI,EDX
+        MOV     EBX,ECX
+        XOR     AL,AL
+        TEST    ECX,ECX
+        JZ      @@1
+        REPNE   SCASB
+        JNE     @@1
+        INC     ECX
+@@1:    SUB     EBX,ECX
+        MOV     EDI,ESI
+        MOV     ESI,EDX
+        MOV     EDX,EDI
+        MOV     ECX,EBX
+        SHR     ECX,2
+        REP     MOVSD
+        MOV     ECX,EBX
+        AND     ECX,3
+        REP     MOVSB
+        STOSB
+        MOV     EAX,EDX
+        POP     EBX
+        POP     ESI
+        POP     EDI
+end;
+
+function StrComp(const Str1, Str2: PAnsiChar): Integer; assembler; // by Aleksandr Sharahov
+asm
+   sub   edx, eax
+   jnz   @next
+   xor   eax, eax
+   jmp   @ret
+@next:
+   movzx ecx, [eax+edx]
+   cmp   cl, [eax]
+   jne   @stop
+   test  cl, cl
+   jz    @stop
+   movzx ecx, [eax+edx+1]
+   cmp   cl, [eax+1]
+   jne   @stop1
+   test  cl, cl
+   jz    @stop1
+   movzx ecx, [eax+edx+2]
+   cmp   cl, [eax+2]
+   jne   @stop2
+   test  cl, cl
+   jz    @stop2
+   movzx ecx, [eax+edx+3]
+   cmp   cl, [eax+3]
+   jne   @stop3
+   add   eax, 4
+   test  cl, cl
+   jz    @stop4
+   movzx ecx, [eax+edx]
+   cmp   cl, [eax]
+   jne   @stop
+   test  cl, cl
+   jz    @stop
+   movzx ecx, [eax+edx+1]
+   cmp   cl, [eax+1]
+   jne   @stop1
+   test  cl, cl
+   jz    @stop1
+   movzx ecx, [eax+edx+2]
+   cmp   cl, [eax+2]
+   jne   @stop2
+   test  cl, cl
+   jz    @stop2
+   movzx ecx, [eax+edx+3]
+   cmp   cl, [eax+3]
+   jne   @stop3
+   add   eax, 4
+   test  cl, cl
+   jnz   @next
+@stop4:
+   sub   eax, 4
+@stop3:
+   add   eax, 1
+@stop2:
+   add   eax, 1
+@stop1:
+   add   eax, 1
+@stop:
+   movzx eax, [eax]
+   sub   eax, ecx
+@ret:
+end;
+
+function StrComp_NoCase(const Str1, Str2: PAnsiChar): Integer;
+asm
+  CMP BYTE PTR [IsUpperInit], $00     //dufa
+  JNZ @@Start                         //dufa
+
+@@Upper:                              //dufa
+  PUSH Str1                           //dufa
+  PUSH Str2                           //dufa
+  CALL Init_Upper                     //dufa
+  POP  Str2                           //dufa
+  POP  Str1                           //dufa
+
+@@Start:
+  PUSH    EBX                         //dufa
+  PUSH    ESI
+  XCHG    ESI, EAX
+
+@@1:
+  MOVZX   EAX, BYTE PTR [EDX]
+  INC     EDX
+  MOVZX   ECX, BYTE PTR [EAX+Upper]   //dufa
+  //MOV     CL,  BYTE PTR [EAX+Upper] //dufa
+  LODSB
+  //SUB     CL,  BYTE PTR [EAX+Upper] //dufa
+  MOVZX   EBX, BYTE PTR [EAX+Upper]   //dufa
+  SUB     ECX, EBX                    //dufa
+  JNZ     @@fin
+  CMP     AL,  CL
+  JNZ     @@1
+
+@@fin:
+  //MOVSX   EAX, CL                   //dufa
+  MOV     EAX, ECX                    //dufa
+  NEG     EAX
+  POP     ESI
+  POP     EBX                         //dufa
+end;
+
+function StrLComp(const Str1, Str2: PAnsiChar; MaxLen: Cardinal): Integer; assembler; // by SysUtils
+asm
+        PUSH    EDI
+        PUSH    ESI
+        PUSH    EBX
+        MOV     EDI,EDX
+        MOV     ESI,EAX
+        MOV     EBX,ECX
+        XOR     EAX,EAX
+        OR      ECX,ECX
+        JE      @@1
+        REPNE   SCASB
+        SUB     EBX,ECX
+        MOV     ECX,EBX
+        MOV     EDI,EDX
+        XOR     EDX,EDX
+        REPE    CMPSB
+        MOV     AL,[ESI-1]
+        MOV     DL,[EDI-1]
+        SUB     EAX,EDX
+@@1:    POP     EBX
+        POP     ESI
+        POP     EDI
+end;
+
+function StrLComp_NoCase(const Str1, Str2: PAnsiChar; MaxLen: Cardinal): Integer;
+asm
+  CMP BYTE PTR [IsUpperInit], $00 //dufa
+  JNZ @@Start                     //dufa
+
+@@Upper:                          //dufa
+  PUSH Str1                       //dufa
+  PUSH Str2                       //dufa
+  PUSH MaxLen                     //dufa
+  CALL Init_Upper                 //dufa
+  POP  MaxLen                     //dufa
+  POP  Str2                       //dufa
+  POP  Str1                       //dufa
+
+@@Start:
+  PUSH    EDI
+  PUSH    ESI
+  PUSH    EBX
+  MOV     EDI, Str1//EDX          //dufa
+  XCHG    ESI, Str2//EAX          //dufa
+  XOR     EBX, EBX
+  JECXZ   @@fin
+
+@@1:
+  MOVZX   EAX, BYTE PTR [EDI]
+  INC     EDI
+  MOV     BL, BYTE PTR [EAX+Upper]
+  LODSB
+  SUB     BL, BYTE PTR [EAX+Upper]
+  JNZ     @@fin
+  TEST    EAX, EAX
+  JZ      @@fin
+  LOOP    @@1
+
+@@fin:
+  MOVSX   EAX, BL
+  POP     EBX
+  POP     ESI
+  POP     EDI
+end;
+
+function StrLen(const Str: PAnsiChar): Cardinal; assembler;
+asm
+        XCHG    EAX, EDI
+        XCHG    EDX, EAX
+        OR      ECX, -1
+        XOR     EAX, EAX
+        CMP     EAX, EDI
+        JE      @@exit0
+        REPNE   SCASB
+        DEC     EAX
+        DEC     EAX
+        SUB     EAX,ECX
+@@exit0:
+        MOV     EDI,EDX
+end;
+
 //======================================== THE END OF FILE KOL_ASM.inc

KOL_ASM_NOUNICODE.inc

@@ -835,6 +835,7 @@ asm
 @@exit:
 end;
 
+{$IFNDEF PARAMS_DEFAULT}
 function ParamCount: Integer;
 asm
          CALL GetCommandLine
@@ -847,6 +848,51 @@ asm
          XCHG EAX, EDX
 end;
 
+function ParamStr( Idx: Integer ): KOLString;
+asm
+         PUSH EDI
+         MOV  EDI, EDX
+         TEST EAX, EAX
+         JNE  @@1
+         SUB  ESP, 260
+         MOV  ECX, ESP
+         PUSH 260
+         PUSH ECX
+         PUSH 0
+         CALL GetModuleFileName
+         XCHG ECX, EAX
+         MOV  EDX, ESP
+         MOV  EAX, EDI
+         CALL System.@LStrFromPCharLen
+         ADD  ESP, 260
+         JMP  @@exit
+@@1:
+         PUSH EAX
+         CALL GetCommandLine
+         POP  ECX
+         INC  ECX
+@@loop:  CALL SkipSpaces
+         MOV  EDX, EAX
+         CALL SkipParam
+         LOOP @@loop
+         MOV  ECX, EAX
+         SUB  ECX, EDX
+         CMP  ECX, 2
+         JL   @@ready
+         CMP  byte ptr [EDX], '"'
+         JNE  @@ready
+         CMP  byte ptr [EAX-1], '"'
+         JNE  @@ready
+         INC  EDX
+         DEC  EAX
+@@ready: SUB  EAX, EDX
+         XCHG ECX, EAX
+         XCHG EAX, EDI
+         CALL System.@LStrFromPCharLen
+@@exit:  POP  EDI
+end;
+{$ENDIF PARAMS_DEFAULT}
+
 function __DelimiterLast( Str: PAnsiChar; Delimiters: PAnsiChar ): PAnsiChar;
 asm
         PUSH     ESI

mckCtrls.pas

@@ -58,6 +58,7 @@ type
   //============================================================================
   //---- MIRROR FOR A BUTTON ----
   //---- ÇÅÐÊÀËÎ ÄËß ÊÍÎÏÊÈ ----
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLButton = class(TKOLControl)
   private
     FFlat: Boolean;
@@ -126,6 +127,7 @@ type
   //============================================================================
   //---- MIRROR FOR A BIT BUTTON ----
   //---- ÇÅÐÊÀËÎ ÄËß ÐÈÑÎÂÀÍÍÎÉ ÊÍÎÏÊÈ ----
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLBitBtn = class(TKOLControl)
   private
     FOptions: TBitBtnOptions;
@@ -216,6 +218,7 @@ type
   //============================================================================
   //---- MIRROR FOR A LABEL ----
   //---- ÇÅÐÊÀËÎ ÄËß ÌÅÒÊÈ ----
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLLabel = class(TKOLControl)
   private
     FShowAccelChar: Boolean;
@@ -251,6 +254,7 @@ type
   //============================================================================
   //---- MIRROR FOR A LABEL EFFECT ----
   //---- ÇÅÐÊÀËÎ ÄËß ÌÅÒÊÈ Ñ ÝÔÔÅÊÒÀÌÈ ----
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLLabelEffect = class(TKOLLabel)
   private
     FShadowDeep: Integer;
@@ -281,6 +285,7 @@ type
   //============================================================================
   //---- MIRROR FOR A PANEL ----
   //---- ÇÅÐÊÀËÎ ÄËß ÏÀÍÅËÈ ----
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLPanel = class(TKOLControl)
   private
     FEdgeStyle: TEdgeStyle;
@@ -323,6 +328,7 @@ type
   //============================================================================
   //---- MIRROR FOR MDI CLIENT ----
   //---- ÇÅÐÊÀËÎ ÄËß MDI ÊËÈÅÍÒÀ ----
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLMDIClient = class(TKOLControl)
   private
     FTimer: TTimer;
@@ -340,6 +346,7 @@ type
   //===========================================================================
   //---- MIRROR FOR A GRADIENT PANEL
   //---- ÇÅÐÊÀËÎ ÄËß ÃÐÀÄÈÅÍÒÍÎÉ ÏÀÍÅËÈ
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLGradientPanel = class(TKOLControl)
   private
     FColor1: TColor;
@@ -380,6 +387,7 @@ type
   //===========================================================================
   //---- MIRROR FOR A SPLITTER
   //---- ÇÅÐÊÀËÎ ÄËß ÐÀÇÄÅËÈÒÅËß
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLSplitter = class(TKOLControl)
   private
     FMinSizePrev: Integer;
@@ -419,6 +427,7 @@ type
   //===========================================================================
   //---- MIRROR FOR A GROUPBOX
   //---- ÇÅÐÊÀËÎ ÄËß ÃÐÓÏÏÛ
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLGroupBox = class(TKOLControl)
   private
   protected
@@ -456,6 +465,7 @@ type
   //===========================================================================
   //---- MIRROR FOR A CHECKBOX
   //---- ÇÅÐÊÀËÎ ÄËß ÔËÀÆÊÀ
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLCheckBox = class(TKOLControl)
   private
     FChecked: Boolean;
@@ -502,6 +512,7 @@ type
   //===========================================================================
   //---- MIRROR FOR A RADIOBOX
   //---- ÇÅÐÊÀËÎ ÄËß ÐÀÄÈÎ-ÔËÀÆÊÀ
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLRadioBox = class(TKOLControl)
   private
     FChecked: Boolean;
@@ -555,6 +566,7 @@ type
 
   TKOLEditOptions = set of TKOLEditOption;
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLEditBox = class(TKOLControl)
   private
     FOptions: TKOLEditOptions;
@@ -626,6 +638,7 @@ type
 
   TKOLMemoOptions = set of TKOLMemoOption;
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLMemo = class(TKOLControl)
   private
     FOptions: TKOLMemoOptions;
@@ -696,6 +709,7 @@ type
   //---- ÇÅÐÊÀËÎ ÄËß ÐÅÄÀÊÒÎÐÀ
   TKOLRichEditVersion = (ver1, ver3);
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLRichEdit = class(TKOLControl)
   private
     FOptions: TKOLMemoOptions;
@@ -823,6 +837,7 @@ type
 
   TKOLListboxOptions = set of TKOLListboxOption;
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLListBox = class(TKOLControl)
   private
     FOptions: TKOLListboxOptions;
@@ -899,6 +914,7 @@ type
 
   TKOLComboOptions = set of TKOLComboOption;
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLComboBox = class(TKOLControl)
   private
     FOptions: TKOLComboOptions;
@@ -962,6 +978,7 @@ type
   //===========================================================================
   //---- MIRROR FOR A PAINTBOX
   //---- ÇÅÐÊÀËÎ ÄËß ÌÎËÜÁÅÐÒÀ
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLPaintBox = class(TKOLControl)
   private
     fNotAvailable: Boolean;
@@ -987,6 +1004,7 @@ type
   //===========================================================================
   //---- MIRROR FOR A IMAGESHOW
   //---- ÇÅÐÊÀËÎ ÄËß ÊÀÐÒÈÍÊÈ
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLImageShow = class(TKOLControl)
   private
     FCurIndex: Integer;
@@ -1028,6 +1046,7 @@ type
   //===========================================================================
   //---- MIRROR FOR A PROGRESSBAR
   //---- ÇÅÐÊÀËÎ ÄËß ËÈÍÅÉÊÈ ÏÐÎÃÐÅÑÑÀ
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLProgressBar = class(TKOLControl)
   private
     FVertical: Boolean;
@@ -1141,6 +1160,7 @@ type
     property LVColOrder: Integer read FLVColOrder write SetLVColOrder;
   end;
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLListView = class(TKOLControl)
   private
     FOptions: TKOLListViewOptions;
@@ -1276,6 +1296,7 @@ type
 
   TKOLTreeViewOptions = set of TKOLTreeViewOption;
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLTreeView = class(TKOLControl)
   private
     FOptions: TKOLTreeViewOptions;
@@ -1439,6 +1460,7 @@ type
     property action: TKOLAction read Faction write Setaction;
   end;
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLToolbar = class(TKOLControl)
   private
     FOptions: TToolbarOptions;
@@ -1622,6 +1644,7 @@ type
   //===========================================================================
   //---- MIRROR FOR A DATE TIME PICKER
   //---- ÇÅÐÊÀËÎ ÄËß ÂÂÎÄÀ ÄÀÒÛ È ÂÐÅÌÅÍÈ
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLDateTimePicker = class(TKOLControl)
   private
     FOnDTPUserString: KOL.TDTParseInputEvent;
@@ -1656,10 +1679,12 @@ type
   //===========================================================================
   //---- MIRROR FOR A TAB CONTROL
   //---- ÇÅÐÊÀËÎ ÄËß ÒÀÁÓËÈÐÎÂÀÍÍÎÃÎ ÁËÎÊÍÎÒÀ
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLTabPage = class(TKOLPanel)
     function TypeName: string; override;
   end;
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLTabControl = class(TKOLControl)
   private
     FOptions: TTabControlOptions;
@@ -1760,6 +1785,7 @@ type
   //---- ÇÅÐÊÀËÎ ÄËß ÎÊÍÀ ÏÐÎÊÐÓÒÊÈ
   TScrollBars = (ssNone, ssHorz, ssVert, ssBoth);
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLScrollBox = class(TKOLControl)
   private
     FScrollBars: TScrollBars;
@@ -1799,6 +1825,7 @@ type
   //===========================================================================
   //---- MIRROR FOR A SCROLL BAR
   //---- ÇÅÐÊÀËÎ ÄËß ÏÎËÎÑÛ ÏÐÎÊÐÓÒÊÈ
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLScrollBar = class(TKOLControl)
   private
     FSBPageSize: Integer;

mckObjs.pas

@@ -43,6 +43,7 @@ type
   //============================================================================
   //---- MIRROR FOR A TIMER ----
   //---- ÇÅÐÊÀËÎ ÄËß ÒÀÉÌÅÐÀ ----
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLTimer = class(TKOLObj)
   private
     FEnabled: Boolean;
@@ -80,6 +81,7 @@ type
 
   TThreadPriority = (tpNormal, tpBelowNormal, tpLowest, tpIdle, tpAboveNormal, tpHighest, tpCritical);
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLThread = class(TKOLObj)
   private
     FPriorityClass: TPriorityClass;
@@ -119,6 +121,7 @@ type
   //============================================================================
   //---- MIRROR FOR AN IMAGELIST ----
   //---- ÇÅÐÊÀËÎ ÄËß ÑÏÈÑÊÀ ÐÈÑÓÍÊÎÂ ----
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLImageList = class(TKOLObj)
   private
     FImgWidth: Integer;
@@ -183,6 +186,7 @@ type
   //----------------------------------------------------------------------------
   //---- MIRROR FOR OPENSAVE FILE DIALOG ----
   //---- ÇÅÐÊÀËÎ ÄËß ÄÈÀËÎÃÀ ÂÛÁÎÐÀ ÔÀÉËÀ ----
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLOpenSaveDialog = class(TKOLObj)
   private
     FOptions: TOpenSaveOptions;
@@ -232,6 +236,7 @@ type
   //----------------------------------------------------------------------------
   //---- MIRROR FOR OPENDIR DIALOG ----
   //---- ÇÅÐÊÀËÎ ÄËß ÄÈÀËÎÃÀ ÂÛÁÎÐÀ ÄÈÐÅÊÒÎÐÈß ----
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLOpenDirDialog = class(TKOLObj)
   private
     FTitle: string;
@@ -268,6 +273,7 @@ type
   //----------------------------------------------------------------------------
   //---- MIRROR FOR COLOR CHOOSING DIALOG ----
   //---- ÇÅÐÊÀËÎ ÄËß ÄÈÀËÎÃÀ ÂÛÁÎÐÀ ÖÂÅÒÀ ----
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLColorDialog = class(TKOLObj)
   private
     FColorCustomOption: TColorCustomOption;
@@ -302,6 +308,7 @@ type
   //----------------------------------------------------------------------------
   //---- MIRROR FOR FONT CHOOSING DIALOG ----
   //---- ÇÅÐÊÀËÎ ÄËß ÄÈÀËÎÃÀ ÂÛÁÎÐÀ ÖÂÅÒÀ ----
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLFontDialog = class(TKOLObj)
   private
     FMinFontSize: Integer;
@@ -337,6 +344,7 @@ type
   //----------------------------------------------------------------------------
   //---- MIRROR FOR TRAY ICON ----
   //---- ÇÅÐÊÀËÎ ÄËß ÈÊÎÍÊÈ Â ÒÐÅÅ ----
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLTrayIcon = class(TKOLObj)
   private
     FIcon: TIcon;

mirror.pas

@@ -112,6 +112,7 @@ type
   // îäèí ðàç â ïðîåêòå). Îí îòâå÷àåò çà ãåíåðàöèþ êîäà è ñîäåðæèò äîñòóïíûå
   // èç ObjectInspector-à íàñòðîéêè (îáùèå äëÿ âñåãî ïðîåêòà), èñïîëüçóåìûå
   // ïðè ãåíåðàöèè êîäà dpr-ôàéëà.
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLProject = class(TComponent)
   private
     fProjectName: string;
@@ -365,6 +366,7 @@ type
   // Mirror class, corresponding to unnecessary in KOL application taskbar button (variable Applet).
   // Çåðêàëüíûé êëàññ, ñîîòâåòñòâóþùèé íåîáÿçàòåëüíîìó â KOL
   // ïðèëîæåíèþ (îêíó, ïðåäñòàâëÿþùåìó êíîïêó ïðèëîæåíèÿ íà ïàíåëè çàäà÷)
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLApplet = class(TComponent)
   private
     FLastWarnTimeAbtMainForm: Integer;
@@ -499,6 +501,7 @@ type
 
   TKOLFormBorderStyle = (fbsNone, fbsSingle, fbsDialog, fbsToolWindow); {YS}
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLForm = class(TKOLApplet)
   private
     fFormMain: Boolean;
@@ -1349,6 +1352,7 @@ type
     property ownerDraw: Boolean read FownerDraw write SetownerDraw;
   end;
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLMainMenu = class(TKOLMenu)
   private
   public
@@ -1371,6 +1375,7 @@ type
     tpmNoAnimation, {+ecm} tpmReturnCmd {/+ecm});
   TPopupMenuFlags = set of TPopupMenuFlag;
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLPopupMenu = class(TKOLMenu)
   protected
     FOnPopup: TOnEvent;
@@ -2246,6 +2251,7 @@ type
   //============================================================================
   // Special component, intended to use it instead TKOLForm and to implement a
   // unit, which contains MDI child form.
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLMDIChild = class(TKOLForm)
   private
     FParentForm: string;
@@ -2275,6 +2281,7 @@ type
   // unit, which does not contain a form, but non-visual KOL objects only.
   TDataModuleHowToDestroy = (ddAfterRun, ddOnAppletDestroy, ddManually);
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLDataModule = class(TKOLForm)
   private
     FOnCreate: TOnEvent;
@@ -2379,6 +2386,7 @@ type
   // unit, which can contain several visual and non-visual MCK components, which
   // can be adjusted at design time on a standalone designer form, and created
   // on KOL form at run time, like a panel with such controls.
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLFrame = class(TKOLForm)
   private
     FEdgeStyle: TEdgeStyle;
@@ -2512,6 +2520,7 @@ type
     property OnExecute: TOnEvent read FOnExecute write SetOnExecute;
   end;
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLActionList = class(TKOLObj)
   protected
     FActions: TList;