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

Importación inicial

Browse Source 
git-svn-id: https://192.168.0.254/svn/Componentes.Internos.GUISDK/trunk@4 e3f7d858-3362-1a4e-b49c-1b1bd96e4488
This commit is contained in:
David Arranz 2007-08-17 15:03:54 +00:00
commit e9c10e67f8
26 changed files with 2283 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Build/Build.proj Normal file
View File

@ -0,0 +1,13 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003" DefaultTargets="BuildAll">
<ItemGroup>
<Projects Include="GUISDK.proj"/>
</ItemGroup>
<Target Name="BuildAll">
<MSBuild Projects="@(Projects)" Targets="ReBuild"/>
</Target>
<Target Name="Clean">
<MSBuild Projects="@(Projects)" Targets="Clean"/>
</Target>
</Project>

9
Build/Build.properties Normal file
View File

@ -0,0 +1,9 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<!-- Project Folders -->
<PropertyGroup>
<BaseFolder>$(MSBuildProjectDirectory)\..</BaseFolder>
<SourceFolder>$(BaseFolder)\Sources</SourceFolder>
<PackageFolder>$(BaseFolder)\Packages</PackageFolder>
<OutputFolder>$(BaseFolder)\Lib\$(DelphiVersion)</OutputFolder>
</PropertyGroup>
</Project>

58
Build/GUISDK.proj Normal file
View File

@ -0,0 +1,58 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(BUILDTOOLS)\RodaxSoftware.Delphi.Targets"/>
<Import Project="$(MSBuildProjectDirectory)\Build.properties"/>
<!-- Environment Settings -->
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DependencyCheckOutputName>$(OutputFolder)\GUISDK_$(DelphiVersion).bpl</DCC_DependencyCheckOutputName>
</PropertyGroup>
<!-- 3rd Party Library Settings -->
<PropertyGroup>
</PropertyGroup>
<!-- Project Settings -->
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>0</DCC_MapFile>
<DCC_BplOutput>$(OutputFolder)</DCC_BplOutput>
<DCC_DcpOutput>$(OutputFolder)</DCC_DcpOutput>
<DCC_DcuOutput>$(OutputFolder)</DCC_DcuOutput>
<DCC_ObjOutput>$(OutputFolder)</DCC_ObjOutput>
<DCC_UnitSearchPath>$(OutputFolder);$(SourceFolder)</DCC_UnitSearchPath>
<DCC_ResourcePath>$(OutputFolder)</DCC_ResourcePath>
<DCC_ObjPath>$(OutputFolder)</DCC_ObjPath>
<DCC_IncludePath>$(OutputFolder)</DCC_IncludePath>
<DCC_BuildAllUnits>False</DCC_BuildAllUnits>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<!-- Project's Packages -->
<ItemGroup>
<Packages Include="$(PackageFolder)\GUISDK_$(DelphiVersion).dpk" />
<DelphiCompile Include="@(Packages)"/>
<DCCReference Include="$(SourceFolder)\uCustomEditor.pas">
<Form>CustomEditor</Form>
</DCCReference>
<DCCReference Include="$(SourceFolder)\uCustomView.pas">
<Form>CustomView</Form>
</DCCReference>
<DCCReference Include="$(SourceFolder)\Source\uGUIBase.pas" />
<DCCReference Include="$(SourceFolder)\Source\uGUIUtils.pas" />
<DCCReference Include="ccpack$(DelphiVersion).dcp" />
<DCCReference Include="cfpack_$(DelphiVersion).dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="JvAppFrm$(DelphiVersion)R.dcp" />
<DCCReference Include="JvCore$(DelphiVersion)R.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
</Project>

7
Lib/D7/uCustomView.dfm Normal file
View File

@ -0,0 +1,7 @@
object CustomView: TCustomView
Left = 0
Top = 0
Width = 320
Height = 240
TabOrder = 0
end

508
Packages/GUISDK_D10.bdsproj Normal file
View File

