Archivado/Componentes.Terceros.TntUnicodeControls
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Importación inicial

Browse Source 
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.TntUnicodeControls@3 efe25200-c253-4202-ad9d-beff95d3544d
This commit is contained in:
David Arranz 2010-01-19 16:34:22 +00:00
parent 211c344f20
commit 2e21f1b77a
160 changed files with 43420 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

158
internal/1/CBuilder/TntLibD.bpk Normal file
View File

@ -0,0 +1,158 @@
<?xml version='1.0' encoding='utf-8' ?>
<!-- C++Builder XML Project -->
<PROJECT>
<MACROS>
<VERSION value="BCB.06.00"/>
<PROJECT value="TntLibD.bpl"/>
<OBJFILES value="TntLibD.obj TntComCtrls_Design.obj TntDBGrids_Design.obj
TntDesignEditors_Design.obj TntForms_Design.obj TntMenus_Design.obj
TntUnicodeVcl_Register.obj TntStrEdit_Design.obj TntActions_Design.obj
TntWideStringProperty_Design.obj TntBandActn.obj"/>
<RESFILES value="TntLibD.res ..\Design\TntComCtrls.dcr ..\Design\TntDBCtrls.dcr
..\Design\TntStdCtrls.dcr ..\Design\TntActnList.dcr ..\Design\TntMenus.dcr
..\Design\TntExtCtrls.dcr ..\Design\TntForms.dcr ..\Design\TntGrids.dcr
..\Design\TntButtons.dcr ..\Design\TntDialogs.dcr ..\Design\TntExtDlgs.dcr"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) ..\Design\TntStrEdit_Design.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="bcb2kaxserver.lib indy.lib dbxcds.lib soaprtl.lib nmfast.lib dbexpress.lib
inetdbxpress.lib inetdb.lib inetdbbde.lib inet.lib xmlrtl.lib
visualdbclx.lib ibxpress.lib teeqr.lib tee.lib teedb.lib teeui.lib
bdecds.lib cds.lib dsnap.lib vcldbx.lib bdertl.lib qrpt.lib adortl.lib"/>
<SPARELIBS value="rtl.lib vcldb.lib dbrtl.lib adortl.lib qrpt.lib bdertl.lib vcldbx.lib
dsnap.lib cds.lib bdecds.lib teeui.lib teedb.lib tee.lib teeqr.lib
ibxpress.lib visualdbclx.lib xmlrtl.lib inet.lib inetdbbde.lib inetdb.lib
inetdbxpress.lib dbexpress.lib nmfast.lib soaprtl.lib dbxcds.lib indy.lib
bcb2kaxserver.lib"/>
<PACKAGES value="TntLibR.bpi designide.bpi dcldb.bpi designdgm.bpi dclstd.bpi dclact.bpi
rtl.bpi vcl.bpi vclx.bpi vcldb.bpi dbrtl.bpi"/>
<PATHCPP value=".;"/>
<PATHPAS value=".;..\Design;..\Design;..\Design;..\Design;..\Design;..\Design;..\Design;..\Design;..\Design;..\Source"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="ilink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="TntLibD.cpp"/>
<INCLUDEPATH value="..\Source;..\;..;$(BCB)\include;$(BCB)\include\vcl;..\Design"/>
<LIBPATH value="..\Source;..\;..;$(BCB)\lib\obj;$(BCB)\lib;$(BCB)\Projects\lib;..\Design"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
<OPTIONS>
<IDLCFLAGS value="-I..\Source -I..\. -I.. -I$(BCB)\include -I$(BCB)\include\vcl -I..\Design
-src_suffix cpp -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl60.csm -Hc -Vx -Ve -X- -a8 -6 -b- -k- -vi -c -tWM"/>
<PFLAGS value="-N2. -N0. -$Y- -$L- -$D- -$A8 -v -JPHNE -M -LUdclstd"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zn"/>
<LFLAGS value="-I. -D&quot;Tnt Unicode VCL - Design&quot; -aa -Tpp -Gpd -x -Gn -Gl -Gi"/>
<OTHERFILES value=""/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0pkg32.obj $(PACKAGES) Memmgr.Lib sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib"/>
<OTHERFILES value=""/>
</LINKER>
<FILELIST>
<FILE FILENAME="TntLibD.res" FORMNAME="" UNITNAME="TntLibD.res" CONTAINERID="ResTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="TntLibD.cpp" FORMNAME="" UNITNAME="TntLibD" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntComCtrls_Design.pas" FORMNAME="" UNITNAME="TntComCtrls_Design" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntDBGrids_Design.pas" FORMNAME="" UNITNAME="TntDBGrids_Design" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntDesignEditors_Design.pas" FORMNAME="" UNITNAME="TntDesignEditors_Design" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntForms_Design.pas" FORMNAME="" UNITNAME="TntForms_Design" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntMenus_Design.pas" FORMNAME="" UNITNAME="TntMenus_Design" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntUnicodeVcl_Register.pas" FORMNAME="" UNITNAME="TntUnicodeVcl_Register" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntComCtrls.dcr" FORMNAME="" UNITNAME="" CONTAINERID="DcrTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntDBCtrls.dcr" FORMNAME="" UNITNAME="" CONTAINERID="DcrTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntStdCtrls.dcr" FORMNAME="" UNITNAME="" CONTAINERID="DcrTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntActnList.dcr" FORMNAME="" UNITNAME="" CONTAINERID="DcrTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntMenus.dcr" FORMNAME="" UNITNAME="" CONTAINERID="DcrTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntExtCtrls.dcr" FORMNAME="" UNITNAME="" CONTAINERID="DcrTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntForms.dcr" FORMNAME="" UNITNAME="" CONTAINERID="DcrTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntGrids.dcr" FORMNAME="" UNITNAME="" CONTAINERID="DcrTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntStrEdit_Design.pas" FORMNAME="TntStrEditDlg" UNITNAME="TntStrEdit_Design" CONTAINERID="PascalCompiler" DESIGNCLASS="TTntForm" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntActions_Design.pas" FORMNAME="" UNITNAME="TntActions_Design" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntButtons.dcr" FORMNAME="" UNITNAME="" CONTAINERID="DcrTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntDialogs.dcr" FORMNAME="" UNITNAME="" CONTAINERID="DcrTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntExtDlgs.dcr" FORMNAME="" UNITNAME="" CONTAINERID="DcrTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Design\TntWideStringProperty_Design.pas" FORMNAME="" UNITNAME="TntWideStringProperty_Design" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntBandActn.pas" FORMNAME="" UNITNAME="TntBandActn" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="TntLibR.bpi" FORMNAME="" UNITNAME="TntLibR" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="designide.bpi" FORMNAME="" UNITNAME="designide" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="dcldb.bpi" FORMNAME="" UNITNAME="dcldb" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="designdgm.bpi" FORMNAME="" UNITNAME="designdgm" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="dclstd.bpi" FORMNAME="" UNITNAME="dclstd" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="dclact.bpi" FORMNAME="" UNITNAME="dclact" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="rtl.bpi" FORMNAME="" UNITNAME="rtl" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="vcl.bpi" FORMNAME="" UNITNAME="vcl" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="vclx.bpi" FORMNAME="" UNITNAME="vclx" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="vcldb.bpi" FORMNAME="" UNITNAME="vcldb" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="dbrtl.bpi" FORMNAME="" UNITNAME="dbrtl" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
</FILELIST>
<BUILDTOOLS>
</BUILDTOOLS>
<IDEOPTIONS>
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
Launcher=
UseLauncher=0
DebugCWD=
HostApplication=
RemoteHost=
RemotePath=
RemoteLauncher=
RemoteCWD=
RemoteDebug=0
[Compiler]
ShowInfoMsgs=0
LinkDebugVcl=0
LinkCGLIB=0
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Linker]
LibPrefix=
LibSuffix=
LibVersion=
</IDEOPTIONS>
</PROJECT>

19
internal/1/CBuilder/TntLibD.cpp Normal file
View File

@ -0,0 +1,19 @@
//---------------------------------------------------------------------------
#include <basepch.h>
#pragma hdrstop
USEFORMNS("..\Design\TntStrEdit_Design.pas", Tntstredit_design, TntStrEditDlg); /* TTntForm: File Type */
//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------
// Package source.
//---------------------------------------------------------------------------
#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
return 1;
}
//---------------------------------------------------------------------------

BIN
internal/1/CBuilder/TntLibD.res Normal file
View File

Binary file not shown.

165
internal/1/CBuilder/TntLibR.bpk Normal file
View File

@ -0,0 +1,165 @@
<?xml version='1.0' encoding='utf-8' ?>
<!-- C++Builder XML Project -->
<PROJECT>
<MACROS>
<VERSION value="BCB.06.00"/>
<PROJECT value="TntLibR.bpl"/>
<OBJFILES value="TntLibR.obj ActiveIMM_TLB.obj TntClasses.obj TntComCtrls.obj
TntControls.obj TntDB.obj TntDBCtrls.obj TntDBGrids.obj TntForms.obj
TntGraphics.obj TntGrids.obj TntMenus.obj TntStdCtrls.obj TntCheckLst.obj
TntExtCtrls.obj TntDBActns.obj TntActnList.obj TntStdActns.obj
TntExtActns.obj TntListActns.obj TntClipbrd.obj TntAxCtrls.obj
TntButtons.obj TntWindows.obj TntSysUtils.obj TntDialogs.obj
TntDBLogDlg.obj TntRegistry.obj TntSystem.obj TntExtDlgs.obj
TntFileCtrl.obj TntFormatStrUtils.obj TntWideStrUtils.obj TntWideStrings.obj"/>
<RESFILES value="TntLibR.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) ..\Source\TntDBLogDlg.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="dclocx.lib dsnapcon.lib dsnapcrba.lib dss.lib bcb2kaxserver.lib indy.lib
dbxcds.lib soaprtl.lib nmfast.lib dbexpress.lib inetdbxpress.lib
inetdb.lib inetdbbde.lib inet.lib xmlrtl.lib visualdbclx.lib ibxpress.lib
teeqr.lib tee.lib teedb.lib teeui.lib bdecds.lib cds.lib dsnap.lib
vcldbx.lib bdertl.lib qrpt.lib adortl.lib"/>
<SPARELIBS value="rtl.lib vcldb.lib dbrtl.lib adortl.lib qrpt.lib bdertl.lib vcldbx.lib
dsnap.lib cds.lib bdecds.lib teeui.lib teedb.lib tee.lib teeqr.lib
ibxpress.lib visualdbclx.lib xmlrtl.lib inet.lib inetdbbde.lib inetdb.lib
inetdbxpress.lib dbexpress.lib nmfast.lib soaprtl.lib dbxcds.lib indy.lib
bcb2kaxserver.lib dss.lib dsnapcrba.lib dsnapcon.lib dclocx.lib bcbsmp.lib"/>
<PACKAGES value="rtl.bpi vcl.bpi vclx.bpi vcldb.bpi dbrtl.bpi bcbsmp.bpi"/>
<PATHCPP value=".;"/>
<PATHPAS value=".;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source;..\Source"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="ilink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
<MAINSOURCE value="TntLibR.cpp"/>
<INCLUDEPATH value="..\Source;..;$(BCB)\include;$(BCB)\include\vcl"/>
<LIBPATH value="..\Source;$(BCB)\Projects\Lib;..;$(BCB)\lib\obj;$(BCB)\lib"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
<OPTIONS>
<IDLCFLAGS value="-I..\Source -I.. -I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl60.csm -Hc -Vx -Ve -X- -a8 -6 -b- -k- -vi -c -tWM"/>
<PFLAGS value="-N2. -N0. -$Y- -$L- -$D- -$A8 -v -JPHNE -M"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zn"/>
<LFLAGS value="-I. -D&quot;Tnt Unicode VCL - Runtime&quot; -aa -Tpp -Gpr -x -Gn -Gl -Gi"/>
<OTHERFILES value=""/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0pkg32.obj $(PACKAGES) Memmgr.Lib sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib"/>
<OTHERFILES value=""/>
</LINKER>
<FILELIST>
<FILE FILENAME="TntLibR.res" FORMNAME="" UNITNAME="TntLibR.res" CONTAINERID="ResTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="TntLibR.cpp" FORMNAME="" UNITNAME="TntLibR" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\ActiveIMM_TLB.pas" FORMNAME="" UNITNAME="ActiveIMM_TLB" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntClasses.pas" FORMNAME="" UNITNAME="TntClasses" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntComCtrls.pas" FORMNAME="" UNITNAME="TntComCtrls" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntControls.pas" FORMNAME="" UNITNAME="TntControls" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntDB.pas" FORMNAME="" UNITNAME="TntDB" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntDBCtrls.pas" FORMNAME="" UNITNAME="TntDBCtrls" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntDBGrids.pas" FORMNAME="" UNITNAME="TntDBGrids" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntForms.pas" FORMNAME="" UNITNAME="TntForms" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntGraphics.pas" FORMNAME="" UNITNAME="TntGraphics" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntGrids.pas" FORMNAME="" UNITNAME="TntGrids" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntMenus.pas" FORMNAME="" UNITNAME="TntMenus" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntStdCtrls.pas" FORMNAME="" UNITNAME="TntStdCtrls" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntCheckLst.pas" FORMNAME="" UNITNAME="TntCheckLst" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntExtCtrls.pas" FORMNAME="" UNITNAME="TntExtCtrls" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntDBActns.pas" FORMNAME="" UNITNAME="TntDBActns" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntActnList.pas" FORMNAME="" UNITNAME="TntActnList" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntStdActns.pas" FORMNAME="" UNITNAME="TntStdActns" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntExtActns.pas" FORMNAME="" UNITNAME="TntExtActns" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntListActns.pas" FORMNAME="" UNITNAME="TntListActns" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntClipbrd.pas" FORMNAME="" UNITNAME="TntClipbrd" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntAxCtrls.pas" FORMNAME="" UNITNAME="TntAxCtrls" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntButtons.pas" FORMNAME="" UNITNAME="TntButtons" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntWindows.pas" FORMNAME="" UNITNAME="TntWindows" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntSysUtils.pas" FORMNAME="" UNITNAME="TntSysUtils" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntDialogs.pas" FORMNAME="" UNITNAME="TntDialogs" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntDBLogDlg.pas" FORMNAME="TntLoginDialog" UNITNAME="TntDBLogDlg" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntRegistry.pas" FORMNAME="" UNITNAME="TntRegistry" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntSystem.pas" FORMNAME="" UNITNAME="TntSystem" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntExtDlgs.pas" FORMNAME="" UNITNAME="TntExtDlgs" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntFileCtrl.pas" FORMNAME="" UNITNAME="TntFileCtrl" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntFormatStrUtils.pas" FORMNAME="" UNITNAME="TntFormatStrUtils" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntWideStrUtils.pas" FORMNAME="" UNITNAME="TntWideStrUtils" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\TntWideStrings.pas" FORMNAME="" UNITNAME="TntWideStrings" CONTAINERID="PascalCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\rtl.bpi" FORMNAME="" UNITNAME="rtl" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\vcl.bpi" FORMNAME="" UNITNAME="vcl" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\vclx.bpi" FORMNAME="" UNITNAME="vclx" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\vcldb.bpi" FORMNAME="" UNITNAME="vcldb" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="..\Source\dbrtl.bpi" FORMNAME="" UNITNAME="dbrtl" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="bcbsmp.bpi" FORMNAME="" UNITNAME="bcbsmp" CONTAINERID="BPITool" DESIGNCLASS="" LOCALCOMMAND=""/>
</FILELIST>
<BUILDTOOLS>
</BUILDTOOLS>
<IDEOPTIONS>
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
Launcher=
UseLauncher=0
DebugCWD=
HostApplication=
RemoteHost=
RemotePath=
RemoteLauncher=
RemoteCWD=
RemoteDebug=0
[Compiler]
ShowInfoMsgs=0
LinkDebugVcl=0
LinkCGLIB=0
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Linker]
LibPrefix=
LibSuffix=
LibVersion=
</IDEOPTIONS>
</PROJECT>

18
internal/1/CBuilder/TntLibR.cpp Normal file
View File

@ -0,0 +1,18 @@
//---------------------------------------------------------------------------
#include <basepch.h>
#pragma hdrstop
USEFORMNS("..\Source\TntDBLogDlg.pas", Tntdblogdlg, TntLoginDialog);
//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------
// Package source.
//---------------------------------------------------------------------------
#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
return 1;
}
//---------------------------------------------------------------------------

BIN
internal/1/CBuilder/TntLibR.res Normal file
View File

Binary file not shown.

183
internal/1/Delphi/bds4/TntUnicodeVcl.bdsproj Normal file
View File

@ -0,0 +1,183 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality" Type="String">Delphi.Personality</Option>
<Option Name="ProjectType" Type="String"></Option>
<Option Name="Version" Type="String">1.0</Option>
<Option Name="GUID" Type="String">{CC2B511C-6D3E-4BEC-8A86-33665C7643E7}</Option>
</Option>
</PersonalityInfo>
<Delphi.Personality>
<Source>
<Source Name="MainSource" Type="String">TntUnicodeVcl.dpk</Source>
</Source>
<FileVersion>
<FileVersion Name="Version" Type="String">7.0</FileVersion>
</FileVersion>
<Compiler>
<Compiler Name="A" Type="Integer">8</Compiler>
<Compiler Name="B" Type="Integer">0</Compiler>
<Compiler Name="C" Type="Integer">1</Compiler>
<Compiler Name="D" Type="Integer">1</Compiler>
<Compiler Name="E" Type="Integer">0</Compiler>
<Compiler Name="F" Type="Integer">0</Compiler>
<Compiler Name="G" Type="Integer">1</Compiler>
<Compiler Name="H" Type="Integer">1</Compiler>
<Compiler Name="I" Type="Integer">1</Compiler>
<Compiler Name="J" Type="Integer">0</Compiler>
<Compiler Name="K" Type="Integer">0</Compiler>
<Compiler Name="L" Type="Integer">1</Compiler>
<Compiler Name="M" Type="Integer">0</Compiler>
<Compiler Name="N" Type="Integer">1</Compiler>
<Compiler Name="O" Type="Integer">1</Compiler>
<Compiler Name="P" Type="Integer">1</Compiler>
<Compiler Name="Q" Type="Integer">1</Compiler>
<Compiler Name="R" Type="Integer">1</Compiler>
<Compiler Name="S" Type="Integer">0</Compiler>
<Compiler Name="T" Type="Integer">1</Compiler>
<Compiler Name="U" Type="Integer">0</Compiler>
<Compiler Name="V" Type="Integer">1</Compiler>
<Compiler Name="W" Type="Integer">0</Compiler>
<Compiler Name="X" Type="Integer">1</Compiler>
<Compiler Name="Y" Type="Integer">1</Compiler>
<Compiler Name="Z" Type="Integer">1</Compiler>
<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
<Compiler Name="UnitAliases" Type="String"></Compiler>
<Compiler Name="NamespacePrefix" Type="String"></Compiler>
<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
<Compiler Name="DefaultNamespace" Type="String"></Compiler>
<Compiler Name="SymbolDeprecated" Type="Boolean">True</Compiler>
<Compiler Name="SymbolLibrary" Type="Boolean">True</Compiler>
<Compiler Name="SymbolPlatform" Type="Boolean">True</Compiler>
<Compiler Name="SymbolExperimental" Type="Boolean">True</Compiler>
<Compiler Name="UnitLibrary" Type="Boolean">True</Compiler>
<Compiler Name="UnitPlatform" Type="Boolean">True</Compiler>
<Compiler Name="UnitDeprecated" Type="Boolean">True</Compiler>
<Compiler Name="UnitExperimental" Type="Boolean">True</Compiler>
<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
<Compiler Name="Garbage" Type="Boolean">True</Compiler>
<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
<Compiler Name="UnsafeType" Type="Boolean">True</Compiler>
<Compiler Name="UnsafeCode" Type="Boolean">True</Compiler>
<Compiler Name="UnsafeCast" Type="Boolean">True</Compiler>
<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>
<Compiler Name="UnitInitSeq">True</Compiler>
<Compiler Name="LocalPInvoke">True</Compiler>
<Compiler Name="CodePage"></Compiler>
</Compiler>
<Linker>
<Linker Name="MapFile" Type="Integer">0</Linker>
<Linker Name="OutputObjs" Type="Integer">44</Linker>
<Linker Name="ConsoleApp" Type="Integer">1</Linker>
<Linker Name="DebugInfo" Type="Boolean">False</Linker>
<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
<Linker Name="MinStackSize" Type="Integer">16384</Linker>
<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
<Linker Name="ImageBase" Type="Integer">4194304</Linker>
<Linker Name="ExeDescription" Type="String">TntWare Unicode Controls - Runtime</Linker>
<Linker Name="GenerateHpps">False</Linker>
</Linker>
<Directories>
<Directories Name="OutputDir" Type="String"></Directories>
<Directories Name="UnitOutputDir" Type="String"></Directories>
<Directories Name="PackageDLLOutputDir" Type="String"></Directories>
<Directories Name="PackageDCPOutputDir" Type="String"></Directories>
<Directories Name="SearchPath" Type="String"></Directories>
<Directories Name="Packages" Type="String"></Directories>
<Directories Name="Conditionals" Type="String"></Directories>
<Directories Name="DebugSourceDirs" Type="String"></Directories>
<Directories Name="UsePackages" Type="Boolean">False</Directories>
</Directories>
<Parameters>
<Parameters Name="RunParams" Type="String"></Parameters>
<Parameters Name="HostApplication" Type="String"></Parameters>
<Parameters Name="Launcher" Type="String"></Parameters>
<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
<Parameters Name="DebugCWD" Type="String"></Parameters>
<Parameters Name="RemoteHost" Type="String"></Parameters>
<Parameters Name="RemotePath" Type="String"></Parameters>
<Parameters Name="RemoteLauncher" Type="String"></Parameters>
<Parameters Name="RemoteCWD" Type="String"></Parameters>
<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>
<Parameters Name="Debug Symbols Search Path"></Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="RemoteParams"></Parameters>
<Parameters Name="UseRemoteLauncher">False</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Language>
<Language Name="ActiveLang" Type="String"></Language>
<Language Name="ProjectLang" Type="String">$00000000</Language>
<Language Name="RootDir" Type="String"></Language>
</Language>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo" Type="Boolean">True</VersionInfo>
<VersionInfo Name="AutoIncBuild" Type="Boolean">False</VersionInfo>
<VersionInfo Name="MajorVer" Type="Integer">2</VersionInfo>
<VersionInfo Name="MinorVer" Type="Integer">3</VersionInfo>
<VersionInfo Name="Release" Type="Integer">0</VersionInfo>
<VersionInfo Name="Build" Type="Integer">1</VersionInfo>
<VersionInfo Name="Debug" Type="Boolean">False</VersionInfo>
<VersionInfo Name="PreRelease" Type="Boolean">False</VersionInfo>
<VersionInfo Name="Special" Type="Boolean">False</VersionInfo>
<VersionInfo Name="Private" Type="Boolean">False</VersionInfo>
<VersionInfo Name="DLL" Type="Boolean">False</VersionInfo>
<VersionInfo Name="Locale" Type="Integer">1033</VersionInfo>
<VersionInfo Name="CodePage" Type="Integer">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion" Type="String">2.3.0.1</VersionInfoKeys>
<VersionInfoKeys Name="InternalName" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion" Type="String">2.3.0.1</VersionInfoKeys>
</VersionInfoKeys>
</Delphi.Personality>
<StarTeamAssociation></StarTeamAssociation>
<StarTeamNonRelativeFiles></StarTeamNonRelativeFiles>
</BorlandProject>

