pascal/kolmck
pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
dkolmck 2009-09-09 06:25:14 +00:00
parent cf9e269cdb
commit 51293e2760
16 changed files with 2417 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
KOL.pas
View File

@ -75,8 +75,6 @@
{$DEFINE WIN_GDI}
{$ENDIF GDI} {$ENDIF WIN}
{$INCLUDE delphidef.inc}
{$IFDEF WIN_GDI}
//test
{$ENDIF WIN_GDI}

47
KOLDEF.INC
View File

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

233
KOLDEF.inc Normal file
View File

@ -0,0 +1,233 @@
{$IFDEF VER90}
{$DEFINE _D2}
{$DEFINE _D2orD3}
{$DEFINE _D2orD3orD4}
{$ENDIF}
{$IFDEF VER100}
{$DEFINE _D3}
{$DEFINE _D3orHigher}
{$DEFINE _D2orD3}
{$DEFINE _D2orD3orD4}
{$DEFINE _D3orD4}
{$ENDIF}
{$IFDEF VER120}
{$DEFINE _D3orHigher}
{$DEFINE _D3orD4}
{$DEFINE _D4}
{$DEFINE _D4orHigher}
{$DEFINE _D2orD3orD4}
{$ENDIF}
{$IFDEF VER130}
{$DEFINE _D3orHigher}
{$DEFINE _D4orHigher}
{$DEFINE _D5}
{$DEFINE _D5orHigher}
{$ENDIF}
{$IFDEF VER140}
{$DEFINE _D3orHigher}
{$DEFINE _D4orHigher}
{$DEFINE _D5orHigher}
{$DEFINE _D6}
{$DEFINE _D6orHigher}
{$ENDIF}
{$IFDEF VER150}
{$DEFINE _D3orHigher}
{$DEFINE _D4orHigher}
{$DEFINE _D5orHigher}
{$DEFINE _D6orHigher}
{$DEFINE _D7}
{$DEFINE _D7orHigher}
{$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
Delphi version 8 not supported! (delphi 8 is .net only)
{$ENDIF}
{$IFDEF VER170} // Delphi 2005
{$DEFINE _D3orHigher}
{$DEFINE _D4orHigher}
{$DEFINE _D5orHigher}
{$DEFINE _D6orHigher}
{$DEFINE _D7}
{$DEFINE _D7orHigher}
{$DEFINE _D2005orHigher}
{$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
{$DEFINE _D3orHigher}
{$DEFINE _D4orHigher}
{$DEFINE _D5orHigher}
{$DEFINE _D6orHigher}
{$DEFINE _D7}
{$DEFINE _D7orHigher}
{$DEFINE _D2005orHigher}
{$DEFINE _D2006orHigher}
{$WARN UNIT_DEPRECATED OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CAST OFF}
{$WARN UNSAFE_CODE OFF}
{$ENDIF}
{$IFDEF _D2005orHigher}
// by Thaddy de Koning:
{$IFDEF VER185} // Delphi 2007 ( and Highlander )
{$DEFINE _D3orHigher}
{$DEFINE _D4orHigher}
{$DEFINE _D5orHigher}
{$DEFINE _D6orHigher}
{$DEFINE _D7}
{$DEFINE _D7orHigher}
{$DEFINE _D2005orHigher}
{$DEFINE _D2006orHigher}
{$DEFINE _D2007orHigher}
{$WARN UNIT_DEPRECATED OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CAST OFF}
{$WARN UNSAFE_CODE OFF}
{$ENDIF}
{$INLINE OFF}
{$ENDIF}
{$IFDEF VER200} // Delphi 2009
{$DEFINE _D3orHigher}
{$DEFINE _D4orHigher}
{$DEFINE _D5orHigher}
{$DEFINE _D6orHigher}
{$DEFINE _D7}
{$DEFINE _D7orHigher}
{$DEFINE _D2005orHigher}
{$DEFINE _D2006orHigher}
{$DEFINE _D2007orHigher}
{$DEFINE _D2009orHigher}
{$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
{$DEFINE _D3orHigher}
{$DEFINE _D4orHigher}
{$DEFINE _D5orHigher}
{$DEFINE _D6orHigher}
{$DEFINE _D7}
{$DEFINE _D7orHigher}
{$DEFINE _D2005orHigher}
{$DEFINE _D2006orHigher}
{$DEFINE _D2007orHigher}
{$DEFINE _D2009orHigher}
{$DEFINE _D2010orHigher}
{$WARN UNIT_DEPRECATED OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CAST OFF}
{$WARN UNSAFE_CODE OFF}
{$ENDIF}
// TODO: check DLL project
{$IFNDEF NO_STRIP_RELOC}
// by Thaddy de Koning:
{$IFDEF _D2006orHigher}
// strips relocs, like stripreloc.exe does
{$SetPEFlags 1}
// {$SETPEFlAGS IMAGE_FILE_RELOCS_STRIPPED or IMAGE_FILE_DEBUG_STRIPPED or IMAGE_FILE_LINE_NUMS_STRIPPED or IMAGE_FILE_LOCAL_SYMS_STRIPPED or IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP or IMAGE_FILE_NET_RUN_FROM_SWAP}
{$ENDIF}
{$ENDIF}
{$IFDEF FPC}
{------------------------------------
by Thaddy de Koning:
FPC version 2.1.1 is very compatible with Delphi and kol now.
You can simply use the $(DELPHI)\source\rtl\win\*.pas files from Delphi 4/5 instead of the prepared files that were needed for
FPC1.X
That is all to have full compatibility.
------------------------------------}
{$DEFINE PAS_VERSION}
{$IFDEF VER2}
{$DEFINE _D3orHigher}
{$DEFINE _D4orHigher}
{$DEFINE _D5orHigher}
{$DEFINE _D6orHigher}
{$DEFINE _D7}
{$DEFINE _D7orHigher}
{$ENDIF}
{$ENDIF}
{$IFNDEF _NOT_KOLCtrlWrapper_}
{$DEFINE _KOLCtrlWrapper_}
{$ENDIF}
{$IFNDEF _NOT_KOLCtrlWrapper_}
{$DEFINE _KOLCtrlWrapper_}
{$ENDIF}
//// from delphidef.inc ////
//{$DEFINE _FPC}
{$DEFINE ASM_VERSION} // Comment this line to produce Pascal code.
// Or, just add PAS_VERSION to conditionals
// of your project (must be rebuilt).
{$IFDEF ASM_VERSION}
{$IFDEF PAS_VERSION}
{$UNDEF ASM_VERSION}
// To compile a project with ASM_VERSION option turned off,
// define a symbol PAS_VERSION in project options.
{$ENDIF}
{$ENDIF}
//{$DEFINE USE_CONSTRUCTORS}
// Comment this line to produce smaller code if constructors are not used.
// When uncommented, this definition allows to create descendant controls
// and objects overriding constructors, which are actually members of objects.
// Otherwise, global functions (usually named New<ObjectName>) are used to
// create and initialize object instances. This gives smaller code, but
// prevents from using OOP inheritance.
// Note: creating descendant objects derived from TObj does not require using
// of this option. It is actually needed only for deriving new controls on
// base of TControl. See also option USE_CUSTOMEXTENSIONS below.
//{$DEFINE USE_CUSTOMEXTENSIONS}
// Uncomment this option or add it to your project conditional defines,
// if You wish to extend existing TControl object from
// the inner of those. When this option is turned on, include directive at the
// tail of TControl declaration is enabled, causing a compiler to include your
// portion of source directly into the TControl body. See comments near this
// directive there. (Search the word: USE_CUSTOMEXTENSIONS).
// Please note, that this option is not fully supported now.
//{$IFNDEF NOT_UNLOAD_RICHEDITLIB}
// {$DEFINE UNLOAD_RICHEDITLIB}
//{$ENDIF}
// You can freely comment this directive. 1st, if the application does not
// use richedit control. 2nd, even if it does, freeing the library handle
// actually is not needed.
// Another way to turn this option off is to define symbol NOT_UNLOAD_RICHEDITLIB
// in your project options.
//{$DEFINE TEST_VERSION}
{$IFNDEF _D6orHigher}
{$DEFINE PARANOIA} //seems not needed under D6 !!! Inprise fixed this, finally...
{$ENDIF}

1283
KOLDirDlgEx.pas Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
KOLMCK.res Normal file
View File

Binary file not shown.

53
KOLMCK_D2006.dpk Normal file
View File

@ -0,0 +1,53 @@
package KOLMCK_D2006;
{$R KOLMCK.res}
{$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 $400000}
{$DESCRIPTION '_KOL_ mirror controls for Delphi 2006'}
{$DESIGNONLY}
{$IMPLICITBUILD OFF}
{$DEFINE INPACKAGE}
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.

425
KOLMCK_D2006.dsk Normal file
View File

@ -0,0 +1,425 @@
[Closed Files]
File_0=TSourceModule,'D:\My_Documents\Projects\Delphi\Components\By_Dufa\VB.pas',0,1,1559,1,1595,0,0,,
File_1=TSourceModule,'d:\portable\turbodelphi\source\Win32\rtl\win\Windows.pas',0,1,4444,1,4468,0,0,,
File_2=TSourceModule,'D:\My_Documents\Projects\Delphi\Components\By_Dufa\advApiHook.pas',0,1,481,76,505,0,0,,
File_3=TSourceModule,'D:\My_Documents\Projects\Delphi\other\PCAsm\PCAsmUnit.pas',0,1,3748,14,3797,0,0,,
File_4=TSourceModule,'d:\My_Documents\Projects\Delphi\Components\kolmck\Addons\err.pas',0,1,1002,1,40,0,0,,
File_5=TSourceModule,'d:\My_Documents\Projects\Delphi\Components\kolmck\KOL.pas',0,1,677,1,698,0,0,,
File_6=TSourceModule,'d:\My_Documents\Projects\Delphi\Components\kolmck\KOL_ansi.inc',0,1,2226,1,2263,0,0,,
File_7=TSourceModule,'d:\My_Documents\Projects\Delphi\Components\kolmck\KOLadd.pas',0,1,1275,1,1283,0,0,,
File_8=TSourceModule,'G:\Src\Work\FakeAV\uAPI.pas',0,1,547,1,566,0,0,,
File_9=TSourceModule,'G:\Src\Work\FakeAV\unit1.pas',0,1,1,1,9,0,0,,
[Modules]
Module0=D:\My_Documents\Projects\Delphi\Components\kolmck\KOLMCK_D2006.bdsproj
Count=1
EditWindowCount=1
[D:\My_Documents\Projects\Delphi\Components\kolmck\KOLMCK_D2006.bdsproj]
ModuleType=TBaseProject
[EditWindow0]
ViewCount=1
CurrentEditView=D:\My_Documents\Projects\Delphi\Components\kolmck\KOLMCK_D2006.dpk
View0=0
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=10000
Height=9266
MaxLeft=-1
MaxTop=-1
ClientWidth=10000
ClientHeight=9266
DockedToMainForm=1
MessageView=MessageView@EditWindow0
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=1602
LeftPanelClients=StructureView,DockSite1
LeftPanelData=000008000101000000001B1C0000000000000142060000000000000100000000C50D00001100000053747275637475726556696577466F726D01000000002223000009000000446F636B5369746531FFFFFFFF
RightPanelSize=0
BottomPanelSize=0
BottomPanelClients=DockSite2,DockSite0
BottomPanelData=0000080001020200000009000000446F636B536974653209000000446F636B5369746530D430000000000000026D040000000000000100000000D430000009000000446F636B5369746530FFFFFFFF
BottomMiddlePanelSize=0
TabDockRightClients=ToolForm=0,ProjectManager=1
[View0]
CustomEditViewType=TEditView
Module=D:\My_Documents\Projects\Delphi\Components\kolmck\KOLMCK_D2006.dpk
CursorX=1
CursorY=25
TopLine=1
LeftCol=1
Elisions=
Bookmarks=
EditViewName=D:\My_Documents\Projects\Delphi\Components\kolmck\KOLMCK_D2006.dpk
[Watches]
Count=0
[WatchWindow]
WatchColumnWidth=120
WatchShowColumnHeaders=1
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3766
Height=453
MaxLeft=-1
MaxTop=-1
ClientWidth=3766
ClientHeight=453
TBDockHeight=201
LRDockWidth=13602
Dockable=1
StayOnTop=0
[Breakpoints]
Count=0
[AddressBreakpoints]
Count=0
[Main Window]
PercentageSizes=1
Create=1
Visible=1
Docked=0
State=2
Left=8
Top=0
Width=9992
Height=10010
MaxLeft=-8
MaxTop=-10
MaxWidth=10062
MaxHeight=10080
ClientWidth=10000
ClientHeight=9789
BottomPanelSize=8994
BottomPanelClients=EditWindow0
BottomPanelData=0000080000000000000000000000000000000000000000000000000100000000000000000C0000004564697457696E646F775F30FFFFFFFF
[ProjectManager]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=4
Top=20
Width=3156
Height=9054
MaxLeft=-1
MaxTop=-1
ClientWidth=3156
ClientHeight=9054
TBDockHeight=5905
LRDockWidth=3156
Dockable=1
StayOnTop=0
[ToolForm]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=0
Top=0
Width=2258
Height=6680
MaxLeft=-1
MaxTop=-1
ClientWidth=2258
ClientHeight=6680
TBDockHeight=6680
LRDockWidth=2258
Dockable=1
StayOnTop=0
[DebugLogView]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3766
Height=453
MaxLeft=-1
MaxTop=-1
ClientWidth=3766
ClientHeight=453
TBDockHeight=412
LRDockWidth=4953
Dockable=1
StayOnTop=0
[ThreadStatusWindow]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3766
Height=453
MaxLeft=-1
MaxTop=-1
ClientWidth=3766
ClientHeight=453
TBDockHeight=201
LRDockWidth=7414
Dockable=1
StayOnTop=0
Column0Width=145
Column1Width=100
Column2Width=115
Column3Width=250
[LocalVarsWindow]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3766
Height=453
MaxLeft=-1
MaxTop=-1
ClientWidth=3766
ClientHeight=453
TBDockHeight=262
LRDockWidth=3484
Dockable=1
StayOnTop=0
[CallStackWindow]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3766
Height=453
MaxLeft=-1
MaxTop=-1
ClientWidth=3766
ClientHeight=453
TBDockHeight=2072
LRDockWidth=3484
Dockable=1
StayOnTop=0
[TemplateView]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-200
Top=-270
Width=273
Height=362
MaxLeft=-1
MaxTop=-1
ClientWidth=273
ClientHeight=362
TBDockHeight=362
LRDockWidth=273
Dockable=1
StayOnTop=0
Name=120
Description=334
filter=1
[PropertyInspector]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=1539
Height=5302
MaxLeft=-1
MaxTop=-1
ClientWidth=1539
ClientHeight=5302
TBDockHeight=412
LRDockWidth=1906
Dockable=1
StayOnTop=0
SplitPos=100
[BreakpointWindow]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=0
Width=3766
Height=453
MaxLeft=-1
MaxTop=-1
ClientWidth=3766
ClientHeight=453
TBDockHeight=1549
LRDockWidth=8742
Dockable=1
StayOnTop=0
Column0Width=100
Column1Width=75
Column2Width=200
Column3Width=200
Column4Width=75
Column5Width=75
[StructureView]
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=23
Width=1602
Height=3360
MaxLeft=-1
MaxTop=-1
ClientWidth=1602
ClientHeight=3360
TBDockHeight=3672
LRDockWidth=1602
Dockable=1
StayOnTop=0
[MessageView@EditWindow0]
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=0
Top=0
Width=9938
Height=835
MaxLeft=-1
MaxTop=-1
ClientWidth=9938
ClientHeight=835
TBDockHeight=2233
LRDockWidth=4328
Dockable=1
StayOnTop=0
[BorlandEditorCodeExplorer@EditWindow0]
PercentageSizes=1
Create=1
Visible=0
Docked=0
State=0
Left=0
Top=0
Width=1461
Height=4588
MaxLeft=-8
MaxTop=-10
ClientWidth=1398
ClientHeight=4306
TBDockHeight=4588
LRDockWidth=1461
Dockable=1
StayOnTop=0
[DockHosts]
DockHostCount=3
[DockSite0]
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=0
Top=23
Width=10000
Height=936
MaxLeft=-1
MaxTop=-1
ClientWidth=10000
ClientHeight=936
TBDockHeight=936
LRDockWidth=3508
Dockable=1
StayOnTop=0
TabPosition=1
TabDockClients=MessageView@EditWindow0
[DockSite1]
DockSiteType=1
PercentageSizes=1
Create=1
Visible=1
Docked=1
State=0
Left=0
Top=384
Width=1602
Height=5402
MaxLeft=-1
MaxTop=-1
ClientWidth=1602
ClientHeight=5402
TBDockHeight=1670
LRDockWidth=1602
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=TemplateView
TabDockClients=TemplateView,PropertyInspector
[DockSite2]
DockSiteType=1
PercentageSizes=1
Create=1
Visible=0
Docked=1
State=0
Left=-196
Top=-723
Width=3828
Height=805
MaxLeft=-1
MaxTop=-1
ClientWidth=3828
ClientHeight=805
TBDockHeight=805
LRDockWidth=3828
Dockable=1
StayOnTop=0
TabPosition=1
ActiveTabID=WatchWindow
TabDockClients=BreakpointWindow,ThreadStatusWindow,DebugLogView,LocalVarsWindow,CallStackWindow,WatchWindow

53
KOLMCK_D2007.dpk Normal file
View File

@ -0,0 +1,53 @@
package KOLMCK_D2007;
{$R KOLMCK.res}
{$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 $400000}
{$DESCRIPTION '_KOL_ mirror controls for Delphi 2007'}
{$DESIGNONLY}
{$IMPLICITBUILD OFF}
{$DEFINE INPACKAGE}
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.

53
KOLMCK_D2009.dpk Normal file
View File

@ -0,0 +1,53 @@
package KOLMCK_D2009;
{$R KOLMCK.res}
{$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 $25800000}
{$DESCRIPTION '_KOL_ mirror controls for Delphi 2009'}
{$DESIGNONLY}
{$IMPLICITBUILD OFF}
{$DEFINE INPACKAGE}
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.

53
KOLMCK_D2010.dpk Normal file
View File

@ -0,0 +1,53 @@
package KOLMCK_D2010;
{$R KOLMCK.res}
{$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 $400000}
{$DESCRIPTION '_KOL_ mirror controls for Delphi 2010'}
{$DESIGNONLY}
{$IMPLICITBUILD OFF}
{$DEFINE INPACKAGE}
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.

47
KOLMCK_D3.dpk Normal file
View File

@ -0,0 +1,47 @@
package KOLMCK_D3;
{$R KOLMCK.res}
{$ALIGN ON}
{$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 ON}
{$MINENUMSIZE 1}
{$IMAGEBASE $00400000}
{$DESCRIPTION '_KOL_ mirror controls for Delphi 3'}
{$DESIGNONLY}
{$IMPLICITBUILD ON}
requires
vcl30,
vclx30;
contains
mirror,
KOL,
mckCtrls,
mckObjs,
mckCtrlDraw,
mckActionListEditor,
mckLVColumnsEditor,
mckToolbarEditor,
mckAccEditor,
mckMenuEditor,
mckFileFilterEditor,
KOLadd in 'KOLadd.pas';
end.

50
KOLMCK_D4.dpk Normal file
View File

@ -0,0 +1,50 @@
package KOLMCK_D4;
{$R KOLMCK.res}
{$ALIGN ON}
{$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 ON}
{$MINENUMSIZE 1}
{$IMAGEBASE $00400000}
{$DESCRIPTION '_KOL_ mirror controls for Delphi 4'}
{$DESIGNONLY}
{$IMPLICITBUILD ON}
{$DEFINE INPACKAGE}
{$DEFINE _NOT_Use_KOLCtrlWrapper}
requires
vcl40,
Vclx40;
contains
mirror in 'mirror.pas',
mckObjs in 'mckObjs.pas',
mckCtrls in 'mckCtrls.pas',
KOL in 'KOL.pas',
mckAccEditorD4 in 'mckAccEditorD4.pas',
mckCtrlDraw in 'mckCtrlDraw.pas',
mckActionListEditor in 'mckActionListEditor.pas',
mckMenuEditor in 'mckMenuEditor.pas',
mckAccEditor in 'mckAccEditor.pas',
mckToolbarEditor in 'mckToolbarEditor.pas',
mckLVColumnsEditor in 'mckLVColumnsEditor.pas',
mckFileFilterEditor in 'mckFileFilterEditor.pas',
KOLadd in 'KOLadd.pas';
end.

49
KOLMCK_D5.dpk Normal file
View File

@ -0,0 +1,49 @@
package KOLMCK_D5;
{$R KOLMCK.res}
{$ALIGN ON}
{$ASSERTIONS OFF}
{$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 ON}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION '_KOL_ mirror controls for Delphi 5'}
{$DESIGNONLY}
{$IMPLICITBUILD ON}
{$DEFINE INPACKAGE}
{$DEFINE _NOT_KOLCtrlWrapper}
requires
vcl50,
Vclx50;
contains
mirror in 'mirror.pas',
KOL in 'KOL.pas',
mckCtrls in 'mckCtrls.pas',
mckObjs in 'mckObjs.pas',
mckAccEditor in 'mckAccEditor.pas' {KOLAccEdit},
mckMenuEditor in 'mckMenuEditor.pas',
mckFileFilterEditor in 'mckFileFilterEditor.pas' {fmFileFilterEditor},
mckToolbarEditor in 'mckToolbarEditor.pas' {fmToolbarEditor},
mckLVColumnsEditor in 'mckLVColumnsEditor.pas' {fmLVColumnsEditor},
mckCtrlDraw in 'mckCtrlDraw.pas',
mckActionListEditor in 'mckActionListEditor.pas',
KOLadd in 'KOLadd.pas';
end.

52
KOLMCK_D7.dpk Normal file
View File

@ -0,0 +1,52 @@
package KOLMCK_D7;
{$R KOLMCK.res}
{$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 $400000}
{$DESCRIPTION '_KOL_ mirror controls for Delphi 7'}
{$DESIGNONLY}
{$IMPLICITBUILD ON}
{$DEFINE INPACKAGE}
requires
rtl,
vcl,
designide,
vclactnband,
vclx;
contains
mirror in 'mirror.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',
mckActionListEditor in 'mckActionListEditor.pas',
KOLadd in 'KOLadd.pas',
MCKAppExpert200x in 'MCKAppExpert200x.pas';
end.

14
KOLadd.pas
View File

@ -28,21 +28,25 @@ Version indicated above is a version of KOL, having place when KOLadd.pas was
modified last time, this is not a version of KOLadd itself.
}
//[UNIT DEFINES]
{$I KOLDEF.inc}
{$IFDEF EXTERNAL_KOLDEFS}
{$INCLUDE PROJECT_KOL_DEFS.INC}
{$ENDIF}
{$IFDEF EXTERNAL_DEFINES}
{$INCLUDE EXTERNAL_DEFINES.INC}
{$ENDIF EXTERNAL_DEFINES}
unit KOLadd;
{
Define symbol TREE_NONAME to disallow using Name in TTree object.
Define symbol TREE_WIDE to use WideString for Name in TTree object.
}
{$IFDEF EXTERNAL_DEFINES}
{$INCLUDE EXTERNAL_DEFINES.INC}
{$ENDIF EXTERNAL_DEFINES}
interface
{$I KOLDEF.INC}
{$INCLUDE delphidef.inc}
uses Windows, Messages, KOL;

10
whatsnew.txt
View File

@ -1,3 +1,13 @@
-------------------------------------------------------------------
09.09.09 %)
-------------------------------------------------------------------
* íà÷àëñÿ ãëîáàëüíûé ðåôàêòîðèíã:
* delphidef.inc îáúåäèíåí ñ KOLDEF.INC
* UNLOAD_RICHEDITLIB - ïî-óìîë÷àíèþ âûêëþ÷åíà
* MIRROR*.dpk -> KOLMCK_D%VER%.dpk
* óäàëåíû mirro*.res, îñòàâëåí îäèí KOLMCK.res
-------------------------------------------------------------------
30.08.09
-------------------------------------------------------------------