Importación inicial
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.TntUnicodeControls@3 efe25200-c253-4202-ad9d-beff95d3544d
This commit is contained in:
parent
211c344f20
commit
2e21f1b77a
158
internal/1/CBuilder/TntLibD.bpk
Normal file
158
internal/1/CBuilder/TntLibD.bpk
Normal 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"Tnt Unicode VCL - Design" -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
19
internal/1/CBuilder/TntLibD.cpp
Normal 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
BIN
internal/1/CBuilder/TntLibD.res
Normal file
Binary file not shown.
165
internal/1/CBuilder/TntLibR.bpk
Normal file
165
internal/1/CBuilder/TntLibR.bpk
Normal 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"Tnt Unicode VCL - Runtime" -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
18
internal/1/CBuilder/TntLibR.cpp
Normal 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
BIN
internal/1/CBuilder/TntLibR.res
Normal file
Binary file not shown.
183
internal/1/Delphi/bds4/TntUnicodeVcl.bdsproj
Normal file
183
internal/1/Delphi/bds4/TntUnicodeVcl.bdsproj
Normal 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
33
internal/1/Delphi/bds4/TntUnicodeVcl.cfg
Normal 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
71
internal/1/Delphi/bds4/TntUnicodeVcl.dpk
Normal 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
BIN
internal/1/Delphi/bds4/TntUnicodeVcl.res
Normal file
Binary file not shown.
183
internal/1/Delphi/bds4/TntUnicodeVcl_Design.bdsproj
Normal file
183
internal/1/Delphi/bds4/TntUnicodeVcl_Design.bdsproj
Normal 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
36
internal/1/Delphi/bds4/TntUnicodeVcl_Design.cfg
Normal 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
56
internal/1/Delphi/bds4/TntUnicodeVcl_Design.dpk
Normal 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
BIN
internal/1/Delphi/bds4/TntUnicodeVcl_Design.res
Normal file
Binary file not shown.
BIN
internal/1/Delphi/d11/TntUnicodeVcl.bpi
Normal file
BIN
internal/1/Delphi/d11/TntUnicodeVcl.bpi
Normal file
Binary file not shown.
72
internal/1/Delphi/d11/TntUnicodeVcl.dpk
Normal file
72
internal/1/Delphi/d11/TntUnicodeVcl.dpk
Normal 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
619
internal/1/Delphi/d11/TntUnicodeVcl.dproj
Normal 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
BIN
internal/1/Delphi/d11/TntUnicodeVcl.res
Normal file
Binary file not shown.
BIN
internal/1/Delphi/d11/TntUnicodeVcl_Design.bpi
Normal file
BIN
internal/1/Delphi/d11/TntUnicodeVcl_Design.bpi
Normal file
Binary file not shown.
57
internal/1/Delphi/d11/TntUnicodeVcl_Design.dpk
Normal file
57
internal/1/Delphi/d11/TntUnicodeVcl_Design.dpk
Normal 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
614
internal/1/Delphi/d11/TntUnicodeVcl_Design.dproj
Normal 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
BIN
internal/1/Delphi/d11/TntUnicodeVcl_Design.res
Normal file
Binary file not shown.
44
internal/1/Delphi/d11/TntUnicode_D11.groupproj
Normal file
44
internal/1/Delphi/d11/TntUnicode_D11.groupproj
Normal 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
32
internal/1/Delphi/d6/TntUnicodeVcl_D60.cfg
Normal 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
87
internal/1/Delphi/d6/TntUnicodeVcl_D60.dof
Normal 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
57
internal/1/Delphi/d6/TntUnicodeVcl_D60.dpk
Normal 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
BIN
internal/1/Delphi/d6/TntUnicodeVcl_D60.res
Normal file
Binary file not shown.
32
internal/1/Delphi/d6/TntUnicodeVcl_R60.cfg
Normal file
32
internal/1/Delphi/d6/TntUnicodeVcl_R60.cfg
Normal 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
87
internal/1/Delphi/d6/TntUnicodeVcl_R60.dof
Normal 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
71
internal/1/Delphi/d6/TntUnicodeVcl_R60.dpk
Normal 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
BIN
internal/1/Delphi/d6/TntUnicodeVcl_R60.res
Normal file
Binary file not shown.
23
internal/1/Delphi/d6/TntUnicode_6.bpg
Normal file
23
internal/1/Delphi/d6/TntUnicode_6.bpg
Normal 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
32
internal/1/Delphi/d7/TntUnicodeVcl_D70.cfg
Normal 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
136
internal/1/Delphi/d7/TntUnicodeVcl_D70.dof
Normal 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
56
internal/1/Delphi/d7/TntUnicodeVcl_D70.dpk
Normal 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
BIN
internal/1/Delphi/d7/TntUnicodeVcl_D70.res
Normal file
Binary file not shown.
35
internal/1/Delphi/d7/TntUnicodeVcl_D70_DATASNAP.cfg
Normal file
35
internal/1/Delphi/d7/TntUnicodeVcl_D70_DATASNAP.cfg
Normal 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
136
internal/1/Delphi/d7/TntUnicodeVcl_D70_DATASNAP.dof
Normal 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
37
internal/1/Delphi/d7/TntUnicodeVcl_D70_DATASNAP.dpk
Normal 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
BIN
internal/1/Delphi/d7/TntUnicodeVcl_D70_DATASNAP.res
Normal file
Binary file not shown.
32
internal/1/Delphi/d7/TntUnicodeVcl_R70.cfg
Normal file
32
internal/1/Delphi/d7/TntUnicodeVcl_R70.cfg
Normal 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
87
internal/1/Delphi/d7/TntUnicodeVcl_R70.dof
Normal 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
72
internal/1/Delphi/d7/TntUnicodeVcl_R70.dpk
Normal 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
BIN
internal/1/Delphi/d7/TntUnicodeVcl_R70.res
Normal file
Binary file not shown.
23
internal/1/Delphi/d7/TntUnicode_7.bpg
Normal file
23
internal/1/Delphi/d7/TntUnicode_7.bpg
Normal 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
172
internal/1/Delphi/d9/TntUnicodeVcl_D90.bdsproj
Normal 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
35
internal/1/Delphi/d9/TntUnicodeVcl_D90.cfg
Normal 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
55
internal/1/Delphi/d9/TntUnicodeVcl_D90.dpk
Normal 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
BIN
internal/1/Delphi/d9/TntUnicodeVcl_D90.res
Normal file
Binary file not shown.
172
internal/1/Delphi/d9/TntUnicodeVcl_R90.bdsproj
Normal file
172
internal/1/Delphi/d9/TntUnicodeVcl_R90.bdsproj
Normal 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
32
internal/1/Delphi/d9/TntUnicodeVcl_R90.cfg
Normal 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
72
internal/1/Delphi/d9/TntUnicodeVcl_R90.dpk
Normal 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
BIN
internal/1/Delphi/d9/TntUnicodeVcl_R90.res
Normal file
Binary file not shown.
183
internal/1/Design/TntActions_Design.pas
Normal file
183
internal/1/Design/TntActions_Design.pas
Normal 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
228
internal/1/Design/TntComCtrls_Design.pas
Normal 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
36
internal/1/Design/TntDBClientActns_Design.pas
Normal 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
58
internal/1/Design/TntDBGrids_Design.pas
Normal 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
196
internal/1/Design/TntDesignEditors_Design.pas
Normal 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
422
internal/1/Design/TntForms_Design.pas
Normal 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
391
internal/1/Design/TntMenus_Design.pas
Normal 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
135
internal/1/Design/TntStrEdit_Design.dfm
Normal 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
419
internal/1/Design/TntStrEdit_Design.pas
Normal 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
132
internal/1/Design/TntUnicodeVcl_Register.pas
Normal 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
400
internal/1/Design/TntWideStringProperty_Design.pas
Normal 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
35
internal/1/Example/ExampleUnicode.cfg
Normal 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
87
internal/1/Example/ExampleUnicode.dof
Normal 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
13
internal/1/Example/ExampleUnicode.dpr
Normal 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
BIN
internal/1/Example/ExampleUnicode.res
Normal file
Binary file not shown.
143
internal/1/Example/MainFrm.dfm
Normal file
143
internal/1/Example/MainFrm.dfm
Normal 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
72
internal/1/Example/MainFrm.pas
Normal 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
BIN
internal/1/Lib/D11/ActiveIMM_TLB.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntActions_Design.dcu
Normal file
BIN
internal/1/Lib/D11/TntActions_Design.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntActnList.dcu
Normal file
BIN
internal/1/Lib/D11/TntActnList.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntAxCtrls.dcu
Normal file
BIN
internal/1/Lib/D11/TntAxCtrls.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntBandActn.dcu
Normal file
BIN
internal/1/Lib/D11/TntBandActn.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntButtons.dcu
Normal file
BIN
internal/1/Lib/D11/TntButtons.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntCheckLst.dcu
Normal file
BIN
internal/1/Lib/D11/TntCheckLst.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntClasses.dcu
Normal file
BIN
internal/1/Lib/D11/TntClasses.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntClipbrd.dcu
Normal file
BIN
internal/1/Lib/D11/TntClipbrd.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntComCtrls.dcu
Normal file
BIN
internal/1/Lib/D11/TntComCtrls.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntComCtrls_Design.dcu
Normal file
BIN
internal/1/Lib/D11/TntComCtrls_Design.dcu
Normal file
Binary file not shown.
356
internal/1/Lib/D11/TntCompilers.inc
Normal file
356
internal/1/Lib/D11/TntCompilers.inc
Normal 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
BIN
internal/1/Lib/D11/TntControls.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntDB.dcu
Normal file
BIN
internal/1/Lib/D11/TntDB.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntDBActns.dcu
Normal file
BIN
internal/1/Lib/D11/TntDBActns.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntDBCtrls.dcu
Normal file
BIN
internal/1/Lib/D11/TntDBCtrls.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntDBGrids.dcu
Normal file
BIN
internal/1/Lib/D11/TntDBGrids.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntDBGrids_Design.dcu
Normal file
BIN
internal/1/Lib/D11/TntDBGrids_Design.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntDBLogDlg.dcu
Normal file
BIN
internal/1/Lib/D11/TntDBLogDlg.dcu
Normal file
Binary file not shown.
108
internal/1/Lib/D11/TntDBLogDlg.dfm
Normal file
108
internal/1/Lib/D11/TntDBLogDlg.dfm
Normal 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
BIN
internal/1/Lib/D11/TntDesignEditors_Design.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntDialogs.dcu
Normal file
BIN
internal/1/Lib/D11/TntDialogs.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntExtActns.dcu
Normal file
BIN
internal/1/Lib/D11/TntExtActns.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntExtCtrls.dcu
Normal file
BIN
internal/1/Lib/D11/TntExtCtrls.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntExtDlgs.dcu
Normal file
BIN
internal/1/Lib/D11/TntExtDlgs.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntFileCtrl.dcu
Normal file
BIN
internal/1/Lib/D11/TntFileCtrl.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntFormatStrUtils.dcu
Normal file
BIN
internal/1/Lib/D11/TntFormatStrUtils.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntForms.dcu
Normal file
BIN
internal/1/Lib/D11/TntForms.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntForms_Design.dcu
Normal file
BIN
internal/1/Lib/D11/TntForms_Design.dcu
Normal file
Binary file not shown.
BIN
internal/1/Lib/D11/TntGraphics.dcu
Normal file
BIN
internal/1/Lib/D11/TntGraphics.dcu
Normal file
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user