33
internal/1/Delphi/bds4/TntUnicodeVcl.cfg Normal file
View File

@ -0,0 +1,33 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q+
-$R+
-$S-
-$T+
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-JL
-cg
-H+
-W+
-M
-$M16384,1048576
-K$00400000

71
internal/1/Delphi/bds4/TntUnicodeVcl.dpk Normal file
View File

@ -0,0 +1,71 @@
package TntUnicodeVcl;
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'TntWare Unicode Controls - Runtime'}
{$LIBSUFFIX '100'}
{$RUNONLY}
{$IMPLICITBUILD ON}
requires
vcl,
vclx,
vcldb,
vclactnband;
contains
ActiveIMM_TLB in '..\..\Source\ActiveIMM_TLB.pas',
TntSystem in '..\..\Source\TntSystem.pas',
TntAxCtrls in '..\..\Source\TntAxCtrls.pas',
TntClipbrd in '..\..\Source\TntClipbrd.pas',
TntWindows in '..\..\Source\TntWindows.pas',
TntSysUtils in '..\..\Source\TntSysUtils.pas',
TntClasses in '..\..\Source\TntClasses.pas',
TntDialogs in '..\..\Source\TntDialogs.pas',
TntFileCtrl in '..\..\Source\TntFileCtrl.pas',
TntExtDlgs in '..\..\Source\TntExtDlgs.pas',
TntRegistry in '..\..\Source\TntRegistry.pas',
TntGraphics in '..\..\Source\TntGraphics.pas',
TntControls in '..\..\Source\TntControls.pas',
TntActnList in '..\..\Source\TntActnList.pas',
TntMenus in '..\..\Source\TntMenus.pas',
TntForms in '..\..\Source\TntForms.pas',
TntStdCtrls in '..\..\Source\TntStdCtrls.pas',
TntExtCtrls in '..\..\Source\TntExtCtrls.pas',
TntButtons in '..\..\Source\TntButtons.pas',
TntCheckLst in '..\..\Source\TntCheckLst.pas',
TntGrids in '..\..\Source\TntGrids.pas',
TntComCtrls in '..\..\Source\TntComCtrls.pas',
TntDB in '..\..\Source\TntDB.pas',
TntDBCtrls in '..\..\Source\TntDBCtrls.pas',
TntDBGrids in '..\..\Source\TntDBGrids.pas',
TntStdActns in '..\..\Source\TntStdActns.pas',
TntExtActns in '..\..\Source\TntExtActns.pas',
TntListActns in '..\..\Source\TntListActns.pas',
TntDBActns in '..\..\Source\TntDBActns.pas',
TntBandActn in '..\..\Source\TntBandActn.pas',
TntDBLogDlg in '..\..\Source\TntDBLogDlg.pas',
TntFormatStrUtils in '..\..\Source\TntFormatStrUtils.pas',
TntWideStrUtils in '..\..\Source\TntWideStrUtils.pas';
end.

BIN
internal/1/Delphi/bds4/TntUnicodeVcl.res Normal file
View File

Binary file not shown.

183
internal/1/Delphi/bds4/TntUnicodeVcl_Design.bdsproj Normal file
View File

@ -0,0 +1,183 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality" Type="String">Delphi.Personality</Option>
<Option Name="ProjectType" Type="String"></Option>
<Option Name="Version" Type="String">1.0</Option>
<Option Name="GUID" Type="String">{380B243E-5C94-43AA-A35E-D6F56064D675}</Option>
</Option>
</PersonalityInfo>
<Delphi.Personality>
<Source>
<Source Name="MainSource" Type="String">TntUnicodeVcl_Design.dpk</Source>
</Source>
<FileVersion>
<FileVersion Name="Version" Type="String">7.0</FileVersion>
</FileVersion>
<Compiler>
<Compiler Name="A" Type="Integer">8</Compiler>
<Compiler Name="B" Type="Integer">0</Compiler>
<Compiler Name="C" Type="Integer">1</Compiler>
<Compiler Name="D" Type="Integer">1</Compiler>
<Compiler Name="E" Type="Integer">0</Compiler>
<Compiler Name="F" Type="Integer">0</Compiler>
<Compiler Name="G" Type="Integer">1</Compiler>
<Compiler Name="H" Type="Integer">1</Compiler>
<Compiler Name="I" Type="Integer">1</Compiler>
<Compiler Name="J" Type="Integer">0</Compiler>
<Compiler Name="K" Type="Integer">0</Compiler>
<Compiler Name="L" Type="Integer">1</Compiler>
<Compiler Name="M" Type="Integer">0</Compiler>
<Compiler Name="N" Type="Integer">1</Compiler>
<Compiler Name="O" Type="Integer">1</Compiler>
<Compiler Name="P" Type="Integer">1</Compiler>
<Compiler Name="Q" Type="Integer">1</Compiler>
<Compiler Name="R" Type="Integer">1</Compiler>
<Compiler Name="S" Type="Integer">0</Compiler>
<Compiler Name="T" Type="Integer">1</Compiler>
<Compiler Name="U" Type="Integer">0</Compiler>
<Compiler Name="V" Type="Integer">1</Compiler>
<Compiler Name="W" Type="Integer">0</Compiler>
<Compiler Name="X" Type="Integer">1</Compiler>
<Compiler Name="Y" Type="Integer">1</Compiler>
<Compiler Name="Z" Type="Integer">1</Compiler>
<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
<Compiler Name="UnitAliases" Type="String"></Compiler>
<Compiler Name="NamespacePrefix" Type="String"></Compiler>
<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
<Compiler Name="DefaultNamespace" Type="String"></Compiler>
<Compiler Name="SymbolDeprecated" Type="Boolean">True</Compiler>
<Compiler Name="SymbolLibrary" Type="Boolean">True</Compiler>
<Compiler Name="SymbolPlatform" Type="Boolean">True</Compiler>
<Compiler Name="SymbolExperimental" Type="Boolean">True</Compiler>
<Compiler Name="UnitLibrary" Type="Boolean">True</Compiler>
<Compiler Name="UnitPlatform" Type="Boolean">True</Compiler>
<Compiler Name="UnitDeprecated" Type="Boolean">True</Compiler>
<Compiler Name="UnitExperimental" Type="Boolean">True</Compiler>
<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
<Compiler Name="Garbage" Type="Boolean">True</Compiler>
<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
<Compiler Name="UnsafeType" Type="Boolean">False</Compiler>
<Compiler Name="UnsafeCode" Type="Boolean">False</Compiler>
<Compiler Name="UnsafeCast" Type="Boolean">False</Compiler>
<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>
<Compiler Name="UnitInitSeq">True</Compiler>
<Compiler Name="LocalPInvoke">True</Compiler>
<Compiler Name="CodePage"></Compiler>
</Compiler>
<Linker>
<Linker Name="MapFile" Type="Integer">0</Linker>
<Linker Name="OutputObjs" Type="Integer">44</Linker>
<Linker Name="ConsoleApp" Type="Integer">1</Linker>
<Linker Name="DebugInfo" Type="Boolean">False</Linker>
<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
<Linker Name="MinStackSize" Type="Integer">16384</Linker>
<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
<Linker Name="ImageBase" Type="Integer">4194304</Linker>
<Linker Name="ExeDescription" Type="String">TntWare Unicode Controls</Linker>
<Linker Name="GenerateHpps">False</Linker>
</Linker>
<Directories>
<Directories Name="OutputDir" Type="String"></Directories>
<Directories Name="UnitOutputDir" Type="String"></Directories>
<Directories Name="PackageDLLOutputDir" Type="String"></Directories>
<Directories Name="PackageDCPOutputDir" Type="String"></Directories>
<Directories Name="SearchPath" Type="String"></Directories>
<Directories Name="Packages" Type="String"></Directories>
<Directories Name="Conditionals" Type="String"></Directories>
<Directories Name="DebugSourceDirs" Type="String"></Directories>
<Directories Name="UsePackages" Type="Boolean">False</Directories>
</Directories>
<Parameters>
<Parameters Name="RunParams" Type="String"></Parameters>
<Parameters Name="HostApplication" Type="String"></Parameters>
<Parameters Name="Launcher" Type="String"></Parameters>
<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
<Parameters Name="DebugCWD" Type="String"></Parameters>
<Parameters Name="RemoteHost" Type="String"></Parameters>
<Parameters Name="RemotePath" Type="String"></Parameters>
<Parameters Name="RemoteLauncher" Type="String"></Parameters>
<Parameters Name="RemoteCWD" Type="String"></Parameters>
<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>
<Parameters Name="Debug Symbols Search Path"></Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="RemoteParams"></Parameters>
<Parameters Name="UseRemoteLauncher">False</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Language>
<Language Name="ActiveLang" Type="String"></Language>
<Language Name="ProjectLang" Type="String">$00000000</Language>
<Language Name="RootDir" Type="String"></Language>
</Language>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo" Type="Boolean">True</VersionInfo>
<VersionInfo Name="AutoIncBuild" Type="Boolean">False</VersionInfo>
<VersionInfo Name="MajorVer" Type="Integer">2</VersionInfo>
<VersionInfo Name="MinorVer" Type="Integer">3</VersionInfo>
<VersionInfo Name="Release" Type="Integer">0</VersionInfo>
<VersionInfo Name="Build" Type="Integer">1</VersionInfo>
<VersionInfo Name="Debug" Type="Boolean">False</VersionInfo>
<VersionInfo Name="PreRelease" Type="Boolean">False</VersionInfo>
<VersionInfo Name="Special" Type="Boolean">False</VersionInfo>
<VersionInfo Name="Private" Type="Boolean">False</VersionInfo>
<VersionInfo Name="DLL" Type="Boolean">False</VersionInfo>
<VersionInfo Name="Locale" Type="Integer">1033</VersionInfo>
<VersionInfo Name="CodePage" Type="Integer">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion" Type="String">2.3.0.1</VersionInfoKeys>
<VersionInfoKeys Name="InternalName" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion" Type="String">2.3.0.1</VersionInfoKeys>
</VersionInfoKeys>
</Delphi.Personality>
<StarTeamAssociation></StarTeamAssociation>
<StarTeamNonRelativeFiles></StarTeamNonRelativeFiles>
</BorlandProject>

36
internal/1/Delphi/bds4/TntUnicodeVcl_Design.cfg Normal file
View File

@ -0,0 +1,36 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q+
-$R+
-$S-
-$T+
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-JL
-cg
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

56
internal/1/Delphi/bds4/TntUnicodeVcl_Design.dpk Normal file
View File

@ -0,0 +1,56 @@
package TntUnicodeVcl_Design;
{$R *.res}
{$R '..\..\Design\TntComCtrls.dcr'}
{$R '..\..\Design\TntDBCtrls.dcr'}
{$R '..\..\Design\TntStdCtrls.dcr'}
{$R '..\..\Design\TntActnList.dcr'}
{$R '..\..\Design\TntMenus.dcr'}
{$R '..\..\Design\TntExtCtrls.dcr'}
{$R '..\..\Design\TntForms.dcr'}
{$R '..\..\Design\TntGrids.dcr'}
{$R '..\..\Design\TntButtons.dcr'}
{$R '..\..\Design\TntDialogs.dcr'}
{$R '..\..\Design\TntExtDlgs.dcr'}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'TntWare Unicode Controls'}
{$LIBSUFFIX '100'}
{$DESIGNONLY}
{$IMPLICITBUILD ON}
requires
TntUnicodeVcl,
designide,
dcldb;
contains
TntForms_Design in '..\..\Design\TntForms_Design.pas',
TntComCtrls_Design in '..\..\Design\TntComCtrls_Design.pas',
TntDBGrids_Design in '..\..\Design\TntDBGrids_Design.pas',
TntDesignEditors_Design in '..\..\Design\TntDesignEditors_Design.pas',
TntStrEdit_Design in '..\..\Design\TntStrEdit_Design.pas',
TntUnicodeVcl_Register in '..\..\Design\TntUnicodeVcl_Register.pas',
TntActions_Design in '..\..\Design\TntActions_Design.pas',
TntMenus_Design in '..\..\Design\TntMenus_Design.pas';
end.

BIN
internal/1/Delphi/bds4/TntUnicodeVcl_Design.res Normal file
View File

Binary file not shown.

BIN
internal/1/Delphi/d11/TntUnicodeVcl.bpi Normal file
View File

Binary file not shown.

72
internal/1/Delphi/d11/TntUnicodeVcl.dpk Normal file
View File

@ -0,0 +1,72 @@
package TntUnicodeVcl;
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS OFF}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO OFF}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'TntWare Unicode Controls - Runtime'}
{$LIBSUFFIX '110'}
{$RUNONLY}
{$IMPLICITBUILD ON}
{$DEFINE RELEASE}
requires
vcl,
vclx,
vcldb,
vclactnband;
contains
ActiveIMM_TLB in '..\..\Source\ActiveIMM_TLB.pas',
TntSystem in '..\..\Source\TntSystem.pas',
TntAxCtrls in '..\..\Source\TntAxCtrls.pas',
TntClipbrd in '..\..\Source\TntClipbrd.pas',
TntWindows in '..\..\Source\TntWindows.pas',
TntSysUtils in '..\..\Source\TntSysUtils.pas',
TntClasses in '..\..\Source\TntClasses.pas',
TntDialogs in '..\..\Source\TntDialogs.pas',
TntFileCtrl in '..\..\Source\TntFileCtrl.pas',
TntExtDlgs in '..\..\Source\TntExtDlgs.pas',
TntRegistry in '..\..\Source\TntRegistry.pas',
TntGraphics in '..\..\Source\TntGraphics.pas',
TntControls in '..\..\Source\TntControls.pas',
TntActnList in '..\..\Source\TntActnList.pas',
TntMenus in '..\..\Source\TntMenus.pas',
TntForms in '..\..\Source\TntForms.pas',
TntStdCtrls in '..\..\Source\TntStdCtrls.pas',
TntExtCtrls in '..\..\Source\TntExtCtrls.pas',
TntButtons in '..\..\Source\TntButtons.pas',
TntCheckLst in '..\..\Source\TntCheckLst.pas',
TntGrids in '..\..\Source\TntGrids.pas',
TntComCtrls in '..\..\Source\TntComCtrls.pas',
TntDB in '..\..\Source\TntDB.pas',
TntDBCtrls in '..\..\Source\TntDBCtrls.pas',
TntDBGrids in '..\..\Source\TntDBGrids.pas',
TntStdActns in '..\..\Source\TntStdActns.pas',
TntExtActns in '..\..\Source\TntExtActns.pas',
TntListActns in '..\..\Source\TntListActns.pas',
TntDBActns in '..\..\Source\TntDBActns.pas',
TntBandActn in '..\..\Source\TntBandActn.pas',
TntDBLogDlg in '..\..\Source\TntDBLogDlg.pas',
TntFormatStrUtils in '..\..\Source\TntFormatStrUtils.pas',
TntWideStrUtils in '..\..\Source\TntWideStrUtils.pas';
end.

619
internal/1/Delphi/d11/TntUnicodeVcl.dproj Normal file
View File

@ -0,0 +1,619 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{cc2b511c-6d3e-4bec-8a86-33665c7643e7}</ProjectGuid>
<MainSource>TntUnicodeVcl.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Lib\D11\TntUnicodeVcl110.bpl</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_Define>RELEASE</DCC_Define>
<DCC_UNSAFE_TYPE>True</DCC_UNSAFE_TYPE>
<DCC_UNSAFE_CODE>True</DCC_UNSAFE_CODE>
<DCC_UNSAFE_CAST>True</DCC_UNSAFE_CAST>
<DCC_DcuOutput>..\..\Lib\D11</DCC_DcuOutput>
<DCC_ObjOutput>..\..\Lib\D11</DCC_ObjOutput>
<DCC_HppOutput>..\..\Lib\D11</DCC_HppOutput>
<DCC_BplOutput>..\..\Lib\D11</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib\D11</DCC_DcpOutput>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
<DCC_CBuilderOutput>All</DCC_CBuilderOutput>
<DCC_Define>DEBUG</DCC_Define>
<DCC_UNSAFE_TYPE>True</DCC_UNSAFE_TYPE>
<DCC_UNSAFE_CODE>True</DCC_UNSAFE_CODE>
<DCC_UNSAFE_CAST>True</DCC_UNSAFE_CAST>
<DCC_DcuOutput>..\..\Lib\D11</DCC_DcuOutput>
<DCC_ObjOutput>..\..\Lib\D11</DCC_ObjOutput>
<DCC_HppOutput>..\..\Lib\D11</DCC_HppOutput>
<DCC_BplOutput>..\..\Lib\D11</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib\D11</DCC_DcpOutput>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="PackageDescription">TntWare Unicode Controls - Runtime</Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">True</Package_Options>
<Package_Options Name="LibSuffix">110</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">1</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">1033</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.3.0.1</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">2.3.0.1</VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">TntUnicodeVcl.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="TntUnicodeVcl.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Source\ActiveIMM_TLB.pas" />
<DCCReference Include="..\..\Source\TntActnList.pas" />
<DCCReference Include="..\..\Source\TntAxCtrls.pas" />
<DCCReference Include="..\..\Source\TntBandActn.pas" />
<DCCReference Include="..\..\Source\TntButtons.pas" />
<DCCReference Include="..\..\Source\TntCheckLst.pas" />
<DCCReference Include="..\..\Source\TntClasses.pas" />
<DCCReference Include="..\..\Source\TntClipbrd.pas" />
<DCCReference Include="..\..\Source\TntComCtrls.pas" />
<DCCReference Include="..\..\Source\TntControls.pas" />
<DCCReference Include="..\..\Source\TntDB.pas" />
<DCCReference Include="..\..\Source\TntDBActns.pas" />
<DCCReference Include="..\..\Source\TntDBCtrls.pas" />
<DCCReference Include="..\..\Source\TntDBGrids.pas" />
<DCCReference Include="..\..\Source\TntDBLogDlg.pas" />
<DCCReference Include="..\..\Source\TntDialogs.pas" />
<DCCReference Include="..\..\Source\TntExtActns.pas" />
<DCCReference Include="..\..\Source\TntExtCtrls.pas" />
<DCCReference Include="..\..\Source\TntExtDlgs.pas" />
<DCCReference Include="..\..\Source\TntFileCtrl.pas" />
<DCCReference Include="..\..\Source\TntFormatStrUtils.pas" />
<DCCReference Include="..\..\Source\TntForms.pas" />
<DCCReference Include="..\..\Source\TntGraphics.pas" />
<DCCReference Include="..\..\Source\TntGrids.pas" />
<DCCReference Include="..\..\Source\TntListActns.pas" />
<DCCReference Include="..\..\Source\TntMenus.pas" />
<DCCReference Include="..\..\Source\TntRegistry.pas" />
<DCCReference Include="..\..\Source\TntStdActns.pas" />
<DCCReference Include="..\..\Source\TntStdCtrls.pas" />
<DCCReference Include="..\..\Source\TntSystem.pas" />
<DCCReference Include="..\..\Source\TntSysUtils.pas" />
<DCCReference Include="..\..\Source\TntWideStrUtils.pas" />
<DCCReference Include="..\..\Source\TntWindows.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

BIN
internal/1/Delphi/d11/TntUnicodeVcl.res Normal file
View File

Binary file not shown.

BIN
internal/1/Delphi/d11/TntUnicodeVcl_Design.bpi Normal file
View File

Binary file not shown.

57
internal/1/Delphi/d11/TntUnicodeVcl_Design.dpk Normal file
View File

@ -0,0 +1,57 @@
package TntUnicodeVcl_Design;
{$R *.res}
{$R '..\..\Design\TntComCtrls.dcr'}
{$R '..\..\Design\TntDBCtrls.dcr'}
{$R '..\..\Design\TntStdCtrls.dcr'}
{$R '..\..\Design\TntActnList.dcr'}
{$R '..\..\Design\TntMenus.dcr'}
{$R '..\..\Design\TntExtCtrls.dcr'}
{$R '..\..\Design\TntForms.dcr'}
{$R '..\..\Design\TntGrids.dcr'}
{$R '..\..\Design\TntButtons.dcr'}
{$R '..\..\Design\TntDialogs.dcr'}
{$R '..\..\Design\TntExtDlgs.dcr'}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS OFF}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO OFF}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'TntWare Unicode Controls'}
{$LIBSUFFIX '110'}
{$DESIGNONLY}
{$IMPLICITBUILD ON}
{$DEFINE RELEASE}
requires
TntUnicodeVcl,
designide,
dcldb;
contains
TntForms_Design in '..\..\Design\TntForms_Design.pas',
TntComCtrls_Design in '..\..\Design\TntComCtrls_Design.pas',
TntDBGrids_Design in '..\..\Design\TntDBGrids_Design.pas',
TntDesignEditors_Design in '..\..\Design\TntDesignEditors_Design.pas',
TntStrEdit_Design in '..\..\Design\TntStrEdit_Design.pas',
TntUnicodeVcl_Register in '..\..\Design\TntUnicodeVcl_Register.pas',
TntActions_Design in '..\..\Design\TntActions_Design.pas',
TntMenus_Design in '..\..\Design\TntMenus_Design.pas';
end.

614
internal/1/Delphi/d11/TntUnicodeVcl_Design.dproj Normal file
View File