@ -0,0 +1,508 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">Delphi.Personality</Option>
<Option Name="ProjectType">VCLApplication</Option>
<Option Name="Version">1.0</Option>
<Option Name="GUID">{957A24E2-B568-44EB-9E8B-639F1A9628AB}</Option>
</Option>
</PersonalityInfo>
<Delphi.Personality>
<Source>
<Source Name="MainSource">GUISDK_D10.dpk</Source>
</Source>
<FileVersion>
<FileVersion Name="Version">7.0</FileVersion>
</FileVersion>
<Compiler>
<Compiler Name="A">8</Compiler>
<Compiler Name="B">0</Compiler>
<Compiler Name="C">1</Compiler>
<Compiler Name="D">1</Compiler>
<Compiler Name="E">0</Compiler>
<Compiler Name="F">0</Compiler>
<Compiler Name="G">1</Compiler>
<Compiler Name="H">1</Compiler>
<Compiler Name="I">1</Compiler>
<Compiler Name="J">0</Compiler>
<Compiler Name="K">0</Compiler>
<Compiler Name="L">1</Compiler>
<Compiler Name="M">0</Compiler>
<Compiler Name="N">1</Compiler>
<Compiler Name="O">1</Compiler>
<Compiler Name="P">1</Compiler>
<Compiler Name="Q">0</Compiler>
<Compiler Name="R">0</Compiler>
<Compiler Name="S">0</Compiler>
<Compiler Name="T">0</Compiler>
<Compiler Name="U">0</Compiler>
<Compiler Name="V">1</Compiler>
<Compiler Name="W">0</Compiler>
<Compiler Name="X">1</Compiler>
<Compiler Name="Y">1</Compiler>
<Compiler Name="Z">1</Compiler>
<Compiler Name="ShowHints">True</Compiler>
<Compiler Name="ShowWarnings">True</Compiler>
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
<Compiler Name="NamespacePrefix"></Compiler>
<Compiler Name="GenerateDocumentation">False</Compiler>
<Compiler Name="DefaultNamespace"></Compiler>
<Compiler Name="SymbolDeprecated">True</Compiler>
<Compiler Name="SymbolLibrary">True</Compiler>
<Compiler Name="SymbolPlatform">True</Compiler>
<Compiler Name="SymbolExperimental">True</Compiler>
<Compiler Name="UnitLibrary">True</Compiler>
<Compiler Name="UnitPlatform">True</Compiler>
<Compiler Name="UnitDeprecated">True</Compiler>
<Compiler Name="UnitExperimental">True</Compiler>
<Compiler Name="HResultCompat">True</Compiler>
<Compiler Name="HidingMember">True</Compiler>
<Compiler Name="HiddenVirtual">True</Compiler>
<Compiler Name="Garbage">True</Compiler>
<Compiler Name="BoundsError">True</Compiler>
<Compiler Name="ZeroNilCompat">True</Compiler>
<Compiler Name="StringConstTruncated">True</Compiler>
<Compiler Name="ForLoopVarVarPar">True</Compiler>
<Compiler Name="TypedConstVarPar">True</Compiler>
<Compiler Name="AsgToTypedConst">True</Compiler>
<Compiler Name="CaseLabelRange">True</Compiler>
<Compiler Name="ForVariable">True</Compiler>
<Compiler Name="ConstructingAbstract">True</Compiler>
<Compiler Name="ComparisonFalse">True</Compiler>
<Compiler Name="ComparisonTrue">True</Compiler>
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
<Compiler Name="UnsupportedConstruct">True</Compiler>
<Compiler Name="FileOpen">True</Compiler>
<Compiler Name="FileOpenUnitSrc">True</Compiler>
<Compiler Name="BadGlobalSymbol">True</Compiler>
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
<Compiler Name="InvalidDirective">True</Compiler>
<Compiler Name="PackageNoLink">True</Compiler>
<Compiler Name="PackageThreadVar">True</Compiler>
<Compiler Name="ImplicitImport">True</Compiler>
<Compiler Name="HPPEMITIgnored">True</Compiler>
<Compiler Name="NoRetVal">True</Compiler>
<Compiler Name="UseBeforeDef">True</Compiler>
<Compiler Name="ForLoopVarUndef">True</Compiler>
<Compiler Name="UnitNameMismatch">True</Compiler>
<Compiler Name="NoCFGFileFound">True</Compiler>
<Compiler Name="ImplicitVariants">True</Compiler>
<Compiler Name="UnicodeToLocale">True</Compiler>
<Compiler Name="LocaleToUnicode">True</Compiler>
<Compiler Name="ImagebaseMultiple">True</Compiler>
<Compiler Name="SuspiciousTypecast">True</Compiler>
<Compiler Name="PrivatePropAccessor">True</Compiler>
<Compiler Name="UnsafeType">False</Compiler>
<Compiler Name="UnsafeCode">False</Compiler>
<Compiler Name="UnsafeCast">False</Compiler>
<Compiler Name="OptionTruncated">True</Compiler>
<Compiler Name="WideCharReduced">True</Compiler>
<Compiler Name="DuplicatesIgnored">True</Compiler>
<Compiler Name="UnitInitSeq">True</Compiler>
<Compiler Name="LocalPInvoke">True</Compiler>
<Compiler Name="MessageDirective">True</Compiler>
<Compiler Name="CodePage"></Compiler>
</Compiler>
<Linker>
<Linker Name="MapFile">3</Linker>
<Linker Name="OutputObjs">0</Linker>
<Linker Name="GenerateHpps">False</Linker>
<Linker Name="ConsoleApp">1</Linker>
<Linker Name="DebugInfo">False</Linker>
<Linker Name="RemoteSymbols">False</Linker>
<Linker Name="GenerateDRC">False</Linker>
<Linker Name="MinStackSize">16384</Linker>
<Linker Name="MaxStackSize">1048576</Linker>
<Linker Name="ImageBase">4194304</Linker>
<Linker Name="ExeDescription">GUI SDK para Delphi 10</Linker>
</Linker>
<Directories>
<Directories Name="OutputDir"></Directories>
<Directories Name="UnitOutputDir">..\Lib\D10</Directories>
<Directories Name="PackageDLLOutputDir"></Directories>
<Directories Name="PackageDCPOutputDir"></Directories>
<Directories Name="SearchPath">..\Lib\D10;..\Source</Directories>
<Directories Name="Packages"></Directories>
<Directories Name="Conditionals"></Directories>
<Directories Name="DebugSourceDirs"></Directories>
<Directories Name="UsePackages">False</Directories>
</Directories>
<Parameters>
<Parameters Name="RunParams"></Parameters>
<Parameters Name="HostApplication"></Parameters>
<Parameters Name="Launcher"></Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="DebugCWD"></Parameters>
<Parameters Name="Debug Symbols Search Path"></Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Language>
<Language Name="ActiveLang"></Language>
<Language Name="ProjectLang">$00000000</Language>
<Language Name="RootDir"></Language>
</Language>
<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="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxBarD10.bpl">ExpressBars by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxComnD10.bpl">ExpressCommonLibrary by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxBarDBNavD10.bpl">ExpressBars DBNavigator by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxBarExtDBItemsD10.bpl">ExpressBars extended DB items by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxBarExtItemsD10.bpl">ExpressBars extended items by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxDockingD10.bpl">ExpressDocking Library by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxLayoutControlD10.bpl">ExpressLayout Control by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxNavBarD10.bpl">ExpressNavBar by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxGDIPlusD10.bpl">ExpressGDI+ Library by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxsbD10.bpl">ExpressSideBar by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
Activate=1
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=0
Freeze Message=The application seems to be frozen.
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
Show TerminateBtn=1
TerminateBtn Operation=1
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=1
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesSection=1
loSaveCPUSection=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soExcDate=1
soExcAddress=1
soExcModule=1
soExcType=1
soExcMessage=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpUser=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=0
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndCompressAllFiles=0
edoShowExceptionDialog=1
edoSendEmailChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=1
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoShowProcedureOffset=0
boActivateCrashDetection=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtDialog_Caption=1
mtDialog_Caption0="Error."
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_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_CustomDataCaption=1
mtDialog_CustomDataCaption0="Other"
Count mtDialog_CustomDataHeader=1
mtDialog_CustomDataHeader0="Other 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_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 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_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModule=1
mtLog_ExcModule0="Module"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
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_CmpUser=1
mtLog_CmpUser0="User"
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_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_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 mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
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 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 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."
EurekaLog Last Line -->
</BorlandProject>

