git-svn-id: https://192.168.0.254/svn/Componentes.Internos.GUISDK/trunk@8 e3f7d858-3362-1a4e-b49c-1b1bd96e4488

Packages/GUISDK_D11.dpk

@@ -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.

Packages/GUISDK_D11.dproj

@@ -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 -->

Packages/GUISDK_D2007.dproj

@@ -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_Define>DEBUG;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>
   </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="..\Source\uCustomEditor.pas" />
-    <DCCReference Include="..\..\CFPack\Source\cfpack_2007.dcp" />
+    <DCCReference Include="..\Source\uCustomView.pas" />
-    <DCCReference Include="..\..\CFPack\Source\cfpack_D2007..dcp" />
+    <DCCReference Include="..\Source\uGUIBase.pas" />
-    <DCCReference Include="..\..\CFPack\Source\cfpack_D2007.b.dcp" />
+    <DCCReference Include="..\Source\uGUIUtils.pas" />
-    <DCCReference Include="..\..\CFPack\Source\cfpack_D2007.bp.dcp" />
+    <DCCReference Include="ccpackD2007.dcp" />
-    <DCCReference Include="..\..\CFPack\Source\cfpack_D2007.bpl.dcp" />
+    <DCCReference Include="cfpack_D2007.dcp" />
-    <DCCReference Include="..\..\CFPack\Source\cfpack_D2007.bplcfpack_D2007.dcp" />
+    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="..\Sources\uCustomEditor.pas" />
+    <DCCReference Include="rtl.dcp" />
-    <DCCReference Include="..\Sources\uCustomView.pas" />
+    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="..\Sources\uGUIBase.pas" />
+    <DCCReference Include="vclactnband.dcp" />
-    <DCCReference Include="..\Sources\uGUIUtils.pas" />
+    <DCCReference Include="vclx.dcp" />
-    <DCCReference Include="ccpack.dcp" />
+    <DCCReference Include="xmlrtl.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" />
   </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 -->

Source/uCustomEditor.dfm

@@ -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

Source/uCustomEditor.pas

@@ -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.

Source/uCustomView.dfm

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

Source/uCustomView.pas

@@ -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.

Source/uGUIBase.pas

@@ -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.

Source/uGUIUtils.pas

@@ -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.