@ -0,0 +1,614 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{380b243e-5c94-43aa-a35e-d6f56064d675}</ProjectGuid>
<MainSource>TntUnicodeVcl_Design.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Lib\D11\TntUnicodeVcl_Design110.bpl</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_Define>RELEASE</DCC_Define>
<DCC_DcuOutput>..\..\Lib\D11</DCC_DcuOutput>
<DCC_ObjOutput>..\..\Lib\D11</DCC_ObjOutput>
<DCC_HppOutput>..\..\Lib\D11</DCC_HppOutput>
<DCC_BplOutput>..\..\Lib\D11</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib\D11</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\Lib\D11</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\Lib\D11</DCC_ResourcePath>
<DCC_ObjPath>..\..\Lib\D11</DCC_ObjPath>
<DCC_IncludePath>..\..\Lib\D11</DCC_IncludePath>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_IntegerOverflowCheck>True</DCC_IntegerOverflowCheck>
<DCC_RangeChecking>True</DCC_RangeChecking>
<DCC_TypedAtParameter>True</DCC_TypedAtParameter>
<DCC_DcuOutput>..\..\Lib\D11</DCC_DcuOutput>
<DCC_ObjOutput>..\..\Lib\D11</DCC_ObjOutput>
<DCC_HppOutput>..\..\Lib\D11</DCC_HppOutput>
<DCC_BplOutput>..\..\Lib\D11</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib\D11</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\Lib\D11</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\Lib\D11</DCC_ResourcePath>
<DCC_ObjPath>..\..\Lib\D11</DCC_ObjPath>
<DCC_IncludePath>..\..\Lib\D11</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="PackageDescription">TntWare Unicode Controls</Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">True</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
<Package_Options Name="LibSuffix">110</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">1</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">1033</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.3.0.1</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">2.3.0.1</VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">TntUnicodeVcl_Design.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="TntUnicodeVcl_Design.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Design\TntActions_Design.pas" />
<DCCReference Include="..\..\Design\TntActnList.dcr" />
<DCCReference Include="..\..\Design\TntActnList.dcr" />
<DCCReference Include="..\..\Design\TntButtons.dcr" />
<DCCReference Include="..\..\Design\TntButtons.dcr" />
<DCCReference Include="..\..\Design\TntComCtrls.dcr" />
<DCCReference Include="..\..\Design\TntComCtrls.dcr" />
<DCCReference Include="..\..\Design\TntComCtrls_Design.pas" />
<DCCReference Include="..\..\Design\TntDBCtrls.dcr" />
<DCCReference Include="..\..\Design\TntDBCtrls.dcr" />
<DCCReference Include="..\..\Design\TntDBGrids_Design.pas" />
<DCCReference Include="..\..\Design\TntDesignEditors_Design.pas" />
<DCCReference Include="..\..\Design\TntDialogs.dcr" />
<DCCReference Include="..\..\Design\TntDialogs.dcr" />
<DCCReference Include="..\..\Design\TntExtCtrls.dcr" />
<DCCReference Include="..\..\Design\TntExtCtrls.dcr" />
<DCCReference Include="..\..\Design\TntExtDlgs.dcr" />
<DCCReference Include="..\..\Design\TntExtDlgs.dcr" />
<DCCReference Include="..\..\Design\TntForms.dcr" />
<DCCReference Include="..\..\Design\TntForms.dcr" />
<DCCReference Include="..\..\Design\TntForms_Design.pas" />
<DCCReference Include="..\..\Design\TntGrids.dcr" />
<DCCReference Include="..\..\Design\TntGrids.dcr" />
<DCCReference Include="..\..\Design\TntMenus.dcr" />
<DCCReference Include="..\..\Design\TntMenus.dcr" />
<DCCReference Include="..\..\Design\TntMenus_Design.pas" />
<DCCReference Include="..\..\Design\TntStdCtrls.dcr" />
<DCCReference Include="..\..\Design\TntStdCtrls.dcr" />
<DCCReference Include="..\..\Design\TntStrEdit_Design.pas" />
<DCCReference Include="..\..\Design\TntUnicodeVcl_Register.pas" />
<DCCReference Include="dcldb.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="TntUnicodeVcl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

BIN
internal/1/Delphi/d11/TntUnicodeVcl_Design.res Normal file
View File

Binary file not shown.

44
internal/1/Delphi/d11/TntUnicode_D11.groupproj Normal file
View File

@ -0,0 +1,44 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{af130047-c49d-4ee5-bbac-ae3c3b8ebfa4}</ProjectGuid>
</PropertyGroup>
<ItemGroup />
<ItemGroup>
<Projects Include="TntUnicodeVcl.dproj" />
<Projects Include="TntUnicodeVcl_Design.dproj" />
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Default.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions>
<Target Name="TntUnicodeVcl">
<MSBuild Projects="TntUnicodeVcl.dproj" Targets="" />
</Target>
<Target Name="TntUnicodeVcl:Clean">
<MSBuild Projects="TntUnicodeVcl.dproj" Targets="Clean" />
</Target>
<Target Name="TntUnicodeVcl:Make">
<MSBuild Projects="TntUnicodeVcl.dproj" Targets="Make" />
</Target>
<Target Name="TntUnicodeVcl_Design">
<MSBuild Projects="TntUnicodeVcl_Design.dproj" Targets="" />
</Target>
<Target Name="TntUnicodeVcl_Design:Clean">
<MSBuild Projects="TntUnicodeVcl_Design.dproj" Targets="Clean" />
</Target>
<Target Name="TntUnicodeVcl_Design:Make">
<MSBuild Projects="TntUnicodeVcl_Design.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="TntUnicodeVcl;TntUnicodeVcl_Design" />
</Target>
<Target Name="Clean">
<CallTarget Targets="TntUnicodeVcl:Clean;TntUnicodeVcl_Design:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="TntUnicodeVcl:Make;TntUnicodeVcl_Design:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

32
internal/1/Delphi/d6/TntUnicodeVcl_D60.cfg Normal file
View File

@ -0,0 +1,32 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q+
-$R+
-$S-
-$T+
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-H+
-W+
-M
-$M16384,1048576
-K$00400000

87
internal/1/Delphi/d6/TntUnicodeVcl_D60.dof Normal file
View File

@ -0,0 +1,87 @@
[FileVersion]
Version=6.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=1
R=1
S=0
T=1
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=Tnt Unicode Controls
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=$00000409
RootDir=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=2
MinorVer=3
Release=0
Build=1
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=2.3.0.1
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=2.3.0.1
Comments=

57
internal/1/Delphi/d6/TntUnicodeVcl_D60.dpk Normal file
View File

@ -0,0 +1,57 @@
package TntUnicodeVcl_D60;
{$R *.res}
{$R '..\..\Design\TntComCtrls.dcr'}
{$R '..\..\Design\TntDBCtrls.dcr'}
{$R '..\..\Design\TntStdCtrls.dcr'}
{$R '..\..\Design\TntActnList.dcr'}
{$R '..\..\Design\TntMenus.dcr'}
{$R '..\..\Design\TntExtCtrls.dcr'}
{$R '..\..\Design\TntForms.dcr'}
{$R '..\..\Design\TntGrids.dcr'}
{$R '..\..\Design\TntButtons.dcr'}
{$R '..\..\Design\TntDialogs.dcr'}
{$R '..\..\Design\TntExtDlgs.dcr'}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Tnt Unicode Controls'}
{$DESIGNONLY}
{$IMPLICITBUILD ON}
requires
dclact,
dcldb,
designide,
TntUnicodeVcl_R60;
contains
TntForms_Design in '..\..\Design\TntForms_Design.pas',
TntComCtrls_Design in '..\..\Design\TntComCtrls_Design.pas',
TntDBGrids_Design in '..\..\Design\TntDBGrids_Design.pas',
TntDesignEditors_Design in '..\..\Design\TntDesignEditors_Design.pas',
TntWideStringProperty_Design in '..\..\Design\TntWideStringProperty_Design.pas',
TntMenus_Design in '..\..\Design\TntMenus_Design.pas',
TntStrEdit_Design in '..\..\Design\TntStrEdit_Design.pas',
TntUnicodeVcl_Register in '..\..\Design\TntUnicodeVcl_Register.pas',
TntActions_Design in '..\..\Design\TntActions_Design.pas';
end.

BIN
internal/1/Delphi/d6/TntUnicodeVcl_D60.res Normal file
View File

Binary file not shown.

32
internal/1/Delphi/d6/TntUnicodeVcl_R60.cfg Normal file
View File

@ -0,0 +1,32 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q+
-$R+
-$S-
-$T+
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-H+
-W+
-M
-$M16384,1048576
-K$00400000

87
internal/1/Delphi/d6/TntUnicodeVcl_R60.dof Normal file
View File

@ -0,0 +1,87 @@
[FileVersion]
Version=6.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=1
R=1
S=0
T=1
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=Tnt Unicode Controls - Runtime
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=$00000409
RootDir=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=2
MinorVer=3
Release=0
Build=1
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=2.3.0.1
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=2.3.0.1
Comments=

71
internal/1/Delphi/d6/TntUnicodeVcl_R60.dpk Normal file
View File

@ -0,0 +1,71 @@
package TntUnicodeVcl_R60;
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Tnt Unicode Controls - Runtime'}
{$RUNONLY}
{$IMPLICITBUILD ON}
requires
vcl,
vclx,
vcldb,
dclact;
contains
ActiveIMM_TLB in '..\..\Source\ActiveIMM_TLB.pas',
TntSystem in '..\..\Source\TntSystem.pas',
TntAxCtrls in '..\..\Source\TntAxCtrls.pas',
TntClipbrd in '..\..\Source\TntClipbrd.pas',
TntWindows in '..\..\Source\TntWindows.pas',
TntSysUtils in '..\..\Source\TntSysUtils.pas',
TntClasses in '..\..\Source\TntClasses.pas',
TntDialogs in '..\..\Source\TntDialogs.pas',
TntFileCtrl in '..\..\Source\TntFileCtrl.pas',
TntExtDlgs in '..\..\Source\TntExtDlgs.pas',
TntRegistry in '..\..\Source\TntRegistry.pas',
TntGraphics in '..\..\Source\TntGraphics.pas',
TntControls in '..\..\Source\TntControls.pas',
TntActnList in '..\..\Source\TntActnList.pas',
TntMenus in '..\..\Source\TntMenus.pas',
TntForms in '..\..\Source\TntForms.pas',
TntStdCtrls in '..\..\Source\TntStdCtrls.pas',
TntExtCtrls in '..\..\Source\TntExtCtrls.pas',
TntButtons in '..\..\Source\TntButtons.pas',
TntCheckLst in '..\..\Source\TntCheckLst.pas',
TntGrids in '..\..\Source\TntGrids.pas',
TntComCtrls in '..\..\Source\TntComCtrls.pas',
TntDB in '..\..\Source\TntDB.pas',
TntDBCtrls in '..\..\Source\TntDBCtrls.pas',
TntDBGrids in '..\..\Source\TntDBGrids.pas',
TntStdActns in '..\..\Source\TntStdActns.pas',
TntExtActns in '..\..\Source\TntExtActns.pas',
TntListActns in '..\..\Source\TntListActns.pas',
TntDBActns in '..\..\Source\TntDBActns.pas',
TntBandActn in '..\..\Source\TntBandActn.pas',
TntDBLogDlg in '..\..\Source\TntDBLogDlg.pas',
TntFormatStrUtils in '..\..\Source\TntFormatStrUtils.pas',
TntWideStrings in '..\..\Source\TntWideStrings.pas',
TntWideStrUtils in '..\..\Source\TntWideStrUtils.pas';
end.

BIN
internal/1/Delphi/d6/TntUnicodeVcl_R60.res Normal file
View File

Binary file not shown.

23
internal/1/Delphi/d6/TntUnicode_6.bpg Normal file
View File

@ -0,0 +1,23 @@
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = TntUnicodeVcl_R60.bpl TntUnicodeVcl_D60.bpl
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
TntUnicodeVcl_R60.bpl: TntUnicodeVcl_R60.dpk
$(DCC)
TntUnicodeVcl_D60.bpl: TntUnicodeVcl_D60.dpk
$(DCC)

32
internal/1/Delphi/d7/TntUnicodeVcl_D70.cfg Normal file
View File

@ -0,0 +1,32 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q+
-$R+
-$S-
-$T+
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-H+
-W+
-M
-$M16384,1048576
-K$00400000

136
internal/1/Delphi/d7/TntUnicodeVcl_D70.dof Normal file
View File

@ -0,0 +1,136 @@
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=1
R=1
S=0
T=1
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=1
UnsafeCode=1
UnsafeCast=1
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=Tnt Unicode Controls
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=2
MinorVer=3
Release=0
Build=1
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=2.3.0.1
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=2.3.0.1
Comments=

56
internal/1/Delphi/d7/TntUnicodeVcl_D70.dpk Normal file
View File

@ -0,0 +1,56 @@
package TntUnicodeVcl_D70;
{$R *.res}
{$R '..\..\Design\TntComCtrls.dcr'}
{$R '..\..\Design\TntDBCtrls.dcr'}
{$R '..\..\Design\TntStdCtrls.dcr'}
{$R '..\..\Design\TntActnList.dcr'}
{$R '..\..\Design\TntMenus.dcr'}
{$R '..\..\Design\TntExtCtrls.dcr'}
{$R '..\..\Design\TntForms.dcr'}
{$R '..\..\Design\TntGrids.dcr'}
{$R '..\..\Design\TntButtons.dcr'}
{$R '..\..\Design\TntDialogs.dcr'}
{$R '..\..\Design\TntExtDlgs.dcr'}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Tnt Unicode Controls'}
{$DESIGNONLY}
{$IMPLICITBUILD ON}
requires
dcldb,
designide,
TntUnicodeVcl_R70;
contains
TntForms_Design in '..\..\Design\TntForms_Design.pas',
TntComCtrls_Design in '..\..\Design\TntComCtrls_Design.pas',
TntDBGrids_Design in '..\..\Design\TntDBGrids_Design.pas',
TntDesignEditors_Design in '..\..\Design\TntDesignEditors_Design.pas',
TntWideStringProperty_Design in '..\..\Design\TntWideStringProperty_Design.pas',
TntMenus_Design in '..\..\Design\TntMenus_Design.pas',
TntStrEdit_Design in '..\..\Design\TntStrEdit_Design.pas',
TntUnicodeVcl_Register in '..\..\Design\TntUnicodeVcl_Register.pas',
TntActions_Design in '..\..\Design\TntActions_Design.pas';
end.

BIN
internal/1/Delphi/d7/TntUnicodeVcl_D70.res Normal file
View File

Binary file not shown.

35
internal/1/Delphi/d7/TntUnicodeVcl_D70_DATASNAP.cfg Normal file
View File

@ -0,0 +1,35 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q+
-$R+
-$S-
-$T+
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

136
internal/1/Delphi/d7/TntUnicodeVcl_D70_DATASNAP.dof Normal file
View File

@ -0,0 +1,136 @@
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=1
R=1
S=0
T=1
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=Tnt Unicode Controls
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=C:\dev\library\TntUnicodeVcl\Packages\
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=2
MinorVer=3
Release=0
Build=1
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=2.3.0.1
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=2.3.0.1
Comments=

37
internal/1/Delphi/d7/TntUnicodeVcl_D70_DATASNAP.dpk Normal file
View File

@ -0,0 +1,37 @@
package TntUnicodeVcl_D70_DATASNAP;
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Tnt Unicode Controls'}
{$DESIGNONLY}
{$IMPLICITBUILD ON}
requires
dclmid,
TntUnicodeVcl_D70;
contains
TntDBClientActns in '..\..\TntDBClientActns.pas',
TntDBClientActns_Design in '..\..\Design\TntDBClientActns_Design.pas';
end.

BIN
internal/1/Delphi/d7/TntUnicodeVcl_D70_DATASNAP.res Normal file
View File

Binary file not shown.

32
internal/1/Delphi/d7/TntUnicodeVcl_R70.cfg Normal file
View File

@ -0,0 +1,32 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q+
-$R+
-$S-
-$T+
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-H+
-W+
-M
-$M16384,1048576
-K$00400000

87
internal/1/Delphi/d7/TntUnicodeVcl_R70.dof Normal file
View File

@ -0,0 +1,87 @@
[FileVersion]
Version=6.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=1
R=1
S=0
T=1
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=Tnt Unicode Controls - Runtime
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Version Info]
IncludeVerInfo=1
AutoIncBuild=0
MajorVer=2
MinorVer=3
Release=0
Build=1
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=2.3.0.1
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=2.3.0.1
Comments=

72
internal/1/Delphi/d7/TntUnicodeVcl_R70.dpk Normal file
View File

@ -0,0 +1,72 @@
package TntUnicodeVcl_R70;
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Tnt Unicode Controls - Runtime'}
{$RUNONLY}
{$IMPLICITBUILD ON}
requires
vcl,
vclx,
vcldb,
dsnap,
vclactnband;
contains
ActiveIMM_TLB in '..\..\Source\ActiveIMM_TLB.pas',
TntSystem in '..\..\Source\TntSystem.pas',
TntAxCtrls in '..\..\Source\TntAxCtrls.pas',
TntClipbrd in '..\..\Source\TntClipbrd.pas',
TntWindows in '..\..\Source\TntWindows.pas',
TntSysUtils in '..\..\Source\TntSysUtils.pas',
TntClasses in '..\..\Source\TntClasses.pas',
TntDialogs in '..\..\Source\TntDialogs.pas',
TntFileCtrl in '..\..\Source\TntFileCtrl.pas',
TntExtDlgs in '..\..\Source\TntExtDlgs.pas',
TntRegistry in '..\..\Source\TntRegistry.pas',
TntGraphics in '..\..\Source\TntGraphics.pas',
TntControls in '..\..\Source\TntControls.pas',
TntActnList in '..\..\Source\TntActnList.pas',
TntMenus in '..\..\Source\TntMenus.pas',
TntForms in '..\..\Source\TntForms.pas',
TntStdCtrls in '..\..\Source\TntStdCtrls.pas',
TntExtCtrls in '..\..\Source\TntExtCtrls.pas',
TntButtons in '..\..\Source\TntButtons.pas',
TntCheckLst in '..\..\Source\TntCheckLst.pas',
TntGrids in '..\..\Source\TntGrids.pas',
TntComCtrls in '..\..\Source\TntComCtrls.pas',
TntDB in '..\..\Source\TntDB.pas',
TntDBCtrls in '..\..\Source\TntDBCtrls.pas',
TntDBGrids in '..\..\Source\TntDBGrids.pas',
TntStdActns in '..\..\Source\TntStdActns.pas',
TntExtActns in '..\..\Source\TntExtActns.pas',
TntListActns in '..\..\Source\TntListActns.pas',
TntDBActns in '..\..\Source\TntDBActns.pas',
TntBandActn in '..\..\Source\TntBandActn.pas',
TntDBLogDlg in '..\..\Source\TntDBLogDlg.pas',
TntFormatStrUtils in '..\..\Source\TntFormatStrUtils.pas',
TntWideStrings in '..\..\Source\TntWideStrings.pas',
TntWideStrUtils in '..\..\Source\TntWideStrUtils.pas';
end.

BIN
internal/1/Delphi/d7/TntUnicodeVcl_R70.res Normal file
View File

Binary file not shown.

23
internal/1/Delphi/d7/TntUnicode_7.bpg Normal file
View File

@ -0,0 +1,23 @@
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = TntUnicodeVcl_R70.bpl TntUnicodeVcl_D70.bpl
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
TntUnicodeVcl_R70.bpl: TntUnicodeVcl_R70.dpk
$(DCC)
TntUnicodeVcl_D70.bpl: TntUnicodeVcl_D70.dpk
$(DCC)

172
internal/1/Delphi/d9/TntUnicodeVcl_D90.bdsproj Normal file
View File

@ -0,0 +1,172 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality" Type="String">Delphi.Personality</Option>
<Option Name="ProjectType" Type="String"></Option>
<Option Name="Version" Type="String">1.0</Option>
<Option Name="GUID" Type="String">{380B243E-5C94-43AA-A35E-D6F56064D675}</Option>
</Option>
</PersonalityInfo>
<Delphi.Personality>
<Source>
<Source Name="MainSource" Type="String">TntUnicodeVcl_D90.dpk</Source>
</Source>
<FileVersion>
<FileVersion Name="Version" Type="String">7.0</FileVersion>
</FileVersion>
<Compiler>
<Compiler Name="A" Type="Integer">8</Compiler>
<Compiler Name="B" Type="Integer">0</Compiler>
<Compiler Name="C" Type="Integer">1</Compiler>
<Compiler Name="D" Type="Integer">1</Compiler>
<Compiler Name="E" Type="Integer">0</Compiler>
<Compiler Name="F" Type="Integer">0</Compiler>
<Compiler Name="G" Type="Integer">1</Compiler>
<Compiler Name="H" Type="Integer">1</Compiler>
<Compiler Name="I" Type="Integer">1</Compiler>
<Compiler Name="J" Type="Integer">0</Compiler>
<Compiler Name="K" Type="Integer">0</Compiler>
<Compiler Name="L" Type="Integer">1</Compiler>
<Compiler Name="M" Type="Integer">0</Compiler>
<Compiler Name="N" Type="Integer">1</Compiler>
<Compiler Name="O" Type="Integer">1</Compiler>
<Compiler Name="P" Type="Integer">1</Compiler>
<Compiler Name="Q" Type="Integer">1</Compiler>
<Compiler Name="R" Type="Integer">1</Compiler>
<Compiler Name="S" Type="Integer">0</Compiler>
<Compiler Name="T" Type="Integer">1</Compiler>
<Compiler Name="U" Type="Integer">0</Compiler>
<Compiler Name="V" Type="Integer">1</Compiler>
<Compiler Name="W" Type="Integer">0</Compiler>
<Compiler Name="X" Type="Integer">1</Compiler>
<Compiler Name="Y" Type="Integer">1</Compiler>
<Compiler Name="Z" Type="Integer">1</Compiler>
<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
<Compiler Name="UnitAliases" Type="String"></Compiler>
<Compiler Name="NamespacePrefix" Type="String"></Compiler>
<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
<Compiler Name="DefaultNamespace" Type="String"></Compiler>
<Compiler Name="SymbolDeprecated" Type="Boolean">True</Compiler>
<Compiler Name="SymbolLibrary" Type="Boolean">True</Compiler>
<Compiler Name="SymbolPlatform" Type="Boolean">True</Compiler>
<Compiler Name="SymbolExperimental" Type="Boolean">True</Compiler>
<Compiler Name="UnitLibrary" Type="Boolean">True</Compiler>
<Compiler Name="UnitPlatform" Type="Boolean">True</Compiler>
<Compiler Name="UnitDeprecated" Type="Boolean">True</Compiler>
<Compiler Name="UnitExperimental" Type="Boolean">True</Compiler>
<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
<Compiler Name="Garbage" Type="Boolean">True</Compiler>
<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
<Compiler Name="UnsafeType" Type="Boolean">False</Compiler>
<Compiler Name="UnsafeCode" Type="Boolean">False</Compiler>
<Compiler Name="UnsafeCast" Type="Boolean">False</Compiler>
<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>
</Compiler>
<Linker>
<Linker Name="MapFile" Type="Integer">0</Linker>
<Linker Name="OutputObjs" Type="Integer">0</Linker>
<Linker Name="ConsoleApp" Type="Integer">1</Linker>
<Linker Name="DebugInfo" Type="Boolean">False</Linker>
<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
<Linker Name="MinStackSize" Type="Integer">16384</Linker>
<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
<Linker Name="ImageBase" Type="Integer">4194304</Linker>
<Linker Name="ExeDescription" Type="String">Tnt Unicode Controls</Linker>
</Linker>
<Directories>
<Directories Name="OutputDir" Type="String"></Directories>
<Directories Name="UnitOutputDir" Type="String"></Directories>
<Directories Name="PackageDLLOutputDir" Type="String"></Directories>
<Directories Name="PackageDCPOutputDir" Type="String"></Directories>
<Directories Name="SearchPath" Type="String"></Directories>
<Directories Name="Packages" Type="String"></Directories>
<Directories Name="Conditionals" Type="String"></Directories>
<Directories Name="DebugSourceDirs" Type="String"></Directories>
<Directories Name="UsePackages" Type="Boolean">False</Directories>
</Directories>
<Parameters>
<Parameters Name="RunParams" Type="String"></Parameters>
<Parameters Name="HostApplication" Type="String"></Parameters>
<Parameters Name="Launcher" Type="String"></Parameters>
<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
<Parameters Name="DebugCWD" Type="String"></Parameters>
<Parameters Name="RemoteHost" Type="String"></Parameters>
<Parameters Name="RemotePath" Type="String"></Parameters>
<Parameters Name="RemoteLauncher" Type="String"></Parameters>
<Parameters Name="RemoteCWD" Type="String"></Parameters>
<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>
</Parameters>
<Language>
<Language Name="ActiveLang" Type="String"></Language>
<Language Name="ProjectLang" Type="String">$00000000</Language>
<Language Name="RootDir" Type="String"></Language>
</Language>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo" Type="Boolean">True</VersionInfo>
<VersionInfo Name="AutoIncBuild" Type="Boolean">False</VersionInfo>
<VersionInfo Name="MajorVer" Type="Integer">2</VersionInfo>
<VersionInfo Name="MinorVer" Type="Integer">3</VersionInfo>
<VersionInfo Name="Release" Type="Integer">0</VersionInfo>
<VersionInfo Name="Build" Type="Integer">1</VersionInfo>
<VersionInfo Name="Debug" Type="Boolean">False</VersionInfo>
<VersionInfo Name="PreRelease" Type="Boolean">False</VersionInfo>
<VersionInfo Name="Special" Type="Boolean">False</VersionInfo>
<VersionInfo Name="Private" Type="Boolean">False</VersionInfo>
<VersionInfo Name="DLL" Type="Boolean">False</VersionInfo>
<VersionInfo Name="Locale" Type="Integer">1033</VersionInfo>
<VersionInfo Name="CodePage" Type="Integer">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion" Type="String">2.3.0.1</VersionInfoKeys>
<VersionInfoKeys Name="InternalName" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion" Type="String">2.3.0.1</VersionInfoKeys>
</VersionInfoKeys>
</Delphi.Personality>
</BorlandProject>