41
Packages/GUISDK_D10.cfg Normal file
View File

@ -0,0 +1,41 @@
-$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
-GD
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-N0"..\Lib\D10"
-LE"C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl"
-LN"C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl"
-Z
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

43
Packages/GUISDK_D10.dpk Normal file
View File

@ -0,0 +1,43 @@
package GUISDK_D10;
{$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 OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'GUI SDK para Delphi 10'}
{$IMPLICITBUILD OFF}
requires
vcl,
rtl,
designide,
vclactnband,
vclx,
cfpack_d10,
ccpack10;
contains
uCustomView in '..\Sources\uCustomView.pas' {CustomView: TFrame},
uCustomEditor in '..\Sources\uCustomEditor.pas' {CustomEditor},
uGUIBase in '..\Sources\uGUIBase.pas',
uGUIUtils in '..\Sources\uGUIUtils.pas';
end.

135
Packages/GUISDK_D10.dproj Normal file
View File

@ -0,0 +1,135 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{d159ebd0-959c-44de-808b-70cd0d38253d}</ProjectGuid>
<MainSource>GUISDK_D10.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\GUISDK_D10.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_MapFile>3</DCC_MapFile>
<DCC_DcuOutput>..\Lib\D10</DCC_DcuOutput>
<DCC_ObjOutput>..\Lib\D10</DCC_ObjOutput>
<DCC_HppOutput>..\Lib\D10</DCC_HppOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_DcuOutput>..\Lib\D10</DCC_DcuOutput>
<DCC_ObjOutput>..\Lib\D10</DCC_ObjOutput>
<DCC_HppOutput>..\Lib\D10</DCC_HppOutput>
<DCC_Define>DEBUG</DCC_Define>
</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">GUI SDK para Delphi 10</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="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxBarD10.bpl">ExpressBars by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxComnD10.bpl">ExpressCommonLibrary by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxBarDBNavD10.bpl">ExpressBars DBNavigator by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxBarExtDBItemsD10.bpl">ExpressBars extended DB items by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxBarExtItemsD10.bpl">ExpressBars extended items by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxDockingD10.bpl">ExpressDocking Library by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxLayoutControlD10.bpl">ExpressLayout Control by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxNavBarD10.bpl">ExpressNavBar by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxGDIPlusD10.bpl">ExpressGDI+ Library by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\Developer Express Inc\Lib\D10\dxsbD10.bpl">ExpressSideBar by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages>
<Source>
<Source Name="MainSource">GUISDK_D10.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions>
<ItemGroup />
<ItemGroup>
<DelphiCompile Include="GUISDK_D10.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Source\uCustomEditor.pas">
<Form>CustomEditor</Form>
</DCCReference>
<DCCReference Include="..\Source\uCustomView.pas">
<Form>CustomView</Form>
</DCCReference>
<DCCReference Include="..\Source\uGUIBase.pas" />
<DCCReference Include="..\Source\uGUIUtils.pas" />
<DCCReference Include="ccpack10.dcp" />
<DCCReference Include="cfpack_d10.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="JvAppFrmD10R.dcp" />
<DCCReference Include="JvCoreD10R.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
</Project>

