* 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
This commit is contained in:
dkolmck
parent
1735bbe620
commit
aea6c4eb33
187
KOLDEF.inc
187
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 UNICODE_CTRLS}
|
||||
// {$ENDIF}
|
||||
{$DEFINE TMSG_WINDOWS}
|
||||
{$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}
|
||||
{$DEFINE PAS_VERSION}
|
||||
{$ENDIF PAS_ONLY}
|
||||
|
||||
{$IFDEF PUREPASCAL}
|
||||
{$DEFINE PAS_VERSION}
|
||||
{$DEFINE PAS_ONLY}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF INPACKAGE} // use this symbol in packages requiring kol.pas
|
||||
// PAS ONLY FOR PACKAGE COMPILE
|
||||
{$IFDEF INPACKAGE}
|
||||
{$WARNINGS OFF}
|
||||
{$DEFINE PAS_VERSION}
|
||||
{$ENDIF}
|
||||
|
||||
// USE ASM OR PASCAL CODE
|
||||
{$IFDEF PAS_VERSION}
|
||||
{$UNDEF ASM_VERSION}
|
||||
{$UNDEF ASM_UNICODE}
|
||||
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF _D2009orHigher}
|
||||
{$DEFINE UNICODE_CTRLS}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF UNICODE_CTRLS}
|
||||
{$IFDEF _D2009orHigher}
|
||||
{$DEFINE UStr_} // use functions @UStrXXXX instead of @WStrXXXX
|
||||
{$UNDEF ASM_UNICODE}
|
||||
{$UNDEF ASM_TLIST}
|
||||
{$ELSE}
|
||||
{$DEFINE ASM_VERSION}
|
||||
// asm without unicode
|
||||
{$IFNDEF UNICODE_CTRLS}
|
||||
{$DEFINE ASM_UNICODE}
|
||||
{$ELSE}
|
||||
{$UNDEF ASM_UNICODE}
|
||||
{$ENDIF}
|
||||
// asm TList
|
||||
{$DEFINE ASM_TLIST}
|
||||
{$IFDEF TLIST_FAST}
|
||||
{$UNDEF ASM_TLIST}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{$DEFINE KOL3XX}
|
||||
|
||||
@ -1,57 +1,56 @@
|
||||
package KOLMCKXE7;
|
||||
|
||||
{$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 'KOLMCKXE7'}
|
||||
{$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.
|
||||
package KOLMCK10_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 'KOLMCK10_2'}
|
||||
{$ENDIF IMPLICITBUILDING}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
{$DEFINE INPACKAGE}
|
||||
{$DEFINE UNICODE_CTRLS}
|
||||
{$DEFINE PAS_VERSION}
|
||||
|
||||
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.
|
||||
BIN
KOLMCK2006.res
BIN
KOLMCK2006.res
Binary file not shown.
@ -26,7 +26,7 @@ package KOLMCK2009;
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
{$DEFINE INPACKAGE}
|
||||
//{$DEFINE UNICODE_CTRLS}
|
||||
{$DEFINE UNICODE_CTRLS}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
|
||||
@ -26,6 +26,7 @@ package KOLMCK2010;
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
{$DEFINE INPACKAGE}
|
||||
{$DEFINE UNICODE_CTRLS}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
|
||||
14
KOLMCK7.dpk
14
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.
|
||||
|
||||
@ -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.
|
||||
@ -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.
|
||||
@ -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.
|
||||
@ -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.
|
||||
BIN
KOLMCKXE7.res
BIN
KOLMCKXE7.res
Binary file not shown.
551
KOL_ASM.inc
551
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
|
||||
|
||||
@ -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
|
||||
|
||||
27
mckCtrls.pas
27
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;
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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;
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user