35
internal/1/Delphi/d9/TntUnicodeVcl_D90.cfg Normal file
View File

@ -0,0 +1,35 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q+
-$R+
-$S-
-$T+
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

55
internal/1/Delphi/d9/TntUnicodeVcl_D90.dpk Normal file
View File

@ -0,0 +1,55 @@
package TntUnicodeVcl_D90;
{$R *.res}
{$R '..\..\Design\TntComCtrls.dcr'}
{$R '..\..\Design\TntDBCtrls.dcr'}
{$R '..\..\Design\TntStdCtrls.dcr'}
{$R '..\..\Design\TntActnList.dcr'}
{$R '..\..\Design\TntMenus.dcr'}
{$R '..\..\Design\TntExtCtrls.dcr'}
{$R '..\..\Design\TntForms.dcr'}
{$R '..\..\Design\TntGrids.dcr'}
{$R '..\..\Design\TntButtons.dcr'}
{$R '..\..\Design\TntDialogs.dcr'}
{$R '..\..\Design\TntExtDlgs.dcr'}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Tnt Unicode Controls'}
{$DESIGNONLY}
{$IMPLICITBUILD ON}
requires
dcldb,
designide,
TntUnicodeVcl_R90;
contains
TntForms_Design in '..\..\Design\TntForms_Design.pas',
TntComCtrls_Design in '..\..\Design\TntComCtrls_Design.pas',
TntDBGrids_Design in '..\..\Design\TntDBGrids_Design.pas',
TntDesignEditors_Design in '..\..\Design\TntDesignEditors_Design.pas',
TntStrEdit_Design in '..\..\Design\TntStrEdit_Design.pas',
TntUnicodeVcl_Register in '..\..\Design\TntUnicodeVcl_Register.pas',
TntActions_Design in '..\..\Design\TntActions_Design.pas',
TntMenus_Design in '..\..\Design\TntMenus_Design.pas';
end.

BIN
internal/1/Delphi/d9/TntUnicodeVcl_D90.res Normal file
View File

Binary file not shown.

172
internal/1/Delphi/d9/TntUnicodeVcl_R90.bdsproj Normal file
View File

@ -0,0 +1,172 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality" Type="String">Delphi.Personality</Option>
<Option Name="ProjectType" Type="String"></Option>
<Option Name="Version" Type="String">1.0</Option>
<Option Name="GUID" Type="String">{CC2B511C-6D3E-4BEC-8A86-33665C7643E7}</Option>
</Option>
</PersonalityInfo>
<Delphi.Personality>
<Source>
<Source Name="MainSource" Type="String">TntUnicodeVcl_R90.dpk</Source>
</Source>
<FileVersion>
<FileVersion Name="Version" Type="String">7.0</FileVersion>
</FileVersion>
<Compiler>
<Compiler Name="A" Type="Integer">8</Compiler>
<Compiler Name="B" Type="Integer">0</Compiler>
<Compiler Name="C" Type="Integer">1</Compiler>
<Compiler Name="D" Type="Integer">1</Compiler>
<Compiler Name="E" Type="Integer">0</Compiler>
<Compiler Name="F" Type="Integer">0</Compiler>
<Compiler Name="G" Type="Integer">1</Compiler>
<Compiler Name="H" Type="Integer">1</Compiler>
<Compiler Name="I" Type="Integer">1</Compiler>
<Compiler Name="J" Type="Integer">0</Compiler>
<Compiler Name="K" Type="Integer">0</Compiler>
<Compiler Name="L" Type="Integer">1</Compiler>
<Compiler Name="M" Type="Integer">0</Compiler>
<Compiler Name="N" Type="Integer">1</Compiler>
<Compiler Name="O" Type="Integer">1</Compiler>
<Compiler Name="P" Type="Integer">1</Compiler>
<Compiler Name="Q" Type="Integer">1</Compiler>
<Compiler Name="R" Type="Integer">1</Compiler>
<Compiler Name="S" Type="Integer">0</Compiler>
<Compiler Name="T" Type="Integer">1</Compiler>
<Compiler Name="U" Type="Integer">0</Compiler>
<Compiler Name="V" Type="Integer">1</Compiler>
<Compiler Name="W" Type="Integer">0</Compiler>
<Compiler Name="X" Type="Integer">1</Compiler>
<Compiler Name="Y" Type="Integer">1</Compiler>
<Compiler Name="Z" Type="Integer">1</Compiler>
<Compiler Name="ShowHints" Type="Boolean">True</Compiler>
<Compiler Name="ShowWarnings" Type="Boolean">True</Compiler>
<Compiler Name="UnitAliases" Type="String"></Compiler>
<Compiler Name="NamespacePrefix" Type="String"></Compiler>
<Compiler Name="GenerateDocumentation" Type="Boolean">False</Compiler>
<Compiler Name="DefaultNamespace" Type="String"></Compiler>
<Compiler Name="SymbolDeprecated" Type="Boolean">True</Compiler>
<Compiler Name="SymbolLibrary" Type="Boolean">True</Compiler>
<Compiler Name="SymbolPlatform" Type="Boolean">True</Compiler>
<Compiler Name="SymbolExperimental" Type="Boolean">True</Compiler>
<Compiler Name="UnitLibrary" Type="Boolean">True</Compiler>
<Compiler Name="UnitPlatform" Type="Boolean">True</Compiler>
<Compiler Name="UnitDeprecated" Type="Boolean">True</Compiler>
<Compiler Name="UnitExperimental" Type="Boolean">True</Compiler>
<Compiler Name="HResultCompat" Type="Boolean">True</Compiler>
<Compiler Name="HidingMember" Type="Boolean">True</Compiler>
<Compiler Name="HiddenVirtual" Type="Boolean">True</Compiler>
<Compiler Name="Garbage" Type="Boolean">True</Compiler>
<Compiler Name="BoundsError" Type="Boolean">True</Compiler>
<Compiler Name="ZeroNilCompat" Type="Boolean">True</Compiler>
<Compiler Name="StringConstTruncated" Type="Boolean">True</Compiler>
<Compiler Name="ForLoopVarVarPar" Type="Boolean">True</Compiler>
<Compiler Name="TypedConstVarPar" Type="Boolean">True</Compiler>
<Compiler Name="AsgToTypedConst" Type="Boolean">True</Compiler>
<Compiler Name="CaseLabelRange" Type="Boolean">True</Compiler>
<Compiler Name="ForVariable" Type="Boolean">True</Compiler>
<Compiler Name="ConstructingAbstract" Type="Boolean">True</Compiler>
<Compiler Name="ComparisonFalse" Type="Boolean">True</Compiler>
<Compiler Name="ComparisonTrue" Type="Boolean">True</Compiler>
<Compiler Name="ComparingSignedUnsigned" Type="Boolean">True</Compiler>
<Compiler Name="CombiningSignedUnsigned" Type="Boolean">True</Compiler>
<Compiler Name="UnsupportedConstruct" Type="Boolean">True</Compiler>
<Compiler Name="FileOpen" Type="Boolean">True</Compiler>
<Compiler Name="FileOpenUnitSrc" Type="Boolean">True</Compiler>
<Compiler Name="BadGlobalSymbol" Type="Boolean">True</Compiler>
<Compiler Name="DuplicateConstructorDestructor" Type="Boolean">True</Compiler>
<Compiler Name="InvalidDirective" Type="Boolean">True</Compiler>
<Compiler Name="PackageNoLink" Type="Boolean">True</Compiler>
<Compiler Name="PackageThreadVar" Type="Boolean">True</Compiler>
<Compiler Name="ImplicitImport" Type="Boolean">True</Compiler>
<Compiler Name="HPPEMITIgnored" Type="Boolean">True</Compiler>
<Compiler Name="NoRetVal" Type="Boolean">True</Compiler>
<Compiler Name="UseBeforeDef" Type="Boolean">True</Compiler>
<Compiler Name="ForLoopVarUndef" Type="Boolean">True</Compiler>
<Compiler Name="UnitNameMismatch" Type="Boolean">True</Compiler>
<Compiler Name="NoCFGFileFound" Type="Boolean">True</Compiler>
<Compiler Name="MessageDirective" Type="Boolean">True</Compiler>
<Compiler Name="ImplicitVariants" Type="Boolean">True</Compiler>
<Compiler Name="UnicodeToLocale" Type="Boolean">True</Compiler>
<Compiler Name="LocaleToUnicode" Type="Boolean">True</Compiler>
<Compiler Name="ImagebaseMultiple" Type="Boolean">True</Compiler>
<Compiler Name="SuspiciousTypecast" Type="Boolean">True</Compiler>
<Compiler Name="PrivatePropAccessor" Type="Boolean">True</Compiler>
<Compiler Name="UnsafeType" Type="Boolean">True</Compiler>
<Compiler Name="UnsafeCode" Type="Boolean">True</Compiler>
<Compiler Name="UnsafeCast" Type="Boolean">True</Compiler>
<Compiler Name="OptionTruncated" Type="Boolean">True</Compiler>
<Compiler Name="WideCharReduced" Type="Boolean">True</Compiler>
<Compiler Name="DuplicatesIgnored" Type="Boolean">True</Compiler>
</Compiler>
<Linker>
<Linker Name="MapFile" Type="Integer">0</Linker>
<Linker Name="OutputObjs" Type="Integer">0</Linker>
<Linker Name="ConsoleApp" Type="Integer">1</Linker>
<Linker Name="DebugInfo" Type="Boolean">False</Linker>
<Linker Name="RemoteSymbols" Type="Boolean">False</Linker>
<Linker Name="GenerateDRC" Type="Boolean">False</Linker>
<Linker Name="MinStackSize" Type="Integer">16384</Linker>
<Linker Name="MaxStackSize" Type="Integer">1048576</Linker>
<Linker Name="ImageBase" Type="Integer">4194304</Linker>
<Linker Name="ExeDescription" Type="String">Tnt Unicode Controls - Runtime</Linker>
</Linker>
<Directories>
<Directories Name="OutputDir" Type="String"></Directories>
<Directories Name="UnitOutputDir" Type="String"></Directories>
<Directories Name="PackageDLLOutputDir" Type="String"></Directories>
<Directories Name="PackageDCPOutputDir" Type="String"></Directories>
<Directories Name="SearchPath" Type="String"></Directories>
<Directories Name="Packages" Type="String"></Directories>
<Directories Name="Conditionals" Type="String"></Directories>
<Directories Name="DebugSourceDirs" Type="String"></Directories>
<Directories Name="UsePackages" Type="Boolean">False</Directories>
</Directories>
<Parameters>
<Parameters Name="RunParams" Type="String"></Parameters>
<Parameters Name="HostApplication" Type="String"></Parameters>
<Parameters Name="Launcher" Type="String"></Parameters>
<Parameters Name="UseLauncher" Type="Boolean">False</Parameters>
<Parameters Name="DebugCWD" Type="String"></Parameters>
<Parameters Name="RemoteHost" Type="String"></Parameters>
<Parameters Name="RemotePath" Type="String"></Parameters>
<Parameters Name="RemoteLauncher" Type="String"></Parameters>
<Parameters Name="RemoteCWD" Type="String"></Parameters>
<Parameters Name="RemoteDebug" Type="Boolean">False</Parameters>
</Parameters>
<Language>
<Language Name="ActiveLang" Type="String"></Language>
<Language Name="ProjectLang" Type="String">$00000000</Language>
<Language Name="RootDir" Type="String"></Language>
</Language>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo" Type="Boolean">True</VersionInfo>
<VersionInfo Name="AutoIncBuild" Type="Boolean">False</VersionInfo>
<VersionInfo Name="MajorVer" Type="Integer">2</VersionInfo>
<VersionInfo Name="MinorVer" Type="Integer">3</VersionInfo>
<VersionInfo Name="Release" Type="Integer">0</VersionInfo>
<VersionInfo Name="Build" Type="Integer">1</VersionInfo>
<VersionInfo Name="Debug" Type="Boolean">False</VersionInfo>
<VersionInfo Name="PreRelease" Type="Boolean">False</VersionInfo>
<VersionInfo Name="Special" Type="Boolean">False</VersionInfo>
<VersionInfo Name="Private" Type="Boolean">False</VersionInfo>
<VersionInfo Name="DLL" Type="Boolean">False</VersionInfo>
<VersionInfo Name="Locale" Type="Integer">1033</VersionInfo>
<VersionInfo Name="CodePage" Type="Integer">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion" Type="String">2.3.0.1</VersionInfoKeys>
<VersionInfoKeys Name="InternalName" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName" Type="String"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion" Type="String">2.3.0.1</VersionInfoKeys>
</VersionInfoKeys>
</Delphi.Personality>
</BorlandProject>

32
internal/1/Delphi/d9/TntUnicodeVcl_R90.cfg Normal file
View File

@ -0,0 +1,32 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q+
-$R+
-$S-
-$T+
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-H+
-W+
-M
-$M16384,1048576
-K$00400000

72
internal/1/Delphi/d9/TntUnicodeVcl_R90.dpk Normal file
View File

@ -0,0 +1,72 @@
package TntUnicodeVcl_R90;
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS ON}
{$RANGECHECKS ON}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS ON}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Tnt Unicode Controls - Runtime'}
{$RUNONLY}
{$IMPLICITBUILD ON}
requires
vcl,
vclx,
vcldb,
dsnap,
vclactnband;
contains
ActiveIMM_TLB in '..\..\Source\ActiveIMM_TLB.pas',
TntSystem in '..\..\Source\TntSystem.pas',
TntAxCtrls in '..\..\Source\TntAxCtrls.pas',
TntClipbrd in '..\..\Source\TntClipbrd.pas',
TntWindows in '..\..\Source\TntWindows.pas',
TntSysUtils in '..\..\Source\TntSysUtils.pas',
TntClasses in '..\..\Source\TntClasses.pas',
TntDialogs in '..\..\Source\TntDialogs.pas',
TntFileCtrl in '..\..\Source\TntFileCtrl.pas',
TntExtDlgs in '..\..\Source\TntExtDlgs.pas',
TntRegistry in '..\..\Source\TntRegistry.pas',
TntGraphics in '..\..\Source\TntGraphics.pas',
TntControls in '..\..\Source\TntControls.pas',
TntActnList in '..\..\Source\TntActnList.pas',
TntMenus in '..\..\Source\TntMenus.pas',
TntForms in '..\..\Source\TntForms.pas',
TntStdCtrls in '..\..\Source\TntStdCtrls.pas',
TntExtCtrls in '..\..\Source\TntExtCtrls.pas',
TntButtons in '..\..\Source\TntButtons.pas',
TntCheckLst in '..\..\Source\TntCheckLst.pas',
TntGrids in '..\..\Source\TntGrids.pas',
TntComCtrls in '..\..\Source\TntComCtrls.pas',
TntDB in '..\..\Source\TntDB.pas',
TntDBCtrls in '..\..\Source\TntDBCtrls.pas',
TntDBGrids in '..\..\Source\TntDBGrids.pas',
TntStdActns in '..\..\Source\TntStdActns.pas',
TntExtActns in '..\..\Source\TntExtActns.pas',
TntListActns in '..\..\Source\TntListActns.pas',
TntDBActns in '..\..\Source\TntDBActns.pas',
TntBandActn in '..\..\Source\TntBandActn.pas',
TntDBLogDlg in '..\..\Source\TntDBLogDlg.pas',
TntFormatStrUtils in '..\..\Source\TntFormatStrUtils.pas',
TntWideStrings in '..\..\Source\TntWideStrings.pas',
TntWideStrUtils in '..\..\Source\TntWideStrUtils.pas';
end.

BIN
internal/1/Delphi/d9/TntUnicodeVcl_R90.res Normal file
View File

Binary file not shown.

183
internal/1/Design/TntActions_Design.pas Normal file
View File

@ -0,0 +1,183 @@
{*****************************************************************************}
{ }
{ Tnt Delphi Unicode Controls }
{ http://www.tntware.com/delphicontrols/unicode/ }
{ Version: 2.3.0 }
{ }
{ Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com) }
{ }
{*****************************************************************************}
unit TntActions_Design;
{$INCLUDE ..\Source\TntCompilers.inc}
interface
procedure Register;
implementation
uses
Classes, ActnList, TntActnList, StdActns, TntStdActns,
ExtActns, TntExtActns, ListActns, TntListActns, BandActn, TntBandActn,
DBActns, TntDBActns, TntDesignEditors_Design;
procedure Register;
begin
RegisterClass(TTntAction);
// StdActns
RegisterClass(TTntEditAction);
RegisterClass(TTntEditCut);
RegisterClass(TTntEditCopy);
RegisterClass(TTntEditPaste);
RegisterClass(TTntEditSelectAll);
RegisterClass(TTntEditUndo);
RegisterClass(TTntEditDelete);
RegisterClass(TTntWindowAction);
RegisterClass(TTntWindowClose);
RegisterClass(TTntWindowCascade);
RegisterClass(TTntWindowTileHorizontal);
RegisterClass(TTntWindowTileVertical);
RegisterClass(TTntWindowMinimizeAll);
RegisterClass(TTntWindowArrange);
RegisterClass(TTntHelpAction);
RegisterClass(TTntHelpContents);
RegisterClass(TTntHelpTopicSearch);
RegisterClass(TTntHelpOnHelp);
RegisterClass(TTntHelpContextAction);
RegisterClass(TTntFileOpen);
RegisterClass(TTntFileOpenWith);
RegisterClass(TTntFileSaveAs);
RegisterClass(TTntFilePrintSetup);
RegisterClass(TTntFileExit);
RegisterClass(TTntSearchFind);
RegisterClass(TTntSearchReplace);
RegisterClass(TTntSearchFindFirst);
RegisterClass(TTntSearchFindNext);
RegisterClass(TTntFontEdit);
RegisterClass(TTntColorSelect);
RegisterClass(TTntPrintDlg);
// ExtActns
RegisterClass(TTntFileRun);
RegisterClass(TTntRichEditAction);
RegisterClass(TTntRichEditBold);
RegisterClass(TTntRichEditItalic);
RegisterClass(TTntRichEditUnderline);
RegisterClass(TTntRichEditStrikeOut);
RegisterClass(TTntRichEditBullets);
RegisterClass(TTntRichEditAlignLeft);
RegisterClass(TTntRichEditAlignRight);
RegisterClass(TTntRichEditAlignCenter);
RegisterClass(TTntPreviousTab);
RegisterClass(TTntNextTab);
RegisterClass(TTntOpenPicture);
RegisterClass(TTntSavePicture);
RegisterClass(TTntURLAction);
RegisterClass(TTntBrowseURL);
RegisterClass(TTntDownLoadURL);
RegisterClass(TTntSendMail);
RegisterClass(TTntListControlCopySelection);
RegisterClass(TTntListControlDeleteSelection);
RegisterClass(TTntListControlSelectAll);
RegisterClass(TTntListControlClearSelection);
RegisterClass(TTntListControlMoveSelection);
// ListActns
RegisterClass(TTntStaticListAction);
RegisterClass(TTntVirtualListAction);
{$IFDEF COMPILER_7_UP}
RegisterClass(TTntFilePageSetup);
{$ENDIF}
// DBActns
RegisterClass(TTntDataSetAction);
RegisterClass(TTntDataSetFirst);
RegisterClass(TTntDataSetPrior);
RegisterClass(TTntDataSetNext);
RegisterClass(TTntDataSetLast);
RegisterClass(TTntDataSetInsert);
RegisterClass(TTntDataSetDelete);
RegisterClass(TTntDataSetEdit);
RegisterClass(TTntDataSetPost);
RegisterClass(TTntDataSetCancel);
RegisterClass(TTntDataSetRefresh);
// BandActn
RegisterClass(TTntCustomizeActionBars);
end;
//------------------------
function GetTntActionClass(OldActionClass: TContainedActionClass): TContainedActionClass;
begin
Result := TContainedActionClass(GetClass('TTnt' + Copy(OldActionClass.ClassName, 2, Length(OldActionClass.ClassName))));
end;
type
TAccessContainedAction = class(TContainedAction);
function UpgradeAction(ActionList: TTntActionList; OldAction: TContainedAction): TContainedAction;
var
Name: TComponentName;
i: integer;
NewActionClass: TContainedActionClass;
begin
Result := nil;
if (OldAction = nil) or (OldAction.Owner = nil) or (OldAction.Name = '') then
Exit;
NewActionClass := GetTntActionClass(TContainedActionClass(OldAction.ClassType));
if NewActionClass <> nil then begin
// create new action
Result := NewActionClass.Create(OldAction.Owner) as TContainedAction;
Include(TAccessContainedAction(Result).FComponentStyle, csTransient);
// copy base class info
Result.ActionComponent := OldAction.ActionComponent;
Result.Category := OldAction.Category; { Assign Category before ActionList/Index to avoid flicker. }
Result.ActionList := ActionList;
Result.Index := OldAction.Index;
// assign props
Result.Assign(OldAction);
// point all links to this new action
for i := TAccessContainedAction(OldAction).FClients.Count - 1 downto 0 do
TBasicActionLink(TAccessContainedAction(OldAction).FClients[i]).Action := Result;
// free old object, preserve name...
Name := OldAction.Name;
OldAction.Free;
Result.Name := Name; { link up to old name }
Exclude(TAccessContainedAction(Result).FComponentStyle, csTransient);
end;
end;
procedure TntActionList_UpgradeActionListItems(ActionList: TTntActionList);
var
DesignerNotify: IDesignerNotify;
Designer: ITntDesigner;
TntSelections: TTntDesignerSelections;
i: integer;
OldAction, NewAction: TContainedAction;
begin
DesignerNotify := FindRootDesigner(ActionList);
if (DesignerNotify <> nil) then begin
DesignerNotify.QueryInterface(ITntDesigner, Designer);
if (Designer <> nil) then begin
TntSelections := TTntDesignerSelections.Create;
try
Designer.GetSelections(TntSelections);
for i := ActionList.ActionCount - 1 downto 0 do begin
OldAction := ActionList.Actions[i];
NewAction := UpgradeAction(ActionList, OldAction);
if (NewAction <> nil) then
TntSelections.ReplaceSelection(OldAction, NewAction);
end;
Designer.SetSelections(TntSelections);
finally
TntSelections.Free;
end;
end;
end;
end;
initialization
UpgradeActionListItemsProc := TntActionList_UpgradeActionListItems;
end.