14
Packages/GUISDK_D10.drc Normal file
View File

@ -0,0 +1,14 @@
/* VER180
Generated by the Borland Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END

BIN
Packages/GUISDK_D10.res Normal file
View File

Binary file not shown.

44
Packages/GUISDK_D2007.dpk Normal file
View File

@ -0,0 +1,44 @@
package GUISDK_D2007;
{$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 OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'GUI SDK para Delphi 10'}
{$IMPLICITBUILD OFF}
{$DEFINE DEBUG}
requires
vcl,
rtl,
designide,
vclactnband,
vclx,
cfpack_d10,
ccpack10;
contains
uCustomView in '..\Source\uCustomView.pas' {CustomView: TFrame},
uCustomEditor in '..\Source\uCustomEditor.pas' {CustomEditor},
uGUIBase in '..\Source\uGUIBase.pas',
uGUIUtils in '..\Source\uGUIUtils.pas';
end.

BIN
Packages/GUISDK_D2007.res Normal file
View File

Binary file not shown.

42
Packages/GUISDK_D7.cfg Normal file
View File

@ -0,0 +1,42 @@
-$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
-GD
-cg
-vn
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-N"..\Lib\D7"
-LE"c:\archivos de programa\borland\delphi7\Projects\Bpl"
-LN"c:\archivos de programa\borland\delphi7\Projects\Bpl"
-Z
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

501
Packages/GUISDK_D7.dof Normal file
View File

@ -0,0 +1,501 @@
[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=0
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=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
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=3
OutputObjs=0
ConsoleApp=1
DebugInfo=1
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=GUI SDK para Delphi 7
[Directories]
OutputDir=
UnitOutputDir=..\Lib\D7
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;CEToolsPkgd7;FR7;FRIBX7;Hydra_Core_D7;Hydra_RO_D7
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
[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=3082
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Excluded Packages]
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\DJclVcl70.bpl=JEDI Code Library VCL package for Delphi 7
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\DJcl70.bpl=JEDI Code Library RTL package for Delphi 7
C:\WINDOWS\system32\fqb70.bpl=FastQueryBuilder 1.01
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxPSCoreD7.bpl=ExpressPrinting System (core 3.1) by Developer Express Inc.
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxComnD7.bpl=ExpressCommonLibrary by Developer Express Inc.
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarDBNavD7.bpl=ExpressBars DBNavigator by Developer Express Inc.
C:\Archivos de programa\RemObjects Software\Hydra\Dcu\D7\Hydra_Core_D7.bpl=RemObjects Hydra - Core Library
C:\Archivos de programa\RemObjects Software\Hydra\Dcu\D7\Hydra_IDE_D7.bpl=RemObjects Hydra - IDE Integration
C:\Archivos de programa\RemObjects Software\Hydra\Dcu\D7\Hydra_RO_D7.bpl=RemObjects Hydra - RemObjects SDK Integration Library
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
Count=11
Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor
Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;D:\Proyectos\FactuGES (Arribas)\Codigo\Base;D:\Proyectos\FactuGES (Arribas)\Codigo\Modulos\Contactos\Cliente;D:\Proyectos\FactuGES (Arribas)\Codigo\Modulos\Contactos\Reglas
Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;D:\Proyectos\Componentes\GUISDK\Lib\D7;..\Servidor
Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug
Item4=.
Item5=C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Dcu\D7;C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source;
Item6=C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Dcu\D7;C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source;..\Output
Item7=C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Dcu\D7
Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\
Item9=C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Dcu\D7;C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source
Item10=http://delphi.hostmos.ru;C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Dcu\D7
[HistoryLists\hlUnitOutputDirectory]
Count=5
Item0=..\Lib\D7
Item1=.\
Item2=.
Item3=..\Output
Item4=..\
[HistoryLists\hlBPLOutput]
Count=6
Item0=..\Lib\D7
Item1=..\..\..\Output\Cliente\Modules
Item2=..\Output\Cliente
Item3=..\..\Output\Cliente
Item4=..\Output
Item5=..\
[HistoryLists\hlDCPOutput]
Count=5
Item0=..\Lib\D7
Item1=.\
Item2=.
Item3=..\Output
Item4=..\
[Exception Log]
EurekaLog Version=501
Activate=1
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
Freeze Message=The application seems to be frozen.
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
Show TerminateBtn=1
TerminateBtn Operation=1
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=1
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesSection=1
loSaveCPUSection=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soExcDate=1
soExcAddress=1
soExcModule=1
soExcType=1
soExcMessage=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpUser=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndCompressAllFiles=0
edoShowExceptionDialog=1
edoSendEmailChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoShowProcedureOffset=0
boActivateCrashDetection=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtDialog_Caption=1
mtDialog_Caption0="Error."
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_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_CustomDataCaption=1
mtDialog_CustomDataCaption0="Other"
Count mtDialog_CustomDataHeader=1
mtDialog_CustomDataHeader0="Other Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="&OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="&Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="&Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="&Details"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="&Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="&Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="&Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
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_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModule=1
mtLog_ExcModule0="Module"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
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_CmpUser=1
mtLog_CmpUser0="User"
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_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_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 mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
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 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="&OK"
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 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."

43
Packages/GUISDK_D7.dpk Normal file
View File

@ -0,0 +1,43 @@
package GUISDK_D7;
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION OFF}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'GUI SDK para Delphi 7'}
{$IMPLICITBUILD OFF}
requires
vcl,
rtl,
designide,
vclactnband,
vclx,
cfpack,
ccpack70;
contains
uCustomView in '..\Source\uCustomView.pas' {CustomView: TFrame},
uCustomEditor in '..\Source\uCustomEditor.pas' {CustomEditor},
uGUIBase in '..\Source\uGUIBase.pas',
uGUIUtils in '..\Source\uGUIUtils.pas';
end.

14
Packages/GUISDK_D7.drc Normal file
View File

@ -0,0 +1,14 @@
/* VER150
Generated by the Borland Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END

BIN
Packages/GUISDK_D7.res Normal file
View File

Binary file not shown.

18
Sources/uCustomEditor.dfm Normal file
View 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
Sources/uCustomEditor.pas Normal file
View 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
Sources/uCustomView.dfm Normal file
View File

@ -0,0 +1,7 @@
object CustomView: TCustomView
Left = 0
Top = 0
Width = 320
Height = 240
TabOrder = 0
end

244
Sources/uCustomView.pas Normal file
View 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
Sources/uGUIBase.pas Normal file
View 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
Sources/uGUIUtils.pas Normal file
View 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.

BIN
Templates/uEditorTemplate.ddp Normal file
View File

Binary file not shown.

16
Templates/uEditorTemplate.dfm Normal file
View File

@ -0,0 +1,16 @@
object Form1: TForm1
Left = 910
Top = 277
Width = 245
Height = 153
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
end

28
Templates/uEditorTemplate.pas Normal file
View File

@ -0,0 +1,28 @@
unit uEditorTemplate;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
uCustomEditor;
type
TForm1 = class(TCustomEditor)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.