git-svn-id: https://192.168.0.254/svn/Componentes.Internos.GUISDK/trunk@8 e3f7d858-3362-1a4e-b49c-1b1bd96e4488
This commit is contained in:
parent
dc4d20113d
commit
3e1b059d8b
BIN
Lib/D11/GUISDK_D11.bpl
Normal file
BIN
Lib/D11/GUISDK_D11.bpl
Normal file
Binary file not shown.
BIN
Lib/D11/GUISDK_D11.dcp
Normal file
BIN
Lib/D11/GUISDK_D11.dcp
Normal file
Binary file not shown.
BIN
Lib/D11/GUISDK_D11.dcu
Normal file
BIN
Lib/D11/GUISDK_D11.dcu
Normal file
Binary file not shown.
BIN
Lib/D11/uCustomEditor.dcu
Normal file
BIN
Lib/D11/uCustomEditor.dcu
Normal file
Binary file not shown.
BIN
Lib/D11/uCustomView.dcu
Normal file
BIN
Lib/D11/uCustomView.dcu
Normal file
Binary file not shown.
BIN
Lib/D11/uGUIBase.dcu
Normal file
BIN
Lib/D11/uGUIBase.dcu
Normal file
Binary file not shown.
BIN
Lib/D11/uGUIUtils.dcu
Normal file
BIN
Lib/D11/uGUIUtils.dcu
Normal file
Binary file not shown.
45
Packages/GUISDK_D11.dpk
Normal file
45
Packages/GUISDK_D11.dpk
Normal file
@ -0,0 +1,45 @@
|
||||
package GUISDK_D11;
|
||||
|
||||
{$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 OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO OFF}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'GUI SDK para Delphi 2007'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
{$DEFINE RELEASE}
|
||||
|
||||
requires
|
||||
vcl,
|
||||
rtl,
|
||||
designide,
|
||||
vclactnband,
|
||||
vclx,
|
||||
ccpackD11,
|
||||
cfpack_D11,
|
||||
xmlrtl;
|
||||
|
||||
contains
|
||||
uCustomView in '..\Source\uCustomView.pas',
|
||||
uCustomEditor in '..\Source\uCustomEditor.pas',
|
||||
uGUIBase in '..\Source\uGUIBase.pas',
|
||||
uGUIUtils in '..\Source\uGUIUtils.pas';
|
||||
|
||||
end.
|
||||
670
Packages/GUISDK_D11.dproj
Normal file
670
Packages/GUISDK_D11.dproj
Normal file
@ -0,0 +1,670 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{53bef2d1-a6c9-410c-9888-9c249cea28a3}</ProjectGuid>
|
||||
<MainSource>GUISDK_D11.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\Lib\D11\GUISDK_D11.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_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>..\Source</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\Source</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\Source</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\Source</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<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">GUI SDK para Delphi 2007</Package_Options>
|
||||
<Package_Options Name="ImplicitBuild">False</Package_Options>
|
||||
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
||||
<Package_Options Name="RuntimeOnly">False</Package_Options>
|
||||
</Package_Options>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">3082</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
<Source>
|
||||
<Source Name="MainSource">GUISDK_D11.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="GUISDK_D11.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Source\uCustomEditor.pas" />
|
||||
<DCCReference Include="..\Source\uCustomView.pas" />
|
||||
<DCCReference Include="..\Source\uGUIBase.pas" />
|
||||
<DCCReference Include="..\Source\uGUIUtils.pas" />
|
||||
<DCCReference Include="ccpackD11.dcp" />
|
||||
<DCCReference Include="ccpackD11007.dcp" />
|
||||
<DCCReference Include="ccpackD1107.dcp" />
|
||||
<DCCReference Include="ccpackD112007.dcp" />
|
||||
<DCCReference Include="ccpackD117.dcp" />
|
||||
<DCCReference Include="ccpackD12007.dcp" />
|
||||
<DCCReference Include="ccpackD2007.dcp" />
|
||||
<DCCReference Include="cfpack_D11.dcp" />
|
||||
<DCCReference Include="cfpack_D11007.dcp" />
|
||||
<DCCReference Include="cfpack_D1107.dcp" />
|
||||
<DCCReference Include="cfpack_D117.dcp" />
|
||||
<DCCReference Include="cfpack_D121007.dcp" />
|
||||
<DCCReference Include="cfpack_D2007.dcp" />
|
||||
<DCCReference Include="cfpack_D21007.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=0
|
||||
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 happended (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
Packages/GUISDK_D11.res
Normal file
BIN
Packages/GUISDK_D11.res
Normal file
Binary file not shown.
@ -1,12 +1,11 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{0e5b9f0d-99ce-4dbd-9ec4-3c0e377e9009}</ProjectGuid>
|
||||
<ProjectGuid>{53bef2d1-a6c9-410c-9888-9c249cea28a3}</ProjectGuid>
|
||||
<MainSource>GUISDK_D2007.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\Lib\D2007\GUISDK_D2007.bpl</DCC_DependencyCheckOutputName>
|
||||
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\GUISDK_D2007.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
@ -17,18 +16,51 @@
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
<DCC_DcuOutput>..\Lib\D2007</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>..\Lib\D2007</DCC_ObjOutput>
|
||||
<DCC_HppOutput>..\Lib\D2007</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\Lib\D2007</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\Lib\D2007</DCC_DcpOutput>
|
||||
<DCC_Define>DEBUG;DEBUG</DCC_Define>
|
||||
</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">GUI SDK para Delphi 2007</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<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">GUI SDK para Delphi 2007</Package_Options>
|
||||
<Package_Options Name="ImplicitBuild">False</Package_Options>
|
||||
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
||||
<Package_Options Name="RuntimeOnly">False</Package_Options>
|
||||
</Package_Options>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">3082</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
@ -41,64 +73,519 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">GUISDK_D2007.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
<Source>
|
||||
<Source Name="MainSource">GUISDK_D2007.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="GUISDK_D2007.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\CFPack\Source\ccpackD2007.bplcfpack_D2007.dcp" />
|
||||
<DCCReference Include="..\..\CFPack\Source\cfpack_2007.dcp" />
|
||||
<DCCReference Include="..\..\CFPack\Source\cfpack_D2007..dcp" />
|
||||
<DCCReference Include="..\..\CFPack\Source\cfpack_D2007.b.dcp" />
|
||||
<DCCReference Include="..\..\CFPack\Source\cfpack_D2007.bp.dcp" />
|
||||
<DCCReference Include="..\..\CFPack\Source\cfpack_D2007.bpl.dcp" />
|
||||
<DCCReference Include="..\..\CFPack\Source\cfpack_D2007.bplcfpack_D2007.dcp" />
|
||||
<DCCReference Include="..\Sources\uCustomEditor.pas" />
|
||||
<DCCReference Include="..\Sources\uCustomView.pas" />
|
||||
<DCCReference Include="..\Sources\uGUIBase.pas" />
|
||||
<DCCReference Include="..\Sources\uGUIUtils.pas" />
|
||||
<DCCReference Include="ccpack.dcp" />
|
||||
<DCCReference Include="ccpack1.dcp" />
|
||||
<DCCReference Include="ccpack10.dcp" />
|
||||
<DCCReference Include="ccpackD.dcp" />
|
||||
<DCCReference Include="ccpackD2.dcp" />
|
||||
<DCCReference Include="ccpackD20.dcp" />
|
||||
<DCCReference Include="ccpackD200.dcp" />
|
||||
<DCCReference Include="cfpack_d10.dcp" />
|
||||
<DCCReference Include="cfpack_d20010.dcp" />
|
||||
<DCCReference Include="cfpack_d20070.dcp" />
|
||||
<DCCReference Include="cfpack_d200710.dcp" />
|
||||
<DCCReference Include="cfpack_d2010.dcp" />
|
||||
<DCCReference Include="cfpack_d210.dcp" />
|
||||
<DCCReference Include="T:\Bpl_D11\ccpackD2007.dcp" />
|
||||
<DCCReference Include="T:\Bpl_D11\cfpack_D2007.dcp" />
|
||||
<DCCReference Include="T:\Bpl_D11\designide.dcp" />
|
||||
<DCCReference Include="T:\Bpl_D11\rtl.dcp" />
|
||||
<DCCReference Include="T:\Bpl_D11\vcl.dcp" />
|
||||
<DCCReference Include="T:\Bpl_D11\vclactnband.dcp" />
|
||||
<DCCReference Include="T:\Bpl_D11\vclx.dcp" />
|
||||
<DCCReference Include="T:\Bpl_D11\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Source\uCustomEditor.pas" />
|
||||
<DCCReference Include="..\Source\uCustomView.pas" />
|
||||
<DCCReference Include="..\Source\uGUIBase.pas" />
|
||||
<DCCReference Include="..\Source\uGUIUtils.pas" />
|
||||
<DCCReference Include="ccpackD2007.dcp" />
|
||||
<DCCReference Include="cfpack_D2007.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=0
|
||||
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 happended (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 -->
|
||||
|
||||
Binary file not shown.
18
Source/uCustomEditor.dfm
Normal file
18
Source/uCustomEditor.dfm
Normal file
@ -0,0 +1,18 @@
|
||||
object CustomEditor: TCustomEditor
|
||||
Left = 486
|
||||
Top = 435
|
||||
Width = 518
|
||||
Height = 324
|
||||
Caption = 'CustomEditor'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnActivate = FormActivate
|
||||
OnClose = FormClose
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
end
|
||||
319
Source/uCustomEditor.pas
Normal file
319
Source/uCustomEditor.pas
Normal file
@ -0,0 +1,319 @@
|
||||
unit uCustomEditor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, uGUIBase, uCustomView;
|
||||
|
||||
type
|
||||
TCustomEditor = class(TForm, ICustomEditor)
|
||||
private
|
||||
FInstanceID: Integer;
|
||||
FOnGetModified: TOnGetModifiedEvent;
|
||||
FOnViewModified: TOnViewModifiedEvent;
|
||||
FReadOnly: Boolean;
|
||||
function FindHostForm : IHostForm;
|
||||
procedure ShowEmbedded(const AParent : TWinControl); overload;
|
||||
protected
|
||||
FViews: TInterfaceList;
|
||||
procedure UpdateActions; override;
|
||||
function GetInstanceID: Integer;
|
||||
function GetModified: Boolean; virtual;
|
||||
procedure SetModified(const Value : Boolean); virtual;
|
||||
function GetOnViewModified: TOnViewModifiedEvent;
|
||||
procedure SetOnViewModified(const Value : TOnViewModifiedEvent);
|
||||
function GetReadOnly: Boolean; virtual;
|
||||
function GetValid: Boolean; virtual;
|
||||
procedure SetInstanceID(Value: Integer);
|
||||
procedure SetReadOnly(Value: Boolean); virtual;
|
||||
function GetOnGetModified: TOnGetModifiedEvent;
|
||||
procedure SetOnGetModified(const Value: TOnGetModifiedEvent);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); overload; override;
|
||||
destructor Destroy; override;
|
||||
function CreateView(const AViewClass : TCustomViewClass): IInterface;
|
||||
function FindView(const IID: TGUID): IInterface;
|
||||
function GetInstance: TObject;
|
||||
procedure ShowEmbedded; overload;
|
||||
function CloseQuery: Boolean; override;
|
||||
property Modified: Boolean read GetModified write SetModified;
|
||||
published
|
||||
property InstanceID: Integer read GetInstanceID write SetInstanceID;
|
||||
property ReadOnly: Boolean read GetReadOnly write SetReadOnly;
|
||||
property Valid: Boolean read GetValid;
|
||||
property OnGetModified: TOnGetModifiedEvent read GetOnGetModified write
|
||||
SetOnGetModified;
|
||||
end;
|
||||
|
||||
TCustomEditorClass = class of TCustomEditor;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
CustFrms, uGUIUtils;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterCustomFormClass(TCustomEditor);
|
||||
end;
|
||||
|
||||
{
|
||||
******************************** TCustomEditor *********************************
|
||||
}
|
||||
|
||||
constructor TCustomEditor.Create(AOwner: TComponent);
|
||||
begin
|
||||
// inherited CreateNew(AOwner);
|
||||
// initialize custom fields, etc., here
|
||||
FViews := TInterfaceList.Create;
|
||||
|
||||
GlobalNameSpace.BeginWrite;
|
||||
try
|
||||
CreateNew(AOwner);
|
||||
if (ClassType <> TCustomEditor) and not (csDesigning in ComponentState) then
|
||||
begin
|
||||
Include(FFormState, fsCreating);
|
||||
try
|
||||
if not InitInheritedComponent(Self, TCustomEditor) then
|
||||
raise EResNotFound.CreateFmt('Error %s', [ClassName]);
|
||||
finally
|
||||
Exclude(FFormState, fsCreating);
|
||||
end;
|
||||
if OldCreateOrder then DoCreate;
|
||||
end;
|
||||
finally
|
||||
GlobalNameSpace.EndWrite;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
{ GlobalNameSpace.BeginWrite;
|
||||
try
|
||||
if (ClassType <> TCustomEditor) and
|
||||
not (csDesigning in ComponentState) then
|
||||
begin
|
||||
if not InitInheritedComponent(Self, TCustomEditor) then
|
||||
raise Exception.Create('Error');
|
||||
if OldCreateOrder and Assigned(OnCreate) then
|
||||
OnCreate(Self);
|
||||
end;
|
||||
finally
|
||||
GlobalNameSpace.EndWrite;
|
||||
end;}
|
||||
end;
|
||||
|
||||
destructor TCustomEditor.Destroy;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
for i := FViews.Count - 1 downto 0 do
|
||||
FViews.Delete(i);
|
||||
|
||||
FreeAndNIL(FViews);
|
||||
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
function TCustomEditor.CreateView(const AViewClass : TCustomViewClass):
|
||||
IInterface;
|
||||
begin
|
||||
Result := FViews[FViews.Add(AViewClass.Create(Self))];
|
||||
end;
|
||||
|
||||
function TCustomEditor.FindView(const IID: TGUID): IInterface;
|
||||
var
|
||||
i: Integer;
|
||||
aObj: ICustomView;
|
||||
begin
|
||||
aObj := NIL;
|
||||
Result := NIL;
|
||||
for i := 0 to (FViews.Count - 1) do
|
||||
begin
|
||||
FViews.Items[i].QueryInterface(IID, aObj);
|
||||
if Assigned(aObj) then
|
||||
begin
|
||||
Result := aObj;
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TCustomEditor.GetInstance: TObject;
|
||||
begin
|
||||
Result := Self;
|
||||
end;
|
||||
|
||||
function TCustomEditor.GetInstanceID: Integer;
|
||||
begin
|
||||
Result := FInstanceID;
|
||||
end;
|
||||
|
||||
function TCustomEditor.GetModified: Boolean;
|
||||
begin
|
||||
Result := ControlIsModified(Self);
|
||||
if Assigned(FOnGetModified) then
|
||||
FOnGetModified(Self, Result);
|
||||
end;
|
||||
|
||||
function TCustomEditor.GetReadOnly: Boolean;
|
||||
begin
|
||||
Result := FReadOnly;
|
||||
end;
|
||||
|
||||
function TCustomEditor.GetValid: Boolean;
|
||||
var
|
||||
i: Integer;
|
||||
aObj: ICustomView;
|
||||
begin
|
||||
aObj := NIL;
|
||||
Result := True;
|
||||
for i := 0 to (FViews.Count - 1) do
|
||||
begin
|
||||
FViews.Items[i].QueryInterface(IValidable, aObj);
|
||||
if Assigned(aObj) then
|
||||
Result := Result AND aObj.Valid;
|
||||
if not Result then
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCustomEditor.SetInstanceID(Value: Integer);
|
||||
begin
|
||||
FInstanceID := Value;
|
||||
end;
|
||||
|
||||
procedure TCustomEditor.SetReadOnly(Value: Boolean);
|
||||
begin
|
||||
FReadOnly := Value;
|
||||
end;
|
||||
|
||||
procedure TCustomEditor.ShowEmbedded;
|
||||
var
|
||||
AMainForm: IHostForm;
|
||||
begin
|
||||
AMainForm := NIL;
|
||||
if not Supports(Application.MainForm, IHostForm, AMainForm) then
|
||||
AMainForm := FindHostForm;
|
||||
|
||||
if not Assigned(AMainForm) then
|
||||
raise Exception.Create('No se ha encontrado el formulario principal (ShowEmbedded)')
|
||||
else
|
||||
AMainForm.ShowEmbedded(Self)
|
||||
end;
|
||||
|
||||
procedure TCustomEditor.ShowEmbedded(const AParent : TWinControl);
|
||||
begin
|
||||
Parent := AParent;
|
||||
Align := alClient;
|
||||
BorderIcons := [];
|
||||
BorderStyle := bsNone;
|
||||
Show;
|
||||
SetFocus;
|
||||
end;
|
||||
|
||||
function TCustomEditor.GetOnGetModified: TOnGetModifiedEvent;
|
||||
begin
|
||||
Result := FOnGetModified;
|
||||
end;
|
||||
|
||||
function TCustomEditor.GetOnViewModified: TOnViewModifiedEvent;
|
||||
begin
|
||||
Result := FOnViewModified;
|
||||
end;
|
||||
|
||||
procedure TCustomEditor.SetOnGetModified(const Value: TOnGetModifiedEvent);
|
||||
begin
|
||||
FOnGetModified := Value;
|
||||
end;
|
||||
|
||||
procedure TCustomEditor.SetOnViewModified(const Value: TOnViewModifiedEvent);
|
||||
begin
|
||||
FOnViewModified := Value;
|
||||
end;
|
||||
|
||||
function TCustomEditor.CloseQuery: Boolean;
|
||||
var
|
||||
i: Integer;
|
||||
aIntf: IValidable;
|
||||
begin
|
||||
Result := inherited CloseQuery;
|
||||
if Result then
|
||||
for i := 0 to FViews.Count - 1 do
|
||||
begin
|
||||
FViews.Items[i].QueryInterface(IValidable, aIntf);
|
||||
if Assigned(aIntf) then
|
||||
begin
|
||||
Result := (Result and aIntf.Valid);
|
||||
if not Result then
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCustomEditor.SetModified(const Value: Boolean);
|
||||
begin
|
||||
if Value = False then
|
||||
ResetModifiedControl(Self);
|
||||
|
||||
if Assigned(FOnViewModified) then
|
||||
FOnViewModified(Self);
|
||||
end;
|
||||
|
||||
function TCustomEditor.FindHostForm: IHostForm;
|
||||
var
|
||||
i : integer;
|
||||
AMainForm : IHostForm;
|
||||
begin
|
||||
Result := NIL;
|
||||
for i := 0 to Application.ComponentCount do
|
||||
if Supports(Application.Components[i], IHostForm, AMainForm) then
|
||||
begin
|
||||
Result := AMainForm;
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
|
||||
{-------------------------------------------------------------------------------
|
||||
Sobreescribo 'UpdateActions' por un fallo en Delphi que hace
|
||||
consumir mucha CPU cuando se usan acciones con formularios metidos
|
||||
uno dentro de otro.
|
||||
-------------------------------------------------------------------------------}
|
||||
procedure TCustomEditor.UpdateActions;
|
||||
var
|
||||
I: Integer;
|
||||
|
||||
procedure TraverseClients(Container: TWinControl);
|
||||
var
|
||||
I: Integer;
|
||||
Control: TControl;
|
||||
begin
|
||||
Application.ProcessMessages; // <--- Modificación
|
||||
if Container.Showing then
|
||||
for I := 0 to Container.ControlCount - 1 do
|
||||
begin
|
||||
Control := Container.Controls[I];
|
||||
if (csActionClient in Control.ControlStyle) and Control.Visible then
|
||||
Control.InitiateAction;
|
||||
|
||||
if Control is TWinControl then
|
||||
TraverseClients(TWinControl(Control));
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
if (csDesigning in ComponentState) or not Showing then Exit;
|
||||
{ Update form }
|
||||
InitiateAction;
|
||||
{ Update main menu's top-most items }
|
||||
if Menu <> nil then
|
||||
for I := 0 to Menu.Items.Count - 1 do
|
||||
with Menu.Items[I] do
|
||||
if Visible then InitiateAction;
|
||||
{ Update any controls }
|
||||
TraverseClients(Self);
|
||||
end;
|
||||
|
||||
end.
|
||||
7
Source/uCustomView.dfm
Normal file
7
Source/uCustomView.dfm
Normal file
@ -0,0 +1,7 @@
|
||||
object CustomView: TCustomView
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 320
|
||||
Height = 240
|
||||
TabOrder = 0
|
||||
end
|
||||
244
Source/uCustomView.pas
Normal file
244
Source/uCustomView.pas
Normal file
@ -0,0 +1,244 @@
|
||||
unit uCustomView;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, uGUIBase, DesignEditors;
|
||||
|
||||
type
|
||||
TCustomView = class(TFrame, ICustomView)
|
||||
private
|
||||
FOnGetModified: TOnGetModifiedEvent;
|
||||
FOnViewModified: TOnViewModifiedEvent;
|
||||
FReadOnly: Boolean;
|
||||
FOnCreate: TNotifyEvent;
|
||||
FOnDestroy: TNotifyEvent;
|
||||
FOnHide: TNotifyEvent;
|
||||
FOnShow: TNotifyEvent;
|
||||
procedure ShowEmbedded; overload;
|
||||
procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED;
|
||||
protected
|
||||
FObserver: IObserver;
|
||||
function GetOnGetModified: TOnGetModifiedEvent;
|
||||
procedure SetOnGetModified(const Value : TOnGetModifiedEvent);
|
||||
function GetOnViewModified: TOnViewModifiedEvent;
|
||||
procedure SetOnViewModified(const Value : TOnViewModifiedEvent);
|
||||
procedure SetModified(const Value : Boolean); virtual;
|
||||
function GetModified: Boolean; virtual;
|
||||
function GetReadOnly: Boolean; virtual;
|
||||
function GetValid: Boolean; virtual;
|
||||
procedure Release;
|
||||
procedure SetReadOnly(Value: Boolean); virtual;
|
||||
procedure DoCreate; virtual;
|
||||
procedure DoDestroy; virtual;
|
||||
procedure DoHide; dynamic;
|
||||
procedure DoShow; dynamic;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
constructor CreateEmbedded(AOwner: TComponent; AParent: TWinControl);
|
||||
destructor Destroy; override;
|
||||
procedure ShowEmbedded(const AParent : TWinControl); overload; virtual;
|
||||
property Modified: Boolean read GetModified write SetModified;
|
||||
published
|
||||
property OnGetModified: TOnGetModifiedEvent read GetOnGetModified write
|
||||
SetOnGetModified;
|
||||
property OnViewModified: TOnViewModifiedEvent read GetOnViewModified write
|
||||
SetOnViewModified;
|
||||
property ReadOnly: Boolean read GetReadOnly write SetReadOnly;
|
||||
property Valid: Boolean read GetValid;
|
||||
property OnCreate: TNotifyEvent read FOnCreate write FOnCreate;
|
||||
property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
|
||||
property OnHide: TNotifyEvent read FOnHide write FOnHide;
|
||||
property OnShow: TNotifyEvent read FOnShow write FOnShow;
|
||||
end;
|
||||
|
||||
TCustomViewClass = class of TCustomView;
|
||||
|
||||
TCustomViewModule = class(TCustomModule)
|
||||
public
|
||||
function Nestable: Boolean; override;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TCustomView }
|
||||
|
||||
uses
|
||||
DesignIntf, uGUIUtils, RTLConsts;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterCustomModule(TCustomView, TCustomViewModule);
|
||||
end;
|
||||
|
||||
{
|
||||
********************************* TCustomView **********************************
|
||||
}
|
||||
procedure TCustomView.CMShowingChanged(var Message: TMessage);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if Showing then
|
||||
begin
|
||||
// Put your OnShow logic here.
|
||||
// When this is called, the frame's window handle has already
|
||||
// been created, as have the handles for the controls on the
|
||||
// frame - so you can do most anything you need to do.
|
||||
if Assigned(FOnShow) then
|
||||
FOnShow(Self);
|
||||
end
|
||||
else
|
||||
begin
|
||||
// Put your OnHide logic here, but see the caveats below.
|
||||
if Assigned(FOnHide) then
|
||||
FOnHide(Self);
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TCustomView.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
FObserver := NIL;
|
||||
DoCreate;
|
||||
end;
|
||||
|
||||
constructor TCustomView.CreateEmbedded(AOwner: TComponent; AParent:
|
||||
TWinControl);
|
||||
begin
|
||||
Create(AOwner);
|
||||
Parent := AParent;
|
||||
Align := alClient;
|
||||
end;
|
||||
|
||||
destructor TCustomView.Destroy;
|
||||
begin
|
||||
DoDestroy;
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
procedure TCustomView.DoCreate;
|
||||
begin
|
||||
if Assigned(FOnCreate) then
|
||||
begin
|
||||
try
|
||||
FOnCreate(Self);
|
||||
except
|
||||
Application.HandleException(Self);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCustomView.DoDestroy;
|
||||
begin
|
||||
if Assigned(FOnDestroy) then
|
||||
begin
|
||||
try
|
||||
FOnDestroy(Self);
|
||||
except
|
||||
Application.HandleException(Self);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCustomView.DoHide;
|
||||
begin
|
||||
if Assigned(FOnHide) then
|
||||
begin
|
||||
try
|
||||
FOnHide(Self);
|
||||
except
|
||||
Application.HandleException(Self);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCustomView.DoShow;
|
||||
begin
|
||||
if Assigned(FOnShow) then
|
||||
begin
|
||||
try
|
||||
FOnShow(Self);
|
||||
except
|
||||
Application.HandleException(Self);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TCustomView.GetModified: Boolean;
|
||||
begin
|
||||
Result := ControlIsModified(Self);
|
||||
if Assigned(FOnGetModified) then
|
||||
FOnGetModified(Self, Result);
|
||||
end;
|
||||
|
||||
function TCustomView.GetOnGetModified: TOnGetModifiedEvent;
|
||||
begin
|
||||
Result := FOnGetModified;
|
||||
end;
|
||||
|
||||
function TCustomView.GetOnViewModified: TOnViewModifiedEvent;
|
||||
begin
|
||||
Result := FOnViewModified;
|
||||
end;
|
||||
|
||||
function TCustomView.GetReadOnly: Boolean;
|
||||
begin
|
||||
Result := FReadOnly;
|
||||
end;
|
||||
|
||||
function TCustomView.GetValid: Boolean;
|
||||
begin
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
procedure TCustomView.Release;
|
||||
begin
|
||||
Free;
|
||||
end;
|
||||
|
||||
procedure TCustomView.SetModified(const Value: Boolean);
|
||||
begin
|
||||
if Assigned(FOnViewModified) then
|
||||
FOnViewModified(Self);
|
||||
end;
|
||||
|
||||
procedure TCustomView.SetOnGetModified(const Value: TOnGetModifiedEvent);
|
||||
begin
|
||||
FOnGetModified := Value;
|
||||
end;
|
||||
|
||||
procedure TCustomView.SetOnViewModified(const Value: TOnViewModifiedEvent);
|
||||
begin
|
||||
FOnViewModified := Value;
|
||||
end;
|
||||
|
||||
procedure TCustomView.SetReadOnly(Value: Boolean);
|
||||
begin
|
||||
FReadOnly := Value;
|
||||
end;
|
||||
|
||||
procedure TCustomView.ShowEmbedded;
|
||||
begin
|
||||
Align := alClient;
|
||||
Show;
|
||||
end;
|
||||
|
||||
procedure TCustomView.ShowEmbedded(const AParent : TWinControl);
|
||||
begin
|
||||
Parent := AParent;
|
||||
ShowEmbedded;
|
||||
end;
|
||||
|
||||
{ TCustomViewModule }
|
||||
|
||||
function TCustomViewModule.Nestable: Boolean;
|
||||
begin
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
end.
|
||||
128
Source/uGUIBase.pas
Normal file
128
Source/uGUIBase.pas
Normal file
@ -0,0 +1,128 @@
|
||||
unit uGUIBase;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Forms, Controls, Contnrs, Classes;
|
||||
|
||||
type
|
||||
TOnGetModifiedEvent = procedure (Sender: TObject; var Modified: Boolean) of object;
|
||||
TOnViewModifiedEvent = procedure (Sender: TObject) of object;
|
||||
|
||||
IEmbeddedable = interface(IInterface)
|
||||
['{A1668B17-B355-4688-A78A-B30AE3C8C81E}']
|
||||
procedure Release;
|
||||
procedure ShowEmbedded; overload;
|
||||
procedure ShowEmbedded(const AParent : TWinControl); overload;
|
||||
end;
|
||||
|
||||
IModificable = interface(IEmbeddedable)
|
||||
['{7F75A327-4ACC-4E4A-8B3D-21C1241DAFBF}']
|
||||
function GetModified: Boolean;
|
||||
procedure SetModified(const Value : Boolean);
|
||||
property Modified: Boolean read GetModified write SetModified;
|
||||
|
||||
function GetOnGetModified: TOnGetModifiedEvent;
|
||||
procedure SetOnGetModified(const Value : TOnGetModifiedEvent);
|
||||
property OnGetModified: TOnGetModifiedEvent read GetOnGetModified write
|
||||
SetOnGetModified;
|
||||
|
||||
function GetOnViewModified: TOnViewModifiedEvent;
|
||||
procedure SetOnViewModified(const Value : TOnViewModifiedEvent);
|
||||
property OnViewModified: TOnViewModifiedEvent read GetOnViewModified write
|
||||
SetOnViewModified;
|
||||
end;
|
||||
|
||||
IReadOnly = interface(IModificable)
|
||||
['{2549ECF9-270F-4F3C-9852-E488C518F590}']
|
||||
function GetReadOnly: Boolean;
|
||||
procedure SetReadOnly(Value: Boolean);
|
||||
property ReadOnly: Boolean read GetReadOnly write SetReadOnly;
|
||||
end;
|
||||
|
||||
IValidable = interface(IReadOnly)
|
||||
['{A2562A5E-E3B2-4C1B-B8FE-13A410D8B3DB}']
|
||||
function GetValid: Boolean;
|
||||
property Valid: Boolean read GetValid;
|
||||
end;
|
||||
|
||||
IInstanceAware = interface(IValidable)
|
||||
['{B6B2676A-1D8E-4597-ADDB-43734508E6F5}']
|
||||
function GetInstance: TObject;
|
||||
function GetInstanceID: Integer;
|
||||
procedure SetInstanceID(Value: Integer);
|
||||
property InstanceID: Integer read GetInstanceID write SetInstanceID;
|
||||
end;
|
||||
|
||||
ICustomEditor = interface(IInstanceAware)
|
||||
['{07A3AB52-B2B0-4DE3-B470-379834BBE7DB}']
|
||||
end;
|
||||
|
||||
ICustomView = interface(IValidable)
|
||||
['{98192DE2-19C5-4DA5-B4F4-F2B3782DB6E2}']
|
||||
function CanFocus: Boolean;
|
||||
function Focused: Boolean;
|
||||
procedure SetFocus;
|
||||
procedure Update;
|
||||
end;
|
||||
|
||||
|
||||
IHostForm = interface(IInterface)
|
||||
['{2091401E-1F9C-4F05-8574-E9E0532780D1}']
|
||||
function GetWorkPanel: TWinControl;
|
||||
property WorkPanel: TWinControl read GetWorkPanel;
|
||||
procedure OnWorkPanelChanged(AEditor : ICustomEditor);
|
||||
procedure ShowEmbedded(AEditor : ICustomEditor);
|
||||
end;
|
||||
|
||||
|
||||
IGUIManager = interface(IInterface)
|
||||
['{D0A5D2CC-36E1-4C61-8D3B-B6D00EBA3278}']
|
||||
function FindInstance(const IID: TGUID): ICustomEditor;
|
||||
function GetActiveInstance: ICustomEditor;
|
||||
function GetActiveInstanceIndex: Integer;
|
||||
function GetInstance(Index : Integer): ICustomEditor;
|
||||
function GetWorkPanel: TWinControl;
|
||||
function RegisterInstance(AInstance : ICustomEditor): Boolean;
|
||||
procedure ReleaseInstance(AnInstance : ICustomEditor);
|
||||
procedure SetActiveInstance(Value: ICustomEditor);
|
||||
procedure SetActiveInstanceIndex(Value: Integer);
|
||||
procedure SetWorkPanel(const Value: TWinControl);
|
||||
property ActiveInstance: ICustomEditor read GetActiveInstance write
|
||||
SetActiveInstance;
|
||||
property ActiveInstanceIndex: Integer read GetActiveInstanceIndex write
|
||||
SetActiveInstanceIndex;
|
||||
property Instances[Index : Integer]: ICustomEditor read GetInstance;
|
||||
property WorkPanel: TWinControl read GetWorkPanel write SetWorkPanel;
|
||||
end;
|
||||
|
||||
IObservable = interface;
|
||||
TObserverEvent = procedure (AObject : IObservable) of object;
|
||||
IObserver = interface(IInterface)
|
||||
['{79175C66-8435-4F2F-A3E0-A53A24554A0E}']
|
||||
function GetOnNotifyObserver: TObserverEvent;
|
||||
function GetOnObserverAttached: TObserverEvent;
|
||||
function GetOnObserverDettached: TObserverEvent;
|
||||
procedure NotifyObserver(const AObject: IObservable);
|
||||
procedure ObserverAttached(AObject : IObservable);
|
||||
procedure ObserverDettached(AObject : IObservable);
|
||||
procedure SetOnNotifyObserver(AValue: TObserverEvent);
|
||||
procedure SetOnObserverAttached(AValue: TObserverEvent);
|
||||
procedure SetOnObserverDettached(AValue: TObserverEvent);
|
||||
property OnNotifyObserver: TObserverEvent read GetOnNotifyObserver write
|
||||
SetOnNotifyObserver;
|
||||
property OnObserverAttached: TObserverEvent read GetOnObserverAttached
|
||||
write SetOnObserverAttached;
|
||||
property OnObserverDettached: TObserverEvent read GetOnObserverDettached
|
||||
write SetOnObserverDettached;
|
||||
end;
|
||||
|
||||
IObservable = interface(IInterface)
|
||||
['{1FF0F081-CBBA-4728-8689-D6F506652E80}']
|
||||
procedure AddObserver(const AObserver: IObserver);
|
||||
procedure RemoveObserver(const AObserver: IObserver);
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
51
Source/uGUIUtils.pas
Normal file
51
Source/uGUIUtils.pas
Normal file
@ -0,0 +1,51 @@
|
||||
unit uGUIUtils;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Controls;
|
||||
|
||||
function ControlIsModified(AControl : TWinControl) : Boolean;
|
||||
procedure ResetModifiedControl(AControl : TWinControl);
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
StdCtrls, uGUIBase, uCustomView;
|
||||
|
||||
function ControlIsModified(AControl : TWinControl) : Boolean;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if AControl is TCustomEdit then
|
||||
Result := Result OR (AControl as TCustomEdit).Modified
|
||||
else
|
||||
if not Result then
|
||||
for i := 0 to AControl.ControlCount - 1 do
|
||||
begin
|
||||
if AControl.Controls[i] is TWinControl then
|
||||
Result := ControlIsModified((AControl.Controls[i] as TWinControl));
|
||||
|
||||
if Result then
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure ResetModifiedControl(AControl : TWinControl);
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
if AControl is TCustomEdit then
|
||||
(AControl as TCustomEdit).Modified := False
|
||||
else
|
||||
for i := 0 to AControl.ControlCount - 1 do
|
||||
begin
|
||||
if AControl.Controls[i] is TWinControl then
|
||||
ResetModifiedControl((AControl.Controls[i] as TWinControl));
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user