228
internal/1/Design/TntComCtrls_Design.pas Normal file
View File

@ -0,0 +1,228 @@
{*****************************************************************************}
{ }
{ Tnt Delphi Unicode Controls }
{ http://www.tntware.com/delphicontrols/unicode/ }
{ Version: 2.3.0 }
{ }
{ Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com) }
{ }
{*****************************************************************************}
unit TntComCtrls_Design;
{$INCLUDE ..\Source\TntCompilers.inc}
interface
uses
DesignIntf, DesignMenus, DesignEditors, Classes, ComCtrls;
type
IPrepareMenuItem = IMenuItem;
TTntListViewEditor = class(TComponentEditor)
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string{TNT-ALLOW string}; override;
function GetVerbCount: Integer; override;
end;
TTntPageControlEditor = class(TDefaultEditor)
private
function PageControl: TPageControl{TNT-ALLOW TPageControl};
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string{TNT-ALLOW string}; override;
function GetVerbCount: Integer; override;
procedure PrepareItem(Index: Integer; const AItem: IPrepareMenuItem); override;
end;
TTntStatusBarEditor = class(TComponentEditor)
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string{TNT-ALLOW string}; override;
function GetVerbCount: Integer; override;
end;
TTntToolBarEditor = class(TComponentEditor)
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string{TNT-ALLOW string}; override;
function GetVerbCount: Integer; override;
end;
procedure Register;
implementation
uses
SysUtils, DsnConst, TntComCtrls, TntDesignEditors_Design;
procedure Register;
begin
RegisterComponentEditor(TTntListView, TTntListViewEditor);
RegisterComponentEditor(TTntPageControl, TTntPageControlEditor);
RegisterComponentEditor(TTntTabSheet, TTntPageControlEditor);
RegisterComponentEditor(TTntStatusBar, TTntStatusBarEditor);
RegisterComponentEditor(TTntToolBar, TTntToolBarEditor);
RegisterComponentEditor(TTntToolButton, TTntToolBarEditor);
end;
{ TTntListViewEditor }
function TTntListViewEditor.GetVerbCount: Integer;
begin
Result := 2;
end;
function TTntListViewEditor.GetVerb(Index: Integer): string{TNT-ALLOW string};
begin
case Index of
0: Result := SListColumnsEditor;
1: Result := SListItemsEditor;
end;
end;
procedure TTntListViewEditor.ExecuteVerb(Index: Integer);
begin
case Index of
0: EditPropertyWithDialog(Component, 'Columns', Designer);
1: EditPropertyWithDialog(Component, 'Items', Designer);
end;
end;
{ TTntPageControlEditor }
function TTntPageControlEditor.PageControl: TPageControl{TNT-ALLOW TPageControl};
begin
if Component is TTabSheet{TNT-ALLOW TTabSheet} then
Result := TTabSheet{TNT-ALLOW TTabSheet}(Component).PageControl
else
Result := Component as TPageControl{TNT-ALLOW TPageControl};
end;
function TTntPageControlEditor.GetVerbCount: Integer;
begin
Result := 4;
end;
function TTntPageControlEditor.GetVerb(Index: Integer): string{TNT-ALLOW string};
begin
case Index of
0: Result := SNewPage;
1: Result := SNextPage;
2: Result := SPrevPage;
3: Result := SDeletePage;
end;
end;
procedure TTntPageControlEditor.PrepareItem(Index: Integer; const AItem: IPrepareMenuItem);
begin
AItem.Enabled := (Index <> 3) or (PageControl.PageCount > 0);
end;
type TAccessPageControl = class(TPageControl{TNT-ALLOW TPageControl});
procedure TTntPageControlEditor.ExecuteVerb(Index: Integer);
procedure CreateNewTabSheet;
var
NewTabsheet: TTntTabSheet;
begin
NewTabSheet := TTntTabSheet.Create(PageControl.Owner);
NewTabSheet.PageControl := Self.PageControl;
with NewTabSheet do begin
Name := Designer.UniqueName(ClassName);
Caption := Name;
Visible := True;
end;
PageControl.ActivePage := NewTabSheet;
end;
begin
case Index of
0: CreateNewTabSheet;
1: PageControl.SelectNextPage(True, False);
2: PageControl.SelectNextPage(False, False);
3: if PageControl.ActivePage <> nil then
PageControl.ActivePage.Free;
end;
end;
{ TTntStatusBarEditor }
function TTntStatusBarEditor.GetVerbCount: Integer;
begin
Result := 1;
end;
function TTntStatusBarEditor.GetVerb(Index: Integer): string{TNT-ALLOW string};
begin
case Index of
0: Result := SStatusBarPanelEdit;
end;
end;
procedure TTntStatusBarEditor.ExecuteVerb(Index: Integer);
begin
case Index of
0: EditPropertyWithDialog(Component, 'Panels', Designer);
end;
end;
{ TTntToolBarEditor }
procedure TTntToolBarEditor.ExecuteVerb(Index: Integer);
var
ToolBar: TTntToolBar;
ToolButton: TTntToolButton;
I, J: Integer;
NewName: WideString;
begin
Assert(Index in [0, 1]);
if Component is TTntToolBar then
ToolBar := TTntToolBar(Component)
else if (Component is TTntToolButton) and (TTntToolButton(Component).Parent is TTntToolBar) then
ToolBar := TTntToolBar(TTntToolButton(Component).Parent)
else
Exit;
ToolButton := TTntToolButton.Create(Component.Owner);
I := 1;
repeat
NewName := 'TntToolButton' + IntToStr(I);
for J := 0 to ToolBar.ControlCount - 1 do
if WideSameText(ToolBar.Controls[J].Name, NewName) then
NewName := '';
Inc(I);
until NewName <> '';
ToolButton.Name := NewName;
if Index = 1 then begin
ToolButton.Style := tbsSeparator;
ToolButton.Width := 8;
end;
for I := 0 to ToolBar.ControlCount - 1 do
ToolButton.Left := ToolButton.Left + ToolBar.Controls[I].Width;
ToolButton.Parent := ToolBar;
end;
function TTntToolBarEditor.GetVerb(Index: Integer): string{TNT-ALLOW string};
begin
case Index of
0: Result := SNewToolButton;
1: Result := SNewToolSeparator;
end;
end;
function TTntToolBarEditor.GetVerbCount: Integer;
begin
Result := 2;
end;
end.

36
internal/1/Design/TntDBClientActns_Design.pas Normal file
View File

@ -0,0 +1,36 @@
{*****************************************************************************}
{ }
{ Tnt Delphi Unicode Controls }
{ http://www.tntware.com/delphicontrols/unicode/ }
{ Version: 2.3.0 }
{ }
{ Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com) }
{ }
{*****************************************************************************}
unit TntDBClientActns_Design;
{$INCLUDE ..\Source\TntCompilers.inc}
interface
uses
Classes;
procedure Register;
implementation
uses
TntDBClientActns;
procedure Register;
begin
// DBClientActns
RegisterClass(TTntClientDataSetApply);
RegisterClass(TTntClientDataSetRevert);
RegisterClass(TTntClientDataSetUndo);
end;
end.

58
internal/1/Design/TntDBGrids_Design.pas Normal file
View File

@ -0,0 +1,58 @@
{*****************************************************************************}
{ }
{ Tnt Delphi Unicode Controls }
{ http://www.tntware.com/delphicontrols/unicode/ }
{ Version: 2.3.0 }
{ }
{ Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com) }
{ }
{*****************************************************************************}
unit TntDBGrids_Design;
{$INCLUDE ..\Source\TntCompilers.inc}
interface
uses
DesignEditors, DesignIntf;
type
TTntDBGridEditor = class(TComponentEditor)
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string{TNT-ALLOW string}; override;
function GetVerbCount: Integer; override;
end;
procedure Register;
implementation
uses
TntDBGrids, DsnDBCst, TntDesignEditors_Design;
procedure Register;
begin
RegisterComponentEditor(TTntDBGrid, TTntDBGridEditor);
end;
{ TTntDBGridEditor }
function TTntDBGridEditor.GetVerbCount: Integer;
begin
Result := 1;
end;
function TTntDBGridEditor.GetVerb(Index: Integer): string{TNT-ALLOW string};
begin
Result := DsnDBCst.SDBGridColEditor;
end;
procedure TTntDBGridEditor.ExecuteVerb(Index: Integer);
begin
EditPropertyWithDialog(Component, 'Columns', Designer);
end;
end.

196
internal/1/Design/TntDesignEditors_Design.pas Normal file
View File

