git-svn-id: https://svn.code.sf.net/p/kolmck/code@10 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
dkolmck
278
Addons/CplxMath.pas
Normal file
278
Addons/CplxMath.pas
Normal file
@@ -0,0 +1,278 @@
|
|||||||
|
unit CplxMath;
|
||||||
|
{* This unit contains functins for working with complex numbers. To use with
|
||||||
|
KOL library and its kolmath.pas unit instead of standard math.pas, define
|
||||||
|
synmbol KOL in project options, or uncomment its definition below. }
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
//{$DEFINE KOL}
|
||||||
|
|
||||||
|
{$IFNDEF KOL}
|
||||||
|
{$IFDEF KOL_MCK}
|
||||||
|
{$DEFINE KOL}
|
||||||
|
{$ENDIF}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
uses {$IFDEF KOL} kolmath, kol {$ELSE} math, sysutils {$ENDIF};
|
||||||
|
|
||||||
|
type
|
||||||
|
{$IFDEF CPLX_EXTENDED}
|
||||||
|
Double = Extended;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
Complex = record Re, Im: double end;
|
||||||
|
{* }
|
||||||
|
|
||||||
|
function CfromReIm( Re, Im: Double ): Complex;
|
||||||
|
{* Re + i * Im }
|
||||||
|
|
||||||
|
function Cadd( const X, Y: Complex ): Complex;
|
||||||
|
{* X + Y }
|
||||||
|
|
||||||
|
function Cneg( const X: Complex ): Complex;
|
||||||
|
{* -X }
|
||||||
|
|
||||||
|
function Csub( const X, Y: Complex ): Complex;
|
||||||
|
{* X - Y }
|
||||||
|
|
||||||
|
function Cmul( const X, Y: Complex ): Complex;
|
||||||
|
{* X * Y }
|
||||||
|
|
||||||
|
function CmulD( const X: Complex; D: Double ): Complex;
|
||||||
|
{* X * D }
|
||||||
|
|
||||||
|
function CmulI( const X: Complex ): Complex;
|
||||||
|
{* i * X }
|
||||||
|
|
||||||
|
function Cdiv( const X, Y: Complex ): Complex;
|
||||||
|
{* X / Y }
|
||||||
|
|
||||||
|
function Cmod( const X: Complex ): Double;
|
||||||
|
{* Q( X.Re^2 + X.Im^2 ) }
|
||||||
|
|
||||||
|
function Carg( const X: Complex ): Double;
|
||||||
|
{* arctg( X.Im / X.Re ) }
|
||||||
|
|
||||||
|
function CfromModArg( R, Arg: Double ): Complex;
|
||||||
|
{* R * ( cos Arg + i * sin Arg ) }
|
||||||
|
|
||||||
|
function Cpow( const X: Complex; Pow: Double ): Complex;
|
||||||
|
{* X ^ Pow }
|
||||||
|
|
||||||
|
function Cpower( const X, Pow: Complex ): Complex;
|
||||||
|
{* X ^ Pow }
|
||||||
|
|
||||||
|
function CIntPower( const X: Complex; Pow: Integer ): Complex;
|
||||||
|
{* X ^ Pow}
|
||||||
|
|
||||||
|
function Csqrt( const X: Complex ): Complex;
|
||||||
|
{* Q( X ) }
|
||||||
|
|
||||||
|
function Cexp( const X: Complex ): Complex;
|
||||||
|
{* exp( X ) }
|
||||||
|
|
||||||
|
function Cln( const X: Complex ): Complex;
|
||||||
|
{* ln( X ) }
|
||||||
|
|
||||||
|
function Ccos( const X: Complex ): Complex;
|
||||||
|
{* cos( X ) }
|
||||||
|
|
||||||
|
function Csin( const X: Complex ): Complex;
|
||||||
|
{* sin( X ) }
|
||||||
|
|
||||||
|
function C2Str( const X: Complex ): String;
|
||||||
|
{* }
|
||||||
|
|
||||||
|
function C2StrEx( const X: Complex ): String;
|
||||||
|
{* experimental }
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
function CfromReIm( Re, Im: Double ): Complex;
|
||||||
|
begin
|
||||||
|
Result.Re := Re;
|
||||||
|
Result.Im := Im;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Cadd( const X, Y: Complex ): Complex;
|
||||||
|
begin
|
||||||
|
Result.Re := X.Re + Y.Re;
|
||||||
|
Result.Im := X.Im + Y.Im;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Cneg( const X: Complex ): Complex;
|
||||||
|
begin
|
||||||
|
Result.Re := -X.Re;
|
||||||
|
Result.Im := -X.Im;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Csub( const X, Y: Complex ): Complex;
|
||||||
|
begin
|
||||||
|
Result := Cadd( X, Cneg( Y ) );
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Cmul( const X, Y: Complex ): Complex;
|
||||||
|
begin
|
||||||
|
Result.Re := X.Re * Y.Re - X.Im * Y.Im;
|
||||||
|
Result.Im := X.Re * Y.Im + X.Im * Y.Re;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function CmulD( const X: Complex; D: Double ): Complex;
|
||||||
|
begin
|
||||||
|
Result.Re := X.Re * D;
|
||||||
|
Result.Im := X.Im * D;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function CmulI( const X: Complex ): Complex;
|
||||||
|
begin
|
||||||
|
Result.Re := -X.Im;
|
||||||
|
Result.Im := X.Re;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Cdiv( const X, Y: Complex ): Complex;
|
||||||
|
var Z: Double;
|
||||||
|
begin
|
||||||
|
Z := 1.0 / ( Y.Re * Y.Re + Y.Im * Y.Im );
|
||||||
|
Result.Re := (X.Re * Y.Re + X.Im * Y.Im ) * Z;
|
||||||
|
Result.Im := (X.Im * Y.Re - X.Re * Y.Im ) * Z;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Cmod( const X: Complex ): Double;
|
||||||
|
begin
|
||||||
|
Result := sqrt( X.Re * X.Re + X.Im * X.Im );
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Carg( const X: Complex ): Double;
|
||||||
|
begin
|
||||||
|
Result := ArcTan2( X.Im, X.Re );
|
||||||
|
end;
|
||||||
|
|
||||||
|
function CfromModArg( R, Arg: Double ): Complex;
|
||||||
|
begin
|
||||||
|
Result.Re := R * cos( Arg );
|
||||||
|
Result.Im := R * sin( Arg );
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Cpow( const X: Complex; Pow: Double ): Complex;
|
||||||
|
var R, A: Double;
|
||||||
|
begin
|
||||||
|
R := power( Cmod( X ), Pow );
|
||||||
|
A := Pow * Carg( X );
|
||||||
|
Result := CfromModArg( R, A );
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Cpower( const X, Pow: Complex ): Complex;
|
||||||
|
begin
|
||||||
|
Result := Cexp( Cmul( X, Cln( Pow ) ) );
|
||||||
|
end;
|
||||||
|
|
||||||
|
function CIntPower( const X: Complex; Pow: Integer ): Complex;
|
||||||
|
begin
|
||||||
|
if (Pow < 0) or (Pow > 100) then Result := Cpow( X, Pow )
|
||||||
|
else if Pow = 0 then
|
||||||
|
begin
|
||||||
|
Result.Re := 1;
|
||||||
|
Result.Im := 0;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Result := X;
|
||||||
|
while Pow > 1 do
|
||||||
|
begin
|
||||||
|
Result := Cmul( Result, X );
|
||||||
|
dec( Pow );
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Csqrt( const X: Complex ): Complex;
|
||||||
|
begin
|
||||||
|
Result := Cpow( X, 0.5 );
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Cexp( const X: Complex ): Complex;
|
||||||
|
var Z: Double;
|
||||||
|
begin
|
||||||
|
Z := exp( X.Re );
|
||||||
|
Result.Re := Z * cos( X.Im );
|
||||||
|
Result.Im := Z * sin( X.Im );
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Cln( const X: Complex ): Complex;
|
||||||
|
begin
|
||||||
|
Result := CfromModArg( ln( Cmod( X ) ), Carg( X ) );
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Ccos( const X: Complex ): Complex;
|
||||||
|
begin
|
||||||
|
Result := CmulI( X );
|
||||||
|
Result := CmulD( Cadd( Cexp( Result ), Cexp( Cneg( Result ) ) ),
|
||||||
|
0.5 );
|
||||||
|
end;
|
||||||
|
|
||||||
|
function Csin( const X: Complex ): Complex;
|
||||||
|
begin
|
||||||
|
Result := CmulI( X );
|
||||||
|
Result := CmulD( Csub( Cexp(Result), Cexp( Cneg(Result) ) ),
|
||||||
|
0.5 );
|
||||||
|
end;
|
||||||
|
|
||||||
|
{$IFDEF KOL}
|
||||||
|
function Abs( X: Double ): Double;
|
||||||
|
begin
|
||||||
|
Result := EAbs( X );
|
||||||
|
end;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
{$IFNDEF KOL}
|
||||||
|
function Double2Str( D: Double ): String;
|
||||||
|
begin
|
||||||
|
Result := DoubleToStr( D );
|
||||||
|
end;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
function C2Str( const X: Complex ): String;
|
||||||
|
begin
|
||||||
|
if Abs( X.Im ) < 1e-307 then
|
||||||
|
begin
|
||||||
|
Result := Double2Str( X.Re );
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
if Abs( X.Re ) > 1e-307 then
|
||||||
|
begin
|
||||||
|
Result := Double2Str( X.Re );
|
||||||
|
if X.Im > 0.0 then
|
||||||
|
Result := Result + ' + ';
|
||||||
|
end;
|
||||||
|
if X.Im < 0.0 then
|
||||||
|
Result := Result + '- i * ' + Double2Str( -X.Im )
|
||||||
|
else
|
||||||
|
Result := Result + 'i * ' + Double2Str( X.Im );
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function C2StrEx( const X: Complex ): String;
|
||||||
|
begin
|
||||||
|
if Abs( X.Im ) < 1e-307 then
|
||||||
|
begin
|
||||||
|
Result := Double2StrEx( X.Re );
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
if Abs( X.Re ) > 1e-307 then
|
||||||
|
begin
|
||||||
|
Result := Double2StrEx( X.Re );
|
||||||
|
if X.Im > 0.0 then
|
||||||
|
Result := Result + ' + ';
|
||||||
|
end;
|
||||||
|
if X.Im < 0.0 then
|
||||||
|
Result := Result + '- i * ' + Double2StrEx( -X.Im )
|
||||||
|
else
|
||||||
|
Result := Result + 'i * ' + Double2StrEx( X.Im );
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
94
Addons/addons.dpk
Normal file
94
Addons/addons.dpk
Normal file
@@ -0,0 +1,94 @@
|
|||||||
|
package ADDONS;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
{$R 'mckCCtrls.dcr'}
|
||||||
|
{$R 'mckHTTPDownload.dcr'}
|
||||||
|
{$R 'mckQProgBar.dcr'}
|
||||||
|
{$ALIGN 1}
|
||||||
|
{$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 'KOLADDONS7'}
|
||||||
|
{$DESIGNONLY}
|
||||||
|
{$IMPLICITBUILD ON}
|
||||||
|
|
||||||
|
requires
|
||||||
|
rtl,
|
||||||
|
vcl,
|
||||||
|
vclactnband,
|
||||||
|
vclx,
|
||||||
|
MirrorKOLPackageD7;
|
||||||
|
|
||||||
|
contains
|
||||||
|
KOLCCtrls in 'KOLCCtrls.pas',
|
||||||
|
mckCCtrls in 'mckCCtrls.pas',
|
||||||
|
KOLHashs in 'KOLHashs.PAS',
|
||||||
|
mckHashs in 'mckHashs.pas',
|
||||||
|
KOLFontEditor in 'KOLFontEditor.pas',
|
||||||
|
KOLmhxp in 'KOLmhxp.pas',
|
||||||
|
MCKMHXP in 'MCKMHXP.pas',
|
||||||
|
mckTCPSocket in 'mckTCPSocket.pas',
|
||||||
|
mckSocket in 'mckSocket.pas',
|
||||||
|
mckListEdit in 'mckListEdit.pas',
|
||||||
|
KOLSocket in 'KOLSocket.pas',
|
||||||
|
Objects in 'Objects.pas',
|
||||||
|
kolTCPSocket in 'kolTCPSocket.pas',
|
||||||
|
mckCProgBar in 'mckCProgBar.pas',
|
||||||
|
mckRarInfoBar in 'mckRarInfoBar.pas',
|
||||||
|
mckRarProgBar in 'mckRarProgBar.pas',
|
||||||
|
mckHTTP in 'mckHTTP.pas',
|
||||||
|
mckRAS in 'mckRAS.pas',
|
||||||
|
KOLRas in 'KOLRas.pas',
|
||||||
|
RAS in 'RAS.pas',
|
||||||
|
UStr in 'UStr.pas',
|
||||||
|
UWrd in 'UWrd.pas',
|
||||||
|
KOLHTTP in 'KOLHTTP.pas',
|
||||||
|
mckEcmListEdit in 'mckEcmListEdit.pas',
|
||||||
|
KOLEcmListEdit in 'KOLEcmListEdit.pas',
|
||||||
|
mckBlockCipher in 'mckBlockCipher.pas',
|
||||||
|
KOLBlockCipher in 'KOLBlockCipher.pas',
|
||||||
|
KOLQProgBar in 'KOLQProgBar.pas',
|
||||||
|
mckQProgBar in 'mckQProgBar.pas',
|
||||||
|
MCKPrintDialogs in 'MCKPrintDialogs.pas',
|
||||||
|
MCKPageSetup in 'MCKPageSetup.pas',
|
||||||
|
KOLReport in 'KOLReport.pas',
|
||||||
|
MCKReport in 'MCKReport.pas',
|
||||||
|
KOLHTTPDownload in 'KOLHTTPDownload.pas',
|
||||||
|
mckHTTPDownload in 'mckHTTPDownload.pas',
|
||||||
|
KOLPageSetupDialog in 'KOLPageSetupDialog.pas',
|
||||||
|
KOLPrintCommon in 'KOLPrintCommon.pas',
|
||||||
|
KOLPrintDialogs in 'KOLPrintDialogs.pas',
|
||||||
|
KOLPrinters in 'KOLPrinters.pas',
|
||||||
|
mckXPMenus in 'mckXPMenus.pas',
|
||||||
|
XPMenus in 'XPMenus.pas',
|
||||||
|
MCKGRushSplitterEditor in 'MCKGRushSplitterEditor.pas',
|
||||||
|
MCKGRushButtonEditor in 'MCKGRushButtonEditor.pas',
|
||||||
|
MCKGRushCheckBoxEditor in 'MCKGRushCheckBoxEditor.pas',
|
||||||
|
MCKGRushControls in 'MCKGRushControls.pas',
|
||||||
|
MCKGRushImageCollectionEditor in 'MCKGRushImageCollectionEditor.pas',
|
||||||
|
MCKGRushPanelEditor in 'MCKGRushPanelEditor.pas',
|
||||||
|
MCKGRushProgressBarEditor in 'MCKGRushProgressBarEditor.pas',
|
||||||
|
MCKGRushRadioBoxEditor in 'MCKGRushRadioBoxEditor.pas',
|
||||||
|
tinyPNG in 'tinyPNG.pas',
|
||||||
|
tinyJPGGIFBMP in 'tinyJPGGIFBMP.pas',
|
||||||
|
MZLib in 'MZLib.pas',
|
||||||
|
KOLGRushControls in 'KOLGRushControls.pas';
|
||||||
|
|
||||||
|
end.
|
||||||
BIN
Addons/addons.res
Normal file
BIN
Addons/addons.res
Normal file
Binary file not shown.
173
Addons/addons2006.bdsproj
Normal file
173
Addons/addons2006.bdsproj
Normal file
@@ -0,0 +1,173 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<BorlandProject>
|
||||||
|
<PersonalityInfo>
|
||||||
|
<Option>
|
||||||
|
<Option Name="Personality">Delphi.Personality</Option>
|
||||||
|
<Option Name="ProjectType">VCLApplication</Option>
|
||||||
|
<Option Name="Version">1.0</Option>
|
||||||
|
<Option Name="GUID">{A19C7A77-AE8C-4D4F-A15B-BD5CFE50A576}</Option>
|
||||||
|
</Option>
|
||||||
|
</PersonalityInfo>
|
||||||
|
<Delphi.Personality>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">addons2006.dpk</Source>
|
||||||
|
</Source>
|
||||||
|
<FileVersion>
|
||||||
|
<FileVersion Name="Version">7.0</FileVersion>
|
||||||
|
</FileVersion>
|
||||||
|
<Compiler>
|
||||||
|
<Compiler Name="A">1</Compiler>
|
||||||
|
<Compiler Name="B">0</Compiler>
|
||||||
|
<Compiler Name="C">1</Compiler>
|
||||||
|
<Compiler Name="D">1</Compiler>
|
||||||
|
<Compiler Name="E">0</Compiler>
|
||||||
|
<Compiler Name="F">0</Compiler>
|
||||||
|
<Compiler Name="G">1</Compiler>
|
||||||
|
<Compiler Name="H">1</Compiler>
|
||||||
|
<Compiler Name="I">1</Compiler>
|
||||||
|
<Compiler Name="J">0</Compiler>
|
||||||
|
<Compiler Name="K">0</Compiler>
|
||||||
|
<Compiler Name="L">1</Compiler>
|
||||||
|
<Compiler Name="M">0</Compiler>
|
||||||
|
<Compiler Name="N">1</Compiler>
|
||||||
|
<Compiler Name="O">1</Compiler>
|
||||||
|
<Compiler Name="P">1</Compiler>
|
||||||
|
<Compiler Name="Q">0</Compiler>
|
||||||
|
<Compiler Name="R">0</Compiler>
|
||||||
|
<Compiler Name="S">0</Compiler>
|
||||||
|
<Compiler Name="T">0</Compiler>
|
||||||
|
<Compiler Name="U">0</Compiler>
|
||||||
|
<Compiler Name="V">1</Compiler>
|
||||||
|
<Compiler Name="W">0</Compiler>
|
||||||
|
<Compiler Name="X">1</Compiler>
|
||||||
|
<Compiler Name="Y">1</Compiler>
|
||||||
|
<Compiler Name="Z">1</Compiler>
|
||||||
|
<Compiler Name="ShowHints">True</Compiler>
|
||||||
|
<Compiler Name="ShowWarnings">True</Compiler>
|
||||||
|
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||||
|
<Compiler Name="NamespacePrefix"></Compiler>
|
||||||
|
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||||
|
<Compiler Name="DefaultNamespace"></Compiler>
|
||||||
|
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||||
|
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||||
|
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||||
|
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||||
|
<Compiler Name="UnitLibrary">True</Compiler>
|
||||||
|
<Compiler Name="UnitPlatform">True</Compiler>
|
||||||
|
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||||
|
<Compiler Name="UnitExperimental">True</Compiler>
|
||||||
|
<Compiler Name="HResultCompat">True</Compiler>
|
||||||
|
<Compiler Name="HidingMember">True</Compiler>
|
||||||
|
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||||
|
<Compiler Name="Garbage">True</Compiler>
|
||||||
|
<Compiler Name="BoundsError">True</Compiler>
|
||||||
|
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||||
|
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||||
|
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||||
|
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||||
|
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||||
|
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||||
|
<Compiler Name="ForVariable">True</Compiler>
|
||||||
|
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||||
|
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||||
|
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||||
|
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||||
|
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||||
|
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||||
|
<Compiler Name="FileOpen">True</Compiler>
|
||||||
|
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||||
|
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||||
|
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||||
|
<Compiler Name="InvalidDirective">True</Compiler>
|
||||||
|
<Compiler Name="PackageNoLink">True</Compiler>
|
||||||
|
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||||
|
<Compiler Name="ImplicitImport">True</Compiler>
|
||||||
|
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||||
|
<Compiler Name="NoRetVal">True</Compiler>
|
||||||
|
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||||
|
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||||
|
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||||
|
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||||
|
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||||
|
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||||
|
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||||
|
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||||
|
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||||
|
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||||
|
<Compiler Name="UnsafeType">False</Compiler>
|
||||||
|
<Compiler Name="UnsafeCode">False</Compiler>
|
||||||
|
<Compiler Name="UnsafeCast">False</Compiler>
|
||||||
|
<Compiler Name="OptionTruncated">True</Compiler>
|
||||||
|
<Compiler Name="WideCharReduced">True</Compiler>
|
||||||
|
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||||
|
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||||
|
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||||
|
<Compiler Name="MessageDirective">True</Compiler>
|
||||||
|
<Compiler Name="CodePage"></Compiler>
|
||||||
|
</Compiler>
|
||||||
|
<Linker>
|
||||||
|
<Linker Name="MapFile">0</Linker>
|
||||||
|
<Linker Name="OutputObjs">0</Linker>
|
||||||
|
<Linker Name="GenerateHpps">False</Linker>
|
||||||
|
<Linker Name="ConsoleApp">1</Linker>
|
||||||
|
<Linker Name="DebugInfo">False</Linker>
|
||||||
|
<Linker Name="RemoteSymbols">False</Linker>
|
||||||
|
<Linker Name="GenerateDRC">False</Linker>
|
||||||
|
<Linker Name="MinStackSize">16384</Linker>
|
||||||
|
<Linker Name="MaxStackSize">1048576</Linker>
|
||||||
|
<Linker Name="ImageBase">4194304</Linker>
|
||||||
|
<Linker Name="ExeDescription">KOLAddons2006</Linker>
|
||||||
|
</Linker>
|
||||||
|
<Directories>
|
||||||
|
<Directories Name="OutputDir"></Directories>
|
||||||
|
<Directories Name="UnitOutputDir">D2006</Directories>
|
||||||
|
<Directories Name="PackageDLLOutputDir"></Directories>
|
||||||
|
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||||
|
<Directories Name="SearchPath"></Directories>
|
||||||
|
<Directories Name="Packages"></Directories>
|
||||||
|
<Directories Name="Conditionals"></Directories>
|
||||||
|
<Directories Name="DebugSourceDirs"></Directories>
|
||||||
|
<Directories Name="UsePackages">False</Directories>
|
||||||
|
</Directories>
|
||||||
|
<Parameters>
|
||||||
|
<Parameters Name="RunParams"></Parameters>
|
||||||
|
<Parameters Name="HostApplication"></Parameters>
|
||||||
|
<Parameters Name="Launcher"></Parameters>
|
||||||
|
<Parameters Name="UseLauncher">False</Parameters>
|
||||||
|
<Parameters Name="DebugCWD"></Parameters>
|
||||||
|
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||||
|
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||||
|
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||||
|
</Parameters>
|
||||||
|
<VersionInfo>
|
||||||
|
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||||
|
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||||
|
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||||
|
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Release">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Build">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Debug">False</VersionInfo>
|
||||||
|
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Special">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Private">False</VersionInfo>
|
||||||
|
<VersionInfo Name="DLL">False</VersionInfo>
|
||||||
|
<VersionInfo Name="Locale">1049</VersionInfo>
|
||||||
|
<VersionInfo Name="CodePage">1251</VersionInfo>
|
||||||
|
</VersionInfo>
|
||||||
|
<VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||||
|
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||||
|
</VersionInfoKeys> <Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="d:\Portable\TurboDelphi\Projects\Bpl\dclusr100.bpl">Borland User Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="d:\Portable\TurboDelphi\Bin\dclsmp100.bpl">Borland Sample Components</Excluded_Packages>
|
||||||
|
</Excluded_Packages>
|
||||||
|
</Delphi.Personality>
|
||||||
|
</BorlandProject>
|
||||||
96
Addons/addons2006.dpk
Normal file
96
Addons/addons2006.dpk
Normal file
@@ -0,0 +1,96 @@
|
|||||||
|
package addons2006;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
{$R 'mckCCtrls.dcr'}
|
||||||
|
{$R 'mckHTTPDownload.dcr'}
|
||||||
|
{$R 'mckQProgBar.dcr'}
|
||||||
|
{$ALIGN 1}
|
||||||
|
{$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 'KOLAddons2006'}
|
||||||
|
{$DESIGNONLY}
|
||||||
|
{$IMPLICITBUILD ON}
|
||||||
|
|
||||||
|
requires
|
||||||
|
rtl,
|
||||||
|
vcl,
|
||||||
|
vclactnband,
|
||||||
|
vclx,
|
||||||
|
KOLMCK10,
|
||||||
|
xmlrtl,
|
||||||
|
designide;
|
||||||
|
|
||||||
|
contains
|
||||||
|
KOLCCtrls in 'KOLCCtrls.pas',
|
||||||
|
mckCCtrls in 'mckCCtrls.pas',
|
||||||
|
KOLHashs in 'KOLHashs.PAS',
|
||||||
|
mckHashs in 'mckHashs.pas',
|
||||||
|
KOLFontEditor in 'KOLFontEditor.pas',
|
||||||
|
KOLmhxp in 'KOLmhxp.pas',
|
||||||
|
MCKMHXP in 'MCKMHXP.pas',
|
||||||
|
mckTCPSocket in 'mckTCPSocket.pas',
|
||||||
|
mckSocket in 'mckSocket.pas',
|
||||||
|
mckListEdit in 'mckListEdit.pas',
|
||||||
|
KOLSocket in 'KOLSocket.pas',
|
||||||
|
Objects in 'Objects.pas',
|
||||||
|
kolTCPSocket in 'kolTCPSocket.pas',
|
||||||
|
mckCProgBar in 'mckCProgBar.pas',
|
||||||
|
mckRarInfoBar in 'mckRarInfoBar.pas',
|
||||||
|
mckRarProgBar in 'mckRarProgBar.pas',
|
||||||
|
mckHTTP in 'mckHTTP.pas',
|
||||||
|
mckRAS in 'mckRAS.pas',
|
||||||
|
KOLRas in 'KOLRas.pas',
|
||||||
|
RAS in 'RAS.pas',
|
||||||
|
UStr in 'UStr.pas',
|
||||||
|
UWrd in 'UWrd.pas',
|
||||||
|
KOLHTTP in 'KOLHTTP.pas',
|
||||||
|
mckEcmListEdit in 'mckEcmListEdit.pas',
|
||||||
|
KOLEcmListEdit in 'KOLEcmListEdit.pas',
|
||||||
|
mckBlockCipher in 'mckBlockCipher.pas',
|
||||||
|
KOLBlockCipher in 'KOLBlockCipher.pas',
|
||||||
|
KOLQProgBar in 'KOLQProgBar.pas',
|
||||||
|
mckQProgBar in 'mckQProgBar.pas',
|
||||||
|
MCKPrintDialogs in 'MCKPrintDialogs.pas',
|
||||||
|
MCKPageSetup in 'MCKPageSetup.pas',
|
||||||
|
KOLReport in 'KOLReport.pas',
|
||||||
|
MCKReport in 'MCKReport.pas',
|
||||||
|
KOLHTTPDownload in 'KOLHTTPDownload.pas',
|
||||||
|
mckHTTPDownload in 'mckHTTPDownload.pas',
|
||||||
|
KOLPageSetupDialog in 'KOLPageSetupDialog.pas',
|
||||||
|
KOLPrintCommon in 'KOLPrintCommon.pas',
|
||||||
|
KOLPrintDialogs in 'KOLPrintDialogs.pas',
|
||||||
|
KOLPrinters in 'KOLPrinters.pas',
|
||||||
|
mckXPMenus in 'mckXPMenus.pas',
|
||||||
|
XPMenus in 'XPMenus.pas',
|
||||||
|
MCKGRushSplitterEditor in 'MCKGRushSplitterEditor.pas',
|
||||||
|
MCKGRushButtonEditor in 'MCKGRushButtonEditor.pas',
|
||||||
|
MCKGRushCheckBoxEditor in 'MCKGRushCheckBoxEditor.pas',
|
||||||
|
MCKGRushControls in 'MCKGRushControls.pas',
|
||||||
|
MCKGRushImageCollectionEditor in 'MCKGRushImageCollectionEditor.pas',
|
||||||
|
MCKGRushPanelEditor in 'MCKGRushPanelEditor.pas',
|
||||||
|
MCKGRushProgressBarEditor in 'MCKGRushProgressBarEditor.pas',
|
||||||
|
MCKGRushRadioBoxEditor in 'MCKGRushRadioBoxEditor.pas',
|
||||||
|
tinyPNG in 'tinyPNG.pas',
|
||||||
|
tinyJPGGIFBMP in 'tinyJPGGIFBMP.pas',
|
||||||
|
MZLib in 'MZLib.pas',
|
||||||
|
KOLGRushControls in 'KOLGRushControls.pas';
|
||||||
|
|
||||||
|
end.
|
||||||
BIN
Addons/addons2006.res
Normal file
BIN
Addons/addons2006.res
Normal file
Binary file not shown.
21
Addons/addons_whatsnew.txt
Normal file
21
Addons/addons_whatsnew.txt
Normal file
@@ -0,0 +1,21 @@
|
|||||||
|
-------------------------------------------------------------------
|
||||||
|
6.08.09
|
||||||
|
-------------------------------------------------------------------
|
||||||
|
|
||||||
|
������ ������� %)
|
||||||
|
|
||||||
|
� ������ ��������:
|
||||||
|
+ MCK.KOLFontEditor (� ��� ������� ������� ������ ����� � ��������� ����)
|
||||||
|
+ KOLCryptoLib (���������� ����� ���������� � ������ kol(mck)Hashs)
|
||||||
|
+ TKOLTrackBar (���������� ������: �� ���������� ������� OnScroll) (KOL(MCK)CCtrls)
|
||||||
|
+ ����� SPC ��������� (��������� � KOL(MCK)CCtrls)
|
||||||
|
+ MHXP ��������� (�������� ���������)
|
||||||
|
+ ��������� ����������� ��� ������ � ��������
|
||||||
|
+ TKOLListEdit (listview � ������������ ��������������)
|
||||||
|
+ TKOLEcmListEdit (��. ����, �� ����� ����, ����� ������� ���-�� ����)
|
||||||
|
+ TRarInfoBar\Progress (�������� ��� ������� �� ��, ��� � �������)
|
||||||
|
+ ���� ����������� ��� ������ � http
|
||||||
|
+ XPMenu (������� � ����� �� ��� ������ � ����� ����� ��)
|
||||||
|
+ ��������� ����������� ��� "������ � ���������", �������� ��������
|
||||||
|
+ GRUSH Controls (��. GRushControls#README#RUS#.txt), ��� �� ������� ToGrush (��. � KOL �������� ��������� USE_GRUSH)
|
||||||
|
+ JpegObj\KOLGif\KOLPcx � �.� (�� ����� ������)
|
||||||
Reference in New Issue
Block a user