@ -0,0 +1,196 @@
{*****************************************************************************}
{ }
{ Tnt Delphi Unicode Controls }
{ http://www.tntware.com/delphicontrols/unicode/ }
{ Version: 2.3.0 }
{ }
{ Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com) }
{ }
{*****************************************************************************}
unit TntDesignEditors_Design;
{$INCLUDE ..\Source\TntCompilers.inc}
interface
uses
Classes, Forms, TypInfo, DesignIntf, DesignEditors;
type
ITntDesigner = IDesigner;
TTntDesignerSelections = class(TInterfacedObject, IDesignerSelections)
private
FList: TList;
{$IFDEF COMPILER_9_UP}
function GetDesignObject(Index: Integer): IDesignObject;
{$ENDIF}
protected
function Add(const Item: TPersistent): Integer;
function Equals(const List: IDesignerSelections): Boolean;
function Get(Index: Integer): TPersistent;
function GetCount: Integer;
property Count: Integer read GetCount;
property Items[Index: Integer]: TPersistent read Get; default;
public
constructor Create; virtual;
destructor Destroy; override;
procedure ReplaceSelection(const OldInst, NewInst: TPersistent);
end;
function GetObjectInspectorForm: TCustomForm;
procedure EditPropertyWithDialog(Component: TPersistent; const PropName: AnsiString; const Designer: ITntDesigner);
implementation
uses
SysUtils;
{ TTntDesignerSelections }
function TTntDesignerSelections.Add(const Item: TPersistent): Integer;
begin
Result := FList.Add(Item);
end;
constructor TTntDesignerSelections.Create;
begin
inherited;
FList := TList.Create;
end;
destructor TTntDesignerSelections.Destroy;
begin
FList.Free;
inherited;
end;
function TTntDesignerSelections.Equals(const List: IDesignerSelections): Boolean;
var
I: Integer;
begin
Result := False;
if List.Count <> Count then Exit;
for I := 0 to Count - 1 do
begin
if Items[I] <> List[I] then Exit;
end;
Result := True;
end;
function TTntDesignerSelections.Get(Index: Integer): TPersistent;
begin
Result := TPersistent(FList[Index]);
end;
function TTntDesignerSelections.GetCount: Integer;
begin
Result := FList.Count;
end;
{$IFDEF COMPILER_9_UP}
function TTntDesignerSelections.GetDesignObject(Index: Integer): IDesignObject;
begin
Result := nil; {TODO: Figure out what IDesignerSelections.GetDesignObject is all about. Must wait for more documentation!}
end;
{$ENDIF}
procedure TTntDesignerSelections.ReplaceSelection(const OldInst, NewInst: TPersistent);
var
Idx: Integer;
begin
Idx := FList.IndexOf(OldInst);
if Idx <> -1 then
FList[Idx] := NewInst;
end;
{//------------------------------
// Helpful discovery routines to explore the components and classes inside the IDE...
//
procedure EnumerateComponents(Comp: TComponent);
var
i: integer;
begin
for i := Comp.ComponentCount - 1 downto 0 do
MessageBoxW(0, PWideChar(WideString(Comp.Components[i].Name + ': ' + Comp.Components[i].ClassName)),
PWideChar(WideString(Comp.Name)), 0);
end;
procedure EnumerateClasses(Comp: TComponent);
var
AClass: TClass;
begin
AClass := Comp.ClassType;
repeat
MessageBoxW(0, PWideChar(WideString(AClass.ClassName)),
PWideChar(WideString(Comp.Name)), 0);
AClass := Aclass.ClassParent;
until AClass = nil;
end;
//------------------------------}
//------------------------------
function GetIdeMainForm: TCustomForm;
var
Comp: TComponent;
begin
Result := nil;
if Application <> nil then begin
Comp := Application.FindComponent('AppBuilder');
if Comp is TCustomForm then
Result := TCustomForm(Comp);
end;
end;
function GetObjectInspectorForm: TCustomForm;
var
Comp: TComponent;
IdeMainForm: TCustomForm;
begin
Result := nil;
IdeMainForm := GetIdeMainForm;
if IdeMainForm <> nil then begin
Comp := IdeMainForm.FindComponent('PropertyInspector');
if Comp is TCustomForm then
Result := TCustomForm(Comp);
end;
end;
{ TPropertyEditorWithDialog }
type
TPropertyEditorWithDialog = class
private
FPropName: AnsiString;
procedure CheckEditProperty(const Prop: IProperty);
procedure EditProperty(Component: TPersistent; const PropName: AnsiString; const Designer: ITntDesigner);
end;
procedure TPropertyEditorWithDialog.CheckEditProperty(const Prop: IProperty);
begin
if Prop.GetName = FPropName then
Prop.Edit;
end;
procedure TPropertyEditorWithDialog.EditProperty(Component: TPersistent; const PropName: AnsiString; const Designer: ITntDesigner);
var
Components: IDesignerSelections;
begin
FPropName := PropName;
Components := TDesignerSelections.Create;
Components.Add(Component);
GetComponentProperties(Components, [tkClass], Designer, CheckEditProperty);
end;
procedure EditPropertyWithDialog(Component: TPersistent; const PropName: AnsiString; const Designer: ITntDesigner);
begin
with TPropertyEditorWithDialog.Create do
try
EditProperty(Component, PropName, Designer);
finally
Free;
end;
end;
end.

422
internal/1/Design/TntForms_Design.pas Normal file
View File

@ -0,0 +1,422 @@
{*****************************************************************************}
{ }
{ Tnt Delphi Unicode Controls }
{ http://www.tntware.com/delphicontrols/unicode/ }
{ Version: 2.3.0 }
{ }
{ Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com) }
{ }
{*****************************************************************************}
unit TntForms_Design;
{$INCLUDE ..\Source\TntCompilers.inc}
interface
uses
Classes, Windows, DesignIntf, ToolsApi;
type HICON = LongWord;
type
TTntNewFormWizard = class(TNotifierObject, IOTAWizard, IOTARepositoryWizard,
IOTAFormWizard
{$IFDEF COMPILER_6_UP}, IOTARepositoryWizard60{$ENDIF}
{$IFDEF COMPILER_9_UP}, IOTARepositoryWizard80{$ENDIF})
protected
function ThisFormName: WideString;
function ThisFormClass: TComponentClass; virtual; abstract;
function ThisFormUnit: WideString;
public
// IOTAWizard
function GetIDString: AnsiString;
function GetName: AnsiString; virtual;
function GetState: TWizardState;
procedure Execute;
// IOTARepositoryWizard
function GetAuthor: AnsiString;
function GetComment: AnsiString; virtual; abstract;
function GetPage: AnsiString;
function GetGlyph: HICON;
{$IFDEF COMPILER_6_UP}
// IOTARepositoryWizard60
function GetDesigner: AnsiString;
{$ENDIF}
{$IFDEF COMPILER_9_UP}
// IOTARepositoryWizard80
function GetGalleryCategory: IOTAGalleryCategory;
function GetPersonality: AnsiString;
{$ENDIF}
end;
procedure Register;
implementation
uses
TntForms, DesignEditors, WCtlForm, TypInfo, SysUtils;
type
TTntNewTntFormWizard = class(TTntNewFormWizard)
protected
function ThisFormClass: TComponentClass; override;
public
function GetName: AnsiString; override;
function GetComment: AnsiString; override;
end;
TTntNewTntFrameWizard = class(TTntNewFormWizard)
protected
function ThisFormClass: TComponentClass; override;
public
function GetName: AnsiString; override;
function GetComment: AnsiString; override;
end;
TTntFrameCustomModule = class(TWinControlCustomModule)
public
function Nestable: Boolean; override;
end;
TTntFormCustomModule = class(TCustomModule)
public
class function DesignClass: TComponentClass; override;
end;
procedure Register;
begin
RegisterCustomModule(TTntFrame, TTntFrameCustomModule);
RegisterPackageWizard(TTntNewTntFrameWizard.Create);
//--
RegisterCustomModule(TTntForm, TTntFormCustomModule);
//--
RegisterPackageWizard(TTntNewTntFormWizard.Create);
end;
function GetFirstModuleSupporting(const IID: TGUID): IOTAModule;
var
ModuleServices: IOTAModuleServices;
i: integer;
begin
Result := nil;
if Assigned(BorlandIDEServices) then
begin
// look for the first project
ModuleServices := BorlandIDEServices as IOTAModuleServices;
for i := 0 to ModuleServices.ModuleCount - 1 do
if Supports(ModuleServices.Modules[i], IID, Result) then
Break;
end;
end;
function MyGetActiveProject: IOTAProject;
{$IFDEF COMPILER_7_UP}
begin
Result := ToolsAPI.GetActiveProject;
{$ELSE}
var
ProjectGroup: IOTAProjectGroup;
begin
ProjectGroup := GetFirstModuleSupporting(IOTAProjectGroup) as IOTAProjectGroup;
if ProjectGroup = nil then
Result := nil
else
Result := ProjectGroup.ActiveProject;
{$ENDIF}
if (Result = nil) then
Result := GetFirstModuleSupporting(IOTAProject) as IOTAProject;
end;
{ TTntNewFormCreator }
type
TTntNewFormCreator = class(TInterfacedObject, IOTACreator, IOTAModuleCreator)
private
FAncestorName: WideString;
FUnitName: WideString;
public
// IOTACreator
function GetCreatorType: AnsiString;
function GetExisting: Boolean;
function GetFileSystem: AnsiString;
function GetOwner: IOTAModule;
function GetUnnamed: Boolean;
// IOTAModuleCreator
function GetAncestorName: AnsiString;
function GetImplFileName: AnsiString;
function GetIntfFileName: AnsiString;
function GetFormName: AnsiString;
function GetMainForm: Boolean;
function GetShowForm: Boolean;
function GetShowSource: Boolean;
function NewFormFile(const FormIdent, AncestorIdent: AnsiString): IOTAFile;
function NewImplSource(const ModuleIdent, FormIdent, AncestorIdent: AnsiString): IOTAFile;
function NewIntfSource(const ModuleIdent, FormIdent, AncestorIdent: AnsiString): IOTAFile;
procedure FormCreated(const FormEditor: IOTAFormEditor);
public
constructor Create(const UnitName, AncestorName: WideString);
end;
TTntSourceFile = class(TInterfacedObject, IOTAFile)
private
FSource: AnsiString;
public
function GetSource: AnsiString;
function GetAge: TDateTime;
constructor Create(const Source: AnsiString);
end;
constructor TTntNewFormCreator.Create(const UnitName, AncestorName: WideString);
begin
inherited Create;
FUnitName := UnitName;
FAncestorName := AncestorName;
end;
procedure TTntNewFormCreator.FormCreated(const FormEditor: IOTAFormEditor);
begin
end;
function TTntNewFormCreator.GetAncestorName: AnsiString;
begin
Result := FAncestorName;
end;
function TTntNewFormCreator.GetCreatorType: AnsiString;
begin
Result := sForm;
end;
function TTntNewFormCreator.GetExisting: Boolean;
begin
Result := False;
end;
function TTntNewFormCreator.GetFileSystem: AnsiString;
begin
Result := '';
end;
function TTntNewFormCreator.GetFormName: AnsiString;
begin
Result := '';
end;
function TTntNewFormCreator.GetImplFileName: AnsiString;
begin
Result := '';
end;
function TTntNewFormCreator.GetIntfFileName: AnsiString;
begin
Result := '';
end;
function TTntNewFormCreator.GetMainForm: Boolean;
begin
Result := False;
end;
function TTntNewFormCreator.GetOwner: IOTAModule;
begin
Result := MyGetActiveProject;
end;
function TTntNewFormCreator.GetShowForm: Boolean;
begin
Result := True;
end;
function TTntNewFormCreator.GetShowSource: Boolean;
begin
Result := True;
end;
function TTntNewFormCreator.GetUnnamed: Boolean;
begin
Result := True;
end;
function TTntNewFormCreator.NewFormFile(const FormIdent, AncestorIdent: AnsiString): IOTAFile;
begin
Result := nil;
end;
function TTntNewFormCreator.NewImplSource(const ModuleIdent, FormIdent, AncestorIdent: AnsiString): IOTAFile;
const
cSource =
'unit %s;' + #13#10 +
'' + #13#10 +
'interface' + #13#10 +
'' + #13#10 +
'uses' + #13#10 +
' Windows, Messages, SysUtils' + {$IFDEF COMPILER_6_UP}', Variants' + {$ENDIF}
', Classes, Graphics, Controls, Forms,' + #13#10 + ' Dialogs, %s;' + #13#10 +
'' + #13#10 +
'type' + #13#10 +
' T%s = class(T%s)' + #13#10 +
' private' + #13#10 +
' { Private declarations }' + #13#10 +
' public' + #13#10 +
' { Public declarations }' + #13#10 +
' end;' + #13#10 +
'' + #13#10 +
'var' + #13#10 +
' %s: T%s;' + #13#10 +
'' + #13#10 +
'implementation' + #13#10 +
'' + #13#10 +
'{$R *.DFM}' + #13#10 +
'' + #13#10 +
'end.';
begin
Result := TTntSourceFile.Create(Format{TNT-ALLOW Format}(cSource,
[ModuleIdent, FUnitName, FormIdent, AncestorIdent, FormIdent, FormIdent]));
end;
function TTntNewFormCreator.NewIntfSource(const ModuleIdent, FormIdent, AncestorIdent: AnsiString): IOTAFile;
begin
Result := nil;
end;
{ TTntNewFormWizard }
function TTntNewFormWizard.ThisFormName: WideString;
begin
Result := ThisFormClass.ClassName;
Delete(Result, 1, 1); // drop the 'T'
end;
function TTntNewFormWizard.ThisFormUnit: WideString;
begin
Result := GetTypeData(ThisFormClass.ClassInfo).UnitName;
end;
function TTntNewFormWizard.GetName: AnsiString;
begin
Result := ThisFormName;
end;
function TTntNewFormWizard.GetAuthor: AnsiString;
begin
Result := 'Troy Wolbrink';
end;
function TTntNewFormWizard.GetPage: AnsiString;
begin
Result := 'New';
end;
function TTntNewFormWizard.GetGlyph: HICON;
begin
Result := 0;
end;
function TTntNewFormWizard.GetState: TWizardState;
begin
Result := [wsEnabled];
end;
function TTntNewFormWizard.GetIDString: AnsiString;
begin
Result := 'Tnt.Create_'+ThisFormName+'.Wizard';
end;
procedure TTntNewFormWizard.Execute;
var
Module: IOTAModule;
begin
Module := (BorlandIDEServices as IOTAModuleServices).CreateModule(TTntNewFormCreator.Create(ThisFormUnit, ThisFormName));
end;
{$IFDEF COMPILER_6_UP}
function TTntNewFormWizard.GetDesigner: AnsiString;
begin
Result := dVCL;
end;
{$ENDIF}
{$IFDEF COMPILER_9_UP}
function TTntNewFormWizard.GetGalleryCategory: IOTAGalleryCategory;
var
Manager: IOTAGalleryCategoryManager;
begin
Result := nil;
Manager := BorlandIDEServices as IOTAGalleryCategoryManager;
if Assigned(Manager) then
Result := Manager.FindCategory(sCategoryDelphiNew);
end;
function TTntNewFormWizard.GetPersonality: AnsiString;
begin
Result := sDelphiPersonality;
end;
{$ENDIF}
{ TTntSourceFile }
constructor TTntSourceFile.Create(const Source: AnsiString);
begin
FSource := Source;
end;
function TTntSourceFile.GetAge: TDateTime;
begin
Result := -1;
end;
function TTntSourceFile.GetSource: AnsiString;
begin
Result := FSource;
end;
{ TTntNewTntFormWizard }
function TTntNewTntFormWizard.ThisFormClass: TComponentClass;
begin
Result := TTntForm;
end;
function TTntNewTntFormWizard.GetName: AnsiString;
begin
Result := ThisFormName + ' (Unicode)'
end;
function TTntNewTntFormWizard.GetComment: AnsiString;
begin
Result := 'Creates a new Unicode enabled TntForm';
end;
{ TTntNewTntFrameWizard }
function TTntNewTntFrameWizard.ThisFormClass: TComponentClass;
begin
Result := TTntFrame;
end;
function TTntNewTntFrameWizard.GetName: AnsiString;
begin
Result := ThisFormName + ' (Unicode)'
end;
function TTntNewTntFrameWizard.GetComment: AnsiString;
begin
Result := 'Creates a new Unicode enabled TntFrame';
end;
{ TTntFrameCustomModule }
function TTntFrameCustomModule.Nestable: Boolean;
begin
Result := True;
end;
{ TTntFormCustomModule }
class function TTntFormCustomModule.DesignClass: TComponentClass;
begin
Result := TTntForm;
end;
end.

391
internal/1/Design/TntMenus_Design.pas Normal file
View File

@ -0,0 +1,391 @@
{*****************************************************************************}
{ }
{ Tnt Delphi Unicode Controls }
{ http://www.tntware.com/delphicontrols/unicode/ }
{ Version: 2.3.0 }
{ }
{ Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com) }
{ }
{*****************************************************************************}
unit TntMenus_Design;
{$INCLUDE ..\Source\TntCompilers.inc}
{*******************************************************}
{ Special Thanks to Francisco Leong for getting these }
{ menu designer enhancements to work w/o MnuBuild. }
{*******************************************************}
interface
{$IFDEF COMPILER_6} // Delphi 6 and BCB 6 have MnuBuild available
{$DEFINE MNUBUILD_AVAILABLE}
{$ENDIF}
{$IFDEF COMPILER_7} // Delphi 7 has MnuBuild available
{$DEFINE MNUBUILD_AVAILABLE}
{$ENDIF}
uses
Windows, Classes, Menus, Messages,
{$IFDEF MNUBUILD_AVAILABLE} MnuBuild, {$ENDIF}
DesignEditors, DesignIntf;
type
TTntMenuEditor = class(TComponentEditor)
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string{TNT-ALLOW string}; override;
function GetVerbCount: Integer; override;
end;
procedure Register;
implementation
uses
{$IFDEF MNUBUILD_AVAILABLE} MnuConst, {$ELSE} DesignWindows, {$ENDIF} SysUtils, Graphics, ActnList,
Controls, Forms, TntDesignEditors_Design, TntActnList, TntMenus;
procedure Register;
begin
RegisterComponentEditor(TTntMainMenu, TTntMenuEditor);
RegisterComponentEditor(TTntPopupMenu, TTntMenuEditor);
end;
function GetMenuBuilder: TForm{TNT-ALLOW TForm};
{$IFDEF MNUBUILD_AVAILABLE}
begin
Result := MenuEditor;
{$ELSE}
var
Comp: TComponent;
begin
Result := nil;
if Application <> nil then
begin
Comp := Application.FindComponent('MenuBuilder');
if Comp is TForm{TNT-ALLOW TForm} then
Result := TForm{TNT-ALLOW TForm}(Comp);
end;
{$ENDIF}
end;
{$IFDEF DELPHI_9} // verified against Delphi 9
type
THackMenuBuilder = class(TDesignWindow)
protected
Fields: array[1..26] of TObject;
FWorkMenu: TMenuItem{TNT-ALLOW TMenuItem};
end;
{$ENDIF}
{$IFDEF COMPILER_10_UP}
{$IFDEF DELPHI_10} // NOT verified against Delphi 10
type
THackMenuBuilder = class(TDesignWindow)
protected
Fields: array[1..26] of TObject;
FWorkMenu: TMenuItem{TNT-ALLOW TMenuItem};
end;
{$ENDIF}
{$ENDIF}
function GetMenuBuilder_WorkMenu(MenuBuilder: TForm{TNT-ALLOW TForm}): TMenuItem{TNT-ALLOW TMenuItem};
begin
if MenuBuilder = nil then
Result := nil
else begin
{$IFDEF MNUBUILD_AVAILABLE}
Result := MenuEditor.WorkMenu;
{$ELSE}
Result := THackMenuBuilder(MenuBuilder).FWorkMenu;
Assert((Result = nil) or (Result is TMenuItem{TNT-ALLOW TMenuItem}),
'TNT Internal Error: THackMenuBuilder has incorrect internal layout.');
{$ENDIF}
end;
end;
{$IFDEF DELPHI_9} // verified against Delphi 9
type
THackMenuItemWin = class(TCustomControl)
protected
FxxxxCaptionExtent: Integer;
FMenuItem: TMenuItem{TNT-ALLOW TMenuItem};
end;
{$ENDIF}
{$IFDEF DELPHI_10} // beta: NOT verified against Delphi 10
type
THackMenuItemWin = class(TCustomControl)
protected
FxxxxCaptionExtent: Integer;
FMenuItem: TMenuItem{TNT-ALLOW TMenuItem};
end;
{$ENDIF}
function GetMenuItem(Control: TWinControl; DoVerify: Boolean = True): TMenuItem{TNT-ALLOW TMenuItem};
begin
{$IFDEF MNUBUILD_AVAILABLE}
if Control is TMenuItemWin then
Result := TMenuItemWin(Control).MenuItem
{$ELSE}
if Control.ClassName = 'TMenuItemWin' then begin
Result := THackMenuItemWin(Control).FMenuItem;
Assert((Result = nil) or (Result is TMenuItem{TNT-ALLOW TMenuItem}), 'TNT Internal Error: Unexpected TMenuItem field layout.');
end
{$ENDIF}
else if DoVerify then
raise Exception.Create('TNT Internal Error: Control is not a TMenuItemWin.')
else
Result := nil;
end;
procedure SetMenuItem(Control: TWinControl; Item: TMenuItem{TNT-ALLOW TMenuItem});
begin
{$IFDEF MNUBUILD_AVAILABLE}
if Control is TMenuItemWin then
TMenuItemWin(Control).MenuItem := Item
{$ELSE}
if Control.ClassName = 'TMenuItemWin' then begin
THackMenuItemWin(Control).FMenuItem := Item;
Item.FreeNotification(Control);
end
{$ENDIF}
else
raise Exception.Create('TNT Internal Error: Control is not a TMenuItemWin.');
end;
procedure ReplaceMenuItem(Control: TWinControl; ANewItem: TMenuItem{TNT-ALLOW TMenuItem});
var
OldItem: TMenuItem{TNT-ALLOW TMenuItem};
OldName: string{TNT-ALLOW string};
begin
OldItem := GetMenuItem(Control, True);
Assert(OldItem <> nil);
OldName := OldItem.Name;
FreeAndNil(OldItem);
ANewItem.Name := OldName; { assume old name }
SetMenuItem(Control, ANewItem);
end;
{ TTntMenuBuilderChecker }
type
TMenuBuilderChecker = class(TComponent)
private
FMenuBuilder: TForm{TNT-ALLOW TForm};
FCheckMenuAction: TTntAction;
FLastCaption: string{TNT-ALLOW string};
FLastActiveControl: TControl;
FLastMenuItem: TMenuItem{TNT-ALLOW TMenuItem};
procedure CheckMenuItems(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
var MenuBuilderChecker: TMenuBuilderChecker = nil;
constructor TMenuBuilderChecker.Create(AOwner: TComponent);
begin
inherited;
MenuBuilderChecker := Self;
FCheckMenuAction := TTntAction.Create(Self);
FCheckMenuAction.OnUpdate := CheckMenuItems;
FCheckMenuAction.OnExecute := CheckMenuItems;
FMenuBuilder := AOwner as TForm{TNT-ALLOW TForm};
FMenuBuilder.Action := FCheckMenuAction;
end;
destructor TMenuBuilderChecker.Destroy;
begin
FMenuBuilder := nil;
MenuBuilderChecker := nil;
inherited;
end;
type TAccessTntMenuItem = class(TTntMenuItem);
function CreateTntMenuItem(OldItem: TMenuItem{TNT-ALLOW TMenuItem}): TTntMenuItem;
var
OldName: AnsiString;
OldParent: TMenuItem{TNT-ALLOW TMenuItem};
OldIndex: Integer;
OldItemsList: TList;
j: integer;
begin
// item should be converted.
OldItemsList := TList.Create;
try
// clone properties
Result := TTntMenuItem.Create(OldItem.Owner);
TAccessTntMenuItem(Result).FComponentStyle := OldItem.ComponentStyle; {csTransient hides item from object inspector}
Result.Action := OldItem.Action;
Result.AutoCheck := OldItem.AutoCheck;
Result.AutoHotkeys := OldItem.AutoHotkeys;
Result.AutoLineReduction := OldItem.AutoLineReduction;
Result.Bitmap := OldItem.Bitmap;
Result.Break := OldItem.Break;
Result.Caption := OldItem.Caption;
Result.Checked := OldItem.Checked;
Result.Default := OldItem.Default;
Result.Enabled := OldItem.Enabled;
Result.GroupIndex := OldItem.GroupIndex;
Result.HelpContext := OldItem.HelpContext;
Result.Hint := OldItem.Hint;
Result.ImageIndex := OldItem.ImageIndex;
Result.MenuIndex := OldItem.MenuIndex;
Result.RadioItem := OldItem.RadioItem;
Result.ShortCut := OldItem.ShortCut;
Result.SubMenuImages := OldItem.SubMenuImages;
Result.Visible := OldItem.Visible;
Result.Tag := OldItem.Tag;
// clone events
Result.OnAdvancedDrawItem := OldItem.OnAdvancedDrawItem;
Result.OnClick := OldItem.OnClick;
Result.OnDrawItem := OldItem.OnDrawItem;
Result.OnMeasureItem := OldItem.OnMeasureItem;
// remember name, parent, index, children
OldName := OldItem.Name;
OldParent := OldItem.Parent;
OldIndex := OldItem.MenuIndex;
for j := OldItem.Count - 1 downto 0 do begin
OldItemsList.Insert(0, OldItem.Items[j]);
OldItem.Remove(OldItem.Items[j]);
end;
// clone final parts of old item
for j := 0 to OldItemsList.Count - 1 do
Result.Add(TMenuItem{TNT-ALLOW TMenuItem}(OldItemsList[j])); { add children }
if OldParent <> nil then
OldParent.Insert(OldIndex, Result); { insert into parent }
finally
OldItemsList.Free;
end;
end;
procedure CheckMenuItemWin(MenuItemWin: TWinControl; PartOfATntMenu: Boolean);
var
OldItem: TMenuItem{TNT-ALLOW TMenuItem};
begin
OldItem := GetMenuItem(MenuItemWin);
if OldItem = nil then
exit;
if (OldItem.ClassType = TMenuItem{TNT-ALLOW TMenuItem})
and (PartOfATntMenu or (OldItem.Parent is TTntMenuItem)) then
begin
if MenuItemWin.Focused then
MenuItemWin.Parent.SetFocus; {Lose focus and regain later to ensure object inspector gets updated.}
ReplaceMenuItem(MenuItemWin, CreateTntMenuItem(OldItem));
end else if (OldItem.ClassType = TTntMenuItem)
and (OldItem.Parent = nil) and (OldItem.Caption = '') and (OldItem.Name = '')
and not (PartOfATntMenu or (OldItem.Parent is TTntMenuItem)) then begin
if MenuItemWin.Focused then
MenuItemWin.Parent.SetFocus; {Lose focus and regain later to ensure object inspector gets updated.}
ReplaceMenuItem(MenuItemWin, TMenuItem{TNT-ALLOW TMenuItem}.Create(OldItem.Owner));
end;
end;
procedure TMenuBuilderChecker.CheckMenuItems(Sender: TObject);
var
a, i: integer;
MenuWin: TWinControl;
MenuItemWin: TWinControl;
SaveFocus: HWND;
PartOfATntMenu: Boolean;
WorkMenu: TMenuItem{TNT-ALLOW TMenuItem};
begin
if (FMenuBuilder <> nil)
and (FMenuBuilder.Action = FCheckMenuAction) then begin
if (FLastCaption <> FMenuBuilder.Caption)
or (FLastActiveControl <> FMenuBuilder.ActiveControl)
or (FLastMenuItem <> GetMenuItem(FMenuBuilder.ActiveControl, False))
then begin
try
try
with FMenuBuilder do begin
WorkMenu := GetMenuBuilder_WorkMenu(FMenuBuilder);
PartOfATntMenu := (WorkMenu <> nil)
and ((WorkMenu.Owner is TTntMainMenu) or (WorkMenu.Owner is TTntPopupMenu));
SaveFocus := Windows.GetFocus;
for a := ComponentCount - 1 downto 0 do begin
{$IFDEF MNUBUILD_AVAILABLE}
if Components[a] is TMenuWin then begin
{$ELSE}
if Components[a].ClassName = 'TMenuWin' then begin
{$ENDIF}
MenuWin := Components[a] as TWinControl;
with MenuWin do begin
for i := ComponentCount - 1 downto 0 do begin
{$IFDEF MNUBUILD_AVAILABLE}
if Components[i] is TMenuItemWin then begin
{$ELSE}
if Components[i].ClassName = 'TMenuItemWin' then begin
{$ENDIF}
MenuItemWin := Components[i] as TWinControl;
CheckMenuItemWin(MenuItemWin, PartOfATntMenu);
end;
end;
end;
end;
end;
if SaveFocus <> Windows.GetFocus then
Windows.SetFocus(SaveFocus);
end;
except
on E: Exception do begin
FMenuBuilder.Action := nil;
end;
end;
finally
FLastCaption := FMenuBuilder.Caption;
FLastActiveControl := FMenuBuilder.ActiveControl;
FLastMenuItem := GetMenuItem(FMenuBuilder.ActiveControl, False);
end;
end;
end;
end;
{ TTntMenuEditor }
function TTntMenuEditor.GetVerbCount: Integer;
begin
Result := 1;
end;
{$IFNDEF MNUBUILD_AVAILABLE}
resourcestring
SMenuDesigner = 'Menu Designer...';
{$ENDIF}
function TTntMenuEditor.GetVerb(Index: Integer): string{TNT-ALLOW string};
begin
Result := SMenuDesigner;
end;
procedure TTntMenuEditor.ExecuteVerb(Index: Integer);
var
MenuBuilder: TForm{TNT-ALLOW TForm};
begin
EditPropertyWithDialog(Component, 'Items', Designer);
MenuBuilder := GetMenuBuilder;
if Assigned(MenuBuilder) then begin
if (MenuBuilderChecker = nil) or (MenuBuilderChecker.FMenuBuilder <> MenuBuilder) then begin
MenuBuilderChecker.Free;
MenuBuilderChecker := TMenuBuilderChecker.Create(MenuBuilder);
end;
EditPropertyWithDialog(Component, 'Items', Designer); // update menu builder caption
end;
end;
initialization
finalization
MenuBuilderChecker.Free; // design package might be recompiled
end.

135
internal/1/Design/TntStrEdit_Design.dfm Normal file
View File

@ -0,0 +1,135 @@
object TntStrEditDlg: TTntStrEditDlg
Left = 267
Top = 258
BorderStyle = bsDialog
Caption = 'Wide String List Editor'
ClientHeight = 279
ClientWidth = 430
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
PopupMenu = StringEditorMenu
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object TntGroupBox1: TTntGroupBox
Left = 8
Top = 3
Width = 413
Height = 234
TabOrder = 4
object LineCount: TTntLabel
Left = 9
Top = 9
Width = 169
Height = 17
AutoSize = False
Caption = '0 lines'
end
object UnicodeEnabledLbl: TTntLabel
Left = 325
Top = 9
Width = 79
Height = 13
Alignment = taRightJustify
Caption = 'Unicode Enabled'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
ParentFont = False
Visible = False
end
object Memo: TTntMemo
Left = 8
Top = 28
Width = 397
Height = 197
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
OnChange = UpdateStatus
OnKeyDown = Memo1KeyDown
end
end
object CodeWndBtn: TTntButton
Left = 8
Top = 248
Width = 75
Height = 25
Caption = '&Code Editor...'
Enabled = False
TabOrder = 0
OnClick = CodeWndBtnClick
end
object HelpButton: TTntButton
Left = 345
Top = 248
Width = 75
Height = 25
Caption = '&Help'
TabOrder = 3
OnClick = HelpButtonClick
end
object OKButton: TTntButton
Left = 185
Top = 248
Width = 75
Height = 25
Caption = '&OK'
Default = True
ModalResult = 1
TabOrder = 1
end
object CancelButton: TTntButton
Left = 265
Top = 248
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 2
end
object OpenDialog: TTntOpenDialog
HelpContext = 26040
DefaultExt = 'TXT'
Filter =
'Text files (*.TXT)|*.TXT|Config files (*.SYS;*.INI)|*.SYS;*.INI|' +
'Batch files (*.BAT)|*.BAT|All files (*.*)|*.*'
Options = [ofHideReadOnly, ofShowHelp, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Title = 'Load string list'
Left = 200
Top = 88
end
object SaveDialog: TTntSaveDialog
HelpContext = 26050
Filter =
'Text files (*.TXT)|*.TXT|Config files (*.SYS;*.INI)|*.SYS;*.INI|' +
'Batch files (*.BAT)|*.BAT|All files (*.*)|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofShowHelp, ofPathMustExist, ofEnableSizing]
Title = 'Save string list'
Left = 228
Top = 88
end
object StringEditorMenu: TTntPopupMenu
Left = 168
Top = 88
object LoadItem: TTntMenuItem
Caption = '&Load...'
OnClick = FileOpenClick
end
object SaveItem: TTntMenuItem
Caption = '&Save...'
OnClick = FileSaveClick
end
object CodeEditorItem: TTntMenuItem
Caption = '&Code Editor...'
Enabled = False
Visible = False
OnClick = CodeWndBtnClick
end
end
end

419
internal/1/Design/TntStrEdit_Design.pas Normal file
View File

@ -0,0 +1,419 @@
{*****************************************************************************}
{ }
{ Tnt Delphi Unicode Controls }
{ http://www.tntware.com/delphicontrols/unicode/ }
{ Version: 2.3.0 }
{ }
{ Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com) }
{ }
{*****************************************************************************}
unit TntStrEdit_Design;
{$INCLUDE ..\Source\TntCompilers.inc}
// The following unit is adapted from StrEdit.pas.
interface
uses
Windows, Classes, Graphics, Controls, Buttons, Menus, StdCtrls,
TntStdCtrls, ExtCtrls, DesignEditors, DesignIntf,
TntForms, TntMenus, TntClasses, TntDialogs;
type
TTntStrEditDlg = class(TTntForm)
CodeWndBtn: TTntButton;
OpenDialog: TTntOpenDialog;
SaveDialog: TTntSaveDialog;
HelpButton: TTntButton;
OKButton: TTntButton;
CancelButton: TTntButton;
StringEditorMenu: TTntPopupMenu;
LoadItem: TTntMenuItem;
SaveItem: TTntMenuItem;
CodeEditorItem: TTntMenuItem;
TntGroupBox1: TTntGroupBox;
UnicodeEnabledLbl: TTntLabel;
Memo: TTntMemo;
LineCount: TTntLabel;
procedure FileOpenClick(Sender: TObject);
procedure FileSaveClick(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
procedure CodeWndBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure UpdateStatus(Sender: TObject);
private
SingleLine: WideString;
MultipleLines: WideString;
protected
FModified: Boolean;
function GetLines: TTntStrings;
procedure SetLines(const Value: TTntStrings);
function GetLinesControl: TWinControl;
public
property Lines: TTntStrings read GetLines write SetLines;
procedure PrepareForWideStringEdit;
end;
type
TWideStringListProperty = class(TClassProperty)
protected
function EditDialog: TTntStrEditDlg; virtual;
function GetStrings: TTntStrings; virtual;
procedure SetStrings(const Value: TTntStrings); virtual;
public
function GetAttributes: TPropertyAttributes; override;
procedure Edit; override;
end;
procedure Register;
implementation
{$R *.dfm}
uses
ActiveX, Forms, SysUtils, DesignConst, ToolsAPI, IStreams, LibHelp,
StFilSys, TypInfo, TntSystem, TntDesignEditors_Design;
procedure Register;
begin
RegisterPropertyEditor(TypeInfo(TTntStrings), nil, '', TWideStringListProperty);
end;
{$IFDEF COMPILER_10_UP}
type
TStringsModuleCreator = class(TInterfacedObject, IOTACreator, IOTAModuleCreator)
private
FFileName: AnsiString;
FStream: TStringStream{TNT-ALLOW TStringStream};
FAge: TDateTime;
public
constructor Create(const FileName: AnsiString; Stream: TStringStream{TNT-ALLOW TStringStream}; Age: TDateTime);
destructor Destroy; override;
{ IOTACreator }
function GetCreatorType: AnsiString;
function GetExisting: Boolean;
function GetFileSystem: AnsiString;
function GetOwner: IOTAModule;
function GetUnnamed: Boolean;
{ IOTAModuleCreator }
function GetAncestorName: AnsiString;
function GetImplFileName: AnsiString;
function GetIntfFileName: AnsiString;
function GetFormName: AnsiString;
function GetMainForm: Boolean;
function GetShowForm: Boolean;
function GetShowSource: Boolean;
function NewFormFile(const FormIdent, AncestorIdent: AnsiString): IOTAFile;
function NewImplSource(const ModuleIdent, FormIdent, AncestorIdent: AnsiString): IOTAFile;
function NewIntfSource(const ModuleIdent, FormIdent, AncestorIdent: AnsiString): IOTAFile;
procedure FormCreated(const FormEditor: IOTAFormEditor);
end;
TOTAFile = class(TInterfacedObject, IOTAFile)
private
FSource: AnsiString;
FAge: TDateTime;
public
constructor Create(const ASource: AnsiString; AAge: TDateTime);
{ IOTAFile }
function GetSource: AnsiString;
function GetAge: TDateTime;
end;
{ TOTAFile }
constructor TOTAFile.Create(const ASource: AnsiString; AAge: TDateTime);
begin
inherited Create;
FSource := ASource;
FAge := AAge;
end;
function TOTAFile.GetAge: TDateTime;
begin
Result := FAge;
end;
function TOTAFile.GetSource: AnsiString;
begin
Result := FSource;
end;
{ TStringsModuleCreator }
constructor TStringsModuleCreator.Create(const FileName: AnsiString; Stream: TStringStream{TNT-ALLOW TStringStream};
Age: TDateTime);
begin
inherited Create;
FFileName := FileName;
FStream := Stream;
FAge := Age;
end;
destructor TStringsModuleCreator.Destroy;
begin
FStream.Free;
inherited;
end;
procedure TStringsModuleCreator.FormCreated(const FormEditor: IOTAFormEditor);
begin
{ Nothing to do }
end;
function TStringsModuleCreator.GetAncestorName: AnsiString;
begin
Result := '';
end;
function TStringsModuleCreator.GetCreatorType: AnsiString;
begin
Result := sText;
end;
function TStringsModuleCreator.GetExisting: Boolean;
begin
Result := True;
end;
function TStringsModuleCreator.GetFileSystem: AnsiString;
begin
Result := sTStringsFileSystem;
end;
function TStringsModuleCreator.GetFormName: AnsiString;
begin
Result := '';
end;
function TStringsModuleCreator.GetImplFileName: AnsiString;
begin
Result := FFileName;
end;
function TStringsModuleCreator.GetIntfFileName: AnsiString;
begin
Result := '';
end;
function TStringsModuleCreator.GetMainForm: Boolean;
begin
Result := False;
end;
function TStringsModuleCreator.GetOwner: IOTAModule;
begin
Result := nil;
end;
function TStringsModuleCreator.GetShowForm: Boolean;
begin
Result := False;
end;
function TStringsModuleCreator.GetShowSource: Boolean;
begin
Result := True;
end;
function TStringsModuleCreator.GetUnnamed: Boolean;
begin
Result := False;
end;
function TStringsModuleCreator.NewFormFile(const FormIdent,
AncestorIdent: AnsiString): IOTAFile;
begin
Result := nil;
end;
function TStringsModuleCreator.NewImplSource(const ModuleIdent, FormIdent,
AncestorIdent: AnsiString): IOTAFile;
begin
Result := TOTAFile.Create(FStream.DataString, FAge);
end;
function TStringsModuleCreator.NewIntfSource(const ModuleIdent, FormIdent,
AncestorIdent: AnsiString): IOTAFile;
begin
Result := nil;
end;
{$ENDIF}
{ TTntStrEditDlg }
procedure TTntStrEditDlg.FormCreate(Sender: TObject);
begin
HelpContext := hcDStringListEditor;
OpenDialog.HelpContext := hcDStringListLoad;
SaveDialog.HelpContext := hcDStringListSave;
SingleLine := srLine;
MultipleLines := srLines;
UnicodeEnabledLbl.Visible := IsWindowUnicode(Memo.Handle);
end;
procedure TTntStrEditDlg.PrepareForWideStringEdit;
begin
Caption := 'WideString Editor';
CodeWndBtn.Visible := False;
CodeEditorItem.Visible := False;
end;
procedure TTntStrEditDlg.FileOpenClick(Sender: TObject);
begin
with OpenDialog do
if Execute then Lines.LoadFromFile(FileName);
end;
procedure TTntStrEditDlg.FileSaveClick(Sender: TObject);
begin
SaveDialog.FileName := OpenDialog.FileName;
with SaveDialog do
if Execute then Lines.SaveToFile(FileName);
end;
procedure TTntStrEditDlg.HelpButtonClick(Sender: TObject);
begin
Application.HelpContext(HelpContext);
end;
procedure TTntStrEditDlg.CodeWndBtnClick(Sender: TObject);
begin
ModalResult := mrYes;
end;
function TTntStrEditDlg.GetLinesControl: TWinControl;
begin
Result := Memo;
end;
procedure TTntStrEditDlg.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_ESCAPE then CancelButton.Click;
end;
procedure TTntStrEditDlg.UpdateStatus(Sender: TObject);
var
Count: Integer;
LineText: WideString;
begin
if Sender = Memo then FModified := True;
Count := Lines.Count;
if Count = 1 then LineText := SingleLine
else LineText := MultipleLines;
LineCount.Caption := WideFormat('%d %s', [Count, LineText]);
end;
function TTntStrEditDlg.GetLines: TTntStrings;
begin
Result := Memo.Lines;
end;
procedure TTntStrEditDlg.SetLines(const Value: TTntStrings);
begin
Memo.Lines.Assign(Value);
end;
{ TWideStringListProperty }
function TWideStringListProperty.EditDialog: TTntStrEditDlg;
begin
Result := TTntStrEditDlg.Create(Application);
end;
function TWideStringListProperty.GetAttributes: TPropertyAttributes;
begin
Result := inherited GetAttributes + [paDialog] - [paSubProperties];
end;
function TWideStringListProperty.GetStrings: TTntStrings;
begin
Result := TTntStrings(GetOrdValue);
end;
procedure TWideStringListProperty.SetStrings(const Value: TTntStrings);
begin
SetOrdValue(Longint(Value));
end;
procedure TWideStringListProperty.Edit;
{$IFDEF COMPILER_10_UP}
const
DotSep = '.'; // Temp fix for opening the strings in the editor.
var
Ident: AnsiString;
Component: TComponent;
Module: IOTAModule;
Editor: IOTAEditor;
ModuleServices: IOTAModuleServices;
Stream: TStringStream{TNT-ALLOW TStringStream};
Age: TDateTime;
{$ENDIF}
begin
{$IFDEF COMPILER_10_UP}
Component := TComponent(GetComponent(0));
ModuleServices := BorlandIDEServices as IOTAModuleServices;
if (TObject(Component) is TComponent)
and (Component.Owner = Self.Designer.GetRoot)
and (Self.Designer.GetRoot.Name <> '')
then begin
Ident := Self.Designer.GetRoot.Name + DotSep +
Component.Name + DotSep + GetName;
Ident := Self.Designer.GetDesignerExtension + DotSep + Ident;
Module := ModuleServices.FindModule(Ident);
end else begin
Ident := '';
Module := nil;
end;
if (Module <> nil) and (Module.GetModuleFileCount > 0) then
Module.GetModuleFileEditor(0).Show
else
{$ENDIF}
with EditDialog do
try
if GetObjectInspectorForm <> nil then
Font.Assign(GetObjectInspectorForm.Font);
Lines := GetStrings;
UpdateStatus(nil);
FModified := False;
ActiveControl := GetLinesControl;
{$IFDEF COMPILER_10_UP}
CodeEditorItem.Enabled := Ident <> '';
CodeWndBtn.Enabled := Ident <> '';
{$ENDIF}
case ShowModal of
mrOk: SetStrings(Lines);
{$IFDEF COMPILER_10_UP}
mrYes:
begin
// this used to be done in LibMain's TLibrary.Create but now its done here
// the unregister is done over in ComponentDesigner's finalization
//StFilSys.Register;
Stream := TStringStream{TNT-ALLOW TStringStream}.Create(WideStringToUTF8(Lines.Text));
Stream.Position := 0;
Age := Now;
Module := ModuleServices.CreateModule(
TStringsModuleCreator.Create(Ident, Stream, Age));
if Module <> nil then
begin
with StringsFileSystem.GetTStringsProperty(Ident, Component, GetName) do
DiskAge := DateTimeToFileDate(Age);
Editor := Module.GetModuleFileEditor(0);
if FModified then
Editor.MarkModified;
Editor.Show;
end;
end;
{$ENDIF}
end;
finally
Free;
end;
end;
end.

132
internal/1/Design/TntUnicodeVcl_Register.pas Normal file
View File

@ -0,0 +1,132 @@
{*****************************************************************************}
{ }
{ Tnt Delphi Unicode Controls }
{ http://www.tntware.com/delphicontrols/unicode/ }
{ Version: 2.3.0 }
{ }
{ Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com) }
{ }
{*****************************************************************************}
unit TntUnicodeVcl_Register;
{$INCLUDE ..\Source\TntCompilers.inc}
interface
{ TODO: Install program (handle Std, Prof, Ent versions) (ie. no database stuff for personal edition) }
{ TODO: $IFDEF DelphiPersonalEdition }
procedure Register;
implementation
uses
Classes, DB, TntForms, TntMenus, TntStdCtrls, TntCheckLst, TntGrids, TntExtCtrls, TntComCtrls,
TntButtons, TntDB, TntDBCtrls, TntDBGrids, TntActnList, TntDialogs, TntExtDlgs, DesignIntf;
const
TNT_STANDARD = 'Tnt Standard';
TNT_ADDITIONAL = 'Tnt Additional';
TNT_WIN32 = 'Tnt Win32';
TNT_DATA_CONTROLS = 'Tnt Data Controls';
TNT_DIALOGS = 'Tnt Dialogs';
procedure Register;
begin
{$IFDEF COMPILER_9_UP}
// ForceDemandLoadState(dlDisable);
{$ENDIF}
// ------- Standard -------
RegisterComponents(TNT_STANDARD, [TTntMainMenu]);
RegisterComponents(TNT_STANDARD, [TTntPopupMenu]);
RegisterComponents(TNT_STANDARD, [TTntLabel]);
RegisterComponents(TNT_STANDARD, [TTntEdit]);
RegisterComponents(TNT_STANDARD, [TTntMemo]);
RegisterComponents(TNT_STANDARD, [TTntButton]);
RegisterComponents(TNT_STANDARD, [TTntCheckBox]);
RegisterComponents(TNT_STANDARD, [TTntRadioButton]);
RegisterComponents(TNT_STANDARD, [TTntListBox]);
RegisterComponents(TNT_STANDARD, [TTntComboBox]);
RegisterComponents(TNT_STANDARD, [TTntScrollBar]);
RegisterComponents(TNT_STANDARD, [TTntGroupBox]);
RegisterComponents(TNT_STANDARD, [TTntRadioGroup]);
RegisterComponents(TNT_STANDARD, [TTntPanel]);
RegisterComponents(TNT_STANDARD, [TTntActionList]);
// ------- Additional -------
RegisterComponents(TNT_ADDITIONAL, [TTntBitBtn]);
RegisterComponents(TNT_ADDITIONAL, [TTntSpeedButton]);
{ -- TTntMaskEdit goes here -- }
RegisterComponents(TNT_ADDITIONAL, [TTntStringGrid]);
RegisterComponents(TNT_ADDITIONAL, [TTntDrawGrid]);
RegisterComponents(TNT_ADDITIONAL, [TTntImage]);
RegisterComponents(TNT_ADDITIONAL, [TTntShape]);
RegisterComponents(TNT_ADDITIONAL, [TTntBevel]);
RegisterComponents(TNT_ADDITIONAL, [TTntScrollBox]);
RegisterComponents(TNT_ADDITIONAL, [TTntCheckListBox]);
RegisterComponents(TNT_ADDITIONAL, [TTntSplitter]);
RegisterComponents(TNT_ADDITIONAL, [TTntStaticText]);
RegisterComponents(TNT_ADDITIONAL, [TTntControlBar]);
// ------- Win32 -------
RegisterComponents(TNT_WIN32, [TTntTabControl]);
RegisterComponents(TNT_WIN32, [TTntPageControl]);
RegisterComponents(TNT_WIN32, [TTntRichEdit]);
RegisterComponents(TNT_WIN32, [TTntTrackBar]);
RegisterComponents(TNT_WIN32, [TTntProgressBar]);
RegisterComponents(TNT_WIN32, [TTntUpDown]);
{ -- TTntHotKey goes here -- }
{ -- TTntAnimate goes here -- }
RegisterComponents(TNT_WIN32, [TTntDateTimePicker]);
RegisterComponents(TNT_WIN32, [TTntMonthCalendar]);
RegisterComponents(TNT_WIN32, [TTntTreeView]);
RegisterComponents(TNT_WIN32, [TTntListView]);
{ -- TTntHeader goes here -- }
RegisterComponents(TNT_WIN32, [TTntStatusBar]);
RegisterComponents(TNT_WIN32, [TTntToolBar]);
{ -- TTntCoolBar goes here -- }
RegisterComponents(TNT_WIN32, [TTntPageScroller]);
{ -- TTntComboBoxEx goes here -- }
// ------- System -------
RegisterComponents(TNT_ADDITIONAL, [TTntPaintBox]);
{ -- TTntMediaPlayer goes here -- }
{ -- TTntOleContainer goes here -- }
// ------- Data Controls -------
RegisterComponents(TNT_DATA_CONTROLS, [TTntDBGrid]);
{ -- TTntDBNavigator goes here -- }
RegisterComponents(TNT_DATA_CONTROLS, [TTntDBText]);
RegisterComponents(TNT_DATA_CONTROLS, [TTntDBEdit]);
RegisterComponents(TNT_DATA_CONTROLS, [TTntDBMemo]);
{ -- TTntDBImage goes here -- }
{ -- TTntDBListBox goes here -- }
RegisterComponents(TNT_DATA_CONTROLS, [TTntDBComboBox]);
RegisterComponents(TNT_DATA_CONTROLS, [TTntDBCheckBox]);
RegisterComponents(TNT_DATA_CONTROLS, [TTntDBRadioGroup]);
{ -- TTntDBLookupListBox goes here -- }
{ -- TTntDBLookupComboBox goes here -- }
RegisterComponents(TNT_DATA_CONTROLS, [TTntDBRichEdit]);
{ -- TTntDBCtrlGrid here -- }
{ -- TTntDBLookupListBox goes here -- }
{ -- TTntDBChart goes here -- }
// ------- Dialogs -------
RegisterComponents(TNT_DIALOGS, [TTntOpenDialog]);
RegisterComponents(TNT_DIALOGS, [TTntSaveDialog]);
RegisterComponents(TNT_DIALOGS, [TTntOpenPictureDialog]);
RegisterComponents(TNT_DIALOGS, [TTntSavePictureDialog]);
// --------- Fields --------------
RegisterTntFields;
// --------- Classes --------------
RegisterClass(TTntMenuItem);
RegisterClass(TTntTabSheet);
RegisterClass(TTntToolButton);
end;
end.

400
internal/1/Design/TntWideStringProperty_Design.pas Normal file
View File

@ -0,0 +1,400 @@
{*****************************************************************************}
{ }
{ Tnt Delphi Unicode Controls }
{ http://www.tntware.com/delphicontrols/unicode/ }
{ Version: 2.3.0 }
{ }
{ Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com) }
{ }
{*****************************************************************************}
unit TntWideStringProperty_Design;
{$INCLUDE ..\Source\TntCompilers.inc}
interface
{*****************************************************}
{ TWideCharProperty-editor implemented by Maël Hörz }
{*****************************************************}
{$IFDEF COMPILER_9_UP}
{$MESSAGE FATAL 'The Object Inspector in Delphi 9 is already Unicode enabled.'}
{$ENDIF}
uses
Classes, Messages, Windows, Graphics, TypInfo, TntDesignEditors_Design,
DesignIntf, DesignEditors, VCLEditors;
type
TWideStringProperty = class(TPropertyEditor, ICustomPropertyDrawing)
private
FActivateWithoutGetValue: Boolean;
FPropList: PInstPropList;
protected
procedure SetPropEntry(Index: Integer; AInstance: TPersistent; APropInfo: PPropInfo); override;
function GetWideStrValueAt(Index: Integer): WideString; dynamic;
function GetWideStrValue: WideString;
procedure SetWideStrValue(const Value: WideString); dynamic;
function GetWideVisualValue: WideString;
public
constructor Create(const ADesigner: ITntDesigner; APropCount: Integer); override;
destructor Destroy; override;
procedure Activate; override;
procedure PropDrawName(ACanvas: TCanvas; const ARect: TRect; ASelected: Boolean);
procedure PropDrawValue(ACanvas: TCanvas; const ARect: TRect; ASelected: Boolean);
function AllEqual: Boolean; override;
function GetEditLimit: Integer; override;
function GetValue: AnsiString; override;
procedure SetValue(const Value: AnsiString); override;
{$IFDEF MULTI_LINE_STRING_EDITOR}
function GetAttributes: TPropertyAttributes; override;
procedure Edit; override;
{$ENDIF}
end;
TWideCaptionProperty = class(TWideStringProperty)
public
function GetAttributes: TPropertyAttributes; override;
end;
TWideCharProperty = class(TWideStringProperty)
protected
{$IFDEF COMPILER_7_UP}
function GetIsDefault: Boolean; override;
{$ENDIF}
function GetWideStrValueAt(Index: Integer): WideString; override;
procedure SetWideStrValue(const Value: WideString); override;
public
function GetAttributes: TPropertyAttributes; override;
function GetEditLimit: Integer; override;
end;
procedure Register;
implementation
uses
Controls, Forms, SysUtils, StdCtrls, TntGraphics, TntControls,
TntSysUtils, TntSystem, Consts,
RTLConsts;
procedure Register;
begin
RegisterPropertyEditor(TypeInfo(WideString), nil, '', TWideStringProperty);
RegisterPropertyEditor(TypeInfo(TWideCaption), nil, '', TWideCaptionProperty);
RegisterPropertyEditor(TypeInfo(WideChar), nil, '', TWideCharProperty);
end;
function GetOIInspListBox: TWinControl;
var
ObjectInspectorForm: TCustomForm;
Comp: TComponent;
begin
Result := nil;
ObjectInspectorForm := GetObjectInspectorForm;
if ObjectInspectorForm <> nil then begin
Comp := ObjectInspectorForm.FindComponent('PropList');
if Comp is TWinControl then
Result := TWinControl(Comp);
end;
end;
function GetOIPropInspEdit: TCustomEdit{TNT-ALLOW TCustomEdit};
var
OIInspListBox: TWinControl;
Comp: TComponent;
begin
Result := nil;
OIInspListBox := GetOIInspListBox;
if OIInspListBox <> nil then begin
Comp := OIInspListBox.FindComponent('EditControl');
if Comp is TCustomEdit{TNT-ALLOW TCustomEdit} then
Result := TCustomEdit{TNT-ALLOW TCustomEdit}(Comp);
end;
end;
//------------------------------
type TAccessWinControl = class(TWinControl);
{ TWideStringProperty }
var
WideStringPropertyCount: Integer = 0;
constructor TWideStringProperty.Create(const ADesigner: ITntDesigner; APropCount: Integer);
begin
inherited;
Inc(WideStringPropertyCount);
GetMem(FPropList, APropCount * SizeOf(TInstProp));
end;
procedure ConvertObjectInspectorBackToANSI;
var
Edit: TCustomEdit{TNT-ALLOW TCustomEdit};
begin
if (Win32PlatformIsUnicode) then begin
Edit := GetOIPropInspEdit;
if Assigned(Edit)
and IsWindowUnicode(Edit.Handle) then
TAccessWinControl(Edit).RecreateWnd;
end;
end;
destructor TWideStringProperty.Destroy;
begin
Dec(WideStringPropertyCount);
if (WideStringPropertyCount = 0) then
ConvertObjectInspectorBackToANSI;
if FPropList <> nil then
FreeMem(FPropList, PropCount * SizeOf(TInstProp));
inherited;
end;
{$IFDEF DELPHI_7} // verified against VCL source in Delphi 7
type
THackPropertyEditor = class
FDesigner: IDesigner;
FPropList: PInstPropList;
end;
{$ENDIF}
procedure TWideStringProperty.Activate;
var
Edit: TCustomEdit{TNT-ALLOW TCustomEdit};
begin
FActivateWithoutGetValue := True;
if (Win32PlatformIsUnicode) then begin
Edit := GetOIPropInspEdit;
if Assigned(Edit)
and (not IsWindowUnicode(Edit.Handle)) then
ReCreateUnicodeWnd(Edit, 'EDIT', True);
end;
end;
procedure TWideStringProperty.SetPropEntry(Index: Integer;
AInstance: TPersistent; APropInfo: PPropInfo);
begin
inherited;
with FPropList^[Index] do
begin
Instance := AInstance;
PropInfo := APropInfo;
end;
end;
function TWideStringProperty.GetWideStrValueAt(Index: Integer): WideString;
begin
with FPropList^[Index] do Result := GetWideStrProp(Instance, PropInfo);
end;
function TWideStringProperty.GetWideStrValue: WideString;
begin
Result := GetWideStrValueAt(0);
end;
procedure TWideStringProperty.SetWideStrValue(const Value: WideString);
var
I: Integer;
begin
for I := 0 to PropCount - 1 do
with FPropList^[I] do SetWideStrProp(Instance, PropInfo, Value);
Modified;
end;
function TWideStringProperty.GetWideVisualValue: WideString;
begin
if AllEqual then
Result := GetWideStrValue
else
Result := '';
end;
procedure TWideStringProperty.PropDrawName(ACanvas: TCanvas; const ARect: TRect; ASelected: Boolean);
begin
DefaultPropertyDrawName(Self, ACanvas, ARect);
end;
procedure TWideStringProperty.PropDrawValue(ACanvas: TCanvas; const ARect: TRect; ASelected: Boolean);
begin
WideCanvasTextRect(ACanvas, ARect, ARect.Left + 1, ARect.Top + 1, GetWideVisualValue);
end;
function TWideStringProperty.AllEqual: Boolean;
var
I: Integer;
V: WideString;
begin
Result := False;
if PropCount > 1 then
begin
V := GetWideStrValue;
for I := 1 to PropCount - 1 do
if GetWideStrValueAt(I) <> V then Exit;
end;
Result := True;
end;
function TWideStringProperty.GetEditLimit: Integer;
var
Edit: TCustomEdit{TNT-ALLOW TCustomEdit};
begin
Result := MaxInt;
// GetEditLimit is called right before the inplace editor text has been set
if Win32PlatformIsUnicode then begin
Edit := GetOIPropInspEdit;
if Assigned(Edit) then begin
TntControl_SetText(Edit, GetWideStrValue);
TntControl_SetHint(Edit, GetWideStrValue);
end;
end;
end;
function TWideStringProperty.GetValue: AnsiString;
begin
FActivateWithoutGetValue := False;
Result := WideStringToStringEx(GetWideStrValue, CP_ACP{TNT-ALLOW CP_ACP}); // use the same code page as the inplace editor
end;
procedure TWideStringProperty.SetValue(const Value: AnsiString);
var
Edit: TCustomEdit{TNT-ALLOW TCustomEdit};
begin
if (not FActivateWithoutGetValue) then begin
Edit := GetOIPropInspEdit;
if Assigned(Edit) and Win32PlatformIsUnicode then
SetWideStrValue(TntControl_GetText(Edit))
else
SetWideStrValue(StringToWideStringEx(Value, CP_ACP{TNT-ALLOW CP_ACP})); // use the same code page as the inplace editor
end;
end;
{$IFDEF MULTI_LINE_STRING_EDITOR}
function TWideStringProperty.GetAttributes: TPropertyAttributes;
begin
Result := inherited GetAttributes + [paDialog];
end;
procedure TWideStringProperty.Edit;
var
Temp: WideString;
begin
with TTntStrEditDlg.Create(Application) do
try
PrepareForWideStringEdit;
Memo.Text := GetWideStrValue;
UpdateStatus(nil);
if ShowModal = mrOk then begin
Temp := Memo.Text;
while (Length(Temp) > 0) and (Temp[Length(Temp)] < ' ') do
System.Delete(Temp, Length(Temp), 1); { trim control characters from end }
SetWideStrValue(Temp);
end;
finally
Free;
end;
end;
{$ENDIF}
{ TWideCaptionProperty }
function TWideCaptionProperty.GetAttributes: TPropertyAttributes;
begin
Result := inherited GetAttributes + [paAutoUpdate];
end;
{ TWideCharProperty }
function TWideCharProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paMultiSelect, paRevertable];
end;
function TWideCharProperty.GetEditLimit: Integer;
begin
inherited GetEditLimit;
Result := 63;
end;
{$IFDEF COMPILER_7_UP}
function TWideCharProperty.GetIsDefault: Boolean;
var
i: Integer;
OldPropList: PInstPropList;
begin
Result := True;
if PropCount > 0 then
begin
OldPropList := THackPropertyEditor(Self).FPropList;
// The memory FPropList points to is write-protected.
// In the constructor we dynamically allocated our own PropList,
// which can be written, so point there instead.
THackPropertyEditor(Self).FPropList := FPropList;
// Delphi can't handle WideChar-type, but does well with Word-type,
// which has exactly the same size as WideChar (i.e. 2 Bytes)
for i := 0 to PropCount - 1 do
FPropList^[i].PropInfo^.PropType^ := TypeInfo(Word);
Result := inherited GetIsDefault;
for i := 0 to PropCount - 1 do
FPropList^[i].PropInfo^.PropType^ := TypeInfo(WideChar);
THackPropertyEditor(Self).FPropList := OldPropList;
end;
end;
{$ENDIF}
function IsCharGraphic(C: WideChar): Boolean;
begin
if Win32PlatformIsUnicode then
Result := not IsWideCharCntrl(C) and not IsWideCharSpace(C)
else // representation as charcode avoids corruption on ANSI-systems
Result := (C >= #33) and (C <= #127);
end;
function TWideCharProperty.GetWideStrValueAt(Index: Integer): WideString;
var
C: WideChar;
begin
with FPropList^[Index] do
C := WideChar(GetOrdProp(Instance, PropInfo));
if IsCharGraphic(C) then
Result := C
else
Result := WideFormat('#%d', [Ord(C)]);
end;
procedure TWideCharProperty.SetWideStrValue(const Value: WideString);
var
C: Longint;
I: Integer;
begin
if Length(Value) = 0 then
C := 0
else if Length(Value) = 1 then
C := Ord(Value[1])
else if Value[1] = '#' then
C := StrToInt(Copy(Value, 2, Maxint))
else
raise EPropertyError.Create(SInvalidPropertyValue);
with GetTypeData(GetPropType)^ do
if (C < MinValue) or (C > MaxValue) then
raise EPropertyError.CreateFmt(SOutOfRange, [MinValue, MaxValue]);
for I := 0 to PropCount - 1 do
with FPropList^[I] do SetOrdProp(Instance, PropInfo, C);
Modified;
end;
initialization
finalization
ConvertObjectInspectorBackToANSI;
end.

35
internal/1/Example/ExampleUnicode.cfg Normal file
View File

@ -0,0 +1,35 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J+
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

87
internal/1/Example/ExampleUnicode.dof Normal file
View File

@ -0,0 +1,87 @@
[FileVersion]
Version=6.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=$00000409
RootDir=
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=2
MinorVer=3
Release=0
Build=1
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=2.3.0.1
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=2.3.0.1
Comments=

13
internal/1/Example/ExampleUnicode.dpr Normal file
View File

@ -0,0 +1,13 @@
program ExampleUnicode;
uses
Forms,
MainFrm in 'MainFrm.pas' {MainForm};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.

BIN
internal/1/Example/ExampleUnicode.res Normal file
View File

Binary file not shown.

143
internal/1/Example/MainFrm.dfm Normal file
View File

@ -0,0 +1,143 @@
object MainForm: TMainForm
Left = 266
Top = 190
Width = 559
Height = 451
Caption = 'MainForm'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
OldCreateOrder = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TTntLabel
Left = 16
Top = 16
Width = 184
Height = 13
Caption = 'TntEdit (Data aware version available)'
end
object Label2: TTntLabel
Left = 16
Top = 64
Width = 217
Height = 13
Caption = 'TntComboBox (Data aware version available)'
end
object Label3: TTntLabel
Left = 16
Top = 176
Width = 50
Height = 13
Caption = 'TntListBox'
end
object Label4: TTntLabel
Left = 256
Top = 176
Width = 79
Height = 13
Caption = 'TntCheckListBox'
end
object Label5: TTntLabel
Left = 16
Top = 304
Width = 44
Height = 13
Caption = 'TntMemo'
end
object Label6: TTntLabel
Left = 16
Top = 120
Width = 217
Height = 49
Caption =
'This program will fully support Unicode characters only when run' +
'ning on Windows NT/2000/XP.'
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = [fsBold]
ParentFont = False
WordWrap = True
end
object TntComboBox1: TTntComboBox
Left = 16
Top = 80
Width = 185
Height = 21
ItemHeight = 13
TabOrder = 0
end
object TntEdit1: TTntEdit
Left = 16
Top = 32
Width = 185
Height = 21
TabOrder = 1
end
object TntMemo1: TTntMemo
Left = 16
Top = 320
Width = 481
Height = 89
TabOrder = 2
end
object TntListBox1: TTntListBox
Left = 16
Top = 192
Width = 225
Height = 97
ItemHeight = 13
TabOrder = 3
end
object TntCheckListBox1: TTntCheckListBox
Left = 256
Top = 192
Width = 241
Height = 97
ItemHeight = 13
TabOrder = 4
end
object Button1: TTntButton
Left = 256
Top = 8
Width = 241
Height = 25
Caption = 'TntEdit.Text -> Form.Caption'
TabOrder = 5
OnClick = Button1Click
end
object Button2: TTntButton
Left = 256
Top = 40
Width = 241
Height = 25
Caption = 'Add TntEdit.Text to TntComboBox.Items'
TabOrder = 6
OnClick = Button2Click
end
object Button3: TTntButton
Left = 256
Top = 72
Width = 241
Height = 25
Caption = 'Add TntEdit.Text to TntListBox.Items'
TabOrder = 7
OnClick = Button3Click
end
object Button4: TTntButton
Left = 256
Top = 104
Width = 241
Height = 25
Caption = 'Add TntEdit.Text to TntCheckListBox.Items'
TabOrder = 8
OnClick = Button4Click
end
end

72
internal/1/Example/MainFrm.pas Normal file
View File

@ -0,0 +1,72 @@
unit MainFrm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
TntForms, StdCtrls, CheckLst, TntStdCtrls, TntDBCtrls, TntCheckLst;
type
TMainForm = class(TTntForm)
TntComboBox1: TTntComboBox;
TntEdit1: TTntEdit;
TntMemo1: TTntMemo;
TntListBox1: TTntListBox;
TntCheckListBox1: TTntCheckListBox;
Label1: TTntLabel;
Label2: TTntLabel;
Label3: TTntLabel;
Label4: TTntLabel;
Label5: TTntLabel;
Button1: TTntButton;
Button2: TTntButton;
Button3: TTntButton;
Button4: TTntButton;
Label6: TTntLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
procedure TMainForm.FormCreate(Sender: TObject);
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
Font.Name := 'MS Shell Dlg 2'
else
Font.Name := 'MS Shell Dlg';
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
Caption := TntEdit1.Text;
end;
procedure TMainForm.Button2Click(Sender: TObject);
begin
TntComboBox1.Items.Add(TntEdit1.Text);
end;
procedure TMainForm.Button3Click(Sender: TObject);
begin
TntListBox1.Items.Add(TntEdit1.Text);
end;
procedure TMainForm.Button4Click(Sender: TObject);
begin
TntCheckListbox1.Items.Add(TntEdit1.Text);
end;
end.

BIN
internal/1/Lib/D11/ActiveIMM_TLB.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntActions_Design.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntActnList.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntAxCtrls.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntBandActn.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntButtons.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntCheckLst.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntClasses.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntClipbrd.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntComCtrls.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntComCtrls_Design.dcu Normal file
View File

Binary file not shown.

356
internal/1/Lib/D11/TntCompilers.inc Normal file
View File

@ -0,0 +1,356 @@
//----------------------------------------------------------------------------------------------------------------------
// Include file to determine which compiler is currently being used to build the project/component.
// This file uses ideas from Brad Stowers DFS.inc file (www.delphifreestuff.com).
//
// Portions created by Mike Lischke are Copyright
// (C) 1999-2002 Dipl. Ing. Mike Lischke. All Rights Reserved.
//----------------------------------------------------------------------------------------------------------------------
// The following symbols are defined:
//
// COMPILER_1 : Kylix/Delphi/BCB 1.x is the compiler.
// COMPILER_1_UP : Kylix/Delphi/BCB 1.x or higher is the compiler.
// COMPILER_2 : Kylix/Delphi 2.x or BCB 1.x is the compiler.
// COMPILER_2_UP : Kylix/Delphi 2.x or higher, or BCB 1.x or higher is the compiler.
// COMPILER_3 : Kylix/Delphi/BCB 3.x is the compiler.
// COMPILER_3_UP : Kylix/Delphi/BCB 3.x or higher is the compiler.
// COMPILER_4 : Kylix/Delphi/BCB 4.x is the compiler.
// COMPILER_4_UP : Kylix/Delphi/BCB 4.x or higher is the compiler.
// COMPILER_5 : Kylix/Delphi/BCB 5.x is the compiler.
// COMPILER_5_UP : Kylix/Delphi/BCB 5.x or higher is the compiler.
// COMPILER_6 : Kylix/Delphi/BCB 6.x is the compiler.
// COMPILER_6_UP : Kylix/Delphi/BCB 6.x or higher is the compiler.
// COMPILER_7 : Kylix/Delphi/BCB 7.x is the compiler.
// COMPILER_7_UP : Kylix/Delphi/BCB 7.x or higher is the compiler.
//
// Only defined if Windows is the target:
// CPPB : Any version of BCB is being used.
// CPPB_1 : BCB v1.x is being used.
// CPPB_3 : BCB v3.x is being used.
// CPPB_3_UP : BCB v3.x or higher is being used.
// CPPB_4 : BCB v4.x is being used.
// CPPB_4_UP : BCB v4.x or higher is being used.
// CPPB_5 : BCB v5.x is being used.
// CPPB_5_UP : BCB v5.x or higher is being used.
// CPPB_6 : BCB v6.x is being used.
// CPPB_6_UP : BCB v6.x or higher is being used.
//
// Only defined if Windows is the target:
// DELPHI : Any version of Delphi is being used.
// DELPHI_1 : Delphi v1.x is being used.
// DELPHI_2 : Delphi v2.x is being used.
// DELPHI_2_UP : Delphi v2.x or higher is being used.
// DELPHI_3 : Delphi v3.x is being used.
// DELPHI_3_UP : Delphi v3.x or higher is being used.
// DELPHI_4 : Delphi v4.x is being used.
// DELPHI_4_UP : Delphi v4.x or higher is being used.
// DELPHI_5 : Delphi v5.x is being used.
// DELPHI_5_UP : Delphi v5.x or higher is being used.
// DELPHI_6 : Delphi v6.x is being used.
// DELPHI_6_UP : Delphi v6.x or higher is being used.
// DELPHI_7 : Delphi v7.x is being used.
// DELPHI_7_UP : Delphi v7.x or higher is being used.
//
// Only defined if Linux is the target:
// KYLIX : Any version of Kylix is being used.
// KYLIX_1 : Kylix 1.x is being used.
// KYLIX_1_UP : Kylix 1.x or higher is being used.
// KYLIX_2 : Kylix 2.x is being used.
// KYLIX_2_UP : Kylix 2.x or higher is being used.
// KYLIX_3 : Kylix 3.x is being used.
// KYLIX_3_UP : Kylix 3.x or higher is being used.
//
// Only defined if Linux is the target:
// QT_CLX : Trolltech's QT library is being used.
//----------------------------------------------------------------------------------------------------------------------
{$ifdef Win32}
{$ifdef VER180}
{$define COMPILER_10}
{$define DELPHI}
{$define DELPHI_10}
{$endif}
{$ifdef VER170}
{$define COMPILER_9}
{$define DELPHI}
{$define DELPHI_9}
{$endif}
{$ifdef VER150}
{$define COMPILER_7}
{$define DELPHI}
{$define DELPHI_7}
{$endif}
{$ifdef VER140}
{$define COMPILER_6}
{$ifdef BCB}
{$define CPPB}
{$define CPPB_6}
{$else}
{$define DELPHI}
{$define DELPHI_6}
{$endif}
{$endif}
{$ifdef VER130}
{$define COMPILER_5}
{$ifdef BCB}
{$define CPPB}
{$define CPPB_5}
{$else}
{$define DELPHI}
{$define DELPHI_5}
{$endif}
{$endif}
{$ifdef VER125}
{$define COMPILER_4}
{$define CPPB}
{$define CPPB_4}
{$endif}
{$ifdef VER120}
{$define COMPILER_4}
{$define DELPHI}
{$define DELPHI_4}
{$endif}
{$ifdef VER110}
{$define COMPILER_3}
{$define CPPB}
{$define CPPB_3}
{$endif}
{$ifdef VER100}
{$define COMPILER_3}
{$define DELPHI}
{$define DELPHI_3}
{$endif}
{$ifdef VER93}
{$define COMPILER_2} // C++ Builder v1 compiler is really v2
{$define CPPB}
{$define CPPB_1}
{$endif}
{$ifdef VER90}
{$define COMPILER_2}
{$define DELPHI}
{$define DELPHI_2}
{$endif}
{$ifdef VER80}
{$define COMPILER_1}
{$define DELPHI}
{$define DELPHI_1}
{$endif}
{$ifdef DELPHI_2}
{$define DELPHI_2_UP}
{$endif}
{$ifdef DELPHI_3}
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$endif}
{$ifdef DELPHI_4}
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$define DELPHI_4_UP}
{$endif}
{$ifdef DELPHI_5}
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$define DELPHI_4_UP}
{$define DELPHI_5_UP}
{$endif}
{$ifdef DELPHI_6}
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$define DELPHI_4_UP}
{$define DELPHI_5_UP}
{$define DELPHI_6_UP}
{$endif}
{$ifdef DELPHI_7}
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$define DELPHI_4_UP}
{$define DELPHI_5_UP}
{$define DELPHI_6_UP}
{$define DELPHI_7_UP}
{$endif}
{$ifdef DELPHI_9}
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$define DELPHI_4_UP}
{$define DELPHI_5_UP}
{$define DELPHI_6_UP}
{$define DELPHI_7_UP}
{$define DELPHI_9_UP}
{$endif}
{$ifdef DELPHI_10}
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$define DELPHI_4_UP}
{$define DELPHI_5_UP}
{$define DELPHI_6_UP}
{$define DELPHI_7_UP}
{$define DELPHI_9_UP}
{$define DELPHI_10_UP}
{$endif}
{$ifdef CPPB_3}
{$define CPPB_3_UP}
{$endif}
{$ifdef CPPB_4}
{$define CPPB_3_UP}
{$define CPPB_4_UP}
{$endif}
{$ifdef CPPB_5}
{$define CPPB_3_UP}
{$define CPPB_4_UP}
{$define CPPB_5_UP}
{$endif}
{$ifdef CPPB_6}
{$define CPPB_3_UP}
{$define CPPB_4_UP}
{$define CPPB_5_UP}
{$define CPPB_6_UP}
{$endif}
{$ifdef CPPB_3_UP}
// C++ Builder requires this if you use Delphi components in run-time packages.
{$ObjExportAll On}
{$endif}
{$else (not Windows)}
// Linux is the target
{$define QT_CLX}
{$define KYLIX}
{$define KYLIX_1}
{$define KYLIX_1_UP}
{$ifdef VER150}
{$define COMPILER_7}
{$define KYLIX_3}
{$endif}
{$ifdef VER140}
{$define COMPILER_6}
{$define KYLIX_2}
{$endif}
{$ifdef KYLIX_2}
{$define KYLIX_2_UP}
{$endif}
{$ifdef KYLIX_3}
{$define KYLIX_2_UP}
{$define KYLIX_3_UP}
{$endif}
{$endif}
// Compiler defines common to all platforms.
{$ifdef COMPILER_1}
{$define COMPILER_1_UP}
{$endif}
{$ifdef COMPILER_2}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$endif}
{$ifdef COMPILER_3}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$endif}
{$ifdef COMPILER_4}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$define COMPILER_4_UP}
{$endif}
{$ifdef COMPILER_5}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$define COMPILER_4_UP}
{$define COMPILER_5_UP}
{$endif}
{$ifdef COMPILER_6}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$define COMPILER_4_UP}
{$define COMPILER_5_UP}
{$define COMPILER_6_UP}
{$endif}
{$ifdef COMPILER_7}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$define COMPILER_4_UP}
{$define COMPILER_5_UP}
{$define COMPILER_6_UP}
{$define COMPILER_7_UP}
{$endif}
{$ifdef COMPILER_9}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$define COMPILER_4_UP}
{$define COMPILER_5_UP}
{$define COMPILER_6_UP}
{$define COMPILER_7_UP}
{$define COMPILER_9_UP}
{$endif}
{$ifdef COMPILER_10}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$define COMPILER_4_UP}
{$define COMPILER_5_UP}
{$define COMPILER_6_UP}
{$define COMPILER_7_UP}
{$define COMPILER_9_UP}
{$define COMPILER_10_UP}
{$endif}
//----------------------------------------------------------------------------------------------------------------------
{$ALIGN ON}
{$BOOLEVAL OFF}
{$ifdef COMPILER_7_UP}
{$define THEME_7_UP} { Allows experimental theme support on pre-Delphi 7. }
{$endif}
{$IFDEF COMPILER_6_UP}
{$WARN SYMBOL_PLATFORM OFF} { We are going to use Win32 specific symbols! }
{$ENDIF}
{$IFDEF COMPILER_7_UP}
{$WARN UNSAFE_CODE OFF} { We are not going to be "safe"! }
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CAST OFF}
{$ENDIF}

BIN
internal/1/Lib/D11/TntControls.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntDB.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntDBActns.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntDBCtrls.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntDBGrids.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntDBGrids_Design.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntDBLogDlg.dcu Normal file
View File

Binary file not shown.

108
internal/1/Lib/D11/TntDBLogDlg.dfm Normal file
View File

@ -0,0 +1,108 @@
object TntLoginDialog: TTntLoginDialog
Left = 307
Top = 131
ActiveControl = Password
BorderStyle = bsDialog
Caption = 'Database Login'
ClientHeight = 147
ClientWidth = 273
Color = clBtnFace
ParentFont = True
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object OKButton: TTntButton
Left = 109
Top = 114
Width = 75
Height = 25
Caption = '&OK'
Default = True
ModalResult = 1
TabOrder = 0
end
object CancelButton: TTntButton
Left = 190
Top = 114
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
end
object Panel: TTntPanel
Left = 8
Top = 7
Width = 257
Height = 98
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Label3: TTntLabel
Left = 10
Top = 6
Width = 50
Height = 13
Caption = 'Database:'
end
object DatabaseName: TTntLabel
Left = 91
Top = 6
Width = 3
Height = 13
end
object Bevel: TTntBevel
Left = 1
Top = 24
Width = 254
Height = 9
Shape = bsTopLine
end
object Panel1: TTntPanel
Left = 2
Top = 31
Width = 253
Height = 65
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object Label1: TTntLabel
Left = 8
Top = 8
Width = 56
Height = 13
Caption = '&User Name:'
FocusControl = UserName
end
object Label2: TTntLabel
Left = 8
Top = 36
Width = 50
Height = 13
Caption = '&Password:'
FocusControl = Password
end
object UserName: TTntEdit
Left = 86
Top = 5
Width = 153
Height = 21
MaxLength = 31
TabOrder = 0
end
object Password: TTntEdit
Left = 86
Top = 33
Width = 153
Height = 21
MaxLength = 31
PasswordCharW = #9679
TabOrder = 1
PasswordChar_UTF7 = '+Jc8'
end
end
end
end

BIN
internal/1/Lib/D11/TntDesignEditors_Design.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntDialogs.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntExtActns.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntExtCtrls.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntExtDlgs.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntFileCtrl.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntFormatStrUtils.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntForms.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntForms_Design.dcu Normal file
View File

Binary file not shown.

BIN
internal/1/Lib/D11/TntGraphics.dcu Normal file
View File

Binary file not shown.

Some files were not shown because too many files have changed in this diff Show More