From 13eee3f7f411ed3c1565248e6dd38ecffb1c85e3 Mon Sep 17 00:00:00 2001 From: david Date: Mon, 18 Jan 2010 16:51:36 +0000 Subject: [PATCH] =?UTF-8?q?Importaci=C3=B3n=20inicial?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jcl@20 c37d764d-f447-7644-a108-883140d013fb --- official/2.1.1/Install multiple profiles.bat | 1 + official/2.1.1/Install turbo delphi.bat | 20 + official/2.1.1/Install.bat | 32 + official/2.1.1/Install.txt | 64 + official/2.1.1/LICENSE-BZIP2.txt | 42 + official/2.1.1/LICENSE-DRYICONS.txt | 34 + official/2.1.1/LICENSE-PCRE.txt | 68 + official/2.1.1/LICENSE-SEVENZIP.txt | 57 + official/2.1.1/LICENSE-ZLIB.txt | 25 + official/2.1.1/LICENSE.txt | 470 + official/2.1.1/bin/Delphi 2007.log | 72 + official/2.1.1/bin/JCL-install.ini | 151 + official/2.1.1/bin/JediInstaller.exe | Bin 0 -> 563200 bytes official/2.1.1/bin/dirinfo.txt | 1 + official/2.1.1/clean.bat | 16 + official/2.1.1/clean.sh | 11 + official/2.1.1/devtools/howto-jpp.txt | 2 + official/2.1.1/devtools/howto-pdEdit.txt | 3 + official/2.1.1/devtools/included_files.bat | 14 + official/2.1.1/devtools/included_files.sh | 16 + official/2.1.1/devtools/pgEdit.xml | 105 + official/2.1.1/docs/Contacting authors.html | 33 + official/2.1.1/docs/Contributors.html | 398 + official/2.1.1/docs/Contributors.txt | 116 + official/2.1.1/docs/Experts.html | 160 + official/2.1.1/docs/MPL FAQ.html | 131 + official/2.1.1/docs/MPL-1.1.txt | 470 + official/2.1.1/docs/Readme.html | 387 + official/2.1.1/docs/Readme.txt | 302 + official/2.1.1/docs/ThreadSafe.txt | 28 + official/2.1.1/docs/cps.html | 655 + official/2.1.1/docs/cps_files/strucv1.jpg | Bin 0 -> 33442 bytes official/2.1.1/docs/cps_files/test.css | 793 + official/2.1.1/docs/styles/default.css | 34 + official/2.1.1/examples/C10.exc | 1 + official/2.1.1/examples/C5.exc | 1 + official/2.1.1/examples/C6.exc | 1 + official/2.1.1/examples/D10.exc | 1 + official/2.1.1/examples/D11.exc | 1 + official/2.1.1/examples/D5.exc | 1 + official/2.1.1/examples/D6.exc | 1 + official/2.1.1/examples/D7.exc | 1 + official/2.1.1/examples/D9.exc | 1 + official/2.1.1/examples/ExtraRequirements.exc | 5 + official/2.1.1/examples/JclDebugExamples.bpg | 33 + .../algorithms/AlgorithmsExample.dof | 2 + .../algorithms/AlgorithmsExample.dpr | 21 + .../algorithms/AlgorithmsExample.res | Bin 0 -> 876 bytes .../algorithms/AlgorithmsExampleMain.dfm | 250 + .../algorithms/AlgorithmsExampleMain.pas | 246 + .../containers/hashing/HashingExample.dof | 76 + .../containers/hashing/HashingExample.dpr | 21 + .../containers/hashing/HashingExample.res | Bin 0 -> 876 bytes .../containers/hashing/HashingExampleMain.dfm | 173 + .../containers/hashing/HashingExampleMain.pas | 442 + .../common/containers/lists/ListExample.dof | 76 + .../common/containers/lists/ListExample.dpr | 22 + .../common/containers/lists/ListExample.res | Bin 0 -> 876 bytes .../containers/lists/ListExampleMain.dfm | 145 + .../containers/lists/ListExampleMain.pas | 575 + .../common/containers/lists/MyObjectList.pas | 133 + .../performance/ContainerPerformance.dof | 3 + .../performance/ContainerPerformance.dpr | 19 + .../performance/ContainerPerformance.res | Bin 0 -> 876 bytes .../performance/ContainerPerformanceMain.dfm | 101 + .../performance/ContainerPerformanceMain.pas | 158 + .../performance/ContainerPerformanceTests.pas | 328 + .../common/containers/trees/TreeExample.dof | 2 + .../common/containers/trees/TreeExample.dpr | 21 + .../common/containers/trees/TreeExample.res | Bin 0 -> 876 bytes .../containers/trees/TreeExampleMain.dfm | 62 + .../containers/trees/TreeExampleMain.pas | 168 + .../common/containers/trees/TreeStructure.dof | 2 + .../common/containers/trees/TreeStructure.dpr | 14 + .../common/containers/trees/TreeStructure.res | Bin 0 -> 876 bytes .../containers/trees/TreeStructureMain.dfm | 247 + .../containers/trees/TreeStructureMain.pas | 344 + .../common/expreval/ExprEvalExample.dof | 3 + .../common/expreval/ExprEvalExample.dpr | 19 + .../common/expreval/ExprEvalExample.res | Bin 0 -> 876 bytes .../common/expreval/ExprEvalExampleLogic.pas | 105 + .../common/expreval/ExprEvalExampleMain.dfm | 71 + .../common/expreval/ExprEvalExampleMain.pas | 67 + .../common/filesearch/FileSearchDemo.dof | 2 + .../common/filesearch/FileSearchDemo.dpr | 16 + .../common/filesearch/FileSearchDemo.res | Bin 0 -> 876 bytes .../common/filesearch/FileSearchDemoMain.dfm | 364 + .../common/filesearch/FileSearchDemoMain.pas | 268 + .../examples/common/graphics/ClipLineDemo.dof | 3 + .../examples/common/graphics/ClipLineDemo.dpr | 16 + .../examples/common/graphics/ClipLineDemo.res | Bin 0 -> 876 bytes .../common/graphics/ClipLineDemoMain.dfm | 17 + .../common/graphics/ClipLineDemoMain.pas | 85 + .../graphics/StretchGraphicDemoMain.dfm | 217 + .../graphics/StretchGraphicDemoMain.pas | 498 + .../common/graphics/StretchGraphicExample.dof | 3 + .../common/graphics/StretchGraphicExample.dpr | 16 + .../common/graphics/StretchGraphicExample.res | Bin 0 -> 876 bytes .../common/multimedia/MidiOutExample.dof | 3 + .../common/multimedia/MidiOutExample.dpr | 16 + .../common/multimedia/MidiOutExample.res | Bin 0 -> 876 bytes .../common/multimedia/MidiOutExampleMain.dfm | 488 + .../common/multimedia/MidiOutExampleMain.pas | 194 + .../multimedia/MidiOutExampleTuningDlg.dfm | 102 + .../multimedia/MidiOutExampleTuningDlg.pas | 170 + .../common/numformat/NumFormatExample.dof | 2 + .../common/numformat/NumFormatExample.dpr | 16 + .../common/numformat/NumFormatExample.res | Bin 0 -> 876 bytes .../common/numformat/NumFormatExampleMain.dfm | 208 + .../common/numformat/NumFormatExampleMain.pas | 221 + .../2.1.1/examples/common/pcre/PCREDemo.dof | 2 + .../2.1.1/examples/common/pcre/PCREDemo.dpr | 17 + .../2.1.1/examples/common/pcre/PCREDemo.res | Bin 0 -> 876 bytes .../examples/common/pcre/PCREDemoMain.dfm | 233 + .../examples/common/pcre/PCREDemoMain.pas | 200 + .../examples/common/rtti/RTTIDemoMain.dfm | 71 + .../examples/common/rtti/RTTIDemoMain.pas | 331 + .../examples/common/rtti/RTTIExample.dof | 3 + .../examples/common/rtti/RTTIExample.dpr | 16 + .../examples/common/rtti/RTTIExample.res | Bin 0 -> 876 bytes .../common/sysinfo/EnvironmentExample.dof | 3 + .../common/sysinfo/EnvironmentExample.dpr | 16 + .../common/sysinfo/EnvironmentExample.res | Bin 0 -> 876 bytes .../common/sysinfo/EnvironmentExampleMain.dfm | 34 + .../common/sysinfo/EnvironmentExampleMain.pas | 76 + .../common/textconverter/TextConverter.dof | 3 + .../common/textconverter/TextConverter.dpr | 13 + .../common/textconverter/TextConverter.res | Bin 0 -> 876 bytes .../textconverter/TextConverterMain.dfm | 141 + .../textconverter/TextConverterMain.pas | 146 + .../common/textreader/TextReaderDemoMain.dfm | 94 + .../common/textreader/TextReaderDemoMain.pas | 152 + .../common/textreader/TextReaderExample.dof | 3 + .../common/textreader/TextReaderExample.dpr | 16 + .../common/textreader/TextReaderExample.res | Bin 0 -> 876 bytes .../unitversioning/UnitVersioningTest.dof | 2 + .../unitversioning/UnitVersioningTest.dpr | 46 + .../unitversioning/UnitVersioningTest.res | Bin 0 -> 876 bytes .../unitversioning/UnitVersioningTestDLL.dof | 2 + .../unitversioning/UnitVersioningTestDLL.dpr | 50 + .../unitversioning/UnitVersioningTestMain.dfm | 91 + .../unitversioning/UnitVersioningTestMain.pas | 290 + .../windows/appinst/AppInstDemoMain.dfm | 131 + .../windows/appinst/AppInstDemoMain.pas | 169 + .../windows/appinst/AppInstExample.dof | 3 + .../windows/appinst/AppInstExample.dpr | 16 + .../windows/appinst/AppInstExample.res | Bin 0 -> 876 bytes .../windows/appinst/SingleInstDemoMain.dfm | 25 + .../windows/appinst/SingleInstDemoMain.pas | 34 + .../windows/appinst/SingleInstExample.dof | 3 + .../windows/appinst/SingleInstExample.dpr | 18 + .../windows/appinst/SingleInstExample.res | Bin 0 -> 876 bytes .../asuser/CreateProcAsUserDemoMain.dfm | 194 + .../asuser/CreateProcAsUserDemoMain.pas | 93 + .../asuser/CreateProcAsUserExample.dof | 3 + .../asuser/CreateProcAsUserExample.dpr | 17 + .../asuser/CreateProcAsUserExample.res | Bin 0 -> 876 bytes .../2.1.1/examples/windows/clr/ClrDemo.dof | 3 + .../2.1.1/examples/windows/clr/ClrDemo.dpr | 24 + .../2.1.1/examples/windows/clr/ClrDemo.res | Bin 0 -> 1128 bytes .../windows/clr/ClrDemoAbstractFrame.dfm | 7 + .../windows/clr/ClrDemoAbstractFrame.pas | 105 + .../examples/windows/clr/ClrDemoBlobForm.dfm | 71 + .../examples/windows/clr/ClrDemoBlobForm.pas | 71 + .../examples/windows/clr/ClrDemoCLRFrame.dfm | 184 + .../examples/windows/clr/ClrDemoCLRFrame.pas | 183 + .../examples/windows/clr/ClrDemoGuidForm.dfm | 48 + .../examples/windows/clr/ClrDemoGuidForm.pas | 53 + .../examples/windows/clr/ClrDemoMain.dfm | 171 + .../examples/windows/clr/ClrDemoMain.pas | 195 + .../windows/clr/ClrDemoMetaDataFrame.dfm | 70 + .../windows/clr/ClrDemoMetaDataFrame.pas | 56 + .../windows/clr/ClrDemoStringsForm.dfm | 52 + .../windows/clr/ClrDemoStringsForm.pas | 54 + .../examples/windows/clr/ClrDemoTableForm.dfm | 102 + .../examples/windows/clr/ClrDemoTableForm.pas | 598 + .../windows/clr/ClrDemoUserStringsForm.dfm | 52 + .../windows/clr/ClrDemoUserStringsForm.pas | 54 + .../compression/archive/ArchiveDemo.dof | 3 + .../compression/archive/ArchiveDemo.dpr | 15 + .../compression/archive/ArchiveDemo.res | Bin 0 -> 4396 bytes .../windows/compression/archive/UMain.dfm | 359 + .../windows/compression/archive/UMain.pas | 567 + .../compression/archive/UProperties.dfm | 271 + .../compression/archive/UProperties.pas | 289 + .../windows/console/ConsoleExamples.dof | 3 + .../windows/console/ConsoleExamples.dpr | 409 + .../debug/framestrack/FramesTrackDemoMain.dfm | 91 + .../debug/framestrack/FramesTrackDemoMain.pas | 186 + .../debug/framestrack/FramesTrackExample.dof | 3 + .../debug/framestrack/FramesTrackExample.dpr | 16 + .../debug/framestrack/FramesTrackExample.res | Bin 0 -> 876 bytes .../windows/debug/mttest/JclDebugMTTest.dof | 3 + .../windows/debug/mttest/JclDebugMTTest.dpr | 13 + .../windows/debug/mttest/JclDebugMTTest.res | Bin 0 -> 4396 bytes .../debug/mttest/JclDebugMTTestMain.dfm | 36 + .../debug/mttest/JclDebugMTTestMain.pas | 216 + .../ExceptionReportConverter.dpr | 18 + .../ExceptionReportConverter.res | Bin 0 -> 876 bytes .../debug/reportconverter/formConverter.dfm | 65 + .../debug/reportconverter/formConverter.pas | 194 + .../debug/sourceloc/SourceLocDemoMain.dfm | 134 + .../debug/sourceloc/SourceLocDemoMain.pas | 124 + .../debug/sourceloc/SourceLocExample.dof | 3 + .../debug/sourceloc/SourceLocExample.dpr | 16 + .../debug/sourceloc/SourceLocExample.res | Bin 0 -> 876 bytes .../stacktrack/StackTrackDLLsComLibrary.dof | 3 + .../stacktrack/StackTrackDLLsComLibrary.dpr | 21 + .../stacktrack/StackTrackDLLsComLibrary.res | Bin 0 -> 876 bytes .../stacktrack/StackTrackDLLsComLibrary.tlb | Bin 0 -> 1668 bytes .../StackTrackDLLsComLibrary_TLB.pas | 97 + .../stacktrack/StackTrackDLLsComUnit.pas | 38 + .../stacktrack/StackTrackDLLsDemoMain.dfm | 115 + .../stacktrack/StackTrackDLLsDemoMain.pas | 130 + .../StackTrackDLLsDynamicLibrary.dof | 3 + .../StackTrackDLLsDynamicLibrary.dpr | 15 + .../StackTrackDLLsDynamicLibrary.res | Bin 0 -> 876 bytes .../stacktrack/StackTrackDLLsDynamicUnit.pas | 28 + .../stacktrack/StackTrackDLLsExample.dof | 3 + .../stacktrack/StackTrackDLLsExample.dpr | 17 + .../stacktrack/StackTrackDLLsExample.res | Bin 0 -> 876 bytes .../StackTrackDLLsStaticLibrary.dof | 3 + .../StackTrackDLLsStaticLibrary.dpr | 15 + .../StackTrackDLLsStaticLibrary.res | Bin 0 -> 876 bytes .../stacktrack/StackTrackDLLsStaticUnit.pas | 28 + .../debug/stacktrack/StackTrackDemoMain.dfm | 95 + .../debug/stacktrack/StackTrackDemoMain.pas | 110 + .../debug/stacktrack/StackTrackExample.dof | 3 + .../debug/stacktrack/StackTrackExample.dpr | 16 + .../debug/stacktrack/StackTrackExample.res | Bin 0 -> 876 bytes .../threadexcept/ThreadExceptDemoMain.dfm | 93 + .../threadexcept/ThreadExceptDemoMain.pas | 166 + .../threadexcept/ThreadExceptExample.dof | 4 + .../threadexcept/ThreadExceptExample.dpr | 18 + .../threadexcept/ThreadExceptExample.res | Bin 0 -> 876 bytes .../windows/delphitools/DelphiToolsGroup.bpg | 33 + .../examples/windows/delphitools/Readme.txt | 24 + .../windows/delphitools/common/About.dfm | 74 + .../windows/delphitools/common/About.pas | 180 + .../delphitools/common/D6MdiMsgFix.pas | 85 + .../windows/delphitools/common/FindDlg.dfm | 107 + .../windows/delphitools/common/FindDlg.pas | 202 + .../delphitools/common/SHDocVw_TLB.pas | 1931 + .../windows/delphitools/common/ToolsUtils.pas | 380 + .../dependencyviewer/DependView.dof | 134 + .../dependencyviewer/DependView.dpr | 24 + .../dependencyviewer/DependView.res | Bin 0 -> 1672 bytes .../dependencyviewer/DependViewMain.dfm | 1393 + .../dependencyviewer/DependViewMain.pas | 346 + .../dependencyviewer/FileViewer.dfm | 239 + .../dependencyviewer/FileViewer.pas | 667 + .../windows/delphitools/peviewer/PeDump.dfm | 499 + .../windows/delphitools/peviewer/PeDump.pas | 943 + .../windows/delphitools/peviewer/PeGenDef.dfm | 144 + .../windows/delphitools/peviewer/PeGenDef.pas | 365 + .../delphitools/peviewer/PeResView.dfm | 420 + .../delphitools/peviewer/PeResView.pas | 710 + .../delphitools/peviewer/PeResource.pas | 1541 + .../windows/delphitools/peviewer/PeSearch.dfm | 162 + .../windows/delphitools/peviewer/PeSearch.pas | 226 + .../windows/delphitools/peviewer/PeViewer.dof | 134 + .../windows/delphitools/peviewer/PeViewer.dpr | 33 + .../windows/delphitools/peviewer/PeViewer.res | Bin 0 -> 1636 bytes .../windows/delphitools/peviewer/PeViewer.tlb | Bin 0 -> 1672 bytes .../delphitools/peviewer/PeViewerControl.pas | 83 + .../delphitools/peviewer/PeViewerMain.dfm | 2179 ++ .../delphitools/peviewer/PeViewerMain.pas | 631 + .../delphitools/peviewer/PeViewer_TLB.pas | 117 + .../windows/delphitools/resfix/ResFix.dof | 137 + .../windows/delphitools/resfix/ResFix.dpr | 20 + .../windows/delphitools/resfix/ResFix.res | Bin 0 -> 1700 bytes .../windows/delphitools/resfix/ResFixMain.dfm | 1052 + .../windows/delphitools/resfix/ResFixMain.pas | 263 + .../windows/delphitools/screenjpg/Main.dfm | 901 + .../windows/delphitools/screenjpg/Main.pas | 285 + .../delphitools/screenjpg/ScreenJPG.dof | 134 + .../delphitools/screenjpg/ScreenJPG.dpr | 20 + .../delphitools/screenjpg/ScreenJPG.res | Bin 0 -> 1696 bytes .../toolhelpview/ChangePriority.dfm | 44 + .../toolhelpview/ChangePriority.pas | 114 + .../delphitools/toolhelpview/Global.dfm | 1081 + .../delphitools/toolhelpview/Global.pas | 132 + .../delphitools/toolhelpview/HeapDump.dfm | 235 + .../delphitools/toolhelpview/HeapDump.pas | 334 + .../windows/delphitools/toolhelpview/Main.dfm | 876 + .../windows/delphitools/toolhelpview/Main.pas | 936 + .../delphitools/toolhelpview/MemoryDump.dfm | 282 + .../delphitools/toolhelpview/MemoryDump.pas | 518 + .../delphitools/toolhelpview/ModulesDump.dfm | 180 + .../delphitools/toolhelpview/ModulesDump.pas | 245 + .../toolhelpview/ToolHelpViewer.dof | 134 + .../toolhelpview/ToolHelpViewer.dpr | 35 + .../toolhelpview/ToolHelpViewer.res | Bin 0 -> 1720 bytes .../delphitools/toolhelpview/ViewTemplate.dfm | 109 + .../delphitools/toolhelpview/ViewTemplate.pas | 155 + .../2.1.1/examples/windows/edisdk/Clean.bat | 18 + .../examples/windows/edisdk/EDICOMExample.dof | 2 + .../examples/windows/edisdk/EDICOMExample.dpr | 16 + .../examples/windows/edisdk/EDICOMExample.res | Bin 0 -> 876 bytes .../windows/edisdk/EDICOMExampleMain.dfm | 50 + .../windows/edisdk/EDICOMExampleMain.pas | 157 + .../examples/windows/edisdk/EDISDK_TLB.dcr | Bin 0 -> 3338 bytes .../examples/windows/edisdk/EDISDK_TLB.pas | 1021 + .../windows/edisdk/comserver/Clean.bat | 18 + .../windows/edisdk/comserver/EDISDK.dof | 13 + .../windows/edisdk/comserver/EDISDK.dpr | 23 + .../windows/edisdk/comserver/EDISDK.res | Bin 0 -> 1792 bytes .../windows/edisdk/comserver/EDISDK.tlb | Bin 0 -> 10488 bytes .../windows/edisdk/comserver/EDISDK_TLB.pas | 651 + .../edisdk/comserver/JclEDICOM_ANSIX12.pas | 1059 + .../windows/edisdk/comserver/sample.edi | 1 + .../2.1.1/examples/windows/edisdk/sample.edi | 1 + .../examples/windows/edisdk/vb5/Form1.frm | 164 + .../examples/windows/edisdk/vb5/Form1.frx | 1 + .../examples/windows/edisdk/vb5/Project1.vbp | 39 + .../examples/windows/edisdk/vb5/Project1.vbw | 1 + .../examples/windows/edisdk/vb5/sample.edi | 1 + .../windows/filemapping/FileMapping.dof | 3 + .../windows/filemapping/FileMapping.dpr | 14 + .../windows/filemapping/FileMapping.res | Bin 0 -> 876 bytes .../windows/filemapping/MapTestForm.dfm | 155 + .../windows/filemapping/MapTestForm.pas | 124 + .../windows/filemapping/MapWriteForm.dfm | 42 + .../windows/filemapping/MapWriteForm.pas | 33 + .../filesummary/FileSummaryDemoMain.dfm | 56 + .../filesummary/FileSummaryDemoMain.pas | 312 + .../filesummary/FileSummaryExample.dof | 3 + .../filesummary/FileSummaryExample.dpr | 16 + .../filesummary/FileSummaryExample.res | Bin 0 -> 4396 bytes .../windows/fileversion/VerInfoDemoMain.dfm | 55 + .../windows/fileversion/VerInfoDemoMain.pas | 77 + .../windows/fileversion/VerInfoExample.dof | 82 + .../windows/fileversion/VerInfoExample.dpr | 16 + .../windows/fileversion/VerInfoExample.res | Bin 0 -> 876 bytes .../windows/lanman/LanManDemoMain.dfm | 271 + .../windows/lanman/LanManDemoMain.pas | 124 + .../examples/windows/lanman/LanManExample.dof | 3 + .../examples/windows/lanman/LanManExample.dpr | 16 + .../examples/windows/lanman/LanManExample.res | Bin 0 -> 876 bytes .../windows/locales/LocalesDemoMain.dfm | 306 + .../windows/locales/LocalesDemoMain.pas | 290 + .../windows/locales/LocalesExample.dof | 3 + .../windows/locales/LocalesExample.dpr | 16 + .../windows/locales/LocalesExample.res | Bin 0 -> 876 bytes .../examples/windows/mapi/MapiDemoMain.dfm | 267 + .../examples/windows/mapi/MapiDemoMain.pas | 231 + .../examples/windows/mapi/MapiExample.dof | 3 + .../examples/windows/mapi/MapiExample.dpr | 16 + .../examples/windows/mapi/MapiExample.res | Bin 0 -> 876 bytes .../windows/mapi/ReadMailDemoMain.dfm | 91 + .../windows/mapi/ReadMailDemoMain.pas | 124 + .../examples/windows/mapi/ReadMailExample.dof | 3 + .../examples/windows/mapi/ReadMailExample.dpr | 16 + .../examples/windows/mapi/ReadMailExample.res | Bin 0 -> 876 bytes .../windows/multimedia/MultiMediaExample.dof | 3 + .../windows/multimedia/MultiMediaExample.dpr | 16 + .../windows/multimedia/MultiMediaExample.res | Bin 0 -> 876 bytes .../windows/multimedia/MultimediaDemoMain.dfm | 215 + .../windows/multimedia/MultimediaDemoMain.pas | 555 + .../examples/windows/ntfs/JEDISoftLinks.dof | 4 + .../examples/windows/ntfs/JEDISoftLinks.dpr | 16 + .../examples/windows/ntfs/JEDISoftLinks.tlb | Bin 0 -> 1044 bytes .../windows/ntfs/JEDISoftLinks_TLB.pas | 49 + .../windows/ntfs/SoftLinkDragDropHandler.pas | 229 + .../windows/ntservice/NtSvcDemoDependent.dfm | 63 + .../windows/ntservice/NtSvcDemoDependent.pas | 88 + .../windows/ntservice/NtSvcDemoGroups.dfm | 35 + .../windows/ntservice/NtSvcDemoGroups.pas | 76 + .../windows/ntservice/NtSvcDemoMain.dfm | 275 + .../windows/ntservice/NtSvcDemoMain.pas | 418 + .../windows/ntservice/NtSvcExample.dof | 3 + .../windows/ntservice/NtSvcExample.dpr | 18 + .../windows/ntservice/NtSvcExample.res | Bin 0 -> 876 bytes .../windows/peimage/ApiHookDemoMain.dfm | 53 + .../windows/peimage/ApiHookDemoMain.pas | 82 + .../windows/peimage/ApiHookExample.dof | 3 + .../windows/peimage/ApiHookExample.dpr | 16 + .../windows/peimage/ApiHookExample.res | Bin 0 -> 876 bytes .../windows/peimage/PeFuncDemoMain.dfm | 165 + .../windows/peimage/PeFuncDemoMain.pas | 124 + .../windows/peimage/PeFuncExample.dof | 3 + .../windows/peimage/PeFuncExample.dpr | 16 + .../windows/peimage/PeFuncExample.res | Bin 0 -> 876 bytes .../windows/peimage/UnmangleNameDemoMain.dfm | 111 + .../windows/peimage/UnmangleNameDemoMain.pas | 228 + .../windows/peimage/UnmangleNameExample.dof | 3 + .../windows/peimage/UnmangleNameExample.dpr | 16 + .../windows/peimage/UnmangleNameExample.res | Bin 0 -> 876 bytes .../windows/registry/RegistryDemoMain.dfm | 53 + .../windows/registry/RegistryDemoMain.pas | 174 + .../windows/registry/RegistryExample.dof | 3 + .../windows/registry/RegistryExample.dpr | 16 + .../windows/registry/RegistryExample.res | Bin 0 -> 876 bytes .../windows/structstorage/HexDump.pas | 535 + .../windows/structstorage/PropsFrm.dfm | 221 + .../windows/structstorage/PropsFrm.pas | 172 + .../structstorage/StructStorageExample.dof | 2 + .../structstorage/StructStorageExample.dpr | 19 + .../structstorage/StructStorageExample.res | Bin 0 -> 876 bytes .../StructStorageExampleMain.dfm | 548 + .../StructStorageExampleMain.pas | 938 + .../windows/sysinfo/SysInfoDemoMain.dfm | 1010 + .../windows/sysinfo/SysInfoDemoMain.pas | 310 + .../windows/sysinfo/SysInfoExample.dof | 3 + .../windows/sysinfo/SysInfoExample.dpr | 16 + .../windows/sysinfo/SysInfoExample.res | Bin 0 -> 876 bytes .../2.1.1/examples/windows/tasks/TaskDemo.dof | 3 + .../2.1.1/examples/windows/tasks/TaskDemo.dpr | 18 + .../2.1.1/examples/windows/tasks/TaskDemo.res | Bin 0 -> 876 bytes .../windows/tasks/TaskDemoDataModule.dfm | 475 + .../windows/tasks/TaskDemoDataModule.pas | 164 + .../examples/windows/tasks/TaskDemoMain.dfm | 217 + .../examples/windows/tasks/TaskDemoMain.pas | 237 + .../examples/windows/timezones/Mainfrm.dfm | 6517 ++++ .../examples/windows/timezones/Mainfrm.pas | 244 + .../windows/timezones/TimeZoneDemo.dof | 2 + .../windows/timezones/TimeZoneDemo.dpr | 15 + .../windows/timezones/TimeZoneDemo.res | Bin 0 -> 876 bytes .../windows/widestring/WideStringDemoMain.dfm | 154 + .../windows/widestring/WideStringDemoMain.pas | 192 + .../windows/widestring/WideStringExample.dpr | 14 + .../windows/widestring/WideStringExample.res | Bin 0 -> 7776 bytes .../2.1.1/experts/common/JclConfigure.ico | Bin 0 -> 318 bytes official/2.1.1/experts/common/JclImages.rc | 2 + official/2.1.1/experts/common/JclImages.res | Bin 0 -> 2572 bytes .../common/JclOtaActionConfigureSheet.dfm | 69 + .../common/JclOtaActionConfigureSheet.pas | 171 + .../common/JclOtaConfigurationForm.dfm | 109 + .../common/JclOtaConfigurationForm.pas | 282 + .../2.1.1/experts/common/JclOtaConsts.pas | 182 + .../experts/common/JclOtaExceptionForm.dfm | 63 + .../experts/common/JclOtaExceptionForm.pas | 155 + .../2.1.1/experts/common/JclOtaResources.pas | 527 + .../common/JclOtaUnitVersioningSheet.dfm | 47 + .../common/JclOtaUnitVersioningSheet.pas | 135 + official/2.1.1/experts/common/JclOtaUtils.pas | 1812 + .../2.1.1/experts/common/JclOtaWizardForm.dfm | 123 + .../2.1.1/experts/common/JclOtaWizardForm.pas | 262 + .../experts/common/JclOtaWizardFrame.dfm | 8 + .../experts/common/JclOtaWizardFrame.pas | 114 + official/2.1.1/experts/common/JclSplash.bmp | Bin 0 -> 2102 bytes official/2.1.1/experts/debug/Howto.txt | 91 + .../2.1.1/experts/debug/JclDebugThread.pas | 210 + .../converter/JclDebugIdeConfigFrame.dfm | 48 + .../converter/JclDebugIdeConfigFrame.pas | 246 + .../debug/converter/JclDebugIdeIcon.res | Bin 0 -> 2344 bytes .../debug/converter/JclDebugIdeImpl.pas | 1961 + .../debug/converter/JclDebugIdeResult.dfm | 164 + .../debug/converter/JclDebugIdeResult.pas | 238 + .../experts/debug/dialog/CreateStdDialogs.dpr | 116 + .../debug/dialog/ExceptDlg.CBuilder32.cpp | 1 + .../debug/dialog/ExceptDlg.CBuilder32.dfm | 1 + .../debug/dialog/ExceptDlg.CBuilder32.h | 1 + .../debug/dialog/ExceptDlg.Delphi32.dfm | 118 + .../debug/dialog/ExceptDlg.Delphi32.pas | 813 + .../2.1.1/experts/debug/dialog/ExceptDlg.dfm | 95 + .../2.1.1/experts/debug/dialog/ExceptDlg.ico | Bin 0 -> 766 bytes .../2.1.1/experts/debug/dialog/ExceptDlg.pas | 706 + .../experts/debug/dialog/ExceptDlgCpp.ico | Bin 0 -> 766 bytes .../experts/debug/dialog/ExceptDlgMail.dfm | 106 + .../experts/debug/dialog/ExceptDlgMail.ico | Bin 0 -> 766 bytes .../experts/debug/dialog/ExceptDlgMail.pas | 726 + .../experts/debug/simdview/JclSIMDCpuInfo.dfm | 235 + .../experts/debug/simdview/JclSIMDCpuInfo.pas | 165 + .../experts/debug/simdview/JclSIMDIcon.dcr | Bin 0 -> 428 bytes .../debug/simdview/JclSIMDModifyForm.dfm | 105 + .../debug/simdview/JclSIMDModifyForm.pas | 680 + .../experts/debug/simdview/JclSIMDTestBCB.cpp | 105 + .../debug/simdview/JclSIMDTestBCBProject.bpf | 5 + .../debug/simdview/JclSIMDTestBCBProject.bpr | 58 + .../debug/simdview/JclSIMDTestDelphi.dof | 2 + .../debug/simdview/JclSIMDTestDelphi.dpr | 92 + .../experts/debug/simdview/JclSIMDUtils.pas | 1050 + .../experts/debug/simdview/JclSIMDView.pas | 632 + .../debug/simdview/JclSIMDViewForm.dfm | 192 + .../debug/simdview/JclSIMDViewForm.pas | 1127 + .../debug/threadnames/JclIdeThreadStatus.pas | 196 + .../threadnames/ThreadExpertSharedNames.pas | 361 + .../debug/threadnames/ThreadExpertUnit.pas | 410 + .../2.1.1/experts/debug/tools/MakeJclDbg.dof | 3 + .../2.1.1/experts/debug/tools/MakeJclDbg.dpr | 136 + .../2.1.1/experts/debug/tools/MapToJdbg.dof | 3 + .../2.1.1/experts/debug/tools/MapToJdbg.dpr | 43 + .../2.1.1/experts/debug/tools/MapToJdbg.res | Bin 0 -> 1812 bytes .../experts/debug/tools/MapToJdbgMain.dfm | 577 + .../experts/debug/tools/MapToJdbgMain.pas | 228 + .../2.1.1/experts/debug/tools/TlbToMap.dof | 3 + .../2.1.1/experts/debug/tools/TlbToMap.dpr | 43 + .../2.1.1/experts/debug/tools/TlbToMap.res | Bin 0 -> 1776 bytes .../experts/debug/tools/TlbToMapMain.dfm | 592 + .../experts/debug/tools/TlbToMapMain.pas | 391 + official/2.1.1/experts/debug/tools/Tools.bpg | 26 + .../2.1.1/experts/debug/tools/makejcldbg.res | Bin 0 -> 1792 bytes .../favfolders/IdeOpenDlgFavoriteUnit.pas | 168 + .../projectanalyzer/ProjAnalyzerFrm.dfm | 572 + .../projectanalyzer/ProjAnalyzerFrm.pas | 735 + .../projectanalyzer/ProjAnalyzerIcon.res | Bin 0 -> 320 bytes .../projectanalyzer/ProjAnalyzerImpl.pas | 544 + .../repository/JclOtaExcDlgFileFrame.dfm | 79 + .../repository/JclOtaExcDlgFileFrame.pas | 256 + .../repository/JclOtaExcDlgFormFrame.dfm | 65 + .../repository/JclOtaExcDlgFormFrame.pas | 167 + .../experts/repository/JclOtaExcDlgIcons.RES | Bin 0 -> 1728 bytes .../experts/repository/JclOtaExcDlgIcons.rc | 2 + .../repository/JclOtaExcDlgIgnoreFrame.dfm | 34 + .../repository/JclOtaExcDlgIgnoreFrame.pas | 147 + .../repository/JclOtaExcDlgLogFrame.dfm | 57 + .../repository/JclOtaExcDlgLogFrame.pas | 164 + .../repository/JclOtaExcDlgRepository.pas | 252 + .../repository/JclOtaExcDlgSystemFrame.dfm | 67 + .../repository/JclOtaExcDlgSystemFrame.pas | 145 + .../repository/JclOtaExcDlgThreadFrame.dfm | 74 + .../repository/JclOtaExcDlgThreadFrame.pas | 237 + .../repository/JclOtaExcDlgTraceFrame.dfm | 74 + .../repository/JclOtaExcDlgTraceFrame.pas | 181 + .../experts/repository/JclOtaExcDlgWizard.dfm | 5 + .../experts/repository/JclOtaExcDlgWizard.pas | 136 + .../repository/JclOtaRepositoryReg.pas | 363 + .../repository/JclOtaRepositoryUtils.pas | 585 + .../experts/repository/JclOtaTemplates.pas | 333 + official/2.1.1/experts/repository/dirinfo.txt | 1 + .../Dummy/DummyLineNumberTranslator.pas | 47 + .../Dummy/DummyRevisionProvider.pas | 46 + .../Dummy/StackTraceViewerDummyExample.dpk | 40 + .../Dummy/StackTraceViewerDummyExampleReg.pas | 30 + .../FastMM/FastMMFreedObjectFrame.dfm | 96 + .../FastMM/FastMMFreedObjectFrame.pas | 190 + .../APIExamples/FastMM/FastMMLeakFrame.dfm | 106 + .../APIExamples/FastMM/FastMMLeakFrame.pas | 159 + .../FastMM/FastMMLeakGroupFrame.dfm | 44 + .../FastMM/FastMMLeakGroupFrame.pas | 118 + .../FastMM/FastMMLeakSummaryFrame.dfm | 15 + .../FastMM/FastMMLeakSummaryFrame.pas | 36 + .../APIExamples/FastMM/FastMMMemoryFrame.dfm | 44 + .../APIExamples/FastMM/FastMMMemoryFrame.pas | 50 + .../FastMM/FastMMMemoryVisualizerFrame.dfm | 80 + .../FastMM/FastMMMemoryVisualizerFrame.pas | 124 + .../APIExamples/FastMM/FastMMParser.pas | 896 + .../FastMM/StackTraceViewerFastMM.dpk | 50 + .../FastMM/StackTraceViewerFastMMReg.pas | 82 + .../FastMM/StackTraceViewerFastMMUnit.pas | 330 + .../HelloWorld/HelloWorldFrame.dfm | 14 + .../HelloWorld/HelloWorldFrame.pas | 21 + .../StackTraceViewerHelloWorldExample.dpk | 42 + .../StackTraceViewerHelloWorldExampleReg.pas | 355 + .../JclStackTraceViewerAPI.pas | 279 + .../JclStackTraceViewerAPIImpl.pas | 278 + .../JclStackTraceViewerClasses.pas | 646 + .../JclStackTraceViewerConfigFrame.dfm | 25 + .../JclStackTraceViewerConfigFrame.pas | 113 + .../JclStackTraceViewerExceptInfoFrame.dfm | 35 + .../JclStackTraceViewerExceptInfoFrame.pas | 108 + .../JclStackTraceViewerIcon.res | Bin 0 -> 1536 bytes .../JclStackTraceViewerImpl.pas | 317 + .../JclStackTraceViewerMainFormBDS.dfm | 100 + .../JclStackTraceViewerMainFormBDS.pas | 137 + .../JclStackTraceViewerMainFormBDS7.dfm | 96 + .../JclStackTraceViewerMainFormBDS7.pas | 137 + .../JclStackTraceViewerMainFormDelphi.dfm | 84 + .../JclStackTraceViewerMainFormDelphi.pas | 132 + .../JclStackTraceViewerMainFrame.dfm | 74 + .../JclStackTraceViewerMainFrame.pas | 760 + .../JclStackTraceViewerModuleFrame.dfm | 41 + .../JclStackTraceViewerModuleFrame.pas | 134 + .../JclStackTraceViewerOptions.pas | 97 + .../JclStackTraceViewerStackCodeUtils.pas | 271 + .../JclStackTraceViewerStackFrame.dfm | 53 + .../JclStackTraceViewerStackFrame.pas | 271 + .../JclStackTraceViewerStackUtils.pas | 590 + .../JclStackTraceViewerThreadFrame.dfm | 42 + .../JclStackTraceViewerThreadFrame.pas | 256 + .../2.1.1/experts/useswizard/Hardlinks.txt | 6 + official/2.1.1/experts/useswizard/History.txt | 25 + .../experts/useswizard/IdentifierList.dpr | 156 + .../experts/useswizard/JCLOptionsFrame.dfm | 59 + .../experts/useswizard/JCLOptionsFrame.pas | 153 + .../experts/useswizard/JCLUsesWizard.pas | 991 + official/2.1.1/experts/useswizard/Jcl8087.txt | 20 + .../useswizard/JclAbstractContainers.txt | 2 + .../experts/useswizard/JclAlgorithms.txt | 43 + .../experts/useswizard/JclAnsiStrings.txt | 167 + .../2.1.1/experts/useswizard/JclAppInst.txt | 12 + .../experts/useswizard/JclArrayLists.txt | 3 + .../2.1.1/experts/useswizard/JclArraySets.txt | 3 + official/2.1.1/experts/useswizard/JclBase.txt | 53 + .../experts/useswizard/JclBinaryTrees.txt | 10 + .../experts/useswizard/JclBorlandTools.txt | 118 + official/2.1.1/experts/useswizard/JclCIL.txt | 11 + official/2.1.1/experts/useswizard/JclCLR.txt | 38 + official/2.1.1/experts/useswizard/JclCOM.txt | 24 + .../2.1.1/experts/useswizard/JclComplex.txt | 8 + .../experts/useswizard/JclCompression.txt | 13 + .../2.1.1/experts/useswizard/JclConsole.txt | 25 + .../experts/useswizard/JclContainerIntf.txt | 44 + .../2.1.1/experts/useswizard/JclCounter.txt | 5 + .../2.1.1/experts/useswizard/JclDateTime.txt | 71 + .../2.1.1/experts/useswizard/JclDebug.txt | 123 + .../2.1.1/experts/useswizard/JclDotNet.txt | 57 + official/2.1.1/experts/useswizard/JclEDI.txt | 39 + .../2.1.1/experts/useswizard/JclEDISEF.txt | 136 + .../experts/useswizard/JclEDITranslators.txt | 2 + .../2.1.1/experts/useswizard/JclEDIXML.txt | 46 + .../experts/useswizard/JclEDI_ANSIX12.txt | 48 + .../experts/useswizard/JclEDI_ANSIX12_Ext.txt | 1 + .../experts/useswizard/JclEDI_UNEDIFACT.txt | 26 + .../useswizard/JclEDI_UNEDIFACT_Ext.txt | 2 + .../2.1.1/experts/useswizard/JclExprEval.txt | 54 + .../2.1.1/experts/useswizard/JclFileUtils.txt | 181 + .../experts/useswizard/JclGraphUtils.txt | 4 + .../2.1.1/experts/useswizard/JclGraphics.txt | 29 + .../2.1.1/experts/useswizard/JclHashMaps.txt | 31 + .../2.1.1/experts/useswizard/JclHashSets.txt | 3 + .../experts/useswizard/JclHookExcept.txt | 17 + .../2.1.1/experts/useswizard/JclIniFiles.txt | 8 + .../2.1.1/experts/useswizard/JclLANMan.txt | 23 + .../experts/useswizard/JclLinkedLists.txt | 9 + .../2.1.1/experts/useswizard/JclLocales.txt | 11 + .../2.1.1/experts/useswizard/JclLogic.txt | 185 + official/2.1.1/experts/useswizard/JclMIDI.txt | 119 + official/2.1.1/experts/useswizard/JclMapi.txt | 21 + official/2.1.1/experts/useswizard/JclMath.txt | 213 + .../2.1.1/experts/useswizard/JclMetadata.txt | 163 + official/2.1.1/experts/useswizard/JclMime.txt | 34 + .../2.1.1/experts/useswizard/JclMiscel.txt | 23 + .../2.1.1/experts/useswizard/JclMsdosSys.txt | 2 + .../experts/useswizard/JclMultimedia.txt | 31 + official/2.1.1/experts/useswizard/JclNTFS.txt | 48 + official/2.1.1/experts/useswizard/JclPCRE.txt | 10 + .../2.1.1/experts/useswizard/JclParseUses.pas | 909 + .../2.1.1/experts/useswizard/JclPeImage.txt | 94 + .../2.1.1/experts/useswizard/JclPrint.txt | 16 + .../2.1.1/experts/useswizard/JclQueues.txt | 3 + official/2.1.1/experts/useswizard/JclRTF.txt | 2 + official/2.1.1/experts/useswizard/JclRTTI.txt | 39 + .../2.1.1/experts/useswizard/JclRegistry.txt | 102 + .../2.1.1/experts/useswizard/JclResources.txt | 1441 + .../2.1.1/experts/useswizard/JclSchedule.txt | 21 + .../2.1.1/experts/useswizard/JclSecurity.txt | 13 + .../2.1.1/experts/useswizard/JclShell.txt | 72 + .../2.1.1/experts/useswizard/JclStacks.txt | 3 + .../experts/useswizard/JclStatistics.txt | 26 + .../experts/useswizard/JclStrHashMap.txt | 21 + .../2.1.1/experts/useswizard/JclStreams.txt | 14 + .../2.1.1/experts/useswizard/JclStrings.txt | 138 + .../experts/useswizard/JclStructStorage.txt | 6 + .../2.1.1/experts/useswizard/JclSvcCtrl.txt | 33 + .../2.1.1/experts/useswizard/JclSynch.txt | 50 + .../2.1.1/experts/useswizard/JclSysInfo.txt | 647 + .../2.1.1/experts/useswizard/JclSysUtils.txt | 122 + official/2.1.1/experts/useswizard/JclTD32.txt | 96 + official/2.1.1/experts/useswizard/JclTask.txt | 14 + .../2.1.1/experts/useswizard/JclUnicode.txt | 211 + .../2.1.1/experts/useswizard/JclUnitConv.txt | 135 + .../experts/useswizard/JclUnitVersioning.txt | 10 + .../useswizard/JclUnitVersioningProviders.txt | 4 + .../experts/useswizard/JclUsesDialog.dfm | 135 + .../experts/useswizard/JclUsesDialog.pas | 227 + .../experts/useswizard/JclValidation.txt | 1 + .../2.1.1/experts/useswizard/JclVectors.txt | 3 + .../experts/useswizard/JclWideFormat.txt | 1 + .../experts/useswizard/JclWideStrings.txt | 20 + .../2.1.1/experts/useswizard/JclWin32.txt | 1598 + .../2.1.1/experts/useswizard/JclWin32Ex.txt | 19 + .../2.1.1/experts/useswizard/JclWinMIDI.txt | 6 + .../experts/useswizard/JediUsesWizard.ini | 87 + official/2.1.1/experts/useswizard/ReadMe.txt | 23 + official/2.1.1/experts/useswizard/pcre.txt | 167 + .../versioncontrol/JclVersionControlImpl.pas | 1205 + .../JclVersionCtrlCommonOptions.dfm | 190 + .../JclVersionCtrlCommonOptions.pas | 576 + .../versioncontrol/JclVersionCtrlIcons.RES | Bin 0 -> 46136 bytes .../versioncontrol/JclVersionCtrlIcons.rc | 37 + .../versioncontrol/icons/ContextMenu.ico | Bin 0 -> 1406 bytes .../experts/versioncontrol/icons/Explore.ico | Bin 0 -> 1406 bytes .../experts/versioncontrol/icons/FileAdd.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/FileBlame.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/FileBranch.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/FileCommit.ico | Bin 0 -> 1406 bytes .../experts/versioncontrol/icons/FileDiff.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/FileGraph.ico | Bin 0 -> 1406 bytes .../experts/versioncontrol/icons/FileLock.ico | Bin 0 -> 1406 bytes .../experts/versioncontrol/icons/FileLog.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/FileMerge.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/FileRename.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/FileRevert.ico | Bin 0 -> 1406 bytes .../experts/versioncontrol/icons/FileTag.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/FileUnlock.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/FileUpdate.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/Properties.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/RepoBrowser.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/SandboxAdd.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/SandboxBranch.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/SandboxCheckout.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/SandboxCommit.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/SandboxLock.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/SandboxLog.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/SandboxMerge.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/SandboxRename.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/SandboxRevert.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/SandboxTag.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/SandboxUnlock.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/SandboxUpdate.ico | Bin 0 -> 1406 bytes .../experts/versioncontrol/icons/Status.ico | Bin 0 -> 1406 bytes .../versioncontrol/icons/copyright.txt | 36 + .../experts/versioncontrol/icons/dirinfo.txt | 1 + official/2.1.1/include/zconf.h | 332 + official/2.1.1/include/zlib.h | 1357 + official/2.1.1/include/zutil.h | 269 + official/2.1.1/install/HeaderTest/jcl_a2z.cpp | 344 + official/2.1.1/install/HeaderTest/jcl_z2a.cpp | 344 + official/2.1.1/install/JclInstall.pas | 3372 ++ .../2.1.1/install/JclInstallResources.pas | 356 + official/2.1.1/install/JediInstall.pas | 580 + .../2.1.1/install/JediInstallConfigIni.pas | 246 + .../2.1.1/install/JediInstallResources.pas | 83 + official/2.1.1/install/JediInstaller.bdsproj | 174 + official/2.1.1/install/JediInstaller.dof | 15 + official/2.1.1/install/JediInstaller.dpr | 38 + official/2.1.1/install/JediInstaller.res | Bin 0 -> 876 bytes official/2.1.1/install/JediProfiles.pas | 296 + official/2.1.1/install/JediRegInfo.pas | 238 + official/2.1.1/install/RegHelper.dof | 4 + official/2.1.1/install/RegHelper.dpr | 337 + official/2.1.1/install/RegHelper.rc | 23 + official/2.1.1/install/RegHelper.res | Bin 0 -> 780 bytes official/2.1.1/install/VclGui/FrmCompile.dfm | 211 + official/2.1.1/install/VclGui/FrmCompile.pas | 294 + .../2.1.1/install/VclGui/JediGUIInstall.dfm | 104 + .../2.1.1/install/VclGui/JediGUIInstall.pas | 782 + official/2.1.1/install/VclGui/JediGUIMain.dfm | 498 + official/2.1.1/install/VclGui/JediGUIMain.pas | 495 + .../2.1.1/install/VclGui/JediGUIProfiles.dfm | 22 + .../2.1.1/install/VclGui/JediGUIProfiles.pas | 107 + .../2.1.1/install/VclGui/JediGUIReadme.dfm | 16 + .../2.1.1/install/VclGui/JediGUIReadme.pas | 108 + official/2.1.1/install/build/dcc32ex.dpr | 1205 + official/2.1.1/install/build/dcc32ex.exe | Bin 0 -> 60416 bytes official/2.1.1/install/dcc32.cfg | 6 + official/2.1.1/install/dcc32_command.cmd | 1 + official/2.1.1/lib/c6/debug/dirinfo.txt | 1 + official/2.1.1/lib/c6/dirinfo.txt | 3 + official/2.1.1/lib/cs1/dirinfo.txt | 1 + official/2.1.1/lib/d10/debug/dirinfo.txt | 1 + official/2.1.1/lib/d10/dirinfo.txt | 1 + official/2.1.1/lib/d11/Hardlinks.dcu | Bin 0 -> 8572 bytes official/2.1.1/lib/d11/Jcl.dcp | Bin 0 -> 4640522 bytes official/2.1.1/lib/d11/Jcl.dcu | Bin 0 -> 6705 bytes official/2.1.1/lib/d11/Jcl8087.dcu | Bin 0 -> 3895 bytes .../2.1.1/lib/d11/JclAbstractContainers.dcu | Bin 0 -> 85607 bytes official/2.1.1/lib/d11/JclAlgorithms.dcu | Bin 0 -> 28604 bytes official/2.1.1/lib/d11/JclAnsiStrings.dcu | Bin 0 -> 41202 bytes official/2.1.1/lib/d11/JclAppInst.dcu | Bin 0 -> 12806 bytes official/2.1.1/lib/d11/JclArrayLists.dcu | Bin 0 -> 212009 bytes official/2.1.1/lib/d11/JclArraySets.dcu | Bin 0 -> 94415 bytes official/2.1.1/lib/d11/JclBase.dcu | Bin 0 -> 13769 bytes official/2.1.1/lib/d11/JclBinaryTrees.dcu | Bin 0 -> 350548 bytes official/2.1.1/lib/d11/JclBorlandTools.dcu | Bin 0 -> 155028 bytes official/2.1.1/lib/d11/JclCIL.dcu | Bin 0 -> 70185 bytes official/2.1.1/lib/d11/JclCLR.dcu | Bin 0 -> 45830 bytes official/2.1.1/lib/d11/JclCOM.dcu | Bin 0 -> 11826 bytes official/2.1.1/lib/d11/JclCharsets.dcu | Bin 0 -> 12332 bytes official/2.1.1/lib/d11/JclCommCtrlAdmin.res | Bin 0 -> 920 bytes .../2.1.1/lib/d11/JclCommCtrlAsInvoker.res | Bin 0 -> 908 bytes official/2.1.1/lib/d11/JclComplex.dcu | Bin 0 -> 35732 bytes official/2.1.1/lib/d11/JclCompression.dcu | Bin 0 -> 233710 bytes official/2.1.1/lib/d11/JclConsole.dcu | Bin 0 -> 40783 bytes official/2.1.1/lib/d11/JclContainerIntf.dcu | Bin 0 -> 157794 bytes official/2.1.1/lib/d11/JclContainers.dcp | Bin 0 -> 2470838 bytes official/2.1.1/lib/d11/JclContainers.dcu | Bin 0 -> 3238 bytes official/2.1.1/lib/d11/JclCounter.dcu | Bin 0 -> 4005 bytes official/2.1.1/lib/d11/JclDateTime.dcu | Bin 0 -> 18401 bytes official/2.1.1/lib/d11/JclDebug.dcu | Bin 0 -> 126331 bytes .../2.1.1/lib/d11/JclDebugSerialization.dcu | Bin 0 -> 24106 bytes .../2.1.1/lib/d11/JclDebugXMLDeserializer.dcu | Bin 0 -> 2839 bytes .../2.1.1/lib/d11/JclDebugXMLSerializer.dcu | Bin 0 -> 3155 bytes official/2.1.1/lib/d11/JclDotNet.dcu | Bin 0 -> 33364 bytes official/2.1.1/lib/d11/JclEDI.dcu | Bin 0 -> 36702 bytes official/2.1.1/lib/d11/JclEDISEF.dcu | Bin 0 -> 93761 bytes official/2.1.1/lib/d11/JclEDITranslators.dcu | Bin 0 -> 10867 bytes official/2.1.1/lib/d11/JclEDIXML.dcu | Bin 0 -> 64075 bytes official/2.1.1/lib/d11/JclEDI_ANSIX12.dcu | Bin 0 -> 77059 bytes official/2.1.1/lib/d11/JclEDI_ANSIX12_Ext.dcu | Bin 0 -> 7040 bytes official/2.1.1/lib/d11/JclEDI_UNEDIFACT.dcu | Bin 0 -> 52418 bytes .../2.1.1/lib/d11/JclEDI_UNEDIFACT_Ext.dcu | Bin 0 -> 7092 bytes official/2.1.1/lib/d11/JclExprEval.dcu | Bin 0 -> 120503 bytes official/2.1.1/lib/d11/JclFileUtils.dcu | Bin 0 -> 130698 bytes official/2.1.1/lib/d11/JclFont.dcu | Bin 0 -> 1908 bytes official/2.1.1/lib/d11/JclGraphUtils.dcu | Bin 0 -> 29228 bytes official/2.1.1/lib/d11/JclGraphics.dcu | Bin 0 -> 100058 bytes official/2.1.1/lib/d11/JclHashMaps.dcu | Bin 0 -> 485523 bytes official/2.1.1/lib/d11/JclHashSets.dcu | Bin 0 -> 143800 bytes official/2.1.1/lib/d11/JclHookExcept.dcu | Bin 0 -> 8624 bytes official/2.1.1/lib/d11/JclIniFiles.dcu | Bin 0 -> 3156 bytes official/2.1.1/lib/d11/JclLANMan.dcu | Bin 0 -> 10461 bytes official/2.1.1/lib/d11/JclLinkedLists.dcu | Bin 0 -> 236675 bytes official/2.1.1/lib/d11/JclLocales.dcu | Bin 0 -> 30616 bytes official/2.1.1/lib/d11/JclLogic.dcu | Bin 0 -> 17347 bytes official/2.1.1/lib/d11/JclMIDI.dcu | Bin 0 -> 23616 bytes official/2.1.1/lib/d11/JclMapi.dcu | Bin 0 -> 36867 bytes official/2.1.1/lib/d11/JclMath.dcu | Bin 0 -> 66830 bytes official/2.1.1/lib/d11/JclMetadata.dcu | Bin 0 -> 143923 bytes official/2.1.1/lib/d11/JclMime.dcu | Bin 0 -> 10592 bytes official/2.1.1/lib/d11/JclMiscel.dcu | Bin 0 -> 11432 bytes official/2.1.1/lib/d11/JclMsdosSys.dcu | Bin 0 -> 18974 bytes official/2.1.1/lib/d11/JclMultimedia.dcu | Bin 0 -> 34339 bytes official/2.1.1/lib/d11/JclNTFS.dcu | Bin 0 -> 50701 bytes official/2.1.1/lib/d11/JclNoDepAdmin.res | Bin 0 -> 608 bytes official/2.1.1/lib/d11/JclNoDepAsInvoker.res | Bin 0 -> 596 bytes official/2.1.1/lib/d11/JclNotify.dcu | Bin 0 -> 5031 bytes official/2.1.1/lib/d11/JclOpenDialog.res | Bin 0 -> 144 bytes .../2.1.1/lib/d11/JclOpenDialogFavorites.dcu | Bin 0 -> 7802 bytes official/2.1.1/lib/d11/JclOpenDialogHooks.dcu | Bin 0 -> 9959 bytes official/2.1.1/lib/d11/JclPCRE.dcu | Bin 0 -> 18977 bytes official/2.1.1/lib/d11/JclPeImage.dcu | Bin 0 -> 142129 bytes official/2.1.1/lib/d11/JclPrint.dcu | Bin 0 -> 26580 bytes official/2.1.1/lib/d11/JclQueues.dcu | Bin 0 -> 80911 bytes official/2.1.1/lib/d11/JclRTTI.dcu | Bin 0 -> 70449 bytes official/2.1.1/lib/d11/JclRegistry.dcu | Bin 0 -> 43305 bytes official/2.1.1/lib/d11/JclResources.dcu | Bin 0 -> 155730 bytes official/2.1.1/lib/d11/JclSchedule.dcu | Bin 0 -> 32960 bytes official/2.1.1/lib/d11/JclSecurity.dcu | Bin 0 -> 12619 bytes official/2.1.1/lib/d11/JclShell.dcu | Bin 0 -> 27865 bytes official/2.1.1/lib/d11/JclSimpleXml.dcu | Bin 0 -> 80203 bytes official/2.1.1/lib/d11/JclSortedMaps.dcu | Bin 0 -> 501818 bytes official/2.1.1/lib/d11/JclStacks.dcu | Bin 0 -> 69338 bytes official/2.1.1/lib/d11/JclStatistics.dcu | Bin 0 -> 7562 bytes official/2.1.1/lib/d11/JclStrHashMap.dcu | Bin 0 -> 12371 bytes official/2.1.1/lib/d11/JclStreams.dcu | Bin 0 -> 61947 bytes .../2.1.1/lib/d11/JclStringConversions.dcu | Bin 0 -> 29071 bytes official/2.1.1/lib/d11/JclStringLists.dcu | Bin 0 -> 41185 bytes official/2.1.1/lib/d11/JclStrings.dcu | Bin 0 -> 80861 bytes official/2.1.1/lib/d11/JclStructStorage.dcu | Bin 0 -> 14414 bytes official/2.1.1/lib/d11/JclSvcCtrl.dcu | Bin 0 -> 30077 bytes official/2.1.1/lib/d11/JclSynch.dcu | Bin 0 -> 30478 bytes official/2.1.1/lib/d11/JclSysInfo.dcu | Bin 0 -> 94603 bytes official/2.1.1/lib/d11/JclSysUtils.dcu | Bin 0 -> 57305 bytes official/2.1.1/lib/d11/JclTD32.dcu | Bin 0 -> 31092 bytes official/2.1.1/lib/d11/JclTask.dcu | Bin 0 -> 27290 bytes official/2.1.1/lib/d11/JclTimeZones.dcu | Bin 0 -> 17256 bytes official/2.1.1/lib/d11/JclTrees.dcu | Bin 0 -> 336813 bytes official/2.1.1/lib/d11/JclUnicode.dcu | Bin 0 -> 103796 bytes official/2.1.1/lib/d11/JclUnicode.res | Bin 0 -> 148608 bytes official/2.1.1/lib/d11/JclUnicodeBZip2.res | Bin 0 -> 40404 bytes official/2.1.1/lib/d11/JclUnicodeZLib.res | Bin 0 -> 39584 bytes official/2.1.1/lib/d11/JclUnitConv.dcu | Bin 0 -> 16995 bytes official/2.1.1/lib/d11/JclUnitVersioning.dcu | Bin 0 -> 14034 bytes .../lib/d11/JclUnitVersioningProviders.dcu | Bin 0 -> 9543 bytes official/2.1.1/lib/d11/JclValidation.dcu | Bin 0 -> 2299 bytes official/2.1.1/lib/d11/JclVcl.dcp | Bin 0 -> 210224 bytes official/2.1.1/lib/d11/JclVcl.dcu | Bin 0 -> 4267 bytes official/2.1.1/lib/d11/JclVclResources.dcu | Bin 0 -> 9231 bytes official/2.1.1/lib/d11/JclVectors.dcu | Bin 0 -> 211332 bytes official/2.1.1/lib/d11/JclVersionControl.dcu | Bin 0 -> 22402 bytes .../2.1.1/lib/d11/JclVersionCtrlCVSImpl.dcu | Bin 0 -> 9587 bytes .../2.1.1/lib/d11/JclVersionCtrlSVNImpl.dcu | Bin 0 -> 11019 bytes official/2.1.1/lib/d11/JclWideFormat.dcu | Bin 0 -> 11586 bytes official/2.1.1/lib/d11/JclWideStrings.dcu | Bin 0 -> 36261 bytes official/2.1.1/lib/d11/JclWin32.dcu | Bin 0 -> 135640 bytes official/2.1.1/lib/d11/JclWin32Ex.dcu | Bin 0 -> 7587 bytes official/2.1.1/lib/d11/JclWinMIDI.dcu | Bin 0 -> 10504 bytes official/2.1.1/lib/d11/MSHelpServices_TLB.dcu | Bin 0 -> 45305 bytes official/2.1.1/lib/d11/MSTask.dcu | Bin 0 -> 9878 bytes official/2.1.1/lib/d11/Snmp.dcu | Bin 0 -> 10959 bytes official/2.1.1/lib/d11/bzip2.dcu | Bin 0 -> 42445 bytes official/2.1.1/lib/d11/debug/Hardlinks.dcu | Bin 0 -> 10893 bytes official/2.1.1/lib/d11/debug/Jcl8087.dcu | Bin 0 -> 5549 bytes .../lib/d11/debug/JclAbstractContainers.dcu | Bin 0 -> 108741 bytes .../2.1.1/lib/d11/debug/JclAlgorithms.dcu | Bin 0 -> 51531 bytes .../2.1.1/lib/d11/debug/JclAnsiStrings.dcu | Bin 0 -> 70763 bytes official/2.1.1/lib/d11/debug/JclAppInst.dcu | Bin 0 -> 18184 bytes .../2.1.1/lib/d11/debug/JclArrayLists.dcu | Bin 0 -> 291883 bytes official/2.1.1/lib/d11/debug/JclArraySets.dcu | Bin 0 -> 113320 bytes official/2.1.1/lib/d11/debug/JclBase.dcu | Bin 0 -> 22409 bytes .../2.1.1/lib/d11/debug/JclBinaryTrees.dcu | Bin 0 -> 478512 bytes .../2.1.1/lib/d11/debug/JclBorlandTools.dcu | Bin 0 -> 200179 bytes official/2.1.1/lib/d11/debug/JclCIL.dcu | Bin 0 -> 84443 bytes official/2.1.1/lib/d11/debug/JclCLR.dcu | Bin 0 -> 63221 bytes official/2.1.1/lib/d11/debug/JclCOM.dcu | Bin 0 -> 15526 bytes official/2.1.1/lib/d11/debug/JclCharsets.dcu | Bin 0 -> 17474 bytes .../2.1.1/lib/d11/debug/JclCommCtrlAdmin.res | Bin 0 -> 920 bytes .../lib/d11/debug/JclCommCtrlAsInvoker.res | Bin 0 -> 908 bytes official/2.1.1/lib/d11/debug/JclComplex.dcu | Bin 0 -> 49538 bytes .../2.1.1/lib/d11/debug/JclCompression.dcu | Bin 0 -> 307730 bytes official/2.1.1/lib/d11/debug/JclConsole.dcu | Bin 0 -> 55907 bytes .../2.1.1/lib/d11/debug/JclContainerIntf.dcu | Bin 0 -> 185021 bytes official/2.1.1/lib/d11/debug/JclCounter.dcu | Bin 0 -> 5150 bytes official/2.1.1/lib/d11/debug/JclDateTime.dcu | Bin 0 -> 30768 bytes official/2.1.1/lib/d11/debug/JclDebug.dcu | Bin 0 -> 178859 bytes .../lib/d11/debug/JclDebugSerialization.dcu | Bin 0 -> 31338 bytes .../lib/d11/debug/JclDebugXMLDeserializer.dcu | Bin 0 -> 3296 bytes .../lib/d11/debug/JclDebugXMLSerializer.dcu | Bin 0 -> 3763 bytes official/2.1.1/lib/d11/debug/JclDotNet.dcu | Bin 0 -> 45192 bytes official/2.1.1/lib/d11/debug/JclEDI.dcu | Bin 0 -> 50988 bytes official/2.1.1/lib/d11/debug/JclEDISEF.dcu | Bin 0 -> 135436 bytes .../2.1.1/lib/d11/debug/JclEDITranslators.dcu | Bin 0 -> 14096 bytes official/2.1.1/lib/d11/debug/JclEDIXML.dcu | Bin 0 -> 89024 bytes .../2.1.1/lib/d11/debug/JclEDI_ANSIX12.dcu | Bin 0 -> 103850 bytes .../lib/d11/debug/JclEDI_ANSIX12_Ext.dcu | Bin 0 -> 9013 bytes .../2.1.1/lib/d11/debug/JclEDI_UNEDIFACT.dcu | Bin 0 -> 74856 bytes .../lib/d11/debug/JclEDI_UNEDIFACT_Ext.dcu | Bin 0 -> 9063 bytes official/2.1.1/lib/d11/debug/JclExprEval.dcu | Bin 0 -> 159916 bytes official/2.1.1/lib/d11/debug/JclFileUtils.dcu | Bin 0 -> 183695 bytes official/2.1.1/lib/d11/debug/JclFont.dcu | Bin 0 -> 2351 bytes .../2.1.1/lib/d11/debug/JclGraphUtils.dcu | Bin 0 -> 50488 bytes official/2.1.1/lib/d11/debug/JclGraphics.dcu | Bin 0 -> 160170 bytes official/2.1.1/lib/d11/debug/JclHashMaps.dcu | Bin 0 -> 725036 bytes official/2.1.1/lib/d11/debug/JclHashSets.dcu | Bin 0 -> 188762 bytes .../2.1.1/lib/d11/debug/JclHookExcept.dcu | Bin 0 -> 11981 bytes official/2.1.1/lib/d11/debug/JclIniFiles.dcu | Bin 0 -> 4239 bytes official/2.1.1/lib/d11/debug/JclLANMan.dcu | Bin 0 -> 13997 bytes .../2.1.1/lib/d11/debug/JclLinkedLists.dcu | Bin 0 -> 329929 bytes official/2.1.1/lib/d11/debug/JclLocales.dcu | Bin 0 -> 40869 bytes official/2.1.1/lib/d11/debug/JclLogic.dcu | Bin 0 -> 32824 bytes official/2.1.1/lib/d11/debug/JclMIDI.dcu | Bin 0 -> 31926 bytes official/2.1.1/lib/d11/debug/JclMapi.dcu | Bin 0 -> 50247 bytes official/2.1.1/lib/d11/debug/JclMath.dcu | Bin 0 -> 99871 bytes official/2.1.1/lib/d11/debug/JclMetadata.dcu | Bin 0 -> 187056 bytes official/2.1.1/lib/d11/debug/JclMime.dcu | Bin 0 -> 19070 bytes official/2.1.1/lib/d11/debug/JclMiscel.dcu | Bin 0 -> 15028 bytes official/2.1.1/lib/d11/debug/JclMsdosSys.dcu | Bin 0 -> 24757 bytes .../2.1.1/lib/d11/debug/JclMultimedia.dcu | Bin 0 -> 47340 bytes official/2.1.1/lib/d11/debug/JclNTFS.dcu | Bin 0 -> 68537 bytes .../2.1.1/lib/d11/debug/JclNoDepAdmin.res | Bin 0 -> 608 bytes .../2.1.1/lib/d11/debug/JclNoDepAsInvoker.res | Bin 0 -> 596 bytes official/2.1.1/lib/d11/debug/JclNotify.dcu | Bin 0 -> 5790 bytes .../2.1.1/lib/d11/debug/JclOpenDialog.res | Bin 0 -> 144 bytes .../lib/d11/debug/JclOpenDialogFavorites.dcu | Bin 0 -> 9983 bytes .../lib/d11/debug/JclOpenDialogHooks.dcu | Bin 0 -> 12806 bytes official/2.1.1/lib/d11/debug/JclPCRE.dcu | Bin 0 -> 25531 bytes official/2.1.1/lib/d11/debug/JclPeImage.dcu | Bin 0 -> 199237 bytes official/2.1.1/lib/d11/debug/JclPrint.dcu | Bin 0 -> 37433 bytes official/2.1.1/lib/d11/debug/JclQueues.dcu | Bin 0 -> 106980 bytes official/2.1.1/lib/d11/debug/JclRTTI.dcu | Bin 0 -> 92184 bytes official/2.1.1/lib/d11/debug/JclRegistry.dcu | Bin 0 -> 63149 bytes official/2.1.1/lib/d11/debug/JclResources.dcu | Bin 0 -> 169059 bytes official/2.1.1/lib/d11/debug/JclSchedule.dcu | Bin 0 -> 45597 bytes official/2.1.1/lib/d11/debug/JclSecurity.dcu | Bin 0 -> 18114 bytes official/2.1.1/lib/d11/debug/JclShell.dcu | Bin 0 -> 40133 bytes official/2.1.1/lib/d11/debug/JclSimpleXml.dcu | Bin 0 -> 112926 bytes .../2.1.1/lib/d11/debug/JclSortedMaps.dcu | Bin 0 -> 738930 bytes official/2.1.1/lib/d11/debug/JclStacks.dcu | Bin 0 -> 88746 bytes .../2.1.1/lib/d11/debug/JclStatistics.dcu | Bin 0 -> 12705 bytes .../2.1.1/lib/d11/debug/JclStrHashMap.dcu | Bin 0 -> 18767 bytes official/2.1.1/lib/d11/debug/JclStreams.dcu | Bin 0 -> 88618 bytes .../lib/d11/debug/JclStringConversions.dcu | Bin 0 -> 48443 bytes .../2.1.1/lib/d11/debug/JclStringLists.dcu | Bin 0 -> 54214 bytes official/2.1.1/lib/d11/debug/JclStrings.dcu | Bin 0 -> 130074 bytes .../2.1.1/lib/d11/debug/JclStructStorage.dcu | Bin 0 -> 19617 bytes official/2.1.1/lib/d11/debug/JclSvcCtrl.dcu | Bin 0 -> 42917 bytes official/2.1.1/lib/d11/debug/JclSynch.dcu | Bin 0 -> 42290 bytes official/2.1.1/lib/d11/debug/JclSysInfo.dcu | Bin 0 -> 133346 bytes official/2.1.1/lib/d11/debug/JclSysUtils.dcu | Bin 0 -> 83998 bytes official/2.1.1/lib/d11/debug/JclTD32.dcu | Bin 0 -> 43362 bytes official/2.1.1/lib/d11/debug/JclTask.dcu | Bin 0 -> 36029 bytes official/2.1.1/lib/d11/debug/JclTimeZones.dcu | Bin 0 -> 22751 bytes official/2.1.1/lib/d11/debug/JclTrees.dcu | Bin 0 -> 469705 bytes official/2.1.1/lib/d11/debug/JclUnicode.dcu | Bin 0 -> 164444 bytes official/2.1.1/lib/d11/debug/JclUnicode.res | Bin 0 -> 148608 bytes .../2.1.1/lib/d11/debug/JclUnicodeBZip2.res | Bin 0 -> 40404 bytes .../2.1.1/lib/d11/debug/JclUnicodeZLib.res | Bin 0 -> 39584 bytes official/2.1.1/lib/d11/debug/JclUnitConv.dcu | Bin 0 -> 23775 bytes .../2.1.1/lib/d11/debug/JclUnitVersioning.dcu | Bin 0 -> 19425 bytes .../d11/debug/JclUnitVersioningProviders.dcu | Bin 0 -> 12408 bytes .../2.1.1/lib/d11/debug/JclValidation.dcu | Bin 0 -> 3422 bytes .../2.1.1/lib/d11/debug/JclVclResources.dcu | Bin 0 -> 10070 bytes official/2.1.1/lib/d11/debug/JclVectors.dcu | Bin 0 -> 291452 bytes .../2.1.1/lib/d11/debug/JclVersionControl.dcu | Bin 0 -> 28314 bytes .../lib/d11/debug/JclVersionCtrlCVSImpl.dcu | Bin 0 -> 11916 bytes .../lib/d11/debug/JclVersionCtrlSVNImpl.dcu | Bin 0 -> 13690 bytes .../2.1.1/lib/d11/debug/JclWideFormat.dcu | Bin 0 -> 18151 bytes .../2.1.1/lib/d11/debug/JclWideStrings.dcu | Bin 0 -> 55344 bytes official/2.1.1/lib/d11/debug/JclWin32.dcu | Bin 0 -> 172826 bytes official/2.1.1/lib/d11/debug/JclWin32Ex.dcu | Bin 0 -> 10548 bytes official/2.1.1/lib/d11/debug/JclWinMIDI.dcu | Bin 0 -> 13416 bytes .../lib/d11/debug/MSHelpServices_TLB.dcu | Bin 0 -> 53046 bytes official/2.1.1/lib/d11/debug/MSTask.dcu | Bin 0 -> 11801 bytes official/2.1.1/lib/d11/debug/Snmp.dcu | Bin 0 -> 13761 bytes official/2.1.1/lib/d11/debug/bzip2.dcu | Bin 0 -> 43261 bytes official/2.1.1/lib/d11/debug/dirinfo.txt | 1 + official/2.1.1/lib/d11/debug/mscoree_TLB.dcu | Bin 0 -> 13786 bytes official/2.1.1/lib/d11/debug/mscorlib_TLB.dcu | Bin 0 -> 1080879 bytes official/2.1.1/lib/d11/debug/pcre.dcu | Bin 0 -> 176997 bytes official/2.1.1/lib/d11/debug/sevenzip.dcu | Bin 0 -> 22843 bytes official/2.1.1/lib/d11/debug/zlibh.dcu | Bin 0 -> 60130 bytes official/2.1.1/lib/d11/dirinfo.txt | 1 + official/2.1.1/lib/d11/mscoree_TLB.dcu | Bin 0 -> 11734 bytes official/2.1.1/lib/d11/mscorlib_TLB.dcu | Bin 0 -> 906571 bytes official/2.1.1/lib/d11/pcre.dcu | Bin 0 -> 173747 bytes official/2.1.1/lib/d11/sevenzip.dcu | Bin 0 -> 19124 bytes official/2.1.1/lib/d11/zlibh.dcu | Bin 0 -> 58064 bytes official/2.1.1/lib/d12/debug/dirinfo.txt | 1 + official/2.1.1/lib/d12/dirinfo.txt | 1 + official/2.1.1/lib/d14/debug/dirinfo.txt | 1 + official/2.1.1/lib/d14/dirinfo.txt | 1 + official/2.1.1/lib/d6/debug/dirinfo.txt | 1 + official/2.1.1/lib/d6/dirinfo.txt | 1 + official/2.1.1/lib/d7/debug/dirinfo.txt | 1 + official/2.1.1/lib/d7/dirinfo.txt | 1 + official/2.1.1/lib/d8/dirinfo.txt | 1 + official/2.1.1/lib/d9/debug/dirinfo.txt | 1 + official/2.1.1/lib/d9/dirinfo.txt | 1 + official/2.1.1/lib/dirinfo.txt | 1 + official/2.1.1/lib/fpc/dirinfo.txt | 1 + official/2.1.1/lib/fpc/i386-win32/dirinfo.txt | 1 + official/2.1.1/packages/BCB.bmk | 224 + official/2.1.1/packages/JclPackagesC60.bpg | 74 + .../2.1.1/packages/JclPackagesD100.bdsgroup | 27 + .../2.1.1/packages/JclPackagesD110.groupproj | 121 + .../2.1.1/packages/JclPackagesD120.groupproj | 158 + .../2.1.1/packages/JclPackagesD140.groupproj | 155 + official/2.1.1/packages/JclPackagesD60.bpg | 61 + official/2.1.1/packages/JclPackagesD70.bpg | 57 + .../2.1.1/packages/JclPackagesD90.bdsgroup | 29 + official/2.1.1/packages/c6/Jcl.RES | Bin 0 -> 852 bytes official/2.1.1/packages/c6/Jcl.bpk | 243 + official/2.1.1/packages/c6/Jcl.cpp | 25 + official/2.1.1/packages/c6/Jcl.dof | 5 + official/2.1.1/packages/c6/Jcl.dpk | 129 + official/2.1.1/packages/c6/Jcl.rc | 32 + official/2.1.1/packages/c6/JclBaseExpert.bpk | 107 + official/2.1.1/packages/c6/JclBaseExpert.cpp | 31 + official/2.1.1/packages/c6/JclBaseExpert.dof | 5 + official/2.1.1/packages/c6/JclBaseExpert.dpk | 58 + official/2.1.1/packages/c6/JclBaseExpert.rc | 32 + official/2.1.1/packages/c6/JclBaseExpert.res | Bin 0 -> 936 bytes official/2.1.1/packages/c6/JclContainers.bpk | 107 + official/2.1.1/packages/c6/JclContainers.cpp | 25 + official/2.1.1/packages/c6/JclContainers.dof | 5 + official/2.1.1/packages/c6/JclContainers.dpk | 61 + official/2.1.1/packages/c6/JclContainers.rc | 32 + official/2.1.1/packages/c6/JclContainers.res | Bin 0 -> 908 bytes official/2.1.1/packages/c6/JclDebugExpert.RES | Bin 0 -> 884 bytes official/2.1.1/packages/c6/JclDebugExpert.bpk | 93 + official/2.1.1/packages/c6/JclDebugExpert.cpp | 27 + official/2.1.1/packages/c6/JclDebugExpert.dof | 5 + official/2.1.1/packages/c6/JclDebugExpert.dpk | 53 + official/2.1.1/packages/c6/JclDebugExpert.rc | 32 + .../2.1.1/packages/c6/JclDebugExpertDLL.bpf | 6 + .../2.1.1/packages/c6/JclDebugExpertDLL.bpr | 92 + .../2.1.1/packages/c6/JclDebugExpertDLL.cpp | 27 + .../2.1.1/packages/c6/JclDebugExpertDLL.dof | 9 + .../2.1.1/packages/c6/JclDebugExpertDLL.rc | 32 + .../2.1.1/packages/c6/JclDebugExpertDLL.res | Bin 0 -> 896 bytes .../packages/c6/JclFavoriteFoldersExpert.RES | Bin 0 -> 980 bytes .../packages/c6/JclFavoriteFoldersExpert.bpk | 89 + .../packages/c6/JclFavoriteFoldersExpert.cpp | 25 + .../packages/c6/JclFavoriteFoldersExpert.dof | 5 + .../packages/c6/JclFavoriteFoldersExpert.dpk | 52 + .../packages/c6/JclFavoriteFoldersExpert.rc | 32 + .../c6/JclFavoriteFoldersExpertDLL.bpf | 4 + .../c6/JclFavoriteFoldersExpertDLL.bpr | 88 + .../c6/JclFavoriteFoldersExpertDLL.cpp | 25 + .../c6/JclFavoriteFoldersExpertDLL.dof | 9 + .../c6/JclFavoriteFoldersExpertDLL.rc | 32 + .../c6/JclFavoriteFoldersExpertDLL.res | Bin 0 -> 992 bytes .../packages/c6/JclProjectAnalysisExpert.RES | Bin 0 -> 920 bytes .../packages/c6/JclProjectAnalysisExpert.bpk | 90 + .../packages/c6/JclProjectAnalysisExpert.cpp | 26 + .../packages/c6/JclProjectAnalysisExpert.dof | 5 + .../packages/c6/JclProjectAnalysisExpert.dpk | 52 + .../packages/c6/JclProjectAnalysisExpert.rc | 32 + .../c6/JclProjectAnalysisExpertDLL.bpf | 5 + .../c6/JclProjectAnalysisExpertDLL.bpr | 89 + .../c6/JclProjectAnalysisExpertDLL.cpp | 26 + .../c6/JclProjectAnalysisExpertDLL.dof | 9 + .../c6/JclProjectAnalysisExpertDLL.rc | 32 + .../c6/JclProjectAnalysisExpertDLL.res | Bin 0 -> 932 bytes .../2.1.1/packages/c6/JclRepositoryExpert.bpk | 117 + .../2.1.1/packages/c6/JclRepositoryExpert.cpp | 33 + .../2.1.1/packages/c6/JclRepositoryExpert.dof | 5 + .../2.1.1/packages/c6/JclRepositoryExpert.dpk | 62 + .../2.1.1/packages/c6/JclRepositoryExpert.rc | 32 + .../2.1.1/packages/c6/JclRepositoryExpert.res | Bin 0 -> 940 bytes .../packages/c6/JclRepositoryExpertDLL.bpf | 15 + .../packages/c6/JclRepositoryExpertDLL.bpr | 116 + .../packages/c6/JclRepositoryExpertDLL.cpp | 33 + .../packages/c6/JclRepositoryExpertDLL.dof | 9 + .../packages/c6/JclRepositoryExpertDLL.rc | 32 + .../packages/c6/JclRepositoryExpertDLL.res | Bin 0 -> 952 bytes .../2.1.1/packages/c6/JclSIMDViewExpert.bpk | 98 + .../2.1.1/packages/c6/JclSIMDViewExpert.cpp | 28 + .../2.1.1/packages/c6/JclSIMDViewExpert.dof | 5 + .../2.1.1/packages/c6/JclSIMDViewExpert.dpk | 55 + .../2.1.1/packages/c6/JclSIMDViewExpert.rc | 32 + .../2.1.1/packages/c6/JclSIMDViewExpert.res | Bin 0 -> 916 bytes .../packages/c6/JclSIMDViewExpertDLL.bpf | 8 + .../packages/c6/JclSIMDViewExpertDLL.bpr | 97 + .../packages/c6/JclSIMDViewExpertDLL.cpp | 28 + .../packages/c6/JclSIMDViewExpertDLL.dof | 9 + .../2.1.1/packages/c6/JclSIMDViewExpertDLL.rc | 32 + .../packages/c6/JclSIMDViewExpertDLL.res | Bin 0 -> 928 bytes .../packages/c6/JclStackTraceViewerExpert.bpk | 120 + .../packages/c6/JclStackTraceViewerExpert.cpp | 32 + .../packages/c6/JclStackTraceViewerExpert.dof | 5 + .../packages/c6/JclStackTraceViewerExpert.dpk | 64 + .../packages/c6/JclStackTraceViewerExpert.rc | 32 + .../packages/c6/JclStackTraceViewerExpert.res | Bin 0 -> 928 bytes .../c6/JclStackTraceViewerExpertDLL.bpf | 17 + .../c6/JclStackTraceViewerExpertDLL.bpr | 119 + .../c6/JclStackTraceViewerExpertDLL.cpp | 32 + .../c6/JclStackTraceViewerExpertDLL.dof | 9 + .../c6/JclStackTraceViewerExpertDLL.rc | 32 + .../c6/JclStackTraceViewerExpertDLL.res | Bin 0 -> 940 bytes .../2.1.1/packages/c6/JclThreadNameExpert.RES | Bin 0 -> 912 bytes .../2.1.1/packages/c6/JclThreadNameExpert.bpk | 89 + .../2.1.1/packages/c6/JclThreadNameExpert.cpp | 25 + .../2.1.1/packages/c6/JclThreadNameExpert.dof | 5 + .../2.1.1/packages/c6/JclThreadNameExpert.dpk | 52 + .../2.1.1/packages/c6/JclThreadNameExpert.rc | 32 + .../packages/c6/JclThreadNameExpertDLL.bpf | 5 + .../packages/c6/JclThreadNameExpertDLL.bpr | 88 + .../packages/c6/JclThreadNameExpertDLL.cpp | 25 + .../packages/c6/JclThreadNameExpertDLL.dof | 9 + .../packages/c6/JclThreadNameExpertDLL.rc | 32 + .../packages/c6/JclThreadNameExpertDLL.res | Bin 0 -> 924 bytes official/2.1.1/packages/c6/JclUsesExpert.RES | Bin 0 -> 864 bytes official/2.1.1/packages/c6/JclUsesExpert.bpk | 95 + official/2.1.1/packages/c6/JclUsesExpert.cpp | 27 + official/2.1.1/packages/c6/JclUsesExpert.dof | 5 + official/2.1.1/packages/c6/JclUsesExpert.dpk | 54 + official/2.1.1/packages/c6/JclUsesExpert.rc | 32 + .../2.1.1/packages/c6/JclUsesExpertDLL.bpf | 7 + .../2.1.1/packages/c6/JclUsesExpertDLL.bpr | 94 + .../2.1.1/packages/c6/JclUsesExpertDLL.cpp | 27 + .../2.1.1/packages/c6/JclUsesExpertDLL.dof | 9 + .../2.1.1/packages/c6/JclUsesExpertDLL.rc | 32 + .../2.1.1/packages/c6/JclUsesExpertDLL.res | Bin 0 -> 876 bytes official/2.1.1/packages/c6/JclVcl.RES | Bin 0 -> 864 bytes official/2.1.1/packages/c6/JclVcl.bpk | 103 + official/2.1.1/packages/c6/JclVcl.cpp | 25 + official/2.1.1/packages/c6/JclVcl.dof | 5 + official/2.1.1/packages/c6/JclVcl.dpk | 59 + official/2.1.1/packages/c6/JclVcl.rc | 32 + .../packages/c6/JclVersionControlExpert.bpk | 92 + .../packages/c6/JclVersionControlExpert.cpp | 26 + .../packages/c6/JclVersionControlExpert.dof | 5 + .../packages/c6/JclVersionControlExpert.dpk | 53 + .../packages/c6/JclVersionControlExpert.rc | 32 + .../packages/c6/JclVersionControlExpert.res | Bin 0 -> 980 bytes .../c6/JclVersionControlExpertDLL.bpf | 5 + .../c6/JclVersionControlExpertDLL.bpr | 91 + .../c6/JclVersionControlExpertDLL.cpp | 26 + .../c6/JclVersionControlExpertDLL.dof | 9 + .../packages/c6/JclVersionControlExpertDLL.rc | 32 + .../c6/JclVersionControlExpertDLL.res | Bin 0 -> 992 bytes official/2.1.1/packages/c6/dirinfo.txt | 1 + official/2.1.1/packages/c6/template.bpf | 20 + official/2.1.1/packages/c6/template.bpk | 102 + official/2.1.1/packages/c6/template.bpr | 104 + official/2.1.1/packages/c6/template.cpp | 66 + official/2.1.1/packages/c6/template.dof | 11 + official/2.1.1/packages/c6/template.dpk | 58 + official/2.1.1/packages/c6/template.rc | 32 + official/2.1.1/packages/cs1/Jcl.RES | Bin 0 -> 848 bytes official/2.1.1/packages/cs1/Jcl.bdsproj | 174 + official/2.1.1/packages/cs1/Jcl.dpk | 95 + official/2.1.1/packages/cs1/Jcl.rc | 32 + official/2.1.1/packages/cs1/JclBaseExpert.RES | Bin 0 -> 932 bytes .../2.1.1/packages/cs1/JclBaseExpert.bdsproj | 174 + official/2.1.1/packages/cs1/JclBaseExpert.dpk | 59 + official/2.1.1/packages/cs1/JclBaseExpert.rc | 32 + .../2.1.1/packages/cs1/JclContainers.bdsproj | 174 + official/2.1.1/packages/cs1/JclContainers.dpk | 62 + official/2.1.1/packages/cs1/JclContainers.rc | 32 + official/2.1.1/packages/cs1/JclContainers.res | Bin 0 -> 904 bytes .../cs1/JclFavoriteFoldersExpertDLL.RES | Bin 0 -> 988 bytes .../cs1/JclFavoriteFoldersExpertDLL.bdsproj | 174 + .../cs1/JclFavoriteFoldersExpertDLL.dpr | 47 + .../cs1/JclFavoriteFoldersExpertDLL.rc | 32 + .../cs1/JclVersionControlExpertDLL.bdsproj | 174 + .../cs1/JclVersionControlExpertDLL.dpr | 48 + .../cs1/JclVersionControlExpertDLL.rc | 32 + .../cs1/JclVersionControlExpertDLL.res | Bin 0 -> 992 bytes official/2.1.1/packages/cs1/template.bdsproj | 174 + official/2.1.1/packages/cs1/template.dpk | 60 + official/2.1.1/packages/cs1/template.dpr | 64 + official/2.1.1/packages/cs1/template.rc | 32 + official/2.1.1/packages/d10/Jcl.bdsproj | 163 + official/2.1.1/packages/d10/Jcl.dpk | 135 + official/2.1.1/packages/d10/Jcl.rc | 32 + official/2.1.1/packages/d10/Jcl.res | Bin 0 -> 852 bytes .../2.1.1/packages/d10/JclBaseExpert.bdsproj | 163 + official/2.1.1/packages/d10/JclBaseExpert.dpk | 60 + official/2.1.1/packages/d10/JclBaseExpert.rc | 32 + official/2.1.1/packages/d10/JclBaseExpert.res | Bin 0 -> 936 bytes .../2.1.1/packages/d10/JclContainers.bdsproj | 163 + official/2.1.1/packages/d10/JclContainers.dpk | 63 + official/2.1.1/packages/d10/JclContainers.rc | 32 + official/2.1.1/packages/d10/JclContainers.res | Bin 0 -> 908 bytes .../2.1.1/packages/d10/JclDebugExpert.bdsproj | 163 + .../2.1.1/packages/d10/JclDebugExpert.dpk | 55 + official/2.1.1/packages/d10/JclDebugExpert.rc | 32 + .../2.1.1/packages/d10/JclDebugExpert.res | Bin 0 -> 884 bytes .../packages/d10/JclDebugExpertDLL.bdsproj | 163 + .../2.1.1/packages/d10/JclDebugExpertDLL.dpr | 50 + .../2.1.1/packages/d10/JclDebugExpertDLL.rc | 32 + .../2.1.1/packages/d10/JclDebugExpertDLL.res | Bin 0 -> 896 bytes .../2.1.1/packages/d10/JclExperts.bdsgroup | 22 + .../d10/JclFavoriteFoldersExpert.bdsproj | 163 + .../packages/d10/JclFavoriteFoldersExpert.dpk | 54 + .../packages/d10/JclFavoriteFoldersExpert.rc | 32 + .../packages/d10/JclFavoriteFoldersExpert.res | Bin 0 -> 980 bytes .../d10/JclFavoriteFoldersExpertDLL.bdsproj | 163 + .../d10/JclFavoriteFoldersExpertDLL.dpr | 48 + .../d10/JclFavoriteFoldersExpertDLL.rc | 32 + .../d10/JclFavoriteFoldersExpertDLL.res | Bin 0 -> 992 bytes .../packages/d10/JclProjectAnalysisExpert.RES | Bin 0 -> 920 bytes .../d10/JclProjectAnalysisExpert.bdsproj | 163 + .../packages/d10/JclProjectAnalysisExpert.dpk | 54 + .../packages/d10/JclProjectAnalysisExpert.rc | 32 + .../d10/JclProjectAnalysisExpertDLL.bdsproj | 163 + .../d10/JclProjectAnalysisExpertDLL.dpr | 49 + .../d10/JclProjectAnalysisExpertDLL.rc | 32 + .../d10/JclProjectAnalysisExpertDLL.res | Bin 0 -> 932 bytes .../packages/d10/JclRepositoryExpert.bdsproj | 163 + .../packages/d10/JclRepositoryExpert.dpk | 64 + .../2.1.1/packages/d10/JclRepositoryExpert.rc | 32 + .../packages/d10/JclRepositoryExpert.res | Bin 0 -> 940 bytes .../d10/JclRepositoryExpertDLL.bdsproj | 163 + .../packages/d10/JclRepositoryExpertDLL.dpr | 59 + .../packages/d10/JclRepositoryExpertDLL.rc | 32 + .../packages/d10/JclRepositoryExpertDLL.res | Bin 0 -> 952 bytes .../packages/d10/JclSIMDViewExpert.bdsproj | 163 + .../2.1.1/packages/d10/JclSIMDViewExpert.dpk | 57 + .../2.1.1/packages/d10/JclSIMDViewExpert.rc | 32 + .../2.1.1/packages/d10/JclSIMDViewExpert.res | Bin 0 -> 916 bytes .../packages/d10/JclSIMDViewExpertDLL.bdsproj | 163 + .../packages/d10/JclSIMDViewExpertDLL.dpr | 52 + .../packages/d10/JclSIMDViewExpertDLL.rc | 32 + .../packages/d10/JclSIMDViewExpertDLL.res | Bin 0 -> 928 bytes .../d10/JclStackTraceViewerExpert.bdsproj | 163 + .../d10/JclStackTraceViewerExpert.dpk | 66 + .../packages/d10/JclStackTraceViewerExpert.rc | 32 + .../d10/JclStackTraceViewerExpert.res | Bin 0 -> 928 bytes .../d10/JclStackTraceViewerExpertDLL.bdsproj | 163 + .../d10/JclStackTraceViewerExpertDLL.dpr | 61 + .../d10/JclStackTraceViewerExpertDLL.rc | 32 + .../d10/JclStackTraceViewerExpertDLL.res | Bin 0 -> 940 bytes official/2.1.1/packages/d10/JclVcl.bdsproj | 163 + official/2.1.1/packages/d10/JclVcl.dpk | 61 + official/2.1.1/packages/d10/JclVcl.rc | 32 + official/2.1.1/packages/d10/JclVcl.res | Bin 0 -> 864 bytes .../d10/JclVersionControlExpert.bdsproj | 163 + .../packages/d10/JclVersionControlExpert.dpk | 55 + .../packages/d10/JclVersionControlExpert.rc | 32 + .../packages/d10/JclVersionControlExpert.res | Bin 0 -> 980 bytes .../d10/JclVersionControlExpertDLL.bdsproj | 163 + .../d10/JclVersionControlExpertDLL.dpr | 49 + .../d10/JclVersionControlExpertDLL.rc | 32 + .../d10/JclVersionControlExpertDLL.res | Bin 0 -> 992 bytes official/2.1.1/packages/d10/template.bdsproj | 163 + official/2.1.1/packages/d10/template.dpk | 60 + official/2.1.1/packages/d10/template.dpr | 62 + official/2.1.1/packages/d10/template.rc | 32 + official/2.1.1/packages/d11/Jcl.dpk | 135 + official/2.1.1/packages/d11/Jcl.dproj | 177 + official/2.1.1/packages/d11/Jcl.rc | 32 + official/2.1.1/packages/d11/Jcl.res | Bin 0 -> 852 bytes official/2.1.1/packages/d11/JclBaseExpert.dpk | 60 + .../2.1.1/packages/d11/JclBaseExpert.dproj | 102 + official/2.1.1/packages/d11/JclBaseExpert.rc | 32 + official/2.1.1/packages/d11/JclBaseExpert.res | Bin 0 -> 936 bytes official/2.1.1/packages/d11/JclContainers.dpk | 63 + .../2.1.1/packages/d11/JclContainers.dproj | 105 + official/2.1.1/packages/d11/JclContainers.rc | 32 + official/2.1.1/packages/d11/JclContainers.res | Bin 0 -> 908 bytes .../2.1.1/packages/d11/JclDebugExpert.dpk | 55 + .../2.1.1/packages/d11/JclDebugExpert.dproj | 97 + official/2.1.1/packages/d11/JclDebugExpert.rc | 32 + .../2.1.1/packages/d11/JclDebugExpert.res | Bin 0 -> 884 bytes .../2.1.1/packages/d11/JclDebugExpertDLL.dpr | 50 + .../packages/d11/JclDebugExpertDLL.dproj | 97 + .../2.1.1/packages/d11/JclDebugExpertDLL.rc | 32 + .../2.1.1/packages/d11/JclDebugExpertDLL.res | Bin 0 -> 896 bytes .../packages/d11/JclFavoriteFoldersExpert.dpk | 54 + .../d11/JclFavoriteFoldersExpert.dproj | 96 + .../packages/d11/JclFavoriteFoldersExpert.rc | 32 + .../packages/d11/JclFavoriteFoldersExpert.res | Bin 0 -> 980 bytes .../d11/JclFavoriteFoldersExpertDLL.dpr | 48 + .../d11/JclFavoriteFoldersExpertDLL.dproj | 96 + .../d11/JclFavoriteFoldersExpertDLL.rc | 32 + .../d11/JclFavoriteFoldersExpertDLL.res | Bin 0 -> 992 bytes .../packages/d11/JclProjectAnalysisExpert.dpk | 54 + .../d11/JclProjectAnalysisExpert.dproj | 96 + .../packages/d11/JclProjectAnalysisExpert.rc | 32 + .../packages/d11/JclProjectAnalysisExpert.res | Bin 0 -> 920 bytes .../d11/JclProjectAnalysisExpertDLL.dpr | 49 + .../d11/JclProjectAnalysisExpertDLL.dproj | 96 + .../d11/JclProjectAnalysisExpertDLL.rc | 32 + .../d11/JclProjectAnalysisExpertDLL.res | Bin 0 -> 932 bytes .../packages/d11/JclRepositoryExpert.dpk | 64 + .../packages/d11/JclRepositoryExpert.dproj | 106 + .../2.1.1/packages/d11/JclRepositoryExpert.rc | 32 + .../packages/d11/JclRepositoryExpert.res | Bin 0 -> 940 bytes .../packages/d11/JclRepositoryExpertDLL.dpr | 59 + .../packages/d11/JclRepositoryExpertDLL.dproj | 106 + .../packages/d11/JclRepositoryExpertDLL.rc | 32 + .../packages/d11/JclRepositoryExpertDLL.res | Bin 0 -> 952 bytes .../2.1.1/packages/d11/JclSIMDViewExpert.dpk | 57 + .../packages/d11/JclSIMDViewExpert.dproj | 99 + .../2.1.1/packages/d11/JclSIMDViewExpert.rc | 32 + .../2.1.1/packages/d11/JclSIMDViewExpert.res | Bin 0 -> 916 bytes .../packages/d11/JclSIMDViewExpertDLL.dpr | 52 + .../packages/d11/JclSIMDViewExpertDLL.dproj | 99 + .../packages/d11/JclSIMDViewExpertDLL.rc | 32 + .../packages/d11/JclSIMDViewExpertDLL.res | Bin 0 -> 928 bytes .../d11/JclStackTraceViewerExpert.dpk | 66 + .../d11/JclStackTraceViewerExpert.dproj | 108 + .../packages/d11/JclStackTraceViewerExpert.rc | 32 + .../d11/JclStackTraceViewerExpert.res | Bin 0 -> 928 bytes .../d11/JclStackTraceViewerExpertDLL.dpr | 61 + .../d11/JclStackTraceViewerExpertDLL.dproj | 108 + .../d11/JclStackTraceViewerExpertDLL.rc | 32 + .../d11/JclStackTraceViewerExpertDLL.res | Bin 0 -> 940 bytes official/2.1.1/packages/d11/JclVcl.dpk | 62 + official/2.1.1/packages/d11/JclVcl.dproj | 104 + official/2.1.1/packages/d11/JclVcl.rc | 32 + official/2.1.1/packages/d11/JclVcl.res | Bin 0 -> 864 bytes .../packages/d11/JclVersionControlExpert.dpk | 55 + .../d11/JclVersionControlExpert.dproj | 97 + .../packages/d11/JclVersionControlExpert.rc | 32 + .../packages/d11/JclVersionControlExpert.res | Bin 0 -> 980 bytes .../d11/JclVersionControlExpertDLL.dpr | 49 + .../d11/JclVersionControlExpertDLL.dproj | 97 + .../d11/JclVersionControlExpertDLL.rc | 32 + .../d11/JclVersionControlExpertDLL.res | Bin 0 -> 992 bytes official/2.1.1/packages/d11/template.dpk | 60 + official/2.1.1/packages/d11/template.dpr | 62 + official/2.1.1/packages/d11/template.dproj | 95 + official/2.1.1/packages/d11/template.rc | 32 + official/2.1.1/packages/d12/Jcl.dpk | 135 + official/2.1.1/packages/d12/Jcl.dproj | 209 + official/2.1.1/packages/d12/Jcl.rc | 32 + official/2.1.1/packages/d12/Jcl.res | Bin 0 -> 852 bytes official/2.1.1/packages/d12/JclBaseExpert.dpk | 60 + .../2.1.1/packages/d12/JclBaseExpert.dproj | 134 + official/2.1.1/packages/d12/JclBaseExpert.rc | 32 + official/2.1.1/packages/d12/JclBaseExpert.res | Bin 0 -> 936 bytes official/2.1.1/packages/d12/JclContainers.dpk | 63 + .../2.1.1/packages/d12/JclContainers.dproj | 137 + official/2.1.1/packages/d12/JclContainers.rc | 32 + official/2.1.1/packages/d12/JclContainers.res | Bin 0 -> 908 bytes .../2.1.1/packages/d12/JclDebugExpert.dpk | 55 + .../2.1.1/packages/d12/JclDebugExpert.dproj | 129 + official/2.1.1/packages/d12/JclDebugExpert.rc | 32 + .../2.1.1/packages/d12/JclDebugExpert.res | Bin 0 -> 884 bytes .../2.1.1/packages/d12/JclDebugExpertDLL.dpr | 50 + .../packages/d12/JclDebugExpertDLL.dproj | 129 + .../2.1.1/packages/d12/JclDebugExpertDLL.rc | 32 + .../2.1.1/packages/d12/JclDebugExpertDLL.res | Bin 0 -> 896 bytes .../packages/d12/JclFavoriteFoldersExpert.dpk | 54 + .../d12/JclFavoriteFoldersExpert.dproj | 128 + .../packages/d12/JclFavoriteFoldersExpert.rc | 32 + .../packages/d12/JclFavoriteFoldersExpert.res | Bin 0 -> 980 bytes .../d12/JclFavoriteFoldersExpertDLL.dpr | 48 + .../d12/JclFavoriteFoldersExpertDLL.dproj | 128 + .../d12/JclFavoriteFoldersExpertDLL.rc | 32 + .../d12/JclFavoriteFoldersExpertDLL.res | Bin 0 -> 992 bytes .../packages/d12/JclProjectAnalysisExpert.dpk | 54 + .../d12/JclProjectAnalysisExpert.dproj | 128 + .../packages/d12/JclProjectAnalysisExpert.rc | 32 + .../packages/d12/JclProjectAnalysisExpert.res | Bin 0 -> 920 bytes .../d12/JclProjectAnalysisExpertDLL.dpr | 49 + .../d12/JclProjectAnalysisExpertDLL.dproj | 128 + .../d12/JclProjectAnalysisExpertDLL.rc | 32 + .../d12/JclProjectAnalysisExpertDLL.res | Bin 0 -> 932 bytes .../packages/d12/JclRepositoryExpert.dpk | 64 + .../packages/d12/JclRepositoryExpert.dproj | 138 + .../2.1.1/packages/d12/JclRepositoryExpert.rc | 32 + .../packages/d12/JclRepositoryExpert.res | Bin 0 -> 940 bytes .../packages/d12/JclRepositoryExpertDLL.dpr | 59 + .../packages/d12/JclRepositoryExpertDLL.dproj | 138 + .../packages/d12/JclRepositoryExpertDLL.rc | 32 + .../packages/d12/JclRepositoryExpertDLL.res | Bin 0 -> 952 bytes .../2.1.1/packages/d12/JclSIMDViewExpert.dpk | 57 + .../packages/d12/JclSIMDViewExpert.dproj | 131 + .../2.1.1/packages/d12/JclSIMDViewExpert.rc | 32 + .../2.1.1/packages/d12/JclSIMDViewExpert.res | Bin 0 -> 916 bytes .../packages/d12/JclSIMDViewExpertDLL.dpr | 52 + .../packages/d12/JclSIMDViewExpertDLL.dproj | 131 + .../packages/d12/JclSIMDViewExpertDLL.rc | 32 + .../packages/d12/JclSIMDViewExpertDLL.res | Bin 0 -> 928 bytes .../d12/JclStackTraceViewerExpert.dpk | 66 + .../d12/JclStackTraceViewerExpert.dproj | 140 + .../packages/d12/JclStackTraceViewerExpert.rc | 32 + .../d12/JclStackTraceViewerExpert.res | Bin 0 -> 928 bytes .../d12/JclStackTraceViewerExpertDLL.dpr | 61 + .../d12/JclStackTraceViewerExpertDLL.dproj | 140 + .../d12/JclStackTraceViewerExpertDLL.rc | 32 + .../d12/JclStackTraceViewerExpertDLL.res | Bin 0 -> 940 bytes official/2.1.1/packages/d12/JclVcl.dpk | 61 + official/2.1.1/packages/d12/JclVcl.dproj | 135 + official/2.1.1/packages/d12/JclVcl.rc | 32 + official/2.1.1/packages/d12/JclVcl.res | Bin 0 -> 864 bytes .../packages/d12/JclVersionControlExpert.dpk | 55 + .../d12/JclVersionControlExpert.dproj | 129 + .../packages/d12/JclVersionControlExpert.rc | 32 + .../packages/d12/JclVersionControlExpert.res | Bin 0 -> 980 bytes .../d12/JclVersionControlExpertDLL.dpr | 49 + .../d12/JclVersionControlExpertDLL.dproj | 129 + .../d12/JclVersionControlExpertDLL.rc | 32 + .../d12/JclVersionControlExpertDLL.res | Bin 0 -> 992 bytes official/2.1.1/packages/d12/template.dpk | 60 + official/2.1.1/packages/d12/template.dpr | 62 + official/2.1.1/packages/d12/template.dproj | 127 + official/2.1.1/packages/d12/template.rc | 32 + official/2.1.1/packages/d14/Jcl.dpk | 135 + official/2.1.1/packages/d14/Jcl.dproj | 211 + official/2.1.1/packages/d14/Jcl.rc | 32 + official/2.1.1/packages/d14/Jcl.res | Bin 0 -> 852 bytes official/2.1.1/packages/d14/JclBaseExpert.dpk | 60 + .../2.1.1/packages/d14/JclBaseExpert.dproj | 136 + official/2.1.1/packages/d14/JclBaseExpert.rc | 32 + official/2.1.1/packages/d14/JclBaseExpert.res | Bin 0 -> 936 bytes official/2.1.1/packages/d14/JclContainers.dpk | 63 + .../2.1.1/packages/d14/JclContainers.dproj | 139 + official/2.1.1/packages/d14/JclContainers.rc | 32 + official/2.1.1/packages/d14/JclContainers.res | Bin 0 -> 908 bytes .../2.1.1/packages/d14/JclDebugExpert.dpk | 55 + .../2.1.1/packages/d14/JclDebugExpert.dproj | 131 + official/2.1.1/packages/d14/JclDebugExpert.rc | 32 + .../2.1.1/packages/d14/JclDebugExpert.res | Bin 0 -> 884 bytes .../2.1.1/packages/d14/JclDebugExpertDLL.dpr | 50 + .../packages/d14/JclDebugExpertDLL.dproj | 131 + .../2.1.1/packages/d14/JclDebugExpertDLL.rc | 32 + .../2.1.1/packages/d14/JclDebugExpertDLL.res | Bin 0 -> 896 bytes .../packages/d14/JclFavoriteFoldersExpert.dpk | 54 + .../d14/JclFavoriteFoldersExpert.dproj | 130 + .../packages/d14/JclFavoriteFoldersExpert.rc | 32 + .../packages/d14/JclFavoriteFoldersExpert.res | Bin 0 -> 980 bytes .../d14/JclFavoriteFoldersExpertDLL.dpr | 48 + .../d14/JclFavoriteFoldersExpertDLL.dproj | 130 + .../d14/JclFavoriteFoldersExpertDLL.rc | 32 + .../d14/JclFavoriteFoldersExpertDLL.res | Bin 0 -> 992 bytes .../packages/d14/JclProjectAnalysisExpert.dpk | 54 + .../d14/JclProjectAnalysisExpert.dproj | 130 + .../packages/d14/JclProjectAnalysisExpert.rc | 32 + .../packages/d14/JclProjectAnalysisExpert.res | Bin 0 -> 920 bytes .../d14/JclProjectAnalysisExpertDLL.dpr | 49 + .../d14/JclProjectAnalysisExpertDLL.dproj | 130 + .../d14/JclProjectAnalysisExpertDLL.rc | 32 + .../d14/JclProjectAnalysisExpertDLL.res | Bin 0 -> 932 bytes .../packages/d14/JclRepositoryExpert.dpk | 64 + .../packages/d14/JclRepositoryExpert.dproj | 140 + .../2.1.1/packages/d14/JclRepositoryExpert.rc | 32 + .../packages/d14/JclRepositoryExpert.res | Bin 0 -> 940 bytes .../packages/d14/JclRepositoryExpertDLL.dpr | 59 + .../packages/d14/JclRepositoryExpertDLL.dproj | 140 + .../packages/d14/JclRepositoryExpertDLL.rc | 32 + .../packages/d14/JclRepositoryExpertDLL.res | Bin 0 -> 952 bytes .../2.1.1/packages/d14/JclSIMDViewExpert.dpk | 57 + .../packages/d14/JclSIMDViewExpert.dproj | 133 + .../2.1.1/packages/d14/JclSIMDViewExpert.rc | 32 + .../2.1.1/packages/d14/JclSIMDViewExpert.res | Bin 0 -> 916 bytes .../packages/d14/JclSIMDViewExpertDLL.dpr | 52 + .../packages/d14/JclSIMDViewExpertDLL.dproj | 133 + .../packages/d14/JclSIMDViewExpertDLL.rc | 32 + .../packages/d14/JclSIMDViewExpertDLL.res | Bin 0 -> 928 bytes .../d14/JclStackTraceViewerExpert.dpk | 66 + .../d14/JclStackTraceViewerExpert.dproj | 142 + .../packages/d14/JclStackTraceViewerExpert.rc | 32 + .../d14/JclStackTraceViewerExpert.res | Bin 0 -> 928 bytes .../d14/JclStackTraceViewerExpertDLL.dpr | 61 + .../d14/JclStackTraceViewerExpertDLL.dproj | 142 + .../d14/JclStackTraceViewerExpertDLL.rc | 32 + .../d14/JclStackTraceViewerExpertDLL.res | Bin 0 -> 940 bytes official/2.1.1/packages/d14/JclVcl.dpk | 61 + official/2.1.1/packages/d14/JclVcl.dproj | 137 + official/2.1.1/packages/d14/JclVcl.rc | 32 + official/2.1.1/packages/d14/JclVcl.res | Bin 0 -> 864 bytes .../packages/d14/JclVersionControlExpert.dpk | 55 + .../d14/JclVersionControlExpert.dproj | 131 + .../packages/d14/JclVersionControlExpert.rc | 32 + .../packages/d14/JclVersionControlExpert.res | Bin 0 -> 980 bytes .../d14/JclVersionControlExpertDLL.dpr | 49 + .../d14/JclVersionControlExpertDLL.dproj | 131 + .../d14/JclVersionControlExpertDLL.rc | 32 + .../d14/JclVersionControlExpertDLL.res | Bin 0 -> 992 bytes official/2.1.1/packages/d14/template.dpk | 60 + official/2.1.1/packages/d14/template.dpr | 62 + official/2.1.1/packages/d14/template.dproj | 129 + official/2.1.1/packages/d14/template.rc | 32 + official/2.1.1/packages/d6/Jcl.dof | 5 + official/2.1.1/packages/d6/Jcl.dpk | 134 + official/2.1.1/packages/d6/Jcl.rc | 32 + official/2.1.1/packages/d6/Jcl.res | Bin 0 -> 852 bytes official/2.1.1/packages/d6/JclBaseExpert.dof | 5 + official/2.1.1/packages/d6/JclBaseExpert.dpk | 59 + official/2.1.1/packages/d6/JclBaseExpert.rc | 32 + official/2.1.1/packages/d6/JclBaseExpert.res | Bin 0 -> 936 bytes official/2.1.1/packages/d6/JclContainers.dof | 5 + official/2.1.1/packages/d6/JclContainers.dpk | 62 + official/2.1.1/packages/d6/JclContainers.rc | 32 + official/2.1.1/packages/d6/JclContainers.res | Bin 0 -> 908 bytes official/2.1.1/packages/d6/JclDebugExpert.dof | 5 + official/2.1.1/packages/d6/JclDebugExpert.dpk | 54 + official/2.1.1/packages/d6/JclDebugExpert.rc | 32 + official/2.1.1/packages/d6/JclDebugExpert.res | Bin 0 -> 884 bytes .../2.1.1/packages/d6/JclDebugExpertDLL.RES | Bin 0 -> 896 bytes .../2.1.1/packages/d6/JclDebugExpertDLL.dof | 9 + .../2.1.1/packages/d6/JclDebugExpertDLL.dpr | 49 + .../2.1.1/packages/d6/JclDebugExpertDLL.rc | 32 + .../packages/d6/JclFavoriteFoldersExpert.dof | 5 + .../packages/d6/JclFavoriteFoldersExpert.dpk | 53 + .../packages/d6/JclFavoriteFoldersExpert.rc | 32 + .../packages/d6/JclFavoriteFoldersExpert.res | Bin 0 -> 980 bytes .../d6/JclFavoriteFoldersExpertDLL.RES | Bin 0 -> 992 bytes .../d6/JclFavoriteFoldersExpertDLL.dof | 9 + .../d6/JclFavoriteFoldersExpertDLL.dpr | 47 + .../d6/JclFavoriteFoldersExpertDLL.rc | 32 + .../packages/d6/JclProjectAnalysisExpert.RES | Bin 0 -> 920 bytes .../packages/d6/JclProjectAnalysisExpert.dof | 5 + .../packages/d6/JclProjectAnalysisExpert.dpk | 53 + .../packages/d6/JclProjectAnalysisExpert.rc | 32 + .../d6/JclProjectAnalysisExpertDLL.RES | Bin 0 -> 932 bytes .../d6/JclProjectAnalysisExpertDLL.dof | 9 + .../d6/JclProjectAnalysisExpertDLL.dpr | 48 + .../d6/JclProjectAnalysisExpertDLL.rc | 32 + .../2.1.1/packages/d6/JclRepositoryExpert.dof | 5 + .../2.1.1/packages/d6/JclRepositoryExpert.dpk | 63 + .../2.1.1/packages/d6/JclRepositoryExpert.rc | 32 + .../2.1.1/packages/d6/JclRepositoryExpert.res | Bin 0 -> 940 bytes .../packages/d6/JclRepositoryExpertDLL.dof | 9 + .../packages/d6/JclRepositoryExpertDLL.dpr | 58 + .../packages/d6/JclRepositoryExpertDLL.rc | 32 + .../packages/d6/JclRepositoryExpertDLL.res | Bin 0 -> 952 bytes .../2.1.1/packages/d6/JclSIMDViewExpert.dof | 5 + .../2.1.1/packages/d6/JclSIMDViewExpert.dpk | 56 + .../2.1.1/packages/d6/JclSIMDViewExpert.rc | 32 + .../2.1.1/packages/d6/JclSIMDViewExpert.res | Bin 0 -> 916 bytes .../packages/d6/JclSIMDViewExpertDLL.RES | Bin 0 -> 928 bytes .../packages/d6/JclSIMDViewExpertDLL.dof | 9 + .../packages/d6/JclSIMDViewExpertDLL.dpr | 51 + .../2.1.1/packages/d6/JclSIMDViewExpertDLL.rc | 32 + .../packages/d6/JclStackTraceViewerExpert.dof | 5 + .../packages/d6/JclStackTraceViewerExpert.dpk | 65 + .../packages/d6/JclStackTraceViewerExpert.rc | 32 + .../packages/d6/JclStackTraceViewerExpert.res | Bin 0 -> 928 bytes .../d6/JclStackTraceViewerExpertDLL.dof | 9 + .../d6/JclStackTraceViewerExpertDLL.dpr | 60 + .../d6/JclStackTraceViewerExpertDLL.rc | 32 + .../d6/JclStackTraceViewerExpertDLL.res | Bin 0 -> 940 bytes .../2.1.1/packages/d6/JclThreadNameExpert.dof | 5 + .../2.1.1/packages/d6/JclThreadNameExpert.dpk | 53 + .../2.1.1/packages/d6/JclThreadNameExpert.rc | 32 + .../2.1.1/packages/d6/JclThreadNameExpert.res | Bin 0 -> 912 bytes .../packages/d6/JclThreadNameExpertDLL.RES | Bin 0 -> 924 bytes .../packages/d6/JclThreadNameExpertDLL.dof | 9 + .../packages/d6/JclThreadNameExpertDLL.dpr | 48 + .../packages/d6/JclThreadNameExpertDLL.rc | 32 + official/2.1.1/packages/d6/JclUsesExpert.dof | 5 + official/2.1.1/packages/d6/JclUsesExpert.dpk | 55 + official/2.1.1/packages/d6/JclUsesExpert.rc | 32 + official/2.1.1/packages/d6/JclUsesExpert.res | Bin 0 -> 864 bytes .../2.1.1/packages/d6/JclUsesExpertDLL.RES | Bin 0 -> 876 bytes .../2.1.1/packages/d6/JclUsesExpertDLL.dof | 9 + .../2.1.1/packages/d6/JclUsesExpertDLL.dpr | 50 + .../2.1.1/packages/d6/JclUsesExpertDLL.rc | 32 + official/2.1.1/packages/d6/JclVcl.dof | 5 + official/2.1.1/packages/d6/JclVcl.dpk | 60 + official/2.1.1/packages/d6/JclVcl.rc | 32 + official/2.1.1/packages/d6/JclVcl.res | Bin 0 -> 864 bytes .../packages/d6/JclVersionControlExpert.dof | 5 + .../packages/d6/JclVersionControlExpert.dpk | 54 + .../packages/d6/JclVersionControlExpert.rc | 32 + .../packages/d6/JclVersionControlExpert.res | Bin 0 -> 980 bytes .../d6/JclVersionControlExpertDLL.dof | 9 + .../d6/JclVersionControlExpertDLL.dpr | 48 + .../packages/d6/JclVersionControlExpertDLL.rc | 32 + .../d6/JclVersionControlExpertDLL.res | Bin 0 -> 992 bytes official/2.1.1/packages/d6/dirinfo.txt | 1 + official/2.1.1/packages/d6/template.dof | 11 + official/2.1.1/packages/d6/template.dpk | 60 + official/2.1.1/packages/d6/template.dpr | 62 + official/2.1.1/packages/d6/template.rc | 32 + official/2.1.1/packages/d7/Jcl.dof | 5 + official/2.1.1/packages/d7/Jcl.dpk | 134 + official/2.1.1/packages/d7/Jcl.rc | 32 + official/2.1.1/packages/d7/Jcl.res | Bin 0 -> 848 bytes official/2.1.1/packages/d7/JclBaseExpert.dof | 5 + official/2.1.1/packages/d7/JclBaseExpert.dpk | 59 + official/2.1.1/packages/d7/JclBaseExpert.rc | 32 + official/2.1.1/packages/d7/JclBaseExpert.res | Bin 0 -> 932 bytes official/2.1.1/packages/d7/JclContainers.dof | 5 + official/2.1.1/packages/d7/JclContainers.dpk | 62 + official/2.1.1/packages/d7/JclContainers.rc | 32 + official/2.1.1/packages/d7/JclContainers.res | Bin 0 -> 904 bytes official/2.1.1/packages/d7/JclDebugExpert.dof | 5 + official/2.1.1/packages/d7/JclDebugExpert.dpk | 54 + official/2.1.1/packages/d7/JclDebugExpert.rc | 32 + official/2.1.1/packages/d7/JclDebugExpert.res | Bin 0 -> 884 bytes .../2.1.1/packages/d7/JclDebugExpertDLL.RES | Bin 0 -> 892 bytes .../2.1.1/packages/d7/JclDebugExpertDLL.dof | 9 + .../2.1.1/packages/d7/JclDebugExpertDLL.dpr | 49 + .../2.1.1/packages/d7/JclDebugExpertDLL.rc | 32 + .../packages/d7/JclFavoriteFoldersExpert.dof | 5 + .../packages/d7/JclFavoriteFoldersExpert.dpk | 53 + .../packages/d7/JclFavoriteFoldersExpert.rc | 32 + .../packages/d7/JclFavoriteFoldersExpert.res | Bin 0 -> 980 bytes .../d7/JclFavoriteFoldersExpertDLL.RES | Bin 0 -> 988 bytes .../d7/JclFavoriteFoldersExpertDLL.dof | 9 + .../d7/JclFavoriteFoldersExpertDLL.dpr | 47 + .../d7/JclFavoriteFoldersExpertDLL.rc | 32 + .../packages/d7/JclProjectAnalysisExpert.RES | Bin 0 -> 920 bytes .../packages/d7/JclProjectAnalysisExpert.dof | 5 + .../packages/d7/JclProjectAnalysisExpert.dpk | 53 + .../packages/d7/JclProjectAnalysisExpert.rc | 32 + .../d7/JclProjectAnalysisExpertDLL.RES | Bin 0 -> 928 bytes .../d7/JclProjectAnalysisExpertDLL.dof | 9 + .../d7/JclProjectAnalysisExpertDLL.dpr | 48 + .../d7/JclProjectAnalysisExpertDLL.rc | 32 + .../2.1.1/packages/d7/JclRepositoryExpert.dof | 5 + .../2.1.1/packages/d7/JclRepositoryExpert.dpk | 63 + .../2.1.1/packages/d7/JclRepositoryExpert.rc | 32 + .../2.1.1/packages/d7/JclRepositoryExpert.res | Bin 0 -> 936 bytes .../packages/d7/JclRepositoryExpertDLL.dof | 9 + .../packages/d7/JclRepositoryExpertDLL.dpr | 58 + .../packages/d7/JclRepositoryExpertDLL.rc | 32 + .../packages/d7/JclRepositoryExpertDLL.res | Bin 0 -> 952 bytes .../2.1.1/packages/d7/JclSIMDViewExpert.dof | 5 + .../2.1.1/packages/d7/JclSIMDViewExpert.dpk | 56 + .../2.1.1/packages/d7/JclSIMDViewExpert.rc | 32 + .../2.1.1/packages/d7/JclSIMDViewExpert.res | Bin 0 -> 912 bytes .../packages/d7/JclSIMDViewExpertDLL.RES | Bin 0 -> 928 bytes .../packages/d7/JclSIMDViewExpertDLL.dof | 9 + .../packages/d7/JclSIMDViewExpertDLL.dpr | 51 + .../2.1.1/packages/d7/JclSIMDViewExpertDLL.rc | 32 + .../packages/d7/JclStackTraceViewerExpert.dof | 5 + .../packages/d7/JclStackTraceViewerExpert.dpk | 65 + .../packages/d7/JclStackTraceViewerExpert.rc | 32 + .../packages/d7/JclStackTraceViewerExpert.res | Bin 0 -> 924 bytes .../d7/JclStackTraceViewerExpertDLL.dof | 9 + .../d7/JclStackTraceViewerExpertDLL.dpr | 60 + .../d7/JclStackTraceViewerExpertDLL.rc | 32 + .../d7/JclStackTraceViewerExpertDLL.res | Bin 0 -> 940 bytes official/2.1.1/packages/d7/JclUsesExpert.dof | 5 + official/2.1.1/packages/d7/JclUsesExpert.dpk | 55 + official/2.1.1/packages/d7/JclUsesExpert.rc | 32 + official/2.1.1/packages/d7/JclUsesExpert.res | Bin 0 -> 860 bytes .../2.1.1/packages/d7/JclUsesExpertDLL.RES | Bin 0 -> 876 bytes .../2.1.1/packages/d7/JclUsesExpertDLL.dof | 9 + .../2.1.1/packages/d7/JclUsesExpertDLL.dpr | 50 + .../2.1.1/packages/d7/JclUsesExpertDLL.rc | 32 + official/2.1.1/packages/d7/JclVcl.dof | 5 + official/2.1.1/packages/d7/JclVcl.dpk | 60 + official/2.1.1/packages/d7/JclVcl.rc | 32 + official/2.1.1/packages/d7/JclVcl.res | Bin 0 -> 864 bytes .../packages/d7/JclVersionControlExpert.dof | 5 + .../packages/d7/JclVersionControlExpert.dpk | 54 + .../packages/d7/JclVersionControlExpert.rc | 32 + .../packages/d7/JclVersionControlExpert.res | Bin 0 -> 976 bytes .../d7/JclVersionControlExpertDLL.dof | 9 + .../d7/JclVersionControlExpertDLL.dpr | 48 + .../packages/d7/JclVersionControlExpertDLL.rc | 32 + .../d7/JclVersionControlExpertDLL.res | Bin 0 -> 992 bytes official/2.1.1/packages/d7/dirinfo.txt | 1 + official/2.1.1/packages/d7/template.dof | 11 + official/2.1.1/packages/d7/template.dpk | 60 + official/2.1.1/packages/d7/template.dpr | 62 + official/2.1.1/packages/d7/template.rc | 32 + official/2.1.1/packages/d8/Jcl.RES | Bin 0 -> 848 bytes official/2.1.1/packages/d8/Jcl.bdsproj | 174 + official/2.1.1/packages/d8/Jcl.dpk | 95 + official/2.1.1/packages/d8/Jcl.rc | 32 + official/2.1.1/packages/d8/JclBaseExpert.RES | Bin 0 -> 932 bytes .../2.1.1/packages/d8/JclBaseExpert.bdsproj | 174 + official/2.1.1/packages/d8/JclBaseExpert.dpk | 59 + official/2.1.1/packages/d8/JclBaseExpert.rc | 32 + .../2.1.1/packages/d8/JclContainers.bdsproj | 174 + official/2.1.1/packages/d8/JclContainers.dpk | 62 + official/2.1.1/packages/d8/JclContainers.rc | 32 + official/2.1.1/packages/d8/JclContainers.res | Bin 0 -> 904 bytes .../d8/JclFavoriteFoldersExpertDLL.RES | Bin 0 -> 988 bytes .../d8/JclFavoriteFoldersExpertDLL.bdsproj | 174 + .../d8/JclFavoriteFoldersExpertDLL.dpr | 47 + .../d8/JclFavoriteFoldersExpertDLL.rc | 32 + .../d8/JclVersionControlExpertDLL.bdsproj | 174 + .../d8/JclVersionControlExpertDLL.dpr | 48 + .../packages/d8/JclVersionControlExpertDLL.rc | 32 + .../d8/JclVersionControlExpertDLL.res | Bin 0 -> 992 bytes official/2.1.1/packages/d8/template.bdsproj | 174 + official/2.1.1/packages/d8/template.dpk | 60 + official/2.1.1/packages/d8/template.dpr | 64 + official/2.1.1/packages/d8/template.rc | 32 + official/2.1.1/packages/d9/Jcl.RES | Bin 0 -> 848 bytes official/2.1.1/packages/d9/Jcl.bdsproj | 174 + official/2.1.1/packages/d9/Jcl.dpk | 134 + official/2.1.1/packages/d9/Jcl.rc | 32 + .../2.1.1/packages/d9/JclBaseExpert.bdsproj | 174 + official/2.1.1/packages/d9/JclBaseExpert.dpk | 59 + official/2.1.1/packages/d9/JclBaseExpert.rc | 32 + official/2.1.1/packages/d9/JclBaseExpert.res | Bin 0 -> 932 bytes .../2.1.1/packages/d9/JclContainers.bdsproj | 174 + official/2.1.1/packages/d9/JclContainers.dpk | 62 + official/2.1.1/packages/d9/JclContainers.rc | 32 + official/2.1.1/packages/d9/JclContainers.res | Bin 0 -> 904 bytes official/2.1.1/packages/d9/JclDebugExpert.RES | Bin 0 -> 884 bytes .../2.1.1/packages/d9/JclDebugExpert.bdsproj | 174 + official/2.1.1/packages/d9/JclDebugExpert.dpk | 54 + official/2.1.1/packages/d9/JclDebugExpert.rc | 32 + .../2.1.1/packages/d9/JclDebugExpertDLL.RES | Bin 0 -> 892 bytes .../packages/d9/JclDebugExpertDLL.bdsproj | 174 + .../2.1.1/packages/d9/JclDebugExpertDLL.dpr | 49 + .../2.1.1/packages/d9/JclDebugExpertDLL.rc | 32 + .../2.1.1/packages/d9/JclExperts.bdsgroup | 22 + .../d9/JclFavoriteFoldersExpert.bdsproj | 174 + .../packages/d9/JclFavoriteFoldersExpert.dpk | 53 + .../packages/d9/JclFavoriteFoldersExpert.rc | 32 + .../packages/d9/JclFavoriteFoldersExpert.res | Bin 0 -> 980 bytes .../d9/JclFavoriteFoldersExpertDLL.RES | Bin 0 -> 988 bytes .../d9/JclFavoriteFoldersExpertDLL.bdsproj | 174 + .../d9/JclFavoriteFoldersExpertDLL.dpr | 47 + .../d9/JclFavoriteFoldersExpertDLL.rc | 32 + .../packages/d9/JclProjectAnalysisExpert.RES | Bin 0 -> 920 bytes .../d9/JclProjectAnalysisExpert.bdsproj | 174 + .../packages/d9/JclProjectAnalysisExpert.dpk | 53 + .../packages/d9/JclProjectAnalysisExpert.rc | 32 + .../d9/JclProjectAnalysisExpertDLL.RES | Bin 0 -> 928 bytes .../d9/JclProjectAnalysisExpertDLL.bdsproj | 174 + .../d9/JclProjectAnalysisExpertDLL.dpr | 48 + .../d9/JclProjectAnalysisExpertDLL.rc | 32 + .../packages/d9/JclRepositoryExpert.bdsproj | 174 + .../2.1.1/packages/d9/JclRepositoryExpert.dpk | 63 + .../2.1.1/packages/d9/JclRepositoryExpert.rc | 32 + .../2.1.1/packages/d9/JclRepositoryExpert.res | Bin 0 -> 936 bytes .../d9/JclRepositoryExpertDLL.bdsproj | 174 + .../packages/d9/JclRepositoryExpertDLL.dpr | 58 + .../packages/d9/JclRepositoryExpertDLL.rc | 32 + .../packages/d9/JclRepositoryExpertDLL.res | Bin 0 -> 952 bytes .../packages/d9/JclSIMDViewExpert.bdsproj | 174 + .../2.1.1/packages/d9/JclSIMDViewExpert.dpk | 56 + .../2.1.1/packages/d9/JclSIMDViewExpert.rc | 32 + .../packages/d9/JclSIMDViewExpertDLL.RES | Bin 0 -> 928 bytes .../packages/d9/JclSIMDViewExpertDLL.bdsproj | 174 + .../packages/d9/JclSIMDViewExpertDLL.dpr | 51 + .../2.1.1/packages/d9/JclSIMDViewExpertDLL.rc | 32 + .../2.1.1/packages/d9/JclSimdViewExpert.RES | Bin 0 -> 912 bytes .../d9/JclStackTraceViewerExpert.bdsproj | 174 + .../packages/d9/JclStackTraceViewerExpert.dpk | 65 + .../packages/d9/JclStackTraceViewerExpert.rc | 32 + .../packages/d9/JclStackTraceViewerExpert.res | Bin 0 -> 924 bytes .../d9/JclStackTraceViewerExpertDLL.bdsproj | 174 + .../d9/JclStackTraceViewerExpertDLL.dpr | 60 + .../d9/JclStackTraceViewerExpertDLL.rc | 32 + .../d9/JclStackTraceViewerExpertDLL.res | Bin 0 -> 940 bytes official/2.1.1/packages/d9/JclVcl.RES | Bin 0 -> 864 bytes official/2.1.1/packages/d9/JclVcl.bdsproj | 174 + official/2.1.1/packages/d9/JclVcl.dpk | 60 + official/2.1.1/packages/d9/JclVcl.rc | 32 + .../d9/JclVersionControlExpert.bdsproj | 174 + .../packages/d9/JclVersionControlExpert.dpk | 54 + .../packages/d9/JclVersionControlExpert.rc | 32 + .../packages/d9/JclVersionControlExpert.res | Bin 0 -> 976 bytes .../d9/JclVersionControlExpertDLL.bdsproj | 174 + .../d9/JclVersionControlExpertDLL.dpr | 48 + .../packages/d9/JclVersionControlExpertDLL.rc | 32 + .../d9/JclVersionControlExpertDLL.res | Bin 0 -> 992 bytes official/2.1.1/packages/d9/template.bdsproj | 174 + official/2.1.1/packages/d9/template.dpk | 60 + official/2.1.1/packages/d9/template.dpr | 62 + official/2.1.1/packages/d9/template.rc | 32 + official/2.1.1/packages/dirinfo.txt | 12 + official/2.1.1/packages/fpc/Jcl.lpk | 400 + official/2.1.1/packages/fpc/Jcl.pas | 104 + official/2.1.1/packages/fpc/JclContainers.lpk | 119 + official/2.1.1/packages/fpc/JclContainers.pas | 33 + official/2.1.1/packages/fpc/template.lpk | 68 + official/2.1.1/packages/fpc/template.pas | 22 + official/2.1.1/packages/resources.mak | 187 + official/2.1.1/packages/xml/Jcl-R.xml | 104 + .../2.1.1/packages/xml/JclBaseExpert-D.xml | 28 + .../2.1.1/packages/xml/JclContainers-R.xml | 36 + .../2.1.1/packages/xml/JclDebugExpert-D.xml | 23 + .../packages/xml/JclDebugExpertDLL-L.xml | 23 + .../xml/JclFavoriteFoldersExpert-D.xml | 22 + .../xml/JclFavoriteFoldersExpertDLL-L.xml | 22 + .../xml/JclProjectAnalysisExpert-D.xml | 22 + .../xml/JclProjectAnalysisExpertDLL-L.xml | 22 + .../packages/xml/JclRepositoryExpert-D.xml | 32 + .../packages/xml/JclRepositoryExpertDLL-L.xml | 32 + .../packages/xml/JclSIMDViewExpert-D.xml | 25 + .../packages/xml/JclSIMDViewExpertDLL-L.xml | 25 + .../xml/JclStackTraceViewerExpert-D.xml | 36 + .../xml/JclStackTraceViewerExpertDLL-L.xml | 36 + .../packages/xml/JclThreadNameExpert-D.xml | 22 + .../packages/xml/JclThreadNameExpertDLL-L.xml | 22 + .../2.1.1/packages/xml/JclUsesExpert-D.xml | 24 + .../2.1.1/packages/xml/JclUsesExpertDLL-L.xml | 24 + official/2.1.1/packages/xml/JclVcl-R.xml | 30 + .../xml/JclVersionControlExpert-D.xml | 23 + .../xml/JclVersionControlExpertDLL-L.xml | 23 + official/2.1.1/source/common/Jcl8087.pas | 304 + .../source/common/JclAbstractContainers.pas | 2876 ++ .../2.1.1/source/common/JclAlgorithms.pas | 2894 ++ .../2.1.1/source/common/JclAnsiStrings.pas | 3683 ++ .../2.1.1/source/common/JclArrayLists.pas | 11966 ++++++ official/2.1.1/source/common/JclArraySets.pas | 2344 ++ official/2.1.1/source/common/JclBase.pas | 969 + .../2.1.1/source/common/JclBinaryTrees.pas | 21281 ++++++++++ .../2.1.1/source/common/JclBorlandTools.pas | 5614 +++ official/2.1.1/source/common/JclCharsets.pas | 585 + official/2.1.1/source/common/JclComplex.pas | 1572 + .../2.1.1/source/common/JclCompression.pas | 8808 +++++ .../2.1.1/source/common/JclContainerIntf.pas | 4527 +++ official/2.1.1/source/common/JclCounter.pas | 241 + official/2.1.1/source/common/JclDateTime.pas | 1442 + official/2.1.1/source/common/JclEDI.pas | 1690 + official/2.1.1/source/common/JclEDISEF.pas | 4745 +++ .../2.1.1/source/common/JclEDITranslators.pas | 432 + official/2.1.1/source/common/JclEDIXML.pas | 2747 ++ .../2.1.1/source/common/JclEDI_ANSIX12.pas | 3042 ++ .../source/common/JclEDI_ANSIX12_Ext.pas | 294 + .../2.1.1/source/common/JclEDI_UNEDIFACT.pas | 2350 ++ .../source/common/JclEDI_UNEDIFACT_Ext.pas | 299 + official/2.1.1/source/common/JclExprEval.pas | 4592 +++ official/2.1.1/source/common/JclFileUtils.pas | 6841 ++++ official/2.1.1/source/common/JclHashMaps.pas | 28444 ++++++++++++++ official/2.1.1/source/common/JclHashSets.pas | 5895 +++ official/2.1.1/source/common/JclIniFiles.pas | 187 + .../2.1.1/source/common/JclLinkedLists.pas | 17624 +++++++++ official/2.1.1/source/common/JclLogic.pas | 2336 ++ official/2.1.1/source/common/JclMIDI.pas | 822 + official/2.1.1/source/common/JclMath.pas | 4664 +++ official/2.1.1/source/common/JclMime.pas | 933 + official/2.1.1/source/common/JclNotify.pas | 190 + official/2.1.1/source/common/JclPCRE.pas | 752 + official/2.1.1/source/common/JclQueues.pas | 4269 ++ official/2.1.1/source/common/JclRTTI.pas | 2500 ++ official/2.1.1/source/common/JclResources.pas | 2236 ++ official/2.1.1/source/common/JclSchedule.pas | 1306 + official/2.1.1/source/common/JclSimpleXml.pas | 3956 ++ .../2.1.1/source/common/JclSortedMaps.pas | 30418 +++++++++++++++ official/2.1.1/source/common/JclStacks.pas | 2975 ++ .../2.1.1/source/common/JclStatistics.pas | 507 + .../2.1.1/source/common/JclStrHashMap.pas | 813 + official/2.1.1/source/common/JclStreams.pas | 2835 ++ .../source/common/JclStringConversions.pas | 2634 ++ .../2.1.1/source/common/JclStringLists.pas | 1364 + official/2.1.1/source/common/JclStrings.pas | 5062 +++ official/2.1.1/source/common/JclSynch.pas | 1735 + official/2.1.1/source/common/JclSysInfo.pas | 5555 +++ official/2.1.1/source/common/JclSysUtils.pas | 3462 ++ official/2.1.1/source/common/JclTrees.pas | 20227 ++++++++++ official/2.1.1/source/common/JclUnicode.pas | 6876 ++++ official/2.1.1/source/common/JclUnicode.rc | 4672 +++ official/2.1.1/source/common/JclUnicode.res | Bin 0 -> 148608 bytes .../2.1.1/source/common/JclUnicodeBZip2.res | Bin 0 -> 40404 bytes .../2.1.1/source/common/JclUnicodeBzip2.rc | 1292 + .../2.1.1/source/common/JclUnicodeZLib.rc | 1266 + .../2.1.1/source/common/JclUnicodeZLib.res | Bin 0 -> 39584 bytes official/2.1.1/source/common/JclUnitConv.pas | 1003 + .../2.1.1/source/common/JclUnitVersioning.pas | 690 + .../common/JclUnitVersioningProviders.pas | 413 + .../2.1.1/source/common/JclValidation.pas | 193 + official/2.1.1/source/common/JclVectors.pas | 11897 ++++++ .../2.1.1/source/common/JclWideStrings.pas | 2346 ++ official/2.1.1/source/common/bzip2.pas | 505 + official/2.1.1/source/common/dirinfo.txt | 1 + official/2.1.1/source/common/pcre.pas | 1127 + official/2.1.1/source/common/zlibh.pas | 2361 ++ .../2.1.1/source/include/crossplatform.inc | 35 + official/2.1.1/source/include/jcl.inc | 364 + .../2.1.1/source/include/jcl.template.inc | 131 + official/2.1.1/source/include/jcld11.inc | 131 + official/2.1.1/source/include/jedi.inc | 1257 + official/2.1.1/source/include/kylix.inc | 30 + official/2.1.1/source/include/unixonly.inc | 51 + official/2.1.1/source/include/windowsonly.inc | 54 + .../2.1.1/source/prototypes/Hardlinks.pas | 885 + .../2.1.1/source/prototypes/JclAlgorithms.pas | 902 + .../2.1.1/source/prototypes/JclArrayLists.pas | 472 + .../2.1.1/source/prototypes/JclArraySets.pas | 392 + .../source/prototypes/JclBinaryTrees.pas | 479 + .../source/prototypes/JclContainerIntf.pas | 1707 + .../2.1.1/source/prototypes/JclGraphUtils.pas | 3 + .../2.1.1/source/prototypes/JclGraphics.pas | 4 + .../2.1.1/source/prototypes/JclHashMaps.pas | 2789 ++ .../2.1.1/source/prototypes/JclHashSets.pas | 681 + .../source/prototypes/JclLinkedLists.pas | 473 + .../2.1.1/source/prototypes/JclQueues.pas | 392 + .../2.1.1/source/prototypes/JclSortedMaps.pas | 2784 ++ .../2.1.1/source/prototypes/JclStacks.pas | 360 + official/2.1.1/source/prototypes/JclTrees.pas | 464 + .../2.1.1/source/prototypes/JclVectors.pas | 455 + official/2.1.1/source/prototypes/JclWin32.pas | 303 + official/2.1.1/source/prototypes/Makefile.mak | 125 + .../2.1.1/source/prototypes/_GraphUtils.pas | 2513 ++ .../2.1.1/source/prototypes/_Graphics.pas | 5748 +++ .../prototypes/containers/JclAlgorithms.imp | 168 + .../prototypes/containers/JclAlgorithms.int | 29 + .../prototypes/containers/JclArrayLists.imp | 599 + .../prototypes/containers/JclArrayLists.int | 81 + .../prototypes/containers/JclArraySets.imp | 96 + .../prototypes/containers/JclArraySets.int | 20 + .../prototypes/containers/JclBinaryTrees.imp | 1194 + .../prototypes/containers/JclBinaryTrees.int | 133 + .../containers/JclContainerCommon.imp | 44 + .../containers/JclContainerIntf.int | 219 + .../prototypes/containers/JclHashMaps.imp | 404 + .../prototypes/containers/JclHashMaps.int | 47 + .../prototypes/containers/JclHashSets.imp | 290 + .../prototypes/containers/JclHashSets.int | 58 + .../prototypes/containers/JclLinkedLists.imp | 968 + .../prototypes/containers/JclLinkedLists.int | 84 + .../prototypes/containers/JclQueues.imp | 187 + .../prototypes/containers/JclQueues.int | 26 + .../prototypes/containers/JclSortedMaps.imp | 407 + .../prototypes/containers/JclSortedMaps.int | 45 + .../prototypes/containers/JclStacks.imp | 122 + .../prototypes/containers/JclStacks.int | 23 + .../source/prototypes/containers/JclTrees.imp | 1058 + .../source/prototypes/containers/JclTrees.int | 132 + .../prototypes/containers/JclVectors.imp | 594 + .../prototypes/containers/JclVectors.int | 83 + .../supplement/create_JCL_Hardlinks.pas.cmd | 13 + .../create_nonJCL_Hardlinks.pas.cmd | 4 + .../source/prototypes/supplement/simple_pp.pl | 60 + .../source/prototypes/win32api/AclApi.imp | 22 + .../source/prototypes/win32api/AclApi.int | 10 + .../source/prototypes/win32api/DelayImp.int | 47 + .../source/prototypes/win32api/ImageHlp.imp | 149 + .../source/prototypes/win32api/ImageHlp.int | 296 + .../source/prototypes/win32api/ImgGuids.int | 9 + .../source/prototypes/win32api/LmAccess.imp | 378 + .../source/prototypes/win32api/LmAccess.int | 470 + .../source/prototypes/win32api/LmApiBuf.imp | 15 + .../source/prototypes/win32api/LmApiBuf.int | 4 + .../source/prototypes/win32api/LmCons.int | 278 + .../source/prototypes/win32api/LmErr.int | 891 + .../source/prototypes/win32api/MsiDefs.int | 12 + .../2.1.1/source/prototypes/win32api/Nb30.imp | 14 + .../2.1.1/source/prototypes/win32api/Nb30.int | 436 + .../source/prototypes/win32api/NtSecApi.imp | 77 + .../source/prototypes/win32api/NtSecApi.int | 172 + .../source/prototypes/win32api/ObjBase.imp | 38 + .../source/prototypes/win32api/ObjBase.int | 44 + .../source/prototypes/win32api/PropIdl.int | 135 + .../source/prototypes/win32api/RasDlg.int | 18 + .../source/prototypes/win32api/Reason.int | 125 + .../source/prototypes/win32api/ShlGuid.int | 192 + .../source/prototypes/win32api/ShlObj.int | 46 + .../source/prototypes/win32api/ShlWApi.int | 22 + .../source/prototypes/win32api/TlHelp32.imp | 39 + .../source/prototypes/win32api/TlHelp32.int | 71 + .../source/prototypes/win32api/WinBase.imp | 285 + .../source/prototypes/win32api/WinBase.int | 158 + .../source/prototypes/win32api/WinDef.int | 11 + .../source/prototypes/win32api/WinError.int | 228 + .../source/prototypes/win32api/WinIoctl.int | 601 + .../source/prototypes/win32api/WinNLS.imp | 45 + .../source/prototypes/win32api/WinNLS.int | 137 + .../source/prototypes/win32api/WinNT.imp | 101 + .../source/prototypes/win32api/WinNT.int | 2793 ++ .../source/prototypes/win32api/WinUser.imp | 24 + .../source/prototypes/win32api/WinUser.int | 103 + .../source/prototypes/win32api/Winternl.imp | 19 + .../source/prototypes/win32api/Winternl.int | 84 + .../source/prototypes/win32api/dirinfo.txt | 12 + .../source/prototypes/win32api/powrprof.imp | 50 + .../source/prototypes/win32api/powrprof.int | 4 + official/2.1.1/source/unix/dirinfo.txt | 1 + official/2.1.1/source/vcl/JclFont.pas | 120 + official/2.1.1/source/vcl/JclGraphUtils.pas | 2479 ++ official/2.1.1/source/vcl/JclGraphics.pas | 5721 +++ official/2.1.1/source/vcl/JclOpenDialog.rc | 5 + official/2.1.1/source/vcl/JclOpenDialog.res | Bin 0 -> 144 bytes .../source/vcl/JclOpenDialogFavorites.pas | 299 + .../2.1.1/source/vcl/JclOpenDialogHooks.pas | 389 + official/2.1.1/source/vcl/JclPrint.pas | 1217 + official/2.1.1/source/vcl/JclVclResources.pas | 217 + .../2.1.1/source/vcl/JclVersionControl.pas | 834 + .../source/vcl/JclVersionCtrlCVSImpl.pas | 323 + .../source/vcl/JclVersionCtrlSVNImpl.pas | 382 + official/2.1.1/source/vcl/dirinfo.txt | 1 + official/2.1.1/source/windows/Hardlinks.pas | 677 + official/2.1.1/source/windows/JclAppInst.pas | 639 + official/2.1.1/source/windows/JclCIL.pas | 1024 + official/2.1.1/source/windows/JclCLR.pas | 1773 + official/2.1.1/source/windows/JclCOM.pas | 680 + .../source/windows/JclCommCtrlAdmin.manifest | 28 + .../2.1.1/source/windows/JclCommCtrlAdmin.rc | 7 + .../2.1.1/source/windows/JclCommCtrlAdmin.res | Bin 0 -> 920 bytes .../windows/JclCommCtrlAsInvoker.manifest | 28 + .../source/windows/JclCommCtrlAsInvoker.rc | 7 + .../source/windows/JclCommCtrlAsInvoker.res | Bin 0 -> 908 bytes official/2.1.1/source/windows/JclConsole.pas | 1515 + official/2.1.1/source/windows/JclDebug.pas | 6388 +++ .../source/windows/JclDebugSerialization.pas | 760 + .../windows/JclDebugXMLDeserializer.pas | 97 + .../source/windows/JclDebugXMLSerializer.pas | 121 + official/2.1.1/source/windows/JclDotNet.pas | 1303 + .../2.1.1/source/windows/JclHookExcept.pas | 677 + official/2.1.1/source/windows/JclLANMan.pas | 463 + official/2.1.1/source/windows/JclLocales.pas | 1028 + official/2.1.1/source/windows/JclMapi.pas | 1416 + official/2.1.1/source/windows/JclMetadata.pas | 4845 +++ official/2.1.1/source/windows/JclMiscel.pas | 529 + official/2.1.1/source/windows/JclMsdosSys.pas | 659 + .../2.1.1/source/windows/JclMultimedia.pas | 1346 + official/2.1.1/source/windows/JclNTFS.pas | 2342 ++ .../source/windows/JclNoDepAdmin.manifest | 17 + .../2.1.1/source/windows/JclNoDepAdmin.rc | 7 + .../2.1.1/source/windows/JclNoDepAdmin.res | Bin 0 -> 608 bytes .../source/windows/JclNoDepAsInvoker.manifest | 17 + .../2.1.1/source/windows/JclNoDepAsInvoker.rc | 7 + .../source/windows/JclNoDepAsInvoker.res | Bin 0 -> 596 bytes official/2.1.1/source/windows/JclPeImage.pas | 6664 ++++ official/2.1.1/source/windows/JclRegistry.pas | 2107 + official/2.1.1/source/windows/JclSecurity.pas | 711 + official/2.1.1/source/windows/JclShell.pas | 1568 + .../2.1.1/source/windows/JclStructStorage.pas | 797 + official/2.1.1/source/windows/JclSvcCtrl.pas | 1498 + official/2.1.1/source/windows/JclTD32.pas | 1728 + official/2.1.1/source/windows/JclTask.pas | 951 + .../2.1.1/source/windows/JclTimeZones.pas | 824 + .../2.1.1/source/windows/JclWideFormat.pas | 974 + official/2.1.1/source/windows/JclWin32.pas | 8908 +++++ official/2.1.1/source/windows/JclWin32Ex.pas | 404 + official/2.1.1/source/windows/JclWinMIDI.pas | 301 + .../source/windows/MSHelpServices_TLB.pas | 1629 + official/2.1.1/source/windows/MSTask.pas | 662 + official/2.1.1/source/windows/Snmp.pas | 903 + official/2.1.1/source/windows/dirinfo.txt | 1 + official/2.1.1/source/windows/mscoree_TLB.pas | 455 + .../2.1.1/source/windows/mscorlib_TLB.pas | 32335 ++++++++++++++++ .../source/windows/obj/bzip2/blocksort.obj | Bin 0 -> 12448 bytes .../2.1.1/source/windows/obj/bzip2/bzlib.obj | Bin 0 -> 13002 bytes .../source/windows/obj/bzip2/compress.obj | Bin 0 -> 14762 bytes .../source/windows/obj/bzip2/crctable.obj | Bin 0 -> 6446 bytes .../source/windows/obj/bzip2/decompress.obj | Bin 0 -> 16733 bytes .../source/windows/obj/bzip2/dirinfo.txt | 1 + .../source/windows/obj/bzip2/huffman.obj | Bin 0 -> 6912 bytes .../source/windows/obj/bzip2/makefile.mak | 106 + .../source/windows/obj/bzip2/randtable.obj | Bin 0 -> 7475 bytes official/2.1.1/source/windows/obj/dirinfo.txt | 1 + .../2.1.1/source/windows/obj/pcre/dirinfo.txt | 1 + .../source/windows/obj/pcre/makefile.mak | 130 + .../source/windows/obj/pcre/pcre_compile.obj | Bin 0 -> 34931 bytes .../source/windows/obj/pcre/pcre_config.obj | Bin 0 -> 1778 bytes .../windows/obj/pcre/pcre_default_tables.obj | Bin 0 -> 2665 bytes .../source/windows/obj/pcre/pcre_dfa_exec.obj | Bin 0 -> 27591 bytes .../source/windows/obj/pcre/pcre_exec.obj | Bin 0 -> 42734 bytes .../source/windows/obj/pcre/pcre_fullinfo.obj | Bin 0 -> 2192 bytes .../source/windows/obj/pcre/pcre_get.obj | Bin 0 -> 3603 bytes .../source/windows/obj/pcre/pcre_globals.obj | Bin 0 -> 1864 bytes .../source/windows/obj/pcre/pcre_info.obj | Bin 0 -> 1742 bytes .../windows/obj/pcre/pcre_maketables.obj | Bin 0 -> 2597 bytes .../source/windows/obj/pcre/pcre_newline.obj | Bin 0 -> 2440 bytes .../source/windows/obj/pcre/pcre_ord2utf8.obj | Bin 0 -> 1754 bytes .../source/windows/obj/pcre/pcre_refcount.obj | Bin 0 -> 1681 bytes .../source/windows/obj/pcre/pcre_study.obj | Bin 0 -> 3991 bytes .../source/windows/obj/pcre/pcre_tables.obj | Bin 0 -> 3653 bytes .../windows/obj/pcre/pcre_try_flipped.obj | Bin 0 -> 1982 bytes .../source/windows/obj/pcre/pcre_ucd.obj | Bin 0 -> 54801 bytes .../windows/obj/pcre/pcre_valid_utf8.obj | Bin 0 -> 1927 bytes .../source/windows/obj/pcre/pcre_version.obj | Bin 0 -> 1689 bytes .../source/windows/obj/pcre/pcre_xclass.obj | Bin 0 -> 2516 bytes .../2.1.1/source/windows/obj/zlib/adler32.obj | Bin 0 -> 1132 bytes .../source/windows/obj/zlib/compress.obj | Bin 0 -> 658 bytes .../2.1.1/source/windows/obj/zlib/crc32.obj | Bin 0 -> 12172 bytes .../2.1.1/source/windows/obj/zlib/deflate.obj | Bin 0 -> 10101 bytes .../2.1.1/source/windows/obj/zlib/dirinfo.txt | 1 + .../2.1.1/source/windows/obj/zlib/gzio.obj | Bin 0 -> 6330 bytes .../2.1.1/source/windows/obj/zlib/infback.obj | Bin 0 -> 8101 bytes .../2.1.1/source/windows/obj/zlib/inffast.obj | Bin 0 -> 2664 bytes .../2.1.1/source/windows/obj/zlib/inflate.obj | Bin 0 -> 11884 bytes .../source/windows/obj/zlib/inftrees.obj | Bin 0 -> 2700 bytes .../source/windows/obj/zlib/makefile.mak | 109 + .../2.1.1/source/windows/obj/zlib/trees.obj | Bin 0 -> 12141 bytes .../2.1.1/source/windows/obj/zlib/uncompr.obj | Bin 0 -> 596 bytes .../2.1.1/source/windows/obj/zlib/zutil.obj | Bin 0 -> 1673 bytes official/2.1.1/source/windows/sevenzip.pas | 715 + 2072 files changed, 586488 insertions(+) create mode 100644 official/2.1.1/Install multiple profiles.bat create mode 100644 official/2.1.1/Install turbo delphi.bat create mode 100644 official/2.1.1/Install.bat create mode 100644 official/2.1.1/Install.txt create mode 100644 official/2.1.1/LICENSE-BZIP2.txt create mode 100644 official/2.1.1/LICENSE-DRYICONS.txt create mode 100644 official/2.1.1/LICENSE-PCRE.txt create mode 100644 official/2.1.1/LICENSE-SEVENZIP.txt create mode 100644 official/2.1.1/LICENSE-ZLIB.txt create mode 100644 official/2.1.1/LICENSE.txt create mode 100644 official/2.1.1/bin/Delphi 2007.log create mode 100644 official/2.1.1/bin/JCL-install.ini create mode 100644 official/2.1.1/bin/JediInstaller.exe create mode 100644 official/2.1.1/bin/dirinfo.txt create mode 100644 official/2.1.1/clean.bat create mode 100644 official/2.1.1/clean.sh create mode 100644 official/2.1.1/devtools/howto-jpp.txt create mode 100644 official/2.1.1/devtools/howto-pdEdit.txt create mode 100644 official/2.1.1/devtools/included_files.bat create mode 100644 official/2.1.1/devtools/included_files.sh create mode 100644 official/2.1.1/devtools/pgEdit.xml create mode 100644 official/2.1.1/docs/Contacting authors.html create mode 100644 official/2.1.1/docs/Contributors.html create mode 100644 official/2.1.1/docs/Contributors.txt create mode 100644 official/2.1.1/docs/Experts.html create mode 100644 official/2.1.1/docs/MPL FAQ.html create mode 100644 official/2.1.1/docs/MPL-1.1.txt create mode 100644 official/2.1.1/docs/Readme.html create mode 100644 official/2.1.1/docs/Readme.txt create mode 100644 official/2.1.1/docs/ThreadSafe.txt create mode 100644 official/2.1.1/docs/cps.html create mode 100644 official/2.1.1/docs/cps_files/strucv1.jpg create mode 100644 official/2.1.1/docs/cps_files/test.css create mode 100644 official/2.1.1/docs/styles/default.css create mode 100644 official/2.1.1/examples/C10.exc create mode 100644 official/2.1.1/examples/C5.exc create mode 100644 official/2.1.1/examples/C6.exc create mode 100644 official/2.1.1/examples/D10.exc create mode 100644 official/2.1.1/examples/D11.exc create mode 100644 official/2.1.1/examples/D5.exc create mode 100644 official/2.1.1/examples/D6.exc create mode 100644 official/2.1.1/examples/D7.exc create mode 100644 official/2.1.1/examples/D9.exc create mode 100644 official/2.1.1/examples/ExtraRequirements.exc create mode 100644 official/2.1.1/examples/JclDebugExamples.bpg create mode 100644 official/2.1.1/examples/common/containers/algorithms/AlgorithmsExample.dof create mode 100644 official/2.1.1/examples/common/containers/algorithms/AlgorithmsExample.dpr create mode 100644 official/2.1.1/examples/common/containers/algorithms/AlgorithmsExample.res create mode 100644 official/2.1.1/examples/common/containers/algorithms/AlgorithmsExampleMain.dfm create mode 100644 official/2.1.1/examples/common/containers/algorithms/AlgorithmsExampleMain.pas create mode 100644 official/2.1.1/examples/common/containers/hashing/HashingExample.dof create mode 100644 official/2.1.1/examples/common/containers/hashing/HashingExample.dpr create mode 100644 official/2.1.1/examples/common/containers/hashing/HashingExample.res create mode 100644 official/2.1.1/examples/common/containers/hashing/HashingExampleMain.dfm create mode 100644 official/2.1.1/examples/common/containers/hashing/HashingExampleMain.pas create mode 100644 official/2.1.1/examples/common/containers/lists/ListExample.dof create mode 100644 official/2.1.1/examples/common/containers/lists/ListExample.dpr create mode 100644 official/2.1.1/examples/common/containers/lists/ListExample.res create mode 100644 official/2.1.1/examples/common/containers/lists/ListExampleMain.dfm create mode 100644 official/2.1.1/examples/common/containers/lists/ListExampleMain.pas create mode 100644 official/2.1.1/examples/common/containers/lists/MyObjectList.pas create mode 100644 official/2.1.1/examples/common/containers/performance/ContainerPerformance.dof create mode 100644 official/2.1.1/examples/common/containers/performance/ContainerPerformance.dpr create mode 100644 official/2.1.1/examples/common/containers/performance/ContainerPerformance.res create mode 100644 official/2.1.1/examples/common/containers/performance/ContainerPerformanceMain.dfm create mode 100644 official/2.1.1/examples/common/containers/performance/ContainerPerformanceMain.pas create mode 100644 official/2.1.1/examples/common/containers/performance/ContainerPerformanceTests.pas create mode 100644 official/2.1.1/examples/common/containers/trees/TreeExample.dof create mode 100644 official/2.1.1/examples/common/containers/trees/TreeExample.dpr create mode 100644 official/2.1.1/examples/common/containers/trees/TreeExample.res create mode 100644 official/2.1.1/examples/common/containers/trees/TreeExampleMain.dfm create mode 100644 official/2.1.1/examples/common/containers/trees/TreeExampleMain.pas create mode 100644 official/2.1.1/examples/common/containers/trees/TreeStructure.dof create mode 100644 official/2.1.1/examples/common/containers/trees/TreeStructure.dpr create mode 100644 official/2.1.1/examples/common/containers/trees/TreeStructure.res create mode 100644 official/2.1.1/examples/common/containers/trees/TreeStructureMain.dfm create mode 100644 official/2.1.1/examples/common/containers/trees/TreeStructureMain.pas create mode 100644 official/2.1.1/examples/common/expreval/ExprEvalExample.dof create mode 100644 official/2.1.1/examples/common/expreval/ExprEvalExample.dpr create mode 100644 official/2.1.1/examples/common/expreval/ExprEvalExample.res create mode 100644 official/2.1.1/examples/common/expreval/ExprEvalExampleLogic.pas create mode 100644 official/2.1.1/examples/common/expreval/ExprEvalExampleMain.dfm create mode 100644 official/2.1.1/examples/common/expreval/ExprEvalExampleMain.pas create mode 100644 official/2.1.1/examples/common/filesearch/FileSearchDemo.dof create mode 100644 official/2.1.1/examples/common/filesearch/FileSearchDemo.dpr create mode 100644 official/2.1.1/examples/common/filesearch/FileSearchDemo.res create mode 100644 official/2.1.1/examples/common/filesearch/FileSearchDemoMain.dfm create mode 100644 official/2.1.1/examples/common/filesearch/FileSearchDemoMain.pas create mode 100644 official/2.1.1/examples/common/graphics/ClipLineDemo.dof create mode 100644 official/2.1.1/examples/common/graphics/ClipLineDemo.dpr create mode 100644 official/2.1.1/examples/common/graphics/ClipLineDemo.res create mode 100644 official/2.1.1/examples/common/graphics/ClipLineDemoMain.dfm create mode 100644 official/2.1.1/examples/common/graphics/ClipLineDemoMain.pas create mode 100644 official/2.1.1/examples/common/graphics/StretchGraphicDemoMain.dfm create mode 100644 official/2.1.1/examples/common/graphics/StretchGraphicDemoMain.pas create mode 100644 official/2.1.1/examples/common/graphics/StretchGraphicExample.dof create mode 100644 official/2.1.1/examples/common/graphics/StretchGraphicExample.dpr create mode 100644 official/2.1.1/examples/common/graphics/StretchGraphicExample.res create mode 100644 official/2.1.1/examples/common/multimedia/MidiOutExample.dof create mode 100644 official/2.1.1/examples/common/multimedia/MidiOutExample.dpr create mode 100644 official/2.1.1/examples/common/multimedia/MidiOutExample.res create mode 100644 official/2.1.1/examples/common/multimedia/MidiOutExampleMain.dfm create mode 100644 official/2.1.1/examples/common/multimedia/MidiOutExampleMain.pas create mode 100644 official/2.1.1/examples/common/multimedia/MidiOutExampleTuningDlg.dfm create mode 100644 official/2.1.1/examples/common/multimedia/MidiOutExampleTuningDlg.pas create mode 100644 official/2.1.1/examples/common/numformat/NumFormatExample.dof create mode 100644 official/2.1.1/examples/common/numformat/NumFormatExample.dpr create mode 100644 official/2.1.1/examples/common/numformat/NumFormatExample.res create mode 100644 official/2.1.1/examples/common/numformat/NumFormatExampleMain.dfm create mode 100644 official/2.1.1/examples/common/numformat/NumFormatExampleMain.pas create mode 100644 official/2.1.1/examples/common/pcre/PCREDemo.dof create mode 100644 official/2.1.1/examples/common/pcre/PCREDemo.dpr create mode 100644 official/2.1.1/examples/common/pcre/PCREDemo.res create mode 100644 official/2.1.1/examples/common/pcre/PCREDemoMain.dfm create mode 100644 official/2.1.1/examples/common/pcre/PCREDemoMain.pas create mode 100644 official/2.1.1/examples/common/rtti/RTTIDemoMain.dfm create mode 100644 official/2.1.1/examples/common/rtti/RTTIDemoMain.pas create mode 100644 official/2.1.1/examples/common/rtti/RTTIExample.dof create mode 100644 official/2.1.1/examples/common/rtti/RTTIExample.dpr create mode 100644 official/2.1.1/examples/common/rtti/RTTIExample.res create mode 100644 official/2.1.1/examples/common/sysinfo/EnvironmentExample.dof create mode 100644 official/2.1.1/examples/common/sysinfo/EnvironmentExample.dpr create mode 100644 official/2.1.1/examples/common/sysinfo/EnvironmentExample.res create mode 100644 official/2.1.1/examples/common/sysinfo/EnvironmentExampleMain.dfm create mode 100644 official/2.1.1/examples/common/sysinfo/EnvironmentExampleMain.pas create mode 100644 official/2.1.1/examples/common/textconverter/TextConverter.dof create mode 100644 official/2.1.1/examples/common/textconverter/TextConverter.dpr create mode 100644 official/2.1.1/examples/common/textconverter/TextConverter.res create mode 100644 official/2.1.1/examples/common/textconverter/TextConverterMain.dfm create mode 100644 official/2.1.1/examples/common/textconverter/TextConverterMain.pas create mode 100644 official/2.1.1/examples/common/textreader/TextReaderDemoMain.dfm create mode 100644 official/2.1.1/examples/common/textreader/TextReaderDemoMain.pas create mode 100644 official/2.1.1/examples/common/textreader/TextReaderExample.dof create mode 100644 official/2.1.1/examples/common/textreader/TextReaderExample.dpr create mode 100644 official/2.1.1/examples/common/textreader/TextReaderExample.res create mode 100644 official/2.1.1/examples/common/unitversioning/UnitVersioningTest.dof create mode 100644 official/2.1.1/examples/common/unitversioning/UnitVersioningTest.dpr create mode 100644 official/2.1.1/examples/common/unitversioning/UnitVersioningTest.res create mode 100644 official/2.1.1/examples/common/unitversioning/UnitVersioningTestDLL.dof create mode 100644 official/2.1.1/examples/common/unitversioning/UnitVersioningTestDLL.dpr create mode 100644 official/2.1.1/examples/common/unitversioning/UnitVersioningTestMain.dfm create mode 100644 official/2.1.1/examples/common/unitversioning/UnitVersioningTestMain.pas create mode 100644 official/2.1.1/examples/windows/appinst/AppInstDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/appinst/AppInstDemoMain.pas create mode 100644 official/2.1.1/examples/windows/appinst/AppInstExample.dof create mode 100644 official/2.1.1/examples/windows/appinst/AppInstExample.dpr create mode 100644 official/2.1.1/examples/windows/appinst/AppInstExample.res create mode 100644 official/2.1.1/examples/windows/appinst/SingleInstDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/appinst/SingleInstDemoMain.pas create mode 100644 official/2.1.1/examples/windows/appinst/SingleInstExample.dof create mode 100644 official/2.1.1/examples/windows/appinst/SingleInstExample.dpr create mode 100644 official/2.1.1/examples/windows/appinst/SingleInstExample.res create mode 100644 official/2.1.1/examples/windows/asuser/CreateProcAsUserDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/asuser/CreateProcAsUserDemoMain.pas create mode 100644 official/2.1.1/examples/windows/asuser/CreateProcAsUserExample.dof create mode 100644 official/2.1.1/examples/windows/asuser/CreateProcAsUserExample.dpr create mode 100644 official/2.1.1/examples/windows/asuser/CreateProcAsUserExample.res create mode 100644 official/2.1.1/examples/windows/clr/ClrDemo.dof create mode 100644 official/2.1.1/examples/windows/clr/ClrDemo.dpr create mode 100644 official/2.1.1/examples/windows/clr/ClrDemo.res create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoAbstractFrame.dfm create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoAbstractFrame.pas create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoBlobForm.dfm create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoBlobForm.pas create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoCLRFrame.dfm create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoCLRFrame.pas create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoGuidForm.dfm create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoGuidForm.pas create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoMain.pas create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoMetaDataFrame.dfm create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoMetaDataFrame.pas create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoStringsForm.dfm create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoStringsForm.pas create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoTableForm.dfm create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoTableForm.pas create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoUserStringsForm.dfm create mode 100644 official/2.1.1/examples/windows/clr/ClrDemoUserStringsForm.pas create mode 100644 official/2.1.1/examples/windows/compression/archive/ArchiveDemo.dof create mode 100644 official/2.1.1/examples/windows/compression/archive/ArchiveDemo.dpr create mode 100644 official/2.1.1/examples/windows/compression/archive/ArchiveDemo.res create mode 100644 official/2.1.1/examples/windows/compression/archive/UMain.dfm create mode 100644 official/2.1.1/examples/windows/compression/archive/UMain.pas create mode 100644 official/2.1.1/examples/windows/compression/archive/UProperties.dfm create mode 100644 official/2.1.1/examples/windows/compression/archive/UProperties.pas create mode 100644 official/2.1.1/examples/windows/console/ConsoleExamples.dof create mode 100644 official/2.1.1/examples/windows/console/ConsoleExamples.dpr create mode 100644 official/2.1.1/examples/windows/debug/framestrack/FramesTrackDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/debug/framestrack/FramesTrackDemoMain.pas create mode 100644 official/2.1.1/examples/windows/debug/framestrack/FramesTrackExample.dof create mode 100644 official/2.1.1/examples/windows/debug/framestrack/FramesTrackExample.dpr create mode 100644 official/2.1.1/examples/windows/debug/framestrack/FramesTrackExample.res create mode 100644 official/2.1.1/examples/windows/debug/mttest/JclDebugMTTest.dof create mode 100644 official/2.1.1/examples/windows/debug/mttest/JclDebugMTTest.dpr create mode 100644 official/2.1.1/examples/windows/debug/mttest/JclDebugMTTest.res create mode 100644 official/2.1.1/examples/windows/debug/mttest/JclDebugMTTestMain.dfm create mode 100644 official/2.1.1/examples/windows/debug/mttest/JclDebugMTTestMain.pas create mode 100644 official/2.1.1/examples/windows/debug/reportconverter/ExceptionReportConverter.dpr create mode 100644 official/2.1.1/examples/windows/debug/reportconverter/ExceptionReportConverter.res create mode 100644 official/2.1.1/examples/windows/debug/reportconverter/formConverter.dfm create mode 100644 official/2.1.1/examples/windows/debug/reportconverter/formConverter.pas create mode 100644 official/2.1.1/examples/windows/debug/sourceloc/SourceLocDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/debug/sourceloc/SourceLocDemoMain.pas create mode 100644 official/2.1.1/examples/windows/debug/sourceloc/SourceLocExample.dof create mode 100644 official/2.1.1/examples/windows/debug/sourceloc/SourceLocExample.dpr create mode 100644 official/2.1.1/examples/windows/debug/sourceloc/SourceLocExample.res create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.dof create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.dpr create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.res create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.tlb create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary_TLB.pas create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComUnit.pas create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDemoMain.pas create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.dof create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.dpr create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.res create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicUnit.pas create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsExample.dof create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsExample.dpr create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsExample.res create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.dof create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.dpr create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.res create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticUnit.pas create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackDemoMain.pas create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackExample.dof create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackExample.dpr create mode 100644 official/2.1.1/examples/windows/debug/stacktrack/StackTrackExample.res create mode 100644 official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptDemoMain.pas create mode 100644 official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptExample.dof create mode 100644 official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptExample.dpr create mode 100644 official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptExample.res create mode 100644 official/2.1.1/examples/windows/delphitools/DelphiToolsGroup.bpg create mode 100644 official/2.1.1/examples/windows/delphitools/Readme.txt create mode 100644 official/2.1.1/examples/windows/delphitools/common/About.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/common/About.pas create mode 100644 official/2.1.1/examples/windows/delphitools/common/D6MdiMsgFix.pas create mode 100644 official/2.1.1/examples/windows/delphitools/common/FindDlg.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/common/FindDlg.pas create mode 100644 official/2.1.1/examples/windows/delphitools/common/SHDocVw_TLB.pas create mode 100644 official/2.1.1/examples/windows/delphitools/common/ToolsUtils.pas create mode 100644 official/2.1.1/examples/windows/delphitools/dependencyviewer/DependView.dof create mode 100644 official/2.1.1/examples/windows/delphitools/dependencyviewer/DependView.dpr create mode 100644 official/2.1.1/examples/windows/delphitools/dependencyviewer/DependView.res create mode 100644 official/2.1.1/examples/windows/delphitools/dependencyviewer/DependViewMain.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/dependencyviewer/DependViewMain.pas create mode 100644 official/2.1.1/examples/windows/delphitools/dependencyviewer/FileViewer.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/dependencyviewer/FileViewer.pas create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeDump.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeDump.pas create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeGenDef.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeGenDef.pas create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeResView.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeResView.pas create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeResource.pas create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeSearch.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeSearch.pas create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeViewer.dof create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeViewer.dpr create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeViewer.res create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeViewer.tlb create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeViewerControl.pas create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeViewerMain.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeViewerMain.pas create mode 100644 official/2.1.1/examples/windows/delphitools/peviewer/PeViewer_TLB.pas create mode 100644 official/2.1.1/examples/windows/delphitools/resfix/ResFix.dof create mode 100644 official/2.1.1/examples/windows/delphitools/resfix/ResFix.dpr create mode 100644 official/2.1.1/examples/windows/delphitools/resfix/ResFix.res create mode 100644 official/2.1.1/examples/windows/delphitools/resfix/ResFixMain.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/resfix/ResFixMain.pas create mode 100644 official/2.1.1/examples/windows/delphitools/screenjpg/Main.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/screenjpg/Main.pas create mode 100644 official/2.1.1/examples/windows/delphitools/screenjpg/ScreenJPG.dof create mode 100644 official/2.1.1/examples/windows/delphitools/screenjpg/ScreenJPG.dpr create mode 100644 official/2.1.1/examples/windows/delphitools/screenjpg/ScreenJPG.res create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/ChangePriority.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/ChangePriority.pas create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/Global.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/Global.pas create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/HeapDump.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/HeapDump.pas create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/Main.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/Main.pas create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/MemoryDump.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/MemoryDump.pas create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/ModulesDump.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/ModulesDump.pas create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/ToolHelpViewer.dof create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/ToolHelpViewer.dpr create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/ToolHelpViewer.res create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/ViewTemplate.dfm create mode 100644 official/2.1.1/examples/windows/delphitools/toolhelpview/ViewTemplate.pas create mode 100644 official/2.1.1/examples/windows/edisdk/Clean.bat create mode 100644 official/2.1.1/examples/windows/edisdk/EDICOMExample.dof create mode 100644 official/2.1.1/examples/windows/edisdk/EDICOMExample.dpr create mode 100644 official/2.1.1/examples/windows/edisdk/EDICOMExample.res create mode 100644 official/2.1.1/examples/windows/edisdk/EDICOMExampleMain.dfm create mode 100644 official/2.1.1/examples/windows/edisdk/EDICOMExampleMain.pas create mode 100644 official/2.1.1/examples/windows/edisdk/EDISDK_TLB.dcr create mode 100644 official/2.1.1/examples/windows/edisdk/EDISDK_TLB.pas create mode 100644 official/2.1.1/examples/windows/edisdk/comserver/Clean.bat create mode 100644 official/2.1.1/examples/windows/edisdk/comserver/EDISDK.dof create mode 100644 official/2.1.1/examples/windows/edisdk/comserver/EDISDK.dpr create mode 100644 official/2.1.1/examples/windows/edisdk/comserver/EDISDK.res create mode 100644 official/2.1.1/examples/windows/edisdk/comserver/EDISDK.tlb create mode 100644 official/2.1.1/examples/windows/edisdk/comserver/EDISDK_TLB.pas create mode 100644 official/2.1.1/examples/windows/edisdk/comserver/JclEDICOM_ANSIX12.pas create mode 100644 official/2.1.1/examples/windows/edisdk/comserver/sample.edi create mode 100644 official/2.1.1/examples/windows/edisdk/sample.edi create mode 100644 official/2.1.1/examples/windows/edisdk/vb5/Form1.frm create mode 100644 official/2.1.1/examples/windows/edisdk/vb5/Form1.frx create mode 100644 official/2.1.1/examples/windows/edisdk/vb5/Project1.vbp create mode 100644 official/2.1.1/examples/windows/edisdk/vb5/Project1.vbw create mode 100644 official/2.1.1/examples/windows/edisdk/vb5/sample.edi create mode 100644 official/2.1.1/examples/windows/filemapping/FileMapping.dof create mode 100644 official/2.1.1/examples/windows/filemapping/FileMapping.dpr create mode 100644 official/2.1.1/examples/windows/filemapping/FileMapping.res create mode 100644 official/2.1.1/examples/windows/filemapping/MapTestForm.dfm create mode 100644 official/2.1.1/examples/windows/filemapping/MapTestForm.pas create mode 100644 official/2.1.1/examples/windows/filemapping/MapWriteForm.dfm create mode 100644 official/2.1.1/examples/windows/filemapping/MapWriteForm.pas create mode 100644 official/2.1.1/examples/windows/filesummary/FileSummaryDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/filesummary/FileSummaryDemoMain.pas create mode 100644 official/2.1.1/examples/windows/filesummary/FileSummaryExample.dof create mode 100644 official/2.1.1/examples/windows/filesummary/FileSummaryExample.dpr create mode 100644 official/2.1.1/examples/windows/filesummary/FileSummaryExample.res create mode 100644 official/2.1.1/examples/windows/fileversion/VerInfoDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/fileversion/VerInfoDemoMain.pas create mode 100644 official/2.1.1/examples/windows/fileversion/VerInfoExample.dof create mode 100644 official/2.1.1/examples/windows/fileversion/VerInfoExample.dpr create mode 100644 official/2.1.1/examples/windows/fileversion/VerInfoExample.res create mode 100644 official/2.1.1/examples/windows/lanman/LanManDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/lanman/LanManDemoMain.pas create mode 100644 official/2.1.1/examples/windows/lanman/LanManExample.dof create mode 100644 official/2.1.1/examples/windows/lanman/LanManExample.dpr create mode 100644 official/2.1.1/examples/windows/lanman/LanManExample.res create mode 100644 official/2.1.1/examples/windows/locales/LocalesDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/locales/LocalesDemoMain.pas create mode 100644 official/2.1.1/examples/windows/locales/LocalesExample.dof create mode 100644 official/2.1.1/examples/windows/locales/LocalesExample.dpr create mode 100644 official/2.1.1/examples/windows/locales/LocalesExample.res create mode 100644 official/2.1.1/examples/windows/mapi/MapiDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/mapi/MapiDemoMain.pas create mode 100644 official/2.1.1/examples/windows/mapi/MapiExample.dof create mode 100644 official/2.1.1/examples/windows/mapi/MapiExample.dpr create mode 100644 official/2.1.1/examples/windows/mapi/MapiExample.res create mode 100644 official/2.1.1/examples/windows/mapi/ReadMailDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/mapi/ReadMailDemoMain.pas create mode 100644 official/2.1.1/examples/windows/mapi/ReadMailExample.dof create mode 100644 official/2.1.1/examples/windows/mapi/ReadMailExample.dpr create mode 100644 official/2.1.1/examples/windows/mapi/ReadMailExample.res create mode 100644 official/2.1.1/examples/windows/multimedia/MultiMediaExample.dof create mode 100644 official/2.1.1/examples/windows/multimedia/MultiMediaExample.dpr create mode 100644 official/2.1.1/examples/windows/multimedia/MultiMediaExample.res create mode 100644 official/2.1.1/examples/windows/multimedia/MultimediaDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/multimedia/MultimediaDemoMain.pas create mode 100644 official/2.1.1/examples/windows/ntfs/JEDISoftLinks.dof create mode 100644 official/2.1.1/examples/windows/ntfs/JEDISoftLinks.dpr create mode 100644 official/2.1.1/examples/windows/ntfs/JEDISoftLinks.tlb create mode 100644 official/2.1.1/examples/windows/ntfs/JEDISoftLinks_TLB.pas create mode 100644 official/2.1.1/examples/windows/ntfs/SoftLinkDragDropHandler.pas create mode 100644 official/2.1.1/examples/windows/ntservice/NtSvcDemoDependent.dfm create mode 100644 official/2.1.1/examples/windows/ntservice/NtSvcDemoDependent.pas create mode 100644 official/2.1.1/examples/windows/ntservice/NtSvcDemoGroups.dfm create mode 100644 official/2.1.1/examples/windows/ntservice/NtSvcDemoGroups.pas create mode 100644 official/2.1.1/examples/windows/ntservice/NtSvcDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/ntservice/NtSvcDemoMain.pas create mode 100644 official/2.1.1/examples/windows/ntservice/NtSvcExample.dof create mode 100644 official/2.1.1/examples/windows/ntservice/NtSvcExample.dpr create mode 100644 official/2.1.1/examples/windows/ntservice/NtSvcExample.res create mode 100644 official/2.1.1/examples/windows/peimage/ApiHookDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/peimage/ApiHookDemoMain.pas create mode 100644 official/2.1.1/examples/windows/peimage/ApiHookExample.dof create mode 100644 official/2.1.1/examples/windows/peimage/ApiHookExample.dpr create mode 100644 official/2.1.1/examples/windows/peimage/ApiHookExample.res create mode 100644 official/2.1.1/examples/windows/peimage/PeFuncDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/peimage/PeFuncDemoMain.pas create mode 100644 official/2.1.1/examples/windows/peimage/PeFuncExample.dof create mode 100644 official/2.1.1/examples/windows/peimage/PeFuncExample.dpr create mode 100644 official/2.1.1/examples/windows/peimage/PeFuncExample.res create mode 100644 official/2.1.1/examples/windows/peimage/UnmangleNameDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/peimage/UnmangleNameDemoMain.pas create mode 100644 official/2.1.1/examples/windows/peimage/UnmangleNameExample.dof create mode 100644 official/2.1.1/examples/windows/peimage/UnmangleNameExample.dpr create mode 100644 official/2.1.1/examples/windows/peimage/UnmangleNameExample.res create mode 100644 official/2.1.1/examples/windows/registry/RegistryDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/registry/RegistryDemoMain.pas create mode 100644 official/2.1.1/examples/windows/registry/RegistryExample.dof create mode 100644 official/2.1.1/examples/windows/registry/RegistryExample.dpr create mode 100644 official/2.1.1/examples/windows/registry/RegistryExample.res create mode 100644 official/2.1.1/examples/windows/structstorage/HexDump.pas create mode 100644 official/2.1.1/examples/windows/structstorage/PropsFrm.dfm create mode 100644 official/2.1.1/examples/windows/structstorage/PropsFrm.pas create mode 100644 official/2.1.1/examples/windows/structstorage/StructStorageExample.dof create mode 100644 official/2.1.1/examples/windows/structstorage/StructStorageExample.dpr create mode 100644 official/2.1.1/examples/windows/structstorage/StructStorageExample.res create mode 100644 official/2.1.1/examples/windows/structstorage/StructStorageExampleMain.dfm create mode 100644 official/2.1.1/examples/windows/structstorage/StructStorageExampleMain.pas create mode 100644 official/2.1.1/examples/windows/sysinfo/SysInfoDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/sysinfo/SysInfoDemoMain.pas create mode 100644 official/2.1.1/examples/windows/sysinfo/SysInfoExample.dof create mode 100644 official/2.1.1/examples/windows/sysinfo/SysInfoExample.dpr create mode 100644 official/2.1.1/examples/windows/sysinfo/SysInfoExample.res create mode 100644 official/2.1.1/examples/windows/tasks/TaskDemo.dof create mode 100644 official/2.1.1/examples/windows/tasks/TaskDemo.dpr create mode 100644 official/2.1.1/examples/windows/tasks/TaskDemo.res create mode 100644 official/2.1.1/examples/windows/tasks/TaskDemoDataModule.dfm create mode 100644 official/2.1.1/examples/windows/tasks/TaskDemoDataModule.pas create mode 100644 official/2.1.1/examples/windows/tasks/TaskDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/tasks/TaskDemoMain.pas create mode 100644 official/2.1.1/examples/windows/timezones/Mainfrm.dfm create mode 100644 official/2.1.1/examples/windows/timezones/Mainfrm.pas create mode 100644 official/2.1.1/examples/windows/timezones/TimeZoneDemo.dof create mode 100644 official/2.1.1/examples/windows/timezones/TimeZoneDemo.dpr create mode 100644 official/2.1.1/examples/windows/timezones/TimeZoneDemo.res create mode 100644 official/2.1.1/examples/windows/widestring/WideStringDemoMain.dfm create mode 100644 official/2.1.1/examples/windows/widestring/WideStringDemoMain.pas create mode 100644 official/2.1.1/examples/windows/widestring/WideStringExample.dpr create mode 100644 official/2.1.1/examples/windows/widestring/WideStringExample.res create mode 100644 official/2.1.1/experts/common/JclConfigure.ico create mode 100644 official/2.1.1/experts/common/JclImages.rc create mode 100644 official/2.1.1/experts/common/JclImages.res create mode 100644 official/2.1.1/experts/common/JclOtaActionConfigureSheet.dfm create mode 100644 official/2.1.1/experts/common/JclOtaActionConfigureSheet.pas create mode 100644 official/2.1.1/experts/common/JclOtaConfigurationForm.dfm create mode 100644 official/2.1.1/experts/common/JclOtaConfigurationForm.pas create mode 100644 official/2.1.1/experts/common/JclOtaConsts.pas create mode 100644 official/2.1.1/experts/common/JclOtaExceptionForm.dfm create mode 100644 official/2.1.1/experts/common/JclOtaExceptionForm.pas create mode 100644 official/2.1.1/experts/common/JclOtaResources.pas create mode 100644 official/2.1.1/experts/common/JclOtaUnitVersioningSheet.dfm create mode 100644 official/2.1.1/experts/common/JclOtaUnitVersioningSheet.pas create mode 100644 official/2.1.1/experts/common/JclOtaUtils.pas create mode 100644 official/2.1.1/experts/common/JclOtaWizardForm.dfm create mode 100644 official/2.1.1/experts/common/JclOtaWizardForm.pas create mode 100644 official/2.1.1/experts/common/JclOtaWizardFrame.dfm create mode 100644 official/2.1.1/experts/common/JclOtaWizardFrame.pas create mode 100644 official/2.1.1/experts/common/JclSplash.bmp create mode 100644 official/2.1.1/experts/debug/Howto.txt create mode 100644 official/2.1.1/experts/debug/JclDebugThread.pas create mode 100644 official/2.1.1/experts/debug/converter/JclDebugIdeConfigFrame.dfm create mode 100644 official/2.1.1/experts/debug/converter/JclDebugIdeConfigFrame.pas create mode 100644 official/2.1.1/experts/debug/converter/JclDebugIdeIcon.res create mode 100644 official/2.1.1/experts/debug/converter/JclDebugIdeImpl.pas create mode 100644 official/2.1.1/experts/debug/converter/JclDebugIdeResult.dfm create mode 100644 official/2.1.1/experts/debug/converter/JclDebugIdeResult.pas create mode 100644 official/2.1.1/experts/debug/dialog/CreateStdDialogs.dpr create mode 100644 official/2.1.1/experts/debug/dialog/ExceptDlg.CBuilder32.cpp create mode 100644 official/2.1.1/experts/debug/dialog/ExceptDlg.CBuilder32.dfm create mode 100644 official/2.1.1/experts/debug/dialog/ExceptDlg.CBuilder32.h create mode 100644 official/2.1.1/experts/debug/dialog/ExceptDlg.Delphi32.dfm create mode 100644 official/2.1.1/experts/debug/dialog/ExceptDlg.Delphi32.pas create mode 100644 official/2.1.1/experts/debug/dialog/ExceptDlg.dfm create mode 100644 official/2.1.1/experts/debug/dialog/ExceptDlg.ico create mode 100644 official/2.1.1/experts/debug/dialog/ExceptDlg.pas create mode 100644 official/2.1.1/experts/debug/dialog/ExceptDlgCpp.ico create mode 100644 official/2.1.1/experts/debug/dialog/ExceptDlgMail.dfm create mode 100644 official/2.1.1/experts/debug/dialog/ExceptDlgMail.ico create mode 100644 official/2.1.1/experts/debug/dialog/ExceptDlgMail.pas create mode 100644 official/2.1.1/experts/debug/simdview/JclSIMDCpuInfo.dfm create mode 100644 official/2.1.1/experts/debug/simdview/JclSIMDCpuInfo.pas create mode 100644 official/2.1.1/experts/debug/simdview/JclSIMDIcon.dcr create mode 100644 official/2.1.1/experts/debug/simdview/JclSIMDModifyForm.dfm create mode 100644 official/2.1.1/experts/debug/simdview/JclSIMDModifyForm.pas create mode 100644 official/2.1.1/experts/debug/simdview/JclSIMDTestBCB.cpp create mode 100644 official/2.1.1/experts/debug/simdview/JclSIMDTestBCBProject.bpf create mode 100644 official/2.1.1/experts/debug/simdview/JclSIMDTestBCBProject.bpr create mode 100644 official/2.1.1/experts/debug/simdview/JclSIMDTestDelphi.dof create mode 100644 official/2.1.1/experts/debug/simdview/JclSIMDTestDelphi.dpr create mode 100644 official/2.1.1/experts/debug/simdview/JclSIMDUtils.pas create mode 100644 official/2.1.1/experts/debug/simdview/JclSIMDView.pas create mode 100644 official/2.1.1/experts/debug/simdview/JclSIMDViewForm.dfm create mode 100644 official/2.1.1/experts/debug/simdview/JclSIMDViewForm.pas create mode 100644 official/2.1.1/experts/debug/threadnames/JclIdeThreadStatus.pas create mode 100644 official/2.1.1/experts/debug/threadnames/ThreadExpertSharedNames.pas create mode 100644 official/2.1.1/experts/debug/threadnames/ThreadExpertUnit.pas create mode 100644 official/2.1.1/experts/debug/tools/MakeJclDbg.dof create mode 100644 official/2.1.1/experts/debug/tools/MakeJclDbg.dpr create mode 100644 official/2.1.1/experts/debug/tools/MapToJdbg.dof create mode 100644 official/2.1.1/experts/debug/tools/MapToJdbg.dpr create mode 100644 official/2.1.1/experts/debug/tools/MapToJdbg.res create mode 100644 official/2.1.1/experts/debug/tools/MapToJdbgMain.dfm create mode 100644 official/2.1.1/experts/debug/tools/MapToJdbgMain.pas create mode 100644 official/2.1.1/experts/debug/tools/TlbToMap.dof create mode 100644 official/2.1.1/experts/debug/tools/TlbToMap.dpr create mode 100644 official/2.1.1/experts/debug/tools/TlbToMap.res create mode 100644 official/2.1.1/experts/debug/tools/TlbToMapMain.dfm create mode 100644 official/2.1.1/experts/debug/tools/TlbToMapMain.pas create mode 100644 official/2.1.1/experts/debug/tools/Tools.bpg create mode 100644 official/2.1.1/experts/debug/tools/makejcldbg.res create mode 100644 official/2.1.1/experts/favfolders/IdeOpenDlgFavoriteUnit.pas create mode 100644 official/2.1.1/experts/projectanalyzer/ProjAnalyzerFrm.dfm create mode 100644 official/2.1.1/experts/projectanalyzer/ProjAnalyzerFrm.pas create mode 100644 official/2.1.1/experts/projectanalyzer/ProjAnalyzerIcon.res create mode 100644 official/2.1.1/experts/projectanalyzer/ProjAnalyzerImpl.pas create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgFileFrame.dfm create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgFileFrame.pas create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgFormFrame.dfm create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgFormFrame.pas create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgIcons.RES create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgIcons.rc create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgIgnoreFrame.dfm create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgIgnoreFrame.pas create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgLogFrame.dfm create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgLogFrame.pas create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgRepository.pas create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgSystemFrame.dfm create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgSystemFrame.pas create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgThreadFrame.dfm create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgThreadFrame.pas create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgTraceFrame.dfm create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgTraceFrame.pas create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgWizard.dfm create mode 100644 official/2.1.1/experts/repository/JclOtaExcDlgWizard.pas create mode 100644 official/2.1.1/experts/repository/JclOtaRepositoryReg.pas create mode 100644 official/2.1.1/experts/repository/JclOtaRepositoryUtils.pas create mode 100644 official/2.1.1/experts/repository/JclOtaTemplates.pas create mode 100644 official/2.1.1/experts/repository/dirinfo.txt create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/Dummy/DummyLineNumberTranslator.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/Dummy/DummyRevisionProvider.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/Dummy/StackTraceViewerDummyExample.dpk create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/Dummy/StackTraceViewerDummyExampleReg.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/FastMMFreedObjectFrame.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/FastMMFreedObjectFrame.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakFrame.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakFrame.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakGroupFrame.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakGroupFrame.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakSummaryFrame.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakSummaryFrame.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryFrame.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryFrame.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryVisualizerFrame.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryVisualizerFrame.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/FastMMParser.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/StackTraceViewerFastMM.dpk create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/StackTraceViewerFastMMReg.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/FastMM/StackTraceViewerFastMMUnit.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/HelloWorld/HelloWorldFrame.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/HelloWorld/HelloWorldFrame.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/HelloWorld/StackTraceViewerHelloWorldExample.dpk create mode 100644 official/2.1.1/experts/stacktraceviewer/APIExamples/HelloWorld/StackTraceViewerHelloWorldExampleReg.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerAPI.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerAPIImpl.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerClasses.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerConfigFrame.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerConfigFrame.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerExceptInfoFrame.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerExceptInfoFrame.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerIcon.res create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerImpl.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerMainFormBDS.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerMainFormBDS.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerMainFormBDS7.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerMainFormBDS7.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerMainFormDelphi.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerMainFormDelphi.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerMainFrame.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerMainFrame.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerModuleFrame.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerModuleFrame.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerOptions.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerStackCodeUtils.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerStackFrame.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerStackFrame.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerStackUtils.pas create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerThreadFrame.dfm create mode 100644 official/2.1.1/experts/stacktraceviewer/JclStackTraceViewerThreadFrame.pas create mode 100644 official/2.1.1/experts/useswizard/Hardlinks.txt create mode 100644 official/2.1.1/experts/useswizard/History.txt create mode 100644 official/2.1.1/experts/useswizard/IdentifierList.dpr create mode 100644 official/2.1.1/experts/useswizard/JCLOptionsFrame.dfm create mode 100644 official/2.1.1/experts/useswizard/JCLOptionsFrame.pas create mode 100644 official/2.1.1/experts/useswizard/JCLUsesWizard.pas create mode 100644 official/2.1.1/experts/useswizard/Jcl8087.txt create mode 100644 official/2.1.1/experts/useswizard/JclAbstractContainers.txt create mode 100644 official/2.1.1/experts/useswizard/JclAlgorithms.txt create mode 100644 official/2.1.1/experts/useswizard/JclAnsiStrings.txt create mode 100644 official/2.1.1/experts/useswizard/JclAppInst.txt create mode 100644 official/2.1.1/experts/useswizard/JclArrayLists.txt create mode 100644 official/2.1.1/experts/useswizard/JclArraySets.txt create mode 100644 official/2.1.1/experts/useswizard/JclBase.txt create mode 100644 official/2.1.1/experts/useswizard/JclBinaryTrees.txt create mode 100644 official/2.1.1/experts/useswizard/JclBorlandTools.txt create mode 100644 official/2.1.1/experts/useswizard/JclCIL.txt create mode 100644 official/2.1.1/experts/useswizard/JclCLR.txt create mode 100644 official/2.1.1/experts/useswizard/JclCOM.txt create mode 100644 official/2.1.1/experts/useswizard/JclComplex.txt create mode 100644 official/2.1.1/experts/useswizard/JclCompression.txt create mode 100644 official/2.1.1/experts/useswizard/JclConsole.txt create mode 100644 official/2.1.1/experts/useswizard/JclContainerIntf.txt create mode 100644 official/2.1.1/experts/useswizard/JclCounter.txt create mode 100644 official/2.1.1/experts/useswizard/JclDateTime.txt create mode 100644 official/2.1.1/experts/useswizard/JclDebug.txt create mode 100644 official/2.1.1/experts/useswizard/JclDotNet.txt create mode 100644 official/2.1.1/experts/useswizard/JclEDI.txt create mode 100644 official/2.1.1/experts/useswizard/JclEDISEF.txt create mode 100644 official/2.1.1/experts/useswizard/JclEDITranslators.txt create mode 100644 official/2.1.1/experts/useswizard/JclEDIXML.txt create mode 100644 official/2.1.1/experts/useswizard/JclEDI_ANSIX12.txt create mode 100644 official/2.1.1/experts/useswizard/JclEDI_ANSIX12_Ext.txt create mode 100644 official/2.1.1/experts/useswizard/JclEDI_UNEDIFACT.txt create mode 100644 official/2.1.1/experts/useswizard/JclEDI_UNEDIFACT_Ext.txt create mode 100644 official/2.1.1/experts/useswizard/JclExprEval.txt create mode 100644 official/2.1.1/experts/useswizard/JclFileUtils.txt create mode 100644 official/2.1.1/experts/useswizard/JclGraphUtils.txt create mode 100644 official/2.1.1/experts/useswizard/JclGraphics.txt create mode 100644 official/2.1.1/experts/useswizard/JclHashMaps.txt create mode 100644 official/2.1.1/experts/useswizard/JclHashSets.txt create mode 100644 official/2.1.1/experts/useswizard/JclHookExcept.txt create mode 100644 official/2.1.1/experts/useswizard/JclIniFiles.txt create mode 100644 official/2.1.1/experts/useswizard/JclLANMan.txt create mode 100644 official/2.1.1/experts/useswizard/JclLinkedLists.txt create mode 100644 official/2.1.1/experts/useswizard/JclLocales.txt create mode 100644 official/2.1.1/experts/useswizard/JclLogic.txt create mode 100644 official/2.1.1/experts/useswizard/JclMIDI.txt create mode 100644 official/2.1.1/experts/useswizard/JclMapi.txt create mode 100644 official/2.1.1/experts/useswizard/JclMath.txt create mode 100644 official/2.1.1/experts/useswizard/JclMetadata.txt create mode 100644 official/2.1.1/experts/useswizard/JclMime.txt create mode 100644 official/2.1.1/experts/useswizard/JclMiscel.txt create mode 100644 official/2.1.1/experts/useswizard/JclMsdosSys.txt create mode 100644 official/2.1.1/experts/useswizard/JclMultimedia.txt create mode 100644 official/2.1.1/experts/useswizard/JclNTFS.txt create mode 100644 official/2.1.1/experts/useswizard/JclPCRE.txt create mode 100644 official/2.1.1/experts/useswizard/JclParseUses.pas create mode 100644 official/2.1.1/experts/useswizard/JclPeImage.txt create mode 100644 official/2.1.1/experts/useswizard/JclPrint.txt create mode 100644 official/2.1.1/experts/useswizard/JclQueues.txt create mode 100644 official/2.1.1/experts/useswizard/JclRTF.txt create mode 100644 official/2.1.1/experts/useswizard/JclRTTI.txt create mode 100644 official/2.1.1/experts/useswizard/JclRegistry.txt create mode 100644 official/2.1.1/experts/useswizard/JclResources.txt create mode 100644 official/2.1.1/experts/useswizard/JclSchedule.txt create mode 100644 official/2.1.1/experts/useswizard/JclSecurity.txt create mode 100644 official/2.1.1/experts/useswizard/JclShell.txt create mode 100644 official/2.1.1/experts/useswizard/JclStacks.txt create mode 100644 official/2.1.1/experts/useswizard/JclStatistics.txt create mode 100644 official/2.1.1/experts/useswizard/JclStrHashMap.txt create mode 100644 official/2.1.1/experts/useswizard/JclStreams.txt create mode 100644 official/2.1.1/experts/useswizard/JclStrings.txt create mode 100644 official/2.1.1/experts/useswizard/JclStructStorage.txt create mode 100644 official/2.1.1/experts/useswizard/JclSvcCtrl.txt create mode 100644 official/2.1.1/experts/useswizard/JclSynch.txt create mode 100644 official/2.1.1/experts/useswizard/JclSysInfo.txt create mode 100644 official/2.1.1/experts/useswizard/JclSysUtils.txt create mode 100644 official/2.1.1/experts/useswizard/JclTD32.txt create mode 100644 official/2.1.1/experts/useswizard/JclTask.txt create mode 100644 official/2.1.1/experts/useswizard/JclUnicode.txt create mode 100644 official/2.1.1/experts/useswizard/JclUnitConv.txt create mode 100644 official/2.1.1/experts/useswizard/JclUnitVersioning.txt create mode 100644 official/2.1.1/experts/useswizard/JclUnitVersioningProviders.txt create mode 100644 official/2.1.1/experts/useswizard/JclUsesDialog.dfm create mode 100644 official/2.1.1/experts/useswizard/JclUsesDialog.pas create mode 100644 official/2.1.1/experts/useswizard/JclValidation.txt create mode 100644 official/2.1.1/experts/useswizard/JclVectors.txt create mode 100644 official/2.1.1/experts/useswizard/JclWideFormat.txt create mode 100644 official/2.1.1/experts/useswizard/JclWideStrings.txt create mode 100644 official/2.1.1/experts/useswizard/JclWin32.txt create mode 100644 official/2.1.1/experts/useswizard/JclWin32Ex.txt create mode 100644 official/2.1.1/experts/useswizard/JclWinMIDI.txt create mode 100644 official/2.1.1/experts/useswizard/JediUsesWizard.ini create mode 100644 official/2.1.1/experts/useswizard/ReadMe.txt create mode 100644 official/2.1.1/experts/useswizard/pcre.txt create mode 100644 official/2.1.1/experts/versioncontrol/JclVersionControlImpl.pas create mode 100644 official/2.1.1/experts/versioncontrol/JclVersionCtrlCommonOptions.dfm create mode 100644 official/2.1.1/experts/versioncontrol/JclVersionCtrlCommonOptions.pas create mode 100644 official/2.1.1/experts/versioncontrol/JclVersionCtrlIcons.RES create mode 100644 official/2.1.1/experts/versioncontrol/JclVersionCtrlIcons.rc create mode 100644 official/2.1.1/experts/versioncontrol/icons/ContextMenu.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/Explore.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/FileAdd.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/FileBlame.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/FileBranch.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/FileCommit.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/FileDiff.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/FileGraph.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/FileLock.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/FileLog.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/FileMerge.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/FileRename.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/FileRevert.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/FileTag.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/FileUnlock.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/FileUpdate.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/Properties.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/RepoBrowser.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/SandboxAdd.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/SandboxBranch.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/SandboxCheckout.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/SandboxCommit.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/SandboxLock.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/SandboxLog.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/SandboxMerge.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/SandboxRename.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/SandboxRevert.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/SandboxTag.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/SandboxUnlock.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/SandboxUpdate.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/Status.ico create mode 100644 official/2.1.1/experts/versioncontrol/icons/copyright.txt create mode 100644 official/2.1.1/experts/versioncontrol/icons/dirinfo.txt create mode 100644 official/2.1.1/include/zconf.h create mode 100644 official/2.1.1/include/zlib.h create mode 100644 official/2.1.1/include/zutil.h create mode 100644 official/2.1.1/install/HeaderTest/jcl_a2z.cpp create mode 100644 official/2.1.1/install/HeaderTest/jcl_z2a.cpp create mode 100644 official/2.1.1/install/JclInstall.pas create mode 100644 official/2.1.1/install/JclInstallResources.pas create mode 100644 official/2.1.1/install/JediInstall.pas create mode 100644 official/2.1.1/install/JediInstallConfigIni.pas create mode 100644 official/2.1.1/install/JediInstallResources.pas create mode 100644 official/2.1.1/install/JediInstaller.bdsproj create mode 100644 official/2.1.1/install/JediInstaller.dof create mode 100644 official/2.1.1/install/JediInstaller.dpr create mode 100644 official/2.1.1/install/JediInstaller.res create mode 100644 official/2.1.1/install/JediProfiles.pas create mode 100644 official/2.1.1/install/JediRegInfo.pas create mode 100644 official/2.1.1/install/RegHelper.dof create mode 100644 official/2.1.1/install/RegHelper.dpr create mode 100644 official/2.1.1/install/RegHelper.rc create mode 100644 official/2.1.1/install/RegHelper.res create mode 100644 official/2.1.1/install/VclGui/FrmCompile.dfm create mode 100644 official/2.1.1/install/VclGui/FrmCompile.pas create mode 100644 official/2.1.1/install/VclGui/JediGUIInstall.dfm create mode 100644 official/2.1.1/install/VclGui/JediGUIInstall.pas create mode 100644 official/2.1.1/install/VclGui/JediGUIMain.dfm create mode 100644 official/2.1.1/install/VclGui/JediGUIMain.pas create mode 100644 official/2.1.1/install/VclGui/JediGUIProfiles.dfm create mode 100644 official/2.1.1/install/VclGui/JediGUIProfiles.pas create mode 100644 official/2.1.1/install/VclGui/JediGUIReadme.dfm create mode 100644 official/2.1.1/install/VclGui/JediGUIReadme.pas create mode 100644 official/2.1.1/install/build/dcc32ex.dpr create mode 100644 official/2.1.1/install/build/dcc32ex.exe create mode 100644 official/2.1.1/install/dcc32.cfg create mode 100644 official/2.1.1/install/dcc32_command.cmd create mode 100644 official/2.1.1/lib/c6/debug/dirinfo.txt create mode 100644 official/2.1.1/lib/c6/dirinfo.txt create mode 100644 official/2.1.1/lib/cs1/dirinfo.txt create mode 100644 official/2.1.1/lib/d10/debug/dirinfo.txt create mode 100644 official/2.1.1/lib/d10/dirinfo.txt create mode 100644 official/2.1.1/lib/d11/Hardlinks.dcu create mode 100644 official/2.1.1/lib/d11/Jcl.dcp create mode 100644 official/2.1.1/lib/d11/Jcl.dcu create mode 100644 official/2.1.1/lib/d11/Jcl8087.dcu create mode 100644 official/2.1.1/lib/d11/JclAbstractContainers.dcu create mode 100644 official/2.1.1/lib/d11/JclAlgorithms.dcu create mode 100644 official/2.1.1/lib/d11/JclAnsiStrings.dcu create mode 100644 official/2.1.1/lib/d11/JclAppInst.dcu create mode 100644 official/2.1.1/lib/d11/JclArrayLists.dcu create mode 100644 official/2.1.1/lib/d11/JclArraySets.dcu create mode 100644 official/2.1.1/lib/d11/JclBase.dcu create mode 100644 official/2.1.1/lib/d11/JclBinaryTrees.dcu create mode 100644 official/2.1.1/lib/d11/JclBorlandTools.dcu create mode 100644 official/2.1.1/lib/d11/JclCIL.dcu create mode 100644 official/2.1.1/lib/d11/JclCLR.dcu create mode 100644 official/2.1.1/lib/d11/JclCOM.dcu create mode 100644 official/2.1.1/lib/d11/JclCharsets.dcu create mode 100644 official/2.1.1/lib/d11/JclCommCtrlAdmin.res create mode 100644 official/2.1.1/lib/d11/JclCommCtrlAsInvoker.res create mode 100644 official/2.1.1/lib/d11/JclComplex.dcu create mode 100644 official/2.1.1/lib/d11/JclCompression.dcu create mode 100644 official/2.1.1/lib/d11/JclConsole.dcu create mode 100644 official/2.1.1/lib/d11/JclContainerIntf.dcu create mode 100644 official/2.1.1/lib/d11/JclContainers.dcp create mode 100644 official/2.1.1/lib/d11/JclContainers.dcu create mode 100644 official/2.1.1/lib/d11/JclCounter.dcu create mode 100644 official/2.1.1/lib/d11/JclDateTime.dcu create mode 100644 official/2.1.1/lib/d11/JclDebug.dcu create mode 100644 official/2.1.1/lib/d11/JclDebugSerialization.dcu create mode 100644 official/2.1.1/lib/d11/JclDebugXMLDeserializer.dcu create mode 100644 official/2.1.1/lib/d11/JclDebugXMLSerializer.dcu create mode 100644 official/2.1.1/lib/d11/JclDotNet.dcu create mode 100644 official/2.1.1/lib/d11/JclEDI.dcu create mode 100644 official/2.1.1/lib/d11/JclEDISEF.dcu create mode 100644 official/2.1.1/lib/d11/JclEDITranslators.dcu create mode 100644 official/2.1.1/lib/d11/JclEDIXML.dcu create mode 100644 official/2.1.1/lib/d11/JclEDI_ANSIX12.dcu create mode 100644 official/2.1.1/lib/d11/JclEDI_ANSIX12_Ext.dcu create mode 100644 official/2.1.1/lib/d11/JclEDI_UNEDIFACT.dcu create mode 100644 official/2.1.1/lib/d11/JclEDI_UNEDIFACT_Ext.dcu create mode 100644 official/2.1.1/lib/d11/JclExprEval.dcu create mode 100644 official/2.1.1/lib/d11/JclFileUtils.dcu create mode 100644 official/2.1.1/lib/d11/JclFont.dcu create mode 100644 official/2.1.1/lib/d11/JclGraphUtils.dcu create mode 100644 official/2.1.1/lib/d11/JclGraphics.dcu create mode 100644 official/2.1.1/lib/d11/JclHashMaps.dcu create mode 100644 official/2.1.1/lib/d11/JclHashSets.dcu create mode 100644 official/2.1.1/lib/d11/JclHookExcept.dcu create mode 100644 official/2.1.1/lib/d11/JclIniFiles.dcu create mode 100644 official/2.1.1/lib/d11/JclLANMan.dcu create mode 100644 official/2.1.1/lib/d11/JclLinkedLists.dcu create mode 100644 official/2.1.1/lib/d11/JclLocales.dcu create mode 100644 official/2.1.1/lib/d11/JclLogic.dcu create mode 100644 official/2.1.1/lib/d11/JclMIDI.dcu create mode 100644 official/2.1.1/lib/d11/JclMapi.dcu create mode 100644 official/2.1.1/lib/d11/JclMath.dcu create mode 100644 official/2.1.1/lib/d11/JclMetadata.dcu create mode 100644 official/2.1.1/lib/d11/JclMime.dcu create mode 100644 official/2.1.1/lib/d11/JclMiscel.dcu create mode 100644 official/2.1.1/lib/d11/JclMsdosSys.dcu create mode 100644 official/2.1.1/lib/d11/JclMultimedia.dcu create mode 100644 official/2.1.1/lib/d11/JclNTFS.dcu create mode 100644 official/2.1.1/lib/d11/JclNoDepAdmin.res create mode 100644 official/2.1.1/lib/d11/JclNoDepAsInvoker.res create mode 100644 official/2.1.1/lib/d11/JclNotify.dcu create mode 100644 official/2.1.1/lib/d11/JclOpenDialog.res create mode 100644 official/2.1.1/lib/d11/JclOpenDialogFavorites.dcu create mode 100644 official/2.1.1/lib/d11/JclOpenDialogHooks.dcu create mode 100644 official/2.1.1/lib/d11/JclPCRE.dcu create mode 100644 official/2.1.1/lib/d11/JclPeImage.dcu create mode 100644 official/2.1.1/lib/d11/JclPrint.dcu create mode 100644 official/2.1.1/lib/d11/JclQueues.dcu create mode 100644 official/2.1.1/lib/d11/JclRTTI.dcu create mode 100644 official/2.1.1/lib/d11/JclRegistry.dcu create mode 100644 official/2.1.1/lib/d11/JclResources.dcu create mode 100644 official/2.1.1/lib/d11/JclSchedule.dcu create mode 100644 official/2.1.1/lib/d11/JclSecurity.dcu create mode 100644 official/2.1.1/lib/d11/JclShell.dcu create mode 100644 official/2.1.1/lib/d11/JclSimpleXml.dcu create mode 100644 official/2.1.1/lib/d11/JclSortedMaps.dcu create mode 100644 official/2.1.1/lib/d11/JclStacks.dcu create mode 100644 official/2.1.1/lib/d11/JclStatistics.dcu create mode 100644 official/2.1.1/lib/d11/JclStrHashMap.dcu create mode 100644 official/2.1.1/lib/d11/JclStreams.dcu create mode 100644 official/2.1.1/lib/d11/JclStringConversions.dcu create mode 100644 official/2.1.1/lib/d11/JclStringLists.dcu create mode 100644 official/2.1.1/lib/d11/JclStrings.dcu create mode 100644 official/2.1.1/lib/d11/JclStructStorage.dcu create mode 100644 official/2.1.1/lib/d11/JclSvcCtrl.dcu create mode 100644 official/2.1.1/lib/d11/JclSynch.dcu create mode 100644 official/2.1.1/lib/d11/JclSysInfo.dcu create mode 100644 official/2.1.1/lib/d11/JclSysUtils.dcu create mode 100644 official/2.1.1/lib/d11/JclTD32.dcu create mode 100644 official/2.1.1/lib/d11/JclTask.dcu create mode 100644 official/2.1.1/lib/d11/JclTimeZones.dcu create mode 100644 official/2.1.1/lib/d11/JclTrees.dcu create mode 100644 official/2.1.1/lib/d11/JclUnicode.dcu create mode 100644 official/2.1.1/lib/d11/JclUnicode.res create mode 100644 official/2.1.1/lib/d11/JclUnicodeBZip2.res create mode 100644 official/2.1.1/lib/d11/JclUnicodeZLib.res create mode 100644 official/2.1.1/lib/d11/JclUnitConv.dcu create mode 100644 official/2.1.1/lib/d11/JclUnitVersioning.dcu create mode 100644 official/2.1.1/lib/d11/JclUnitVersioningProviders.dcu create mode 100644 official/2.1.1/lib/d11/JclValidation.dcu create mode 100644 official/2.1.1/lib/d11/JclVcl.dcp create mode 100644 official/2.1.1/lib/d11/JclVcl.dcu create mode 100644 official/2.1.1/lib/d11/JclVclResources.dcu create mode 100644 official/2.1.1/lib/d11/JclVectors.dcu create mode 100644 official/2.1.1/lib/d11/JclVersionControl.dcu create mode 100644 official/2.1.1/lib/d11/JclVersionCtrlCVSImpl.dcu create mode 100644 official/2.1.1/lib/d11/JclVersionCtrlSVNImpl.dcu create mode 100644 official/2.1.1/lib/d11/JclWideFormat.dcu create mode 100644 official/2.1.1/lib/d11/JclWideStrings.dcu create mode 100644 official/2.1.1/lib/d11/JclWin32.dcu create mode 100644 official/2.1.1/lib/d11/JclWin32Ex.dcu create mode 100644 official/2.1.1/lib/d11/JclWinMIDI.dcu create mode 100644 official/2.1.1/lib/d11/MSHelpServices_TLB.dcu create mode 100644 official/2.1.1/lib/d11/MSTask.dcu create mode 100644 official/2.1.1/lib/d11/Snmp.dcu create mode 100644 official/2.1.1/lib/d11/bzip2.dcu create mode 100644 official/2.1.1/lib/d11/debug/Hardlinks.dcu create mode 100644 official/2.1.1/lib/d11/debug/Jcl8087.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclAbstractContainers.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclAlgorithms.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclAnsiStrings.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclAppInst.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclArrayLists.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclArraySets.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclBase.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclBinaryTrees.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclBorlandTools.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclCIL.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclCLR.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclCOM.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclCharsets.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclCommCtrlAdmin.res create mode 100644 official/2.1.1/lib/d11/debug/JclCommCtrlAsInvoker.res create mode 100644 official/2.1.1/lib/d11/debug/JclComplex.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclCompression.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclConsole.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclContainerIntf.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclCounter.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclDateTime.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclDebug.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclDebugSerialization.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclDebugXMLDeserializer.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclDebugXMLSerializer.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclDotNet.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclEDI.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclEDISEF.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclEDITranslators.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclEDIXML.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclEDI_ANSIX12.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclEDI_ANSIX12_Ext.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclEDI_UNEDIFACT.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclEDI_UNEDIFACT_Ext.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclExprEval.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclFileUtils.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclFont.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclGraphUtils.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclGraphics.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclHashMaps.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclHashSets.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclHookExcept.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclIniFiles.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclLANMan.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclLinkedLists.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclLocales.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclLogic.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclMIDI.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclMapi.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclMath.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclMetadata.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclMime.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclMiscel.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclMsdosSys.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclMultimedia.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclNTFS.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclNoDepAdmin.res create mode 100644 official/2.1.1/lib/d11/debug/JclNoDepAsInvoker.res create mode 100644 official/2.1.1/lib/d11/debug/JclNotify.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclOpenDialog.res create mode 100644 official/2.1.1/lib/d11/debug/JclOpenDialogFavorites.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclOpenDialogHooks.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclPCRE.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclPeImage.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclPrint.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclQueues.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclRTTI.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclRegistry.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclResources.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclSchedule.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclSecurity.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclShell.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclSimpleXml.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclSortedMaps.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclStacks.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclStatistics.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclStrHashMap.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclStreams.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclStringConversions.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclStringLists.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclStrings.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclStructStorage.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclSvcCtrl.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclSynch.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclSysInfo.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclSysUtils.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclTD32.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclTask.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclTimeZones.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclTrees.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclUnicode.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclUnicode.res create mode 100644 official/2.1.1/lib/d11/debug/JclUnicodeBZip2.res create mode 100644 official/2.1.1/lib/d11/debug/JclUnicodeZLib.res create mode 100644 official/2.1.1/lib/d11/debug/JclUnitConv.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclUnitVersioning.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclUnitVersioningProviders.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclValidation.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclVclResources.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclVectors.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclVersionControl.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclVersionCtrlCVSImpl.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclVersionCtrlSVNImpl.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclWideFormat.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclWideStrings.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclWin32.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclWin32Ex.dcu create mode 100644 official/2.1.1/lib/d11/debug/JclWinMIDI.dcu create mode 100644 official/2.1.1/lib/d11/debug/MSHelpServices_TLB.dcu create mode 100644 official/2.1.1/lib/d11/debug/MSTask.dcu create mode 100644 official/2.1.1/lib/d11/debug/Snmp.dcu create mode 100644 official/2.1.1/lib/d11/debug/bzip2.dcu create mode 100644 official/2.1.1/lib/d11/debug/dirinfo.txt create mode 100644 official/2.1.1/lib/d11/debug/mscoree_TLB.dcu create mode 100644 official/2.1.1/lib/d11/debug/mscorlib_TLB.dcu create mode 100644 official/2.1.1/lib/d11/debug/pcre.dcu create mode 100644 official/2.1.1/lib/d11/debug/sevenzip.dcu create mode 100644 official/2.1.1/lib/d11/debug/zlibh.dcu create mode 100644 official/2.1.1/lib/d11/dirinfo.txt create mode 100644 official/2.1.1/lib/d11/mscoree_TLB.dcu create mode 100644 official/2.1.1/lib/d11/mscorlib_TLB.dcu create mode 100644 official/2.1.1/lib/d11/pcre.dcu create mode 100644 official/2.1.1/lib/d11/sevenzip.dcu create mode 100644 official/2.1.1/lib/d11/zlibh.dcu create mode 100644 official/2.1.1/lib/d12/debug/dirinfo.txt create mode 100644 official/2.1.1/lib/d12/dirinfo.txt create mode 100644 official/2.1.1/lib/d14/debug/dirinfo.txt create mode 100644 official/2.1.1/lib/d14/dirinfo.txt create mode 100644 official/2.1.1/lib/d6/debug/dirinfo.txt create mode 100644 official/2.1.1/lib/d6/dirinfo.txt create mode 100644 official/2.1.1/lib/d7/debug/dirinfo.txt create mode 100644 official/2.1.1/lib/d7/dirinfo.txt create mode 100644 official/2.1.1/lib/d8/dirinfo.txt create mode 100644 official/2.1.1/lib/d9/debug/dirinfo.txt create mode 100644 official/2.1.1/lib/d9/dirinfo.txt create mode 100644 official/2.1.1/lib/dirinfo.txt create mode 100644 official/2.1.1/lib/fpc/dirinfo.txt create mode 100644 official/2.1.1/lib/fpc/i386-win32/dirinfo.txt create mode 100644 official/2.1.1/packages/BCB.bmk create mode 100644 official/2.1.1/packages/JclPackagesC60.bpg create mode 100644 official/2.1.1/packages/JclPackagesD100.bdsgroup create mode 100644 official/2.1.1/packages/JclPackagesD110.groupproj create mode 100644 official/2.1.1/packages/JclPackagesD120.groupproj create mode 100644 official/2.1.1/packages/JclPackagesD140.groupproj create mode 100644 official/2.1.1/packages/JclPackagesD60.bpg create mode 100644 official/2.1.1/packages/JclPackagesD70.bpg create mode 100644 official/2.1.1/packages/JclPackagesD90.bdsgroup create mode 100644 official/2.1.1/packages/c6/Jcl.RES create mode 100644 official/2.1.1/packages/c6/Jcl.bpk create mode 100644 official/2.1.1/packages/c6/Jcl.cpp create mode 100644 official/2.1.1/packages/c6/Jcl.dof create mode 100644 official/2.1.1/packages/c6/Jcl.dpk create mode 100644 official/2.1.1/packages/c6/Jcl.rc create mode 100644 official/2.1.1/packages/c6/JclBaseExpert.bpk create mode 100644 official/2.1.1/packages/c6/JclBaseExpert.cpp create mode 100644 official/2.1.1/packages/c6/JclBaseExpert.dof create mode 100644 official/2.1.1/packages/c6/JclBaseExpert.dpk create mode 100644 official/2.1.1/packages/c6/JclBaseExpert.rc create mode 100644 official/2.1.1/packages/c6/JclBaseExpert.res create mode 100644 official/2.1.1/packages/c6/JclContainers.bpk create mode 100644 official/2.1.1/packages/c6/JclContainers.cpp create mode 100644 official/2.1.1/packages/c6/JclContainers.dof create mode 100644 official/2.1.1/packages/c6/JclContainers.dpk create mode 100644 official/2.1.1/packages/c6/JclContainers.rc create mode 100644 official/2.1.1/packages/c6/JclContainers.res create mode 100644 official/2.1.1/packages/c6/JclDebugExpert.RES create mode 100644 official/2.1.1/packages/c6/JclDebugExpert.bpk create mode 100644 official/2.1.1/packages/c6/JclDebugExpert.cpp create mode 100644 official/2.1.1/packages/c6/JclDebugExpert.dof create mode 100644 official/2.1.1/packages/c6/JclDebugExpert.dpk create mode 100644 official/2.1.1/packages/c6/JclDebugExpert.rc create mode 100644 official/2.1.1/packages/c6/JclDebugExpertDLL.bpf create mode 100644 official/2.1.1/packages/c6/JclDebugExpertDLL.bpr create mode 100644 official/2.1.1/packages/c6/JclDebugExpertDLL.cpp create mode 100644 official/2.1.1/packages/c6/JclDebugExpertDLL.dof create mode 100644 official/2.1.1/packages/c6/JclDebugExpertDLL.rc create mode 100644 official/2.1.1/packages/c6/JclDebugExpertDLL.res create mode 100644 official/2.1.1/packages/c6/JclFavoriteFoldersExpert.RES create mode 100644 official/2.1.1/packages/c6/JclFavoriteFoldersExpert.bpk create mode 100644 official/2.1.1/packages/c6/JclFavoriteFoldersExpert.cpp create mode 100644 official/2.1.1/packages/c6/JclFavoriteFoldersExpert.dof create mode 100644 official/2.1.1/packages/c6/JclFavoriteFoldersExpert.dpk create mode 100644 official/2.1.1/packages/c6/JclFavoriteFoldersExpert.rc create mode 100644 official/2.1.1/packages/c6/JclFavoriteFoldersExpertDLL.bpf create mode 100644 official/2.1.1/packages/c6/JclFavoriteFoldersExpertDLL.bpr create mode 100644 official/2.1.1/packages/c6/JclFavoriteFoldersExpertDLL.cpp create mode 100644 official/2.1.1/packages/c6/JclFavoriteFoldersExpertDLL.dof create mode 100644 official/2.1.1/packages/c6/JclFavoriteFoldersExpertDLL.rc create mode 100644 official/2.1.1/packages/c6/JclFavoriteFoldersExpertDLL.res create mode 100644 official/2.1.1/packages/c6/JclProjectAnalysisExpert.RES create mode 100644 official/2.1.1/packages/c6/JclProjectAnalysisExpert.bpk create mode 100644 official/2.1.1/packages/c6/JclProjectAnalysisExpert.cpp create mode 100644 official/2.1.1/packages/c6/JclProjectAnalysisExpert.dof create mode 100644 official/2.1.1/packages/c6/JclProjectAnalysisExpert.dpk create mode 100644 official/2.1.1/packages/c6/JclProjectAnalysisExpert.rc create mode 100644 official/2.1.1/packages/c6/JclProjectAnalysisExpertDLL.bpf create mode 100644 official/2.1.1/packages/c6/JclProjectAnalysisExpertDLL.bpr create mode 100644 official/2.1.1/packages/c6/JclProjectAnalysisExpertDLL.cpp create mode 100644 official/2.1.1/packages/c6/JclProjectAnalysisExpertDLL.dof create mode 100644 official/2.1.1/packages/c6/JclProjectAnalysisExpertDLL.rc create mode 100644 official/2.1.1/packages/c6/JclProjectAnalysisExpertDLL.res create mode 100644 official/2.1.1/packages/c6/JclRepositoryExpert.bpk create mode 100644 official/2.1.1/packages/c6/JclRepositoryExpert.cpp create mode 100644 official/2.1.1/packages/c6/JclRepositoryExpert.dof create mode 100644 official/2.1.1/packages/c6/JclRepositoryExpert.dpk create mode 100644 official/2.1.1/packages/c6/JclRepositoryExpert.rc create mode 100644 official/2.1.1/packages/c6/JclRepositoryExpert.res create mode 100644 official/2.1.1/packages/c6/JclRepositoryExpertDLL.bpf create mode 100644 official/2.1.1/packages/c6/JclRepositoryExpertDLL.bpr create mode 100644 official/2.1.1/packages/c6/JclRepositoryExpertDLL.cpp create mode 100644 official/2.1.1/packages/c6/JclRepositoryExpertDLL.dof create mode 100644 official/2.1.1/packages/c6/JclRepositoryExpertDLL.rc create mode 100644 official/2.1.1/packages/c6/JclRepositoryExpertDLL.res create mode 100644 official/2.1.1/packages/c6/JclSIMDViewExpert.bpk create mode 100644 official/2.1.1/packages/c6/JclSIMDViewExpert.cpp create mode 100644 official/2.1.1/packages/c6/JclSIMDViewExpert.dof create mode 100644 official/2.1.1/packages/c6/JclSIMDViewExpert.dpk create mode 100644 official/2.1.1/packages/c6/JclSIMDViewExpert.rc create mode 100644 official/2.1.1/packages/c6/JclSIMDViewExpert.res create mode 100644 official/2.1.1/packages/c6/JclSIMDViewExpertDLL.bpf create mode 100644 official/2.1.1/packages/c6/JclSIMDViewExpertDLL.bpr create mode 100644 official/2.1.1/packages/c6/JclSIMDViewExpertDLL.cpp create mode 100644 official/2.1.1/packages/c6/JclSIMDViewExpertDLL.dof create mode 100644 official/2.1.1/packages/c6/JclSIMDViewExpertDLL.rc create mode 100644 official/2.1.1/packages/c6/JclSIMDViewExpertDLL.res create mode 100644 official/2.1.1/packages/c6/JclStackTraceViewerExpert.bpk create mode 100644 official/2.1.1/packages/c6/JclStackTraceViewerExpert.cpp create mode 100644 official/2.1.1/packages/c6/JclStackTraceViewerExpert.dof create mode 100644 official/2.1.1/packages/c6/JclStackTraceViewerExpert.dpk create mode 100644 official/2.1.1/packages/c6/JclStackTraceViewerExpert.rc create mode 100644 official/2.1.1/packages/c6/JclStackTraceViewerExpert.res create mode 100644 official/2.1.1/packages/c6/JclStackTraceViewerExpertDLL.bpf create mode 100644 official/2.1.1/packages/c6/JclStackTraceViewerExpertDLL.bpr create mode 100644 official/2.1.1/packages/c6/JclStackTraceViewerExpertDLL.cpp create mode 100644 official/2.1.1/packages/c6/JclStackTraceViewerExpertDLL.dof create mode 100644 official/2.1.1/packages/c6/JclStackTraceViewerExpertDLL.rc create mode 100644 official/2.1.1/packages/c6/JclStackTraceViewerExpertDLL.res create mode 100644 official/2.1.1/packages/c6/JclThreadNameExpert.RES create mode 100644 official/2.1.1/packages/c6/JclThreadNameExpert.bpk create mode 100644 official/2.1.1/packages/c6/JclThreadNameExpert.cpp create mode 100644 official/2.1.1/packages/c6/JclThreadNameExpert.dof create mode 100644 official/2.1.1/packages/c6/JclThreadNameExpert.dpk create mode 100644 official/2.1.1/packages/c6/JclThreadNameExpert.rc create mode 100644 official/2.1.1/packages/c6/JclThreadNameExpertDLL.bpf create mode 100644 official/2.1.1/packages/c6/JclThreadNameExpertDLL.bpr create mode 100644 official/2.1.1/packages/c6/JclThreadNameExpertDLL.cpp create mode 100644 official/2.1.1/packages/c6/JclThreadNameExpertDLL.dof create mode 100644 official/2.1.1/packages/c6/JclThreadNameExpertDLL.rc create mode 100644 official/2.1.1/packages/c6/JclThreadNameExpertDLL.res create mode 100644 official/2.1.1/packages/c6/JclUsesExpert.RES create mode 100644 official/2.1.1/packages/c6/JclUsesExpert.bpk create mode 100644 official/2.1.1/packages/c6/JclUsesExpert.cpp create mode 100644 official/2.1.1/packages/c6/JclUsesExpert.dof create mode 100644 official/2.1.1/packages/c6/JclUsesExpert.dpk create mode 100644 official/2.1.1/packages/c6/JclUsesExpert.rc create mode 100644 official/2.1.1/packages/c6/JclUsesExpertDLL.bpf create mode 100644 official/2.1.1/packages/c6/JclUsesExpertDLL.bpr create mode 100644 official/2.1.1/packages/c6/JclUsesExpertDLL.cpp create mode 100644 official/2.1.1/packages/c6/JclUsesExpertDLL.dof create mode 100644 official/2.1.1/packages/c6/JclUsesExpertDLL.rc create mode 100644 official/2.1.1/packages/c6/JclUsesExpertDLL.res create mode 100644 official/2.1.1/packages/c6/JclVcl.RES create mode 100644 official/2.1.1/packages/c6/JclVcl.bpk create mode 100644 official/2.1.1/packages/c6/JclVcl.cpp create mode 100644 official/2.1.1/packages/c6/JclVcl.dof create mode 100644 official/2.1.1/packages/c6/JclVcl.dpk create mode 100644 official/2.1.1/packages/c6/JclVcl.rc create mode 100644 official/2.1.1/packages/c6/JclVersionControlExpert.bpk create mode 100644 official/2.1.1/packages/c6/JclVersionControlExpert.cpp create mode 100644 official/2.1.1/packages/c6/JclVersionControlExpert.dof create mode 100644 official/2.1.1/packages/c6/JclVersionControlExpert.dpk create mode 100644 official/2.1.1/packages/c6/JclVersionControlExpert.rc create mode 100644 official/2.1.1/packages/c6/JclVersionControlExpert.res create mode 100644 official/2.1.1/packages/c6/JclVersionControlExpertDLL.bpf create mode 100644 official/2.1.1/packages/c6/JclVersionControlExpertDLL.bpr create mode 100644 official/2.1.1/packages/c6/JclVersionControlExpertDLL.cpp create mode 100644 official/2.1.1/packages/c6/JclVersionControlExpertDLL.dof create mode 100644 official/2.1.1/packages/c6/JclVersionControlExpertDLL.rc create mode 100644 official/2.1.1/packages/c6/JclVersionControlExpertDLL.res create mode 100644 official/2.1.1/packages/c6/dirinfo.txt create mode 100644 official/2.1.1/packages/c6/template.bpf create mode 100644 official/2.1.1/packages/c6/template.bpk create mode 100644 official/2.1.1/packages/c6/template.bpr create mode 100644 official/2.1.1/packages/c6/template.cpp create mode 100644 official/2.1.1/packages/c6/template.dof create mode 100644 official/2.1.1/packages/c6/template.dpk create mode 100644 official/2.1.1/packages/c6/template.rc create mode 100644 official/2.1.1/packages/cs1/Jcl.RES create mode 100644 official/2.1.1/packages/cs1/Jcl.bdsproj create mode 100644 official/2.1.1/packages/cs1/Jcl.dpk create mode 100644 official/2.1.1/packages/cs1/Jcl.rc create mode 100644 official/2.1.1/packages/cs1/JclBaseExpert.RES create mode 100644 official/2.1.1/packages/cs1/JclBaseExpert.bdsproj create mode 100644 official/2.1.1/packages/cs1/JclBaseExpert.dpk create mode 100644 official/2.1.1/packages/cs1/JclBaseExpert.rc create mode 100644 official/2.1.1/packages/cs1/JclContainers.bdsproj create mode 100644 official/2.1.1/packages/cs1/JclContainers.dpk create mode 100644 official/2.1.1/packages/cs1/JclContainers.rc create mode 100644 official/2.1.1/packages/cs1/JclContainers.res create mode 100644 official/2.1.1/packages/cs1/JclFavoriteFoldersExpertDLL.RES create mode 100644 official/2.1.1/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/cs1/JclFavoriteFoldersExpertDLL.dpr create mode 100644 official/2.1.1/packages/cs1/JclFavoriteFoldersExpertDLL.rc create mode 100644 official/2.1.1/packages/cs1/JclVersionControlExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/cs1/JclVersionControlExpertDLL.dpr create mode 100644 official/2.1.1/packages/cs1/JclVersionControlExpertDLL.rc create mode 100644 official/2.1.1/packages/cs1/JclVersionControlExpertDLL.res create mode 100644 official/2.1.1/packages/cs1/template.bdsproj create mode 100644 official/2.1.1/packages/cs1/template.dpk create mode 100644 official/2.1.1/packages/cs1/template.dpr create mode 100644 official/2.1.1/packages/cs1/template.rc create mode 100644 official/2.1.1/packages/d10/Jcl.bdsproj create mode 100644 official/2.1.1/packages/d10/Jcl.dpk create mode 100644 official/2.1.1/packages/d10/Jcl.rc create mode 100644 official/2.1.1/packages/d10/Jcl.res create mode 100644 official/2.1.1/packages/d10/JclBaseExpert.bdsproj create mode 100644 official/2.1.1/packages/d10/JclBaseExpert.dpk create mode 100644 official/2.1.1/packages/d10/JclBaseExpert.rc create mode 100644 official/2.1.1/packages/d10/JclBaseExpert.res create mode 100644 official/2.1.1/packages/d10/JclContainers.bdsproj create mode 100644 official/2.1.1/packages/d10/JclContainers.dpk create mode 100644 official/2.1.1/packages/d10/JclContainers.rc create mode 100644 official/2.1.1/packages/d10/JclContainers.res create mode 100644 official/2.1.1/packages/d10/JclDebugExpert.bdsproj create mode 100644 official/2.1.1/packages/d10/JclDebugExpert.dpk create mode 100644 official/2.1.1/packages/d10/JclDebugExpert.rc create mode 100644 official/2.1.1/packages/d10/JclDebugExpert.res create mode 100644 official/2.1.1/packages/d10/JclDebugExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d10/JclDebugExpertDLL.dpr create mode 100644 official/2.1.1/packages/d10/JclDebugExpertDLL.rc create mode 100644 official/2.1.1/packages/d10/JclDebugExpertDLL.res create mode 100644 official/2.1.1/packages/d10/JclExperts.bdsgroup create mode 100644 official/2.1.1/packages/d10/JclFavoriteFoldersExpert.bdsproj create mode 100644 official/2.1.1/packages/d10/JclFavoriteFoldersExpert.dpk create mode 100644 official/2.1.1/packages/d10/JclFavoriteFoldersExpert.rc create mode 100644 official/2.1.1/packages/d10/JclFavoriteFoldersExpert.res create mode 100644 official/2.1.1/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d10/JclFavoriteFoldersExpertDLL.dpr create mode 100644 official/2.1.1/packages/d10/JclFavoriteFoldersExpertDLL.rc create mode 100644 official/2.1.1/packages/d10/JclFavoriteFoldersExpertDLL.res create mode 100644 official/2.1.1/packages/d10/JclProjectAnalysisExpert.RES create mode 100644 official/2.1.1/packages/d10/JclProjectAnalysisExpert.bdsproj create mode 100644 official/2.1.1/packages/d10/JclProjectAnalysisExpert.dpk create mode 100644 official/2.1.1/packages/d10/JclProjectAnalysisExpert.rc create mode 100644 official/2.1.1/packages/d10/JclProjectAnalysisExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d10/JclProjectAnalysisExpertDLL.dpr create mode 100644 official/2.1.1/packages/d10/JclProjectAnalysisExpertDLL.rc create mode 100644 official/2.1.1/packages/d10/JclProjectAnalysisExpertDLL.res create mode 100644 official/2.1.1/packages/d10/JclRepositoryExpert.bdsproj create mode 100644 official/2.1.1/packages/d10/JclRepositoryExpert.dpk create mode 100644 official/2.1.1/packages/d10/JclRepositoryExpert.rc create mode 100644 official/2.1.1/packages/d10/JclRepositoryExpert.res create mode 100644 official/2.1.1/packages/d10/JclRepositoryExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d10/JclRepositoryExpertDLL.dpr create mode 100644 official/2.1.1/packages/d10/JclRepositoryExpertDLL.rc create mode 100644 official/2.1.1/packages/d10/JclRepositoryExpertDLL.res create mode 100644 official/2.1.1/packages/d10/JclSIMDViewExpert.bdsproj create mode 100644 official/2.1.1/packages/d10/JclSIMDViewExpert.dpk create mode 100644 official/2.1.1/packages/d10/JclSIMDViewExpert.rc create mode 100644 official/2.1.1/packages/d10/JclSIMDViewExpert.res create mode 100644 official/2.1.1/packages/d10/JclSIMDViewExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d10/JclSIMDViewExpertDLL.dpr create mode 100644 official/2.1.1/packages/d10/JclSIMDViewExpertDLL.rc create mode 100644 official/2.1.1/packages/d10/JclSIMDViewExpertDLL.res create mode 100644 official/2.1.1/packages/d10/JclStackTraceViewerExpert.bdsproj create mode 100644 official/2.1.1/packages/d10/JclStackTraceViewerExpert.dpk create mode 100644 official/2.1.1/packages/d10/JclStackTraceViewerExpert.rc create mode 100644 official/2.1.1/packages/d10/JclStackTraceViewerExpert.res create mode 100644 official/2.1.1/packages/d10/JclStackTraceViewerExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d10/JclStackTraceViewerExpertDLL.dpr create mode 100644 official/2.1.1/packages/d10/JclStackTraceViewerExpertDLL.rc create mode 100644 official/2.1.1/packages/d10/JclStackTraceViewerExpertDLL.res create mode 100644 official/2.1.1/packages/d10/JclVcl.bdsproj create mode 100644 official/2.1.1/packages/d10/JclVcl.dpk create mode 100644 official/2.1.1/packages/d10/JclVcl.rc create mode 100644 official/2.1.1/packages/d10/JclVcl.res create mode 100644 official/2.1.1/packages/d10/JclVersionControlExpert.bdsproj create mode 100644 official/2.1.1/packages/d10/JclVersionControlExpert.dpk create mode 100644 official/2.1.1/packages/d10/JclVersionControlExpert.rc create mode 100644 official/2.1.1/packages/d10/JclVersionControlExpert.res create mode 100644 official/2.1.1/packages/d10/JclVersionControlExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d10/JclVersionControlExpertDLL.dpr create mode 100644 official/2.1.1/packages/d10/JclVersionControlExpertDLL.rc create mode 100644 official/2.1.1/packages/d10/JclVersionControlExpertDLL.res create mode 100644 official/2.1.1/packages/d10/template.bdsproj create mode 100644 official/2.1.1/packages/d10/template.dpk create mode 100644 official/2.1.1/packages/d10/template.dpr create mode 100644 official/2.1.1/packages/d10/template.rc create mode 100644 official/2.1.1/packages/d11/Jcl.dpk create mode 100644 official/2.1.1/packages/d11/Jcl.dproj create mode 100644 official/2.1.1/packages/d11/Jcl.rc create mode 100644 official/2.1.1/packages/d11/Jcl.res create mode 100644 official/2.1.1/packages/d11/JclBaseExpert.dpk create mode 100644 official/2.1.1/packages/d11/JclBaseExpert.dproj create mode 100644 official/2.1.1/packages/d11/JclBaseExpert.rc create mode 100644 official/2.1.1/packages/d11/JclBaseExpert.res create mode 100644 official/2.1.1/packages/d11/JclContainers.dpk create mode 100644 official/2.1.1/packages/d11/JclContainers.dproj create mode 100644 official/2.1.1/packages/d11/JclContainers.rc create mode 100644 official/2.1.1/packages/d11/JclContainers.res create mode 100644 official/2.1.1/packages/d11/JclDebugExpert.dpk create mode 100644 official/2.1.1/packages/d11/JclDebugExpert.dproj create mode 100644 official/2.1.1/packages/d11/JclDebugExpert.rc create mode 100644 official/2.1.1/packages/d11/JclDebugExpert.res create mode 100644 official/2.1.1/packages/d11/JclDebugExpertDLL.dpr create mode 100644 official/2.1.1/packages/d11/JclDebugExpertDLL.dproj create mode 100644 official/2.1.1/packages/d11/JclDebugExpertDLL.rc create mode 100644 official/2.1.1/packages/d11/JclDebugExpertDLL.res create mode 100644 official/2.1.1/packages/d11/JclFavoriteFoldersExpert.dpk create mode 100644 official/2.1.1/packages/d11/JclFavoriteFoldersExpert.dproj create mode 100644 official/2.1.1/packages/d11/JclFavoriteFoldersExpert.rc create mode 100644 official/2.1.1/packages/d11/JclFavoriteFoldersExpert.res create mode 100644 official/2.1.1/packages/d11/JclFavoriteFoldersExpertDLL.dpr create mode 100644 official/2.1.1/packages/d11/JclFavoriteFoldersExpertDLL.dproj create mode 100644 official/2.1.1/packages/d11/JclFavoriteFoldersExpertDLL.rc create mode 100644 official/2.1.1/packages/d11/JclFavoriteFoldersExpertDLL.res create mode 100644 official/2.1.1/packages/d11/JclProjectAnalysisExpert.dpk create mode 100644 official/2.1.1/packages/d11/JclProjectAnalysisExpert.dproj create mode 100644 official/2.1.1/packages/d11/JclProjectAnalysisExpert.rc create mode 100644 official/2.1.1/packages/d11/JclProjectAnalysisExpert.res create mode 100644 official/2.1.1/packages/d11/JclProjectAnalysisExpertDLL.dpr create mode 100644 official/2.1.1/packages/d11/JclProjectAnalysisExpertDLL.dproj create mode 100644 official/2.1.1/packages/d11/JclProjectAnalysisExpertDLL.rc create mode 100644 official/2.1.1/packages/d11/JclProjectAnalysisExpertDLL.res create mode 100644 official/2.1.1/packages/d11/JclRepositoryExpert.dpk create mode 100644 official/2.1.1/packages/d11/JclRepositoryExpert.dproj create mode 100644 official/2.1.1/packages/d11/JclRepositoryExpert.rc create mode 100644 official/2.1.1/packages/d11/JclRepositoryExpert.res create mode 100644 official/2.1.1/packages/d11/JclRepositoryExpertDLL.dpr create mode 100644 official/2.1.1/packages/d11/JclRepositoryExpertDLL.dproj create mode 100644 official/2.1.1/packages/d11/JclRepositoryExpertDLL.rc create mode 100644 official/2.1.1/packages/d11/JclRepositoryExpertDLL.res create mode 100644 official/2.1.1/packages/d11/JclSIMDViewExpert.dpk create mode 100644 official/2.1.1/packages/d11/JclSIMDViewExpert.dproj create mode 100644 official/2.1.1/packages/d11/JclSIMDViewExpert.rc create mode 100644 official/2.1.1/packages/d11/JclSIMDViewExpert.res create mode 100644 official/2.1.1/packages/d11/JclSIMDViewExpertDLL.dpr create mode 100644 official/2.1.1/packages/d11/JclSIMDViewExpertDLL.dproj create mode 100644 official/2.1.1/packages/d11/JclSIMDViewExpertDLL.rc create mode 100644 official/2.1.1/packages/d11/JclSIMDViewExpertDLL.res create mode 100644 official/2.1.1/packages/d11/JclStackTraceViewerExpert.dpk create mode 100644 official/2.1.1/packages/d11/JclStackTraceViewerExpert.dproj create mode 100644 official/2.1.1/packages/d11/JclStackTraceViewerExpert.rc create mode 100644 official/2.1.1/packages/d11/JclStackTraceViewerExpert.res create mode 100644 official/2.1.1/packages/d11/JclStackTraceViewerExpertDLL.dpr create mode 100644 official/2.1.1/packages/d11/JclStackTraceViewerExpertDLL.dproj create mode 100644 official/2.1.1/packages/d11/JclStackTraceViewerExpertDLL.rc create mode 100644 official/2.1.1/packages/d11/JclStackTraceViewerExpertDLL.res create mode 100644 official/2.1.1/packages/d11/JclVcl.dpk create mode 100644 official/2.1.1/packages/d11/JclVcl.dproj create mode 100644 official/2.1.1/packages/d11/JclVcl.rc create mode 100644 official/2.1.1/packages/d11/JclVcl.res create mode 100644 official/2.1.1/packages/d11/JclVersionControlExpert.dpk create mode 100644 official/2.1.1/packages/d11/JclVersionControlExpert.dproj create mode 100644 official/2.1.1/packages/d11/JclVersionControlExpert.rc create mode 100644 official/2.1.1/packages/d11/JclVersionControlExpert.res create mode 100644 official/2.1.1/packages/d11/JclVersionControlExpertDLL.dpr create mode 100644 official/2.1.1/packages/d11/JclVersionControlExpertDLL.dproj create mode 100644 official/2.1.1/packages/d11/JclVersionControlExpertDLL.rc create mode 100644 official/2.1.1/packages/d11/JclVersionControlExpertDLL.res create mode 100644 official/2.1.1/packages/d11/template.dpk create mode 100644 official/2.1.1/packages/d11/template.dpr create mode 100644 official/2.1.1/packages/d11/template.dproj create mode 100644 official/2.1.1/packages/d11/template.rc create mode 100644 official/2.1.1/packages/d12/Jcl.dpk create mode 100644 official/2.1.1/packages/d12/Jcl.dproj create mode 100644 official/2.1.1/packages/d12/Jcl.rc create mode 100644 official/2.1.1/packages/d12/Jcl.res create mode 100644 official/2.1.1/packages/d12/JclBaseExpert.dpk create mode 100644 official/2.1.1/packages/d12/JclBaseExpert.dproj create mode 100644 official/2.1.1/packages/d12/JclBaseExpert.rc create mode 100644 official/2.1.1/packages/d12/JclBaseExpert.res create mode 100644 official/2.1.1/packages/d12/JclContainers.dpk create mode 100644 official/2.1.1/packages/d12/JclContainers.dproj create mode 100644 official/2.1.1/packages/d12/JclContainers.rc create mode 100644 official/2.1.1/packages/d12/JclContainers.res create mode 100644 official/2.1.1/packages/d12/JclDebugExpert.dpk create mode 100644 official/2.1.1/packages/d12/JclDebugExpert.dproj create mode 100644 official/2.1.1/packages/d12/JclDebugExpert.rc create mode 100644 official/2.1.1/packages/d12/JclDebugExpert.res create mode 100644 official/2.1.1/packages/d12/JclDebugExpertDLL.dpr create mode 100644 official/2.1.1/packages/d12/JclDebugExpertDLL.dproj create mode 100644 official/2.1.1/packages/d12/JclDebugExpertDLL.rc create mode 100644 official/2.1.1/packages/d12/JclDebugExpertDLL.res create mode 100644 official/2.1.1/packages/d12/JclFavoriteFoldersExpert.dpk create mode 100644 official/2.1.1/packages/d12/JclFavoriteFoldersExpert.dproj create mode 100644 official/2.1.1/packages/d12/JclFavoriteFoldersExpert.rc create mode 100644 official/2.1.1/packages/d12/JclFavoriteFoldersExpert.res create mode 100644 official/2.1.1/packages/d12/JclFavoriteFoldersExpertDLL.dpr create mode 100644 official/2.1.1/packages/d12/JclFavoriteFoldersExpertDLL.dproj create mode 100644 official/2.1.1/packages/d12/JclFavoriteFoldersExpertDLL.rc create mode 100644 official/2.1.1/packages/d12/JclFavoriteFoldersExpertDLL.res create mode 100644 official/2.1.1/packages/d12/JclProjectAnalysisExpert.dpk create mode 100644 official/2.1.1/packages/d12/JclProjectAnalysisExpert.dproj create mode 100644 official/2.1.1/packages/d12/JclProjectAnalysisExpert.rc create mode 100644 official/2.1.1/packages/d12/JclProjectAnalysisExpert.res create mode 100644 official/2.1.1/packages/d12/JclProjectAnalysisExpertDLL.dpr create mode 100644 official/2.1.1/packages/d12/JclProjectAnalysisExpertDLL.dproj create mode 100644 official/2.1.1/packages/d12/JclProjectAnalysisExpertDLL.rc create mode 100644 official/2.1.1/packages/d12/JclProjectAnalysisExpertDLL.res create mode 100644 official/2.1.1/packages/d12/JclRepositoryExpert.dpk create mode 100644 official/2.1.1/packages/d12/JclRepositoryExpert.dproj create mode 100644 official/2.1.1/packages/d12/JclRepositoryExpert.rc create mode 100644 official/2.1.1/packages/d12/JclRepositoryExpert.res create mode 100644 official/2.1.1/packages/d12/JclRepositoryExpertDLL.dpr create mode 100644 official/2.1.1/packages/d12/JclRepositoryExpertDLL.dproj create mode 100644 official/2.1.1/packages/d12/JclRepositoryExpertDLL.rc create mode 100644 official/2.1.1/packages/d12/JclRepositoryExpertDLL.res create mode 100644 official/2.1.1/packages/d12/JclSIMDViewExpert.dpk create mode 100644 official/2.1.1/packages/d12/JclSIMDViewExpert.dproj create mode 100644 official/2.1.1/packages/d12/JclSIMDViewExpert.rc create mode 100644 official/2.1.1/packages/d12/JclSIMDViewExpert.res create mode 100644 official/2.1.1/packages/d12/JclSIMDViewExpertDLL.dpr create mode 100644 official/2.1.1/packages/d12/JclSIMDViewExpertDLL.dproj create mode 100644 official/2.1.1/packages/d12/JclSIMDViewExpertDLL.rc create mode 100644 official/2.1.1/packages/d12/JclSIMDViewExpertDLL.res create mode 100644 official/2.1.1/packages/d12/JclStackTraceViewerExpert.dpk create mode 100644 official/2.1.1/packages/d12/JclStackTraceViewerExpert.dproj create mode 100644 official/2.1.1/packages/d12/JclStackTraceViewerExpert.rc create mode 100644 official/2.1.1/packages/d12/JclStackTraceViewerExpert.res create mode 100644 official/2.1.1/packages/d12/JclStackTraceViewerExpertDLL.dpr create mode 100644 official/2.1.1/packages/d12/JclStackTraceViewerExpertDLL.dproj create mode 100644 official/2.1.1/packages/d12/JclStackTraceViewerExpertDLL.rc create mode 100644 official/2.1.1/packages/d12/JclStackTraceViewerExpertDLL.res create mode 100644 official/2.1.1/packages/d12/JclVcl.dpk create mode 100644 official/2.1.1/packages/d12/JclVcl.dproj create mode 100644 official/2.1.1/packages/d12/JclVcl.rc create mode 100644 official/2.1.1/packages/d12/JclVcl.res create mode 100644 official/2.1.1/packages/d12/JclVersionControlExpert.dpk create mode 100644 official/2.1.1/packages/d12/JclVersionControlExpert.dproj create mode 100644 official/2.1.1/packages/d12/JclVersionControlExpert.rc create mode 100644 official/2.1.1/packages/d12/JclVersionControlExpert.res create mode 100644 official/2.1.1/packages/d12/JclVersionControlExpertDLL.dpr create mode 100644 official/2.1.1/packages/d12/JclVersionControlExpertDLL.dproj create mode 100644 official/2.1.1/packages/d12/JclVersionControlExpertDLL.rc create mode 100644 official/2.1.1/packages/d12/JclVersionControlExpertDLL.res create mode 100644 official/2.1.1/packages/d12/template.dpk create mode 100644 official/2.1.1/packages/d12/template.dpr create mode 100644 official/2.1.1/packages/d12/template.dproj create mode 100644 official/2.1.1/packages/d12/template.rc create mode 100644 official/2.1.1/packages/d14/Jcl.dpk create mode 100644 official/2.1.1/packages/d14/Jcl.dproj create mode 100644 official/2.1.1/packages/d14/Jcl.rc create mode 100644 official/2.1.1/packages/d14/Jcl.res create mode 100644 official/2.1.1/packages/d14/JclBaseExpert.dpk create mode 100644 official/2.1.1/packages/d14/JclBaseExpert.dproj create mode 100644 official/2.1.1/packages/d14/JclBaseExpert.rc create mode 100644 official/2.1.1/packages/d14/JclBaseExpert.res create mode 100644 official/2.1.1/packages/d14/JclContainers.dpk create mode 100644 official/2.1.1/packages/d14/JclContainers.dproj create mode 100644 official/2.1.1/packages/d14/JclContainers.rc create mode 100644 official/2.1.1/packages/d14/JclContainers.res create mode 100644 official/2.1.1/packages/d14/JclDebugExpert.dpk create mode 100644 official/2.1.1/packages/d14/JclDebugExpert.dproj create mode 100644 official/2.1.1/packages/d14/JclDebugExpert.rc create mode 100644 official/2.1.1/packages/d14/JclDebugExpert.res create mode 100644 official/2.1.1/packages/d14/JclDebugExpertDLL.dpr create mode 100644 official/2.1.1/packages/d14/JclDebugExpertDLL.dproj create mode 100644 official/2.1.1/packages/d14/JclDebugExpertDLL.rc create mode 100644 official/2.1.1/packages/d14/JclDebugExpertDLL.res create mode 100644 official/2.1.1/packages/d14/JclFavoriteFoldersExpert.dpk create mode 100644 official/2.1.1/packages/d14/JclFavoriteFoldersExpert.dproj create mode 100644 official/2.1.1/packages/d14/JclFavoriteFoldersExpert.rc create mode 100644 official/2.1.1/packages/d14/JclFavoriteFoldersExpert.res create mode 100644 official/2.1.1/packages/d14/JclFavoriteFoldersExpertDLL.dpr create mode 100644 official/2.1.1/packages/d14/JclFavoriteFoldersExpertDLL.dproj create mode 100644 official/2.1.1/packages/d14/JclFavoriteFoldersExpertDLL.rc create mode 100644 official/2.1.1/packages/d14/JclFavoriteFoldersExpertDLL.res create mode 100644 official/2.1.1/packages/d14/JclProjectAnalysisExpert.dpk create mode 100644 official/2.1.1/packages/d14/JclProjectAnalysisExpert.dproj create mode 100644 official/2.1.1/packages/d14/JclProjectAnalysisExpert.rc create mode 100644 official/2.1.1/packages/d14/JclProjectAnalysisExpert.res create mode 100644 official/2.1.1/packages/d14/JclProjectAnalysisExpertDLL.dpr create mode 100644 official/2.1.1/packages/d14/JclProjectAnalysisExpertDLL.dproj create mode 100644 official/2.1.1/packages/d14/JclProjectAnalysisExpertDLL.rc create mode 100644 official/2.1.1/packages/d14/JclProjectAnalysisExpertDLL.res create mode 100644 official/2.1.1/packages/d14/JclRepositoryExpert.dpk create mode 100644 official/2.1.1/packages/d14/JclRepositoryExpert.dproj create mode 100644 official/2.1.1/packages/d14/JclRepositoryExpert.rc create mode 100644 official/2.1.1/packages/d14/JclRepositoryExpert.res create mode 100644 official/2.1.1/packages/d14/JclRepositoryExpertDLL.dpr create mode 100644 official/2.1.1/packages/d14/JclRepositoryExpertDLL.dproj create mode 100644 official/2.1.1/packages/d14/JclRepositoryExpertDLL.rc create mode 100644 official/2.1.1/packages/d14/JclRepositoryExpertDLL.res create mode 100644 official/2.1.1/packages/d14/JclSIMDViewExpert.dpk create mode 100644 official/2.1.1/packages/d14/JclSIMDViewExpert.dproj create mode 100644 official/2.1.1/packages/d14/JclSIMDViewExpert.rc create mode 100644 official/2.1.1/packages/d14/JclSIMDViewExpert.res create mode 100644 official/2.1.1/packages/d14/JclSIMDViewExpertDLL.dpr create mode 100644 official/2.1.1/packages/d14/JclSIMDViewExpertDLL.dproj create mode 100644 official/2.1.1/packages/d14/JclSIMDViewExpertDLL.rc create mode 100644 official/2.1.1/packages/d14/JclSIMDViewExpertDLL.res create mode 100644 official/2.1.1/packages/d14/JclStackTraceViewerExpert.dpk create mode 100644 official/2.1.1/packages/d14/JclStackTraceViewerExpert.dproj create mode 100644 official/2.1.1/packages/d14/JclStackTraceViewerExpert.rc create mode 100644 official/2.1.1/packages/d14/JclStackTraceViewerExpert.res create mode 100644 official/2.1.1/packages/d14/JclStackTraceViewerExpertDLL.dpr create mode 100644 official/2.1.1/packages/d14/JclStackTraceViewerExpertDLL.dproj create mode 100644 official/2.1.1/packages/d14/JclStackTraceViewerExpertDLL.rc create mode 100644 official/2.1.1/packages/d14/JclStackTraceViewerExpertDLL.res create mode 100644 official/2.1.1/packages/d14/JclVcl.dpk create mode 100644 official/2.1.1/packages/d14/JclVcl.dproj create mode 100644 official/2.1.1/packages/d14/JclVcl.rc create mode 100644 official/2.1.1/packages/d14/JclVcl.res create mode 100644 official/2.1.1/packages/d14/JclVersionControlExpert.dpk create mode 100644 official/2.1.1/packages/d14/JclVersionControlExpert.dproj create mode 100644 official/2.1.1/packages/d14/JclVersionControlExpert.rc create mode 100644 official/2.1.1/packages/d14/JclVersionControlExpert.res create mode 100644 official/2.1.1/packages/d14/JclVersionControlExpertDLL.dpr create mode 100644 official/2.1.1/packages/d14/JclVersionControlExpertDLL.dproj create mode 100644 official/2.1.1/packages/d14/JclVersionControlExpertDLL.rc create mode 100644 official/2.1.1/packages/d14/JclVersionControlExpertDLL.res create mode 100644 official/2.1.1/packages/d14/template.dpk create mode 100644 official/2.1.1/packages/d14/template.dpr create mode 100644 official/2.1.1/packages/d14/template.dproj create mode 100644 official/2.1.1/packages/d14/template.rc create mode 100644 official/2.1.1/packages/d6/Jcl.dof create mode 100644 official/2.1.1/packages/d6/Jcl.dpk create mode 100644 official/2.1.1/packages/d6/Jcl.rc create mode 100644 official/2.1.1/packages/d6/Jcl.res create mode 100644 official/2.1.1/packages/d6/JclBaseExpert.dof create mode 100644 official/2.1.1/packages/d6/JclBaseExpert.dpk create mode 100644 official/2.1.1/packages/d6/JclBaseExpert.rc create mode 100644 official/2.1.1/packages/d6/JclBaseExpert.res create mode 100644 official/2.1.1/packages/d6/JclContainers.dof create mode 100644 official/2.1.1/packages/d6/JclContainers.dpk create mode 100644 official/2.1.1/packages/d6/JclContainers.rc create mode 100644 official/2.1.1/packages/d6/JclContainers.res create mode 100644 official/2.1.1/packages/d6/JclDebugExpert.dof create mode 100644 official/2.1.1/packages/d6/JclDebugExpert.dpk create mode 100644 official/2.1.1/packages/d6/JclDebugExpert.rc create mode 100644 official/2.1.1/packages/d6/JclDebugExpert.res create mode 100644 official/2.1.1/packages/d6/JclDebugExpertDLL.RES create mode 100644 official/2.1.1/packages/d6/JclDebugExpertDLL.dof create mode 100644 official/2.1.1/packages/d6/JclDebugExpertDLL.dpr create mode 100644 official/2.1.1/packages/d6/JclDebugExpertDLL.rc create mode 100644 official/2.1.1/packages/d6/JclFavoriteFoldersExpert.dof create mode 100644 official/2.1.1/packages/d6/JclFavoriteFoldersExpert.dpk create mode 100644 official/2.1.1/packages/d6/JclFavoriteFoldersExpert.rc create mode 100644 official/2.1.1/packages/d6/JclFavoriteFoldersExpert.res create mode 100644 official/2.1.1/packages/d6/JclFavoriteFoldersExpertDLL.RES create mode 100644 official/2.1.1/packages/d6/JclFavoriteFoldersExpertDLL.dof create mode 100644 official/2.1.1/packages/d6/JclFavoriteFoldersExpertDLL.dpr create mode 100644 official/2.1.1/packages/d6/JclFavoriteFoldersExpertDLL.rc create mode 100644 official/2.1.1/packages/d6/JclProjectAnalysisExpert.RES create mode 100644 official/2.1.1/packages/d6/JclProjectAnalysisExpert.dof create mode 100644 official/2.1.1/packages/d6/JclProjectAnalysisExpert.dpk create mode 100644 official/2.1.1/packages/d6/JclProjectAnalysisExpert.rc create mode 100644 official/2.1.1/packages/d6/JclProjectAnalysisExpertDLL.RES create mode 100644 official/2.1.1/packages/d6/JclProjectAnalysisExpertDLL.dof create mode 100644 official/2.1.1/packages/d6/JclProjectAnalysisExpertDLL.dpr create mode 100644 official/2.1.1/packages/d6/JclProjectAnalysisExpertDLL.rc create mode 100644 official/2.1.1/packages/d6/JclRepositoryExpert.dof create mode 100644 official/2.1.1/packages/d6/JclRepositoryExpert.dpk create mode 100644 official/2.1.1/packages/d6/JclRepositoryExpert.rc create mode 100644 official/2.1.1/packages/d6/JclRepositoryExpert.res create mode 100644 official/2.1.1/packages/d6/JclRepositoryExpertDLL.dof create mode 100644 official/2.1.1/packages/d6/JclRepositoryExpertDLL.dpr create mode 100644 official/2.1.1/packages/d6/JclRepositoryExpertDLL.rc create mode 100644 official/2.1.1/packages/d6/JclRepositoryExpertDLL.res create mode 100644 official/2.1.1/packages/d6/JclSIMDViewExpert.dof create mode 100644 official/2.1.1/packages/d6/JclSIMDViewExpert.dpk create mode 100644 official/2.1.1/packages/d6/JclSIMDViewExpert.rc create mode 100644 official/2.1.1/packages/d6/JclSIMDViewExpert.res create mode 100644 official/2.1.1/packages/d6/JclSIMDViewExpertDLL.RES create mode 100644 official/2.1.1/packages/d6/JclSIMDViewExpertDLL.dof create mode 100644 official/2.1.1/packages/d6/JclSIMDViewExpertDLL.dpr create mode 100644 official/2.1.1/packages/d6/JclSIMDViewExpertDLL.rc create mode 100644 official/2.1.1/packages/d6/JclStackTraceViewerExpert.dof create mode 100644 official/2.1.1/packages/d6/JclStackTraceViewerExpert.dpk create mode 100644 official/2.1.1/packages/d6/JclStackTraceViewerExpert.rc create mode 100644 official/2.1.1/packages/d6/JclStackTraceViewerExpert.res create mode 100644 official/2.1.1/packages/d6/JclStackTraceViewerExpertDLL.dof create mode 100644 official/2.1.1/packages/d6/JclStackTraceViewerExpertDLL.dpr create mode 100644 official/2.1.1/packages/d6/JclStackTraceViewerExpertDLL.rc create mode 100644 official/2.1.1/packages/d6/JclStackTraceViewerExpertDLL.res create mode 100644 official/2.1.1/packages/d6/JclThreadNameExpert.dof create mode 100644 official/2.1.1/packages/d6/JclThreadNameExpert.dpk create mode 100644 official/2.1.1/packages/d6/JclThreadNameExpert.rc create mode 100644 official/2.1.1/packages/d6/JclThreadNameExpert.res create mode 100644 official/2.1.1/packages/d6/JclThreadNameExpertDLL.RES create mode 100644 official/2.1.1/packages/d6/JclThreadNameExpertDLL.dof create mode 100644 official/2.1.1/packages/d6/JclThreadNameExpertDLL.dpr create mode 100644 official/2.1.1/packages/d6/JclThreadNameExpertDLL.rc create mode 100644 official/2.1.1/packages/d6/JclUsesExpert.dof create mode 100644 official/2.1.1/packages/d6/JclUsesExpert.dpk create mode 100644 official/2.1.1/packages/d6/JclUsesExpert.rc create mode 100644 official/2.1.1/packages/d6/JclUsesExpert.res create mode 100644 official/2.1.1/packages/d6/JclUsesExpertDLL.RES create mode 100644 official/2.1.1/packages/d6/JclUsesExpertDLL.dof create mode 100644 official/2.1.1/packages/d6/JclUsesExpertDLL.dpr create mode 100644 official/2.1.1/packages/d6/JclUsesExpertDLL.rc create mode 100644 official/2.1.1/packages/d6/JclVcl.dof create mode 100644 official/2.1.1/packages/d6/JclVcl.dpk create mode 100644 official/2.1.1/packages/d6/JclVcl.rc create mode 100644 official/2.1.1/packages/d6/JclVcl.res create mode 100644 official/2.1.1/packages/d6/JclVersionControlExpert.dof create mode 100644 official/2.1.1/packages/d6/JclVersionControlExpert.dpk create mode 100644 official/2.1.1/packages/d6/JclVersionControlExpert.rc create mode 100644 official/2.1.1/packages/d6/JclVersionControlExpert.res create mode 100644 official/2.1.1/packages/d6/JclVersionControlExpertDLL.dof create mode 100644 official/2.1.1/packages/d6/JclVersionControlExpertDLL.dpr create mode 100644 official/2.1.1/packages/d6/JclVersionControlExpertDLL.rc create mode 100644 official/2.1.1/packages/d6/JclVersionControlExpertDLL.res create mode 100644 official/2.1.1/packages/d6/dirinfo.txt create mode 100644 official/2.1.1/packages/d6/template.dof create mode 100644 official/2.1.1/packages/d6/template.dpk create mode 100644 official/2.1.1/packages/d6/template.dpr create mode 100644 official/2.1.1/packages/d6/template.rc create mode 100644 official/2.1.1/packages/d7/Jcl.dof create mode 100644 official/2.1.1/packages/d7/Jcl.dpk create mode 100644 official/2.1.1/packages/d7/Jcl.rc create mode 100644 official/2.1.1/packages/d7/Jcl.res create mode 100644 official/2.1.1/packages/d7/JclBaseExpert.dof create mode 100644 official/2.1.1/packages/d7/JclBaseExpert.dpk create mode 100644 official/2.1.1/packages/d7/JclBaseExpert.rc create mode 100644 official/2.1.1/packages/d7/JclBaseExpert.res create mode 100644 official/2.1.1/packages/d7/JclContainers.dof create mode 100644 official/2.1.1/packages/d7/JclContainers.dpk create mode 100644 official/2.1.1/packages/d7/JclContainers.rc create mode 100644 official/2.1.1/packages/d7/JclContainers.res create mode 100644 official/2.1.1/packages/d7/JclDebugExpert.dof create mode 100644 official/2.1.1/packages/d7/JclDebugExpert.dpk create mode 100644 official/2.1.1/packages/d7/JclDebugExpert.rc create mode 100644 official/2.1.1/packages/d7/JclDebugExpert.res create mode 100644 official/2.1.1/packages/d7/JclDebugExpertDLL.RES create mode 100644 official/2.1.1/packages/d7/JclDebugExpertDLL.dof create mode 100644 official/2.1.1/packages/d7/JclDebugExpertDLL.dpr create mode 100644 official/2.1.1/packages/d7/JclDebugExpertDLL.rc create mode 100644 official/2.1.1/packages/d7/JclFavoriteFoldersExpert.dof create mode 100644 official/2.1.1/packages/d7/JclFavoriteFoldersExpert.dpk create mode 100644 official/2.1.1/packages/d7/JclFavoriteFoldersExpert.rc create mode 100644 official/2.1.1/packages/d7/JclFavoriteFoldersExpert.res create mode 100644 official/2.1.1/packages/d7/JclFavoriteFoldersExpertDLL.RES create mode 100644 official/2.1.1/packages/d7/JclFavoriteFoldersExpertDLL.dof create mode 100644 official/2.1.1/packages/d7/JclFavoriteFoldersExpertDLL.dpr create mode 100644 official/2.1.1/packages/d7/JclFavoriteFoldersExpertDLL.rc create mode 100644 official/2.1.1/packages/d7/JclProjectAnalysisExpert.RES create mode 100644 official/2.1.1/packages/d7/JclProjectAnalysisExpert.dof create mode 100644 official/2.1.1/packages/d7/JclProjectAnalysisExpert.dpk create mode 100644 official/2.1.1/packages/d7/JclProjectAnalysisExpert.rc create mode 100644 official/2.1.1/packages/d7/JclProjectAnalysisExpertDLL.RES create mode 100644 official/2.1.1/packages/d7/JclProjectAnalysisExpertDLL.dof create mode 100644 official/2.1.1/packages/d7/JclProjectAnalysisExpertDLL.dpr create mode 100644 official/2.1.1/packages/d7/JclProjectAnalysisExpertDLL.rc create mode 100644 official/2.1.1/packages/d7/JclRepositoryExpert.dof create mode 100644 official/2.1.1/packages/d7/JclRepositoryExpert.dpk create mode 100644 official/2.1.1/packages/d7/JclRepositoryExpert.rc create mode 100644 official/2.1.1/packages/d7/JclRepositoryExpert.res create mode 100644 official/2.1.1/packages/d7/JclRepositoryExpertDLL.dof create mode 100644 official/2.1.1/packages/d7/JclRepositoryExpertDLL.dpr create mode 100644 official/2.1.1/packages/d7/JclRepositoryExpertDLL.rc create mode 100644 official/2.1.1/packages/d7/JclRepositoryExpertDLL.res create mode 100644 official/2.1.1/packages/d7/JclSIMDViewExpert.dof create mode 100644 official/2.1.1/packages/d7/JclSIMDViewExpert.dpk create mode 100644 official/2.1.1/packages/d7/JclSIMDViewExpert.rc create mode 100644 official/2.1.1/packages/d7/JclSIMDViewExpert.res create mode 100644 official/2.1.1/packages/d7/JclSIMDViewExpertDLL.RES create mode 100644 official/2.1.1/packages/d7/JclSIMDViewExpertDLL.dof create mode 100644 official/2.1.1/packages/d7/JclSIMDViewExpertDLL.dpr create mode 100644 official/2.1.1/packages/d7/JclSIMDViewExpertDLL.rc create mode 100644 official/2.1.1/packages/d7/JclStackTraceViewerExpert.dof create mode 100644 official/2.1.1/packages/d7/JclStackTraceViewerExpert.dpk create mode 100644 official/2.1.1/packages/d7/JclStackTraceViewerExpert.rc create mode 100644 official/2.1.1/packages/d7/JclStackTraceViewerExpert.res create mode 100644 official/2.1.1/packages/d7/JclStackTraceViewerExpertDLL.dof create mode 100644 official/2.1.1/packages/d7/JclStackTraceViewerExpertDLL.dpr create mode 100644 official/2.1.1/packages/d7/JclStackTraceViewerExpertDLL.rc create mode 100644 official/2.1.1/packages/d7/JclStackTraceViewerExpertDLL.res create mode 100644 official/2.1.1/packages/d7/JclUsesExpert.dof create mode 100644 official/2.1.1/packages/d7/JclUsesExpert.dpk create mode 100644 official/2.1.1/packages/d7/JclUsesExpert.rc create mode 100644 official/2.1.1/packages/d7/JclUsesExpert.res create mode 100644 official/2.1.1/packages/d7/JclUsesExpertDLL.RES create mode 100644 official/2.1.1/packages/d7/JclUsesExpertDLL.dof create mode 100644 official/2.1.1/packages/d7/JclUsesExpertDLL.dpr create mode 100644 official/2.1.1/packages/d7/JclUsesExpertDLL.rc create mode 100644 official/2.1.1/packages/d7/JclVcl.dof create mode 100644 official/2.1.1/packages/d7/JclVcl.dpk create mode 100644 official/2.1.1/packages/d7/JclVcl.rc create mode 100644 official/2.1.1/packages/d7/JclVcl.res create mode 100644 official/2.1.1/packages/d7/JclVersionControlExpert.dof create mode 100644 official/2.1.1/packages/d7/JclVersionControlExpert.dpk create mode 100644 official/2.1.1/packages/d7/JclVersionControlExpert.rc create mode 100644 official/2.1.1/packages/d7/JclVersionControlExpert.res create mode 100644 official/2.1.1/packages/d7/JclVersionControlExpertDLL.dof create mode 100644 official/2.1.1/packages/d7/JclVersionControlExpertDLL.dpr create mode 100644 official/2.1.1/packages/d7/JclVersionControlExpertDLL.rc create mode 100644 official/2.1.1/packages/d7/JclVersionControlExpertDLL.res create mode 100644 official/2.1.1/packages/d7/dirinfo.txt create mode 100644 official/2.1.1/packages/d7/template.dof create mode 100644 official/2.1.1/packages/d7/template.dpk create mode 100644 official/2.1.1/packages/d7/template.dpr create mode 100644 official/2.1.1/packages/d7/template.rc create mode 100644 official/2.1.1/packages/d8/Jcl.RES create mode 100644 official/2.1.1/packages/d8/Jcl.bdsproj create mode 100644 official/2.1.1/packages/d8/Jcl.dpk create mode 100644 official/2.1.1/packages/d8/Jcl.rc create mode 100644 official/2.1.1/packages/d8/JclBaseExpert.RES create mode 100644 official/2.1.1/packages/d8/JclBaseExpert.bdsproj create mode 100644 official/2.1.1/packages/d8/JclBaseExpert.dpk create mode 100644 official/2.1.1/packages/d8/JclBaseExpert.rc create mode 100644 official/2.1.1/packages/d8/JclContainers.bdsproj create mode 100644 official/2.1.1/packages/d8/JclContainers.dpk create mode 100644 official/2.1.1/packages/d8/JclContainers.rc create mode 100644 official/2.1.1/packages/d8/JclContainers.res create mode 100644 official/2.1.1/packages/d8/JclFavoriteFoldersExpertDLL.RES create mode 100644 official/2.1.1/packages/d8/JclFavoriteFoldersExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d8/JclFavoriteFoldersExpertDLL.dpr create mode 100644 official/2.1.1/packages/d8/JclFavoriteFoldersExpertDLL.rc create mode 100644 official/2.1.1/packages/d8/JclVersionControlExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d8/JclVersionControlExpertDLL.dpr create mode 100644 official/2.1.1/packages/d8/JclVersionControlExpertDLL.rc create mode 100644 official/2.1.1/packages/d8/JclVersionControlExpertDLL.res create mode 100644 official/2.1.1/packages/d8/template.bdsproj create mode 100644 official/2.1.1/packages/d8/template.dpk create mode 100644 official/2.1.1/packages/d8/template.dpr create mode 100644 official/2.1.1/packages/d8/template.rc create mode 100644 official/2.1.1/packages/d9/Jcl.RES create mode 100644 official/2.1.1/packages/d9/Jcl.bdsproj create mode 100644 official/2.1.1/packages/d9/Jcl.dpk create mode 100644 official/2.1.1/packages/d9/Jcl.rc create mode 100644 official/2.1.1/packages/d9/JclBaseExpert.bdsproj create mode 100644 official/2.1.1/packages/d9/JclBaseExpert.dpk create mode 100644 official/2.1.1/packages/d9/JclBaseExpert.rc create mode 100644 official/2.1.1/packages/d9/JclBaseExpert.res create mode 100644 official/2.1.1/packages/d9/JclContainers.bdsproj create mode 100644 official/2.1.1/packages/d9/JclContainers.dpk create mode 100644 official/2.1.1/packages/d9/JclContainers.rc create mode 100644 official/2.1.1/packages/d9/JclContainers.res create mode 100644 official/2.1.1/packages/d9/JclDebugExpert.RES create mode 100644 official/2.1.1/packages/d9/JclDebugExpert.bdsproj create mode 100644 official/2.1.1/packages/d9/JclDebugExpert.dpk create mode 100644 official/2.1.1/packages/d9/JclDebugExpert.rc create mode 100644 official/2.1.1/packages/d9/JclDebugExpertDLL.RES create mode 100644 official/2.1.1/packages/d9/JclDebugExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d9/JclDebugExpertDLL.dpr create mode 100644 official/2.1.1/packages/d9/JclDebugExpertDLL.rc create mode 100644 official/2.1.1/packages/d9/JclExperts.bdsgroup create mode 100644 official/2.1.1/packages/d9/JclFavoriteFoldersExpert.bdsproj create mode 100644 official/2.1.1/packages/d9/JclFavoriteFoldersExpert.dpk create mode 100644 official/2.1.1/packages/d9/JclFavoriteFoldersExpert.rc create mode 100644 official/2.1.1/packages/d9/JclFavoriteFoldersExpert.res create mode 100644 official/2.1.1/packages/d9/JclFavoriteFoldersExpertDLL.RES create mode 100644 official/2.1.1/packages/d9/JclFavoriteFoldersExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d9/JclFavoriteFoldersExpertDLL.dpr create mode 100644 official/2.1.1/packages/d9/JclFavoriteFoldersExpertDLL.rc create mode 100644 official/2.1.1/packages/d9/JclProjectAnalysisExpert.RES create mode 100644 official/2.1.1/packages/d9/JclProjectAnalysisExpert.bdsproj create mode 100644 official/2.1.1/packages/d9/JclProjectAnalysisExpert.dpk create mode 100644 official/2.1.1/packages/d9/JclProjectAnalysisExpert.rc create mode 100644 official/2.1.1/packages/d9/JclProjectAnalysisExpertDLL.RES create mode 100644 official/2.1.1/packages/d9/JclProjectAnalysisExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d9/JclProjectAnalysisExpertDLL.dpr create mode 100644 official/2.1.1/packages/d9/JclProjectAnalysisExpertDLL.rc create mode 100644 official/2.1.1/packages/d9/JclRepositoryExpert.bdsproj create mode 100644 official/2.1.1/packages/d9/JclRepositoryExpert.dpk create mode 100644 official/2.1.1/packages/d9/JclRepositoryExpert.rc create mode 100644 official/2.1.1/packages/d9/JclRepositoryExpert.res create mode 100644 official/2.1.1/packages/d9/JclRepositoryExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d9/JclRepositoryExpertDLL.dpr create mode 100644 official/2.1.1/packages/d9/JclRepositoryExpertDLL.rc create mode 100644 official/2.1.1/packages/d9/JclRepositoryExpertDLL.res create mode 100644 official/2.1.1/packages/d9/JclSIMDViewExpert.bdsproj create mode 100644 official/2.1.1/packages/d9/JclSIMDViewExpert.dpk create mode 100644 official/2.1.1/packages/d9/JclSIMDViewExpert.rc create mode 100644 official/2.1.1/packages/d9/JclSIMDViewExpertDLL.RES create mode 100644 official/2.1.1/packages/d9/JclSIMDViewExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d9/JclSIMDViewExpertDLL.dpr create mode 100644 official/2.1.1/packages/d9/JclSIMDViewExpertDLL.rc create mode 100644 official/2.1.1/packages/d9/JclSimdViewExpert.RES create mode 100644 official/2.1.1/packages/d9/JclStackTraceViewerExpert.bdsproj create mode 100644 official/2.1.1/packages/d9/JclStackTraceViewerExpert.dpk create mode 100644 official/2.1.1/packages/d9/JclStackTraceViewerExpert.rc create mode 100644 official/2.1.1/packages/d9/JclStackTraceViewerExpert.res create mode 100644 official/2.1.1/packages/d9/JclStackTraceViewerExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d9/JclStackTraceViewerExpertDLL.dpr create mode 100644 official/2.1.1/packages/d9/JclStackTraceViewerExpertDLL.rc create mode 100644 official/2.1.1/packages/d9/JclStackTraceViewerExpertDLL.res create mode 100644 official/2.1.1/packages/d9/JclVcl.RES create mode 100644 official/2.1.1/packages/d9/JclVcl.bdsproj create mode 100644 official/2.1.1/packages/d9/JclVcl.dpk create mode 100644 official/2.1.1/packages/d9/JclVcl.rc create mode 100644 official/2.1.1/packages/d9/JclVersionControlExpert.bdsproj create mode 100644 official/2.1.1/packages/d9/JclVersionControlExpert.dpk create mode 100644 official/2.1.1/packages/d9/JclVersionControlExpert.rc create mode 100644 official/2.1.1/packages/d9/JclVersionControlExpert.res create mode 100644 official/2.1.1/packages/d9/JclVersionControlExpertDLL.bdsproj create mode 100644 official/2.1.1/packages/d9/JclVersionControlExpertDLL.dpr create mode 100644 official/2.1.1/packages/d9/JclVersionControlExpertDLL.rc create mode 100644 official/2.1.1/packages/d9/JclVersionControlExpertDLL.res create mode 100644 official/2.1.1/packages/d9/template.bdsproj create mode 100644 official/2.1.1/packages/d9/template.dpk create mode 100644 official/2.1.1/packages/d9/template.dpr create mode 100644 official/2.1.1/packages/d9/template.rc create mode 100644 official/2.1.1/packages/dirinfo.txt create mode 100644 official/2.1.1/packages/fpc/Jcl.lpk create mode 100644 official/2.1.1/packages/fpc/Jcl.pas create mode 100644 official/2.1.1/packages/fpc/JclContainers.lpk create mode 100644 official/2.1.1/packages/fpc/JclContainers.pas create mode 100644 official/2.1.1/packages/fpc/template.lpk create mode 100644 official/2.1.1/packages/fpc/template.pas create mode 100644 official/2.1.1/packages/resources.mak create mode 100644 official/2.1.1/packages/xml/Jcl-R.xml create mode 100644 official/2.1.1/packages/xml/JclBaseExpert-D.xml create mode 100644 official/2.1.1/packages/xml/JclContainers-R.xml create mode 100644 official/2.1.1/packages/xml/JclDebugExpert-D.xml create mode 100644 official/2.1.1/packages/xml/JclDebugExpertDLL-L.xml create mode 100644 official/2.1.1/packages/xml/JclFavoriteFoldersExpert-D.xml create mode 100644 official/2.1.1/packages/xml/JclFavoriteFoldersExpertDLL-L.xml create mode 100644 official/2.1.1/packages/xml/JclProjectAnalysisExpert-D.xml create mode 100644 official/2.1.1/packages/xml/JclProjectAnalysisExpertDLL-L.xml create mode 100644 official/2.1.1/packages/xml/JclRepositoryExpert-D.xml create mode 100644 official/2.1.1/packages/xml/JclRepositoryExpertDLL-L.xml create mode 100644 official/2.1.1/packages/xml/JclSIMDViewExpert-D.xml create mode 100644 official/2.1.1/packages/xml/JclSIMDViewExpertDLL-L.xml create mode 100644 official/2.1.1/packages/xml/JclStackTraceViewerExpert-D.xml create mode 100644 official/2.1.1/packages/xml/JclStackTraceViewerExpertDLL-L.xml create mode 100644 official/2.1.1/packages/xml/JclThreadNameExpert-D.xml create mode 100644 official/2.1.1/packages/xml/JclThreadNameExpertDLL-L.xml create mode 100644 official/2.1.1/packages/xml/JclUsesExpert-D.xml create mode 100644 official/2.1.1/packages/xml/JclUsesExpertDLL-L.xml create mode 100644 official/2.1.1/packages/xml/JclVcl-R.xml create mode 100644 official/2.1.1/packages/xml/JclVersionControlExpert-D.xml create mode 100644 official/2.1.1/packages/xml/JclVersionControlExpertDLL-L.xml create mode 100644 official/2.1.1/source/common/Jcl8087.pas create mode 100644 official/2.1.1/source/common/JclAbstractContainers.pas create mode 100644 official/2.1.1/source/common/JclAlgorithms.pas create mode 100644 official/2.1.1/source/common/JclAnsiStrings.pas create mode 100644 official/2.1.1/source/common/JclArrayLists.pas create mode 100644 official/2.1.1/source/common/JclArraySets.pas create mode 100644 official/2.1.1/source/common/JclBase.pas create mode 100644 official/2.1.1/source/common/JclBinaryTrees.pas create mode 100644 official/2.1.1/source/common/JclBorlandTools.pas create mode 100644 official/2.1.1/source/common/JclCharsets.pas create mode 100644 official/2.1.1/source/common/JclComplex.pas create mode 100644 official/2.1.1/source/common/JclCompression.pas create mode 100644 official/2.1.1/source/common/JclContainerIntf.pas create mode 100644 official/2.1.1/source/common/JclCounter.pas create mode 100644 official/2.1.1/source/common/JclDateTime.pas create mode 100644 official/2.1.1/source/common/JclEDI.pas create mode 100644 official/2.1.1/source/common/JclEDISEF.pas create mode 100644 official/2.1.1/source/common/JclEDITranslators.pas create mode 100644 official/2.1.1/source/common/JclEDIXML.pas create mode 100644 official/2.1.1/source/common/JclEDI_ANSIX12.pas create mode 100644 official/2.1.1/source/common/JclEDI_ANSIX12_Ext.pas create mode 100644 official/2.1.1/source/common/JclEDI_UNEDIFACT.pas create mode 100644 official/2.1.1/source/common/JclEDI_UNEDIFACT_Ext.pas create mode 100644 official/2.1.1/source/common/JclExprEval.pas create mode 100644 official/2.1.1/source/common/JclFileUtils.pas create mode 100644 official/2.1.1/source/common/JclHashMaps.pas create mode 100644 official/2.1.1/source/common/JclHashSets.pas create mode 100644 official/2.1.1/source/common/JclIniFiles.pas create mode 100644 official/2.1.1/source/common/JclLinkedLists.pas create mode 100644 official/2.1.1/source/common/JclLogic.pas create mode 100644 official/2.1.1/source/common/JclMIDI.pas create mode 100644 official/2.1.1/source/common/JclMath.pas create mode 100644 official/2.1.1/source/common/JclMime.pas create mode 100644 official/2.1.1/source/common/JclNotify.pas create mode 100644 official/2.1.1/source/common/JclPCRE.pas create mode 100644 official/2.1.1/source/common/JclQueues.pas create mode 100644 official/2.1.1/source/common/JclRTTI.pas create mode 100644 official/2.1.1/source/common/JclResources.pas create mode 100644 official/2.1.1/source/common/JclSchedule.pas create mode 100644 official/2.1.1/source/common/JclSimpleXml.pas create mode 100644 official/2.1.1/source/common/JclSortedMaps.pas create mode 100644 official/2.1.1/source/common/JclStacks.pas create mode 100644 official/2.1.1/source/common/JclStatistics.pas create mode 100644 official/2.1.1/source/common/JclStrHashMap.pas create mode 100644 official/2.1.1/source/common/JclStreams.pas create mode 100644 official/2.1.1/source/common/JclStringConversions.pas create mode 100644 official/2.1.1/source/common/JclStringLists.pas create mode 100644 official/2.1.1/source/common/JclStrings.pas create mode 100644 official/2.1.1/source/common/JclSynch.pas create mode 100644 official/2.1.1/source/common/JclSysInfo.pas create mode 100644 official/2.1.1/source/common/JclSysUtils.pas create mode 100644 official/2.1.1/source/common/JclTrees.pas create mode 100644 official/2.1.1/source/common/JclUnicode.pas create mode 100644 official/2.1.1/source/common/JclUnicode.rc create mode 100644 official/2.1.1/source/common/JclUnicode.res create mode 100644 official/2.1.1/source/common/JclUnicodeBZip2.res create mode 100644 official/2.1.1/source/common/JclUnicodeBzip2.rc create mode 100644 official/2.1.1/source/common/JclUnicodeZLib.rc create mode 100644 official/2.1.1/source/common/JclUnicodeZLib.res create mode 100644 official/2.1.1/source/common/JclUnitConv.pas create mode 100644 official/2.1.1/source/common/JclUnitVersioning.pas create mode 100644 official/2.1.1/source/common/JclUnitVersioningProviders.pas create mode 100644 official/2.1.1/source/common/JclValidation.pas create mode 100644 official/2.1.1/source/common/JclVectors.pas create mode 100644 official/2.1.1/source/common/JclWideStrings.pas create mode 100644 official/2.1.1/source/common/bzip2.pas create mode 100644 official/2.1.1/source/common/dirinfo.txt create mode 100644 official/2.1.1/source/common/pcre.pas create mode 100644 official/2.1.1/source/common/zlibh.pas create mode 100644 official/2.1.1/source/include/crossplatform.inc create mode 100644 official/2.1.1/source/include/jcl.inc create mode 100644 official/2.1.1/source/include/jcl.template.inc create mode 100644 official/2.1.1/source/include/jcld11.inc create mode 100644 official/2.1.1/source/include/jedi.inc create mode 100644 official/2.1.1/source/include/kylix.inc create mode 100644 official/2.1.1/source/include/unixonly.inc create mode 100644 official/2.1.1/source/include/windowsonly.inc create mode 100644 official/2.1.1/source/prototypes/Hardlinks.pas create mode 100644 official/2.1.1/source/prototypes/JclAlgorithms.pas create mode 100644 official/2.1.1/source/prototypes/JclArrayLists.pas create mode 100644 official/2.1.1/source/prototypes/JclArraySets.pas create mode 100644 official/2.1.1/source/prototypes/JclBinaryTrees.pas create mode 100644 official/2.1.1/source/prototypes/JclContainerIntf.pas create mode 100644 official/2.1.1/source/prototypes/JclGraphUtils.pas create mode 100644 official/2.1.1/source/prototypes/JclGraphics.pas create mode 100644 official/2.1.1/source/prototypes/JclHashMaps.pas create mode 100644 official/2.1.1/source/prototypes/JclHashSets.pas create mode 100644 official/2.1.1/source/prototypes/JclLinkedLists.pas create mode 100644 official/2.1.1/source/prototypes/JclQueues.pas create mode 100644 official/2.1.1/source/prototypes/JclSortedMaps.pas create mode 100644 official/2.1.1/source/prototypes/JclStacks.pas create mode 100644 official/2.1.1/source/prototypes/JclTrees.pas create mode 100644 official/2.1.1/source/prototypes/JclVectors.pas create mode 100644 official/2.1.1/source/prototypes/JclWin32.pas create mode 100644 official/2.1.1/source/prototypes/Makefile.mak create mode 100644 official/2.1.1/source/prototypes/_GraphUtils.pas create mode 100644 official/2.1.1/source/prototypes/_Graphics.pas create mode 100644 official/2.1.1/source/prototypes/containers/JclAlgorithms.imp create mode 100644 official/2.1.1/source/prototypes/containers/JclAlgorithms.int create mode 100644 official/2.1.1/source/prototypes/containers/JclArrayLists.imp create mode 100644 official/2.1.1/source/prototypes/containers/JclArrayLists.int create mode 100644 official/2.1.1/source/prototypes/containers/JclArraySets.imp create mode 100644 official/2.1.1/source/prototypes/containers/JclArraySets.int create mode 100644 official/2.1.1/source/prototypes/containers/JclBinaryTrees.imp create mode 100644 official/2.1.1/source/prototypes/containers/JclBinaryTrees.int create mode 100644 official/2.1.1/source/prototypes/containers/JclContainerCommon.imp create mode 100644 official/2.1.1/source/prototypes/containers/JclContainerIntf.int create mode 100644 official/2.1.1/source/prototypes/containers/JclHashMaps.imp create mode 100644 official/2.1.1/source/prototypes/containers/JclHashMaps.int create mode 100644 official/2.1.1/source/prototypes/containers/JclHashSets.imp create mode 100644 official/2.1.1/source/prototypes/containers/JclHashSets.int create mode 100644 official/2.1.1/source/prototypes/containers/JclLinkedLists.imp create mode 100644 official/2.1.1/source/prototypes/containers/JclLinkedLists.int create mode 100644 official/2.1.1/source/prototypes/containers/JclQueues.imp create mode 100644 official/2.1.1/source/prototypes/containers/JclQueues.int create mode 100644 official/2.1.1/source/prototypes/containers/JclSortedMaps.imp create mode 100644 official/2.1.1/source/prototypes/containers/JclSortedMaps.int create mode 100644 official/2.1.1/source/prototypes/containers/JclStacks.imp create mode 100644 official/2.1.1/source/prototypes/containers/JclStacks.int create mode 100644 official/2.1.1/source/prototypes/containers/JclTrees.imp create mode 100644 official/2.1.1/source/prototypes/containers/JclTrees.int create mode 100644 official/2.1.1/source/prototypes/containers/JclVectors.imp create mode 100644 official/2.1.1/source/prototypes/containers/JclVectors.int create mode 100644 official/2.1.1/source/prototypes/supplement/create_JCL_Hardlinks.pas.cmd create mode 100644 official/2.1.1/source/prototypes/supplement/create_nonJCL_Hardlinks.pas.cmd create mode 100644 official/2.1.1/source/prototypes/supplement/simple_pp.pl create mode 100644 official/2.1.1/source/prototypes/win32api/AclApi.imp create mode 100644 official/2.1.1/source/prototypes/win32api/AclApi.int create mode 100644 official/2.1.1/source/prototypes/win32api/DelayImp.int create mode 100644 official/2.1.1/source/prototypes/win32api/ImageHlp.imp create mode 100644 official/2.1.1/source/prototypes/win32api/ImageHlp.int create mode 100644 official/2.1.1/source/prototypes/win32api/ImgGuids.int create mode 100644 official/2.1.1/source/prototypes/win32api/LmAccess.imp create mode 100644 official/2.1.1/source/prototypes/win32api/LmAccess.int create mode 100644 official/2.1.1/source/prototypes/win32api/LmApiBuf.imp create mode 100644 official/2.1.1/source/prototypes/win32api/LmApiBuf.int create mode 100644 official/2.1.1/source/prototypes/win32api/LmCons.int create mode 100644 official/2.1.1/source/prototypes/win32api/LmErr.int create mode 100644 official/2.1.1/source/prototypes/win32api/MsiDefs.int create mode 100644 official/2.1.1/source/prototypes/win32api/Nb30.imp create mode 100644 official/2.1.1/source/prototypes/win32api/Nb30.int create mode 100644 official/2.1.1/source/prototypes/win32api/NtSecApi.imp create mode 100644 official/2.1.1/source/prototypes/win32api/NtSecApi.int create mode 100644 official/2.1.1/source/prototypes/win32api/ObjBase.imp create mode 100644 official/2.1.1/source/prototypes/win32api/ObjBase.int create mode 100644 official/2.1.1/source/prototypes/win32api/PropIdl.int create mode 100644 official/2.1.1/source/prototypes/win32api/RasDlg.int create mode 100644 official/2.1.1/source/prototypes/win32api/Reason.int create mode 100644 official/2.1.1/source/prototypes/win32api/ShlGuid.int create mode 100644 official/2.1.1/source/prototypes/win32api/ShlObj.int create mode 100644 official/2.1.1/source/prototypes/win32api/ShlWApi.int create mode 100644 official/2.1.1/source/prototypes/win32api/TlHelp32.imp create mode 100644 official/2.1.1/source/prototypes/win32api/TlHelp32.int create mode 100644 official/2.1.1/source/prototypes/win32api/WinBase.imp create mode 100644 official/2.1.1/source/prototypes/win32api/WinBase.int create mode 100644 official/2.1.1/source/prototypes/win32api/WinDef.int create mode 100644 official/2.1.1/source/prototypes/win32api/WinError.int create mode 100644 official/2.1.1/source/prototypes/win32api/WinIoctl.int create mode 100644 official/2.1.1/source/prototypes/win32api/WinNLS.imp create mode 100644 official/2.1.1/source/prototypes/win32api/WinNLS.int create mode 100644 official/2.1.1/source/prototypes/win32api/WinNT.imp create mode 100644 official/2.1.1/source/prototypes/win32api/WinNT.int create mode 100644 official/2.1.1/source/prototypes/win32api/WinUser.imp create mode 100644 official/2.1.1/source/prototypes/win32api/WinUser.int create mode 100644 official/2.1.1/source/prototypes/win32api/Winternl.imp create mode 100644 official/2.1.1/source/prototypes/win32api/Winternl.int create mode 100644 official/2.1.1/source/prototypes/win32api/dirinfo.txt create mode 100644 official/2.1.1/source/prototypes/win32api/powrprof.imp create mode 100644 official/2.1.1/source/prototypes/win32api/powrprof.int create mode 100644 official/2.1.1/source/unix/dirinfo.txt create mode 100644 official/2.1.1/source/vcl/JclFont.pas create mode 100644 official/2.1.1/source/vcl/JclGraphUtils.pas create mode 100644 official/2.1.1/source/vcl/JclGraphics.pas create mode 100644 official/2.1.1/source/vcl/JclOpenDialog.rc create mode 100644 official/2.1.1/source/vcl/JclOpenDialog.res create mode 100644 official/2.1.1/source/vcl/JclOpenDialogFavorites.pas create mode 100644 official/2.1.1/source/vcl/JclOpenDialogHooks.pas create mode 100644 official/2.1.1/source/vcl/JclPrint.pas create mode 100644 official/2.1.1/source/vcl/JclVclResources.pas create mode 100644 official/2.1.1/source/vcl/JclVersionControl.pas create mode 100644 official/2.1.1/source/vcl/JclVersionCtrlCVSImpl.pas create mode 100644 official/2.1.1/source/vcl/JclVersionCtrlSVNImpl.pas create mode 100644 official/2.1.1/source/vcl/dirinfo.txt create mode 100644 official/2.1.1/source/windows/Hardlinks.pas create mode 100644 official/2.1.1/source/windows/JclAppInst.pas create mode 100644 official/2.1.1/source/windows/JclCIL.pas create mode 100644 official/2.1.1/source/windows/JclCLR.pas create mode 100644 official/2.1.1/source/windows/JclCOM.pas create mode 100644 official/2.1.1/source/windows/JclCommCtrlAdmin.manifest create mode 100644 official/2.1.1/source/windows/JclCommCtrlAdmin.rc create mode 100644 official/2.1.1/source/windows/JclCommCtrlAdmin.res create mode 100644 official/2.1.1/source/windows/JclCommCtrlAsInvoker.manifest create mode 100644 official/2.1.1/source/windows/JclCommCtrlAsInvoker.rc create mode 100644 official/2.1.1/source/windows/JclCommCtrlAsInvoker.res create mode 100644 official/2.1.1/source/windows/JclConsole.pas create mode 100644 official/2.1.1/source/windows/JclDebug.pas create mode 100644 official/2.1.1/source/windows/JclDebugSerialization.pas create mode 100644 official/2.1.1/source/windows/JclDebugXMLDeserializer.pas create mode 100644 official/2.1.1/source/windows/JclDebugXMLSerializer.pas create mode 100644 official/2.1.1/source/windows/JclDotNet.pas create mode 100644 official/2.1.1/source/windows/JclHookExcept.pas create mode 100644 official/2.1.1/source/windows/JclLANMan.pas create mode 100644 official/2.1.1/source/windows/JclLocales.pas create mode 100644 official/2.1.1/source/windows/JclMapi.pas create mode 100644 official/2.1.1/source/windows/JclMetadata.pas create mode 100644 official/2.1.1/source/windows/JclMiscel.pas create mode 100644 official/2.1.1/source/windows/JclMsdosSys.pas create mode 100644 official/2.1.1/source/windows/JclMultimedia.pas create mode 100644 official/2.1.1/source/windows/JclNTFS.pas create mode 100644 official/2.1.1/source/windows/JclNoDepAdmin.manifest create mode 100644 official/2.1.1/source/windows/JclNoDepAdmin.rc create mode 100644 official/2.1.1/source/windows/JclNoDepAdmin.res create mode 100644 official/2.1.1/source/windows/JclNoDepAsInvoker.manifest create mode 100644 official/2.1.1/source/windows/JclNoDepAsInvoker.rc create mode 100644 official/2.1.1/source/windows/JclNoDepAsInvoker.res create mode 100644 official/2.1.1/source/windows/JclPeImage.pas create mode 100644 official/2.1.1/source/windows/JclRegistry.pas create mode 100644 official/2.1.1/source/windows/JclSecurity.pas create mode 100644 official/2.1.1/source/windows/JclShell.pas create mode 100644 official/2.1.1/source/windows/JclStructStorage.pas create mode 100644 official/2.1.1/source/windows/JclSvcCtrl.pas create mode 100644 official/2.1.1/source/windows/JclTD32.pas create mode 100644 official/2.1.1/source/windows/JclTask.pas create mode 100644 official/2.1.1/source/windows/JclTimeZones.pas create mode 100644 official/2.1.1/source/windows/JclWideFormat.pas create mode 100644 official/2.1.1/source/windows/JclWin32.pas create mode 100644 official/2.1.1/source/windows/JclWin32Ex.pas create mode 100644 official/2.1.1/source/windows/JclWinMIDI.pas create mode 100644 official/2.1.1/source/windows/MSHelpServices_TLB.pas create mode 100644 official/2.1.1/source/windows/MSTask.pas create mode 100644 official/2.1.1/source/windows/Snmp.pas create mode 100644 official/2.1.1/source/windows/dirinfo.txt create mode 100644 official/2.1.1/source/windows/mscoree_TLB.pas create mode 100644 official/2.1.1/source/windows/mscorlib_TLB.pas create mode 100644 official/2.1.1/source/windows/obj/bzip2/blocksort.obj create mode 100644 official/2.1.1/source/windows/obj/bzip2/bzlib.obj create mode 100644 official/2.1.1/source/windows/obj/bzip2/compress.obj create mode 100644 official/2.1.1/source/windows/obj/bzip2/crctable.obj create mode 100644 official/2.1.1/source/windows/obj/bzip2/decompress.obj create mode 100644 official/2.1.1/source/windows/obj/bzip2/dirinfo.txt create mode 100644 official/2.1.1/source/windows/obj/bzip2/huffman.obj create mode 100644 official/2.1.1/source/windows/obj/bzip2/makefile.mak create mode 100644 official/2.1.1/source/windows/obj/bzip2/randtable.obj create mode 100644 official/2.1.1/source/windows/obj/dirinfo.txt create mode 100644 official/2.1.1/source/windows/obj/pcre/dirinfo.txt create mode 100644 official/2.1.1/source/windows/obj/pcre/makefile.mak create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_compile.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_config.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_default_tables.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_dfa_exec.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_exec.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_fullinfo.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_get.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_globals.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_info.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_maketables.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_newline.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_ord2utf8.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_refcount.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_study.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_tables.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_try_flipped.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_ucd.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_valid_utf8.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_version.obj create mode 100644 official/2.1.1/source/windows/obj/pcre/pcre_xclass.obj create mode 100644 official/2.1.1/source/windows/obj/zlib/adler32.obj create mode 100644 official/2.1.1/source/windows/obj/zlib/compress.obj create mode 100644 official/2.1.1/source/windows/obj/zlib/crc32.obj create mode 100644 official/2.1.1/source/windows/obj/zlib/deflate.obj create mode 100644 official/2.1.1/source/windows/obj/zlib/dirinfo.txt create mode 100644 official/2.1.1/source/windows/obj/zlib/gzio.obj create mode 100644 official/2.1.1/source/windows/obj/zlib/infback.obj create mode 100644 official/2.1.1/source/windows/obj/zlib/inffast.obj create mode 100644 official/2.1.1/source/windows/obj/zlib/inflate.obj create mode 100644 official/2.1.1/source/windows/obj/zlib/inftrees.obj create mode 100644 official/2.1.1/source/windows/obj/zlib/makefile.mak create mode 100644 official/2.1.1/source/windows/obj/zlib/trees.obj create mode 100644 official/2.1.1/source/windows/obj/zlib/uncompr.obj create mode 100644 official/2.1.1/source/windows/obj/zlib/zutil.obj create mode 100644 official/2.1.1/source/windows/sevenzip.pas diff --git a/official/2.1.1/Install multiple profiles.bat b/official/2.1.1/Install multiple profiles.bat new file mode 100644 index 0000000..4a0506e --- /dev/null +++ b/official/2.1.1/Install multiple profiles.bat @@ -0,0 +1 @@ +Install Latest /MultipleProfiles \ No newline at end of file diff --git a/official/2.1.1/Install turbo delphi.bat b/official/2.1.1/Install turbo delphi.bat new file mode 100644 index 0000000..640538a --- /dev/null +++ b/official/2.1.1/Install turbo delphi.bat @@ -0,0 +1,20 @@ +@echo off + +echo Launching JCL installer... + +start .\bin\JediInstaller.exe %2 %3 %4 %5 %6 %7 %8 %9 +if ERRORLEVEL 1 goto FailStart +goto FINI + +:FailStart +.\bin\JediInstaller.exe %2 %3 %4 %5 %6 %7 %8 %9 +goto FINI + +:FailedCompile +echo. +echo. +echo An error occured while compiling the installer. Installation aborted. +echo. +pause + +:FINI diff --git a/official/2.1.1/Install.bat b/official/2.1.1/Install.bat new file mode 100644 index 0000000..67e781f --- /dev/null +++ b/official/2.1.1/Install.bat @@ -0,0 +1,32 @@ +@echo off + +SET DELPHIVERSION=%1 + +cd install + +:: compile installer + +build\dcc32ex.exe --runtime-package-rtl --runtime-package-vcl --preserve-config -q -w -dJCLINSTALL -E..\bin -I..\source\include -U..\source\common;..\source\windows JediInstaller.dpr +if ERRORLEVEL 1 goto FailedCompile + +echo. +echo Launching JCL installer... + +start ..\bin\JediInstaller.exe %2 %3 %4 %5 %6 %7 %8 %9 +if ERRORLEVEL 1 goto FailStart +goto FINI + +:FailStart +..\bin\JediInstaller.exe %2 %3 %4 %5 %6 %7 %8 %9 +goto FINI + +:FailedCompile +echo. +echo. +echo An error occured while compiling the installer. Installation aborted. +echo. +pause + +:FINI +cd .. +SET DELPHIVERSION= diff --git a/official/2.1.1/Install.txt b/official/2.1.1/Install.txt new file mode 100644 index 0000000..68c5274 --- /dev/null +++ b/official/2.1.1/Install.txt @@ -0,0 +1,64 @@ +JEDI Code Library v 2.1 Installation + +Supported development tools versions: + +- Delphi 2010 and C++Builder 2010; +- Delphi 2009 and C++Builder 2009; +- CodeGear RAD Studio 2007 (also known as Delphi 2007 for Win32, C++Builder 2007); +- Borland Developer Studio 2006 (also known as Delphi 2006, C++Builder 2006); +- Borland Delphi 2005; +- Borland Delphi 7; +- Borland Delphi 6 Update Pack #2 (including Personal Edition); +- Borland C++ Builder 6; +- FreePascal 2.2. + +For more detailed information, see docs\Readme.html. + +Please make sure you have installed latest update packs. You can download them +from CodeGear Support web page: + +Delphi: http://support.codegear.com/delphi +C++Builder: http://support.codegear.com/cppbuilder + +******************************* IMPORTANT ************************************** +* * +* If you have installed any previous version of the JCL/JVCL you have to * +* delete them. * +* * +* * +* It is also necessary to remove all installed JCL/JVCL packages from the IDE. * +* Do not mix files or compiled packages from older versions of the JCL with * +* current version. * +* * +******************************************************************************** + +JEDI INSTALLER +============== + +Helps you to integrate JCL with Delphi/BCB IDE. Currently it assists with: + +- Compiling library units (release and debug versions) +- Compiling packages and installing design-time packages to the IDE +- Adding sample JCL Debug extension dialogs to Object Repository +- Adding JCL directories to Library Path / Browsing Path in Environment Options +- Adding JCL debug .dcu directory to Debug DCU Path in Debugger Options +- Integrating JCL help file to the IDE. +- in undoing above changes to the IDE settings ("Uninstall", new in 1.94 final). + +To execute for + +1) Win32 +- click on "Install.bat" file in the JCL root directory. + + Note: If you have Delphi 8 for Microsoft .NET installed, you probably will have + to specify the root directory of the make.exe to use for JCL installation; + on the commandline, type (for example): + + >install "C:\Program Files\Borland\Delphi5" + + or + + >install d6 + +-------------------------------- +Document last updated 2009-11-05 diff --git a/official/2.1.1/LICENSE-BZIP2.txt b/official/2.1.1/LICENSE-BZIP2.txt new file mode 100644 index 0000000..75a3c9f --- /dev/null +++ b/official/2.1.1/LICENSE-BZIP2.txt @@ -0,0 +1,42 @@ + +-------------------------------------------------------------------------- + +This program, "bzip2", the associated library "libbzip2", and all +documentation, are copyright (C) 1996-2007 Julian R Seward. All +rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions +are met: + +1. Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + +2. The origin of this software must not be misrepresented; you must + not claim that you wrote the original software. If you use this + software in a product, an acknowledgment in the product + documentation would be appreciated but is not required. + +3. Altered source versions must be plainly marked as such, and must + not be misrepresented as being the original software. + +4. The name of the author may not be used to endorse or promote + products derived from this software without specific prior written + permission. + +THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS +OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED +WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY +DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE +GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, +WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING +NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS +SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + +Julian Seward, jseward@bzip.org +bzip2/libbzip2 version 1.0.5 of 10 December 2007 + +-------------------------------------------------------------------------- diff --git a/official/2.1.1/LICENSE-DRYICONS.txt b/official/2.1.1/LICENSE-DRYICONS.txt new file mode 100644 index 0000000..a00cb60 --- /dev/null +++ b/official/2.1.1/LICENSE-DRYICONS.txt @@ -0,0 +1,34 @@ +DryIcons Free License Agreement + +Read Full Legal Code + +DryIcons is a service provided by our team of enthusiastic graphic and web designers and programmers. The purpose of this service is to provide only high-quality, free icons and free icon sets, as well as free vector graphics to the general public, with a specific target to designers, software and web developers. +All DryIcons' Works (meaning "icons, icon sets and graphics") are free of charge, but please read further under what Terms and Conditions. +All DryIcons Works are licensed under a DryIcons Free License. This means that you can use our icons, icon sets and graphics in any publicly accessible web site, web application or any form of presentation publicly accessible through the World Wide Web only according to the DryIcons Free License Terms and Conditions: + + * You must put a back link with credits to http://dryicons.com on every page where DryIcons' Works are used (example: Icons by DryIcons); + * You must include the correct back link to DryIcons website, which is: http://dryicons.com; + * You must place the link on an easy-to-see, recognizable place, so there is no confusion about the Original Author of the Works (DryIcons); + * When copying, or paraphrasing description text (or title) on one of the Works, you must make sure there are no spelling mistakes; + * Do not try to take credit or imply in any way that you and not DryIcons is the Original Author of the Licensed Material (icons, icon sets and graphics). + +What you CAN DO: + + 1. All DryIcons' Works are being provided to You under the Terms of this agreement, which allows for use of our Works but does not transfer ownership. All DryIcons' Works remain property of DryIcons; + 2. You may use DryIcons' Works in any personal or commercial project unlimited number of times according to the DryIcons Free License Terms and Conditions; + 3. You may use DryIcons' Works in any Open Source project and application according to the DryIcons Free License Terms and Conditions; + 4. Your rights to DryIcons' Works are worldwide and for the duration of DryIcons' rights in the Works; + 5. Any uses other than the ones mentioned above must be approved by DryIcons in writing; + 6. Unauthorized use will result in immediate termination of this License, and with it, your rights to use DryIcons' Works. + +What you CAN NOT DO: + + 1. You may not alter, crop, modify, manipulate and create derivative works of DryIcons' Works. All Works must be used "AS IS"; + 2. You may not redistribute, license, sell, lease, assign, convey or transfer DryIcons' Works, or offer free downloads in their present form or in a modified form to any third party; + 3. You may not distribute the DryIcons' Works (icons, icon sets and graphics) online in a downloadable format or enable them to be distributed via mobile devices. You may link to http://dryicons.com instead; + 4. You may not incorporate DryIcons' Works into a logo, trademark or service mark; + 5. You may not use DryIcons' Works directly from dryicons.com or any other location hosted on the dryicons.com domain or any other domain owned by DryIcons. + +Copyright + + 1. DryIcons.com reserves the copyrights and ownership rights of all DryIcons' Works downloaded from this website. We reserve the right to change parts of this License without notice and at our sole discretion. diff --git a/official/2.1.1/LICENSE-PCRE.txt b/official/2.1.1/LICENSE-PCRE.txt new file mode 100644 index 0000000..afe9b6a --- /dev/null +++ b/official/2.1.1/LICENSE-PCRE.txt @@ -0,0 +1,68 @@ +PCRE LICENCE +------------ + +PCRE is a library of functions to support regular expressions whose syntax +and semantics are as close as possible to those of the Perl 5 language. + +Release 7 of PCRE is distributed under the terms of the "BSD" licence, as +specified below. The documentation for PCRE, supplied in the "doc" +directory, is distributed under the same terms as the software itself. + +The basic library functions are written in C and are freestanding. Also +included in the distribution is a set of C++ wrapper functions. + + +THE BASIC LIBRARY FUNCTIONS +--------------------------- + +Written by: Philip Hazel +Email local part: ph10 +Email domain: cam.ac.uk + +University of Cambridge Computing Service, +Cambridge, England. + +Copyright (c) 1997-2008 University of Cambridge +All rights reserved. + + +THE C++ WRAPPER FUNCTIONS +------------------------- + +Contributed by: Google Inc. + +Copyright (c) 2007-2008, Google Inc. +All rights reserved. + + +THE "BSD" LICENCE +----------------- + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + + * Redistributions of source code must retain the above copyright notice, + this list of conditions and the following disclaimer. + + * Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. + + * Neither the name of the University of Cambridge nor the name of Google + Inc. nor the names of their contributors may be used to endorse or + promote products derived from this software without specific prior + written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +POSSIBILITY OF SUCH DAMAGE. + +End diff --git a/official/2.1.1/LICENSE-SEVENZIP.txt b/official/2.1.1/LICENSE-SEVENZIP.txt new file mode 100644 index 0000000..984332e --- /dev/null +++ b/official/2.1.1/LICENSE-SEVENZIP.txt @@ -0,0 +1,57 @@ + 7-Zip + ~~~~~ + License for use and distribution + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + + 7-Zip Copyright (C) 1999-2008 Igor Pavlov. + + Licenses for files are: + + 1) 7z.dll: GNU LGPL + unRAR restriction + 2) All other files: GNU LGPL + + The GNU LGPL + unRAR restriction means that you must follow both + GNU LGPL rules and unRAR restriction rules. + + + Note: + You can use 7-Zip on any computer, including a computer in a commercial + organization. You don't need to register or pay for 7-Zip. + + + GNU LGPL information + -------------------- + + This library is free software; you can redistribute it and/or + modify it under the terms of the GNU Lesser General Public + License as published by the Free Software Foundation; either + version 2.1 of the License, or (at your option) any later version. + + This library is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with this library; if not, write to the Free Software + Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + + + unRAR restriction + ----------------- + + The decompression engine for RAR archives was developed using source + code of unRAR program. + All copyrights to original unRAR code are owned by Alexander Roshal. + + The license for original unRAR code has the following restriction: + + The unRAR sources cannot be used to re-create the RAR compression algorithm, + which is proprietary. Distribution of modified unRAR sources in separate form + or as a part of other software is permitted, provided that it is clearly + stated in the documentation and source comments that the code may + not be used to develop a RAR (WinRAR) compatible archiver. + + + -- + Igor Pavlov diff --git a/official/2.1.1/LICENSE-ZLIB.txt b/official/2.1.1/LICENSE-ZLIB.txt new file mode 100644 index 0000000..91ed849 --- /dev/null +++ b/official/2.1.1/LICENSE-ZLIB.txt @@ -0,0 +1,25 @@ +/* zlib.h -- interface of the 'zlib' general purpose compression library + version 1.2.3, July 18th, 2005 + + Copyright (C) 1995-2005 Jean-loup Gailly and Mark Adler + + This software is provided 'as-is', without any express or implied + warranty. In no event will the authors be held liable for any damages + arising from the use of this software. + + Permission is granted to anyone to use this software for any purpose, + including commercial applications, and to alter it and redistribute it + freely, subject to the following restrictions: + + 1. The origin of this software must not be misrepresented; you must not + claim that you wrote the original software. If you use this software + in a product, an acknowledgment in the product documentation would be + appreciated but is not required. + 2. Altered source versions must be plainly marked as such, and must not be + misrepresented as being the original software. + 3. This notice may not be removed or altered from any source distribution. + + Jean-loup Gailly jloup@gzip.org + Mark Adler madler@alumni.caltech.edu + +*/ diff --git a/official/2.1.1/LICENSE.txt b/official/2.1.1/LICENSE.txt new file mode 100644 index 0000000..7a45bfe --- /dev/null +++ b/official/2.1.1/LICENSE.txt @@ -0,0 +1,470 @@ + MOZILLA PUBLIC LICENSE + Version 1.1 + + --------------- + +1. Definitions. + + 1.0.1. "Commercial Use" means distribution or otherwise making the + Covered Code available to a third party. + + 1.1. "Contributor" means each entity that creates or contributes to + the creation of Modifications. + + 1.2. "Contributor Version" means the combination of the Original + Code, prior Modifications used by a Contributor, and the Modifications + made by that particular Contributor. + + 1.3. "Covered Code" means the Original Code or Modifications or the + combination of the Original Code and Modifications, in each case + including portions thereof. + + 1.4. "Electronic Distribution Mechanism" means a mechanism generally + accepted in the software development community for the electronic + transfer of data. + + 1.5. "Executable" means Covered Code in any form other than Source + Code. + + 1.6. "Initial Developer" means the individual or entity identified + as the Initial Developer in the Source Code notice required by Exhibit + A. + + 1.7. "Larger Work" means a work which combines Covered Code or + portions thereof with code not governed by the terms of this License. + + 1.8. "License" means this document. + + 1.8.1. "Licensable" means having the right to grant, to the maximum + extent possible, whether at the time of the initial grant or + subsequently acquired, any and all of the rights conveyed herein. + + 1.9. "Modifications" means any addition to or deletion from the + substance or structure of either the Original Code or any previous + Modifications. When Covered Code is released as a series of files, a + Modification is: + A. Any addition to or deletion from the contents of a file + containing Original Code or previous Modifications. + + B. Any new file that contains any part of the Original Code or + previous Modifications. + + 1.10. "Original Code" means Source Code of computer software code + which is described in the Source Code notice required by Exhibit A as + Original Code, and which, at the time of its release under this + License is not already Covered Code governed by this License. + + 1.10.1. "Patent Claims" means any patent claim(s), now owned or + hereafter acquired, including without limitation, method, process, + and apparatus claims, in any patent Licensable by grantor. + + 1.11. "Source Code" means the preferred form of the Covered Code for + making modifications to it, including all modules it contains, plus + any associated interface definition files, scripts used to control + compilation and installation of an Executable, or source code + differential comparisons against either the Original Code or another + well known, available Covered Code of the Contributor's choice. The + Source Code can be in a compressed or archival form, provided the + appropriate decompression or de-archiving software is widely available + for no charge. + + 1.12. "You" (or "Your") means an individual or a legal entity + exercising rights under, and complying with all of the terms of, this + License or a future version of this License issued under Section 6.1. + For legal entities, "You" includes any entity which controls, is + controlled by, or is under common control with You. For purposes of + this definition, "control" means (a) the power, direct or indirect, + to cause the direction or management of such entity, whether by + contract or otherwise, or (b) ownership of more than fifty percent + (50%) of the outstanding shares or beneficial ownership of such + entity. + +2. Source Code License. + + 2.1. The Initial Developer Grant. + The Initial Developer hereby grants You a world-wide, royalty-free, + non-exclusive license, subject to third party intellectual property + claims: + (a) under intellectual property rights (other than patent or + trademark) Licensable by Initial Developer to use, reproduce, + modify, display, perform, sublicense and distribute the Original + Code (or portions thereof) with or without Modifications, and/or + as part of a Larger Work; and + + (b) under Patents Claims infringed by the making, using or + selling of Original Code, to make, have made, use, practice, + sell, and offer for sale, and/or otherwise dispose of the + Original Code (or portions thereof). + + (c) the licenses granted in this Section 2.1(a) and (b) are + effective on the date Initial Developer first distributes + Original Code under the terms of this License. + + (d) Notwithstanding Section 2.1(b) above, no patent license is + granted: 1) for code that You delete from the Original Code; 2) + separate from the Original Code; or 3) for infringements caused + by: i) the modification of the Original Code or ii) the + combination of the Original Code with other software or devices. + + 2.2. Contributor Grant. + Subject to third party intellectual property claims, each Contributor + hereby grants You a world-wide, royalty-free, non-exclusive license + + (a) under intellectual property rights (other than patent or + trademark) Licensable by Contributor, to use, reproduce, modify, + display, perform, sublicense and distribute the Modifications + created by such Contributor (or portions thereof) either on an + unmodified basis, with other Modifications, as Covered Code + and/or as part of a Larger Work; and + + (b) under Patent Claims infringed by the making, using, or + selling of Modifications made by that Contributor either alone + and/or in combination with its Contributor Version (or portions + of such combination), to make, use, sell, offer for sale, have + made, and/or otherwise dispose of: 1) Modifications made by that + Contributor (or portions thereof); and 2) the combination of + Modifications made by that Contributor with its Contributor + Version (or portions of such combination). + + (c) the licenses granted in Sections 2.2(a) and 2.2(b) are + effective on the date Contributor first makes Commercial Use of + the Covered Code. + + (d) Notwithstanding Section 2.2(b) above, no patent license is + granted: 1) for any code that Contributor has deleted from the + Contributor Version; 2) separate from the Contributor Version; + 3) for infringements caused by: i) third party modifications of + Contributor Version or ii) the combination of Modifications made + by that Contributor with other software (except as part of the + Contributor Version) or other devices; or 4) under Patent Claims + infringed by Covered Code in the absence of Modifications made by + that Contributor. + +3. Distribution Obligations. + + 3.1. Application of License. + The Modifications which You create or to which You contribute are + governed by the terms of this License, including without limitation + Section 2.2. The Source Code version of Covered Code may be + distributed only under the terms of this License or a future version + of this License released under Section 6.1, and You must include a + copy of this License with every copy of the Source Code You + distribute. You may not offer or impose any terms on any Source Code + version that alters or restricts the applicable version of this + License or the recipients' rights hereunder. However, You may include + an additional document offering the additional rights described in + Section 3.5. + + 3.2. Availability of Source Code. + Any Modification which You create or to which You contribute must be + made available in Source Code form under the terms of this License + either on the same media as an Executable version or via an accepted + Electronic Distribution Mechanism to anyone to whom you made an + Executable version available; and if made available via Electronic + Distribution Mechanism, must remain available for at least twelve (12) + months after the date it initially became available, or at least six + (6) months after a subsequent version of that particular Modification + has been made available to such recipients. You are responsible for + ensuring that the Source Code version remains available even if the + Electronic Distribution Mechanism is maintained by a third party. + + 3.3. Description of Modifications. + You must cause all Covered Code to which You contribute to contain a + file documenting the changes You made to create that Covered Code and + the date of any change. You must include a prominent statement that + the Modification is derived, directly or indirectly, from Original + Code provided by the Initial Developer and including the name of the + Initial Developer in (a) the Source Code, and (b) in any notice in an + Executable version or related documentation in which You describe the + origin or ownership of the Covered Code. + + 3.4. Intellectual Property Matters + (a) Third Party Claims. + If Contributor has knowledge that a license under a third party's + intellectual property rights is required to exercise the rights + granted by such Contributor under Sections 2.1 or 2.2, + Contributor must include a text file with the Source Code + distribution titled "LEGAL" which describes the claim and the + party making the claim in sufficient detail that a recipient will + know whom to contact. If Contributor obtains such knowledge after + the Modification is made available as described in Section 3.2, + Contributor shall promptly modify the LEGAL file in all copies + Contributor makes available thereafter and shall take other steps + (such as notifying appropriate mailing lists or newsgroups) + reasonably calculated to inform those who received the Covered + Code that new knowledge has been obtained. + + (b) Contributor APIs. + If Contributor's Modifications include an application programming + interface and Contributor has knowledge of patent licenses which + are reasonably necessary to implement that API, Contributor must + also include this information in the LEGAL file. + + (c) Representations. + Contributor represents that, except as disclosed pursuant to + Section 3.4(a) above, Contributor believes that Contributor's + Modifications are Contributor's original creation(s) and/or + Contributor has sufficient rights to grant the rights conveyed by + this License. + + 3.5. Required Notices. + You must duplicate the notice in Exhibit A in each file of the Source + Code. If it is not possible to put such notice in a particular Source + Code file due to its structure, then You must include such notice in a + location (such as a relevant directory) where a user would be likely + to look for such a notice. If You created one or more Modification(s) + You may add your name as a Contributor to the notice described in + Exhibit A. You must also duplicate this License in any documentation + for the Source Code where You describe recipients' rights or ownership + rights relating to Covered Code. You may choose to offer, and to + charge a fee for, warranty, support, indemnity or liability + obligations to one or more recipients of Covered Code. However, You + may do so only on Your own behalf, and not on behalf of the Initial + Developer or any Contributor. You must make it absolutely clear than + any such warranty, support, indemnity or liability obligation is + offered by You alone, and You hereby agree to indemnify the Initial + Developer and every Contributor for any liability incurred by the + Initial Developer or such Contributor as a result of warranty, + support, indemnity or liability terms You offer. + + 3.6. Distribution of Executable Versions. + You may distribute Covered Code in Executable form only if the + requirements of Section 3.1-3.5 have been met for that Covered Code, + and if You include a notice stating that the Source Code version of + the Covered Code is available under the terms of this License, + including a description of how and where You have fulfilled the + obligations of Section 3.2. The notice must be conspicuously included + in any notice in an Executable version, related documentation or + collateral in which You describe recipients' rights relating to the + Covered Code. You may distribute the Executable version of Covered + Code or ownership rights under a license of Your choice, which may + contain terms different from this License, provided that You are in + compliance with the terms of this License and that the license for the + Executable version does not attempt to limit or alter the recipient's + rights in the Source Code version from the rights set forth in this + License. If You distribute the Executable version under a different + license You must make it absolutely clear that any terms which differ + from this License are offered by You alone, not by the Initial + Developer or any Contributor. You hereby agree to indemnify the + Initial Developer and every Contributor for any liability incurred by + the Initial Developer or such Contributor as a result of any such + terms You offer. + + 3.7. Larger Works. + You may create a Larger Work by combining Covered Code with other code + not governed by the terms of this License and distribute the Larger + Work as a single product. In such a case, You must make sure the + requirements of this License are fulfilled for the Covered Code. + +4. Inability to Comply Due to Statute or Regulation. + + If it is impossible for You to comply with any of the terms of this + License with respect to some or all of the Covered Code due to + statute, judicial order, or regulation then You must: (a) comply with + the terms of this License to the maximum extent possible; and (b) + describe the limitations and the code they affect. Such description + must be included in the LEGAL file described in Section 3.4 and must + be included with all distributions of the Source Code. Except to the + extent prohibited by statute or regulation, such description must be + sufficiently detailed for a recipient of ordinary skill to be able to + understand it. + +5. Application of this License. + + This License applies to code to which the Initial Developer has + attached the notice in Exhibit A and to related Covered Code. + +6. Versions of the License. + + 6.1. New Versions. + Netscape Communications Corporation ("Netscape") may publish revised + and/or new versions of the License from time to time. Each version + will be given a distinguishing version number. + + 6.2. Effect of New Versions. + Once Covered Code has been published under a particular version of the + License, You may always continue to use it under the terms of that + version. You may also choose to use such Covered Code under the terms + of any subsequent version of the License published by Netscape. No one + other than Netscape has the right to modify the terms applicable to + Covered Code created under this License. + + 6.3. Derivative Works. + If You create or use a modified version of this License (which you may + only do in order to apply it to code which is not already Covered Code + governed by this License), You must (a) rename Your license so that + the phrases "Mozilla", "MOZILLAPL", "MOZPL", "Netscape", + "MPL", "NPL" or any confusingly similar phrase do not appear in your + license (except to note that your license differs from this License) + and (b) otherwise make it clear that Your version of the license + contains terms which differ from the Mozilla Public License and + Netscape Public License. (Filling in the name of the Initial + Developer, Original Code or Contributor in the notice described in + Exhibit A shall not of themselves be deemed to be modifications of + this License.) + +7. DISCLAIMER OF WARRANTY. + + COVERED CODE IS PROVIDED UNDER THIS LICENSE ON AN "AS IS" BASIS, + WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, + WITHOUT LIMITATION, WARRANTIES THAT THE COVERED CODE IS FREE OF + DEFECTS, MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE OR NON-INFRINGING. + THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE COVERED CODE + IS WITH YOU. SHOULD ANY COVERED CODE PROVE DEFECTIVE IN ANY RESPECT, + YOU (NOT THE INITIAL DEVELOPER OR ANY OTHER CONTRIBUTOR) ASSUME THE + COST OF ANY NECESSARY SERVICING, REPAIR OR CORRECTION. THIS DISCLAIMER + OF WARRANTY CONSTITUTES AN ESSENTIAL PART OF THIS LICENSE. NO USE OF + ANY COVERED CODE IS AUTHORIZED HEREUNDER EXCEPT UNDER THIS DISCLAIMER. + +8. TERMINATION. + + 8.1. This License and the rights granted hereunder will terminate + automatically if You fail to comply with terms herein and fail to cure + such breach within 30 days of becoming aware of the breach. All + sublicenses to the Covered Code which are properly granted shall + survive any termination of this License. Provisions which, by their + nature, must remain in effect beyond the termination of this License + shall survive. + + 8.2. If You initiate litigation by asserting a patent infringement + claim (excluding declatory judgment actions) against Initial Developer + or a Contributor (the Initial Developer or Contributor against whom + You file such action is referred to as "Participant") alleging that: + + (a) such Participant's Contributor Version directly or indirectly + infringes any patent, then any and all rights granted by such + Participant to You under Sections 2.1 and/or 2.2 of this License + shall, upon 60 days notice from Participant terminate prospectively, + unless if within 60 days after receipt of notice You either: (i) + agree in writing to pay Participant a mutually agreeable reasonable + royalty for Your past and future use of Modifications made by such + Participant, or (ii) withdraw Your litigation claim with respect to + the Contributor Version against such Participant. If within 60 days + of notice, a reasonable royalty and payment arrangement are not + mutually agreed upon in writing by the parties or the litigation claim + is not withdrawn, the rights granted by Participant to You under + Sections 2.1 and/or 2.2 automatically terminate at the expiration of + the 60 day notice period specified above. + + (b) any software, hardware, or device, other than such Participant's + Contributor Version, directly or indirectly infringes any patent, then + any rights granted to You by such Participant under Sections 2.1(b) + and 2.2(b) are revoked effective as of the date You first made, used, + sold, distributed, or had made, Modifications made by that + Participant. + + 8.3. If You assert a patent infringement claim against Participant + alleging that such Participant's Contributor Version directly or + indirectly infringes any patent where such claim is resolved (such as + by license or settlement) prior to the initiation of patent + infringement litigation, then the reasonable value of the licenses + granted by such Participant under Sections 2.1 or 2.2 shall be taken + into account in determining the amount or value of any payment or + license. + + 8.4. In the event of termination under Sections 8.1 or 8.2 above, + all end user license agreements (excluding distributors and resellers) + which have been validly granted by You or any distributor hereunder + prior to termination shall survive termination. + +9. LIMITATION OF LIABILITY. + + UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, WHETHER TORT + (INCLUDING NEGLIGENCE), CONTRACT, OR OTHERWISE, SHALL YOU, THE INITIAL + DEVELOPER, ANY OTHER CONTRIBUTOR, OR ANY DISTRIBUTOR OF COVERED CODE, + OR ANY SUPPLIER OF ANY OF SUCH PARTIES, BE LIABLE TO ANY PERSON FOR + ANY INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES OF ANY + CHARACTER INCLUDING, WITHOUT LIMITATION, DAMAGES FOR LOSS OF GOODWILL, + WORK STOPPAGE, COMPUTER FAILURE OR MALFUNCTION, OR ANY AND ALL OTHER + COMMERCIAL DAMAGES OR LOSSES, EVEN IF SUCH PARTY SHALL HAVE BEEN + INFORMED OF THE POSSIBILITY OF SUCH DAMAGES. THIS LIMITATION OF + LIABILITY SHALL NOT APPLY TO LIABILITY FOR DEATH OR PERSONAL INJURY + RESULTING FROM SUCH PARTY'S NEGLIGENCE TO THE EXTENT APPLICABLE LAW + PROHIBITS SUCH LIMITATION. SOME JURISDICTIONS DO NOT ALLOW THE + EXCLUSION OR LIMITATION OF INCIDENTAL OR CONSEQUENTIAL DAMAGES, SO + THIS EXCLUSION AND LIMITATION MAY NOT APPLY TO YOU. + +10. U.S. GOVERNMENT END USERS. + + The Covered Code is a "commercial item," as that term is defined in + 48 C.F.R. 2.101 (Oct. 1995), consisting of "commercial computer + software" and "commercial computer software documentation," as such + terms are used in 48 C.F.R. 12.212 (Sept. 1995). Consistent with 48 + C.F.R. 12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (June 1995), + all U.S. Government End Users acquire Covered Code with only those + rights set forth herein. + +11. MISCELLANEOUS. + + This License represents the complete agreement concerning subject + matter hereof. If any provision of this License is held to be + unenforceable, such provision shall be reformed only to the extent + necessary to make it enforceable. This License shall be governed by + California law provisions (except to the extent applicable law, if + any, provides otherwise), excluding its conflict-of-law provisions. + With respect to disputes in which at least one party is a citizen of, + or an entity chartered or registered to do business in the United + States of America, any litigation relating to this License shall be + subject to the jurisdiction of the Federal Courts of the Northern + District of California, with venue lying in Santa Clara County, + California, with the losing party responsible for costs, including + without limitation, court costs and reasonable attorneys' fees and + expenses. The application of the United Nations Convention on + Contracts for the International Sale of Goods is expressly excluded. + Any law or regulation which provides that the language of a contract + shall be construed against the drafter shall not apply to this + License. + +12. RESPONSIBILITY FOR CLAIMS. + + As between Initial Developer and the Contributors, each party is + responsible for claims and damages arising, directly or indirectly, + out of its utilization of rights under this License and You agree to + work with Initial Developer and Contributors to distribute such + responsibility on an equitable basis. Nothing herein is intended or + shall be deemed to constitute any admission of liability. + +13. MULTIPLE-LICENSED CODE. + + Initial Developer may designate portions of the Covered Code as + "Multiple-Licensed". "Multiple-Licensed" means that the Initial + Developer permits you to utilize portions of the Covered Code under + Your choice of the NPL or the alternative licenses, if any, specified + by the Initial Developer in the file described in Exhibit A. + +EXHIBIT A -Mozilla Public License. + + ``The contents of this file are subject to the Mozilla Public License + Version 1.1 (the "License"); you may not use this file except in + compliance with the License. You may obtain a copy of the License at + http://www.mozilla.org/MPL/ + + Software distributed under the License is distributed on an "AS IS" + basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the + License for the specific language governing rights and limitations + under the License. + + The Original Code is ______________________________________. + + The Initial Developer of the Original Code is ________________________. + Portions created by ______________________ are Copyright (C) ______ + _______________________. All Rights Reserved. + + Contributor(s): ______________________________________. + + Alternatively, the contents of this file may be used under the terms + of the _____ license (the "[___] License"), in which case the + provisions of [______] License are applicable instead of those + above. If you wish to allow use of your version of this file only + under the terms of the [____] License and not to allow others to use + your version of this file under the MPL, indicate your decision by + deleting the provisions above and replace them with the notice and + other provisions required by the [___] License. If you do not delete + the provisions above, a recipient may use your version of this file + under either the MPL or the [___] License." + + [NOTE: The text of this Exhibit A may differ slightly from the text of + the notices in the Source Code files of the Original Code. You should + use the text of this Exhibit A rather than the text found in the + Original Code Source Code for Your Modifications.] + diff --git a/official/2.1.1/bin/Delphi 2007.log b/official/2.1.1/bin/Delphi 2007.log new file mode 100644 index 0000000..1829cf5 --- /dev/null +++ b/official/2.1.1/bin/Delphi 2007.log @@ -0,0 +1,72 @@ +================================================================================ +JCL 2.1 Release Build 3536 +==========Delphi 2007=========================================================== +Installed personalities : +32 bit Delphi +================================================================================ +Multiple profile installation +Single profile installation +================================================================================ +Saving conditional defines... +Loaded template for include file C:\jcl\source\include\jcl.template.inc +Saved include file C:\jcl\source\include\jcld11.inc +Building common library units for Delphi 2007... +"C:\Archivos de programa\CodeGear\RAD Studio\5.0\bin\dcc32.exe" bzip2 Jcl8087 JclAbstractContainers JclAlgorithms JclAnsiStrings JclArrayLists JclArraySets JclBase JclBinaryTrees JclBorlandTools JclCharsets JclComplex JclCompression JclContainerIntf JclCounter JclDateTime JclEDI JclEDISEF JclEDITranslators JclEDIXML JclEDI_ANSIX12 JclEDI_ANSIX12_Ext JclEDI_UNEDIFACT JclEDI_UNEDIFACT_Ext JclExprEval JclFileUtils JclHashMaps JclHashSets JclIniFiles JclLinkedLists JclLogic JclMath JclMIDI JclMime JclNotify JclPCRE JclQueues JclResources JclRTTI JclSchedule JclSimpleXml JclSortedMaps JclStacks JclStatistics JclStreams JclStrHashMap JclStringConversions JclStringLists JclStrings JclSynch JclSysInfo JclSysUtils JclTrees JclUnicode JclUnitConv JclUnitVersioning JclUnitVersioningProviders JclValidation JclVectors JclWideStrings pcre zlibh --no-config -U"..\..\..\Archivos de programa\CodeGear\RAD Studio\5.0\lib" -M -$X+ -$G+ -$H+ -$P+ -$U- -$T- -$V+ -$J+ -$Z1 -$J+ -$C- -$D- -$I- -$L- -$O+ -$Q- -$R- -$W- -$Y- -N"..\..\lib\d11" -I"..\include" -U".;..\windows;..\vcl" -R".;..\windows;..\vcl" +CodeGear Delphi for Win32 compiler version 18.5 +Copyright (c) 1983,2007 CodeGear +556622 lines, 5.41 seconds, 50250 bytes code, 16736 bytes data. +Building windows library units for Delphi 2007... +"C:\Archivos de programa\CodeGear\RAD Studio\5.0\bin\dcc32.exe" Hardlinks JclAppInst JclCIL JclCLR JclCOM JclConsole JclDebug JclDebugSerialization JclDebugXMLDeserializer JclDebugXMLSerializer JclDotNet JclHookExcept JclLANMan JclLocales JclMapi JclMetadata JclMiscel JclMsdosSys JclMultimedia JclNTFS JclPeImage JclRegistry JclSecurity JclShell JclStructStorage JclSvcCtrl JclTask JclTD32 JclTimeZones JclWideFormat JclWin32 JclWin32Ex JclWinMIDI mscoree_TLB mscorlib_TLB MSHelpServices_TLB MSTask sevenzip Snmp --no-config -U"..\..\..\Archivos de programa\CodeGear\RAD Studio\5.0\lib" -M -$X+ -$G+ -$H+ -$P+ -$U- -$T- -$V+ -$J+ -$Z1 -$J+ -$C- -$D- -$I- -$L- -$O+ -$Q- -$R- -$W- -$Y- -N"..\..\lib\d11" -I"..\include" -U"..\common;.;..\vcl" -R"..\common;.;..\vcl" +CodeGear Delphi for Win32 compiler version 18.5 +Copyright (c) 1983,2007 CodeGear +206029 lines, 2.31 seconds, 1836 bytes code, 164 bytes data. +Building vcl library units for Delphi 2007... +"C:\Archivos de programa\CodeGear\RAD Studio\5.0\bin\dcc32.exe" JclFont JclGraphics JclGraphUtils JclOpenDialogFavorites JclOpenDialogHooks JclPrint JclVclResources JclVersionControl JclVersionCtrlCVSImpl JclVersionCtrlSVNImpl --no-config -U"..\..\..\Archivos de programa\CodeGear\RAD Studio\5.0\lib" -M -$X+ -$G+ -$H+ -$P+ -$U- -$T- -$V+ -$J+ -$Z1 -$J+ -$C- -$D- -$I- -$L- -$O+ -$Q- -$R- -$W- -$Y- -N"..\..\lib\d11" -I"..\include" -U"..\common;..\windows;." -R"..\common;..\windows;." +CodeGear Delphi for Win32 compiler version 18.5 +Copyright (c) 1983,2007 CodeGear +37922 lines, 2.62 seconds, 3648 bytes code, 36 bytes data. +Building common library debug units for Delphi 2007... +"C:\Archivos de programa\CodeGear\RAD Studio\5.0\bin\dcc32.exe" bzip2 Jcl8087 JclAbstractContainers JclAlgorithms JclAnsiStrings JclArrayLists JclArraySets JclBase JclBinaryTrees JclBorlandTools JclCharsets JclComplex JclCompression JclContainerIntf JclCounter JclDateTime JclEDI JclEDISEF JclEDITranslators JclEDIXML JclEDI_ANSIX12 JclEDI_ANSIX12_Ext JclEDI_UNEDIFACT JclEDI_UNEDIFACT_Ext JclExprEval JclFileUtils JclHashMaps JclHashSets JclIniFiles JclLinkedLists JclLogic JclMath JclMIDI JclMime JclNotify JclPCRE JclQueues JclResources JclRTTI JclSchedule JclSimpleXml JclSortedMaps JclStacks JclStatistics JclStreams JclStrHashMap JclStringConversions JclStringLists JclStrings JclSynch JclSysInfo JclSysUtils JclTrees JclUnicode JclUnitConv JclUnitVersioning JclUnitVersioningProviders JclValidation JclVectors JclWideStrings pcre zlibh --no-config -U"..\..\..\Archivos de programa\CodeGear\RAD Studio\5.0\lib" -M -$X+ -$G+ -$H+ -$P+ -$U- -$T- -$V+ -$J+ -$Z1 -$J+ -$C+ -$D+ -$I+ -$L+ -$O- -$Q+ -$R+ -$W+ -$Y+ -N"..\..\lib\d11\debug" -I"..\include" -U".;..\windows;..\vcl" -R".;..\windows;..\vcl" +CodeGear Delphi for Win32 compiler version 18.5 +Copyright (c) 1983,2007 CodeGear +556622 lines, 6.02 seconds, 50418 bytes code, 16736 bytes data. +Building windows library debug units for Delphi 2007... +"C:\Archivos de programa\CodeGear\RAD Studio\5.0\bin\dcc32.exe" Hardlinks JclAppInst JclCIL JclCLR JclCOM JclConsole JclDebug JclDebugSerialization JclDebugXMLDeserializer JclDebugXMLSerializer JclDotNet JclHookExcept JclLANMan JclLocales JclMapi JclMetadata JclMiscel JclMsdosSys JclMultimedia JclNTFS JclPeImage JclRegistry JclSecurity JclShell JclStructStorage JclSvcCtrl JclTask JclTD32 JclTimeZones JclWideFormat JclWin32 JclWin32Ex JclWinMIDI mscoree_TLB mscorlib_TLB MSHelpServices_TLB MSTask sevenzip Snmp --no-config -U"..\..\..\Archivos de programa\CodeGear\RAD Studio\5.0\lib" -M -$X+ -$G+ -$H+ -$P+ -$U- -$T- -$V+ -$J+ -$Z1 -$J+ -$C+ -$D+ -$I+ -$L+ -$O- -$Q+ -$R+ -$W+ -$Y+ -N"..\..\lib\d11\debug" -I"..\include" -U"..\common;.;..\vcl" -R"..\common;.;..\vcl" +CodeGear Delphi for Win32 compiler version 18.5 +Copyright (c) 1983,2007 CodeGear +206029 lines, 2.44 seconds, 1973 bytes code, 164 bytes data. +Building vcl library debug units for Delphi 2007... +"C:\Archivos de programa\CodeGear\RAD Studio\5.0\bin\dcc32.exe" JclFont JclGraphics JclGraphUtils JclOpenDialogFavorites JclOpenDialogHooks JclPrint JclVclResources JclVersionControl JclVersionCtrlCVSImpl JclVersionCtrlSVNImpl --no-config -U"..\..\..\Archivos de programa\CodeGear\RAD Studio\5.0\lib" -M -$X+ -$G+ -$H+ -$P+ -$U- -$T- -$V+ -$J+ -$Z1 -$J+ -$C+ -$D+ -$I+ -$L+ -$O- -$Q+ -$R+ -$W+ -$Y+ -N"..\..\lib\d11\debug" -I"..\include" -U"..\common;..\windows;." -R"..\common;..\windows;." +CodeGear Delphi for Win32 compiler version 18.5 +Copyright (c) 1983,2007 CodeGear +37922 lines, 0.83 seconds, 3917 bytes code, 36 bytes data. +Building C:\jcl\packages\d11\Jcl.dpk... +Cleaning package cache for Jcl110.bpl +Cleaning ok +Compiling package C:\jcl\packages\d11\Jcl.dpk +"C:\Archivos de programa\CodeGear\RAD Studio\5.0\bin\dcc32.exe" "C:\jcl\packages\d11\Jcl.dpk" --no-config -U"..\..\..\Archivos de programa\CodeGear\RAD Studio\5.0\lib" -N"..\..\lib\d11" -I"..\..\lib\d11;..\..\source\include" -R"..\..\lib\d11;..\..\source\include" -U"..\..\lib\d11;..\..\..\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Dcp;..\..\lib\d11;..\..\source\include" -LN"..\..\lib\d11" -LE"..\..\..\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl" +CodeGear Delphi for Win32 compiler version 18.5 +Copyright (c) 1983,2007 CodeGear +137 lines, 0.64 seconds, 1339380 bytes code, 119960 bytes data. +Compilation success +...done. +Building C:\jcl\packages\d11\JclContainers.dpk... +Cleaning package cache for JclContainers110.bpl +Cleaning ok +Compiling package C:\jcl\packages\d11\JclContainers.dpk +"C:\Archivos de programa\CodeGear\RAD Studio\5.0\bin\dcc32.exe" "C:\jcl\packages\d11\JclContainers.dpk" --no-config -U"..\..\..\Archivos de programa\CodeGear\RAD Studio\5.0\lib" -N"..\..\lib\d11" -I"..\..\lib\d11;..\..\source\include" -R"..\..\lib\d11;..\..\source\include" -U"..\..\lib\d11;..\..\..\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Dcp;..\..\lib\d11;..\..\source\include" -LN"..\..\lib\d11" -LE"..\..\..\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl" +CodeGear Delphi for Win32 compiler version 18.5 +Copyright (c) 1983,2007 CodeGear +65 lines, 0.38 seconds, 1387168 bytes code, 812 bytes data. +Compilation success +...done. +Building C:\jcl\packages\d11\JclVcl.dpk... +Cleaning package cache for JclVcl110.bpl +Cleaning ok +Compiling package C:\jcl\packages\d11\JclVcl.dpk +"C:\Archivos de programa\CodeGear\RAD Studio\5.0\bin\dcc32.exe" "C:\jcl\packages\d11\JclVcl.dpk" --no-config -U"..\..\..\Archivos de programa\CodeGear\RAD Studio\5.0\lib" -N"..\..\lib\d11" -I"..\..\lib\d11;..\..\source\include" -R"..\..\lib\d11;..\..\source\include" -U"..\..\lib\d11;..\..\..\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Dcp;..\..\lib\d11;..\..\source\include" -LN"..\..\lib\d11" -LE"..\..\..\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl" +CodeGear Delphi for Win32 compiler version 18.5 +Copyright (c) 1983,2007 CodeGear +64 lines, 0.30 seconds, 92228 bytes code, 1760 bytes data. +Compilation success +...done. diff --git a/official/2.1.1/bin/JCL-install.ini b/official/2.1.1/bin/JCL-install.ini new file mode 100644 index 0000000..1062887 --- /dev/null +++ b/official/2.1.1/bin/JCL-install.ini @@ -0,0 +1,151 @@ +[Delphi 2007] +JclJediCodeLibrary=1 +JclJCLDef=1 +JclJCLDefMath=1 +JclJCLDefDebug=0 +JclJCLDefEDI=0 +JclJCLDefPCRE=1 +JclJCLDefBZip2=1 +JclJCLDefZLib=1 +JclJCLDefUnicode=1 +JclJCLDefContainer=1 +JclJCLDef7z=1 +JclJCLDefThreadSafe=1 +JclJCLDefDropObsoleteCode=1 +JclJCLDefUnitVersioning=1 +JclJCLDefMathPrecSingle=0 +JclJCLDefMathPrecDouble=0 +JclJCLDefMathPrecExtended=1 +JclJCLDefMathExtremeValues=1 +JclJCLDefHookDllExceptions=0 +JclJCLDefDebugNoBinary=0 +JclJCLDefDebugNoTD32=0 +JclJCLDefDebugNoMap=0 +JclJCLDefDebugNoExports=0 +JclJCLDefDebugNoSymbols=0 +JclJCLDefEDIWeakPackageUnits=0 +JclJCLDefPCREStaticLink=1 +JclJCLDefPCRELinkDLL=0 +JclJCLDefPCRELinkOnRequest=0 +JclJCLDefBZip2StaticLink=1 +JclJCLDefBZip2LinkDLL=0 +JclJCLDefBZip2LinkOnRequest=0 +JclJCLDefZLibStaticLink=1 +JclJCLDefZLibLinkDLL=0 +JclJCLDefZLibLinkOnRequest=0 +JclJCLDefUnicodeSilentFailure=1 +JclJCLDefUnicodeRawData=1 +JclJCLDefUnicodeZLibData=0 +JclJCLDefUnicodeBZip2Data=0 +JclJCLDefContainerAnsiStr=1 +JclJCLDefContainerWideStr=0 +JclJCLDefContainerUnicodeStr=0 +JclJCLDefContainerNoStr=0 +JclJCLDef7zLinkDLL=0 +JclJCLDef7zLinkOnRequest=1 +JclJCLEnvironment=0 +JclJCLEnvLibPath=0 +JclJCLEnvBrowsingPath=0 +JclJCLEnvDebugDCUPath=0 +JclJCLMake=1 +JclJCLMakeRelease=1 +JclJCLMakeReleaseVCL=1 +JclJCLMakeDebug=1 +JclJCLMakeDebugVCL=1 +JclJCLCopyHppFiles=0 +JclJCLCheckHppFiles=0 +JclJCLPackages=1 +JclJCLVclPackage=1 +JclJCLDualPackages=0 +JclJCLCopyPackagesHppFiles=0 +JclJCLMapCreate=0 +JclJCLJdbgCreate=0 +JclJCLJdbgInsert=0 +JclJCLMapDelete=0 +JclJCLExperts=0 +JclJCLExpertsDsgnPackages=1 +JclJCLExpertsDLL=0 +JclJCLExpertDebug=0 +JclJCLExpertAnalyzer=0 +JclJCLExpertFavorite=0 +JclJCLExpertRepository=0 +JclJCLExpertThreadNames=0 +JclJCLExpertUses=0 +JclJCLExpertSimdView=0 +JclJCLExpertVersionControl=0 +JclJCLExpertStackTraceViewer=0 +JclJCLExceptDlg=0 +JclJCLExceptDlgVCL=0 +JclJCLExceptDlgVCLSnd=0 +JclJCLHelp=0 +JclJCLHelpHlp=0 +JclJCLHelpChm=0 +JclJCLHelpHxS=0 +JclJCLHelpHxSPlugin=0 +JclJCLMakeDemos=0 +BPL-Path=C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl +DCP-Path=C:\jcl\lib\d11\ + +[Delphi 2007 demos] +examples\common\containers\algorithms\AlgorithmsExample.dpr=0 +examples\windows\peimage\ApiHookExample.dpr=0 +examples\windows\appinst\AppInstExample.dpr=0 +examples\windows\compression\archive\ArchiveDemo.dpr=0 +examples\common\graphics\ClipLineDemo.dpr=0 +examples\windows\clr\ClrDemo.dpr=0 +examples\windows\console\ConsoleExamples.dpr=0 +examples\common\containers\performance\ContainerPerformance.dpr=0 +examples\windows\asuser\CreateProcAsUserExample.dpr=0 +examples\windows\delphitools\dependencyviewer\DependView.dpr=0 +examples\windows\edisdk\EDICOMExample.dpr=0 +examples\windows\edisdk\comserver\EDISDK.dpr=0 +examples\common\sysinfo\EnvironmentExample.dpr=0 +examples\windows\debug\reportconverter\ExceptionReportConverter.dpr=0 +examples\common\expreval\ExprEvalExample.dpr=0 +examples\windows\filemapping\FileMapping.dpr=0 +examples\common\filesearch\FileSearchDemo.dpr=0 +examples\windows\filesummary\FileSummaryExample.dpr=0 +examples\windows\debug\framestrack\FramesTrackExample.dpr=0 +examples\common\containers\hashing\HashingExample.dpr=0 +examples\windows\debug\mttest\JclDebugMTTest.dpr=0 +examples\windows\ntfs\JEDISoftLinks.dpr=0 +examples\windows\lanman\LanManExample.dpr=0 +examples\common\containers\lists\ListExample.dpr=0 +examples\windows\locales\LocalesExample.dpr=0 +examples\windows\mapi\MapiExample.dpr=0 +examples\common\multimedia\MidiOutExample.dpr=0 +examples\windows\multimedia\MultiMediaExample.dpr=0 +examples\windows\ntservice\NtSvcExample.dpr=0 +examples\common\numformat\NumFormatExample.dpr=0 +examples\common\pcre\PCREDemo.dpr=0 +examples\windows\peimage\PeFuncExample.dpr=0 +examples\windows\delphitools\peviewer\PeViewer.dpr=0 +examples\windows\mapi\ReadMailExample.dpr=0 +examples\windows\registry\RegistryExample.dpr=0 +examples\windows\delphitools\resfix\ResFix.dpr=0 +examples\common\rtti\RTTIExample.dpr=0 +examples\windows\delphitools\screenjpg\ScreenJPG.dpr=0 +examples\windows\appinst\SingleInstExample.dpr=0 +examples\windows\debug\sourceloc\SourceLocExample.dpr=0 +examples\windows\debug\stacktrack\StackTrackDLLsComLibrary.dpr=0 +examples\windows\debug\stacktrack\StackTrackDLLsDynamicLibrary.dpr=0 +examples\windows\debug\stacktrack\StackTrackDLLsExample.dpr=0 +examples\windows\debug\stacktrack\StackTrackDLLsStaticLibrary.dpr=0 +examples\windows\debug\stacktrack\StackTrackExample.dpr=0 +examples\common\graphics\StretchGraphicExample.dpr=0 +examples\windows\structstorage\StructStorageExample.dpr=0 +examples\windows\sysinfo\SysInfoExample.dpr=0 +examples\windows\tasks\TaskDemo.dpr=0 +examples\common\textconverter\TextConverter.dpr=0 +examples\common\textreader\TextReaderExample.dpr=0 +examples\windows\debug\threadexcept\ThreadExceptExample.dpr=0 +examples\windows\timezones\TimeZoneDemo.dpr=0 +examples\windows\delphitools\toolhelpview\ToolHelpViewer.dpr=0 +examples\common\containers\trees\TreeExample.dpr=0 +examples\common\containers\trees\TreeStructure.dpr=0 +examples\common\unitversioning\UnitVersioningTest.dpr=0 +examples\common\unitversioning\UnitVersioningTestDLL.dpr=0 +examples\windows\peimage\UnmangleNameExample.dpr=0 +examples\windows\fileversion\VerInfoExample.dpr=0 +examples\windows\widestring\WideStringExample.dpr=0 + diff --git a/official/2.1.1/bin/JediInstaller.exe b/official/2.1.1/bin/JediInstaller.exe new file mode 100644 index 0000000000000000000000000000000000000000..66461860954aa678a2e627afe313e3481367ac87 GIT binary patch literal 563200 zcmce9ePC3@_4bB*5FnTcK|!geH7ZqtKtN-G8b}rbB(RW#4+SA43kifI-RufjJ^~?1 zdPz+!w6w(*DsBC>wxyLKP-_EA11M?=RH#s!TH4=T6K&K~qonNnJTvFs-3>_n<9*-2 z?lbqynKNh3%$%8fXYOp?gDyuehr%Km( zeEvXG?kk^fY%C}(t4^u%R4(%rtxQ?ztM;ZWai@5E6)C=o61OL1Zdpb8=>C0E@4J@R z|DSO#r^AsO)yMI`69v<)d|Mq~-`Fpz*APc;jKh(G5B|f%;Yo2g7LO>?jKitgV&S1(!v0doS5o9H0&Vdye9=aC0bP-N znJDduCDql4aTMH&uU!)VXe1wEnnsjqfyy?pkz*66J@_)o=Pg(A5)kch!G`?nzKT4L zmZxk5o2f?MgD(>mJHq2GuPk8GzD)zDR^A)s9=-e3xWp(_X+M5d{*!o!99Yz z1a}JV5Zor%D7aN{i{NI#8o{-Ks|CG+Rf6S$rGh1biv<@5&J!#UbP47P<_KmBW(tlM z%n%$SI8t!9;4r~d!4$!vf`bK<1(O651mgu`1Ra9iujzW~66_T05NsDT1uqJ=3SJOA zCwNA%MewBHalxa4O@c279uV9oxL5F5!Dj^b2<{TxDY!#$n_#2hR>3WTn+0nG*9xu{ z^a@r9mJ5~&mIy8uTp&14ut3lym@Akgm@SwoI9@PAaE#zc!Qq0#1XBf51cwR^7EBgQ z{iCke6v3f_gB7}#XPT|SV9?)?={P_q=Qo=2&G$hu&efgw-dj7tQI+io`uZMt3z25S ze-Pm}n-O2vdM3pL@q|3Ey1nQvZ(W{vsAx%8%|DSf%ayc--($51xEo=yN2kx3eo zndmS$4ly|t{arVeLD_=0r=Ai!2o4n-ESM~qB$yx=FBl`}5bPE^b_sS0b_li$nt~Sv zTLmu&o)bJH*dlmR@VMYn!6v~M1P=)A6WlBKtl%?(djxk0?iAc1xJ|H8aI4@J!Oem- zf@=j=3wi~s1j_|W1xo}M3oa0xCs-ip63i9M5zH3M6dW&@Avi{Gq+pKJQ|@V9?>U0m zf|-Kj1v3Q42#ypSE;vjuRWL|KyaR5f#43Y?>50k!7YL%f70z@vETy1d4dIkF2P*E9KmeC zOu_Mj8G>U3M+y!X94445m?Ah-aIj#qV3J^hV7y>V4|K?N_ZeNTF2PR0c0p6{qF}4w z1;KNIX9QaWPYNCvJSx~E_=4a8!F_^z1)mjsMsSbdF2S9GI|R20HVSSP+#;84NA zg2{qOf(e50f-!;)!ER~aU4k8g?SiJ@g&x={*A||W>obBaf+q!!3mz405`01MfZ#sC zy@JmQJ|nnCaF@dL6XuXk4ElvedwNr0Y4y-dM@evGNqtH%HUZ=W1x>+=f~|rV1kVYc5o{4WDR^A)s9=-e z3xWp(_X+M5d{*!o!99Yz1a}JV5Zor%D7aN{i{NI#8o`TVhYrDnv$~zd3&sdK1iOW= zOK_;rhY5}p%uqOcdC+D43$t3x&4ahQBraDlM=)D(tKb&F&4M+8YXw&edIhTl%LPjX zO9b}{J}dZ);2yzUg2x4$&S@LGAb3DX9b@T+#|S4aHrr7!EJ(#f?EZ*2yPav z5nL;{TF@(4C0H(4Dp(@8Sa5;hJi!7%mtd}7j$pQ6rr>zN48bviBL#;G4iiijOc5L^ zI9M=QFi9{$FkUc5&>`3@_0c8RDcB*{E@%o~6l@i|Ab3vjj9`n%zaVG|b_sS0CjVKt zgCxNO!Fa(KL5E<9;84K~!7+j(1&0d`6I>uzD!5s&QE;b1-ZXaLIW+M-!S@9}5bPBE zx8R3@9|?8|ek}Nj;3dIs!T$(e7Uc79=G!XxH^H|A|1Nk@@E?Nz6#QR7Q!pU-wqToJ zyWl&5?+X4)uto5Xf~N#e3!V}Dli=%uX9dp*{#o!1!SjL_1pgxVrr=)%n*mDEJM* zCk4MLxJ_`o;I{<7Ex1GQJA&U8{GQ-W!KVbjFZct&8o`Z%n*?hGHw)GYJ|_6M;1so*lfQo%C8<$@~&%LP{oRtQ!Kx&&tl&KArUED$UdoFh0_aGv0N!3PB& z5?mm-Q1D^FMS_`v69p#;W(j5sIt3>SP7%xzoGLg?aJpcwV4mO%!I^?11xE>v7EBi$ zBRE#@UcvhWGX(Dk4*y~%o@;*kALIF0^*CmF$CEN0=kRI8$Hb=vpBj9&;IjjtKF(>y zM(qlAj{x5PFPr0qbGXJaG>nV3?h1cz=D6-`5MEdLd7i6!gn6$?0p6Kxut-)%m z`nw+A@py>V8>uE0Rl6IHlXoC_rz$B+i;8s$E?b!`*^d5#Rth|C?Pi+31%+ApW0Y`f zg^SC4F=4`SpEoOi&RpYTwd}4I)F1%s5rE%?-9f@^6Kx*TdDwoTA`dz(L;L8Ci4n;Lu8k}9`9+bjx zb{%rmpo#dgp1|bN75H==%BYqRrWKSb6$&1PpiWVE`LM;ZNxZVSm6KpFo78MaNgL3QeL5k!CBF?_dm zpfZhrEL8PTd-RNy_Y8`>`II-l_GpKBAGP>+OCgkI@e9(d;+s#sgP4x`>V$^EE~D9e z^gUb_b~R)rncrlZtfYG9xn}2uenwV8y^{(%4s1qhOXb2dFw%S)$$6&UDW*8*S{`lm zAM*{ggi~0um;sr#`VS#-gY%4eJEXH1p9A^>zyCXmVH*A#j4<9ra|bRS zzmyOAErLPr5$NC7!MZ(=i8Yaf$07011$>$PvAAM52fGYsGCoQ8B;XV83JxOU!Xs>2 zN(PcU@`|b^R+Qvc7L{lkeNWlSqGj&V@~ROf<>lmM9@)%e=m_L724Cj?;OUH($q4o! z{82BaFRTcc8lqoKZVu(vQ0^Yeou%X^yAq#=;)(lh&B?a#2%0zZ7=k>eQpfBvkGt4g z=~?5f@Osu1RA%eF1eP9G%P*JtwKKo?dywDXu#OaIBQh*J!eXer=rmPcvmYrcsLV%p zWt9~YN2aUg;bI;I5Pztgd8|`;^sEaqsS<_k6Ut`}w?x?XyjmUw%%h2Uv@(w&DvzP4 z=d0B_nHL^WTNr4YL6AMMWH~n36jZKoSGYW7kCc_Wm$|ti!m?da$sHW0jh zkGjudTbReZhmSN7P0I%3`Kj9(R$~T~JwBUg|EdN*|qHQB+l3 zTFGrBc77``h`Gzd^V_TP8`rY7mvO}3IId-t!lTIXT7QgZy?hqmIfR}v-|H!>Se8{; z@rc_~jk=X_dibbo=fimBvl{vRxAFgT%%`xzy}Am`$6ex_neYCJ&s|aMmb~)kSPtr2 ze}yUEFglF>4vaQ%8_i}SJyY}M^Y8~-5F6$Xnje11-*`+}(BFuWsg;$n7dAIHfRXFH zb7m=F&E^fQ7+s?iw@yGmtsUn`{Q4LKjDd;!3vLM3C#M?8sT)7(Kxx+9vhnR2pl5vT zk*3kTE&6_N`kF zzZF;8`ar)Hs977`D_}5U;G}U!!exI1j~DpLXOR6W8FMVziHF}xfb7GqaY{TD%Z`h> zs%CVzW+PMgMQSAK69aXk1Ko%)2G$URNyx6nB^>nPjp~qRJ2x$YAy;Lv&;ren`%tjQcNTSVP7SP|2zc z(TCp}tkfCs*~&1Esei*Z#F|L>EMFEqKX|Gm`IIL z?3l=6|BRfsGw#0>dlMPEAzT$Z>hN2)s1gkRY{kxI>KBn(+sZD(HLC7eW`$kuDOsc~;a}f5!RMHq6%umQk+}32A+k8H8^9JaIzMonjXT(iV?&fo8 zHDFBKQu=wdB2MrL^QdMtRRzRLX-h zp-8$GioBMzDl45OErZe?w5XKUCoV7z*VmGAm&I>MdH-WbNw%n3rv&Om@ABVtx&X5( z+gQ@}P+GG^l@j*3X1R7)+?I^Rl(EU8O1V6^zE-(rTl|)knylz%Ntgu)jr@@A2Y7^x|sCyZM~k0qSsQR^B>HCXOa3w@JhV{yV0OFUJmwl zI9BCIq77k**xHRhm~TQZ6CDo3)tqQzQV>rFvF2|N)SRf4*V1C1gZybb*x&)toj%? z!lg!Lb_6^SaEmQ>K+TB`$*hk}ObE~H{Xd1us!N9aAma_83vX^xuiD-*fg({N7@hd| zb~KYuQ{;ZF$aY)!;F=R%qDYNR91yNZnN7Cz(~8Wp>6Ve83lzLx=(d8*{)Lz=K>ZUD2Q>_uYnIm)( zN9e#Nj2IZv*`V_b|6wyOp=nEYYE(l(YLp($n~jX%T*bS&$$MMP-yf)Xxn|3P)L!7| zWpUWj#z0znQy@(XWvhOKLK6~NAv79EqOBz1LRG%04*{b%_s&agys_YK0vpqr8!3kYZwJ(zOwUYHzb%3ba4@~`fGKH&Zl_>#? z37^7vS9qEFgRy@P#_ZJV_(=3R5qy_jv_vo`TFg?k?9?POCk4KU9*oNP0${i5PJ zxb!9_s6CoujZfCS`%Qn;_wKvsf_U%#ZMKhriO(0zxh(hYM;ya~!HsV_Fx~a^6E=Wv{U zD~;^YEzyG(gRXDH+fqZf2CJDWIT#&zd$0slxjksebmY&eJ=$fwUmugY^cXs~!vSN& z97L@L};?;L)+sgkg#yeG|jVLRp7JtOU z=e9H{WL%mmVk^v<8iVq(phu!(RYCQ%;fH(>?w`-w9953FoHx8-bQ!(P4X+_;&`vz6 z88>=W3MvP4hiJ?lP?dY5;HS!rfkxuedhe{uFwO#F&|=LwO*k=Ous9#Mdn~gQrCvY% z_R@_nInEjVjC+>W7vx=5a&8-20+yv4Uv*qqT0dqMo`%5FM=MX?6!P<3^z*xwPJ>t7 zw6tD1du3IzN1PWd4+9!?Km3d-Uh4?=|@xMyPzL) zcC!686n1g};UaE=>z!S->pFuzDSg`@SoeC|nL4`~^19Tm=|9`Up0)oTIYFkm5yJd| zhfbpQJFtYI7Ymeb?fF!#9op67@xNLdc+hF7*X;ZVnSZ1^u0P_I);qSr*`Bz+@FTMh zQjNlPX7ixZxkKxWjJnN{&>5=<^}TA>bp#W)`|VYLB4h#y=B-H0q<;na0|#G*hFAqq ziy4-FSh?x0&+A-TU-*eu@TSQj1wVj-A6!+z1rU3P)ni6Ot>wL_&SB(&6_y6)2d?FP z@Syz@m-%H(f$-i(Qu_JbIhgSn4x_NMzE|5V$DHlD9PLb4${T)0)UIofD97ia3-xC? z{DF^OQWm!LPd_n>fBAE)s_!$!Qr*_hjg+B^2HAMo{07a22M68*xMgZK{$&0d zv|}-;Y#;RK#Bsw@*N!o`7Pc_}zH_zXQ-i+itw+;?Kr=5Mhwb2MA>w88mw4cTH0w?p zpiDzP4@2hs2bD8}uT^aywwz0MieAyH>7iI@0j^d6RLI8uImc=`a>AsCR#>8w>A`ZK*Fo$5NM^7tbfHQ z?3f0IW-!3ITrTDcql^P$BjXqzhHV3fGF3hbsFYd)ieWYstaPAY{|5C_jg^FF06mRm z{x6L6{IM`&O~d+Ogt2x*rWng;`czvf?LGu6wDX(4fyA~Iu)GZ zuo~~@dswZEvTUpUtm6u+IUqC4YFsB*t=gep{3R0-iIUob%_O`h^ZAzE8~$9+b5Uo`G@wzVVvZN z`FS(b?i-mwGHJLUb7arVPrGmQNOjFM+p_A)w2X|g_ov;fdE!7T@)Rv8E7sTC1yEc) zHGgJqk+-a3qQvMp=HblBo0v9g)EES9nc!X&E;A8vA=;Nl-Jfxv&CC4DJZYmw<86HE zsMf*KRu&bfSz3hXtI8@$Dpys5c`UTmbn07Nr729$>#`*)@4IiTj*rE4mTT%4t5iW*NiEqRt^;8qqyt z?C6m0#Z~GuA|GX2;fd6JbU2@`1L33Y&{1fiI_RV6mdNn*s$NEp3M-GuvdbgaYzM1V zofW$gR5E&$k>*!)&8uq6rcs`=Fe@!vmQ}c` z-6~$y^Nh49lZ2o76jx7~q*G`atb2==A@xMNsJb7Up_viEx*+eANsE{~&Elm@n+aj^ z(SDky*c1&9DnOfV$4lE7%Z_NtE`2m@*^;zSdAK(~Y^Y0BUAD4H_~~Polr2Mx*6CH* zE7BB+@@SjlYR$oGZR6FNLDKXGu1?F+vSI0bp{cpcHlq#s7M)3GYu0LroZUDg^;S$VnTcU1k^6rB&{+I>>wM)b+CSMQT! zq~EDNDe0*5ipsK#G>?|8Y+5~i=G2VYN;lRa;#HXTCoe!d{Bg({y@Wf2xo4pgDb>%BmuZPy5QL6UU}aaeG!4Mf4T=z;yAc5%nQ7 zyWK0lKE>m9uTZ)&Z}I7Nc@-^pX2GKSN82>oV3|r4vVpn=ht&q`x(drPL<{*KOFuOZ z$T-CIqWgo+=Qx*ful9$u6Z@cYav5o5Ryx*sdF8UQ;-Yd}=MbNk zl?0wp8_jVq@wiu6>6ve-P_8Jm*dd~QW<<76*g|v)*-U)JsB}rsJRT{l_CZCZqpowd zB`fC;J#0)tD-Y3an`fj=wdmAqb((WhR`%4aG#S=ehQZ-% zECJ6XU-_~kk7lO48^U?B-4!c~JS%2YdR7&!(fZx2;@wM%OUjDVN_2dMicfQ+v8ysi z$e3JKQC?J0lE2Cg?yJaHs^hCwd`Je%JI^ZbWKR)x%qZE(;rTCBbe#xv>d*SO?WDUI zG}m#1RGjF(Om)FER$`{rvc<-#i{(|~03y4eYQGR3ujNM6jWjvRqrbFunOf|o9V~x& zW4JD5R$Qq35q2)q`+T|mtf)N16QR#kZ&A6_(ZC4Vq=(W(w3lf`RYe?;u?ui|QHAZN zBHBwBj}=rd2zjuKL&M8xF+g5neikH_*fNJ)jc+>k?5)rlQ&vhi&-6;{9IK#aD&Sm= zp{~TuAx-70?I(57gN3rx{KA!SAEph8pC?n(8QNEH2ZvXJtqp`id;qsF9<^heovB0-t9^S#>E` zlsxTUMP8wvt7v{{&%PB}DdDHzk(lDDG+(tPC!#DWCR7&NFJly=e!5-Lci9b8(K)_M ztgbFv$;ll4$jdQdby`_dQlR9l`zNS%barIn%=b1ig8ZH$t z%dxV05t_zwHXlW^Wu`^S#5|@tt+?v`^wFA+c3+)Vt(cfEbzD)ssCd!Xdq<8+Q@6)T z9(_S^_4NEK(luGpt$JG_ZH9VV^M*0^hw@mVJY7gPI}h+*k?*2VzE|iYGFfJ5qtrxD z$zY!p4ee{yhNkOzbVS`kVdfiAf5OK$J*~2|Xo<+B-Szy>DuvF^Dyy2yrE40~syUjZ zrG3Pd*V<2VUeB45dl_d_v>W9XR^Tu^j9S)pz8Bk}t3%gQC*_T?=Ka*07vxno zs!~y*>uOgPrkU!RIi>y2A_9n+NiMm7Kxucd9qXS(Dvj(G1WEe zx40TLNhza76&6g^b;NsaNt*^gkQSb1AmUc1S+S$jMoKJowd7lMc{Mp#i?gIyaaYen zKjUKG_f=yk#(<2VDhK_<#2NWh7tKo_F$R9?Ua@gcdWP7BdRhW3y^E{T@3rhg+ZI<( z%+H!S)wV6#vtl4W#{|~%y<_ejQRaCB6@9;be@x$tI7Fot<|9mgt3Bbq@?OqZNb6Cr zEV`YSYKtTFHFaH`hPK~BmhR^v9y|vbg=T2WP;FJ_J68K9Lzq7L8JzI2Euf7Gjcr%A z1(pYNE4%RY`njCwsr*P-eyVNDHD#b>W42$ZCVp1=Wi;b+RE$VkH`cH871WldQMP3_ zmSuHXQAIUsU!J{V5l$^{j#*+odT+qXa(?sRpWWN8=4Q* zQgTRnMku$El1s_~q4X!kMaprZT-pyx0V(H%5+G$BDW*`)lCpr5E}{H^l*ORHP~JYZ z6KEKR4-0J%`S(UWUx&wOdg#rd z+3unem#4DWU0t2$UWpgG9CDRDS|!hJ;6+bt0&G@+(yGn5jSz;%*uO+zyclW+> zcPQSvzG^(=g~#I(`&zK;{hY~nAh1T&Z%%%25Gx#;Mbew_)hO}v!{S-}J>%~Wi)SVF zj2{vf&ngYY|F#5|s_j3|W?rxiZU2Ga=(e9y9nU3G)@JEqM5y+^4>ewjG^JHSIZR49 zDVv4zOH!&x*&&ptNb!dA7^JKY=UGF_T2l5(s%50qkaAQgg`{jI<$_SMNZCS4r%**W%AW94&yn&> zc&go`JWI-2k@Ey8dr4^&$~sc^k@BoiR*-Ull;c8~Ps$6VToB3>Qkp=~ea)3W(KS_G zxN}zcR!ZAf@8yME>n4b?af;ik!+e{225!YChS4VDl|Is(t3eH;TfAtzcKQ%6n{Q^2e&XrZ(HFGQROrm00zT4}V<#T(&ucu<3TZS9`N8O@1ZZYRp&n@y6mnxY> zRaNd1D=)1pZu{|EAscTXx;>U=mcHR}VX3r!5wdhy!uc&(R(ZnXELkd!b`6h&S*dG; z6QUVt7w$y(SatWuur-CxI=7heq$^;7>C&-vJAdA~9-^nRsU4u@f88J!Jl zQ+qYXIevTeX>4XYhWX>%5pZI+5rS;L5<7)lAYVd~md9{ZO?=sd* zIJbtQQ)T-37mq@5Y(9>{US@2P$xe-RnZ1664NeTlxXd_&F{`<+FAgei^7iHy%c!=2 zpu}oQ9N!IS>t*=y1|)=FLuhj9mTz%Qe#>JHOrf$SW4p``nq!$^6nFl?kI&`nP1yAJ z(vKk9L)XZ_7DB2R2!$i6RVPQ=`Aa}x&N^KCJc^L%g1?rr^U6?b}a_e!pn`=C(DU~(!- znKXI2uLB%+fupV|@dr&}x4GPfgtRXkuOl`)*5N?xHq}}=cT(e5X~zl#)wj`ni1(o8 zr5^=@C^+YzRPhV=psixd3oK!uBY=H5oWZRsw`P;b;ipJwbYSM^GG0}$e!}c;l7{U_ zXU%63@(sb9(gpGcl8-mci9-0d2)Fe`gmK!u6=8cv$9f3ouB%V>a0&usYt77qrfbm{MVzv)OEB@^d(^<5upt zgdMrf#~e&`aqWyp4$m=jn2h0>2-`Z&fFRcAT_E}cCvmK_Ri8(24hL$oaF+3&)!Y}V zjIb3s@t3DjQNQ42oVkj?wqC)2S@)rLh%r8OW?gXY^;1+k|AV=9H}=whFw@tecav$k z^$DrQ+eXK4*`OiK!PH%CQCZ_It?h?CcuO$&Cv?CL>_}F%Kha>GUjUaDLLY$Lm#|wi zw8n0z%Tepo6Zhji(Sr2gms)&7$KUCV8UF=e@?7K9+CVRL=L6=yv53id8}hU{nZZ6P zI1WL&2G~BVUT&x0@On8!r(~{&<5uTo3XwQiYKcWUiTlhT`veoJe|PjvYD8mFH$ zZ$;EYemI?gmJ3~@&6_Av@efh_HRGd%eKBGb``Zucdhb99xkVQVg}t z!_K?D2k^d-e%lpW`Tq^`aXVh!hramQA z&yFkXS}$C`0@t`B>*5(1g}i(Z^uj=-`&Zk5EBz z!7a`Y(bPWrlJi3z&*B8J@WZ>0v@M+y%yuy8ZvpI{V*JDO} z!_bWB7|cWaRu4cL_o+7hfIV#qzOnI{r-;CHvMsB*3`T|5AaWa;StbSzHc9vZ?$gsl z16}D@kEIr$7BrjF;VJ0C`JBLSPEc1}51R2*3y&A%(AM!tWj_GORyw@-edu660AOD? z0vw#Mp%W+U4Bw%iC!8z8EzIC&x&IOD#<4>s)gV+uK;kw(-pH#v%|d^excOz`JL~&F zqp^q`XX4nP{#D-!2|4{U2=PEjL-q*mFeZR6{hf4dOH8VHJIa$#^Y$0Lx7NHp$a`zs z9hhvW41AB&z2o)N1-%uvy$!+gXHr~w)lm}5#{kE2Vjzbr97e2}# zvtOzW#r4>It@jiE4K~pS=pJ)o=Ot3VSNGxCF_Y107Ivc7r_yvS4d~2pwY3n0R|wD) z{`QP|kQ0mU)z*7Ttv_al@049(CS^+iw7@Fe;DKB+%hI{dy~I${0J}JL$YZ;+zjK%hQBdH>!tbn zdV7!W@0DnyDHI>2;$vEd_w^*jd_4RnPv7A&-nf{{!*8mNh9t;~`Dl2oCuaBnpIjqt z;{F=W0Oc&AF7wjPD=QXYSF1ig zrFuja7JSKjJ$SJ$?Dp`cF=c5{S-H>S1}&l;W1iN5H!XND*ur?~^nGN=hWafa3p{OA z$Uq%5P!#St4wZm;Sg(%Ng!M&v2A$| zl%aB;hjRWv+jk-iJqwYTFzPw>Jt&4haDp6d=mZ>FFbXL<{$I1XDZaz3U)Wi{u!FC; zXv?GgcPcY>nYRLI#_rW2v$xaiLuvNpH86W7zRXH!D(~U!{WpVndAiH|5rRgc$>vi5 z29kbEgymt+F7rKJoHOtOMeiTzd`{W}4&$_{m(!P6FCD60obj|W{7}2D znDMvFG+wi-rh&3?*{N%4Juh{xUsbunF+CGjQ(A^yQ-6jY)N2)-r9UunM?_6Uqr?qP z)7%6y&NVy4nlabm!XLPioPW1#jP3saMSZnz$@|FeCaj-ZAGPWSo&4=@qpaE;BTcb?gFU_?2^fVwr|OA^UQYTNM+=mk^hNBs|i&mZXgRz#!bbCIz7im*f2eq)yj z4G7b@pm{$tf@d3OKCkk|R44@_##AF(SMoPVg%0}4z*SokrqlyX6M3Rke+1a7y`WU< zGG74EA9$EraX_=yA9(L5ce9=Pq(XFyB#5NBH-FVKH=P8!!vk1(JhTJU14r>?E`~J5 zcpt*eqj?wHFjFnDQ}LFP&bnXo|WhqItTH+2J@$|j;;JS@MHaF8}!v{Hd{fs)*s{Hd_L22CUp+xY^=Fg z;}keKQ)>^>Ul(66yRya^yNDI`Z+)iO(X(Y{yLeBVVM9!r8N(GYS?J<~wI!MMfdg z&4z>-NV&*SsHBmPG6pa|>XAD$Yhv!Ayop&kQ)f8wn{uSvdgLP4ENGI8^m)K6#7%`f zFyfDL@Qh2#p$_>Db(Ul(y_F{-gny95?{dzbJacy5#2H!6McESzCW6j6Xeg}M|@oH!nOs7v<$& zD7{*;w$sz9k@2oCtdYDoT5 zBRKjE-Gp~e_45e*W*eS#&=u6wcEu$=UWZUHwXSxJu>Ky|^0As~dPV3|Be4 zis#i$bNJeEb9QRHdWAgw#DT?(+kqPZ^^P{x#NVg&>BzXqzRI{y>w}Ez*{?{uR^MU# zr}YKKU9EkSPNS#ZJ|bf^P>q{dQcy1_^T75)*p3lzI!6^}yPP~)@9S!I zcI&fPagJ)qc6CFX35RIDgfYr2dLqm*Uw|mS+qx4(f8fjbZtKu5Im+|Po_WvO6q)yH zm_vVR-Usv!0hRX*=KYVahvhvFqL_Dz%KHeSdgOgk=B^j@Z6Aw%HZ1##D7s5!e^Cx% zt@o+3SL@e_1xy!SdG4Q}9|#w7lmu_rqbe~`CSnGf$>TUJ+-r+FJDEEMYSO_ zP>i($Cwu%91jM}jZz_%Qwx^QXyL@}VNCkRb@|3)!Z$9f+xtb( z>YeS)&WU*^!{SJ2sW&xEPh$215A~o5C`nFxD%TlOGs!&6F6slLKJo=fLJfdLT z?1i4Xo9w1pe2I=qLlh+IXQPmNg)M&m*cG-IY)Rq)yjUJJle7iW zp*$81dW8x;6S_w*v+y1eq15Ro5f^&sxDWZT@Y@i}!XNz_3%?ZKVTDg{SnndU{Ogho zEUhfWRtX#l{rJ_?44tb>HP@&d+eFQWsGF{zXON5G3}dF6FM|j*$49F95b~j#?;w_H zeh!H9pX(#k9IWeT)wab86fc75Ok z4(|NGm{2+db6=j!O?7Awqb2`cd99T9fRfird1uf{+wP;hHd}=Y zOmeeIasf%sF-d|-a*j!MGl^2c?lLj39v<1a%-b7T5BF^W$G?;YH{z6TrauXip^o`p z-gQOtJCGcFhkC;{=7ZqG{qN)8YU3({c7Hg1nQd;?LGnb@r96grCg6@cCjC@B&e$w0 zJ#Scb(d@j$>cp)*zHkgjg83dq^P*EK7Au*}W;^v`z530s;OPl#Dj@Y*Z_Cohv(p!% z`VUzt;IOA*^kR}SB&k`K6X?z|Jl|L7oBneD_M2_&%|2JF>TLLj2i!= ziIEr$8ntbH0~xTAyUm#hp(0eaSz+1oIS;bk=Dbw1?hQN1oB&z!36?3r*fnG0K4 z>ghBnnsEDJ(}6rdVjfR{$~+PbhgpQMmCIicR^~wARz~K+ba={?p!k_@V%=`GX;8lX zSTLw+{q_du1uRyd#kJwoZRmCL1g{D)DV}dW{1KF?K-D;K)B_Se9G3755`JGLJOgc7 z;K>?Q!WJg{ITMam3GcCTI*9};Rf3a9a2yF1sRYNFpz}i{Kx4gxE-LFPdr=h_%3bDa zH6nej4jj6%-q7GYisUIO`B5~57x8GWN9wnb8f?0){sL)XbaN?E&<(L1{y+vLo=4lg zByAVB&tHd$IIj@j&K7K~UCE?09RnqJOj zehzL1{RvriAj?FRCDy*oFTxV;0#eENk8a)5oOheLxy>9*mVVp376d!elrAR~> z!JwZ7eg!=KKtHCkp57*e?4!JNCl^a(XgOxv$L=wC#_7XvLtwZ0CrBawocXq34I7Q> z;3m@4fi-a`fGQ@vGLAn%DgDt+=qq@V4Vx{4Z*IdT7T5s^;Zub^6Lh<@uPWWU%ts}w zpVm_STzt2gc0FT_g~#|}JjF>}%N=Sr&2qi6^8zpZ`fOmdncAaj4vo3%MLA^&{;aUH_6e&pwL@b*XeB5`m-(d5pxKN< z2C5-6o72!H=rFhpxcQ8DQmqn{b(*UCi;CUsKYKV+_L4KAdTr`^ehD_Kx=Dnq$6zI8`$2nLwv$HaFlWFYLPe z8ZzR&!G{}lGkF*24>aOiW;NV!qV9Xqr9$&-?mgjpJ~u7+xD}L>0%w~en9Fv)=EH2}FP3DSWHjLe8{pUu7J8M}8qI|A1Fm zK7o}tv(ts9)$x#Hn>G_{{=fjLg0+0{9Z3$yI z)b*gPtKrY7HKVJ)g!y2+`E7`Xw(;h}2xO`Tfx3)EEm`}BJ2}{Ij!|8Wz zTMxy6MO%N@wzak`t=+@Y>rkuO(ifGboe)>M&Qz8*LzcdHHA@FjO0o21*oKyV9V8AF zt)`bD&S0-%=>y;vOAl%fvvd`TOG~%Hh4}+N{c41zwc|vkX}#VC zJF9&o+R%Jzq|aVF_btoPd?fT0WP>x>%JDnR=5HS5t}T;Be=eL!uc@nn>0MY851FsW zL|uH-W{{kYCLZO*+U3Pw-Z*?m`##TR&07OuT!9X6Otj=~kZH;90R4e+iV1D@1MMQPk28Euq{mKfGKQ=9 z7kE{pdl=Ox9sDO~f1$xsPljHDh4o~J^+Mx%zirh(F!s1!KfB2FGfuIMLA&^@b~&ol z*7d94_XmD}V#xX#8Mol6eL0@TuLb4;tAN9SCBOvWJYf6!Oh+#8Brp^BEN~2PEpQkx z12`1ezAn>|1l$XZ0agLKpwVz3pSzh*NsTwy6{eo6iZ$&lJmcu)u2D^^{`(tK-XOk*b-4d=gk}OEe%~Mz^hI zZ8hK<&lvee*+TAH(|gviVvN>^pP6VjkAlHy`4x8Ottn#a(r)f0ij z(gWYI({PhSmuZ|22AiE9;+cUo^WTF*IrfQ2h4W8WK}Xy!e&q1t(XSf0l8ufT*gTdt zIsH6)=V_94=fs(lP#t};Kl`2)k&-pT_qr|r7U;)}M=O`#{Rk_>jvR+b*46~%iuGR= ziN5t=Sl_}8QnUFv#Ipj-qa4<88{xf0nelg^!}gB>aF6j5MmC$Ne^Oi18@U#C`T(od z95MrQ4YhWqXd_6AjilW~+Ix8x-z?)C4rIiv1)Ei|zu3%276o_?d^58$$08@(KlVkl z*?$K6fANz6eseX{N2oDhr;Wl~Tc^EI(z1Lm^H(s0q zyu$1s;c1VTPNOpL!-(dKJ_Lqa+!0fp` z-gxvl8c04mTO9+kzwP;_EUi(ez0Bj^WK1WvO5pVe{j4W(^DJo25h2mWrWF_@pa#3f-8t6raY_xn~Ia$ehsO>+%(9sddj55=I*nD4!$6>G}e zVpZr7b|qiu;dgt%nIvv~4wsV~o?;SXoN=tyjPmr&@!n8t#(BTgw%o42RJNz(c(q3v zJ(2VUSavcKNS|%h0nRJMBx8QtM5~rjO{$i?p%ibh9#X6n(dLsXg?cxN)rd1`Nl=@? zl5nuLZE<+I@!SZTSXU4Xv+uuAewwY;L$lqE@3sz_O*|LuhP^}hDM{{ehxZ!}*U#oW z{|A=Y%-^9`$9yt8raGa}+>WZ7kFDlyeGAP$P!ELd%36#xl+gh<;tw49ie&W>Z|YV3 zm`JUbfEyUH?oIC4Wo5X=o-c19c|k9h=o8QYZtVSjjJn%-#Ae7#~Q9}NS1(#LUTB6(_ycEVl;HhCSf$}!?*(XheXkLtQ8(%@8sGfg+P>V& zx~7`1`e{8eKC|JgzRogyyfzV0qI(iMNDaUbGHMi-NsG*SKcptIQ1A9!U z!X2s-hmqxN+EG`eYLhLTSmYa@wv1#MDBgS(PpHvBc-S&LznTywZvMU4=%XK6 z2^#9oK**ugUT6zC`jiyVL8n$<` z=_(i98wD`7lNz2te65wilXeDp_wOm&T$iCG^2hjxk;WewS`lHcTTp17pZOqS{DJP3 zZ1AvE(Dtuzte9%*t@|uV6dV-|w#hbF&4i=M{lQVxKuJ{B2XqwMbk%)e>r#&tlyFSB z@^3IJ`lJu&DA2a?kQM7kI7%Bm0pGJ-=6+Q1#_o!S%Mo}# z^;Fw%q)3JU7mDrRbV^lXtRf6evBseJ(PlPuy!9x z;^kIc`g%XtD^LZd=b{2!k=i(+1-D2KV&@)WVgvkjEb}UasrQ?n>m7KL zSMhH$jw|`@j^w)@KX*02ZfNhLnmPDAwt{VX7`}OvrCKyJMS0Xap_9VGSz+Oc z2*bAm^c*|M^W;Vxi1|QWnxjB|| zyQsDa&9R)pN41SVgO6(K-5kpq zeAo>z3dhELu#}DYA$+4TbG@Wz`!dhN`QmxcJQU^vDsdlfF!*;I;XU|S4F2syI0pO4 z__qt;Gs3f#bo|se|5hWMiAgN~N)Rp(x(ng%Mok}&a4UAl@oyNyr6MO8;h_?CAiPK9 zwAbK;cggo0!uurcQH0Ayx4j4-75<$FcS*im5Z;M%^7-dQc$dgojBvZ;m5cCr;m<&L zn8-;*c&&t!5Z))@?hSZGBs!P~Zx)$n5Z)D6ofB|%mjqzNnTy+p|gZ9B5X=tEeLmtoEH$@DfDL$E|GF= zL-?H3Q4PX5cqfs6yB@EOt5MY`lW9^nL$ zKMdg}k&}#Yi|FG(I9urLUq$MXpZ(YvxmbyL2Dc@bib66`qlLqFB2{Yq*1FeISq_ov5{Ja#h#81fSNT4Vr*avLVsZ1=>2V1IsQAK)BAjcz ztioM_6k0c&fx~lrJrJk~iV=l(`6`ONK6QKz@~ps*uUC2?Cybn3R9zZLnOWto7!bje z1uMCSM3Cg5n_0d}ulvS`7@TxnRIcceLX=7gu*#a1ODfCrioB(?p}NRIiSc9bYivST zc{GPgtV*}kTTnT>Y+0!nrOS2OS5DMkNeQZQPy~4<4%P9LmAH{qB`T<7nt>5l6VrSu?}!!|xoF!`}JsWh>nkUYiN_o?D8eH?1bB>?rKj zeU;=Y)NKjugHAIE2ZixuqkgJlR=T~OvSKjhxL2zVfhNv+RjrBL3~YI2XsaG1Va2i= zs0@$>FTkoM%7+SaWaOA%Wjf-Lujuz>?&>J^_{IXnUw3_ha8D|)EMAd~ld%)v5$GED z;u2paY2@6SffaW)H!JvzyNwFGmitdi!&^$K-Z7-CPT~<`= z!GTf5Mdc|psD6K#d8=dBQ*cmvN>*hR7_9Uxw{^U|MH?7K3ooQ)r->evIqV$#IPhD) z2tXcQ>jtNFzob z70Z0(DbtEpYB?;M6GwMfR)y-6^=Hw-Ele4zzA@ZXu5i1-rsUoZL?_|7?J4SXdDLyn z#3ks4%jkMj^4FA?^Oum==qN+kZdqy3%CPI%Jd#zeRoQUvIDS(?@$(vb`zk86&P+ea zS6Wsg{M4zSXxWmYid97j+IdVbUFr77wX%0*#j?us&~GYGPHx%CB|hO%byie{E)ufW z4EL&(0@CoRC3Wu)UL_Z$;;>`pq%5uU*h#3P@||i9R$jKkZAU3t zbjo@>O5xDQYEg97=|l_(t3aWQ8*t5`-i`T&dX8_l{|$9VC0mW@_Pn7-r$jo+WE;+!Ha%rF ze%%6XvASoTiHOHov}|>m&7#tM0raUQ?n-rM0QZ#b);*c0hS=>{+MSv=AdhgX_4E%c zTTU77H1to2s60pu`*{(YHmS0za%H7H(~)JM&yukUE}{yZbx9e_zebN-Av>cSOMK{9 zOhda_a_lJ-XpCc@qD^o%3WhE{ui-kErAx}yoU)|76=?TY3XwUKYAShf2Bo2MRu~iOzbc;E@iLmx1QKj@@V=ezNE z0C!fpoGil}p3cL8Lj*HTGU%c4F{h|}sZ7d2XS~(VBifq?U_A58$HN0HG(}}!0awqs zYwJ8o@v!{NbyZo3w^TLu$-eS(eHC7Q)^~mt9#p{BAgI!+u^Ka;Iu~X!*6%}bz6syw_TW5S%HcIe)3GrK*qeT_C(R8Qe`Eb{X#uPc;v!C^hVLqI9M%vcmnjtsWIuF(X=fd-RsGVtaPm%H& zpM@s?P+?ih?8*|V%!wl#g;k!2Avt{R(?iy0@|PI-DOb%Sd-~n5{@io?i&5oRX17(A z|0;bmJekTT1$<$19nTtccl97lIVO6T(7fm~@Irg~$=1VIK<*#2OPvTX?=&8br_RB) zktpLhHUMXz!Wz|JbaX#>@pD00GqauQ6p#+2x;}bD#wa#U{?QO4f0d~=O~@0A7K4ubMvf*m8y8GY z411oknLK?}T05r&S7){NbIj$kp4z8A=y zPb;R;CG}WrB2(0X_-0sWKUU?rItY$^HV0Slo`RoKJ1G;luI+`*PxU_ai}jBw^2W;! zJjq#mD}H2p_i;RDHt%+E^|0gMN4PUQG?;>~p8?97hue~B{*GOaht2p@9CvxiXeNA; zxc^e^_}{ftSKqCrd?wToqb_B~NDazvR?bvAMz~YMNLI16<2N~cUsU|0Chk9NByXpb zhL}x~l2$Xv>Xao>6&bsw&OcutrgBW4p0XZi%Eg~YT-Le`bp4W+S3#kkCqH-}H* z>j>TEHz5Mt$nIq$p@G>M$=^uapZ7`h2_yNX`j}r&p6NSF#^qLC#VW6mdZFyHTVlfV z+Zvui>iq8as%$Ad;pVU$<)OJdvz+e51oV(!fcyg-99Mq`RX}G$g--wjDH*zh?AT zeWHt|>W?GI2C2)x;j$KQHd;Hyz1$b>s|Z)BC{h8XR9+;_R;qSwON_&N&!?(mpv8+K zm7$#NT73n!7k3qy$_!nrI>7(J{)E_52@qg4C^h9P2dHNM(m18N$cK-87yps1> zEpO~-PRRJj0usZK^Kq$#AFPLp^e@U|x6P^L%OHJLnGTg~MZb znR#yxDjEAg@lFNUa4zd9?1udS#AD7bYR8!2jKRM9wKu9wh22KNUY_oI%-*zHooOKMr^M?qXJ{RXo;ZFPHc0oI66SU?psCtLs5(F^xcz~*CL_(;a3JdJ zJ^iAF@hW!h`OSW?fj)OwoyT_yd*wL19#G}w0K7b|q449`rQCY#GC#&x)qowzg&(WK z6wEIoXSJcR3K2%jJhNmr%VM|q-z#N0&4W+?`#-3LwV5e&#*v(_yRb_gklBF^om}31 z{$-o#UM5-ivYwe5#*(C_2wmnp#*%G=4&Yn_E3lFQ%-`_RpZPHc z4&z)cf6qZypI?OfP))xOd&J4&FTi)`txf&A2Kx2fW^=ES+HCGp=(n*^XEN9P0f#2D z7q@4j?svV4y6?hF=V?xx)Q+bQ9lgB$j>TTU^>O6wmmn&D`>zhD>D7AFj@oBM1K;wB zW#C|JD^exaJ%WS=qyB^?1Vn?!ncA*y-M zJ&O2qn>Y;J&%8+ye-%lLRm9)e#I@w?fQ=5cAH=L>&@;SFAybFCKFRAOUU#bN4D?*n zfot35x1&Vg z*Y4gs|IV2+GiT16Idf*OhWDQcQrB%YNj9 z%>?96asyfk82k}31>jDYi@9FEx!8&3S&x_9!2}Sg$A@*){6gv^=LqzOfEfswbk_^> zl5GCl80z(U+8>nDzyT;(0bW6=m(7ij2t>>0#xDv)FTq*%FkJ#tk{#`W^QY7qwd1la zvr7d>#~Y~E(7D(WcAZ-?{L<*VxWB&?N4%uNTT~#{gad3mP9^t)%#r?Dh?j1rg^kti zd8L8feD?A&e0K7w=Chv9*ylp9q_MXBS}<-S*uMN-vJ(*Da<8nEQZJ7uD09Jf%DIL6Rq%iwIJO9=o$t#eeRf;&X}JJE-)CbiEha z`uD@knRScx+WFv7%HBb|M2C4ST#wXdD!Y0BZMvJYi+slOZa*)>gLt3Fr-kQD{7&W5 zU2Ti97Cbfy#sl{;eh!n%y5oun(bevoa3flx+eqgfh^LU$hp?^S>4zrgEeFo?n7#$XMQrY8B<1FO0M+ zDxJxE7P(1>g>sRglK175o4!@}S~UsW7!ZrECeEpr;!N{{HP5GK&5Hn|^+7*d*y|+{ zfc9R<9Qw9gA5`u4eXLea^L*{jjW=g4IWBtg-1a|2ho;J%#`~s3v^bK3jsgxi=v+@~ zlnwqhr`bCNpWy~)9~KQfBQ&A-$fCfKf>idZd^e!Sts|9e?Xte9 z>@|ny!I_hFs|!7KZuxy@_xwWVnTKXG1^+tBY`(#a9|#|%Uq65)jyXn81uA7?*MZ}2bdpz7MP+mn4fuIKD|I-7IlCz zDc82&_KQ{)zSNlYFG4di7tLGM#QCwRj8t7b4i?e1R_ul9p zD~iwaE)ewF&!^8b=eKih6RQr9#CB!#TbkKfD%5%+*M5mI6J;Y3l_Q(VigiMbJ_E%^ zI7#a`A#CoYgbeCgCl6cg9bu-1DAA4@l4Yb%v>yY&BU&XXBsFh$Mh|r+4==)K&qE_`BGE)0WlISjp47{T(UGjmAyKz zbFA*{YoWg|UnI)#y@8U6qvKrY&~<7WR@-KvL(#Y0j`5i(i~N*D9XXhTQq>o8%z!ijjJu+>R8J6J(plOi_f(h&FLKI@Rspi ziOk?gEaO$MhHTF~4!ocgYh|@;uDJw-=*Qra9(uap3f-o42U#&f=M^hPCK$<1#rQ~mz z73k=e59yxOk715GIv3ZSGR$(fG?1VSkf7MrtJ&#_h*3sY|ZwL28 z$IcegL+2P!?qj3J!afP#~jaX}wSC?>R|C3c3M2Pwr) zE>Vk zaur}Z$oj7%2OVJe@x>9;d0b%m)LmvF7+;%o8t*bej!f~?5#Phv>O60L;Rci7TeFqG zr2&2}eH5nx2Xb@>9$ZK&G1?3era84`oiM%F#dO#U4;jvfIhU2z4)4tkzUzC9DUE-e z6MHu;iuCM^zC;n1rwHpnC9TRhuo&KXH81J0l*a3cvpxr}wQ!gD*@xlvV|oaE7`%SS zd9%at%Fe(mMzI-W?Tpv@Ycufr>va~dCs6e9Qtb~pRk`4s{(jD`NSQVd;iBD zn3hxGa@LZ0)5q=YPv$T@J#__jPV*vL=rnP7;~CQy+vDECS}{?9C9U_hYhw&3RxV_++mZ; zYv+z8X(h-xe+^*g^||p>){>&Rx2Ap>jP~K@!jEF7YHaLdPfn8yj~`u=e*8K;Q=yFG z6X};cb}Hu#x17FiIYo9{T`=9vA}-K(X2H4j zuRD{XYn<;C)3H0J+WikPAN|RHBeT|2 zT&;CMUlw|LGhhA*qdj1Y0&3>t>;i3zl}X(4GRr#JD`Q@)Q9XmyZBq#@R=fM!AV` z1A%JJw*dvy>A-TDUmNvJMNU%x`zbjfj|^ARML66glT-X=l|L7lJIaBr?f$VD2=t zn&)X|0N?C@zBIqP%~r>3KPnrgVRV~)Z(zn@^73zJ@MT$zk>gT+Yjc9^_w12%uUn;^ zu^OtB?tpnDN;Y>t!yhl#^M0g1#UJb5n7z}Eea0ADj{co?wr!c0AIfE|5#AgajGPUIu(eWVeTPj zR10G>c7jbEG9@AXdwX zl}(b(iZ^1uPB`v%yPMM~J>L4YXcseG!Z!vGKlpUJc3?zNHi^$D1S%rCBK73*?&56|?WZ^|> z31lBz6m-4l7n&AIiEQG(6OBCQEz^a!m%=%I1F|BF0-O6fF9XW|tQGm_zdL<`GU4mpwJq220}& zCzjSmJ0;ba->uM0s6f`4bGp zimXI=Lu2_iJ!U7$w>OsW&|^-bd}m|%EY9&I^~Qi=M^^RCUQ2P+TK3y^4N~_P&t8k z3UCcPmJ$mg+?Tn$B%1?#r(X9Olb*!%ZO`9Uo^^WcEbqOL-=Ql`KX=HvpZ`UY^!$B# z%zc))Krvd6VsP=$wvD(d84-w`{LnxaZhFdpXa+7j^wj;KsdNN&?iIFQ+s+&^OXvd; zGn{HO`mPjv?ESvqpOnsJk3q|+G&4oaUM4Kfv+h;I;v9|T?H%m@46@sFD=0JBoLxxm z-&2ZI$V_G#1alUX5Q}gcR+0EffAF6vGI|^a3e{lKgA#GJldx`vv6x> zvN7~QX{YiIe^Gosfg=YWdH-8>Ci#B(9=$CD>b~G8Fcg2RFbWQXG419#%Y8U@Jm{Ve zf1O@=67#300MVr%(tZ4OpjJ8~%4JgB#9`|2;gH<$5glN%8;R zYf?&ew@dfmOH=Aj?YaS^EH7dnJ)QE)^5ZM>8GV%fDk+?vBN=;WKcApw%xdIC(*{U4 z<8-GiKVo(uCCTvK=F#ff>6wq~9r6@H2`gio?KY2v(uL&l*7jJ@H1oD{CJh~fJUehP zg ztxKhv3&I6@N6htLV!e1K&C}wlW%-2n;2tI>I5`u;cB`Bq@Ts|@ty!y(u=aVi=uy*ED2A!wb z+xWo=s-@WvueEt{f<=8PA-*kS3*AGwbI98;p|13gjLvaB^>YOR`bCpzqAa#^pM|1B z8I9(bpGrb6Y#i4+OG=&f2WcF7wsgRWvl58%gbXJd24x0(KSZ|Tp zMlvQ4vx)@C=96tQYr$;$5ql&p&b2|Bm20@en{&)>R$DAD|FB6r*j#z_4H-hoM zJ)w47R!3nQI|@UhdfA8ZRe}?12HGvNjZUPfBoYdLtAROa*b8P3WN`O4%L<*+V4{ru zy+ZX!rzNqJt)pO0W1=j?uif@!2&8*9AqCYd^Ri;{5S~pqt!HUqbrsLnRu&PiHMAR^ z6A30FMPA=;)@}sWnbB@ew~~s`lH;7G&0zXPYO-^RTf3#XqTcdVmU{0xe;gck29W3s z5{WWjJVs(APO-HHui)>CPgv3w_sb_N&0$Lym5^OiORpmP_}@VzWMavoAM;qfDyMx0 zZ;e}8TIm+t(@r22ab*uN#2I`TOPN+VoiYP z6zeqI?1TS(re^uUpp#DI#5Z zcPb;_pIso0Swjr;HVZANJb`-iI#1)&(N``asYZ_9Z}hAdoIxk@!-sfj6h4F(`j*u- z(Lu%1z6Dg51Il-K(p;!HfL4FWTmX+wBllkxxi<59KUKY&Z_lbmd^NMYHxDcCBTW;w zyzd^Dq0xBTEAI|l-q6nF-MVcru&p2RNo}xeU(J{EsgJ82S~rl3doiq=XZ20<3KE0S ze7vq9yzalLuf2z$w&o2=LmxryenJ*bF|b7Z&B-FLE)LaFvL)iDl9EUL9JN}m$+Kle zXNgd+xB0-~((Vlj2};utn5i1~T zb0{W0DukAa3Bx=}52=4b<(xw~KTxnAnTx)%(JVP+S(C3C{4Tluiyf}xS*nET`fcy0 zy!LvU<-Ehq)c5kh1wXnIaZiMclzErWx@FF2f~4jYZ+x*X{}7-rCIi~b9*jxk4*+`C z6je}yl%HI70+U?P*JY9_SN-@RI=+>4xK)J&FPrHkkPwIzv5iN^RM~!Dm2?-|B3>g{ zm#h4U-$<3Yn3lD%0|=W%*!Ys&)=1<<^C)j%p<)9(`h4E+=XTV*0q&WjrpGDj32kNo z8Q{dsPdt>gtnOMpa@Y*tIdH~Fp=R={dGG9_K5!1-$OP8x2!Gk;R|^OQ-sCM3lU1+u zeZ0;q?v306_5#_|{hr}hJ@mb-(P^aiD8X+&B0<$20lJtpwJ;=-f8U1UAG*~HvZ40y z@C1#ADl`|Z=3*Y{wklx}1jl-Y%aK|GvEKBAQ1<3i`|DK&VX!QweH(7B@D})yPt`H^UCrPST2lSa*ut4#wQOs$$%L zZC9HeFgNPgB@x?~>RQo0X>aTqAB?keFn2`$v94GY%e_Sn+<=ZdExwrk{_nqp(z6XJf>%+H_PwD3;elGdYd6b zX1LoZucCgO0)Kjo)DWi}?QNr}AO(_nm){B+@ACz`GP`8!niEljo@~xNC`v|qRj)cZ z>!MgUezG&hE^f=w-MKQS%M08I^eu?%u>$4|Yw_cX0qFSvKxe3L6a5GBVsE-klj~iA zH8yXzWGd!cOhBfp43u^uIb#MD;tzOiSj1PfasG%0r?jnlL>e_v?uuPf`V;_M}P!FLf^yB7zeU4w@ZTe~)vw`ED?)W(&} zfC!N#tGz4oO49WIils@ASCXM|>gBM_Sb)uGm+DVu#2%5}>9q1go(9UdvlR{*D5NGj z+ryiminm_0`uMmxEjl=Ex2H++ic^d%>A&M$g=>cn_MBkt6fgyZH!6k&vQiJMbm z!Cz-#@$v#X2N!&}y{iyVI|fJ2i2X$HueJMFwoSwt3anm zmATb@j0K0is@?*T2rNwp+FR?axz%x1<`o5J%m@J>0N&MdR_AIYoWQqEP`dNJ`b1`b zXRC|;amkFT%gZzu+N)QS=G)|v_9I$I<0W{p3yxTy>CUs>W!FhluX1Hm`=U98N5o3c zmdl!Qy;QeJl|5cUK6_kij%OUS4^at!^h#(nEBq3;zqp56f*p?$_84&3Y0l^E=)A%bz62uCd0xn4 z3fZQRX->@}r1?UPrR6<(j=yn9$=2AY+FB7G=Ixelr;U3Q#09*zT(cG-gZ|ssxkq4J z9IY}V734VfZEm}mW@KDlt;F3Ly`%Y!wmyOC->F)hr7fj%ruo_~>gDD7ExEi}uY&(2 zn=6iksBff`9w4cUnRzUv_%js$PCEVqYFJw%blrQ8Zz8%=NBJ?er{&yXGlAG-^P3cu z!cl@nvGbbgbP@D({6zncICwi?^ttj_=jgi!Za2&4GP82d{By*dl4w4uM0ks2Xkn+2HS5t<~*K7QuT-O#yF0;Mj{O=ih$!}2 z!AteLTL*TfdAirewAvWy(=&LGjm|{yThj0m zqfcin(<{yputqZsF`ePUHDw2gJLx^%s@TS8yULs=YTHrrvUvp{>_;Aa^~462Lv7|l z;n6yL{|^sUujwET?Uc%{4`y#^eEzsLYqx$*Xtb#l$HgJxIH?LyKBfpegpVWK-SXV)>d>Iisn+5mA~zx@ukJ*56HsGF*4n}FKNJ4>)k=1CQka19p{(x9x)%K1XzJA)%Zxh#AS~tlKqpI3UWZc^Q zMD!P2TWboCAyGeESB;5WD0U=lGi`&{M?gSyJ zc$@FXnQ>{-{tDD=^k13$lFc{gK-TxHNah_eaL0m+H>bFCQI<@(#Xq&Q#es<&g=@#f zhV^j67UP6Y`T`pkCQQ6J!*6Fgt-|p!DDU7lO!|)r3+0Y=)&g6AS8gwUC(gn5G7d~} zxs6+U7oN(t;Zv8eli1leIDW9Lqi4ZbC}g~{gkxmMqS>(o&zVDR zadtl5(i3by_))sie?%4y^%t|$<}tptY)MbFTCg0uYpm-Ro+{ZM_0B=ry0^G?eFqXVxy20AK94o+2Y^`9<9R+I9?e3&UF9^^ z?^5>thej6s5g53E3W{yOwOiy zqPA!>L+x9OO@6icwN09)#ghP`L0s|U8QNTgspl8}Cw!;g^riO>Il-41BrBgeWUlh&Pgpy-6D8{O9FSn6(>&R)| z;CX!P_(~G2Rq*zBbGDP?PPLl}NY`RHsfBnJfyw3{v>);(5RFqS&(NsgcI&nc3}8>D z*Q4b4PC`7(&Q9W4y9HA<@9e&QO}Kolm!$Z!`y<7VC%A3}UuF$JYwwYGTx(@mv&B_w zoL+m606kRrEmj4yXgsGz?_19CvzxKXY3sgB68P^V0e|>%{H;q|F`UUdX^M!E6yD$p zS_k|1*rdKjR|;cs6YXyP$gQW%4lUu>Dmm`D#LCs?5{pfAV-V0kf90*dkBDAd0u-}t|t;dh{S45sSqb_OE*4nC@ zYl!JYSQ~ahE$Bx58-DhW}}~_i$O)_6-r9A^d{7pwqdUmQHAX0D9`x z#r=HhqspkgQd>P`!S=pxyKfmwEUN0)sfA;Ef=|VeGo{U3gE(!8r-DAn_X}#4vfpY* zLV+mTENDnVGRx_14z|&#k1Ez(L`5jxe3QbXH+vy76tY$!)BV=Hd|LZ&eok%X%_9!V zxAPlR#f@cOe>DC!(%VYG;dPMRbIRP1S!~S_;Ae?v`V`1 zKc*sHqT5N7Y%T=rjK&`(G~8ivEis*_`Xew<B#hiHV zLy4(wJZLMRN*Z9@fO%EA+V5KG9x%6)IoVt+)R9|d?XUS!c>SmPt>vqk68ZN)x@3VfKpy5d(K9YWl*{=W_l@FV48tJMjxby#0Y4pV$xhkm2lX0T22x6BOe zuPQB^?$EWWh`XgJJ@Ud*bjqIN0ckcc_ajzkwPm_Xn{?>k?7_qR{l7yF)W)@Aq9B13!Mt=Y1Qy@*!!A~gCv zLK=_<57W>p8lFp3ib{ErT~re?|G-A}>l}GDk-E)Sz1LhtocjI*ev{29(r0Xvs{g28 zm++~-Qk48V9WrVAl^-ry-})p&Jyu`sQgBe;KtPgxW_~*^kWXy8avs+^GC1~lztQ{_ z{VSIvdoB9KbfoqH4%A=II}J1w4&gZkNK?N>Mw5duF|Ot4+>2@I(@?B_O5Lfa3kox9 zP>dAl5o(A^giv1tXtH@f-x*ZAj7TICbC#vzb2gH8NQ-Hm=-`bHN&Hk&1OH=IHQ02~ zZLdGUuOxe|cl=Ov|K`C%?IpXzcYcQ#ck2BHAy#=R%GT>k9cMDIRU5Qp(|BZ`kE@qu zL(pd41tDkqg!D@A3?+rGO{Q2+Qat9{w7$}jJlVulug(ob``e8w_P3B}J)dRQsysGZ z+ss5&Ro<+I@sOs~P1GVSsGUlT`b}?slg*EUyWekEo7lF-_TBpF+n<V-+;b)R) zvReYWPDAd%(SdN^2_(>}kvp4o{oB+< zixwF0&pPh1oCl*1_TIg2bztba2g>j2K{_sPwF*70H=TyN$$z9j#fu=v;!n)lNgjrV zZztJy6gY}MRyciSkI9X4%iJ}t1u^5Kj(TK1`*mAJd_FHn^EWr*tkItTEb&rx0_`~I zSJ?GbOH|%`3s-qfTy#^-3v0SJV!iPP^W;D1Y#X&-z&K&o3873qeL`#am)r4(u+^Ib z#Vfsy>X~g$41JK5hjPkWpEqVJto16mBnDYFJZUy5M5TQVW^thXWhSnDsjSOwY@@mB zUt-tpEBPS2;c@Wv3Rq;5xL_I$vyK3?5Xp7jI3*ck^6-MDfaCSl$5u`auTZ#lwA(`wc@}fv9>i_Neyw>)NL~j5*Oh&B{N&Y z8@BS|v1@PskyzHk(O8$V8riW^d}gGr_-L_|F|fHU;zLfqd%uLTZrcZkbYv9ytBnh% zoxDp?pk66BX|A%0LdfK$zn}EU<_ADO^|n2A;tZjr1}+3GH}OS4j8=aVa}iJ6ruoDWJ4t=?ge!?2It zlImH#8bQ7rj=mum6!n>!=d(h79DFO}Kef;n@7q(@&g#(gY36<;GE^M-TZ%b)R=)x6 zQuhR3W*{}PHp(T+@f-x_+yh)MZOHpA!ZU16rO~h_uOTHZ)n3H!=j|Q%oW|Qau<1W< z?*MaT4iX?Rh|!q;LVPzD0$H|_*u}6fmo&G&2U^l#_q15f=N0+u@65mV$kB=Ghf(^2 zn-|WturzYd(hGmkriz0L=udRAr^u{Rb$2o!zRJVz)iDyQib8yH6+2h4rskdS9bYF# z{+n#q>1rks!I&v&UDY28nM-UTw{8`Wps0;{rFhJN!<%R1K|>5oyBFug&T=T5@uJcj z%>8A_c|ydMlFiS)qspjDvrMslM(r%k zp8B?)yYr!*-o9;m*LLQC^^@8YRn~>fOqf}#xrPE&_j}Ip>(2T@r8L>yPt6`^A8WM3 z+GIB!6(@ZpCebWL5EIS4U{hPOmlX8@V4M5dKtS1S^IJ`JZTY^4sYd{j^3L3hgah|z zzMh$?w&s3i8w(UOhipyuU9U|w+lk4dytz#^J9tDCJ7{JqZ_O@Vo$|ejn%(}x9v(!V z?}3WYmG(lep!004{c10AoDXVgh|k)x+D-gU3zvCnFqpDPgIFu4I441fjXQF<0}(b z{(DmQCv~*Jc$@_FcvE zex9vJ#C#b9JF2jnw@mb_K)}cEt7K0$=cMS$jbgw_5gSaYn zo^|e($Lt~duo}gdx1>&~wY%R+_QJ<>3h%AO%ytu`Yj!_1bGM#N^V@cH<1RY)@sey_ z!*^;gqPwTBaD6G+&M`AoX&z+<%X;jw;dWKk;axraMStLk*=(RBcY|cQ)>40j^~K1Y zp?2s`dZoOr%RRtK+hpA zQfao5Tlyq#`TC9r)3Gqma$(}=$kn4*GaS(q(?{7eS*6DhzLcgM6>c<9b&kgRCkQrA zP(XOydW|7W3AZcA_8mAdC_F$c=P9cW)a_PGi87+EB4(XprpleP@*o+S(+HtuS!9~N zHeHL-%}}~x7*oAUP`Zy{!3+!5ZYHIU%^Hq$!<8;=0Tiy;CdSZMzfWKbhzqY(?pW zpxW{s^(sN>rrC5mYO8jdaW)+Tq|Iz3)ZZsXSyz;ZZEGyw-b07*;ch+ecF#U-Vx?lT z7?0-Ox76-lyZsat1VWRCd5M^0^J2a`ER{OulygWT?hnHXOkKidqu#q@m#e({>NNKZ z^}@UGTfx;zN~nBVnOwfe(@Xkmau($KeKS~f_0tFYox<0`T=n;~7A7YhDZN^o)vHM# z@zP}-TD3E6a@)cF4%uA2pp-T+4z1vSN?LIdnQL0hoK>e-P1$}4?cQMoE$3ZT82T~h zID;BYxnVPRUQTwmZ)^fmnvU-Pi~Q!d|05EfMO23RraO2m^8+?AuXAKEk!dx+RN|7& z?~*Q+@|Fw!Stlz|`a~H^3QrTcA(JR5dn5`!eW@zhYAeakTN=x6Swvb*Ka0pW1V+Qb z6(oGQND>jks}JgxeQ8i1e+HgfQ3LX&PEqv8vr_enJVHf49&qC|p6f>k!LJ zec^v6$-Gl$bcC;w*=;;d{|yi`Z8F!=g8)=JF4qiGY2A5Zd*O>bH;qHrj?u-qybezp zw^D>y?S~freSA|}*TZI%myG3sj-ki7?}m^0Z=8-F}FSo zyjUBIh4861yakqIw%G6k^NPue)vZQ{`5(Zg$#N1A(q3sCnHw!`pOT%UV6Fj!>Y@Gg z>(CGk(FMc&aaQgR0)fm7r?hnN4#$ll*gG8e9UfUxh`*9(CfTe_i_~Yudf_11rae~s zdxDV)%jtkpvBvVwVYzk?C-BZ%rLR*KGG8ZkQ<+QTvfcsC;Kf&j+L?Il zS;wS#7p$?@xUv3Jfhx;2=c#xOg(c04HY$3&J+j2Ajnak^Y4`Bfm-S8!Q}SMJ^2V~> zI#mClm&Ntfv_(Wzw)c@%uSt?d@HJ;;9;}-DjY(~GRcnv_Tc0&ApY1mvQ$Y2Kyg+!} zsjw(s%*8-hU;bwG>NoMdsDSeb(C_IMba-7WF#R#`=f7zT>{E}pv!h6qyZfXtXQ95Y zgP(*qY$T`UDZ9i|_IcLbmc8#q(Bvo)=bP$UD9Gf2hJ%{j+OwNYg{FsExoRif_A2v} zHzcW8z41tbwIu_G*>b#z3)d{AM(N)7 zZNP$*=|h#0&FlEK7x}z-T6xH&LlzQDI`!+Mt}Wl`_SMHp3_fO&#mh7Edf1jTQsunl zax6x7n&0!wZ|a~$Zwe>N(ApN#yKbC$~Z#1>P~=cvVWrI=kR<2cHQEQsAS z!Oi-YqhpXw){R%5Gn#sS{-5HHRkxTY-C|_Ugj;6aG{@In)*Yq%?ZnG>K;Fwoz87JA ze|*RD$v*|(0sKC~$KE&K!5hOxd=qJaLFabVC-d2_;ibeE@^Um?ru53P!ErB3@^zT{ zl~!86!a83%&B&bc6^j=wiB`lG-Z&vT=a!8>&%i+?9RBwN@sdv#Q1>JGsK5R~G);%q z`ClNa()6RkVIB3(eD-0VOZ-4yj#lrXqkJ817ODMu+B*;;bEeE$x+u2f#yP4bFz?QQ z>BGtV{UPy%1RSlNpVhX9K~ya_28ValF%ypeoKJiaFXMrGB)S$~@~?F5@3!QWMT_tO z;nvc^TyYeb>xoxS_;>1Pec4AaL%Sh%lYs5ZfYp-mtomi2$9@Q(1w0?E4Y!RZ?RaRx zr#(Sx16PaE+g`TckHgH~M8u^;5|4F47!dvQvJ z?)Uk>Fn3w6L%+&GNN6&5REuBrs(~i! zRc0^b#i{~xQ0dC^6XSy6$IJ8P;!=#?Tz)-2>?b?ZbL&DEFh3jCLUuRsq}p+L5eLCD zn_`^pgP*OPmZjGcUQ>X`Gv8F9u5{U-$HQ=)xm8`2ws-Y&vbjn7@JHTZ8kD4kp4F+$ zHPgtSI+?{A2kOzHHsbOrfScbSE6*#1)!VERtb2W1UXZ+}4;it7A8V(MFg23`5U=j> zZKLfW&7^tViZ*zqYBX=Y0*F4yRL+Wg?2z#i(PaA4TbaVGPtwu?XG(!-mUMcTmF$M&$Jr&z?ZmsV?=mmhw8#xo8Ms*_LDY=!B?v7C8ePBeX*-W!Ah#e4U2TR_Y=$;u z1G$imTz$_0REEjsJNWLf^SI0INm+T)g{R{;b^+OiS-_Y6wf^|E1>qW&;JeBPn3T+h zhMyy+GA7r)PX_#43Q5C{TKK&@_z+tfT*lyCW{pQ5e>JrAWeSywTn6d7&#STGY-#In zpp`x6xW6PxMmN*#P^=Rk@-o&|6qyOEjC?N|$Gw(bC@dt2OY7bik0sRKOT_pF7DxQhL*&3FS(*5 zwrlyNjb#N{^uH$4pYj~Z-KO;=SIk{6LRt;WPqCL?U*1G3vXf}zt5-L%@ood!%rD6R z4?zB|<;f}E>&OAh)2LM30)Ju)+;1*O7kHH|uo3M!Hatf0)vFr=F?2Qrw3%ydF$W@a z=Ln8cSs%Fg&&??tD4ot9S(ofVf-#>;>B-o|JSlj4ynJ7FynJu4y?jsmr0wAvt<}<^ z^Y>{msl_B(o6Qy>Pk{g1pEV>_@|`}YY0pz=-${PY83|%SbiL$K|>}#x>GG{rTl)Sh4 zscLqR0?{%%bS98rz*57VH6ib6;8$(QXLpqRAgFTgSn!Vb(+A6RH845-O(w>a$7`ey zIS+nFhgZGqF%ia9^%{D9uZylNjvc2HBNtVi6+J@_-0@nQ|K}YnL!A8E0C6r^*I!$# zsPz?RHC7DCl9NxZJu@bre!FP*kKBFBSS}qsX&!!&`mbbV8NypiVrf2FjINDkd0D9t zUfJ?W*O%p`_bT5aX~sDA_A0GkNyhW@#EKEf56o9tX8GfJ0^#1m{{bG|@r-kpgQeZ7 zwJhIgpL5)2Xt5ilUZYE}NIxCEU%g^#Ad2gMk)`Jj407pHx$0AYrr}JK65}g#1F`<( z`k83I6J<8D1$Q^#(najsqo>YSsOURv(b4ncD+>a#B4#cILDF2WtgW?|6@(ujz;%3P zAB3tcD=_z-L&s&VD=_nc#NkxZ2UvNt+w_9`6Pf2;KjfcfH1L*y6A8vII({iTl-bEm z$0t+Sc=wIu*Srw>FnQ}6fL_arHz#tv!`vj@1;s_=%Y83V9r|sbx6XZmHq{*?j@MYR z4>fntQU!^n1MPJ51;O;aLRFAHvw@^6!nnxxvFTNlHA(4P*P3CJ*%6yZl>!R}Z zST7rN6G5bO4b|k$E?Q~N?a-;M6-2qz5f8%@@Y~>)HcXy1Ra!Aw<&|)cV(sAr(+r|s z!M$w32W-JR(=2KzSi+*rcoHU?-`+{TXhCawoofIqdid@4W8%_t|8!M`^d`(yCS=d%Zfk(wj zBsz?Wc5W~u-Q4Vl&&8nByhbj>Z1ajHVXK&IGXG7O?W0ZR5RU@yG-0s&0*?v$LCjphnVTmcD~o5&+$#Cp<$Bk~A>W)Nw7MZl z7)MV75@QBB-I_`Z>2Dg}6s@o#r(5F6LE*>Cy6SBxjZusL0+goR5{rlHtC+a{iW_lo z8_r)F4(>j&!5OfA%t!$r1tLymBoP_UZvT~P#cp$-WbC~1C&4yb(N(6qbWWMNbeoAm zfMoLkzTItm|7`zZbO^E{>_mt2j-3vD{*Xb3en4{R5ZBW&)8RhB`*-LNq1GN9o@cin zI!Mw;)1e0y6CG}WM#<(d-<|1T?{$};iG)?&YP;0!6k`pN&etB-HjOQI#ah>2IY;N= zPKb8pJY0{|@m1y*u$Ze-c~$1;Ft4jp-AF_~$#F$%I~Np4IXku%{qcoN=C!Om&auCF z=1cZBVotTc6V37V_e#^-{?0JR+2464i{I*%L5{l6S)QQH;RMIkB8-^g~#G<8b#ieT11PkdpDQ(6=;myjOc=h}x|nI|tSlI4n7(VLUl z=T0CMlyMao<5V7aWw)C&6J2-{xMW}sR||CIGaxmT+n}AwLC(ajD-yljpg#Wxa^Q_$z{`_)!AfTe};~jOI==6ob2c=n^k=* z+SMzk24Yd@KD#(O+6%g0%I6e5*QBm>dbYUEE3MGyn6L}c6DNp#WaAXt}kqnq|dG>hYLo=lY=gg-H{&eA<$HrslN9krncl4FTv=1z5L*Y|n5ac}R^pP6Tl=*BPH%l3TRA zM@fFslCE~)(G9aT0_5%4> zglAK~@VdJM^=ZqICVPVIjK`jUxX%kbm%fZ8cJ~-WOjC{ zJKsThf|=cgjAxS3_HODkJ4=T+-8GCa4@{vn=M_oCEx(d9pj`no837_uv7oVHRhIKd ztBLrnB;`i$roAEL=`0>t88kjU*UIo*Fx?Y~tvN?mKFWKxA~;WuwQHPq@6| z3Y!MyfFE{6Wa@+~F0Vw^5+7Qi4i~B|TVY;fAp;|`GHBAov1V&5`wCORVi}Fat0}

IEsf-X>l4<6G&naWrt7b9up*!X{ zS4OZPVjL3o;NfAG_n!tja7N8eJy0wr&F@Ht$j5zJ_QCVhK>mSlewKu#!MSHm%!-EQ zo>fp2#U~MWV`M+db)?rMskKfM*G7~oKWC@bb)OYx*E}usAorX#<`1k!#V8L=^cf}8 zFF%0s(rodwm&`w&cG=z=+h{JdJFTX*jZVp}0YDQt`ljtHdX}iMy#qcBd#VQv{f) z6m3t@B(KI!ON`8rAcngZTvkxHM5$gPl~ako-8^%mG(ywza=2x9I}CERCiOM>&Iem$ z0sO&_uJZH?sCY7@jeo#+%r_}Sa{%iiYjuqWj!bVba-f7eZ~Y+UbvJTF%zE8S1op{=CdDaBakG(O9%?UbMd!Dso6}YP_@9PF`|G6ojS*QbkhaCWg>gGe2wH@- zK`36@!bM<2?Qaa|fjTH@#7y*Hsdm_~*d*2Cv$C-BQL0qV%w(Ww#o{6eB^w30^2|^? z*f}_9D2)}^ly7IX=cIZ%Ie02_`mfJ!&jDM#n3LUV{*MrKZAPJw3VGY55@#5$ zaN#y`)mFCv2E@EZtgh@Tng52WFA2nCS8Uy&6&Hoq#X+WcV7SJLbX`k~y7Rsz=-q8>}ZGQ+%W4y**R;ezI(iA9!@hiFfUaPStzMN_~mPh-s(O zb~FY-G(daT=BuDvIw=TpV^ErQLb~HM+cuHq!Mm6l5;ONDX6{YQ+>@BOTX%3&?P6$` z?}9OKC0!yTcs)a&`Q~WHpc@E55eYCL8t2bOxZtq z62-6(GIx<0!G)7Xyb{N2dU9C+R&p+ke2D)}Vj!XWlFv)B`TzY6HvKxTTdYZ$>~Zu* zJ86H*{bwX6Ch0O-<_M<8j3x?K`Ax))RilEpkHx?2an++jdWiPHX2*s^t4HP8hcC}7 zB!l@G;+%EVf4sF$t{b7izo@dPK*Q_a0sg%4giSLEQvN{2dWEB38J_j9il2AAO)yUh z1jU2pCJ;0)AX=%V4g1>M%SC-@lgK>1Nl|bj0hmJVhbM<@+yv((hvBDbY!y30>(G7xNy#rA07ejCgPstvk|xh&pR^Q&$beblV4qEV%RTz62i}9Y1A~Lx*2Oh*NSPlCD^`+Nh^0|O7a}%-F2xYgwWYa5#YNl>84}jYZXdoCQE+ zgl)v<7H7uBt~oPlz?IoD*Ewe#`p2=41|w{sX4j65V_%uOm=bp*UYcC!riD%$hAHMP zg!76kVlS``YoD|~_A3_%hZ<_f-i8Bo;G!E4T>G3$F7HO^dhpF4LU|i)A}>=x+wT8~ zcERpqrifx~Zi1$ZmJ!}zn?L_Dt-n5#Bpo^~mThu;W(JX%P}$yKkmBy+9oFA=s3nHa zq9v~9%S;g{3~TaRa8NO|C775Vw7tyj$N!o7Si6S=2Bg-W3pLS9HHDc}^UkWd@}@6S zs`C}p%9Xg*vOy-NSvK76)!`aIo;2d0WUV>Jc~J-YyD5385-&Z)&9rQQmr2n^DlRuy z@3Kj;?LaUQn&uCVU5U z;9G~nMfm0l-$-7fGLI3MiFKT!GWy5=E}gp`hW9DLJA$}Zw~8-wouXYj2RytBgt72O zkC`j`I-lBq{Mr8@-j@R`lip_u?*JlQT`^zgCyI9Q9*>ecP4CW>KK`>X{@>{z5B#(< zz84AKI^nxd_f4#Rtz@E$Y|yr=SIzM*KB-h({68ISNi z`Zauy@z}xlK6vCau>RlTd&>Zp*{^2{?}>=^bu0KX&k=38^}9bgq}wN|Uu5h14W1c@ zzBqKrX1%7RqoMXS-;X`jz83g-e{Az&)Q%~zxldfGQM_m|cEDVm7-Gw~54$xl;mUVC zc1`Qc3aeKZ>XyT#sgq>okNxK;=3iR&KSv|voEQ*XIcK0b={E?z6$PfB{mnN$?Qfpx zVt;eZr;m}=lY{>BSFrINaf4w}mKWzu)Y-Qg&l(RdY)Jsdmh8DwIEx7 zV$;Ze2)P#jR;2^k6zD+}n|DyQO|e@k3OlE0hKn`-)K4)UWt-V-Q#9Y>2M$C-W+uy8 zrM0=*4_v3fkv1^3(3ZYmA!oWFGi=C}sG-bGH{?MQ&S2$MQCUJv(z< z-Md0-veFjH*r|==X=F=}YJ5Kax!JH4`YqA5&23Fdue@CF6 zHr4Oj{DPft`cg#s6|r63p0mII@2-vVOs)%owGqM@Ya?XSjNK@AS*|_8I~MvIP+C*v znib;SoXk03uKfW|GY{Yr2G@CP&6otI*w{?L3eDW0xF%MMrhupP_RBpKrmP=4tdy}4#3 z5?b;=j9^jqibDGGx79gt%!Z@uc6%(ThJez<*rGg4)3hHFfa_S-Z5R*9N@HQJ7G+nm zD61WL4Jwkk@l|!%S+O!6ow0Sn68OaO^D!{bw`;Q@?~!S2(LiTf$YCT7o>(6&d1^_2 z{QY~Su2!j7zOi^KU>Wu^jN5YCCl=+!*0btk5vFZfCmG*Xm>%!e9>Umh?fINjO`?lc zi}xr^YJeM6gWR-noh<8!Wj~8Gr86@Zr){gwFB{elnt7b+dD?tPC!;6kEg8sn{!$k| zneh_+0WcjU-T7bj0j)m!3XJIujc$S{%L60B@XwTF`*{_h*(MUJG+4VRazDkwo^+u zAh6`b!SF?=tNI0ME=_VuGEI$-9gH_HdHYZCd?$NU#h9TNM!V~0w11+{Y2a>U%&6>o zJ8kmf?64iF3zP!iB74a6MYU!VU5k)DY6mGZsM+AFLy1#TSPs)`23%z==wv@L*)vq$ zVV(28$HIVoy*X1#eeD^Xe1b5`ZZwO&kL|Ojx3nKE-&*Uxm!yZhE@_!YLWH63@PnJ- zYpY92V^=X~BZS2j<+~cj7F(|j=ll8nb*b5+6^eW_*}{GvHa(Ou0Neo}o@Ob@gd z)fbiG%PlaZv`l6u&1qJ#2_(cCwm%@&FrRPFVIVqAt7A+14D8@l=b#yN&9vl?TZYV6 zGh0D`(`&IsgEKM3Crux%K6H36WVlpC2y@^gaRH{svUgaJ<6N4DF=Q6a8PVoJ<_1e@>1Wl=%(q_xaMDN=vUZ5-0xh-Q zUaxM*9eTDmu76-1zgQjgO-G!_oV)((3a)-q-vMr7yhE9oLH44=Hg{ob>FiECut7-> zV`Jx1T)AG>U_5=gQ_$dk3L9 zbcp%TR5&T;hISFv!fBp7=TFW{4@o(1-c_6FN~qpdcDh@4B7u{B21h|ok8kttN$=KhgL^^Xy3zOC7eUUtSkwx4`uekoT(LCm4=m*N9)4duHI z<`<;PP|tB!3_L`FE_zq^=;^#eqMIzKxa;-19W!5QK=b!`Rqz-2H9ytYFESF$dk_ff z@4E?1Hh+!pRExDluwEryeiVezL!z^#Ru43gzPELp;BJ|ZUb1A?SCv42>Q}+%#|C<$ ziyyye(U;3t+&E`(RC7Gd^Uy%~cL_ZNI`+Iz`7)nA&UGP87yWcGo=o;Oz+27o|B~OD z*t_WwF_H9c89Ru_|0M}h@7CE;=R!|L2fpnDD~^w!Xqb+))pJrL~~-aIqc8uOAogrmPuU}M7A@;CxpInDJKjw;=pPhYLBvsDh) z9HPeYQNn?V{(WA|0HPbK6`f^z@C={a7~)NyC>xin%JM|%R^$^{l5F~k`cXOxk;Zn{ zLY7cSH)}}~-dy$J6d1=8dowO~62m`I6^-Qwu}Q+<-%@XgOFeQ-vN<9J7geE_JUr_j zm^@_t^Px!xt5+Xvk3E^D@6W-&MQZ^CB%2rBC;FzN|3tL8=zhO)xZs(j1p9r(yUQPG zXJ>UDCn{wDcPJ}1^wv*a|M;C=xcO=C7W)Dg@bQLVNqK&(zyL!|G4nYg%2#O+Pt+R; z;w3VDT4j5`0%)ox-I^EJGIYi0K>cnID0yaCsAT8zV9EC7nfDBFzlGi8XbXhzDgVUo z5iEDBav$tdhaI8tpDDy8zIH7Z+k=m1x0wEbSDPr9g%(>AYi5~OhpycEAiPlyeC z0tMsSIHH=i9hB%h_N)HDXz!8_6=GdXJ^jc{ktXMG~X+5PF! zH!O`VnRR1y(yYbq)~(a8#eO4OdrWtXh zG`TA+tP5o;puf*5XQkXP=N9BN+)o<+uP)=+4||(17*t>&I2~!fSu`uWb97+u z-O%n^qXQH9=LuWj)$H)Au$q1kbB z*e{Roj2ZCs}XtuQWWd6sO^dqrlri zyoT3C>UpF-SNdyuwO79lk75(TyCr)X9$lS2UcC0m^&3gNTJ>n~3Loo$7yZrXz?Hmr zrYBut){?K@e-wB>C;nLK_u%FZcq8hucX^z4=tNJ~(b`h#m{)z|Iu;UtEHJBqUiKNFoUKi7D#7Oq&TV~od*r{%soERWI{BL~=OVFQ)cGYq>AqtX5iD}SISuCf1fg`q85iCGyoC<@CGx}7<896ga zC3!xG{>fs;-v@m9_VhmB2_*6N52V(cMjhGv%`qR*v{vUQJ&l8M71NXBsQfH4a9aLQ zDr;PL^C{JzjEeR^@AI>FDX}5Czxt9zxyH9v!$# zD>vNS5jh(?y4!=2s2ep1{usBE@JZyL!7qtXzF{UTx4oM5Q4Tw>Sxz6(IQ7%P*zgufL;hD23J|OuqGQ74I-v!C%}fws5vPznZ?28~<3iHRKvAtB@QONlsqP z!7qJr9g5T;GINnFQnyERn7((Q0osW|mwUc;+)^a1tp6eHH&)#SL)=obXQA$i$c^l& zBz`d$#-Nb;vVPH*K6{F^+Wdiy0Snl)=nW?KD_bqyjm%d_{DF4RS85hKAH0OeX+L(m zmM8K=|FaAxVvrBMWT0#3((b3A(1*jKbHo{vtyIB^WTh2>fYURV(0Ud2t~OKTA$CxGNuRo&I{AqO!7cBTd@l%Kz(Vrs4r!1d)3>ElKY#*v zdWtxm>20{g_3v#eDOIl{KusAZlQ9}gETul2s|@a;K2kn=_1OlQ<0dB${pu8$guLpo zA1p&6%Hjp3IQNm!g*B`Da~99J+V7_>qj9f}Ppr|&(wkHZd@?o!znI1$%V`b4oi*lb zwC9)Bm``l=+iJK&m~U*GYs_u#&D5B$l!jBFXetd?I)1^9RuuPl{c6k+%0`d9YaSYFhPj|`ln4))HRk&LV=~cS zV^%5(R94iiE={3wr~uFe74g$8D)Vh|U7FxG4m?%P6AV>wY^$x|#M~M)+=Kgc&FV2J zxKAjH{LMTK7xiGctw`Mg^}_2T$0;CJUo>vtj6rIQFPlW_FKJtr)#3ly?m&m8^?a3O)^0!sIfK^ zD*KU|RgNgG6x47o|n z2vJ;eqU0c14D1ctjm#r>593T`-XTb<2l0`Zja$vj20tV5NM1WUx@XV9-c8o#?rpZW z@<_xUiZae~{sYke0jRt}W>w>VYK@jYk-k#Snfr)9wcJ=bk0M}D0o{gJ(C$7Wjj85h>Kz&1zhTsF+zF7nomjj(@|MRN-l%xPtf9R??yBk_rybP@b~Skjc15yd z;Q%qlBd0xO9VBp7Rhx~L+?Qpe+Z5f;Mq~6ezCRv!a?a0h7_-~24{Tj2IK>vupn|#? zLlS{GcZqnz2lem$29A0kBEB z2t30Y|Lw9PO4JQ(EGUbdUsO`}GynX<-Fsxr&vLEJ1Kwxz1`Hmv($C2ccD^r7?V;K| z#4OvLdU=~Yn&!7g5!|_Kn?3NjzkOOs&=**?$ClndGO9hVB$yreaoqc+ z6LM+20-+KeVx69MzlF;Qv{qVyG43ZeeCH-AhFYWj@Xg$> zenq6B*o+5S#54v)RmEO0Qt6uWykf>vOu_DPjiYX0WmwFFo_8zHQ~|u6KU|!l0RgQ{CVp>mK}PuFupPk4`S z;YpD_ISMP8(e9tq-@W9{J(QP-$d$a^%{TZgi+3k^BJ{FbPT6&n^-mgpi8B_1%se1g zh1-1#Pl#;Fc_niGppv?m{d4-cm)yC1ywJ$Pm;LeXBuwB_)}AE5*2mEuGKrgKaj$8| zr3O;eu$RlS6CPnAi$NNp0>c_6xN2x{HEMK^1_zjW9AH?dWp$_6Lq-Ei7T)TgKTzDo z5)QX8uFhrUoMWD$I+2P2z#lweHD_?z8}i-kXn9N0@08bWmdo5nyNMY82nCfnLUf%q zt)vD*yiJ6~n47RWucRh>-p!GU(tSwmC<42Q$msn6Uhhl6Z^i&SlgLUfkqvM}2FxTe z=fa00Oh2Wx z^atW96+^+V(;#?&X1Dm2cE$XTWK0<`gS4Cg^GGp?D}Itltm&T)8DPdL zWPn1npb#0AbV*ZeP9VhkyRr1ao+Qo{Jo}AsD ztd;vfuAd$A44stv%mME)&oCDxL*R?g1-v-t@#DnkK3 zI5+Q2hzFvj1i!J>Z)VPnx1o*}V#`1GmjD;8Bcw&?o!P5&< zj9{3@2wr`hpo1NsVT6|Fb*=3=g9E%j?#Br&OT?fV)WpZP^nG}&tmki#taCUj% zu`%5f_3Jj((_DS)*L_{D#;T9`@dC7NFCTN!vtrG=Vd;j@IjZaHrc$Uf!C=D^r2%T6 zq;Op>&&uf}q=rPu)UGE8`vkZ4Q9WXZfkxSRp`TIuL|b}}uCd->{zo5h51+ldxh>1y z_SEdlM(#%NM-OTf53Xrj_DW#II;v8B>e|Mtteml|%*GsqAtflErHdaJ zd2`(d{!Wqp`uB2NWKWSUuerU;&I>Fn*TB&c)z-oJ<*NRl=V#E$U(}F6W8Rr(X~En} zq}HP^@*R!M;x}a#?DSIVTKxevp{M>?Uf(v}t+<)0YHIucSCTj+CrcO>&;@|Qei?hf zsMT|8TJuc(jwOSV)Yx)&g|rUF{apqfVm>9uO0C=@9{HSm7?5^@?V0X+M%|Mtb8JV` zm3&dm$;hSNJpmn>>fS@ICTk;bJSvqQ8btuNrez5G+4ggk`@~>4{TbfP1_V;my!?3f zVoVm>%n%koETWR`6ob3!7wy8CzLy0y^cCzB_uoqUuNWPn*LHIY^|NV)$^Wd^1OtUJ z>2Af0HyYc)ZyY?m$n%M``VVrdolfM5{zHkR|JY@REHjbq7wP|oTzAb?*Sfy3dm8TS zt*-E7MZh5k7W2~VU`pCzwgJW-!-*Q)Kg;6CdUe>86}fv58Ewh-rb%TvZ<|!d z#${ealNR2a?1D&;OJclIG)fn_B48d-b1r2p5AI3T?I?1IFdOEoPJ8%uIuKW;TY)GhL81tXL5fttiv=*54VM2|*5{l=jr zIpb@N__9%{Fz~5TpL%b%%M{rHz!)fAXjGrBCXu zz|syz1kEx@J3@b%qaC4ESzZ0ZmMfDtef>H0C6Sql@J*PT_&A5bKl?QzF zrbm^+m3NOMErr_DTOR-;HhegE`)9hoDfd41B!}^1x(mT(^EBYB_wa%>4|GoOA=oul zlay5JNJTUCQ>BxgV(uhCtXOF5;ec`XDtlvyyxirqNB)VE+i8i)?p*3Ph`uzBE~c2# zc{!uGHy|%Eakv~yS22G@Mi=Ca=8$heWMXL}X9Ui%u| zC;+d{7S#rc${4O+5GifUj|q;(2HD88n(`SI;^LpjfWra(I9PiM=g2{659G%|adfTk zyoxcSg5@=%d9`}|v|q?uLD21mX~^4Si7n=6ZmCRCY8D9^MvrP7UByhhosaM>jDa37 zhNv_N?pXO4!ZUO`nR{YqssOtuHp;w*q@COodvQA(ZExenkoz=A;^am~Y7I)HN=wXQ zsJY?xV*)>q#&ZJqM$!787@0XLvdGVlmMncY<-8Gj2|N3p4L>@vdF0VqC2!2@nbRZO z;xBn){;r0RM@FJ{bII*L*c*~8Yj0bX9Ow)VDWk8a>e`!lU0baaoZsuwHmu#eFJ`>O zU8K}Yiz?XFK=8Fw)@0RflS_H2(Y)kAdI4By(n{k2FW^hLy1;Bfmb^ZJ%Y*4MvxOZ|rW+w1G@^A& zO>Sh|j>tIHYR{m`v~YZwv}QpEG-}fXFfgs0!IBTkj;3q$`Hnul>684+%RlEXjH=L2 z$sTy@lFw6ZSwUj8pfc3gH#@UQ2MDj(e(d>FRc5PYFI_!2s+n)@T&BV|?Qzb;m*+;1vi zWN5cr8f*Tlh*4|A6-=YR=+jj2))0I|5Vq-OtAYoaM`;LmYjbTyi#7)t^*vb1_KS=g zg!=0l=hG71_o#GuWYjZ$CNuM_imb^9pYTjxn)~S0S>o6**Wg<&bSqu!W3>Z)3{0b0dm|Z;lI^fB^V%gE=VLJBBO4#*bQ{p zH3sji&WL0|Ec_s+hb@NpnO;c@ztW2^{FR5{eF|_GcC#2hk;YJOTNF3I{0J(tO&C~_ z#dNR_s+{@*)yD-)y8g|sjXiX^t;C^g_Y@G#(#WE^a>)KI%XAa6HLa`LArmvmlFjz; zqU~8+w*w-Z^|L8{H6ggBsnK*YO#1s&%(>{9@2QTA-F|LUa>9D`dhwupOm8nCDeh)+ zY&CNfu^tzhNcpYi0h{b@vt6ox3W4yp;z84_S2jM7o;R5%^g+u7mUX9Vz1F)*fv)vh zU;z!mr_-&c;36}edN|sv*{9KpY@^*O81(PZbpIA58?4e|km_26=ZesVc*ukv_7Hi~ z?rzvYaJEGRr}NC}3eY*nIfQ{(4{pbO?<}o<`~z&HKYp!L`&lHj$K5s)KOLKh9M0;M z>Sj-kv0f(qK|9HQ9 zW3T9b^oa^&1L^*ZM(9RqFqCCiGUjNAPVhdZhiyX?*oJU6R+5+4koHIRV4F2U?~t{( z7(HfQF^kbbmf~H6`I%rq?}v)s4_b1LCLu00yv3iDoN1R==G8Ao#yh?KmZN=K)ivwL zUGI2cbD||tWURrQk}rwQ-xYaooylGIVPWs*BBo^4k=&L*-gF;D-sB32UbOtZ)0|CM zRc_=*{+ur&BmFtE`(9v=RK60|hN9EcTVdrNNrLsc7uaQyGVGD|jI^d32>+7F{ay2C$|x zz${ID8i96L66%7Rx~qu!9lT%LcB8L#+a-Y&k3&HEIf$T+qiO}CU8=o;SYaL*}l#~>ZA0LrZHz2oU z*Sx;K$rtdsXLI=6As9ckfm6iLbZ(;#+D6U82=%h+&j^YB6in_-4n+ux&f1OhuV(IJypgY!pR>$0-XFMU(Fw=;Y86o(s_o8 zUdU%UXn-s66>UeUfj2XwCx^Cc|8~2@1-*(dbz^}r-4%wc&JGo&VJp}#r~iPGcjgyG zHrh%yn-|3h_oP0b;*)y48EHxScDHg~hAu$I5Uo1O{545S7M}$wEC>^~njjYGu=iBI z-vGk5FcmR$&4rMTw#fo3UQ_o-i?+k|dO^g$l1@LhBxnM+t`VPMphE~!c-psI3w4L> z|AN7#w^BmG@YwC7OpM)uC%Q!F(by83&$WTL7lld4w5=W79-ojC+Cl#x5eaUmn7I@8 zK{sB}5Zc~2R$c(e{h*))cVq?IQbG45gIXRQ*4E;;fxu{N zFu&Gf6`_w7hFR#@07X$=&3EEaj;)ekvV9_?{|eQ0~b8B5L~ z(=9R@LpA00yqWJza;Nk)=tnk1kZ7K`m}p8j`}TEV((s6ku~%Y?x4=y!{`l!Rlc42y z=JhS%1ngYx(vm2Cs*+^Iiz9nHdX~lL1d7j`GoVKWk06*Pe4OoE3|jL=?HUrzR_3Bz z*unkr6tQ!6Xg{(xX-d&{C1O>TpU;5V!Fzg2m!CY#Bk`}`H&v4yZya3hU-F4;xjD5S z9&sh+8r)IETExeh4f7zv_U{ztozs-oc2}Mkj6VFd7V8cX+zAh zFv-YE4`(GfweM`eUgUU3@@gd=xE+^^B-bk`^2ASsznZU+ol_x)#m=S{l9igT;MD55 ze3&u(aK;kLu68=j*)plWFOtUs5b_UL_G#TH@6_wz$y2XqK@}yner^(xu`u~#)=aoR zcUHBSBWZ8K6@u%1_Sjm?pC!U4jfT^07d2xUOqN#Q3Ftr58q7%F>P4Ej=@>PT`#OWK zrU8^~V%O8v&E|{GiQWXspR2CdIr<}9Qu3Id$}6u$QRgEkTbFTYJsuvRHui<4&^Oj~ z(w}}v-`IBVyN$kb4SvTpWbgazEy?d&?f2|d{2co|jPnOB{Z;n6I+cDL-=Y(<4(Lwr zl53_*B=>w0ok_T-cljx=ZtnHwSIx2RKRP3|HH)ImHN-%AO_T3Uob2&PK->DLHV#Gz zxjDCSY#a4%G2{M8vuHP^owKawAt55wsb6PLoeq2+0Vvh9`Ong5YoOMFEpcFK@FGmM}s3hJ7?FM z3ORjb-a+OQ9o#UHa2<^AhdT@EsKe_zvS*%s3qq}grFe^kZsbY{B{y3f`U;1XPy*#a zXV&I-h>VH(NB_PziE^x7E!Q+4Ve8)8B|MY;d=c?pKmU=}|4TogZJVm5_9{+PeOo`j z>zOX8f&FH^5aRXU>F3$<&Ja0R9M`C}WK?B|ih zrrLHoHBdkICot8|hw%}O{q6F7``O(i2a~lueLaW0T=iuN+O(8Uy3)+PTMBV5*P?H~ zS8GEr@YA_>o<`^1Mr1=}Uc8KbXozEsP(y_TaokOIvldZN#8J(pVTq%Va|UU@28~P_ zM>B1v~| zUYer2AtZ5hr&))48pEG)#5?wP0A1JpV)HQq0u8xLQgi(|&xDHWZ^>C1%4aFEQWueR zTNzj?8HLb|Hguy6-56N5Z3YvAPh zv9j62vX%!wBoksMm+!eJ%7|@n$lZ3#A!TvtP?4EHW0S{R*$4r&ox0)S9H`+Oj<7_2 zm@A90z>42UESBTiz6veFwSWoSb_;>^i$3(#oo1tUhl#2#v@mmxPcW6^0|nO@ zSZ{7wRr+%_^qSOa!7bDP^*HkVrsm-0-iWk|ni zX7zn4mAbBG4yhz2UuB;i<}#kqSjR;2zMbAHlBtx&CjIFv;}6!g#a>G&2j-?6OU_7J z!`xgs18g==$f$_hU5_OgnGMU@TyuN`i5^dTx40|L?ZtZR4KTi!P*ie!pP&kO^266P zsquXQN%lLhq@@Q)KPf#JY9P{o<%uNeYg?_wNe`?%pyNpW3M#=q)5ga@6%OiVmYG5& zIkUia152&)CM80&B}Iq~2y-461Sf;!nqon4GfYOB!)+-}plHo3ex1$i#E?Ss88xPO z$U#OWEoMF}HaQy=nU{%8%{OmSH*HKlKp>;U$rXR%BN`jYuh=XMBW1TBw&?onlF9Vf z9d;DcUuveoPo|p5_TD$Q+1?90cK1@+C|P1WFScz02)u2+=3$|y&IPoIA7Pt=p%qqE z9d5CEW)QUurZ^)U18OL)WrHCf&9*U@d8Rn(tU z6q^frR^zuu@$NoPvK=2DQD@Wlw_EaNH^nHC0#k{yPkkGC=$J&`g$iBo@8d&<)W=su z2d&RP?i-jW_e|9jx7>EF^`dqrGE8!m)c%Ne0UNUw=wh+*o@D}jL}UMRksFsu@uw3# ziMIwwd&LD4t{8vm*zyaPLv&xDm`$ zGxdY!Qmw-&1L9&4M@ExW zZN6msk-^%C6)G*TRJM()KLWa0bD?6kEB*27lIfcih3d#e)n~!&Exvwa&`Vjqe4j}t z0Poz+%noyv9T4lZL|*}SowD3p$XzSOcu9Y;0lS>5Sq;CKh*4>TH*xPG^H8;lkWHc$ zW(dnQD+mKN=fbv!pK&T~vw)6>)I8J}eAN8iW_fgtZ>Z0AnYsRsj7jpyXT&SEn@=uK z=e1I~cw2bHa#!njRqJoS-$aSFO1zrdL&)L8_$EbRFJfM#D|oi}`r2BX&b8(kQ>R)B zc;{MA>RRgusP&Z?O+;!Q@M_%zW?gIjOTvJCKa)qQ*3a8?_j^^X|JgoOH6}4uRn4+h zZ4T~2a>I)3s_=;WROvcA{yo`LKt0SZXrLwdq~2}+5z(b4%7Mhabg8X2UGi)LZt(0R z8>v}uhGgJe5WmWnGbudc9$OBV$!&7w+-}R+lu^#6F6Af(HbX_W0k&k6vDG|7$0XZ@ z%htU$@Bk>8hB0--HU=LsGwkyrQw&BTh)MQ)wVA*Z{!fF%H))A(r&8n<`2Lb-uVEFW zDbF75vn#k`pG$T~o z;;Yc3k{{5Wnm{iYBPwV+Ut>QdP^}#Q#B6YH^3}rw?rCNo42vh`giGkkEwn)G0|Z8L zs?AAAV!zY;Qv0MAa->2uE!A%HLV7DivrX+*FGTXy?=;8Mwt68SD@5$Pw%rSPO(9|z zwRtVBtf)f7HfxK#kiRKJtz0|I3;C@=L_oDwUPz-tL<_Z-cp*0{M8m3fh8HqjAsWzB zu2=em%$R=DRN^~*Uu?fePp!Lfw!ALstUU4KyL?y7 zm^x)<2+bC8q~*7A&a4}B7~ZAt9F~Hac8o?cFK;@GWC|NIYsxh)FqKB9-O~lQGBd+2 z_KgpZ5HX>!l$NLWDt%O&X?EWIojy)oYbl6_$cBfSpNATshnk*;NP&mimWNuFhkBZa zI)#V&l!rP}7kWEhX3xDRCH4jQ#&Pr4ssZ@AGZT7fj;N`YN8lcdh+>iigf&o=Q<*kp!e5*9CRhDLRrjoqMa<+)?6poERQJx5a z(O4sCQvPIYJIFL8Wk&5uiP+_nTGq@^{S6PeO;GC8Eu`MPN}kHFMfhgB4m1lvQ0vbVsZ@~)s=BXz@>IWA%@2)&lVw!~|N zcgPiu{gZS|2tj!P))G58mhjO|kyPrhB$JKxGK-@ut~pC|sRENT%nA?S3JdV37N976 zE8)q1neWN4e-Y0P+;{q&D%+UpcTXNJ{p7NK_Z-zZPBm9_mmX8^j-pW*Q>@tU`$rjf zZe%-Ea5KCqU^WrkWfV*q8+ht8=cDTHd2Z_}yEI&bLGPeUgPNP~i(*&r5Sz1!l%IwGVIV z#GXMLe<~ejxbU{~j`Z_3W0_VL!H&RV)gzVShoF%n^EE&r5TNc+j6XTlIQqZBPy@K3{L(>CeO_l&mW)gp^JBDdtm)`==| zbR@5>WKmln{EWUAwdu+Nc1>D2^dX~G*<;BR*XocbR&h9>*<22PMZdNXY!fh&9BC=a z3nSPnV$#B^CdiTnx%1}oY*@e!wvNJ)?+O}(e0_jBSUUn3$Jq8Emc4-NTFhK8!pk`pZf-%{wYdi?h#$Iu`iXpuzEd`3Fmq>zIFmV%uKlog!PBiqu3= z6M?mBnnwSFI>eGKhn9y!FL7K|4CR1@S@@91eQ2a&sH37PKH|N!+Y~jmpoxl5>)EKm zdPBO(o=XsGnCwDZE!vV#!q09M>TRx6_L?ZQelf%tup}K=`ZHm(C4O*tu`RNXimV(O z`Qgw=Ww9iIX47m}e~bHAsZqWjnETN?Zf%kiT{HVUs4o#8A`kIu#2|mB6;g+WUoUgJOMw3c zHBi2};z8R$X1sk4kIbd5iX(eVTIL-&xW%=Z8Bd;uieZuQ!|-l4w!>V`H}HtBsEUjq zp0lZ8{P0LcRaQkYr7}pIY+}#PAy46nD7-s2aF^ZNxJM)Ki}1g4!=LzdlJVkFYSaQt zqr!RDx5X=k#&oi1PG0$1YEC{~N|xb~mUX6ZK##~9>psb^f4|4_nq86C z*L_lGU-2Zr;__1XqTk^4-N-s$y zCO~MKOk1p^6rT}kR*?x6+1HD}YSKk!(7{q7i6vRiU4$qGliasS5dc&K;asY|kSn^d+G zAQ%`OIc-Tv;x%@%T?jkTFLkPjDsabTi{ydr2MQPiWA+?d$?ORBCF^+>)ABn$7WI z>^PSUEIki8(oRB)IUehUrfO0}g6IHY_}cjYImM&T;n<}4xzJ_n<4Tg4@2iyouoy=< zQayK=M-{z(@Jo#s+ha7J^4T=QLhCSf7Fwt~ey_6Q6-~>%;K}LWoOp55@4ev4bg)0( zx9M3g_#_wX2S}DR@cmw6WjBKv4u~||oVP3yI)VTWFvi7xNSq4K!Dl8paza-|D!buY zB5C?A2dk!(nqaU^j4lK^yG%znxKv|rPhaSJ8D{b}ZN5tzFO=EvguOlGi)g~$K5|1e zIx%*0Xnkt>Ed%LvAKXo2NGmq{Of7=m8qPHQzQ@|E&PMb<_r|&Sx7EN&+gIvcB3fD1 zl$qDem^yOijm|MEY8spFkaXOIGt*HvPP*S@zEIt)j96F3LFxEP95BzAf!{(XC~4x@ z2P89y^C|WV8s-mzOi;Nb3G(YR_8~}X|F|VmjxE9StMV9R4`-R~nkr;=7Bx@MEouKy zmZ!5_Z%q`PDD{1O#lWv62R-&?l3-8WX>LV$W_BtnnLlVDtz!ekaG1f z0Ro(j`;uqdpezlwR~mkySL=GuBHZwH5@CrA9?-g(PEaokO?99)YTCholBwXWWO~nv zazN6GvRY|2X;e)--7c)<=?-UvEUf;SBC)&3?m#Xfc{CO#Y5ZSOPXv~=&`IGD_p4Tc zrA>TzNCcMsFCVKOP@Nv!p-Hx;c1jBE#$OO5-IBTOGzivy>Bg~jKxUP{O7L_@aza`1 zhKf+R3rzdOJ()T*HmYH`e#T}Pp13$KVw*~k|2JqmEnT5kQWdHN5r!=gzeUjjx?Lry9ScQ)ku@hBCH#&aA7G zu1dA{qMpA0og~2}x)sqVfn_g~*j&KSSv^e4s_m?DR$G_w9S^egd zdb>tM^swIS5V>D(>TvTLy;%~wlebkegf(}(PZ@=Z9Y$+gCx>hN6pl+#bQtCqy3l$c z%nZCvfu-ch46IS$m@a{33Y;Y9ub(QS_H+ynQr~FodV;(=Mttv%q|9&mM|>X9y3^^~ z^pNtuen{}Vt7nX#e#7h;Q!g1iCOBsf*Dzd}0YCFSS>mn4|KILUkUXXqQd{XMt3N%Z z$#UM&lNiw9v$tiGPlA2^ZTIT;UB1_6_bA5&LAlS~ZIY^^N|?K{0~kH_6QQzO!OZ8& zOE=67kSOxWf`5K{yDMHb`!2kECztyQ<;y>XQ*g%A8|H%8j9J%G&bIF;XFKs)tbA8F z{;YCek*{n0ZCNWjfYGJ?HbP||u>RZ9^080G z3Odx^lZ0zN=O7P%ne-wlK;NReEMLH;%&iQ~m?1aGoe4;_pbdpvk9}hn5UlF;?%ch- zlcgp4C%j8)eZG1M*I$;eJGa%qt~~4#VAv@^wy&r1kDoo| z>Zy5L$JPHE*M^xua(uljYNyY*W^To-5RmABNB5J;@9U-_7c15k!E(6G`YTB zl{02dae!2HI*8R*=c@Pgb+bSe-$B>rb^+4M*K_2|xzlZ$m7CvB)0SE{?}N_Yt;CDA zis^`N<7xgbv^BJ_+*f~ixuuwW$6Up%8{`=qdQo{j4wyjLi3GZk4Od*O=z{07UA}+M z_kV(SZlK(EXWs+jEpOn{uLf_Gw?DjH0%5m*yhm;C+`bFCd{5&0Kf(K&Bg%bSk92tV z+lR+hjG9t6Wu?mMaezqSwO@>>YkLHXFwvUb5oo!k4NF5fHp{!iL}#lUjk(m@BJ z^-;5~o^a#rsr0|f+YhaK354B#5nnm<*Yp1{m z6nG+A-X+1-#rVx>rNwZ=FP&Pe`RDOYG4wc3tS^^O%1_NBi}|7O5c@+?6*gA(2VEb zFX@9cbyr36zfy$55T6ScTyNBMh(D=dJH-3a>H7}xQf~d2sUd!}hWN0mx^rVXtrj+C z*Ubp8ed@$|KIY7i{f_kTdnZcPT{*b5g5Bq;T@gA-&go@h39>i3Fmpj z<8y2KcMAM}6!=4RJd6m>PtC#Ys3NzWx?y!O>C7i5SsJKLW3yBl4#X!OKi2Vy+j(~8 z6Viuu<`WU6aeQLSF&Q2IqAG)B^&3Y{8`$Ns!nI}xFeu7@}^F~Si|6x+LFW(&dH7(%AL0J4`%0y)N`VK!HrOty#MdUNqickZ2;L`69RqJ)uxWvfvZ!3NAh z3gxci=M(0n6UC<5!;9K|i#7U>RTO(Lhj7eh`I!7f{AlG3ugxCZ-cS-R(0w~4!H#*i zXN0B(+36s!!$lG=&3Q+wp|=;M2N@Gz%4Y0qTjTioksc23J|Vd#_#=5Dhcz>I_KF{7 zqe`>;g!&M(!o~RWdnuTyE;~`b=jgeI=gbN$p&r-wyQ^4a6Z8!(!&^VjkJ}7+5@*fPmnVt(b<|74t`b8sT5YDX*Qp-VdP6m zMCy6R+VJ|){9{9f)^Dtrr2ryL1b4)KL^{iSdpL&A$&=?)6#iT{H2D!$%mp`D?kh*u zzf(-j4z^Q0f5W#6F{fmK&!5R9FCF z#{&dlz!Zs<7>-R27bQ0J_Czb7U|x z_p?faXSfYbqm+AWI`@C4b03q;eF{*2;=&`i5~dHvd@mvDBmoyFwU`@Rq?NiZSzbtR zBG|5;)b@Zq_%*K&t$H3wuOcZkL<=*-#k{77_e%%^B;5?r_>#58#rO!_CV) zleRsp`a>GdALdS8Q}%e7UXSJ?YCGe~ofUc7-_``Y0JE3);RNK?aYndWDxPz zY=%+jwD8U2Waje^wz4WFB*s^#`r;_ zZ1%Y6>{PX0C$&<&a=6-d6kt3<+Vr{vJ4dT z%9WudCefGSdnbw8wSac%v?*SV-5s{llM)jzQP)A@tO9g(B&LyAQAIhBom+Q2-t^Cm zkJaf;`J;I9)iV6nvIdb2POv@jc#S-ER>#jzCYZ6A1iM^<_-V<|{;v^wW2?;;KPnlz zQK3hD+7+0pFd?f(=7eX^J0Y<**kKydv+DW&DJxikoND`!q?X1elq^7 zQ$~tP*(s-}p~X}oRI^Sv8V?XS-&u8y_Koi+Bi*ge6=6;1Gu{saElNzKS?bb=TEd3yZhc3>hxC_FBZM-0DVi_N5q7FTm0l?sHN?Dz0f0)p_cM4G&U^) z#k7XmaM7CD_rFfokU-IOHS#kBnuV6IZBS{78e^m;oq4*STKi<`7*}G~phqVM?G8I= zY02sczU*a>$R%#qB*tHvf^!D#TEFNs9gbj|`bQSp2mEFbuIN?{?C?(aB6ASU1aTg9 z23t6|0|29jiZVzO?%7-Sk3z&^nlSQwjA(TOE~!sEi)o8UJ}fQgCo{N-L>WZ9&IjQ| z%&NwEWgeHS3vt(~{$FCb$OR{3n7kWMA#;hCeM0`Bt_ zqOY2h6<)?Rc(Zxlg&bu=F#34TtS02LOU?A&a_1X*o-{uetb37`9IW#ktl2K-uLw8! zeJS)sTv+Af9*P_jT-+k%*@Sy2wYTupSvdSgnIiB7_!{rlowf3*5Sg2|Y-e3}Z2RPQ znpCk#GDLp!G-JVN@MT zYV!HSJ{194?uwU5JZ|uQQ#vamf-Llz@o8h z`OV-PPG|_mVgq{rMW@Nc>hQ9Ls69(UD=EzU1H5w#TETeaIqM*9 z<#_81l_tgKB5n((@sk_b%#joGJhC=s8V7Zbd%Ji5?g=lCa!}y9#C7;PDX_d(+2vjl z0^)J$Wl`*XbO~eVVB6w%N`QP1l9JQ=3bM-{NSDJUT2!na2oi!sXf#-ocOYp%q(5tq>24Iuj9t*#?q*H8+n>eYvjb$F!H2& zZ8|B{YXJiBe{_g?&5C>04jq_I=rwQyzN&fN?SR|mIGB8g}kWWI+gAR9747LZm&USmOaPl4oSJI13klC}i&1W|Q^ z8JoxBe~g)-U-)LfyzQ}8VMQWVWwh>W#Hj0aGmyk-p2Z!@61}YNCc6YU6+s%~Mv}f^ z_8iOzquF0GpYsNXY&P24_dLq$&It&w2hiangnE2XW0jNxDKSzpfYBb{+{&xw5V4v{ zzwR%1L9SRB%LoUhk;+1n9HS8HcOHw!g$0bf%0f2 z@;?}eIIfN}{hC!xV`ZVaLrW@;{ar;;kNrK)E6p^1A|ti|zoQK}14P7DV-J*Lz;RxC z>yS}jx;CS|VgKifS(A!Rq6H`ECd7kqTCB4l1mP9B$bquM-gVsm0j-C3U3!`8FFUsF zJ>`*S)OZDM-n4VH?L?MxHoT;LF(+=3q?mSH7pliK$J8Y6u%mw~G?R?M?V+Qaa6&ky zazxtVKaAY$XEa>QIQRpKNShj$k-y@7XIWlW-Pv+S`5L_9OVNB=e27bbJn2I&eSf)_ zoSsa7P%?egrsp0G^vk`Y@%9lDTmvCI>*?W?(xcBJuxZI_zQu_BJ0sZ?6d^gtV1%m=biY3R^LvS1jT zD*DV^4D{HcM4&wT%)hI++Z=!KA=n28KgG(CUow1(dD`cUQc%c>8D37^sl>%afu+*H z6bI`17WWP;{cpYd14}Ut_gQ5w;#$-FRK-+KMrcC)qJM$5_9Ik}DtUo>fNf_J+oe{G z;2=j{;H)1=5}1Qzt4cx~?EXWt5yVu=*k(1^ZvF)jtHMe_vOMXx77{M(Y|R$+p($_# zLlgd)SA41M68lM(ZFAh<<>)ZSyCj=QB1G$sN+q;NjenjTfhB3GMl3|y7VMru|op>S-D}FHn)pIr6=ulP3`~jf~$61bv zT%5t73OaMBH_ZKFvTxwv&3fLvXcA*XE;ui$Vxd2OfScd!c$9u2bykhm}6Uzm4@}@l#e0s2Y}&BlGRnDcn`?xL{gerf7BCZT`8(Bc$W@(gHI+U ztsg4=nl8B3M|0_ey)>8RO1Azzuh`2+qUpN^?L5Yf*$0@%Y)cfH2(WEG0x>-iNd_M` zD(&|-DTn{BFiFedXA4hx%eUh8eSGaR4^1>bQy%8;w5-is<2OTCrX}Z?y}7A5W<04i z$7IUak1$o6tBBa2e4Uq@!2nb8b(t1K`^wjcl32ty6=2a=4}LS`>qxa9x9U1@vY)v` z4cVIxXck2ja(KiV_UxBZp?Ob4&5Sy z?KA8XKLtGTRanHTQr7>6#A-2Iv^)0xz-=RVPYhT#wP(5SM*gntRqngIce(F1{>p#~ zTl*q&%76tjWyE2iaJhhP|86#WUSobKurNuyskqmieE-+QhtKI%?62$Y-&=h6TzKav zHsdE`{KO|-8q133)-U?vL~ebL)h~+KFyq385N7HZ8DHITu7F=t0NoEm{lfgDhpXIW zJRix5-D~H&FHQ<9)p=k5o*h{FU+(Q3j@j{s+pU_dt7_$wa3F+(-$B)Bd2n-ca0?E; zH`7Hr%NZL_T36g)inH}TKvh1rRr#3GKDKCol&;E0^@~2TVIQWe@}c!C*&la7wgMZv z3yDo4=bgO9-iB|2_gQum2iiAx6ROw+iq*1?*b$)~k7UOl;-hPaY`4g4C((9pp?bt0 zi;zfl-stLl3Y{OR*|<-guS0N&T|rt`=QB2YbPvZ9ejZxsuYE`Q72EXKfo#B?xCu!tD-T z<2SjY#(70$67>7FlJ8T=_kE#pwyFJS%&OFcYh4q5W_xVyJ{38hio}mBX*mmat9^PGb1vc| z8as^N`0H*4in_V*k&&MwJaR*j;w*_a&a_mbnzPg+3B-sZ$%Gc(#dL?NTI0?joq^A4`8 zchMI|s`FUG2f{by>O6Qk{x#biJ7dje=j4rGr*m{$?d7+rD+pdWD9O-}$sb3c;Kq8C zrGUQ)@bL7W+FubdfZg4t$SpTf-3dtv0|m zZ)hb|)2?wgNXVZi=cP8=#^&HAmrWdkY#Y}=*S^&q%66a4wpH0a&sKNix0USGHi@Ip z*XZh07r#j+_38s8PHpP^i4Xi=@|zN&Br~DI^A#O8_pIaQjyUGHxyPjBD8gI-@#>c~ z0bY`mz-?nYtW?vgwY&6I^RdQF>8;E#TkZ~1Y@cmr08cKB;L3u)()lc(Bcr{g#pwPf zSDb=%MeC*JS06G&FDBm365Rv0ozFY7Lal))~U2EgJY@-hYVk^@W1`cPpX5{7eO+@-Ex)wYt_ z-b**Y8mZs)T=x?D)XklpTB{RZ9|Y|Pheebv947N5a}$lj=+oWi%npA73V5FsI>bwT zA*o=?x4ZDOLxa8WGdw7VIVckZg{yquFqJGPnL&O?hQ^v_9jag0)_IoF)_wx2<@-Uk z^E^?MM56~~ADS$?5CC!N>I!-XEjs*9*1kFlNT_Ab)if=#~TRbAHn0r47zm0AD z(>CHiX~cipMts*bqS(f}^^4xMVeh2b#yjfJE(stO(R> zcF{m`oi7mx1-9g!*%X4dkDWC$l~;TJ%=eTZmmh`O0H8fG`*jRosi|l&B+wYFcl|#= zFoO3qv6JL8huM!UriXpDHNo3_CYz6F?4CW;Vna&wuyc}TL+wj27ikts{^w0Y><&j3 zS%=Ndhb3pC^xnrd!r1%JR0wDA89$}Ody6lz`SDu{v+C-Lne_M4Otis4(#hEtlNfk# zBGg*jDj1^W4hLf`*)$Q~$1^<maJWS+6i^B66lS^;880LE^fXdGv`DFA4zA5D6h=F03+%Jqe%BW9AqZBw z>+j*%vAZ*l_d^2Cf>LVwc_)L=UZlxn`ndXQ(U?b0kMM#0Bfm+R2l3F!vPpW945as@4oUGRo!v*SiBoiU zw)YMz^_8CF!u76H$}gf)7AsqBl5B~sYND^ooB%5tNx;6`7u+Io?^Vx?`X7XA``JVSj@)0PIb z+#0!Z4^(j1ax3W~FX=jjQ$GNym1JH$BeTq$iuhvWP?*#%Q`Ih5R)!7n8lSpP((#E< zN9{uL<5amHu)x!U##S#;dLEm>8@{>1qeF~iBvs;2O_(x$BZ-T z?F^zj&tkjD@vcg8X$+ihpB-ih&uDDZPAdC$XI>^6OX?p*KRx&^;@^oUo}HpODJLyG z>8>czlSe>FK6eUd$x<}5W(;4jUvms)Y6SP`e^LEuc)qE|6w(j8f#tas{u}3 z?I8Pi$IMSSH@`W=~9KiZ|tpAwiHHV0EtZ`hozrVVvY z%?P_%!)7BOlEdcR9i4|wKk}U)FYTPs4VyEScZ@Xkm zjK&)HO${TBnf>YYb*^9I$o`u=S!_Eso+f+m;@gw?__ne2Q_ei5Xl>2?d}(YogMtRe zUwLMZt;?dBV{2tP){d=GV%3~a0>zx_fw(@M$d0YUNaT&J2VT!;m|u`dW9x%2)CSA= z-Dhm=uN^eLsD5&MWynfcnpov}P3?!A=}gtp+zMzAI6P9}t;{R>o0;O+bm^tW2Tt_= zd+*x$Ul!`G^UC~Rl=OAIJh(f40^?*)acSL2jWv4^0WM#witm7|_L%blj}WPiiGUKjEzEsI3Y`bE3pSh`$^jOR5k@@8aSg9dfr#YDEt2iE50OAbW`2{l+HhHohon5hY$0P6wv?jA!1qvBIcvT*KGQ;m z?Z>@=$3_oYUNNW<_h}awo4bJ3STQtm@ldmZS6DZD_Q@@rPsn5`Mh*Nc*nVT>(549- zu{BpJTV-+6mHHUZM|0&M7D#q)=UH-HbGxX}hs}<429%PMP98GUzDvNGK6loM!-t=C z=7}eJIwnnoqEy1-_ZUC^cckrDI*zJmYLp%m%Y^ZFTxv$Y3XeTS z@m+-_>7Zf!8+gPHCc$b0c#rY#max>}82|1}Vd-ltEPaiz^fkiLTci-<-?8cevA}cG ztu;H+fR+chHwTS`rQOSetkQxDbi; zog|kHP5qVP4yE7*j-mSahBWrl;6bF?3U+oKyGMON^)|ceslSn{(l{TeddF+BeTvMh zO97tQr2j*pS|hVb+ijD!)1=6~c4?$CH@PxfMSV4!(tr+B<|A9s3XDysqdjG5fIp@4 z1a6}PcdrGvF`eu{;I08&W6f@6vtK^pro1PaQss6@lH+g$t?#mv|V^{ zv8>%``k5nGHEogSI5xnXZT0w8I|jQ?Yq+91Uaeqj(ps7se5Qh}RqSy#ID|*8NMCCZ zTi^n~;n`LB5;k6-=h$%ohhJsRr*A?hjlpM|v~On~B$MYTYr|6_tNb>`Kxu9-gbT3%CQcWxd2%BIYiHFIiu4Rj;EH3Ty$&la6? z_I~DBS;RVyn$OvG$5F*32l17dJG8cprpseLB}vSo1liRDAGOOpc$WG0Bu30P7Vpe_e?dp1;1~1#!Alv;_b`{)Od)+Vmcwtx z46M3JEpFSd$ZNF`$JjPteEW{^+RN(Lla1)bA52_Px)DblL*pgW!;gG4orR-!P2~Ts zoIGVvvQ0fUxr=q>S7&RwyZ006ZM44p5}=vu%diHwla&iF)r`HWc(Kf$nD@+!JArlRM4sm|)q}HH;ta1mK{18WIbz`$ZtpeZj@hKUdRq?L?n zHd03yn8}pWWpz04#SGf1rNwkzizVbiB-ZM%&^|j%K2Q9g83-!1Iut!Qd2ZB&6%#J4 z4$^@8%Bkt`)9r+0Uu*mn@s*fcP&D!nKUthbA|c){@{+97Q-r z&}D9a6_A;P`qrn^#Ley3zW|{=qIeN%AY)Ot4K$eB&m%5&2S2Mf0zPvhT0~&iiKz43 zemN;bx;s{l(GJ1YYCz`p6rlaj94+PtI24V2f1ff7Afzy|2pYi$kZ&tu$;ow_gP&vJ zZ~Jce&%d0UTuqlc{ri*aR#)cjbSpz>bqdgd>NJrunOsxpx=gNH9Jn$IZc94Zfxz_u zoF-T9K6um(#FD+~$#wH8-_L09FFqD>(&DV$=0gycN1r&i?#3BY=gRpAL6(jW;pwdyQxEap&f`vpmbpPxTb=8QleEhC zTC|)I}ryAJ_%DC@O6>NJg`UUq@;myv58W6q0yO;VdwxuuQHz zKlG8tZ98y{--BA(73#;doP4M2>`AV0lU4jF1kbj<9m_Eq(oyP8?ghCQM70%fG18e@|*nJeZrpkj_-xca$pr*&} z-=EDGyGzNavAbiN8snGz?mKqBtvxcwZh8$r5ICtd{2ELJlUDx!%R7dn-l9D~vM!5u z&OT*%nPJzGPGyVv-R6`i40^9b!IMj)4V*-yfhmDNeuZ+Foq=k<&1>H=mi@-8j$YI@48tV5H zZ|XvX)Q?RK1;_3r1S6nTlQcAr5K-XLpNZiQn;Xbi=jRaR zQ3xrWip9Rq8g>L8oBSbnyP#~r6|f>cLOpdbH1;yMDZE1!i*rYYH>ea>lb7lt=k~D>I6j79 zd|JBr9w^bSPFXmMKXmPTa`;ZYatCo&YfF}r|JwjZpBgDGKYOI2s!g1Q$R@u?VhM#5&j~8=v_>DBF z{9Lv36XJNL}Mp`rsq4j^z?F)9{8W)wa4)9 z_zpf)zJtqW%^5dxRLU>=_zB!!H||1T#rW~Qk>e^Xt@HujsizcOHNCEA)YKWXYp3(A z{#E$t!}bkVzkBH`1`jR|;Tm=7950XJygd7j>r~E=nN|o+(o(0gGU7z1$?}d(7iV!) zT(Z2bahjXGd=sb74NaL*R6Yf-oHn20ynOq_iS|cLojd*7nXVm_wr1w_GiS}8S%m-A zxwG(NKfUfo3r93Dv0_Z>y<*HI_FePfkZY#hz$5*=zuUy6fNJXO{blczzfBO;gG}|AA_~6+_)kYGZif zy4JUeXCcoWw2Dq(=KsI6y$^ubQ}+M=t|kUCLm^~$5JDwnMX_UM-lyYB1^#+naR zh)txaRQ?M^9qU{)MCrVI5xgN(rcKiBNAYQd?W@cUGczJbwQI|~{OqaIuc2!5V^!Nq zsKI(ppDUzPQ@t%)+&*6AT@PU(k;J*(g5O%w@uG^o{7}>Wj!CPz1 zx2@YQJ})DZ!{1N&JAl6<`1=8WC-FCszaR0J$)9L)z{TBG7p*?DX33(+pe4VJ-f=bI z6l?#*sv<)(B6kp?e?53_|L+Hc$<}3GH0gJ3Mr8L~e80}eA0~fo+a!$~j`k>~-Y8$e zJam1h8iszqtdp|CxU3{Toq&zty0>vAJko!b5m~^W@HoJhnwfdlnX#(1&mq8zo&Iz#nHs=90s{ z{H8YFg@4-Lg5v}Dl3tw=S-&bHvg6*2$dw!6$M0lB8aHG_7QUGg>Gw4Gy@g-cC-B3& zjqj&2B1PLXBI_Q{h%9>@n1?eWtJh+X{%A%do3OM$0Jk+GlKe`~R|UZzI3&OUDVK z+g}(*{4L>c9e?Zj`+r48>nhzz&S6rnNX|&mvUlj+r|+qRW$|H#?tA_bPrt9s@$}6+ z+s=jQe{*fP{2v*Sst^D7{AqbT{O6zWl270f zP1LoKe7_;A0s4FeE_@I9nm?XRd~g4h@@TJ(JbU~PJd3{x{7vR>Uu{?ejQCUkmhZ=( zs=#5vzcSo?&ly?c!wt9SB;x(=Bi_fnFmt(xSs}t@u-;fV71f@@OyWS(`%qSFV z?8=|mp)W&7c7WGuy`*)AZ^t6AbIx$<3`u8_!~~;cXAT;4HV^wPxN`@!iTjZsXY(86 z>|(rhIEiWli$^o}ZDG$0!=6E|p}4_=?3s4i0L4w$H&6x1+22>&zHJ@aeDjHfeZp%t z&m)MFUC1Fk@#eJieN4crumkarD_egwms%&B?QC+Iv>8%^W(9+%BreHH)r!1&xW6Jt zzc@>-(#E`wei6T)MBW!fq7C3=6Pmn&5;lpofzf1=z(_i=77{2{x<9L_NLh|wwTP~p z;-nCVimJf= z%4%Ma6;?VVoabeAuss8zkaaezU8o4nEjBB(gH5I@p~EjuS(-$(0)55rr~))F-CvU? z>NtH&(l7(x05Zt9zo1m?~wylURm*+E|&n7<(3??;NC zHFMg$sq@@ATYb{Mi%RMBePiEf8V{RZx{4e7jvkpYK4jz{!Qgfc{gQXjzd|^ zCeN02+UsTGaUI!g?$;+fRTg@+4~-*6oZ-GcvQpededA{qtff3nnO^UKrQ9mJf4>q3 zDb%aPMZ5={I0fiERAR8oJHRXNrfdC5JV1I^R(7)-9%y%QYp@B9wkoppX$2iK0e}gKN9#~Q8DV;U)ztZ-WCPjsA%Sd zGyv7tMRnh%LGQhA%+1Ym-pKFt?Bs#+bU4Lf}fEcU=oKYvR(kl!G2uLepp zeW1_?`HR6t3B%zTqlj>gtjwt?-&pmJUQYBcP%_nNP z=dCAr+_TA~D6b=wOCRO3+UCNI;MAgvSm6j7Bj9$AgPvI7*PGRnvtDV_@HIqIy0f<3 zK%7|NYM$}B3_&K`s(9_A>fG2jD>^=N+{o++BQF^X2UFX3#@7@s+tnNUj>{Q)$=K1C zE!roq6A$}%Z2P7?9n?Jr_s1YI!Qc{Gg#Q9C!RBiCf+N_b4Kcf~_RQ>(FM*twQgJ-r zu}zY)WE1GOXM2BEwjReg9N2(kbi($Y0oJm;KFaw^zV^T|`YHZ><=lqt&9-F)Z0})x z!Za-Oqds&y7SLpFwqPyggO%yeJ+PEpzo0Tc+v}xJuM*k32bJiA?KQ^3l{gdVJyc?Z z$~(-KCssZ|pWXD?45JFT;5}sLbHR7@PKELWTBDCPTyTyB^|;`p7Phf`u3*<&SljX* z7i8cCoWId5B%b?t85FdC7sn6VY+SuUM-o5$@FjKjoR`}SizXries~XY0Y6;MN4)MN zfqVS$W${Tn2L3O3qB0$D(cF1{-r}d7@W?iDgA*IvJ)as#A7%Rk$@*e2ect@GwK8(4 z>fK_#M36+j!$mTl?8|aKN4j11wM-Utnf#k<^>OAF!1*?dK}RD*_DI5T&{7sq~g5xb%)Bk-(ZX} zx-#7Z807$ZA&PgirLYNCZ8mdawEko&gXF@65}Z=4%_fV3Td?;n?eqxZ=&COM` zAor|qF$b&@6WtX%h@6fir+`a-0W16FNxE>Yl${6I8v0Y^x)V7Q&uZ(hX zkJnwkr!s6kb^&{6%A}cj`QwY`Vb^`(ym?cv7csTHBf&<`6t}k}?Y>lg^I7}$8c(`z z1J6EFu==OPs4i~o1U4PmLk^lSx^QaVxcvF!@~10bb-)@5*S}N%ln?n*XXm#thPBnA za_(^6g(g||@k`MUIHY4~#QgUV5j{MqWZ0@m@kso!eloPV_(B&sS&{gsX*6Ffz?!zI_>{6}D%p;BsWzz_76=oQ zN|S!mN=5cF4*@zfy1RIPVbW5+UnT-=@qMjPqa3?cbrCvvLIe+o%M148c z(WwfdQHC#7rBk++PT5>KWt+9D<+w3tjay{w)BqjeU9rQ5L1Ode3*rbl1-DEJI&5Z_ z(&#R(fXAG=$@!2uT&-eyfndpIOePf5?8T^^%-3Y%#UKra)6{w~-{3a&Xn8&5hL>nl zS<;4BPm@I4aPD%tq`2YgZsN%`mG^;#1h?}g@JDOR?VPO0Ha8-1V0>bwoOB`kL{5M# zYo&q$aJZUj&(O|Hy}{t!1egsSM`*k*?>R=+ry6Nb@m3c7(5;3mwtUxmb$33qukL0H zklE%p{8|T7OVklap$5FmCfZ(>^P#=E#5}`yY|M6S)sRZf7JWr`m}9KfYSFPcatR<~ zigV6fR`FUtUfx$Yfe`>)ZL`{37Tv0>7TT<~n(a@^_(WM%1(4}Bt14AujIy#me?P30 z2<O>p)ku)NGeSe75;9Rq<%&Tx5!VLxRSRE!rjT-Z^TTXmTt<%T#LInfEOcgv63I znBVX*f`R6JmMCXLZ=!fW^$#dS7E&$)b1(7uuzfseh-}-e0KRHPiJcW{2!Z27;$Yji zwvr?OUj{gpu9Tv|975$1-8CCHRlbod;&pc@qj$XlV7ZPsgI)%DbCG{iEgi_x5k2@! zF<&P!0v1ti@lZucnknvYk1_d>d!4|oSVqO&9ONWgP?C|w5B?`3-?$x+_IJS z6FAcnn_(^fZFV3{JP3LW(#s7#_gXI_)pky1PG8Wx-xp{|U zLrS$ZyL3@`b@X}s&ycvPI=Y!6%Pre0AEESz*z{XTzmfE^@ry+_UT*GGdUF(!m|*>- zPv3jXayAgZ%f@dovl#C<^C4uQ4Ox$?nN?4O9Ct0H!s-bpY*M@4#cxQ%_a>2L(e+Mh z{WEdk>GT=f>_@GOdC`6}x{s&$h}Vtgw;msL(NBGCM@W8}Zm*NKGM_qP?)XcFPndM! zxM=Q}nbYSL&M%x%lsjqWoV>#8=I6@b0}uoHKn^ab7;Y!fcqP`17yfDsM==-f*>t{Hxd2*1jYeQ(>7}uq%KM3~sN56hpO`nWuwXhtz8&bBmFr!a z=l7Q8s+oCh($u;%%l4M0(3)N)%ITGBanmm7UU0MWa8RESE=}6r(^wk%GEc&_gRW>v zo1z}CTV`UDd&Ii6t`N#NS=PmtXO-NTz2D8&Kg#YXO^$Xc=<O|>T-J)*|YyTrw5)2BH(rgMIL_7(n+_t|CV z{McF@W?^-xodL&>-wE^M!;#}We*8634P33KPLKtlY(R{#7n!_hFP}MGqi&|sB-rsZ zn?*-*N+nlYE ziPXw6ZpO=MGrH??GsVW%U1 zA7ZCFsIVG##|E{_a3~RCr@bk-EV|M0$zKr{9MxN7Ka81epB^VI;3HnwmEZbT!<4vGH#f;j&4_mbC*K< z>}{^%$(0xEvW$z(om}$W{{FRXYIBXMky-NHelBc@kyfN3}3TubVmPXNSHeet4J{PmiRd?w_vSlnkAeHj+{ zk=c=Hk*Se+k?H*A@jWk67#Ya#{K%P+L6I}~)4%TnJ1AneNiDCD?$$Gv9LVPGiQ+-J z{|!`h7((~9M5%z>Nt|z=z0KJ?{eunnJPy-v_rQI^D>DG=)Wn&Jw+Rc*R9ugLW%8@c zod&5!r~u~%;RS#~)vmV2%<3u4^Ev^4A_xSMNb?oTjy>XYB@m)fZ;Mam`t~%^QfR`=qFMPMv?qM(+Tz2ac~A6- zD1aJ_;;OZ_Y53tcfN9lk3+0jYQ;Y@M{o!DY1Iqopvq}38`D&FQx`n4$4$Lv4;;J5 zL5c=U*_cKfew8rhUExDDtI9bk?|-x5GCzo$Cv3Q};geJsj+KBx+#HXrgg(Bx_-;O? zsD$mKcsq^!gPL6hiqgU+5onIG)qDE)RL>U`bf=Cz>l8P~ki*c%n|e)j&fN!_3u z-vcfp8h04uwq4K*wItShhhG&CMcCiPEIA3`jp5DhaLtk%bXPGz<^mR7_{|9q@A2G# z;@KAT0YpMyF6hSVzI#+{;;$rxOQ++z6MP5@AIexFW3;{&6Nw>KCV_kdNbQss2;POISTt5D)GhB8E zm%E?Y8(lVgxNHQAc-_Pfxa?s}<8#{=G`@bs7c?YVtj1TPFGnsWhMQUEr^c$E>S9J| z{>x0QPCrpIl(qKxsRw{VIRH+v0KLKh7kB_Tc>zC~-$608n{I zOLSkJ$OAAmu_8~fC1B@gbE)$1=J&5yqiBBr%szXYI{WNn{?5~%=bwBynCJH+sXxz8 zy3~!L>ZHD1?8u+Z+GUbAJl?Dvb~WRXBT7kNb`Y4QY)a~TIU@poqVXX6z>DpP75@x@ zWRDJc9z~ws2#@`#az!Z5XW=vL@>D;HF5m=A(frQxdIKyH`0Wbibxp^-4h!%bnH5b- z;K-$F!MRI!{SQ|pIsJUdULkOoKKmMf2*FI)T1)4yo#s&~X1gAjXMAYr~u|8!XHKK_|P#-1dmA;;H(In+nz43G8E9D$^)WJWKVPL<&mnQomnov|()VJwYuG z0!YKs*0PxT#p_aREm`t@P8WBI9@Vv7Ta|1^p0{$L^;7EA@q+;ksQXeTA*tUmgnA zZT~iP+fE67i|PKjPV4ppKnzmHNaL$jw<-K~sN0^#YGUsH?g55_yhDobJ%sx?e`a4w zL@9S;yH)K+e1#@ot!i0U|Jh5db@eTpxjhE~mlE!+qaWrq;Ip0#ufgqf{a4QO$(i7@ z2`o*Irfqn6pt-tGPMdiT9l#`KOL0f zb?@>UQaD{jq*R4=Y#l|ic-_;2@a6x6zEn0bw%_e`dY~qjNxDeOBh`uXeNxHGB);A6 z_^uU=Ub9)tfWM64n_W6(H?9ZSy}*yYJP)F7+wIhC!$@ng?X-zI&StX)3{;IbkP_4* znHeUe7pE#n2B%)okf4VBNgvGH6Kpjkp9x%oyN{H%EjjDXp5Y)TeFuMrvn+m`6TlhbC_91X#qCRIBZOuKx%}rP8tN`-(n6{#kfuUW^NO=G5uR7^>c^KNyp9&qabbyZ9&{G zTg`#ZgC?MeIJo9LtB|SUVe*8`H}`$Z<&wVaAQ_1zoQ4p6@xh`*E4fQ!be&L3YT5xq+fjE(41Ix5NC8>zm=vVM2z7$cR8 zSBs6sK`mG~I_sxHVU_5Jy{?5PFBX&Zum;z|wvoboLIq}&+(hdhuNiB2pVo=JCl>4= z>a17cFZ8Y}*y7Ogxc# zBjycav;=#BC;p%Kt^Y7kGK#Njt$gBqw<$$`w5`PX2({9&94mFY3)dNYI;*lPY`L0h zTgUef=-(G$6*R#X^u=$~-Tbu&`NndROKIAi9;MlRro5c2d+Ysm)q}tWytS0IrpHWw zLwGx8s&$MyVC70mGhYD^==HRXFm3wuv(EI4_3hX~YvB8vZ-Gz9v6}qNH_(o1eN}Sy z4SprzKjv<-M6Re@Mkw6lX@qZ)J`?2(;t>wQdz37g+!Cmu2@r zpfdZ5G|^i6t4aSwYis3wfS6Nbq`=sR?t^@z;Bp1`^n>9KjWI4z_{TjsdDuZzX>}KE;PuHWHzLW<=K|SPET6cM;QDNh+9_SK&m%1la_PPgJLR7)#wuXK4EMj$M zM)3&iF)+j0OyiD3`_nM#J?)O9E2A|mUt-biTvQYrmu$MxUQ4TP9%XOf=xuXDkgwtH zKFvJ;1eVzTicMK^g)LPcA14Sq3ss)2JYTSIDYp)DSXVCr>njzpLAB!!WbVMgAg8KF zY!df>uMz^LWI>Ne%3W2Qc3IYyn%97xk5p4bF`qV1fAq(Nq1-v*gJq(Dh~(lKU~OLStGbz z%e*>iS`pl1zyYyc5RHPU^dZ;)X%a*!5cTSO>jjgv5SY7t7(bVMU|OTQ#^MT?mw-!* zvc0a>TyeM9(RO}ALO>Cbw7NNzv=RoynoJKqSpN$0LqyV#d_h~hOS&xVFgfBLv8VqP zrZtpz=smiiD1VNewQ9p%aq^ep?|Wpo^OqqR&>fW=7>=^(bPCwTWfc~U%`a*T;qum= z3gt=(as5T}3X8Rotun=zG7IPA&6MX0FU;}Wg?7VVFj_D4?S~JL{8MZi$=V#4{Atd7 z-_b&%425S+FTSL>Xl`+lm!HL5@N;GsjnAJtZ+d~W_b!dhU2K~C88{$tVang5k$12! zkw3W3n0Zz4JnN~$%iroSXH6}dQ8;flK^8~R-obkESgprvEu%$7{6H+v+!SzExN6eP z@Eml&tS`h>KQ8;OmHP@8FZ!H8cs)$T=a~&Z6L+w_Y^s9{0-o7mnikM!qYd!PRC4rq zW&=EvK=I06x6m*95M{m-U$RGeo?pq}$3Su=c!R@divbxdkez_|_H{QflFfTWnU5Jr z?z-|B);f$cR0QMH%qT(}F54!bY#xvlUsW`eOrKY#S<18;W(?OaSyUS-!cP-CGP!bs zBCd7NxZ~x5onGbwu(FHk`^BtMmQ1v)$X4PKm50gHP+J9|ey-z3KT;_L$}G*IzPn`6 zZjv5jlkPT05^V>1e`-)CiTE8X9k8|M@p7UY49%OSXm0s<-*Dlev)L9HBjYUEC4)01`* zL_@ZXtXL6-XyE>4^VtdqVLXU+VF;sr|37&UyR$2*R7y<<0!g`nPg{;Wy~`LEgSv`l z0rvQL2%Xw8RH94BD(Fi`xqQrRx2dOeAu80DGKnN7H;qM!lX!eK&v@PYz}xBU8-HnN z+eUq2U|!)29`?JlHvMn<#GcyP&Q()wzZhF6n>4RH^%uO=%$+&Q?Y*nt!acAvaQJlA zpEM6B3#G6!_hz>)$M_l(Y%H&x33e^3CyCr_^2H8cJrsK1XbG89u>TUjFR?6FJDWqH zj-=lM?6b*qvCn4n)vb<(pXrGNuYJ42Id_6Q+t>fTmi-~Vd->mIBYlXuoj^UTRG7kj zhn0OOlf)Z8)!i%H$oB(Oot6Du-~$BebFlkdVPRS#MFZ6<=-+J&Cer~j$Fk&sSLxjN zgP*mwUM@w!5ZPR^NZ>Uq#w!Pp4snYJ%ldP6n@nm^e;WS$126>MvN79O(v@c`+dtNk ztqiBR*=mNZG6vGkF783%tig1n%_lZyYh|v(x0Zb=dsFjZD@KF$X0S$e5Hj;DQ1(~Z zwFQxJ)4=7A4(p(29|DNnSg*gR?~Dw+ zkMrKu&j(~B>>vdfKI@d@!AUL}FgnNAm3TS?Z{fBD4BhI~X?lM8Z?ys^o47yrBTpX9>_Dx$WPa*i!a^XLk-}-tjiKQlxZp2@g9!N~EF8!>YUSan-xU<7vd$$)3yHdWiMW`CL|2i>Ugg@Oe=^DT zBia7N$zFo}Tv<*Dq`jvK$&YFb@6K~~szUR^jm!KtVQD#|WC7}>9` zp(RymW)P&KTbq9N*<_k~CQO_MgNnCa-Y=Y+xrmN!Rh0Gs`)tU9@xrbx@C^QGC3_M8 zc2B^$xU@#qEv5kVju^l|x4U&#-bU*3xDps}zk`?#X2Z{Wh8gatWTj5kw80lH?3oKr7Zm|Gz`Yj!CvwAF4OQiSh+WrMVHICC#S)@z;`TXx!U7p-C~O~19b$n zi9KS)wj&Jh-#W2hklWA6jnw8?(t)E>0Qa^Zo83i?2iXsA+vPi3=qi5eU$q@FIG;{` z2zZFrTvn%LIft9O+?vbjxttEEMm2thtlH?1^4jW<64H-%>rtas8!lq0k!%c!)$MbB z<#&5c@zu!mP8qmRZ&D`RBtj9tm@kH929Z)#yuH{eoDO^nReiIW zbu&E)+fVTzHi@!eY&?3{UD~+$1$ITsaK9i!?U*aSxOv-Ze*SE27tEGamI}2Nlz%TVfpXIdLKS4;Vg|7%y zqSq6NXtjQT&}z$x6s`KuPAmnzR@=15w%ToV?OJV24@>huVVkNP9}jY**@h@XY@E2t zl*a@m%?Y*Bmozmi=76Hlkk)IbH1!dhWz|gf^VX38&%qvf`OO46`g~!eN|0JJK7F~+xN>Bjsb^u{< zXzZKHivTveuYqi)yraKyDYjE^>J8qFYZYR&(KPhi+wEWh1i1%TImM` z?KGT_fRg7?NW5-G2^6eP_}7qJKVZO|!U5B*0w(D5zAU7{QaJ5u8?HftT=cW)v(B~# z!0Pvs!wH*LG>dhh)sdI0YVT4^d;T_aRzgP(S95ysBW?|~!A^EKZ5w!`{pqQWwEY31 zmJ4@>=7VDi6WjX38H+nSS@GNV*M_C-ydd$;{ss-F^!)My58J&V;P7 zi+fl05flah>4ZHD3kl4r4kzQ#CWJGm61}yya%VZ%a>$!k$fvDuD$j&VMyxpSlBziN zf#0H736xwFZLZgvhW+4cdHVao7ZUI72j9(WupjK?-jKCV`HE0m6@splfZr+>3$POK zVMyh084N*?fU~V(gnOM-v7N+TfVI+!_Q|fOZ6B7FUD4P+tao-rOp_45noOwXT>F2_%&Fz3%XvEG(!os~ahYVj;I&DRaL z8ds&4Udam|Gj--18&Oh~Y6j8Lo_&@qXtX`~b*zy|={gdywM+X?&~DMfo`g+T*qCHQ zQaORIA3#vHf@FCzG}?l1p=$GE4+f@cf!I1pHaFdDt+?#HwXBiwmU3fir1-Gd#l3vZ z&PMPkrN3pSvV)r5+nu%SPF~(Zp^b|xy9vDXPQMrX<8sJNlKrh;tBFA*C@rV{F^nwO z_q6M2&xw@h2JI;d$=njH<>BmQYFTYtv0R!Qe2WcFtyoQV>hwcekBo7=J15!nrABT> zfOq|gRe~1myl%B3w_OOlk+1QjV?7P#T~L#+3nq!5{aunmqhz^Xla75geKeapYOEr- zj{+Jr72o0l4zj4*qgvUm(OTT~$Vx5fqEmz#>VbZ)hrBP9$p^_-zxA9eo4apxq}{$PU5d{`;pq`n(l`933vHzVwvb83n?)(8MSwrK;NXHR!EKa zEUTr`%%r8JrR#8oBSIpHY@&9a8>JP zCgRay6K^VN6#pk1Z_Eja_*5IeyP`qyPuTd~rduLDEok_k0HJ+)aSC%Hkny?~Zxn9| zCZAP&h9@7l_m%KJBmH2})cLdhO>glDt$o7#;C@(mT@wlmWC4Y>pNkdNe%@ssI{>uY zJT}@q$*M*c2#?xlAG5|j`~bBMX!K8Kl7`^+-8*yjjyy?rwO+2>$0(>{~TRG$8P zc*YIEeE17qL-V2JdGC6(?RWb3KlDoJL4pQ&pQMsp z){uF;E|XuK%Yw)#f)X~iUO7X4-Dx>_uAJW>eTT{^Xj9IQNvd+rwdL%*ey`=M?!25? zuADR5mNU0aIgfbdyhRD|y7?W-DcNk#m11qgeK0t}aOcQZ`Ss#X(7I~lF!2RmC^ zQ4_5riTVBC(Bc$tE6@kGvyw%GELw}V>OiMmfA@lr7*N>c6G(3Lz{w~B>UF^1jGU{@ z9NbkjE?#gYH;r<=stP*qFg59Bb%4~$jY5twH^jL?xD7(%z=Fea>!Ia3fgfbS*I95M zwG>c`Mc0=`H&jPALfo|~Zq8c@M5kpv4B#Qavzt;~HX*^slyA;z<@qc-{jun3i*Fje z>X@=I_aWGD|Mo_tg`E2Y^Xnf(BJ2hP_Bja+$2*W$ee*anjn`fDGxay2UvzX?&Z;%* zbg|*DM46mb%IC{86sNt*a#pUX(N#rrZOlr={DqjH6E6{!qbnU@$CD=-E%S|9J-XHm zwcqPZz5QNqPP5-t<^=oPY~HcqTb;)J2pj0xa2;SjJbg(^u@JtS-};r(lUU6=Q-XN4 z=KX;zkaz_BAN=gQy8nQzF&AcAw~Xfx(4s_Xq+>@{Hed$o_N4M5Dn9Y*4d( zYMeCPAK=6|sRBbv`UV-_YIB>+h`06HZk$}hOlQ8}_EI|Ic9NK%?{ecrA8wq~kVSZ$ zG=P*pPWqF)-8eaJcBkXyFvRv?oa_>EdmSeqBK@Q9^~Z@t?W3J4xZOAz{-y#ujFTqS zVDC@@kxXg}5BA`{Ddf#>q7LqBl*O|EeUT?bD?<(`nJjHJ|kJ)faq) z`{9j~9ei;9jo<$#<3tjO)>*7+;q~vcHN;{miMePBW6_Qy4aV?%6I#E|SsnCQ43c#T zu$^y?vR$l^BZ%C2)&NU1nr~jz%EO*nxV8_yquRViyJ^eQ2V*E|y6NMrf$enjA!*DF z*Xr(PnD$|en~LR>sdY~uQG~4o&Q2to7Xfiz#9FiuI1Eu#N@ddx#Um^g&%V2v(Yc@X z33Zj-fJBdK+f(c|f6-C8#mzF!99m1axN&}zK2^{4!MhyK9A+bS5%GH>g04^uS}f8W z%S;0uEpY5S-_w4ym~K4dbq~!2?e`M%y;V5+JTGm)MOjdLpLDNX)1K~@f31Neu!wea zzesBXOZTsiwshaLp;Nkt+1E9sFbgeX3Qh=AfBflxs4#|uLgUt>R7%bk!e|Hz(9zh)kdA?y;73*N z@?b7;FxYK|V0r@L96vgPYKD#a{ECo>^(h6JU(Av8uJ!B9@g!yJ3HZIHN`KxUG-iWI9|IX{tw$mvT# zed!+Nxoe=Lv?JNW;2_t&E@epHSY}_HsUUBafwlyNL)uLM(7;o&&%58+18d!751(9ObD(rmqGJP-A;DOs#G%EUBsuI-l zc|ugn=Vz*xSMckd%kXe>w#`=G?3o15_e~D32gKqjy^tTNFz~!(^KOg+?6H`#Cf-WR z8tiW)zdru0>jL~eZ(YN>rYv1W1|>I6-Y;eOt-K*24J=#w4XLutwTKAW=5;zhj(Lj8 zmMX8ZyA)T^ou$0F5aeTCsLC`+ER0&8(Q84kM>8S?{rD+cDnznlnUhPG3dQQBhTllp zUHZVK!(d>{H3+7y&j>J9?YPOoA`Ba|LoR=6Yw;{Rwgvlj+CRegPUa4|Ytr=HilXA`8#faXuIN zj#*)ubYtxB=Q*tvJIwT^F7{dwC3;6olo2FqEq+}of@3blOu!&8dB24}uzbJSG(kno z>0G{*{Xx`3ZPtKg@3)9)K9oFV>628^!X{N_3APj}%QWX6!u{%;JtI&&{r&f$igT{q zCerCcM27UXbIkd6j%i8EG2#OTAxrn$dg+|mh7N{UMt7$|a)M-{94-6{VLPcH!K)+P*Ehky~93wR6SlbJYef zh=&e|We(v!XySced7P;4fuFpj;{BL}l5}e6C-DtkfZ1AfTz0v& zkJIoLze`&WzZ=YtCeSwgPV`9V8^1k{kO)imw2hRHlk5vTB1wcuG7} zNUY2ArizW460g_{VYV-QyQo{qzqgiU_A~d;0I|$|cJ*AjLx^dyt+Rdo%p&40yWFE) zXL@eYbHJ?A*r)aD7x@GA>&;Jx`bn3PF%Pegux(dE*Vf@WGM25rRp$m9e2!R3ZjPf* z)DW`M=W;SbJL-H3;$?8MJLQQQqR}b8R+Gq7uxE4{=Yy>WR+(#dhlq^V!6!j^& zu~($%2+c!rGg9n;;c$4a1UO&o7BasaL3)jsK^E_~r`hpkeU{7a(j6{s93LCrtCVA< z94$>gsEnJJVcM%mXf`qH#k!fHm)qR;*PKWWwo$34#)Rfs{9}5aH*+UWpOq{8+xW~6 z?%HYc8|8OT__czjtj5in8fmp+>TEEP(&B_izscqdA)%%-A2PC4ndu?pkYhFD=DgJa;64yzxj6O)cW(#d1gS9XK|j2vFRL2UL&aNV@eLFd zH2v>EHn^yuajN)_=ezzx`{8YMzsE=jXaP)YGQE#nk#{D+la*ZX9N{GUh>nhHlkY^1enYeKp1i@N8M-fX{8S+^lu zk2YlM_CQ;*Rdq(T+*M%tu3E#AEfahKvi+Sp1!SwBxPWZy?T1IU2l&AM0l)3Y*73ft zj{WGcr`pqPg!)mYFzV2c>X>^R-R?zlXhXNxe)B!()`fZ2torFb==S>kZRxh5GrDb7 z>)uaSadbNfd;+>1MV$h=-9m8z-HPmoN4Kl^;QRx>`=pz12VnWX6u3Q~PLR!R8M)!t zLkKY*ON;GseKuvJ40}q86}H>sCJ*6RY^T~BHd5R4>OIZ=pi6eWr&fcm*}OtWl!gS; zh)xIHmr_#MLHBD~Uc)nPx|4lCg`+`HDif=hy73B8!P|_QV?SEV6+Gj05q_=8#B-d1 zlHq%dw~-qY1aSPvj<}w;4rgLAN>Iet6wx5Fhcn*K#{_8#nLlgHPS^OnbW7 z@%9dl(2;J}Ywcj^b{dGbq1(^z`W|$|#o4OC3Ye2VU zR4Jg_VU!lot-Jm3=+^ub(d`a?+YL8IH_zXU{N0r@CQwsroQ>WTkc(ln#k8_;s4O5* zQ}zdlM|6Q+{y6d!+QZODjjmka0X@?>(BMFACD*8^mK!aX538-lv%oO_zC0wtj3-ac zo+sL>Y$2+x+RD!7S~H=W+q2%v`qgPy&%w{Ot>=-dXEuSV=YJ4mJE>=XThA*!pf@@P z>f3oeM~AkruAwZ`HC)f3-+sh2lC$H6)nc-nvHdArg^osox*#;yy4Nw?MrJW^mY_XqC3KtucD?47h zKG@*=ifkwyv$1r{^QB|TOULXg9aE!Q7_6re4POjKMUL+(eY6(eG?jyuKSBo}PZhnN zqs8Oq0NQf#P1A_DkBa$%>{c#DGA~0L%Mho81=#{CU+V6sqd^$sWcKTser3l7(p=YN zMf#imLCra|$E7C-rn4l^%(vOeDvr}6ZGAJ)^>CZLy*j#ssky2`gqUnvB{wpsR+}e5 zxqfI_^m#HXU$a$G?nySYa!f43xNWmZo+rsoBvF69yjFN{?&=hrTCd4w$eDU59K*wP zwYdzS#Wzil6rF69VCELetv?3ifi;u0kN>g-+yLMpA<*^dE&US>bMmc5aWc-`Ur)^83xsf5Pu?5T4pU+o*x<*?RZiJenWLxFAq$Y4=F zUb9Y3^h2Q-_!eg85AV{G%_~-x6|a^pCkA<(u^sEtfgQJoHG?F%eW>PQX4_&eRlV79 zGi!=Opx11KA!3M<`@154vvu}r_IQr!?A2@yAMv`O{MP?9P-Bee^v>1t1;m;6S*_y> z5@c%`W~rFaEUl@lEA0hs9=+7k^Ou z_+}S>ju&6AqhwzGK}WtDlwdgKFtCi*E#cQ{>&&Ut0M*hr-EPW6e4?T$nzUsVUvRHWqts(Gf2iorO7&1aXV~W?~49Pnd4>m7H7gZZ&*1@fmM^#mfI~{ zfAhhmwsA@p^p6yuK$v;R!fvY^E!dS7cAE$LIIw5!{A1OxvfzhXV@H@5Y+^eLjO%ae zpVYObTr$M@PM20P5b7iiII73B5H*@pAI})5l(Db?` z^i@Ij1~RluICuD2wkLJ588pYEV&2V0a)-2*8)hgS- zy^c2BEXGyl&fnYiJ;t_Wuihp99wa=|)6G*>bt5D$8e4p4(2YK2oanwKDQeAcv&9cR z*Q>Ylf&T}7eG}`r6&4oBGlRY*!%mwyN812FeAM#> zQLgQNzWhouK>}`)(i1o^8|ovI9DK^9!q8nQm+? z)6i*=)xS2|@07+Vq>|f70?BRnU!uDHm|ss0x2FES{!h%s|4)`LxPfr<*=sKc<+%e@ zYX)h`y~MT!zV?be4|~jolg(g2w^$4f*m+ma?;TG_h(!J{s1Pgqz4gdoHPSVLY z)xgv~!kcD(W<0ZIxg?O!Xc6rdZ!te5AI*5X*EC6*sId{di5N~q(86zlWZ)3(`LV8r z#Y@c-e8lTU@*A4*tgfdWUHiv_dU|x7%b|oYU8~yC^(+#Iu2EaUM`Qj=x*oqdD9@wo zI?eT8iaLmDZRvVHYYRu$OE@2xpzBw-YW3;*E*LX zBv(W2O-gF9^iic+eCg;{>~{d+f8J<6kvE!R*eQPX^WOP5(%Vf{+{q`%+5rJxX#_PrbQf~sFj{zb-b0@)S zqZrS4-2e-uEdn4U6$l+lA=v={SzY#zv?z{_J{`#jL# z?{y#1&3|rh>iAdvwnMZp%`CvIu{3iQTZ>(b4r?v$(OS&>XLdqNGv^Pjt#$)65uW)M z!Y8`$)S})FUOg>tvOiP{wy4Sak}55f+lk68jZ^^*PXP(hZhzbNKD$W$TbxP$F2_}5 z6DwL3=ozNf_uNnPXJG&7W@1mh_p8@}`p1!;{zBP!P+d)^xt8XZzlmEQr}JSlI>re> z*9)zW@T)K4b`oM;FO=Wh*>LcbP2Ja$9;E=v0ZIMRw&!Xhv6_MgQ~+3rCDilf8&q0~ zR#&V?yIp1$+E=;T9t%3H(dJ8ve@mw2E>j%lbgS6Rd*ybeyTk&^a`ZTW1CriOoVsPp zaCJ-1L-3dOqs4s0GhSE9Z~abh+g*K6iif`a+!eg~)_!Q;ekaa9g{S(i!oo6~;B%4C zY=2_rcRlK=*8_?M<|{?}u|e9sXq4+4BR)p>=2E%EK$_>kLW1p)D2v$AJ6TGqxVhhg z;NL+Yt1Jk16Bq1ZgLDp1!E*dCTe|{34Kj6d(1H+Wq@Cz5B6KS%UB$<`P9CwC; z5cNM5?|QEO4vdqas(<)c&yA!phk+ONCOP#S{H!)TZq|a#U5PXL=h|7Qj}#wn6*MsK z+qZ(P-SFKhMbr|!`rRffS^dqc>ML62C7W@lVVhLUL7(kpdB#9}Y%j>7Isr{`DOGdL z7ITM^;p1Zh(PI7IS!u12m<2Ybr83XPG??8sMhc}XY)o@ykr(rtjge@cWs%snCRuXP zFCjb*Z3zA!f`djn-6FEh8NpnWsg|mBYO^cshv&NUQa<8!^%*qVTfRQ2z1{6hY9FkV z21+3t{`Pcf8n1RQpeRq~G3xV|R)pH!+lx&sOOD^3X!u$he%G4O>iFfN8M@5U;vLn| z8q{n!#hq-fuywDclBrZu^rjQLhIe523~Jx-KPQbjiki{zT%VNl5y=i)q;_y_$;K^K z%YS5Bo`s59z8u6mYk93>{-jl}7VgPr@+r2lb@^(wIj6rqwiOJcJ~E8Ai5yVWs%srX066Z z8EqHiz}Ob^4Z%UnpJEZ&>JYj1LbbfNEt+RPj62Obi4Wxe^mZ*DwBxk7|J!!=`JA3@ zR-#khN;G+h*S#WQb>MZ^1eHFP+Ck_KXfM~~ZFpVSw*NNLn3JfI&+F#gv=?6YEeqIy z*QMJQQ$s(F=beC(re|Q zU30)h#(|E~iR;m?I^%jpm%5qeef+rSL?r$G%9GU9Yg&sN3!14)K#w9ybbRjj0%pe} z`5pE4W^)9K2-l}q*lczbcbV8&t4#kd&h=;Z$G?a_4o4; zuRDj|J@G6}y8H|JazfvKsl6I~4|CDN9qrr4vZND*tC7dYS8yRXu6N~ z`II!~7w3oDXWh^I_W9)GMEh*Iu|xZ`=S_b5oP)Z+YoDsVLHn$tDna|~phVX`2MU<> zSx2CV#I)>Rg&T^J*P_@q*5(Mp2Vl(yH=SVUQ+UG#~;kD1V!_+>%=J&sE zpU(HibKeab#xlr{kd`Zp2$V4QGExd#q^Ytk@%F^i*&ZEHxx@ol(-B}u=liGO{qRgk zV?G!f5_6}MpH>cs+xk6Al(+hpgR`Ko{kMDJ>F>3z+d-;ZE`h4szYv2u+5R15_lReC zKreL;)UWe8hWEmMN?GQM^FnpJh&)xtGpJp>?j52Mb!;ye{C9id{oZd|&l6~s$}9p^ z&+iaoI;m%xt>**}=+B)4_3pf$;l1$dD9aoYuIK6Gsd|ni5c%ia|4lvH=^r0WRM69t zHD2dtA8SMEB<)}|^+p+RDEsl{h-{J9|Ipb~~o~pKC%@SoWTp3v5b|au}b8@qGJO|haO^Nps5n#R$ zJeU$4mp&B4gVj)yt;=tRK+MGEq_3ZrBoOGp-%ZrTqt#~kpb)mSk^~-7DDJW)wwU|K zIbL^x@(PV}jm4T(zGC)JL z>S7~At3o0ITCD?*fL8xJCq%0nKH_!r_}v$+x_l7S#iP}#;t;JgFNA274757-T$}%4 z%6}iUdLxm)*RR&9Tbxc~cBIw2R^}9~e))Gxt2C+0-ZK>|d9>|UpU_T@R=I$NX!Wj* z5Unza2xzs#V(#^;iXVk&wVn^|zvj0CtrD(aThFFAZ60GZXZPVBE=R-lZ1*8MGa@re zhv$DW9DDliGfKwh<6G5why4pFLatl53CbNgjA$K$50zK^9KE}s9;#%5cXulPhA4NQ z%IYK7wzdb@$|=ij?I2^l{RSjy#N&y71n71IFci?0+krw}_#?wBsQinBso5&X82?xN z(rjR)YjLa`qh&=#W=5ps-`$H29EB11zmtj%s_$`DRlHp2#(Cj?`F+yeE2+CsWh^3> z;Cz!^n|Ws_9n4_CT-FJUwdLB-MduPeh`qCBvPRBvbR_?tpajihgWJ*k%x5jlSCh49 z?h(2Ou+9iA{SI`V;^*Sg`F#26aCAPCs7~md_LmTyuin;<&ZqQqbRGf}be_o24Cs6^ zVWRV;WE`*i{HzXi){-?VIy!sANRB{3>*P^I2aPH^q&`Kv<&k)~^iUqLEq&sZ3(3+P zN`7r=?b(JoTCWz&$CTC{#?qRG^Ju+6J9E$2Hu3ppVl|bZdrxu-?o)60Yd{Rw_2cHT zXCR5rC9WMpxie95lx7y`yiGHQu97PH{0)WPAb#Y+-QK{$xVSh!T@X!z$hNT+BLJD~ zV45NtI~V6C38pawGa&(klWq&sMKEX{gM4NsV7Ni%hl)0#=*5X>6DdknF{x7FEws6% zSv|1JIB3Stsk8X17F(w5Ott07{D%B8MfeQ$Id^9}5{%@u14xy5LPqh-S$Wo}o5G~u zP5AbgC;ztNPB7Yj_U<2a%1Nc?$|R{G`w^In`7S1ZDKOgfNZA$ z;C0rkMj4Z;=?j8%fb7ymvU5a-C_P=z5s_6o80@^zqK z>X|m&&iwmkC>c(qY3-pQyJzsibCP#_nikwi3XF1`O#JNt6>rSP_Ss_o$unN}OMdHj z20B*RiHJT&@RV<#QKQoajLncUY@U}mr`XV}jeWhRI}fDje*g4IMQ`nza$6I5iG#~q ziS?Rs4eh0kAm0s%^Hy@Gl~uLn6UV&{WLP}g*IYQKCU9rbHLO`Xn>1!y|FGALEJ`=W zsaDo&Mk|q$y)2pHX5~v{Ek7kkV#L7GF7Q*b^J*fjZPxueY_Wmor}lnI{s7gT*NkJp zvmUcj&riup8=)g0T@{f!NtQEGYdt`#aIHzuET@BF;74Ny2ueY#CN`JZ57vJ?S^u3z zEyA8lI{48D?)&slq#gG!pY|LF98qGr&O1Oq1B!lBf34kCl1{CbqL88CAf_+=^R>RI zt{6f}b1vo9=Ub$|_#<_=92IqC7BSS~EA~{Su92sMM_GC482NeHJ;-zMf41?BHojC# zwqrFCyx7Z3rHyW|(N~8TZv9BEacw8f$y7OB_n%Wiqs`ry;sDd;&a!<|=U+3uX)+^w zv~!){uC221hY@cl!mQD4BAtQw#Ms4?xde#gfMRRRXyUykn^%k%2iRCTWmV~v6{S;F zmQJZEolORU+Gn%5g=cJgxdGhV z^Q5?D%91}&tS4*84ti^KbQ`>2v-V&9$XWukH)jZa5E~7-)zMvDtE06%cX!3RRE6kJ z-mL8YVPOr8c-E`tQg#lPRu$*?76qrAVhs$$xE}q;M^)|Y>;U@HGb{Vm(X4Fkzrtt? zy5gDE+Sqw7l?ovgoX9zEgZe)*mrMcxP!K}oAnzH83|EV{zYEq|xF;Nk}14*O9RJG^EbSzckAayO%q9kW=K!1F8G}HFUllX?8o}QTo4?S@{W_>5lpEv(!Q|HYeIBjZC+DRv+ z&Cf4N<5d6gj{i!gYk$VS7h&Tf7e=xoX_4`fqDXNhFETSyNN6HWZUzQ}(+lV2&&<U9@;;!Xc-_Kw!sO#DQ8zt&gJ zUr5`{zDMh;1+mNp9sQvMzFTdb!nNwv;MdBZK=#)J@`HM;60FCN|Mc)@jQ)U{{Z)~Z z?2NG*MFfW@aDqRC7{=QcSh{v=G-F)%mxQcWa18N*dM+QV<8`fl$tO5wWBaXmowjw= z_IRT6czR~G?<>bO1r9;Fa@6be_Dn}OAYRF*3^a5JF1@c!uKCC4iGRq;BL zUru0qpgxW@Bn-zSgl0-eqyiB++ClN|pU$LOXcTO+ZLecDP4EN|fx8~O4j2)prLZD zOK`ePfL;QRDF%xx#J1gFz%nD-1G&uf1SV*oLei;;r71Fp9GaEqVA)LlIweT3MWk}QaA)_gMha5Yxbf@oqWL z4bQhqM*(W8M=;KPha28FZZl;Hu;2 zp9M6qGWh=U)A!=D1F0aDiO)%Dqll-s)86>*@6C8q?-$W`Eaq16L z>HGK%xrV-%NG2ik7aMuAjf7j-E8hcKKdV1zcQ>!41^2p73SaF0wd?=YpZoMsr%zda zpK3b42P(1TTfU=*EiTq+1@q7&pmMlofr?$EsBGW|Zu8*%FclnJEgU>a4G!Rv?vjRm z)q-tqxiN%}-o5Zcnjp-3$f)%flST)MOtww4+fzq$k|s}S9#onmV+T)0C*!Lr{z{lx zbZm%%Z-7{^o&Fp#!u~Oy@wzem)_>^udt7};b0mI+vZfYIwc{_H@9~8*imsbFFF$w8 z%<1zA=kt}zP|CvrPHtxLym`1U@=mbiMixklfX%^9S1NRD}m3G_c-n&3guQeHuTMYR15&%eTHcwVII|re>k zen6OfA_Cr}d7k^Jui=4FsrF7r3+BR3VBEe)S9J9V8+b;F-8eb6g{A-g^T)^DD@%G2 z?$W~HEb~9KmpWzfF>F6=C$||xGxIrm_}&_;-hWTcIluy(48RT_;AjBsUduBAz|Yy5 z4RU1t2w$|lc&(-a;j8kk5=ctQg$Gzd^p%m6b=PU`f3wx5(0bcSoZj)|pL`Ked^qak zzLGPm&C{PtE!h%#o%a$v3%WxA=*uXrjq-RJ$<-;3I7ZYhKU&nacQQ^%%uSXs%@V=3 zB?^9*9jj&jv>r3Q1b>j0|f(?Pl3va9ER$eg9gRw5)0 z<6kIAjm^sM&B|H@#?9ZDA%b38=@s}#ii+1=X$y44X^eHY7E`$7wLmws_qAF^vrifi z#krq36eknmB=+$r;XIG5BMG$ix9GgpTlEj^L+)X%W(S1m5pQ2uH?Oc7udp`sXi#9> z{E0>g5O~c);BktM*JWD-67*=leiJQvhG-EM9lUWmv0~U)u>J}BbZC$~1!DUS0+hiZ zQ+`?l?Q3l!xIpf)z=`#Zowu6CJ9cMhZ$mMT*>SJSIsYBQt3>oSmmZ1ge|+Ku&8K82 zR#!?m=O6jy6oc%LoXlle!T`E?(DV9!Z7V8WMNrQG|4!vLn@1OTNsvc@%j39k9($45 z5-YPnWBu|sJ{^4VWo`3!{w)@(gGlkCxcTxn~R^=ISFfu{KvU+2k$eDZWwAnu&<< zT0k@I$MdR=To7Or!r?b9!lBumWP#j>sXxB%cZVyR7L#JLv1fvM@M;up9_AfYW zD$|8P?*HI7Bq+T~WUyL))=h(&<8mq5uB?5SI5YJWm`hYRFv7pO*|K$n5{B{rb%=tYH@R%pf4_nD+_ zrM9KRlbAx5bwdtw_7#f&3T?q+&0u{Kn%Q3Bvf)YQa8b@wGh>#1yztoQSzmzL79$D7yz(2n`q34-NyEn!|0@=sqOlyS;vf$f9cjL{ z(=~UkC7C8xJ48BNG;%hgGux%K9fJjPjj>C=Sa=5Ky_(55f|Up^hi$Jw%s{`)fu+`* zWNRT_Ro`_(7YH0}9$WmrcQvuj5ZST69a#q@H#ckV@KxFky3xhm*79nrKM1O$_3Fhk zDp+jJyT_@mKY|xgP;3P5-@T}7?siezyePaP$a%B9Wmn6@bau6ZGin@8=pnxe$f(wF zH&;`wD@u=;%V)bxZX|)U$-6Z4!iqSxzy)d6dKY|f?uj( z^84@n%CKdmOXN`mw`MOuim(@;7Fo+oAtX1S9Iwk|of(XVyFdXNbcxr^JdA$cM0c_d zQ{OpMTJ>GZ|JHz58n=ynfs*+ea9YNp*2SVG15j=a^TOV^6M*6dT65lT-ENHAfL&I& zTw1m8a^-tXknbMx=7?Yd@3mUU$)Vvz;1*P1K~RBp1lKo}#FNGr-w{NseiUqa63PCz zKpHs}*gB>rW$AcSm;vB+0Cn999U)>~04`ty8*I{1O8Qrh__@6r&yInn2+p``&dP0P zz+n3#OB#Bxr9OQo*(dSbRFT+TFH|4N^d_gAHFMK-m@KEcES+Uu>V8y)bS+WhLL{gO>kA%8g37S}6mX z{Rgx)a5trhxc#UP@+e%=@yOny$M{QzPndM!xM;4wMsXGyL|H!Cr&E~B(@sm6hFCbs zV4c~0!0N0`mUwU2-b3G=*_dcQts_p-5;=Ud7o3O>ufd%DjBa~TSHG=VyAOLYD^fh6 zd^>B73ZWP~ym>pk_&q35E;UDmdXpFUk^;456b@Xkz*Gea``F>Tu`e^fCNQA!Sc;3+ zZ94?oHcyEQY8l{ZtFn0GUbE2qm7(|1yld^Ee?#<+Rg?bp4ZW+_(O8-4-+D?(Ie6r# z>9aBm=M-^sV*WfsO}bou`EzO*V&t5n87VXm^HPJ-AExvQ z%q*NWD}TB!d0a<$m+4E6ytO!b!-$RV?mG43VK=8J#z;aNdeuNqf&<@yfq|a`u&fFXfM7|B@LQg~fC7=GzjW;evgXq4@7x z#t|xGY~lFg=>^eQ`Es4?>alAdWhnmpmT{EI$SR&YYvy$PaDK?od z^CfGl`zO{fp3pdg*mgo=AgcwJV)j%PpOHzkbIuefin8G}vwY%8hSQP+)`^Z(=RZQ!advj6d` zqLQMZVNy|1VOpt?nvznYa1jy|dGMh$B_SnINiJ#m5QT2im6poN%5CMl)>>I@JnBZ|twH_*GNq-36Tq-Ris^<5uT=&Hj2-d>!!ePG9;u;QfnnJK%lP{(2Z+d8Z{f z7Q@^MvmM#J3+6SLcVIq(`4XlH<~Nug@Y5eA8s>7Ct6?U>Oows9JOJ}om{OSSFfYNp z4)Y{T7ZhXrq4!Hp0cImiGVI4;nqXRBT)=ID*$lG< z=1l+kYl|%7bBglZHK@Z)C^uHqChyY*b}?n!w6k-;$ZEg4y%%@W z<+9s5(Eb|0ubL{Mw$}1(?CaXuD=a(8ugZI*tEN`vJ#2p+;#bWM>8)01#>7%mVg=QX zC95qvNbT@e7y>)I_t; zCIKcBW-iPtF#BQNhq)K#F_>pzDtae49)Z~ma}@StFvnqjf$0QXZC4#IFR!M)v|TJ9VZnzph2y)k#>Px#ZXz$XIF zzl5rBjT0k!jeqgufpytC-p=kDie5@PIi`HJXXeybI;U0Me0lZO({34d3EWbRTl;Q& zJlxWaTl?00H{7y}Tl?1h2;8O{H+RkEums0b!2I4{BKqQ)aI8RI|G(|Wcc5+mzv{-IQZzq}jF^Q0?d2^zuhgYf9lVc9t1#+ZJ%S=3$;Dhvb$zquVw3LU}XN@ zI?R_;{~wX8>)}=FaiPC$a!-nIPYp+0&}k+jE^gGBvdq#E2fEMf=+60uXUyT^%R+Zf zjXL?Js|QR^n6t2XI-yfzgxmA*&#NM#)a)wTZn}6HySkGiyWrT6=&Yy7dMz z?o1klyJ$mPy>S<9ADDiP5yNX5&yaA9p+YDcn!==LEGyQmsaX}=<+U;OD>`GvmQxSr z4VEx^fdq~tHg?0#9vrnp!YeTORX1UkQsw>D+QxMpqe2Y^>sab$dP8_5&{M%B5YlnS zM|$ubrN5*3JxG6td#rd23^TB|fuV$Q?(9G2Ei2WjSlQ?PNI&e;qCBRkK(l>WwJ!^7 zH}RCEM|#$#M*&6y4gw4Z>;)4B(;Ft#gV`0ULkn}I0!ylDaw~F0zwzOld-VX)eV9k# znxyGHa-y|u?e)l}l9g=^SE%|G_Q00KwPW43n(Vg4{KQHU^W0Qf+^^0myB0%-x*jx8 zWkdLIH47mKMPOCbMda*7c#wKhvMdCT_`offmG}(0Jq$N0!uvA6X%Gju4hYVA8Hty9 zm7vgBw#J=%8-_sLi75L`M|Z30e-$pqO2~{AriR~J!d`^L?xTcaVJV$xETtd|O9@E$ zL>!zv*Sb$vry*KI^(*obPTn6~1Ow+2arTg1h{WVR${R*+9hg%xjGGiOhEL{#ty|pzC zx1X)AY3w@YX8_Yq%F^RdH)3JpJ&>z6d7lfVOtZ-w3Qa2Ec~}V}d==Vn!ap1Lo{(5+ zpKRbXtenxF*;m7N!!_g!U&KF$-PMGPMP3Iz%ImOyE7Q$Q-r*tIeyOpaZQ}jAfzO%v zUoi1laEyu1W8igIsV3c06YtX|T)wChss*133B%a@t}9Ic+h5oVFN2 zPFsv1r!7X1(-tGhX^Ro$w8aQ=+F}GbZLtNpP2L|-B`Jn&^8R3deaEkwjl%2-E#-=( zqy&}E-@e+igTO}bQ-;7s?-u*(2_dyXNX^tiwI$i#lIm|s_qSyETc-P468$Z6{4Kfu zmihjc0)I=Pzs2QmStb^wX@mEpUv&0t@E)|k-se}%dhfX`X!u(1-Dcd@d!Mzxwu-L` zZ;A0$;l10qRe0ChUw^{aff*4HU||-*Jl;RS@eIt1FneI$ggFFr4CXtSlQ2EuF9K!& z%rKa-FsZb|Z3xU2Fjv7iVbWl-VP?VP!7PL+hFJ--2BsY50hqtQd;(GFE0}-5{0Q?K zOjqE0!SsVU2j*?yK7`qf_@0HSf>{c)8fHDrvNIDLcfzcL34=KY<`S4uFo`fzV6KN* z0J8`F--S5}yPl|FYJEhYmgy;mo~i z?w7#N0iJ*D_5J>C?N<`~-P#M`51oZ|8cni;F2z6GpVpkaZ|&67#794QIREh4zGI$4 zxcMgBr9(=(Jl)_(`1{hHcVBw={?Gi~+6(AEAY6e7*Iuyia(05F(7091iA->u4ut%j z(@}=+3!Dp%9CZFjcHep)+>H*VVh9T8eCSsGAIa|PE`^>573n|8?pzbqyXN*@94|AH zKGYhBG{0m?&aGVK!MIZIy$*LNvpLp#&;Lm`+IsJK_SZT5g7R^k@paI9;z#Z4p!XO1 z>t}vJ+xL)+Id$Hj4NQ2xmo3z&W|Uf92b z`32@?m|J1)fGLBy7v^D@N|+~Mw!`d#c@5?bnD<}~!+Z|Y1qIT+?w$wwgQTcBs+cZ= z+hF5%_mk&;p0MIBXUT$l%hdDVbsGz}7~@tEi~4v!5d4eBcl*B#;6?yRk?xP`HP_&# z4~0Go##es^V`VKGq5B2YA4}~7`Nmodxb-{8Q?fDvd32xpn490QQAH*zWBiHJ?vM%{c2L^`CTve|7mJw+E?(;12H%s5Kfp@MV0Ti)n51w#K|pr;g5H=_;h`Hn zaOwkEcV=9Up2S?D(lK3E;yyB!h};-{ zWKEmv@)tUBtC(c(eBLm_y*kY65!|*@s}5n0#Rc`mafXY1JD=Dq+p&lRn=F(A{BXNt z3-Ze2{o>nJ+_x-;w9Oik@CShzz>a{%(Tt~pg}lG|IOw=NdLq)I`a=qrkebtUUr?Q#RGaN@gl(K#7Iue|UA;TA z{orKyo~C!p-+Y0cr<^PVDiOZ=3VGV}Z}3$V!TnGD`OZVa%<}LmUZdzyZ=U!xj7SaZJ{fF^-!i%;bsF@CvXM+xC#DpFP@~&6A2h z1a03lLW2+`4t%LF@JW7yh2QW0#q!3!niH6EaPtV}Uv|5yuVqUx3=Ghj;tsEJheRVb zUu)=2Z`gWQe4CnW-Y5vD+dtR|f1wlV@9;mYy*H!M$el{q<7n65!**5pRZ`TV zu0|zbibeu@yit-Oy9Qf(!2Rytx+&Vqd|j3S{l;M&7+1%RgQDCug*P0z-|JnyA#*Q! zGdud5L59)3iX!)TpF|L=;3W^I__PKA5iDZ_rSM%F6fJpMdeX6C63a1s8}_gJXY4Rm z!k}$x7ON&|UfnfgzF!%3X>EG>)K29H@QxY-MR?o92$1Sjvb?vWxZ9-ClWoP%>vRQ$ z?hK07oebu+9s8Mw2iW=0v7dPlw|J?ejsImogA+2p*UxN1EbM1Cpj?<;6@VV^ZJ-?3 z&#(iOZL+5*lteN!89~rEW5*OltQ?LmFB3WTyh;JNQ|HZjP=h0HOkOl{*6mRbV*KUg zn&S-{qu!$HerwGe&^CHEL3ME)W2jn+oj#Uw0;)FkCCW?2oIePY&@Rk#I*i>9*?WM0 zxya7f0mwA##Y7d-)6OEJ)eZ(y^o^=sDM%4S9fH3lV2F8<8z zYt*KHXf8{Q4*I>Z_kjj5x5;b9-Uy7n97azu_?E^+J5~g{gQCYIMXaLUXnz-^?fp*? zJO{yf^Ys1b@??A-YZxBI@fqq0YkUso_^j#sx+D(J5Ai^V9-xCK7r&2D_?mVDv<%mJ zfWB-@Q1q&Pmj*?ryOFSQ<$CB>M>=7f0COk0JV;_uhmo-|e3$MG@gKjXm-Bncvfssa zA$M$CE|%WyN;j?*UB|5QOZ~x5;5HX-axc{gJ-}o8BF2KkMqGN+Y53=_=5^!))<)9Lvu8Fi18wL9pNw21Q9zw>nB+^T@#xct;nw;=-vI*yKrh zcR$Wq)i_Wq-5Vqu@jrx2kLqUCl&3yMz$+0@`g8QNaz<9}SHjIoc%8DP46?CEt$i>- z|J^M3`UvQJcZ@BrmEDoE72VMayE{r?H1EUNo=H%&KIKeek@QsY=w_0!%{msl(wmIb z#*EZ*8ZxlfPgG-1^)EimQ{Na2sjV%oN#+vK5}>s_yn^@i*Q#sy))Z;9vLnLHSW{5= ztB(}-;$`kgWvvRwbl0xY5lAl%;`-O<8f28m+ZpL-{0c=PvYtCWf_JS>!T6ws(-!xv z)-In;bWe!DicJ@H{X~pNkamNuMvv)5@U9XNSBF9F(oa|POK?vR$%R*^u#ZYknpk|C zMa~;a+AEV#2kPAuBT#@cUwEC9Lwju}Ot0;LAFyLhColODty!j%p*zz;WJ-C07d20a z#=({}@PHZ?ymmsA+Zk3iA<|4RyCP7#3FfRlAr790h!!6G)*-mg@Eh|V>kKmV7k(jA zk%;o7Xm@6`@*>0B36W(X0gyLrQ>79+MCm`qvtWJ3gF+;#!R>xO7>h13o+g|04Hin)MlV zS-W`5>IvmE97n;**BHIJ87}j0oq5AQm&`jKxtSh4W?FP{A7s^-X_3XJafxa4gb-`m zEq$uZbJw8V;tj9>YkjhSMH@>}a)es{q;%kN2)oX2~AgRlJD^$f{cBuk&CHJ-uwWMn|$BntxL zsf@$8$C77|{P^9h%Q|RNqGNO$&cXtYF)+@+s|>u_z_A8K8F;>d7Z`Y5vM#K21p9Bkka1BV)TnSo&j_A#)pfu|c7ZeTwH&oHpRfe{9tY2aA~o(*{X za_Fi;vaZR?%}-yl_{RK#Jgjets*MK%_(urgMIePocTLo=1V^9FLx<6)LU_t8gdu)Z zict5UA3g4U8k0c6OiUjL=NUNBz#`debliKky@TyAN}k%syK^VGASV2v5tGzf}e>fz7OKPnta zn~WoA<#9WKD_Kz$=5U>bFLz>9NV<9q-L!4V*B1Ec<8bxY=pZ%m)7G~1`N+%?wI3dE zh;0XMa7YLnOHv-%G-ZZpjaP?PkqW$N&|)8=^lhbPiqfD6My3MHHf=8p0Jz z$O*1<@kmrOh^BAvQXKd`mF0I4}AkR)gwoc2e{p3)upepY^lWA zr^<IFhoD3Wx~Ybk8gr<4@xJMC;pD_+Qeuu_P@LXCsd9!cEcVU z2j1toKE%}>0>IhGK6@BB8(!^Od=`QO_DTJa%eemt)cl?(LMW;GHv*cMJY}bU)RMfL zi}RP{6-DLbF3ewql>*se7*)6={}wc`d3l4Qau-M4y0|!MY0e^7lxuO+lHx^C`HPBN zIoQCzBx-5CYks?+OY-N$O3(zGx}od-W=;>|Nu%uY#Hbg#`Z8pzu70H}s(@J2j|j|tnsZT(5WP?vgR0cC6r1=~LPFR+R8IIQ z@iu}3T@iy(E^7H6253Tt?V5u~)SsFA2%TCL#2j@Ix16}_<5f~)@0`PvfyEQ6OW?Gv zle%vwF81H3zyE}9)C_eK0^r79wum4#ixyqm@5V5JO*cK@RGV1Ur&D8B^#dec)B@Z0 zWj^1z0lvdJHC{}TK~>g`t9Ya1CdaNSL`@N^5#sYA5L5j=)+xwtDa)z~VUU?sA&p&M zV(RT0lZH@CAM1k}gAlASmjZgcZyye*F}nQF9vqXhvNN3-LlehkX&eaJ=kc&QgFDSK z@`|u6H80(&G}<3lY~VH?x1|;r`Z-BGjD}nGB5sIhohn$IlZz@ReR|Z5iP4)V-qF&`h0M=9sZDKAba@eCJ&^3g=pq`J{o zO~Umjtbw7cXJh37IVeXllj~b?PEhLHdfR6eM-}z>Av!gX$Wq(Mjdzn3Y*nC9qMpA_ zpBnuDS>txrQ<&DLR`&pb`N2W^)M_2itHOsISxv(s)aL5JV^Gz?z&~!xO1~+QFWjSe z3xP$2*7P5nuIbMMIh3Bd4cyYx3V%=irfE;(;fc&nw3!uUa)TQ5q8zwXL5K^tB(|y( zAcI{q&W0IkIy#$j=K)oi!9Ca6 z1oYs=z;iCAea(igJg9{CgJp!32i?hItv!XR5Qz_PPP{V+ZBjjr95=zE+PMd#Ju0`) z-Qn+!n+Q_xgceySe~n1&h-(w?#A1_nc)OiLAG<%roxwF9p(P!`kDOmU7`i3}dKbI( ztU{I|yVN5evcYVGw?+&*=0=G}#j#%X0@~xfJ<#zG9C>rDv^x*n>_)g#Eav{ln~^fy z|H!cKndzHuOR;QA)-lfxci%)!%4&c8jggSJ_KTp>=C1rd(BM8-%1-1zGhe>}O$ow8 zld=$!gLRJ;_r5itX8zG1-9zAE|3~^9%^#f=?C+$MVn(f$Mft9zocw~~C3&r&5qesR zh%ks=&QcECkw0}|^QZ}bIcI)I#@kuXGoEu*x`F){=8y+;!iS9?SF96-=Cf};pJb}ZlC`BJ0JK5?FR-hb{8^y zsDJ)V$WD>KS3G|6h(l9en!NMbsP{&GdCv&{z|1~(%~pmD56C|wateX=lCVF4U=XMn zakZ~b<>Gs@pB;&H+yi?$VAcnTj^qe^{xld+VXfQ${OQ(sEX4PZ#|EKzM-*TbU>M9G zn0T0Um{^z?nCUPr@S|mC=4}B|5d+Az@)3lvbDY=$mNrBHCqH1%EvtCc4Yw7)uL)$NmnV%-%i&s{6r+j+CaML1cK7)O!c#1s zN=FP%lK?&5*!R#CDr%Z$%<>?z+rGZ;-IQxiB>Z{N`L|8!eAQ;(9@($!5H**t-;gb` zpP?tU2KNPUDocu!X$D26NN{@DXQ+~OdS~w@GWYfS+|C~BsNRI?0g2*4bo_tYi2O!~ zqnw!xU<4+_@$#fpwF4o{*7jTB=BJC|_GR5)vi07yI4ft#ygccLx&Og1ia2hQ!KExI z89IWbcycivG?_)|0uxm-<4B5ARqq0t3q(SYG_y?sF5Pb$k z#Tyt%NSD3Lpr~mjF4r#UgJ6L&djSHl#B&9WBU;ZR$`;B+w}4r#sw-WdjM-`Fa@;S_2UV^uGnty# zghcf*iwM{MC8|1n*^IA5NLI}kfb@9(@(zc8>Ogh=i%y=GA^8;2KP1>ut-^lz)zM(T zbX5%IExa8PX>Xev&*p;yp9h+uJI`?>Vq;tgeo$T!09DcWQFk9gd9CPD@>WoQTRhzs zS#H4rZZqkYVYzh*aC6aZq~+F`B^twe5Fg-c9est-m(&#TksRP-GkyH~qW~Z20X}xq z$ALf}(*t}QppT~leavB%nHr-qQ5EdW{}p-3+A3;k#6ksb+~CcOBP{#HDM^XXuKTymO5woPbgSils9>i zkx+CTq+{^7D`0M3k)gwTCd@b?yl~TIHsX=FHNH9T(QD&BQK-F`U&xi2wnoFlmw@FK6<@F4gv|zy z6{EO7!Ru8?q4LwYj+hGu6`SsA6#}iPxjndaAMVUKKHRr#TPG-|7mzXA{!t{-7!>8D)2r4A+FN;R*$Ck;Ls6+^Q7_cClK@U@c>QzI`EjzjXII zDb?(Tp^m$cOi@jS%Pd<}9BfE)$%@WxQMZiewbSl*FMTHk+gRXr9vz_t%WhVi_cIjk zEYDl*wn-}$Ub0n zly9sU3cHji?^l&2rj^09-5gl(`amUu0B>Tx4XMcni#sqH&%h8ETHCD?^mhH=?7bdt zRdp%6_ou0(zy{A+mch#Wqd_* z=P%7$vNRuB*G0Mh^yn{7(+lkPq1F>sZRzlP6UUX6-y z>W&}1bjm3^|Ka|fzb*Ak=RX3p)eHNiZL{+azo1?=r@bA}@h55yROL}VBDI^|J9PZU z&#}rZT-BjAh@Vq+`~yMD?)YzgU3dKF!#jJ3GX*xQ8G>(Br@@Z*@Am4B-w2g#tH0Cl zGc#{R1iE)`>l)9yr+Ub=OI-mf_V7~zPaf|hB-}#zkM*_)x6R)I$nT|&1#;g!%L_E? z{b(kVX1}VsSJLHktiCLP90Qyj2X zhPjKw8F}s`D?xbi%fTLxm)>F&SlyGbEp&AkK;3!#f_O0DSO=C{hD6^k8Q=6DVj$E21)>>1MJZO zZg9U=tgW-7pbgkM>VLa_v^)}=3vbZ#$PkTsQ8meoI%iqN1D0)}5LY$6P*BPg^ zaN>Jsb^)dshuM2rL*B!$pDJ$w9QmLUS1(jQ4}CmGAC1_DU|s{;!~3-KJ?As2O@U9^ zS@vRw!i;vdb8{oL?VdQdFfo6L&;R(s0^3gi8H*RYh>&rs3F8(oS>%gBS{h_|yq9hj zsa05-dCY&&A?oz;G*n1o)VTrWBIu#PN)=54DEVl4bnrT+U5Q5s? z=fF*M&=i(Pvl;?qb-1xa(GqPer_(aRSh~RirbMg$eT`j%y7`#m*5+pQHRN~{v~(I6 zA}`_VaX=pmMB_rkW_3StnzK##w9Bv;6NI|*D5CLrd%Y%Qh%`W0YgUWk6P0ke#mkL8 zUhZqp%e8@#TD(jQL<=w7iPJHJ1ueLp^0ZLxZ)~VE!+4jC%_r%^LeT2A*r+c?LQR>||hP1G^X)WMEeVyBXNs zz+eMUGq8t&Jq-*ou$O_o4GcA~>7?ER@tuL+8~B5P%?AEx;7_T98@ScLXAFGSz~>CCFz{Xj z?=$dz1J@h)fPoJh_>h4c41CzYM+|(_z>Nm}#lXi5{HuW_2Hs)dod!ZL;9&o;+Q2mi z{>i|*3|wnqnSpm3=r(Yjf#n9?W8j|+EHvWZ+^0(+!+r zV1|L224)$UZQxV`rx`fiz!?T!Yv6ST&NOhAf!7;2+rW4O#~C=@zyt#m4RjiqWZ(n? zlMPHU@EQXr8klNent_uHoNQo>ftMRN%)sFWjxg{F14kM-%D`9yuQYJ9fnyAeGw><{ zuQqV3fl&sYZ{P(6UT9#nfdc?5rsMEuSe8-ik4$ggUTCA7fa`VhB z{=vW`q$cLw7-D^-<+$eevMh4#eoxEhOiZ!8r6*)KZExeR%`Y5gJ6#Lfp;j1Z73boq z6UHp@*q8hCurQ-;>uY^x&0m5$Ei-d&%!{y4iFmPQ@(o3c3-Vlfys!5R%K?O~2Ujqo zw$WrieM#QjOdtz( zy6}d@1x06DL{Spc@^TiWV}lFUkeL;}AS@Z)ZJIwfHGk0pn-8Liz)PZbS}fe;MH$$O z1*JxRD*`D|AC>R`ydiT|2c%8M=AU)JN5*D`==RK5IGaeMMc>q+Oza9K%4*H_Xhmlew?Ox);?ltHMx6*+StL^ml6)hy%F4vOnkI~gA5#OAa^p+Jq{3?B6v@Q zuqdl?71)Qp!F&6?+<(2n`;CFi|EldT{Rt4etv7gcUceH9e9gAMX5s6=fqx+(Kf`pI zgPT|YKZN-N<}2b5WqZY6FZi1eJpZ6)+W_muF#O|p`@dm1`T~;wwBP!G*UBfZK3e%i z$W?1X<`4yE=uq$efYr*=ZnzPt!&VF!LTYZUbt}aA|0N3qNVz=JPAuZ_$_k_w4SlX=o#@!`7xiKF(lX0Gh%&g z<~6b`G-jGRAq%@|Yn{h?mKDphkyO-nX{#s!LAUdm^{O47!=O&9DjGyoX*E<@2|DQB zTIYTQJy7ec>nXGj;%RccQ(5C9QiFF<@J=}&GMBZrs(2E)8boZ3+v&iRJ8RU!XQ^$uU2HU&E3>ZF|9z_3o>U@dL^UIgSl>d+~ zt52OTaUh}=?D{YBMHA_eFVjinA`r3jl}9W9&HP&TU>+G^`?Um9Z8mlw)f)e4LtdU-|8`MvuT zT#LiXmIhtvtzm@qDM=Y+76`-?|m$5Fa_LWtQ!U$qTvm=`U%xXPiS zss=dq@js~GZDuSNB9`*B2KR&@cX~M28=R=$*$w3r2B~0iIx0>Pa9SZwM{#0N{R=57 zPdjLb%Au3UJLw9n_ak7_9cuS9YB*U3KLXVt3V%gCNqz9&A#G2g5sRomD++ zox5k&I%_&h5~Kl@XYbJMtAT+o6t)kPPl!_m%+kqmP<)4-GtQyBd+`L$gb}oIRp(85 zY${utsMa6CvVOem{NlB#cyIMN=4xVXe3-o@dVVR0gBkq{a1Sz#E$gDH{_RQDtB3I0 z_^ErJxrwq6R=re%n1EJ5o#J>xidl?k|c&Jsh6_h?sYXBZnEL-b+s0sav=a@1$V!# zScy}I!4l6M=u0N_h7GRKMCV%-9g8pS%piA0uDS!%Rpdu}iW2+Y4x2?EB)g3^6(6I_ydwGma)7a#yy4Bd7RhnG?gw7=cSg|mlRIM zaZar9A~hZ?^Z3-=^(JL_N8Oz%_qu>#+%_8U1myu?xK-s!MVdqgt(P`=22J*_f_|bJ z_@eBhn4`WpsB7#;j56Haaz`85ZHa3%hLvEI{RB!hGuV9%9)IG~T>HsfqWX0Q&4Q@+{)O`;YiFn+dJEY^=MO;uqL) ztwNsn3*G4{4~ln(uVFFarEro>E?tFaqmcL7wLECe4%W>ns0)l7H&F#dJ^?ft`Q;M% z2ans4XHK2sZYpIw*OYvR-M`_iX{kc}O4^WXab-c#M}ng3uh;@2?xdh2@mZg~R^Q9E zrGNU1dU7-3tuxWaUMt&SQJ?mY_tBpQ`k_1b1SaM8BMUF^kIc3)vba-5wtqa@MChdu**@LnF+P^J-$MCY9>LoCs$1R*f$94)V zl!mD9kbh{7++Be)^Xdz+Vw`y=bSJ`j)U9Y{zNftQfP~$Bz5=d2-s$)?4`*9(Yo2EX zXNK;qV|$EzU>k}u6YY{kio@vHZE6PTa_6a?#y{}?9;t*#tCql#R$%mD2#+J>;62^_ z7GBIQxEW{Lda5VrBM=#)?lnlsHUFU(U2L#MmM)v##nmq`U@tYjBel*d!9s5DjCczf zZ*MiUBQjK-8Gv-rXPDyUHo~C<7q+RBRe85R_9wtDVb$VcNZ06 zA-8t{r-JOOe#VwCof$UrboE6?WVm{}BeI{W>WDl;{jDRizq-dl`dA85w_3>Ukk>Rz z5emmK+ZRPwHQ69L6vbf4x~>Q=S$C!yU8*P+!|; zgKLV-$40U}QB^X$VLCoo-89v&=1c@D;w@F(X1t|uw~=Wok4Qv~Sf!2Z;ylMXldR>5 zCvWkq$Ka-9**J%5pfA2(vn4)X`=~;IZLz9H09&k-p{wPzjub7agszT+SZq`BO_D>` z+z&Qv2NZWu=(-Y((nYYFaa^gM!1hsTN&jU{pU>L-)nDwI{vgFpQ_~CR_J+8zrcZ|z znJ0-Et!Dg$h#CvQ5*pPpw3-H+JJYBd0vgrPN{Q+=A$OFG>Qae{LF+3es_VtAKHZ4P zAtEOGV*KVulQij?YM9-N3mOJaK zscuvCkLaekAJF5y3BPvJly=E_$vH0fAY1iws=GM2w6@jVPcE+*ji&@~FlfWF1VyG=e`-KhD|mGLnoO~;SJ1mo2;z5uW%sL|SQ0PncD zfrT*^9ww+W0|F$g(*o>H^-D7g&p+|#;3ESN&<~w$Xo z*1cMbkhouK5kgn@0d2!fx@Z$H;Kp-<>Rlk`bLb^AVrWvRY#7mLt+NqZezRT@>~NpA zcaTCHUY(YRdSZ3BAZww+c?`uQT&H+YV?@cyMu!V8Wg9$p%1T}gD)oe%O#8WbQ{x%7 z8@4p}lPJN(APXC;PR6i54_)K5`)29!muMeq-U5~`3PNH?k0p;fm9EJs71<_>o7&bK zSrMPG&)LL$lpV9j=_>*SY6tv-bhJ5}CKm6c$Z(?fO*M#eKTa66cqCme<3+*T)4 zl&;AZ?MMq9?#BIg2r$Az`1+kr#gT#ZzMNMlI%9pjLOrVD$x>mqe& zCEQu_j4Ljwd4{gp_z1@h-ZR=c4_5bR=fUa<>1QO;sfZME`FZU;$EY0bIY!N==WN9N zclN~mctS=+3Ep1^AD%7U*m^LzZIqg-gN{<)(PK6+;Ud6kw!3F5uSnXGPH32-bn*`j z5l#vzOFMXUrIhsnot2dzvF_8$#z%^0dl2hXd_LY`uUtp}nc`ms`j2Wn4+{UvO*~~X zOgv!i%4EF|jLKHmat>nGuQDWpCr;RRtM2!+k~OR6P`y~`{toEz-g_S^+Yuvkv%ja@ zjd~Lx_p!svp8tA@Rc+8sSEs{Y)lr~O7EGM!xK+b=Rv5b-2C1>=A7l?an}d1{&bmPi ze_!pOU(PwwnyPtUkEW;Z%Wkq-Q;2#TJYtfv{VIu6J;v*%MQufbh5iKRO612Y<9J%9 zHxkH9mv*R<;e@M%uSjGyv^$9pN`4Jp+8z4i(7&bU74XQ;E_JE62TsN_UQ@q0GE zK_s81{L+4(@B&@FB<|Qazr-Dah2?b&j}EIlk@<3gj`-Vc`I7-L488d^LP4zP5_!pc zW)is7e14#&;bu|zI+trY#PO0-j02Ha(=k!!gJi;_;

mF3&z%nam@oy(P}0#zV3d zXDc#(40*#vK)ynJ<6mU3-grLS-*azR>?(BtB~BTU#ie#YvEcDe!f)W7|4wk^S$EbW zuKk+%gWQiL5+bY9hox3^!pYrk&yP|gbt1KRqIT%D$y7MSs5s6gZ zCDP0;#z`>+VvwX;D=V1ta8?-9NQhPuI46w$UamdEO9!E=ujq_2Vs!iPQUOQeXdv`y z*ly~fcotxbI{PlUk!a1&U>?OFu@)!j>9KNmQ;Wr)vXd$6SUv(|067jZj}QNmBz zNH&_`|E;kOhxaKEvsuNBNi3+XJkgvdL5`+ZH6s-kP28;Z#&p$9NHj=FFm$8Lk&@!M zm@|N?7gTX2lRB*oi*vXNt{C&Ut}T)i&VwLd2S2ZipE`@GaC)FJ9*sc#8|8)@lgQ~` zA0?*;b%u44Xv(wqBluKF=zi7XPp8h1y@;j;{)UP_NJYnMolVdqFhh1%ZmB>tcS$t6 z8BMH2vlsrWukMf`RS2>}XGoR=*^yoqw7PwU{D_H&JG-i5hHL}XEt1%6ss+W@K0~&G z{1*6GEq=BHaJpG%$R~ehhHNIM_eeBbtqkEIZ@UQ`MGlucH&;_KR@=*^SFPrj1hp9! zkN0Z)VquYIq4iR}oY&@=>`5op3H?&9iy;mz=)4_%5rBlxH8TY~j!l zOD0iN>;|MWS&Wue>ukh%?m8Rkj)(XhrP5towXK6_u`3ajRIV^frT^~sUI);tb9b4u zrq;Q)r=Kh0m|5oBU+X-;eGYoLc@Bv!co<9f?`O|H{3r4_EVt|e>%h{BZXTXGM#ufO zql^&8C_>CHcj~fU!L~a89%edT+ND6fwbr=}(QIYa?+N-WX*;2R!p1AKED#$DfFJt5diLZ4z zrEhV1(yT6D$9N&!ikO?lyA?zKQgeaxQy06d72pPXgU#u?$XE4R{4h|(1_s*9Q92)a zh#(sgjDcQwN?$Seu6i9tpp2rpgdm>_u&)#hwyOREoE^96M8G6YNhyULv# zQ3Wfe4(m(&*l5-n<`QL4f-#G9t3Kr3*!)2`U6YoZqw=WcH?Cl)} z1S+LNrQpMEIWb_m+_^!YPFxC?a_0`+a&8h!ot}!#5=)a7Thd|ic>jrL8uy}b0?w9E zKX}vJf}yUwg@py!-Q(&X9WQznhe zm?3!fLpGk<&S7U<+z4Ug)5cM95IoDk#yh8{PtM3f?5A+coRKzua;oh{-mwpT_B7|X ziL=wkB}^PQ!8x0mXn2=>Y1ni=J2PusR!Tx@%A|=lAKZ98n;4|aii_oA<0ntba85xs zWcm0Qe{D+oFn?l(N2XW1`3N$-%sU_6N04sh?b_6o@&4q9XC4XOM@o1mZ#LdXO5B(a zNH!}Is!6JIQr7IGaVe?U8K!PAe=YZnanokwGE2x~I$f04EjOWW9LWpgwA^$$v?JXZ zE@ASdtZ`@v8MDVt%1p`3%J8Ge^Y-!hG?Coiv$FjF0&;3i*Gk zGPCi1`2x97-(#ZniPpF>YYoR0*^4!#+!`1m%XLyGJ`wqNvRH2UtgY>Zp074T5rpyk z1NEtPJXb6;;OK^mP#&y^b$5f#;{z4d(AJiKYfef|3@$!E97u)$2XbT7Uv=>F#Bvsc zQ)5>fKL=7Pe2!6H0Eg#W43@%WoVv*uC{BI#sU0Xs2Z~eA_y@{ipsUmszCc&0ZN5M^ z=s;JgW&VL~V4$m&!x!jkwcHnIt`2myO7IUfmstY2q2Gw{*d-FZT230z1feU{KaNTs zCWvL2MF=_ZPJ!gaX!U^h5e^@tRhald28>ppTc1~|kMP+TB5`1vv0g$lKHqk?p5jR5 z?yA1ol(pM9v&OJ$U3Bd9jTa+O%JkwYIfzn-Jc(MJWVp@ba!`(Rq0Vc zT_`B9Y~Ek z-BsmqaL~=#92mOBgXCdfAeKsY;S0Q7sd^h`w+MnfLfBLdQ-sTlZ7%UHm`0sZx@vmY z72$A@4Sn2tq0yBfn>|FQ>Es9n72>C=o+|mg?C)r(TE1Pbs>)nt+Iz zQ`;(cGg#A|bl3)mp>#mOZLK`Wgd7rwt#If^R+&>n)ya=_PTi?_yiAqVGpAg|sF9bc zAh^P#l;@_dhRfJ;=N4qo=E@q*0`DMI2)yL7U144zEN(%Bn`1O5n=04wo~<C|e%Xf@W{Am}?3;!Q$~gdONz3_v|T} zj5pl5N4Ds4aS}DIfVe*c zSKR{NoIk~ChfF%$LWiIS0vtxuVHO?20v*n$Ln0j_1090ta48)I1v-4&7Y=>tFe1?5 zBRc%@IUM2x9bTqG10B)>9X8WpA06gc4!kfLX(A~R2vkZvxGu25pe|Q?4dKw$m725RDlL%J;c72Z)sfZO+YGBC)Y(2(N2mwk+hP^s z`|0XMj8ms%bu}rF)e-9Odoo^Gtd3BF+p{`cooVGk3WAJOPv{_VVmTj?y1Q40F%N&c z*x?WcdSP-nEITNE^h6Qa!UK^W*rXux$rNeVftQ(wfCh#mQPM${% zonKfO#dl(gs2iksi@od|F`N%ugAcE}r2Y?@?BD8i(H~+4TgXCWncs4HaP>?CRd2qD zWY}vpb4JTk!-IG+vV=n?SUsQq{zv>7tcn$XK5^HTW1@*wcSzhW^t!@KtZHGd9dUss zHx`3I(kvm(NkY?L)v+u63(el(^%k`K_kwj3_AMmuPFU?OEESZX?9#o|h-K`E-dT!{ z2zO8V)=QbM*O+`|8^*VNq8ir&a{yc_HRR``M zCSaYYP9GM_MO>;6WmPPRErW&U1KxhVtqsr3V0Xi=)j(CR7kr3%@~2k8A29eW!0Trh z{tOp)_5lhgi7WU%LaSQ+8+vrn=|4XZ9ODbfww1rN#fPqW5X@;k{)2RL*5L4(Ivw{l zy0iDvTRpuM7n#+U1zf~HR3iJX7w5+Z^takZ+D5>Cn#sh@JlZ4$ljYr+qVLWM(Xzx^$EwTT)~)#f0-@^}tDblVk9y&X5{l0LGwBdP zV46K-78D+1U)jiRzB|+z|2iOjol7k95xV3=yeqTh#JJ+#f_fY7Yn>+><4bUH3>Ot! z+!zrk0D1PYduV~gor7f(boz~vY{$m6yq2!ba2+^OTy-ap7(ZhqE885dUV71VV(6MB z$bT~kj8(6~-EP96NHd!-TZg*Y#j@*(U%8`>{UaAmT+=aa{*EVH}7 zvFg{ibf(E`$hs>Us}>?BYn?x_vHB?>df@aPbP6rk(eY=KZ4v}$41QMI45bsyejoaL z&?;H^bG)AU;cHwmH=3b;lTf!I)LQ3H-faj~vhpW~Ybv)kVQWo`TFhL7MLf%7E`)Wy zzK9J$_Afm!i`Ab?X4XP-Xfz_%FDHU`+**8)+|)N_m8TukR6B9Q1}yEU-YHZY*l5QJ zRas`#zSOP@N%g4o|3Y<#P&G8(l7#eQ?K|QMJL&wH%ik-1Mo~gO_VveO)%U1Ac3~bv zY4E~9ieGB;61K`#wI0yp9f@B)DhqpDyrC(Jje4c@=qmO>7_mawO0Y3t8iXrsG)A~%mBH+#P9krxWPzc| zcwvn{zjs@k%+Rh?C%?ly00Ak7D9C4j}2*9-OYsOl&_Ed2aZL|pEy)4Mr)AOgG1{RVG1|A^m4u6LO>w}-Ec zXqi0s#)a}t-C7dv9nUiBE3n#rhFl$G^=TrRd{Jo?pWQ4cs=3$*$2Ink5l~mN=O?O< z-mt3E^Qmf__;95f*Hl#n*X;Q%pvL9=Dwcv16$v%kYzVnF$USiczcUA`zyAj5%TIPl zRoM_SP=C2Mo5E3=YCxBUS(6n(nwsVpK}%&UGx!*@-`>B)2x29I7?sp6f;81^a}UMH zMD-P{c9wg|wRIulLyMWqm*ZE26FvjspTB4i<~>;G9I%r>bPJ(>^JOAiz*qlc*(E(j zoN_OVLo0)Taa;=+O%NrTwN%l9Tsy8c4ue2T)k0Wjd*7!v?Kz1td_KO;twB9+;^o%+ z)IUA=mY3xBsbR05Y}*x&P}m{3Pi@$X8f-cw9WSJtIMwG35Jb;JFJCb*^VxDw4iS7Y z2w8d37~;KX5o+ZTHI~47a_9_1gT|?D0+Kz(4S*hR5Pr>z!S>!a&Y3V?N68=_#alys z@>_E9Q0H{4lSp1Rpc+E^A{ray=P~Brgw3bOKPVpK{n!TciM!^&qdNaZq=%|VeOtJH z%Hrd#4FdsL!d-^7&ar9n6)Oj#$DsvrO$c2l}pa+1reu z;&m2%n;kvkz8>y&mQ4bS<<15z`Ho(w^X(EqkM}@7H3N%jHH&E{*+4OMSIx*|yL^5? zp0RvHta)UC=39ovY!r{jI}j*8`815>1CQ)vK&rF2ErsemcfO880kR4=}3g;A_}<0pqhuTRM5TwcRT06+zLO^ zmf-HA?Qn4Y@tOdfrVN$F@48Vxg8Gwb_wFHwyUVGkcfgrk~!o#cChC?%yz)saz7B77=aaH{hOK z+z*(aa7)a+5|;aAv=?;|_ClfaKz+8hwyelOchiIm0X`xUdcO#JjQc=csM8c{*!@7A z#R%}og?Q%N%eU!q_z;wa-j%%H?YU1Kg4ZOz;r+N>Z8v}&iie z;`vO~1zBeMeh0qMIMws;$3#5^=<%j9l!7R6!iewX@vI*K;vRC)WZqX#Tbai}J${6G zWA$%ss^$S?d3q{$ruMsuBSrT7XZ<~<&#!t-IAw3dBk%|;n*p(IB%-qx4$nkb3UNZ( z(#E6da@A-T1xFFN&1U97LIX#}&k*l&NIb&#nJAwl)UMLsP*J~uc4$Vn8iczi_|`&N zw#xooe~!;qlaA}pQQ2zZzxC(fY;{yGZMx3SR(Qcsf}N4AzW+{tLVNTNR(^l&(a(^$ z9igkavxx!;(uv)np{uoK$8URR=(=w3!Y!iMZPcnpy`o#+<7|C`DSow$SD>4Fs&O|- z=<2m_q{^KeKdGs#a%@GXTIXR&)~Bnn>rnvlsk{Kh+FW{Yy1IBC^RwRCdwT(Vb5##< z{*0c3+`2BoGH#P9{6eQHQfyC|Oz17PnD5&sGhtHbnsFGV8pjKX;qXR9k-EfCxxhl? z7(#t4#4(+Fe(G&fz(d~7*4p^^PMqAes^QqFAQVTa_&f0!ttEE6h#JKSrH)Oikq&SP z5(8xEGE@fae&gwSy6S2)LY=tdH&pYyJXG@<02Dh_v%TwaiEgkf1_AhR3b9Z z;~mOiANecFIX5?E9TN8fm)$a z^9(8qsC9#0Dns0^8U;CLL6ZI1j=(#vTo3# z%@@rg60lE=60~cjoq&BRTBB|%U5-WmFipXuR%tAfrPtJ_Q*ikWS&aL9{L)Q^X?rUYwxx1CYs(Y# zinVTX(vJKDA&+gu>Ww}+Rhuj4P)=SVz7dq5uSqviM6z+jfqOLNxHJZl28~e~Dk; zKGXR*a6}E)J@7yf0r#pupvSw5KCJ_M>`%IazX3&;$OUT1DS;ezupFVk$QP)Ify(@RL{|&y7NB(hMcw7l+_}X7qB9Zu;u~(Fow5-}V4rSt8U#H1 zWJL51tEha{J#!&r?Dh-t!mkbiLPh`?ioti@mO`Trt-8&nxPUaMvZ z;iDk@?GUoJ-%4bNP{FwbOO1L!-78es&G1;kA(@e(oL#nsO3Tuy@bWk4&@M%J3x}n zK1oP!4IoJY7XK%PR2L$1)Vq)P$=8)q{aj8=pmvp`LV6A7hHibpmmVrCW)(0i#}l zn>ojKiQb#gqPt01JCG3R3^7SU;PjwchY)rPKNoIPO^O(G0}|`;wqD01|KHa0{Mr}Q z%=NxCm#3<%)M5(X>8F!zDwm2Mc`h(?T|Pzc?#lZk)L&GLsSn^Nwl2W zZL+ATL53D5(;UGKEfPxC1gMSB1nNlOGcBdt1ipDmGqXkr9JC1Vh=?%rZWWoqsh~h+ z8c6GYp>@!v^{CJ)zKVnSA2HI*z*8mg0Xy*Z64-@hch(~)%c{T;-`NUX^ALN_?y962 z1@P?)9SUGR@VWp#g(FukF(loE`)SOcV2Q@ zHhRujPL0iKV)56nko-#ru)>**{v(oZvd`o@dBqlVY+a^kYO?1quC^L^0PWB_-vuG| zWM<(k*nNh2@ktI0HcAf;t!gBa%u086I?ukjMoA|idf9kPPS6jak2k6kbv=^ix5yXF z+Kv%ugG6Qv8;oquQ;f_;S&_XlO-FW)j%+YAs+vXBg`}OwaPAaD)m0Cmr8pJ(pI31y z6?8jm$Dgp*TrrpN&FpSL4)E}=$dWxk-s9ao)o&;%7adLM-s7S-7qxGfm#j?Vbm%{< zFGRqzx>00b8P8;=hkJS)lkQQMKXnqXezswEQ5|f5hs~~PJrI!dzD3~1;|(KEO}@Tf zbd>G%{V3nky$v1J`_a2CekHG1HZl;$`&ofZ+!YIt>iz#Y$#VSvL%Cl_8U9%*GE2EX z^9B?kl5VXUs6&uAwQ@g#^N{#Q2|u4EoYu5BXo{ z^>J^K|Hjqgm+jo*pzN>GuR%SPp-;byAUTj*MpEgc=6xXAc zMcsh#Se4R>_#wg>PRXkUkgn~#T!AQURZJh`p52ulfW_l|ER$WCbvQE&X+4!5Ug}|h zUi|m<;s1rMTsP)`YS_#%_^{e0^g^7@wc=@R>mt(^Ua?AX z{(gMg^$ny|7FM0H)7T&1sC z$vIUHC1u--!12PqwFsPnOKAtIdgd0qm}T5^bPA2an_glRgg3tn5$;B8c6xrA!t_+& zx3Q6{vqsn7VCK-r%hD9)&}*}QFf-^UpnultIE)I^TlZN6y>;;I=+CLQ##u~MET(Ch zzsLWqx0ce$LD=8ZTX*7=;*@%8KUF34*0O%U+XQYi-})+n&~;l`MwYI)=N8dnq-#BK z8ppmCY@LR-6Ix=|mD!kfRZyEPiNv1hM)sP;7?by@)D|CJ{nLjZOr0!lA9$?MX{l+` z{7Ag4z4o%)y84l+Z0GiQ6G-763j)KzD(wZAZN&c|j=dPZWaSSI7jT={bh6cxY)E#! zy&WacPS0z~?D7I?avz<{E+F8k=4TMZ?lq3Uoh4c-Rb(N3f9bcpA>&btX`5EVJa3Ox zJxZ42nz+HZR~P#LThrCoD>#WgfvLpcKbhNwLvQK?wJn-m!U&ZBj%>y+0uhdl8Hm#3 zZJvaPn;_z_Z_x8L&Sk#W_plwZBb2LrLwRFyByaP@8cD?*mgdzn==fE$V-O6u#5RcO3cV4K`#P zbq``mhdXRKrswY-D+7J$iSkR&W6O1VzFy@^PYuEZrl;18eIXZu0jj6%RqFtCIMeg+ zXe&KGr}?GlSn0yIY~KP9b+nM`Ni%Qtws|{UqwjG^lZDwj8>e2JL6ltv*85Q1GT-!wD6IK$jNZF*rnUMOw`vqH7{g|h3n2S^IhqMUerqOKGRQ5|sp0k+03EivMhb=+6) z|KmMPQ!vP2Jx~^=u?~g%mAWGqWCt%~YE5mWRABDcX5A{OwdxkT7)eA6&XQ~ZTK)Pw zhYKxS$Fj*YssaQM3BT<^Lab?*o^0 zb^iaqky|B2p~A9diwet@8cW-3*}7FIEL2h`YPz(r&{;BtMa%MTXyND9#>$%8$1PlL zW1DSknIXAF;m|g=sH~`*v7$NzEn3tlDZbCwd7t;qEv@h8`}zHT-^cIqx%F^e=Q`K9 z&i{Yc`SX@4*q+TJiKf<0DuRXJNok)2RIARO@O<574fBnr)=Fl!zN&w z-FiKl?Q@*~v>cP3*p!z`_yKJ{6;DI9CKNDIx=VfhM98?LN)iRLeml7hkzRVe8X$y0p zn=Bh#H|y}0Z7Vd#JyG>1yM;M!9iN?Gc0^^h+dXLBIGZ1P$E42f*!`RtBX3Y3pmtk> z7CSH5EUKkNarLjJDSHPByc*4uZ`Irq?G1OLKKU1&xjjdUOm?!^65P_1y>;YXT@A2rdj?AF56X-CvNQQGlimTj;CBC%Jz85R8e-uQ%)6S zZ#*SclmqdUPimmF$5XmQ>4~SjBueP%xcKZBB`uz^>j)lI@04{vr{t8LAIdEwp1V?% zsqvI=iINphDH0_=o-$vQqIgPJl+t+0WKq_|Q^tw1Ii4~?l5@sy`TIS^0zy(sPRlwXO`6HobpD4}QKGVo4O(&8y)qGZHVt`%kK0EI?sx9?Kc z*&Q_EH$xm*0f+5VQW=eOu4R6Pd1n?icXVK%U|zxQSGw3-WJuX{J_U72Xw6lehpk^B zamfDZc9!7S%bopR+12?ZMaoOO(z(C;3N~};f7&%zcvC^diKcPoMdw87*ExTS@Yk6h zFZog@xyo^zZzVI9{EXCW715tE_L(K3>X=x+=Hc{if|c1XMQ(j5;r$aEOdYdob?y(?UNEz0 zL%If+gJwJDgy7)_PJv0Kmp$TW)JrUn&6imE{q9`xCb4bCdUdvM`wkgueV$sd>0Z`7 zL5bOHT`z+9l~#=dvk9WZG~*@T`^j75M(|$}D`uwV5+dE$Q8MF*5qzI@>@|N6%W;8q zRKR7Q-*j&|!EBqRVdNgw8EaQm|HAS()=i#67qMx*SnH(@HbYb`BCa@Dij znL(3hMN9?uA|-zBp8m2}^(IfVUGm~;2%6eUYErx3p#f0veDi`Ci{ z?j(-425yrw3eO7M#5*bD;z9PDLH4{s_5uza#>>keWWRh6|0RR$S8<&)-v6vY?pcHE zvj^F82ifNh3jeY}?(+xPuNY*%a*%!2AbDAX?6U{ia|hYy4U%`+Aoux$>{kr3Um3HX zOg>G@x_W+oF8eU&^Nte_?#!N*e}2J&Z1d>S~GiS{NidSodxpBD80|)eiID9@hbG$+4wt~+C-Sk{AwbRbZMa-m< z&5!wh2Fpz5kkLPzhrg;;py^$gKRcUF8}QeRoPTTQjRhuKytG(oUeUbI9&XclLHiY; zF*>l&XbP-LoBP^OzPjkY-fH&&%A*%)Tu3Ng2@=<}XXm5o(hGO^-JP8B(< z&@%0;mNm(_nj4l*(qV}v^KF|#{{_b;vsIGkG)TuY5M!Tt56p8c^B$5{hi#>0t~)Y$ zwr_p8Gy9>0&KW%I?N6%}{EJM}quI4Vk=f_+cWg^nN4cCLj%M@T-&N*ByZYFP^dF%+ zWU+XHPFUFsP+8*QJ-;UN9h`JHY`fpjo@E`jE>DDnSEiFt6S;AQ4zXdV` zOJm2@^XW^uDjF=_Rd;Q_SXA;2yx2OcI`5Vx3pP+FtxC!Hc-O!+`GxqZi^Cyi-|jZw zYnq4`bZHs1op9VT*RR00T%hDi>p%rQ*knHw$;SW+&F7UxTrFud)ty>h^qRehQBePS zJ_w4{jM*jOTnT>uDR#|o{xOx3*>9F8d!hJKVJwfx!iU=~Nv+QzswPDzYM|c_eRn>T z`o$vm{-;l_gq+vEdP4CEsL@%W{*sK?v8rjLADwy`04_E^6ljHFCKI;59dVC+HzDs@7C}6M*m6G+ND9iSO;zwQ#vY%BawZD6t zRoDMcxuR1Zx4IJ)Mx|It>ZBxVGB0(wH6m>(oFCifhYL0O7sZBFiY`w_q54cS2~&5~ zWR81F?Ym7I)U@wBzR#qY5&B3JCQ)@p^({n5l!Yv_m|U<-+J)PQR=?kQo^V+J((u z<7Djjbz&!28T*lOwv$miAfuM^4(87%%iB(!huUX;X=Usv?zZu$^JP58UVk*Z4jG-9 zep0FjWK`4G&7D@p_Duy_k#U`sv9;KHNolF^Wqi-ds6ochtqi~a;EhYE1wvGxC=bLm znVH7#KQ{aQN2g-X0=&tbi9@Wm{=vp>vwsTfsV}Qmy2B7pU}@}F$ltiDJhtxH{^N!v zB~+sUd(pK=+OH{Dc7*$iW!K2A`WM&V*y~s?`StIvmt*zM9y2PltC3#m^;dnKI&oXl z2NxHmm(C_%UiuS#!qOko0BxV(YFGE}?T9eTh_ZA+dX<5@u~rI?7F?8M9>80D13Xt6 z!YbdvV$vOJ|&PY3FIVxD4UbuT1N;hR=l zOs!_@msDH_&33G)?ZI1*FNb$zazbuefjtH zzYmoA0cE~4P08lAahe|;@aISO+N89Qv(5hHmvN+t7oGj##eHgZuR5m3SVGtv#9b!* zx{9OA-gFqN!%>{ou&xa@6#J0BohFSev(u!Rmh8`zP~YysYQk?whCdm=x?Gr(^k;Z{_ci*BCyC~kseG~aSJ(2zTL0?l!nPoq z8qL2$*ilZmb}L~smgzv-c6mQt;bzmZ)tCo9r=qQa8@->|jfYLy)s*elZ5awPtT1`F zm%e{P_Qs~{s*!bjNIs91HDzyM9=y>i9ShBY3l+C&2`?aSn$NKSziv6gfuFw~*jg{2 z6nq9x1n`jZz1c5Y&C~it%ue-c@1}yvZR0dO`}0%@tCX-L30s}S)AT7DwONIZzl}1c z@HEZ-u^t-;Q=itE)m4h=WhRj(g1hT2ylq;qMR}g@d$I3(L$+UM zvze3ni|G=bufIrCbNCveR?y z5p))8T3@0FY`S*^VB0iZ$|zRNSTDO@wDHY0$p$SiDuFw=ZU)pD66z7{ZAxD+|!4<&z-vniA#T5{(l5>=M9 z>E6Zg`_*H|IVua;6~8yyNMgpOdl$+*q`Mm%t-I`UZ<2dR^~**oebc>#;n^+8*WeyYbtQ$gX}z54b!Nw$OuBjD+W$hqG1k)T&k=@Ni|g`x z&sIU*&EL+)nNoIsdM&W@I>dR%wPziJr;TM-IJ0@G_=?$A&6uB+nVIR<&?(Tv9J0P* z*|(RhDw=)cveFFeUt|0D)fWVJ57gcJ|9I4d0om>6uX#17wCX3G=d8b;ooAM*!G4pL z5*!<(>NRR`h2F)%7gMH*sM1n z#YSY214N5!e4d%a21zXFavOA?@ocC+nWRQx4~@d9vQ*i8L4g7_9_zTI8;_M2zLq2Yt;m6V=z)k-917sQHe+ovgunf_XYkdpd2rkMkPA($i=^)H0Z1`&E&yrgy$; z8%$b%GreQvSuFbgv;M009u;ZmDqzQbuVv>(jgxcjD5w=&r@UE~t8IFlo-PHW`71in#` z#3s&v>hs@vc=djz2Zaf-*=Z;6E%g%=#?P6^5Qe_bYZGxTz2}vkr9pU^nuTi9v*NI~ z=Ic_1xQJwOsL5|M_TpJUwxu!4#%n*-)8yND?YAT5Ri=KU4J zV0#x-_0iWu47xYu^tIGaofDwqRFr3WWpjhtm_;Rv0N5ek;!$&6FZ8B+9FTq+mLNrRHL9pxUJ}KzZo^MF5H`o7m}WI8(&EM(>^YQjU`pT_Q7kp_xYyaj*T-vbPm*L#}BihhxQY zJA!nUtN%=uM4$PMErcIni`{TldNntX|E9c4GbvUNkZEGcJzlZxo$~S@^ua1xbjq%0 zw{0vW6MspMN4uiJ_L;X3AKhQkF~p8MqNJ;g=JXPS`W%FrR&mhc_n9{?=c@KF4sj<( z4(FFW7>oFqVT*N|vtj4{+XP}g&}k~(%uDTCcSLmEGo?w~B{uiMg_4y^DoCGz#heXe zP+5+Lu;JoDtZPu{n*GNT`o#;eroOS=<$)NM(J7_?A4T6)N9k4U zO^)uP)3#?(7PuDUPFYP%Sd~=zxli_&exb84XiIq&4IfpQAt`q^cJjpx|4ffhOAzgx z7%kdzNyS@3R&!oK-%$Ht=F)_+6!40Mk1Nd3ReET97<$DaQ(h)UC;7fo9tkhK?zEvr z9kaZYN5&Kbt~a<*l5vB}3Q@DxIM{@p`=aoADG>p6WS| zKqPF-xSC@63y0343l`sPvY3AdMbkN=@MS ze$hg++rq`>w}Q_`UX^zDN8syTzHK<@KS9Y&&Zqc89d&xvV$)4cQXWUcit8NoNbac*bwW4^!lQa>u+tu$NE7WSXqWHH zZr1F8_j7qc=zw~mrtDT)9V-m0oMaeqN?ZT-Cw+CZeUzKbH8@#_Sw5bbp1 zKS@?&$GQ9sjtbj8MLpvDr7M;$S?$01swy?JY}tw;pz5;P;QXcETBf)3KrM~ix4O6H z-v1fDI$i(qKzYXBp`>UB?z3I`PLM53k@(8n-V9nM>Ib@u7gIDk9jq^c#pDt}Chd&d z<^oMHQM?tjo6n76v_hxBSMHL{i{sU(TlG${&X2V4oFj{^mMKrxl}N&M@`lR7ei83M zc)77zl2*J9x8f@P$YHEM`+Uc`>U1Bp)ZNwc{%kyL-0mHsJ*E&*+7aM5b62wBf~BG% zefJ(YSI2vqu)A5bjh0r?kYPRt#ymlt!XNbPtL{x%LD>jmP~rm06=I$P8UFe3jHz^#G-!VVb$wdT_ZieRrND{yv@--n~M!U&Pb0c2|mauTSGu zsy9)KFcBRgnbXY}M-Q8);^<-X@o9=&G@Qj-^aK1^=5VoolmjcPgw3cpZiwJ-CvSiyc0=&#n=m`nCAG;S3YlpuPDz& z&7c{cZWSRvSEFO9)D?;5@L_r(DK6~k%T%26a-3zHxg#$&#@fe1wp$ssF&SfZkDcI( z%pR99MfI(Ug5;YVe52+wRSPtFcX_47=G*~+?qhWMtoH5X)12VDX{=@v%HV7VYb%Z! zDfS$C)subs(luJzI6h2Dii(^UzDs20mhFsn9rLMbY=PTy(-(p4#HsL9N`brGnh%*v zt)&4I}{Hg@bkh0bO-eX;xImiiO*MUyA{{m4<^<5#0_T{zyZ!{n|W zPxldot1q(q=+3Stbj`9Gt()dTt5=q-;@K=~R|MU|(blehYiaosK0;)V?pc~-2YU|E z@qN}^2!*Y^hwSoemzI=ft+;;jpuPHK*RI6b$~-!rZ_bisE8=*it1RYqw1sq*dL?c0 zwZ%6C{yybatXI^0nV)jYDc5xt8=mrhvK|ABvlp$rR!0e}yYAS|=Yj7VmQF4$M;WTL zC@%)hqx|7IuXqLHY%t(2G$$rYBf-p62A^jA#X zz0`6$gFL~`Anjb@dGkleCM{~Ge{bpQ#f%GlJ7&r=8wzyTQ**an?*^lR`Pv*+_Fgmm zGPNhInl)YgDOIPy{7Nr57noeq0JvQsRzrV}2rZdb!`axe=wzx|x7MwU+crG=J`_QA zZJ_PiC1c5ZL7?`i=B$P0*%4O5{S`CwE!+8gvEr6ouk=(N(_IHI>ay-_Z5X@!w`PBrKYm`8SRHTH&+kh zS+$g}k@<5J&0m~8LG#bbf_MB1a@&Uk733e3wGBND_2{~j>552L|NFL(D?aholrSx9 zG%tyu!o2`xB)x1t7aveB?B0STvw@UJm$}beh#Idl`yY{8|KXK=SyhJj$Y{vagjyJ> zX9u@+Nv--0Iie$PvvR3w(kONO3^v`(=Joak9Ej`Py+@MImSpOF#TZrFQuloB3~a1r zv^tM{ZQ%g3q66}hr?rhskyT;bN>3~m28%YxcHK9&qBkk!&NFf7&saa|{aN1G|C;4} z5%_h?PcdDXDId)8zKwYtGZc5;Gu86yh!BlJJftO${nDX1dmP71haguM)-ALBV8kXi zC~VmFRCIP-plmMiFKyTLNzC`Hm}V^#&54M4l+x8fhIlcx@nSgC;1sq_%(#z~ek*3D z#B7t8QY&W15n^iM#ncQIGfiTSvSM~f%vBOI$%@&2gqZ4hG1Y^`6iUn!T9)Xmf_>&# ziFtz>sZRjLCu&Q)m@R|FluOJlR?Jq3Y5p8ytnMaz^ATdI;>A=A7PCcSrdlzZC1yQh zI={9ld!sMIeX~Qgs7{hIuc4t@8gLZrVun?DtFD*Gm@8UwXZ!QcG7k{jlak;*tJ8 z&XHTKK3#LnN!O-NT6yaD)u%dMf8Los%MA(EzoN=A_EhB0U2?U0Y-H#n` zSNIq4AqeXn#7}qS4yDQA{-L zJZs>cJnlp@x#^vYQ1F7Y z{2A-NyLo}Q`ZxQ6)cBuK*ifd| z&Qmtrs#k_nSh4w+Oe$eBZJILjO?H(769o=S3^cQH7!T8K;&ZtOiG?}#fFBB5f1HQ^=DniVcTukkZ ztI?bhAJbD|P)si;j*T6?#}35w2`-r{uBtaSuIG<0BE~k-HqOC4wYWGx`l&cGGd0Bd zQ}JuJmx1aID1P^8dQ48L){&EZM|vP9pK$TpMa&vI3ghEP#w&iRvo3zh&bYO~k@-32 zlfn7I{|pJH_*OCZHcGh$+Ob$qPeaI;IJ~*F>5TJaD-|L&-e?<1M!FLZr z6r2{`1lNr^B$f$R!mUg=*#`Ic(aHp?k#+a^dsLrUoAsa&r7YCDNEy_BtXS%(YJLz`Gv(L=Y;XQi; zGCO|Bv(KcD`2ENYmq=I`c+$8YLF3utF70z$p zU0GhW%d1}SJmf*BpJju!22_A7gwcwRbP7QdP!?%O)aPiyO#WM%I*5z{+_+m$& z4qoHln`fcH2#-Qev`jsfp=acc*UxcD3dPj+}Kc()6y1$>XopJwn}Cvz|OR41nae5VVy z4!p|A*$H0c{O$lZE}k{uxsJaYJk!b93SR5zo582Ku&TfhI+>N=n;p+O@GUN$Yrv}< zy<9wwUIISR$zK7!!|@b>A9V3q44&oah2Xso&j&x?YYR6LqKFyWILhvmjl;H54OVeoS2cN+K} zhff91bNmy*r#YDuz-wF_(!n=7o^jw~UB0D(=Qw&Q_#PKl5_qfQ34w2QaqDA8e}YR( zFSzHz>IUE9!s-H_>Ui40CpwvJ;1gV&Tfti#egJ%hi$gPbsS9gAc*x0Y0B?5ud%%kw z|4wid)B*4v&M)&NO=TWR3Z^psLvtR>^2+k-^bIikN$lvD-WEJBAJNxer)Tr*xh6*} z5YdQer{O+lSi~L?PhkXhoM%CdO+M-gj`yFEm~`|mYHY4(=~}i*_nrM7XMfMx-*omVs5Rv8A?DwL^BmM$YO=o^@G%jr$jS(HcN|R&eJmx0 zjRI@F;HWI`V$5Zj-xKpcV*Y}84)Zt6>zKDO?_)m3425qLW(?*e%y`Ts%()n1#X*Vt z=KlOwi!T2Chn2rA{O4bvT?k!!C;Fw0pe|znte@Pq=5M1&_NRuu@UdYp2V=lnFnQpW zz=I>RywUlWEG=5bhvlwYc0DHut9W)D_0E2z8(T0f>z^r2tayu;(#_ixg*`iMIg^*&xGY#}#C>?|iCC7H^QY(tdLJhl&pVGPI~eCNlBG4skHz#!8&l2^ z5u?VA%M?j1sITOG7Ro_dg*=r5=RwBf=AQ>imMWr<&m5aygrK=|Aoqg1b0BYl`sYC0 zS|~1l*ChuI5pEuw|#WvE$@j-;^l@~vjHg3^w6o(htl%>YP zW#5c5CM;DsW6~EKynG`rbXN6w=6D+eDO60FjY4mbNyo_E;H3m`lC1Dk0R(y;ge?9n(CW#q6!*QpMg-;OsBqX7ON}ssdlr=rIo* zMX7OU&D#{>U}K+YBrIu)bYio|Y?3P*f0iMuHDtEq%yVcBvHbX$2#NDoLzEvU;T(5f z@Kll_J<-=CltQ~4i2eiCPUBZ|@~dL6UB~hmV2?e*WRv-+JUAau?ttElF-PSAx-u#z z*Sh@oILLuMmjivufm<5lSer%K2V{U;=`mLi=LaFcC%R)BRcj+Wg?4y9!rUWI)GMCEtLr${!4Rp)7 zM^^u|SWK4VNBKC~23AXaTmud26nn~AHB;&Q7Ldliao}dpI1YsWYAk$P_fL!kf5M>P zL$TmHT=3tu8S%v8S1*{?5(cz2sOksBQyZK^L-a6eFFbb@XI2qVO3>*V|OBY-FA zQRG?mqD`XO$5>*gy;W%# z{dA93QWmMu77|b=rz(5v>xhB*Bi6FxM~@}fUQO=nKR>&B?LDzF{wbnk1MthA9HyO?@i%yR zp7!DAr*w)7T_!4j*6UcpNYGHyL;7sJdJHc~C2Jo;FM{4~l?m9<&7`U9V?n zUYf`%lwq9=JA$59(r)zXf7!JaEyY`J5ToY;%E~`v42grmQJC(@=PL< zxV*?ak!=`G88(?>TsecfZQ?VuFis_8YP9lYu78eNz)LV8FmM55x8J~4{0FLWp9288Rd6a5w zuLZi-?QX=G8&G-XPnvphK>rH}Y3$g+`MJ(FV^#ewxD=bxq2?nyMr@S(+cEcFSt%{% z?q%pGZf3gJTspN2notPO|_`Nm?!WQljl*-d>?-0NNeo) zoP>79IL5=F27Iioam?F*jUDe3zWuD)d;VDYL=tt{oH(4pQhjgiy!TJxWj zH(eY;Z9a}r+!^lgL5!O}$IfuuZ^meT#ruA3v6)4~@j=T_we79=Fd=3AgH)cN%9UiT z|DZJ8w>6ocvfhfeY@1+f?35=>0hu1{?mQ+&q0-N=G(Co(tTHb#;aEOY-7i&sl-vq> z&MN3S>xrj(Z%(Xe@zfGNp(QY_I;+48kTqGv`^%cI+!FFiui>=<^B`%4e!G@wPkCh20aE_E z1T&u`ak5GcCRRxMaH665+sV5>R0%EMFH4l{UOP{td_3Dz9fUI_b@r^4Hh zFS&l{YC}JkF!H=}p4_$R*SQ;7Zu!-JOfDKZ;-XbIIKE+wSJ8&WV+Z=sq7$;by(eaQ zw*jvQ>Q@bHqlcSHZs&{*d%bC4FKLY5ht>jvJ~S1)<`mYN!1Uw8-UMJKW*VkAoi!(Z zOGE>v9vAkyk+TKpfUTH1OfP0J#vez9kaHSG4kUVBE2Yy49P2$uUM>dnypefJZd|%z){13IZ!9f> zlHd)US$gBVZxn+M@sejQ{npYIoN8Ro@Uy~_Mq1K>(j}#3t4k~;)lz1at>XKtrMb&) zTv}?$BP=;**^Q;E%ONCsBXX|^M6I!eR0zJHSxZVvIr<*49#gEx{FS9kR!G|Fb(VPy z%yD5jAC=Z^^pS2GEinz^fDp%DWt~PH;j|gr5O0(X^@=5{Zd`Wb^{cm7nxEF}RjXF6 zTD{f!Ou?s3l9N|$sYwBKyR{yJH4xSBC;4(_pbWrP*S;ndYDZ%p)#_PQwQ5w=Jv+YlU5g$rpS5D;>ZO;JEnRi< z(OxdZ5te9=Yb57e+;7GquY^f&7*mSL#Z;+n4nKlPtv8dFS&W!i!{)eE*xMIQR&Qcj z)o}!KeSiKL{H05;oYT(?-JT$Q?xeUrcoxTpm<2qfDn!?qNC(H6>ien?$q1jRlYvZ7 zo6I?Ks8GF%hKo~njcG@Sd7D8lTA{3pBep`c$0#qTc(fHKuQV<4=s}B&j8=%EwK58t z4HXSo1ou0**TEJCn}M4u)U?bGd+1+%56{eJO4DP~nB8jUv_f^n+|8gLt*`>Dd$;Ma zoqu<)vG!Sof}Ig{p*^Z`~E(6zguxPU~)>6_s*7$GY2yS@(9c*}At! zE2`vv4DK2XD!;FMd0zueo1b6iUt|b7t~Q^{Th3C1C#{@|nO%LUH*QQnNXBX~Kq2Xw z9q-xcx!DSA?D#5wW1k+wIkwhdx#X_;KKc2eY@!S&uJoPCl_^+07WL8S3i-{P{u5<5wlvLf$3 zI6fft%8E5&pRG`1S@9m8D;`z#^S*Twd9rO!6+C~m*%f5VQ}A?NU-76avE}O7mVPf> z_ggM1x*D4Kg}7!^JgT;1xw^OQMXPUawp>(q%T*z+6FJPY?Vv;~w2stu>!|g%OKz+h zGVMB=O7MVcZX*r!?mooFW+=-@kxo2ojb@I2R|WH1&Pv4YV5vL?l}r4&i+{z6q~Esn zsNdpkL+Ue^viz|*WgFs?@wj8X~N9z#c}f+}-0ag4?66B{$$^dLIC|D;Iyhcw)q z*0Gjx%PB#%=(pWSd}q>U_G$X2(z2aN_GiT*HHgE@bVso`dydtQ~fxsvT;cJ>^M}w=T&Kk|7x^JX2=jz^KIwFlz1AW++ z7%Tl4Zg@z2l-9QD^0^}x#Ljlf_p_FX+Wsri_GLa-uQ|*>s6or`m~VzFi0%0J*j_*| zvCd|ejq=~#_Up7do2rWPOo37DreatTV@G|$g+GjF?SjM_SmA^8t(S)?z zqLsI+@x20B0U3Ola|p;rP7@DvP%D3q0@?245zE)(^Np~4GD@l#)78I0~Q)4_=jPH-^8 z!E^`5IXKqAGzU{1Om;BI!H|QVgMCcV6ke}`Jq~s|*yW&cu-(Bn2M;>f>fiwfTO4e5 zFyDo@*ufPRHV>`h@L@0lT&fccHM}er57EcHW9cMCL z#Vi?EPB=Zw`vT_6n0Lo#d51AW!Ba4Q1Ah~PZ10Sn%Pzm6=gSxW=%nK0`G0xsl`Py# zGlJTN}fk zJ38?3LJWH`hRr%AaJ?ahJ;e!sKeQ7#7vN)8#IPG;SVau`K@9s%40|w!t!2jNOBu>r zbUt=s4EtUT8_q#$^&ZNGBl;GbFMnYW2wXe%V`(n?LY8+2<{r!(%oUg=m~UXdd1jV( z3uZm$yO6?^c?9z~=FgbtFt1=bFz;bL#tg^*(U=o4<1uGr&cn>YP`aP$thPbl zAqRddf71B9!XYDO{P;J+dRJVL^HjXsCfe^=oZ-L(zk`!F13D4WK>dCJtVPs+)nBcf z%$W|__Wx;rH39zriT%}4-Xr9Q-#Z;EP2|cO(O<33U$xZsQY-u(Y)tNwYnHC?_g@B> zG=2>6lEi!YvZXg^7)bPz7L=@5R$97rRkxwz_oX4Oy#}+%&s%=?$auU4(6qJltx6qyY-k$*cgXht2~|2T})B=Y}8Y zN7d5rtVg@f+DW8GYe=TjQ?{-VDh?#HFS>%r(t+U>dh>|hLHu{$P*3^q5*d#gVnUBC*L0m*dm93=xpitg)j^Q_qP zFa_=$Ro}17!}>bb*qpTznHsFR5ybm%{PhQ`=*;8~!lBfZdmA{%WAPC9)CA>`Zyyrp z#ui$PFTvsquB)i~2?_K{k6{G*6CX*b*p9XTo@)M*u3+!|>g07#mJW+t8cOX9MXn9K z!)APwSpbhxPgsn>V%0M;w+xlj?I9d@x8A>xtO3)8WVL~(uIE{oNqCFLfoH+2azW``DN9_mYGD5FZSF-r2Mc~`ZXpF`rPaDW|lAZ61*Ai zN+_147a+Yeuw**cXU$YUI>(&r6b3$MZBk4*~a#&|(`pi*S1E)=Lf*6gIP}b7iM95^TFAL^l z6!7tO(fv)0&if9IN)=BCKZD_<9tBF7E_lVH^+}( zkyH_Q@r2vs6>qM!)#3}-D%#d=3jML1wPkc_oeio|-nHz%6J(%1@}?A$^dZu2o!Qbp zBaO3&?$Vzis&Ps$ZVvuUTei6BTHT$tBPdMLqhF`#$p)YByxH{{%{DJ|enBrc{@E?= z=?w99S6jucJznV)Zh)2|m>qCEh|ny3-9>F`<~&{8r~ahPmcU3Y;L$E?-5P7!-@u~| zQjIyJm2ICH1#Im24Uq~i+%q_ zN>AvV7_G=xafOr7r5`}N+181)G4bS9k^ciShluEaq>8(<_^T=KekcvtLO5kOFBM#s`BT-VTvH$YTJVqp^PzgrpAvs8H?BL9Q0+8Z zsd7~F5%#r7^L3(zVBS^X9$rjeXZI-Po*UGGibrc~qP}jQ&Prn&#Ee$Cb#Hh`4%Df& zXa@3@OU+y+%%m_t`2BbpnMZlj-&Ba#{9Vrr`{)zM2-HHO)%E|UIASGUK=>-@(+;Yn z|M;>xbJcvhjKOPuNuOUb}$VwCUY&|8Q5FPHYH@*YxEM|Gkd z=PmD#j>+U4c=VW*U88#OO%e}Ktg*Pg>*97NQW`tXv~jaB^XmuU`|ZjvNu4ItNU)3q zQ}gx6qhA)8gw6&tAKsd!vnFdUh~A?zI)7%)t>^e?bbjvn1%0<==m;gFjxE8{^)(9h zgrn8XEl7^ePcoy4f-6U@wcI+%E)Y+9i9q7kO~=aqtSRQB52|lAt{RqN^(i}v$n=+; zK~DHLJ}HJS8f|n`1l$E*^qfiC86h9HVof%F%Q!wn;A&u4Bz3(i$hoVX^z@%F*+xe zT5FEe=PHz=6`B&6(_X>9I<~hy`cz$ZT21@ff626iZcgp2@`NDlFW* zKhAc{zuFit%JD`Qmg{rL}Fqmx{i8LweW#f zT8Mkias{PEq!mMO{8)*$b{uibkrGex9?7@4whM5ZU}ht;*x9-7>0-eAxMtJqAjg ze4g6^o;d+etPQD?>!x~`ACf=~PHWB&3ewF_^ODv-bKBTU%y|;h%j6_4D={y(;)xMl z4DB4w2TpaCzfRL_bK~=t<*(FY&GF5Blpdp6^gfj(O;MVM6?XjLjJutJJL2M~{Mc#g za+P@NhLfGAM(c+$WFzs44mZc*%`)3zbB@n^b?6B0`YqzUIAp#KGhVkk>kCYp6<|0w zk#Uw(gXXMn;Mhz<%HzGEXzSyzg(@1;p(hrGT?Kp=KW8uPSOqz#(c=B*)E2(a zUyT-im)NMQ#SDA>i9n7wvdknEkxC?+1g`HkI{afku%WS~n>)LASl6E`L>mRCnqu2L zi{9;y&G;3x`l|Sbd%Hf;q1K;noBVf}$kF77^;;h_!1J7YSzFT`nkuLXRxL0eX&E4I zBX_PAkJ_v6?jsy|-hJLf&V7Mlifpw7GG_!i*5F`d-61 zU%nfz!0iQS-h9f+P(|>f`58$#-5@8!Nli}6mL}zt9+gviM(0Q#YM9W3J}RN}6#9+P z(dQJ>Dkh)g2Pdlaq7z?zMbg}|M_?$7tjXZe*XR7p@cT?FpOy&l1K^!w{R`>)%pc@p zi*TQ*2PX!97Esr94E2LxM%rLf)^n^{>FxLRisVqG3U2+Aw;d1l8EN0T{8u{2E$k=!cXW`&$o-$FgG}(wCg#O9 zXGhLidc#Uoj5nZ#9GxG$B%KsvR{RvB`<$Li*7J4>_@kMznZukOt7bd>S*G1}yj%@7Ir6}|UoT)YOs8zTomvoP(!4LbTlK+C1Ey=9F<0v)zJ8Na zVHW4{))7N=_v3#bTJd;MeWn;2d0zAT8mpNM>?M}8uRm)xLqoIE3%w!%^1Xww=%eRs zHxsUXqLbHb8_jVnhx@a;`{#6({YPv}+>Rhl$ogk_+W$&QiSx!54Upf$#y7N^v^?Y$ z=y_P<)rYiMJ+-NEbMRX0z+V(C^CMzM!?x=OmLcX=B*gFY@FIPqX;Bi!*bMlQyrCIs zMWppNSne8M?wmlb*4Qu7MfU1(`+a8pfT;Q6)HCijH`Ki}4=v)6l8)bMFT`Sxva;~8 zFKQRa(*7L7W@tai(k_l+567^^7&ap%;JYP;-5kRPXm7`SoECF^Jw`h@MtdDKz*YU6qJ2a!Xw&fy)i`kNcneE&^MWkuI_8_08)jvBH(_qaL^1bb z?#KKB^AP6un0=V1F)w3Y$Gn625R-`iQJCW~r(n*)oQt^-GaDm)$hklL=F}H1dvxBe zU#CC)rPuD78iB6E3;N|}Q~j~)S9lRHC(Bz7oPKeZ*M#{iMkjv$t258F_)~uw=G^c9 z$(iST`2SshnS=iv62kmwqI1Q^K9XJ+n*w^mI zKq|JR;g^*yE5)_~TY`6#deqrBaEQGG`w(wL{<6{){`OEQghX~6MJNXkdB@W47L{FF zx;hVj?lG6HTDd}}V}^Po{WH4ugmJ|Ba}>KJw9fJjv#wv%$)O`RdNx8C?j2=gk-Kbl z>2MD9PM>|maouCQt(RnZBXwpsYw2pjr6JZpNfKp2@yeTy^`_6^l?0bIyVZW2mjx+h zAWJNDtQVTgR3JWI+_B+q=ynIkM#K^myb+t;lejMN9A; z-`l(X*j(m>Iv>}_huh8hDnYp2oD<=~2mQCy2B?Sa+rAI)vm5!7(eX~BwTT>3Q4{9qIKdxm)eSX%{p~&tJ49jKUgQuaH-Xp{nn{# zTc$KY4_GITZK?H`2XS(--ms;M2DUF^_}fN_M=R8#hOWa}A0fWxX7a@9dP-O=MITc8 zYPuuL+#*494-H`Z;dRpXh0FEuV@&o!Ec+sb{N0PJ*qB~|1$CT%3^bJh8asa3G@$tL z*DWU^wz#ykNebY@hO)lb{!Qy3;mebHDuUvKg*}VJO!{-F=<_~MnXsfhj#UnzR zhM0#*U!J*;i4FD5>R^~#=?+nsom#c~n*???b{hr@9(n& zkKUnf!`F+UWsw>Y<$-zbMaD2bnAXlxUhbLw_f-+&XhA!7h<0yBtoeYHaji(i9z&&vvi*%U&YFw^sZ^IFDgNUn9L|ufD6;=+7l7 zrwMp9TbXmQ>OFILreh7W!WpYJ%Dp#9e-cP(xu$mgpSF?LNS1eCN-P&ksMK?dB zM?kG=_fY2R_T5i%6&+nXT#hP;Z6_-*FLQo0EP=(Dgvkafi4-58_jK^rkH`<&l~BE|q=BzwBdhXrcQe_4nb|D@#QY z%ALNxNZq}%mnMOmG4dZMmHuHfk_>i%Zy^(ci*L`EnTlk`#70uZ_v_(O2cbExwhGv# zuyfv#Io_rS_8%4{Y5z6y(eRr_RJ^)2<$lFcs3#(g9q%@f^+pk35#v9gL4x>^8wJs~m>cL* zHFgu{hX<%Oz0rGYf4a{+fK_@Z-c*-^*tTF_^yWca7W!aq6)-}Z`Uqrw^-{)vPiy~lP@ z{zk?fc!@=5!;f{6V&5Ir{M||CJrF@1TQhGw{%<3=2_4y|^5|R79+5|DvHE#*gB+Ac zt>|scpS689D35NU_liYnAPUkjnQQ-j6xj2iVg{T2u`>mB?1+D3<Ff;lx_*d?*}PH;1SqeE;GPe$S~x@q^F$x^*;yHSIP-Nr{`!Nx!)M zgR*fX%s;~ZBE7yWma!R2=NXESwLXUxC4nzsg0W5A-Vy>sNLpsestup!qeO$_} zh`LW`5p}DA>NEt^PXv3l(ikp7l8xJCm1!9%yV5c$t(dDCE32#s+Ljdov?733M3wn6 zJ_*b3h|Qd5e4Rbw&1~U8^xCM-(lu)S$auDGL6G(RL-QVsn?%*%(Acr+_vCZAaBMhcO~*cM+<-mi;E?IKAN+jS%LR4;vw-cu;5QZf zx;X!1v6paOx)f-*qq_pwpu4*6SA@Md&K}SQ!_Dxuof7u)ff;f93$ahcz7=S2Uk7Xf zt^sz(@omK33OyBAeq1;veh2pAQ_<}LD}nz{e|sbs|2u&tz|Z<^$Gw+$>;*>R_>$x= zE?x()C!h7%a@uiUocU?@F6dd;e46h47r${!s1pxz7aACD9`K)pecJa2>?PQDJ~d!3 zm;KGK*F(6yw}ico*jwKkaQEDAGxX^v&IqjDR_r}z57=W44yna`?9DU0X5fy4GrY8G zcth{pncg^HbHc2_?4N1Rgg+vm9D*6{-9q_;VtHob4cN^+} z2Y@xey})YV9^hyF8gO6Z+UJh=cKTT!{x8z|$EQBUaK;^#iBJ15>lq*BSy(YCxf<=+ z>fuuw9!LdKztul}#dAK-8VB1rY9Se24vu}nw`VvQc5tzSTOHi%V2gvzRxi;%zSY5Y z2fH0CM1P@hiX4nMxY5Ba7FJ9eYvVlB{DVbtV^#n79gaRu^u~%wdw;4ljWFl%Y?fKZ zA87l1T3v*eV9u?@W5uLqOG~LcSOe_@Xl8ph%maP*QmU@MDj zhi5%}xc`B1a;>VEly2QFz^(eP#Q3xu`uZQpfCi!J&wL#G7{0;%z(k)g@kt18@5J{6 z2;27Rw9M~r`k4Hxm^4jth{trn)g$WihM=xFfkZ$HJGU(7)=mpELwz?r0hzG+%({FJ zVI9A=XM=MWOh=gM@y zgL&w!L|^D&v4s_rG-S&E5bHmjfr`Ul({Q$_?f}ipEd1@j)FA(%7+yc_S{$c9FikJB zc6tAA{K+EH`k~SGF3HZCo$l0fOIQ70Y=r+midI_xcft365^Z?r(Z`sEYn>#Ms`b)Z z>t`rB#Q)7t-{z9;RtFjiFJ(L&VnQo`ExaZvLm$4!7UE%aB#1Ktq!(3*aPecb%c`VFb_$5H8jq_ ziNM;GuZF@7<~vyIV8p@A4%Rrh)4{#KNoTwoY6ZR;dNtJTU}!FP(Ee1DnC9RFU`=98 z;xq?y94vHjg@X|Xw>Y@N!3GBpIN0W34{-lqYZ8;@@m|RpHHjI(U5UFAr#hJBV7`OJ z!1TGh5+lG42z`+)oAy&g&{pgzreGc*x+=Vk4o9N?|+6$94*Hv*^Oe><=odjs&F zP1_UOfro*qmxsOgfYX38=WS112zO-~tEndOAaFYJdVn`0 zFZBxCFI%2C0r+9luEbp6kkA{Ug}`52_C}~2cmezyf!~I|1~}d$9>7xU2Z4(c+e2Nz ztIuc;g$l#ouMhqD&{zj20)KVrSBIuMmRWjR;~eDKhNhl(9s13dVr?TH&5 ztZ}f-!EOgbSB1Tad$%VFP6m#3a4K*T_8bQn1CKsqdty0odm?fjtah-@!Da{B9PDv0 z^flT;;=_sK9GvQ4mV<>37CX4c!OaftaInEa`G5OQ4=1)b*arOK-iH%=986jm_AVQG z+0e1TW6yXvF%$UPm2ZTy9L#sH$iZ?4s~p_!V6B42|g_k0IS9Ng$&4e)-_zsJD?4t6=%=V0<;pKqLl6CKQPaG`@G zz_&tgg(`vbX~$cD8<1ZE{0-&0$3c~^?9I-8(7`STy(PZ;SO+IM7x;uh|XV)#W`)>z1F%!{Pm>f=Me3mu*aUhVLZ_#Mt&l1Tb(K0kY;kz$8S zX0^j5v%%q#+2(M`^w#=*B{SXOk{NcmWG;62XU;_lfGvMbCG9&_O56WuhCR>tU)%Vw z4Tku7GU*rtO~LE2b(iaBu%Y$|*g{8!Y!u;V^2<Jg)}YSE2c7vm~z;TG$q#Z`a>CXfxo8fCuH)0Bt5T8%8>i z-+pMbL{na+i{g1L(6U6s1hiIY*`g6nKx>0`k;|(fy$0IFqNNYyRX4O8`Az137|5>| z+HBFt=hUz${LTn_m&h*#9PlMUyVS`G_)?+eik3ORHx}9)(ZU1r(xJ_D^2S2fZvwP= zKn1N|IwliZ9x$MV!KXpHERGfd4?~+DM^irLKr4V|D>+~|CJ)->xG8NeiC!VJE1=09 z&=y0x($OH>`d8-1iFaMl^^1lH_|l=R7fs;9+RL1xlXi%GVrdzXJw*VemX?4-wyh7J*g>ZD$-! z=~)a-Z)yj8@>>k8A&#anN}&B|=m4McyBu2kFdWm#k1&v51X{N|#QiFvy*r3j1=(3?2dAkI5B3upd(_o-}xl^Sm|U0p5?<0bUL4$Ls<3j`zHiG0ouVzzZ=4 z!Nb6-F%O@*gu5JP)`QlLa0DzJkdIZv*yYipBpq z!o@^{p9nu@v+$F^F*V>3;A5D*;0?fjOqX~*4~`kP3;bkoOjvk2^$Jr6UIM%yQwm-U zdOCtq%MQ(uTvV;S-4`W+C`u;95)xcm&vw*(jb#v^&gJ@J!%Z zOr3auuV9+RGZ{L@hz{(>B-cYf8y?I=@NQr~CQI~8@(NP|9tPfz*$iF{?8nrI=Zkp9 z>;caNeizdMUIn}#(<6T1W0=sRwm{RaCa4lw|=sRc^ zFCb2MEA*F17kC8Nk2xUvLGV|o1H#+Dduda@2mcWKBl1xAVd^I)A3P7(|1oV@^iSw6 zFxB9xz>_h1z|(CGT>$$rnc(Wc-@)XAcLSxXUn9Dg;H||} zfk%M-m>r@gBzPBM_JfCk-^H|v&Z6dQEo>emT;M!R8h8YFKPCgb8u$uk8n_lb^Dw#K zdBC-ph2jVP2D3suNrZ)2BmAfY?_|st;Uf~ft1&x-rxUl+61)cC8OXsL5Z(eE<28Uk z4UWkW{tV$_rVD=-IhZ2w#lW?gb)p}D|Aho^yKrxa_sY+PcrC(vhj=G{G{oz(^wH$c zXm8@<&=W>`?_j12rxWj|6ECv3_B>L(DvRUv-~Xk1z5c(=Pldf2j9tGvIYZ*)ky7vA zs2N^2CNz46Hx84D$-ykflw&qyYA_9$R?N6lX7Iiov@g%_c4GEm_G4Nw2QlrKUW_+w zhL?evh}n$UiWz$zbp1AkEf7p#pG}tXJ7;*6m@SwZOdX~f(~4=w^kR}Kk%7s;OvPkj z@-d4sC79Sx@`Es9#Q%3l_?;PE-j`;2`Ith?LQF9xg4u%EiD|)fVUoT))62kwF$*!} zm`cocOf6;)rWsRnYSHIqD`dv%W&RW2%PuQ&^-SW=-t%u7>HT)P znRHH>mA{&_Zl}9QN9}YE=@vVkJ+a8O+D;dc-fE{yNbk1OQPSC$TWzi&t=Q>G+Ud3X zts$KiD^EJxPPdTGwbP49=iBLJqzmly3et+5UPrpvPH!MxVyD|lPqWioNtfB_4$_r& zx|4K`o!(8l*-q~#z1U9ol3r$~vzW^YJDo#%ot@4ly}?fBlWw=u3h53zt&{Gw)5WB_ z>~tCF9y>ja^nN>CNxIig*O1P#*RYv%j-75HoolBTlg_u(%Sad4>D8olJH3u{v7PQD zU1O)aNJs7TZqm(mx`%X&o!(D+v7PQEz06K$v!5&MbQbB=N%`ySbPo9&>~t>ab~~L< zdaIo-Al+f771Et{S|{CQr#H}ViJfjIU1q1ZlAdO#J4jdB>1ovMwbPZPvnE?-vW9fF zosN>uvD3|@bM15s>3loAm~?@iUPfB6(bojQH-k2?6?B7M zkTavmC4o{91+AbBw1b_X2e>L&4^RMfu;TV2*Lu(ac7v=|)(8}XO0Wt2dI+PQ;xsi~|jcUYV=VK>|1rhTx2a{Cq#pU9exJd^y9h5S}*p=m=B zbVS@$aptplzMS%5M_>`)#zdPoi(eC(gAvlP$Efk>?A6pqsh0CGJWd z^(uM3nzB0y!x6Nh1qeG%J9*u-CGMKAFE6C86{IEl>!nU9-^)b1^tqq!I&Ds)Zl^du zl-o?X4W#qvvw&xUF6fjSM)_ju>5QYB{%gpaN?TJ&xAClrzV@@OI{k}#xP*4v7|%{V zx007d-NBU4BX0@FrftDHSMVwBObKP`X+xZGL9g=3TR~dboN~k%K_2znz%<$tbfSc@ z)Q~S|f=WLHe3tQD*iP#ie;Lo$P+wwvF4~S#XD@5KgJ-2+8)H`}Uq-z`(#xqgm9i>j z^XvJWx#X{7eW%k#FXK5toow>9(N{C$-OKku)KPh!%lDDAu?8$5uT`{78%>niKpP5u zFDFm@jjSbnj^tSmZ7pMtgJ^FvYq1yP^F2qj#TZ61mICG~?72Cgw{y z7k#heQ}Dtb@yVQpZD$GnPNS_2K+v3Z)NA2+E^X|fpB=Qf7i^^dAU+3!UfK}8i-qLr zl-KE7Wt=Uvxs2}xw9`$$U9=-;Qa9t8MmndBzkkiMo%Fkzx`XLEhv!+M4yXb9!Fu}G zNBeDHH+}779F?@aM$C_T2RJ_)#2mmh@>hcn(!;2?fpOPUW+eS@qy6dRE#vt<(%H1# zMSFwke+|#qlQ#@3V+?{uc9UMmr{MpBPt;Rp9C_`0A4lJn^bw`4ES{}n9-GPQ=A3M% z%uf1Q!)FV9wD4>_b(<+$Nqg;lD&#d$zLPe_(f@3ockrx}XB()qmCt>&kuT=Y^KFz> zSl1rPbkU#0T6FFp?v!%tNedoufbyl3J-`?W_})sLeA>?fJ1MgU3e2pU%5COzBz1(%u#h=6G4>Y9E#$M9dAZ0h zq1}v8`$#+qH5N!!LY$N5@bH?+TR}IJ(>qOZob(=vqM^=Z7c(wpp5S&eD>0IHi$BwJo+BT8nlYJ02kkP^K2*S*|asA{sxm*L*9PI zAd$bB_H(G)#W$o{RmeE@lHbGkDD9Q;|9<-Ts@dxxmY_nn+qp}*8qZ#8+FdA8yX-U(o?i@`?rc?E6nSX6BKaY|Un zQu^zqonee|A9cU|_kZ^ata~~uKEUYfS+2o<%W`daCXsj7M_I06f6sDlOUiqlyaMvN zpG}mT_Ma?Q@rzlmo}|3B?NWl4D-kavK*4M};qBL=#Ly_)6PoRl|{ynOOHlJeG* zCz02gl(&~WmAtN`yyMOs=qe;{e^TC%{DIu%ELU$*o{zlgY_!m^>vZZ!dYv$tz6CJ5L+vT20=#q`VUH){$41l(&?;jpS7(O0Wrh1ctql<0PW+-0y3Yy}6wdGBzR zz*6uc7_uwNC4&+$2eg9qpabjy!`@{*K@(U8)`4e1H#h+DcXQ^z3h)sa@m`i|GH3;x z!CT-U7`})712aG~SPC8mFMyo)c?L>B4QK@qf$iW+Anna^T@CI6>%r@QaBo)umkAF$UT0+xUc-~*8NA@c((!DjFgIJ$>(1`JRJYQSxv4LkvMf_>oVe=;wifr+3V z+yYjD$H8{62Yd;JeZ(4rao}n&4~Ty&_*@G%f@kf#J$z<;%-F!yparZ3-Qb9Q>;%0)-_Kk@I~e>~mg^$0 z9Bc(2fFYlA-arfJ1fPT9|7NYg)nF0W40=G`fh^ZF&;quCgFyd+F@mk&ASgMQp%zS0Ymx^boszEuncSm zJz($v^1&Ri2J8aEvj!5s1YHA*z&h{(*avb34s(>7c7d~x80abn(?K&> z4%UMXup7AG!^43FCW4vZMz9P#3bun?!2Aa<7XR}3RKNxH_ewsSz+$ihJOZ8oFMzke zKJX>ThDYZD35)@gK_!?6#J^>HJ_I(~-*@wQ5DY$gplbw>K{1#L>Om7&1eSv}U<23! zc7i?Nb8y5l16@PGNT7mJFda05yTD5DDA)pC0ee9&7?KTd1_~Ghrh;0~3RZ!Qpabjz zpM&F$WsKlFpn?m)bWjf#gH>P?*ao`6C%}b#G8E(k35)?{K>Vxcb0Js?R)dY819XFZ zz;!%*f?O~PXy77n1*icFz+%t_Hi8cDI`{y%kavay36y}zU-oxu3O z7;q!l00s@=T!As561)IZ1|1+Phql2&upDdxJHXJB7$=wsHi3g+=uq|+Oav`p zCD;h|fMF-Io*)9&fo_m9Y#@JcnDKx|!5%RDl!2}ZU?Er!y20S#%nh`Hji3kQeuwrz z8Hj?_pcCu^`MK;fSOivsC%`8l?^N0bO<)Ds0s5cD*#MQ`9(Y*iWzoJPJBN)(ETqNIu8e=?I@o?R2~S z`MLc${7lXVmKsk%^4%UEfFzjsR1uDU9U^Ni`w(+?a z9B~fk5KITFKo|G~WRJAUseDeh(>LkO8Hy&zlRY=bL+_;(|pE9~@EK6l&c z;Yeb9F@5M9h3s` zFUsdKJN*QoZ-HKr6QC^6f%rF#&l~OZT0Xbi>HT~T(X2AM{W+D-d3JgwpHF};`+F~+ zxk1h%s04R`PS9UxPry8|3Uq)GA!sO=1MUKkf-Z1`!8(C5Fb}K(9iV@hHb4t_1iS*W z3%QTL0FyyI5dW6(xxr4q#pjoHdgN&M3lRUlm9f8-vBf#~R>uBT#{O2u{#M5RR>uBT z#{O2u{#M5RR>uB+PR5QzYuu7_-i-PhA!!v(n%}_Rw=Ar#t&Ucg*HkYs{~~Apb=O7a zB|W{Mx;EpplDhIr{@~`MXr#J!mZ(@SOLn9Dv0^))ziOG>8-GoczYjXIyrQb|(iwBA zDx!tgOsuM@DsQNwfrjLs9ZHU_q`#T5g7F#jEqPgERb+m=Cs85NAx}+*vUQ|=w&~V85W2$D>MXJo-pyr3L`4gw2mBaKodL~Q4 z&t>zw)fws(GMAY}+wY{OR7rM5FQHj*n-a)$|R^$CfH-o>u>L_4EJV z=)X_D9FNHVq+=S2@ASl~S^RQ%Rpb(Wpu8r1YfGwUSoz5{3XA90j*dji=Z|hM4|np} zj6W-ikF9>5d9-4;DqdnzRkWn4c2;zD>>%_hF|K-6{9$~&@%pKi6VI=yshL|>8EZ72 zKc%{|s%Un3glc7VNjGywb;{g0=AvqK>X_}zZY|Hes5@!>3S-aAB@uP&DbSeOYOD-* zzAj>pO%zIQWqgd-h`)B5q0AJ9ow90?_^B4NvnC}vj<2MsQDmRaCa1!EOV6#3EnR9W z<M?K<+(_ozXjPe3apBBDJ15{6~&z6e%PM!5BTUJ*(MI3`eR7jck1(CYB zC9LA%2ROR6q1xJl^zn%{ro@kj(>m3sokFp1qE=$8&b1tSicQa{$_%F(hpLdmqYA~i zO6+Uz)O?05NLkTuUOjcU&4nzgF?XbXUg|wF&wK1q^4?n;bLq_3R4Y>Ji5*V4S;;i5 zw5}obv?O*q^$v?xU_4b(lTM`YwnFhNb`w*d@COyHYqT%#=+tAD=qPzE$rZj%d9!cM zeQfTDO>%DEEFYIBAZN*E#+-)(jWF{aX@vd6q!Fnzx1WeP^y#C|oj$}^&HKgrW?GEI zgcD>keNLhchbx-swcb23@sljZF6!`M%Xo?Vkf;=ClGT_ADtd}h3#5RizPoSJ zg4n~9)jiZb7cIw0K=R!v9No}R6)~m3#I7e+FX~Rc_Y)gy$3`M`=E-Rkla7yITzO4Y z>T@y$mrk4^lPsj1T=9JT-1@pmwC^+i&`Tsbw#kwqWRHC;O3N#*OS+<&8B_YbR{hmwfJHElw(*Sycp`N!g1&>)<@@@wKz7BGu6bLDsD0>#O3K3@>R7 z=?ZP2Txf=|gOPYTy1`sy$E|Q$?xfW&9REMB8(WJDB2{rl96PPCXZbTKEq>v++W9jo z4)Ij9o2&|pCeqvghT5`ya?Ir_EsyYL{xWTVLtkdC3FULE#+yXPX=R;g;h|dkroETV zua7Tvd@Twmm)DfkSq2cN0Yp-1@ded2H8GxqT$f4EpVRz>XxDea9;YAjWMjB^6}wA)pXN8!=Lg2e2%9J`a^mV@!eSCHold!v`>@Y)qHK(cBp7GnS&R*` zy@*kX{FotUY*VzVwz5i0&K{L)^9;;5K7Mw=&W)8XDvwkO!(5`g+b%z5ezYo)8{<5} z7&OcLDP?QUvHUT0br>*eUDsAcYO88I@_CgtW}9U-4d@9R>_*WT-`LC8x01Sw@)~m! zML%MbO_Pd6vq!sJ^D0uTjN*@?HDoX{x(cnQw%s7b02zB$HoCsPrnRw(|GTN=$5 zf@fp2x~8Ep{=l5S)pAPhvZ}~jRxMd?aVUkb6uV@OW3YIss3?j#ksu1@-I^c=T#Y0YCj5Uralz7!tDup3*=q#6^eP&*rX_1)K`a+lXvaxzAnHrx1; zJG3W`ASb@OCVdB!+G2GssHar+%=l|p#g%-Gqnsd(SrimgLcrF}reNN^G)jth<0Uz~f& zAP_o?$rgyMQCY<35c9T6AGVxz+0z?E-<1<{u*#UM)$|SYT?f0B+PJyaVf@Lhh=E5A z(S_5VmVGYH3PsrJz9OAl&{K6)G&VQyFT( z9;(F+npjnfjAji$HDxx@9e>ri9+j;&>O`YVQ>oKPI6p~Z;x{=rQ_5?jMYF4GDle`w zeHM^uhsAK5oWtJ4$1$e5xSGpvPS4bu`tCJk?1Gv)*p(#_nlhGSDgJ;c>ml|*ELMhc zod4?DDz>8@b-&u;1?V~Pbw!#q*}Bu}A-7eUm)P12Z@iLtkg?W;x@h%Go8M;KMR#In zFJ)vVbIx!sgp;r;e(;^fSzMQ-%w}4LI_rMKmddG}6lKR@7c(lX4rSx2QGL=>Oi zXZ!AIMn(4<_t5udBG6YA#t)*oGZ`;L`s$cow@gj3txk!#n;EF{^-VNos~bnc5=1lCvzenhn-2how2pT{BjLtfV!8vhs#&Ely}D;Nq&rN}yGVIi?jc z1p|9*3=QEkQ6ovLH`_6FF}HoE#79!=W#W6GsB4yzW2MA-6}idZDV7%JFb*d<^2*H2 zT1cXVgC>&JT8xTT$2^&7T1)J?LraV__B6o|`^G;wm5KW)%n%93b`B#NJJzv;UduNg zi80EUwK8EJbY$B6D4=7T-^e!SFjr`tu=0qr@6>OGUjMh^httkX!Ayw9%2pWb-3bnA zK8Y|C#}zm{<8|sSl~FpC_`1S?Q{Dd!TX$+NBQteeku<8}ucUbV5>>A={2p?Ga73F5y$m198YQ=B7FIf))_##gu3hqqEMe5aj9_2)wfb#G0IYp_SxP zeOf|v5~fli7EZz$XNef5UXt7&r5Z#L(|~8rDQ@#jb{Y0rEwdg&IApzywPG|p?aZ+Y zX1il+D=p?D24qPRea1Y7n628wmO_xgcA9BkspBiHiZqBYu-a(h*CnP&Cn%{l{#WF* zvO3XiebV7e6iGQ1iR?nF<~OgGLP8T1*|L9|r{MBhtn}B4q{EsfmBWDhHA*3In1f8) zo1}IQKcYBgPCdESndQKm9f%bqN-SR-l*GJZ=Q{4JNIOUI=jHX~71dEwc5!Gy_?;bA z!>m0KMqoQV9L87LXb#Vgkc*#9v*v}7WZPZZvns1z-`T{yI!-oYC%Wq}pG4e^(|W|C z5gq1}VL#3JIPav%I>h2tTYZ_bcS7-xYr`osjpr7UowT26JUiuC3eQS;;=t2Vo+ojz zlzf}kr{~4!r9*y0A(^&*k>DkXduu+8?{p$xR7;%Nq}!2_Z?1B>ULtJG^QxK(CpA`7 zR8`qVk{TBtnYbgSh-it1Ygr%RWuwKSI-;UtiigM`C*e~V+vIXJ5*HG$?wV3wjU_rV zzP7$GI-cMLQKKwUUfWQEP@81WgF9H79qdMwiGLT4O?)~cr?%3rV1B0{-aXSnVSR_| zCV#)QYHnGb@N)_-Zk7fbg?3ifG6r=x>Jsw>Pfk!P)# zRgyMhuDs-aZBx?tiaNpm#Q;j`uCGdrLgZWy$B5<36C9zg)^>bNu8Npyl*#g9BNK;= z2cnpWUlDv=JYqa)Pe%9gqX}Q2=&`KM^kCY~IeS+oaU5%^EI%UcO|Fha8_R3V{>4tF z=7{f?*Ul}k7bb~IXNsQ5iF>qcmysxCEnHdkTw5p=DKo#Os;XW*XZ&?DWB1W~V$H-Z z$ljZjO4vEYQz44k-MKLK)h4=% ~~Hc`q8PqHXKwn?ngC21oT%qO{TaSqbI;|GqE zM+mercR-Y|bFA-G$lFDzW*8}JCSg8hU&J`aH;fTYl~1%lc}xE*$>G!JQ#*HkQ2 ztg2|wbgr6VQs!Jm4pIN+e%Nh^8e$8r{>8V^Q3g7rFkODVbbxa>T;OS5RAWMUwRyyEHz zn};eE?+YIRvxp?GM^R~FKSmdoioOIXw9kY6&3X73VB#lBbTPK6o&YcBvSVu-=f+N< z=-yh%u|jj|dw5(H6E>HgcCBxHi`jNm%a?1;(ax!^H}948O|-%t!9Zov*+j0WVyakT zi_P@hdSYf0B$TH~IaUwCDQF+i^2&MT_0Qt%`w}f zOoARJN+su|loOj}H!oTfR&fSi12IJg%rM49dXc9MdHKJUH74GViZntwOGwW zU16_G;xU;jS+?x>cqTR0$KzlBr!QC~;-&04vWx81glaRkApI#~k4G+=U1cdWrfv`) zjTzP|IK`!t;#!8O1H?;MWMg7geGRYPWtwBu9d#=K>WKFO&w@JSM`aOMWDSqR%>TR3N?lK3Q$RY*+(*jl6SPy)SXqToS}i<5f|YWYtLI{QHH}t>-@oy- z|JxSgfkO#XVum*v>zfiGVen9-)h0_fiZ9aFZ!2}x9O^kuJ;MMJr}=BPld=b+XV|*9 zI5NpMV}64r30iW#*wM7vPDs{+<7-e1&9UT9vN%d2Z5;=nl~Gt0D}rn9nn~ZER5tdK zvhkOUP3fHwa1Jeo)f&9%nNCwg1k)vEZ%y78_~MY$QX#KTy0XZ%@-;Qpd#vt~MVqFoAD?`zgqI8Cl^ z4NP)&dns$m810uK=qcri#blA=GA%$#X~>B!BYxc)Q1#RrY3GxuNf9lZB7+}dC`s#X z*W}G(*v-5uL3J`!OxqPpiWE{?jL$hOE)(zDo2W#`nL5f?=P(^5PQN`X(N8gAOGYxE zv8O|CjPr~RwRS11fF4{s%hn7tE<)OB3zl|Rc92%b3P2KzkZGmO3Q4oEgvUeGNL?|Z zS(xIa=pf=24AZ)nWs`VQxneeKA!X*G{DdlN=Q9>h8jmP{L3PBk<2oI$>aW)diXt`> zw8Kmbkw(qM3UKERRU>6yaSaZAv%z{5$Z51GbwnSBEuOL#HC6Gob{KEW1ypSsDHC@= z^kX`k#N4ZSDJzZMiRTvm%CtD?dyc6Fy&+R+v-zZPi^%FYBdRlfGVx<#vNcfvA4I11 znnabP_RKnjar=}*RT6Hb#2Uov9HK_riqb)R(5Y=DKM|D@y$E^lvc@{RPxO~*I^sek z)hUZq&z%^H^*!vF5v5D2W@aQBecR47jMS30_p4-loRz|Z)6R)m292i7zQ0a`O{XWK zj%jr)Dz{$EaH^ED9-@Y6mHgT@CVj&(*|vhiP9w3e3F|_p)l8rFH=FY}o3Ew)Oe(ew zu_>!(KD(s4wl0$SY5AN(JS{~G5UP1ft7GTZM}-8MdS=FsPJTzHFtvs$NT=n+-WC+u zG5S-JEKfAuU$W(mXj4ejr** zj&{jdA66IdRqTyZA8`++uNKYXA0xb z`>uW3yEynyYHL`YOfAKqAGW3Ob7z?i@xF(6H^cPgm|MxBrUcbj)XlAkCcRk{FUimT zn6?PhQnz?=6o8mMgQ*pz`GY4#o zLe5S<85la*&B**r>lAybNHqgOyN_oP-%9!(zD#V>QH!1ojy0Xt~($1UOZ- zB=vZWL|smeXBNtE@s{TNli=cH#^S6;sjlA=+ml6 zx8JayZSc-i%aZvV`s3_OtgDOK9on*{L%EodTXbO3BZo361j}i5u~U#??tS8GDL<1_ zlkv93pF5ty_*335nH%dmC6K|zuTR-MB$tWL!|9}nu_tQTM9Mzhw$JcuXd#(eI9%7s zeaEJhI-;bx@*uhVxblYCrYOysHz{f#%1}1Did&ND&f8D>u5}uX72J;S`;6_xpZ9Hv z@y4H)A$-|i3awBr`SLl*mk)5%!o%#$$~+mt(%gRs1YKm6%=3W@PE4j`J0-quLKL-Gq#L%o>alN7`Id3@D~v@7N0# z1n1x7a4dcJ7YLo_?)Xw>hI3(&bo2gVL5~O0I#B}dpe+7NeT@juU?4Givmraw;P5^2 zvlzUNXNACLTJ=NS!ie}amegZ<$Q6Mi@tSsOg$$##*N`nZ^f_Zkzt)R|&f~HyXX(Q_ zPa))?e{Z>NaeAp==Q}AP{ zvG>GdOPoBnSV@Kvdk<7Ft4TOCO^Nnv)`=BMnq#bG;jB)6o2>6B2~QN}4ADlTb*-I7 zC`d=F8^`By=9m7~Yu_FPDM>2D+qN<3J(itHg<^A|-l0rVRB{>_Ya6Q-*SbwvhS#c0 zsYWPUNpIby^XsHildBu534{{saEMZealtr^kr5;d0-|w;y|mtnBT~|Q8CZ-0x|A*s zIn=YtW2>zoX23K`f4zE)%Bq_9sfDx~5?dQ_jm$yCHRp7m9xF+khi#2AWp$>zQgr9I z60BG3HyZkgXc_7_|F(lYF67Ci5f(?vXT{#!hMdGDz*v5U9>gxzRuGyUm_sFaDyw1>2MVz>mNzJrTi81n%eicM#TA{F$#tA!7oEK9g zZ6An}<+sJqE^Py$8Mid1t|?(!a(uB~jHfVBcT8h6irq7=ZhxIRmS8AeDG*Fx3coQt z1#4o0z9(9@N{+3pj{Z-2C@G&&Rde`?NwbNsf%7cWa?Kf}<(Xqm%d^HoW>QbQpVC+_ zR=dx>5Y8xqS~Fdc!ua#P7bIyu|vxIWa)w5|$|MMg@HDB&=`w7J3v>t{qNGqx3b?$A;iy}STVQ^Sl5 z4Heo?`!{7+tnrRV_F|L?&@aD$<&Aav~M42bGGhYri0=tj6Lt$kl3@>)3Pzu zQOI7O{b3Y`JU#K}PR+yL?Am1nmd_G__G8K;;<_iRg0@`aRFdUOE@{hDC_}Ik z?^=jv6YRBKRx-Ihn6{8>GPEM-I=`7*VZWpqUc6l~t_jww8Hem` zTs1OsLsaOrqfG;b{T5fErL=i6LeXwg;iUFsy*3n5%#2MDWs|js*h~^7@q3v+!DD&5 zL|Mm)II&kd_BAoqSgWG@5T_n}oW7X*X6h!}t?Fdz7(f&WII^mU!*gv0tl@=+D+c`plD-VrO$a zze3m~%BJ0(_$*?#A*G;Wzv2utU(uM;7N_2p((+lR#S1M?TsR>ei?F;|<`GLhHsv!W z&9164e;+dGeAu}r5lFNpIH(q}^A3me_1Je%~|CFjkWDA=--q#v>ILRAhbF{Q{NMerbgU~Ixax~tgQttg=WqZ0|7ryWyIkD^ zT(17o(b5oUxHLi?)7Z(^mq<>zVZxHMk)d2B4x62r7~TarPL}-$|7Z{a<8&V zS*tv%Y*Mx;+m#oU*Ogt$2g)bPL8ZU%LvS4}72a4*L50kMk$KOGRb)tHOIzyeKM$`rBE$Sk5sd}%vN?ofys%}!Z zsN2;S)z{Ts>Idp4>Or-C;OM}R!0^C`z^H&6&;nxu7X>B;t_aKs%n3vS3j((U76q0D z?hUL8tPMOG*c8|j*dBN>@OofZ;Df*?frEkm+R@q&ZMZf<8>Pvbrj5}q(k5zGXfw1q zT0~o*-J&hhmTLEEtF*P+quM5Ii?&^RQF~q6rG21%q8-%w2agU82@VgA2#yNMK`l5Y zcu{a-@QUD!;GAG2xFC2-a8Yn+@ZR96;M(A$!A-#}!R^5pgRcj71wROW5T8$-8+?h4%#S{ZsM^hoIO&=a9&LobA0 z3B48C6Z$ChdFac~5yo-GP~$Y?Y~wt`XBfr>#sp)sakVkis5RypHyXDYcNzB>D~*SY zM~ugfCyZx}7mQbow~Rf;N5<#Im&Os{}pL{@ec?Nj~dxm-PJR?1lNA(nX#(7FTQ$5o?vpw~mCeK1ot7nO4 zxu?yu#)Gcy;BhH~l)=g{C69YADXLPaj8jULsoee9NQI;!h${J<8vQgQrY*Th9JC$x_ud+`$pt!t)yo0^Nym{V{UdgL^3%%pKrQWID z>E7AidT*0=p|{n$#Jk+v=3V1m@7?I#?A_+w;oa%&_U`rW^B(ZJe1m+0eZzctzL7r3 zr}_$g<9wyQslMsH*}i&TlW(D~)wjgA+}Gw?<6H0B=-ceu=G)=h>Ff6G_3iT=@VWeh z{Db|&{CWP7e#x);3;pB#rT(e@>HgXNdViCDp}*C?#J}9%=3nDq@89U(?BC|!;os@+ z_V4xY^B?fL)IsWCb(or`j#MR8RSVT|YN(wT8q1vi0QJ1T2>Kb*ux>4P% zZc}%tJJoL06&MuA4h#QTKs0_>w)CB4S(Lht6Ij}IWJn)CW z*1$V~e*_K$a?D%%g?3`_^k6|y4~`2?3swea2Wx`$!Dz54*c@CKY~j8>6Ff~nOP`@v z>kIX*djHUOL*dZk(B0gq--q^vJ_{WT9c7F&E-@w=b;d^H&&C$xH6u5C2Df2!cwzX5 zod4f&(tE=$i8r7*?){`Aq*LHpP116yO+ z%$@7bbLYE9x~IE;;(lMJa-qvLoe!V%miu$})AHN$F&-~mWU8mp^9wjf2b^QH@-Sy& ztoLT`Yu;mhy06D4vDW9QR|bl;?`y5va&4QoSKFuU*A8gCnk$$U92CqB4i1hCjtz>& z2laEgo^-$F&XSLT*Ig`6k*}7k zZ~5Nk?0p93IntlwKgEBx|6ER92)=Vnz!#VqxF_&zU?+R+(z3KcTDCS=%h85uxmq5y zy-~YK+oRxKGseYRes*XvQeNpI$iwdk#Sn@Q(?5WX|~i}1Se6X6%a z2gC{DkH7PGzxi-US<)aWTN*6oNZ*mZEBU3d(j=)|s*~=Jet`V)JNGvC7w)s=@5#k- zle|uT3|YkGQ9MD;N~`CWo?m-*dp`7>1a*lj&B`B?Cy*fWz2|%H^Zwl{`GVZ?SK;bm z?(0kb7t~_|*90C8yc^gTI7Yi6_{ZQ7eLgqgb6sY=9t~Y!3=G$bu`O}AHuEuBS|(*7 zX;mXj{mT8Z`vUn_oRxl_Pdvvfla#s2H1B-xpOHIuc~|k>^tG**4F=Jx3}hD&JL#nNO{9D>B(* z%HNeEps{axM?yIt_dVhJE0WRszGM6+`o9B39OXaXf1$q|Ip`MuZAd|PAqU-qB(xG) z=pm$`N05geM}~oEy;JYfyY;<#kG@|&0A)BabWTVOeLuuGS?_WU=0kE{ z>@IcJxy7L$3C(=m-R^$c{gS)K-A^8D>IlWq&S}uj>*R&<=yK2i}zjc<-TiuKY#~6 z=GzL_{nB?b)NY*r`~JE9JGm`?^k=CjsHea?N2}xEnse1=^=|d&@X8L(#X!!(d7Oi> zflJu=MS&x=)3_;>+QU%52ZICjV@+ywhPhr|{X!(q3M9`a?$DjA&MN&k+@URchyJSm zj{d&>Fa6(oztEAPQ{aRhp*KS(8g0gAW1G=o>@Yfwoko|@ZR|Go8a>9J!p}jwb|UK? z2)lOhTSnZkVN#xyFO8H6BuP>vRnnzGsZ5GW&C)`tMQW86OG}_2%cT_#+;OY4P1-3P zfJbIIaLEF<|l;OOgSqbH@Cn%~(Ze|}_<09jB$8q|>oi;)ORkO|A+*VEvVl}Ls)$c9m* z!)D~e7HIQg&cia#Do#WfGx0>y-^ijqS*dTag?)kR3ab9=nhgb|XRdAVcm) zitI&>%tDgP_3GYYB*+qE$TE1`G~~!iB*_|N$taYr8F{h=iE=SA=m)&L$dy@0mf6UbIq>#eiXBH!AmLO}EA#F~B-&Z1W zHv8`O{n6Lu%kzKN|CRp)B*K}bBcz@Wn4}t&< zxJmkv^b_fRX{$7Vvsmh$>Yj$|R_UJ2DXb^lw8`DQE_njKDEyWA!3M)T-F_t?*g>xI8(p?efMoU!ATp-K^!gzJ?Xl^x!zd^NtszNe7d zcdCN}rv<);oct@~;^zV%268o3o2T8Oy{i2~yC!&B@VCKNkW^Zshac%DpkwBRE<>-J zjb6Dr^jher#>>X2@Lk~#;hz0m!p?kxbg5J!-6Y*5t&|=?nk{0!4>Q9yq{i3ffHF<_ zq4K^GLEreVcc||>zH_iLv|&Lw3NHDm|4sPaDd_SZxcOV~@;Tbm+Gp&@h~V7d?ZLaC z@uQ(TD?(oxSBLKoy9W1jWwGXiObJMp#a0 zp6c1^`Mc+1&v0b|I#sjst}*~yNeePh8#a*3eRuf&;(Nun$M+xKk^YnY=OA}QSj2>ow^_`C8`N35QWVKljurE4@v~A^rV6f0h5Y$Q0S?nW_)1 zY7Tak=dhgYSC2zZZooEjci;@|Jk8Lq(&lQfX`iDN6$K{+ZwfvVd?NVI;3$1AHGo)u{28%Ktq~OUVc%#piw5-(^;30Q;G*FC z;2QmBSa;@$y(sMGn#xD6^qBMyX@z?zC*d^Y)uGt@&P8K-$@eLCx@@G^NI6b9ML7+b_A)u0WZD~&`GT0;PSe_u&J|SC)*xtq4fcj8 z7KdhR4sE8Lp#w`pCsI!r)`s0st{z{OKi^+~ok2m{(wR*$vQP>3h8lDTCk5QVoiV_|5)#;_PG!!mV)+NpM#a`j$QvfgjX)-I%K9a(yu zDNUD|^0Z}TXt5>e4WRmyNX`YO?5rX)H)#t^S$VN3EiX6a<<&^a z-N?s1ef0B@wp1*5(exxc#WGtGPNzA&!CXDxl;k3wS-!+ge(ay3oVB# zx4{$Egw|nU+!XpWbRe|cxZk)D&FaDMzr(KS7M&X8KGyA#Rrw9>=ufbP6(O3fv_D#Njx z7bDTMd*Af_8(V}AP52V53}0~Ca?scA^Z(v|mgJnIsSmZ88j;0+5*FoNIF9oPNM5yC^q=+UI^FP`UiLjJW#>nQ zWVlYuhP))SKD05^j`XuNv<x~WA%G%KywxTz58?Nx6aCUfbI0xA-H=GyF504BN zgr%?&R>P&?`fyXY8CzOQxHY^uyd=CVyga-j+!kIPUK8FL-W~1bA z)vhG_$S^4vJ)=yTCQX+rkrr#DdbEwEBz$KxezU4oLnN8Vn>>RG`FIU*02>@at9}} zQ+^Ol@O963v6KAB`q@=vRgw3*BLa!q*6TyriFL2Rsdn&jk1H-Ji;j zd4z4{c4YpCkn*=Hv%Q~s_xr9?pHhv$Wr5qZx3uH&MNG%`bPM*I^Yv%+m-S<~$6cWw zESP1+_l-tlfze`oVLTOnE9`3P=ThnBHt8z&yYB1cPw`%zk1g-laLH|+kG-pqowun+ z;XxUqoe`W8oE!R;@rJl#>-!1y*riFu(geJ6Ez*6`0;Ju?+^?W%eSntr85-6=w5yZg z=V!^1?3M49SIX0|5R~>GT**>Q$kNP;+Qe=w7Tm&u}Wg44uMRoM_B7R$-TY6Ta4; z^QD9}&QwSE4Y7`!`?+$V38zSB<58R}{Y)B;++O0o(>;*UO_A@EpG3aC&{N^L5sr7j zbDVOavOsxCc~u$e^yS?u*{(pP3d`J0& zv^&!0LEjmRRdWhjPBm7|8?b8Lip}eOtX&Ty0sj#@*K=5ZUdF=pE?%*JA+endmr~UW z(CM$j;&Z230PjiWJeGZXUEpOTIFB|Tzf`AoPVj1I#S*L~>w|q|(mlaburfZN|54wr z@6yjei@yo^VIv-)Mr>jqvr0|jJJ8qrxe8dDBc$(3zkp);l_!u%9>Dhh3KTKlAH;4~ z?SI<;vHvvn9Q902S-HsrpAWo>g?%q4V}y1tBO0UKtlg$Ppsm;1wZCYeLe26yiBp2t z;RSmv_*(FN_VOtGH2rMd4Ua0p^6;4cr2aQ{^<5~rurwSKIw^EIc6Sf<#&MyE?DMQp zgq^+}EBphY4bY(&73#qvzaQSy8_IzmDShbBG-Hkt;hZmn{=}$Hven{%A!twm7QwRc z)bOdkGo%Wzu|rx&-0h~o=?LTe>Qf= z3V9YXek<08HAz;71pU~FUf6AFhJ!q3Bl8wwZ}xNc5%7~nck=TLs%7} zc%YVHOK3;B>pX<@AR8Z4k@rHZ2Et;{d`L?{yXl4A?>)hH5>^2nOF*(6AXye{!TPn> zw+^rK3rKp!!tlDd{ry^(A)>F$1s5b3Hd>=ef^wvNBV-Tlr9Ff!=NLW@8(f z#T-}qHu(OAUt=gX<4XVWst3F8EaahQ@Nrk7t1Urae>rffR;owzUtpEn6516y*SOqh zHhzQs&BbZOo9Yrju)1IRySxHPJxlQ^*C_MZwQl6C(TJDo`Dm z8@Mje2z~XU^*7P(@8A&oLM6tnaOzRv+o1?Q4*w+lv+#ZRBp%@8y9W1nHPgp-sgW3o zeEAOeSE1)xe4Af++La=x_cmrUpV>U*djzZHhdvPpP=`%_s`{k*A9YZ`6Sx}P^JjtI zqV1o7tg{xW_beovPlM;{I<)<#`dU2Qd-SugI2^!BU1HpfZSk*SUGw_8Hu7;CTK{cu z@00P8-H8=%B>ZGL*15+_57m)qeqqlISk>0URbM5dqC}~He&2z1vQe4tt@Y0H-tGN4 zBYn#Itakvbeyo4Ie==T$Y&FczKcYUa{t3Ci8jEja)2(Qo{{8-5 zJgBMqO|e?3*7VVCR^vV0idA?A8qUrn9p|7OKT&|4*onj3f|p=3Dzv~dz{1HgwWmr?EW6_`ejcoc(+%?tinrvsv z^W-1a?%#~XX*GWFbx@`a$kgpbgKWj#-%mM8`5uv57kMA@K8ds? zW5N3__Uh}^mFh=W?gG&5Uk08C)N4P`?$rLHxr5h3kNyz67=2+jns6Sr!`jeKL+^zK zaz?|(weY1EjAh|phhGbS9CnrV7cNhi7rA#aR_o1@@RcmY2DgJ%%w@I4VP{*8cVnmg zFFgH&J!j#?xZHDudBsU~TxTeqyL0bS5_=VmxX5jd-GbB(BZjHwCSn z-rv>A$319fd+{ir>pow;NxqHvx-P7_Bk`Nu%euLgQBd_IXz*RiIY{CUdnXVlu-W&X zZxGg?M!0_$9^!mB`<>9eBk_oi$GUt9R?a_arw6aZs=O&U9^1i9`rSyxU+H&;{u#

qI&W(o8Z40~Vq1lY%RP5TTi6X3V{}TWDv+fgQw>&}qnf#J`qGz(_R-*TQ=^3n? ztc0)+F2T0!#dC5me!IcG8;O*8%Xg;VgT&m3ed1kqV@h{yUP5m^64-?jMQF_K#vO*G^b zG~4;oJ!oAUr9b1ven;9P4J6`Gm&eP0CK~Y_R_-d#e9zsi+}qggZdQJ;TxLcvT!&0B z-+L1A78R`B0{_qPw145hkQlpce8{5%ml8Smi@+m+Hv>bF>9-K`_HS)qa6A_9A7UYX zBUqx}qTj1Or@yHW3VkQ^z0fM`1D_EY<0Fo2jqwN0U32)4;pfBegg+B|yTn@4qoh-b zU8s;6rQ4;4q+{@RTq<89KO&F!%=Ekh4^-IOtFW-P;kD|w@Lvj-`zajlEp! z%iS*gu-?!dw4le)cocNp?Z`$~hOZ~Kt|#nTZ=H)EQL;<%#0)_`Y9PjSyL*p&Jh3c0 z@Ecu(5AtEpqtKjFm0OVN-z5elfJXZ}WT6keXP~WyeLqKXdkOE%VEiFBGu}U;ksd%I zEm!OCiM*!1uMXjsw+0@>t~DCp|AX2ynh#55OYnZ;M2^!>(lvdwK9l>klso?cXL)GI zADR^UW$5Y9OQE+zABS!+3b8T&IQ*yZ%VO;}_c!ear%AQaU!;57&*8%vCeM?9EI%xN zB%kiNnp^*Z=Y2fo7vRl$96#pS-Z1e*D~MZh`Mh`ze~z7apYOlexECX7{@s71dc1nE zIthE?NywW)Waozhdx-rCY8Mi_Fq?Cn9Xy|yoYld{gI@$)dXSs9T7O*s0&7@9Xesv0 zXR&bghVD0h3q|#cIXhb(#}F~Q5w z(Ig^$e~4fAKX{%Lyt98%-cr6&-1q`6^*%@x?%UkDTr2~3ayFi0}V zC)6Lw(s_8xXF}Z`!gqGiJxcyP za_L8SlI9Sj*y{h5Z($PrKXdUQOu`_a^^keLGIo!>w(V9E3Fzs`n0^gb=-wuyB&U2#Y z67;OQJU@lc-p{)4z{foVyG;ar^lsMvQG5}{V~uGhnykm?Mc4WPaXAlhX7Y%(iNY~f zp#dBfI4*D|F%z2tPoe!~Yo)CFFSOrkZ)pD_nky9i2{x80JTONQL0gH;zX6-(i$nm< zz;m)zjMp{5RfEibvUHB*k;2l&Q0WS(TDlHOeY12oUdsohhw<0^N&2hwmh=)D{~q_h z-2dU^55|8fY-D4QTc(;Qkl59}h+z(CJ$HRA^?y*?&kY%?QF z_d`#6;g?x<6oIoxYY9|rBl>-+C+mPB;!5+;>I;Z1RZKrtA@Kk$4*vfg=qP>t{soSD zeH&*-Av$y&v0VAYHq|(IV*VC*35(Jjfwzf3d!N(vap2RyzXSgXd=(g=9jP6o9glb5 zWbHfJ>DrmZw4AG*4}ZE?o2A`q`c>8webjEoA8j)ukUGs6Bxju@n<&T}qLFgVc%+eL zM3Q30Bqc`!93aNXrDqXkl-)-!DJGh)*^DY$gI#??l2@ez3vMTV-h;$T_YWTtKAM>6 zA^6yabFxPeD>{nUX_@G0jri#?;S0hS!I36%;;#r_%}JU`G<7ZU)bpT~H{yA{ji}PQ zh^xMb_=A zYI6e=^D*K+Kg6;w^vXQst(bo-**hX4#cI+bGZ!DmdluX0E_^Dfdgsxh(~UEYbBuG1 z^9_&Thbo7SBI82iV&hU{k}-vd#A}QSV-`|+ozY-iZ`@$q1jWAHxWo7{H2Z1eZQ`l+ z83&APM=y!aiGd^K4G(3Y^N^{2tegfV zY$5(u!S8mD?`0@p#Q!`04eC$S-x5)MF;s3vqX9?&g#!}enZ z8uSe;1F`ok+IYWW6WpVVcPln@=BJS3i5hGi%6?76QvfGTh>&4@gO|)Gu zk#+?{+37^sm2mc_As^QeS<#HwX|ZpaZ-s9)mW2(zb|OkUkej=(s`p@5?=>y!Iat;6 zv8XG=R}>RlQRbh9gjC~?VpVT3qbye7wOU7zC5kx$&R zLfmpOyuA$jy0Aw^O&j}SqL%aV@D}51Nw;aGzcs{}m_ESt>mDneAf3e96Q>eqbe0q{ ztx!|(=%)H}mk>X?>TA3OcqLIk?-3o-fW-4(tm2P&y}t28Zo7Dg?YqRJFCgBq2b;lV zfoqBCxEyZuIK1V6HZ(2`Ti)?_xC3zb3OsFh!oNGvi%maL{Qwar>pGUV9R19$T$)Ej zf1C7s-er6nkMvRQ)7&1Y=T+`I@IF81{)kxPp>hbH!g9{>)5I6Q&H1h4eEuBj*MmKx z6g_D%n$r8q#k~Kw()%0E%RjwG`A+wpO>{#k?^Z0pzVsS8|3^f=75K05&-35mzXHE; zCsFlP-1TRO#LI*88o`y=N?dqc|4Hosu|$Uy;F0@2v%L?$M-I1oI`4-)Wt}Y`*iE)$fPiS_dc(3lN;0@Tet`5B#y4!fw7#h9=`RKW@YsmoDGWsf% zuE!?12TyJZp79UyH=ie8i1a+4w=*B+roSnFF3%>~_Fm6pP{Dy{zhjBzx>K3utHmcW zgtthp#1ktMLH$$pAH*U)ghqZk?*saI8}L%Rt4|X%{h@Y3aA@#*=q?jj3vcL$p{I>w z!>5Pc;c6lieuFmq5^)I(rfq=f|H)!MufiTP99zr{?pxt*C&*{WSIIx&z0h*z-sL%3 z`JVD~>}tD}e<@!o$9PXA7Ug%)L~u_C+@xIx2R@z1>XnNUgLCV={@16goS0jwH7CEH|7(Q+Af_5*ZmGiy?#s3VEw-b2FAUhxhuH;>+tB|Sxj0RU2tVX|o zKX^2HTbpUgdj)T;hBTlc)l9+8{Yzs&_#9-C>%xzOUk&dOYq5ENsVn18hI&8GTNMW0 zk1gnFV@$ckryPgXaAGIf_NwH#AEaUZ)~23 z>{!9Qd|sOrtit;Fqu_nP-vplw{yq3^@H6=JnYxH(|Gs`LHj^J?O?wQFcNftDuFw#o zntXVZuYfcCHS`8C>}PR;FEXYfZ9T|6{X6{Wp73KR9=MrR!|0-uf zm#2FF2*u5ZuFgZQxEpHv4DZ4o>3@JoA%%BVA4je*0u{V#u{?05HWLl_W!|}R6I=Wp z-tQcWuIt4{JDtdm4z%5KSiAW|$-HBn5gyMis)RbUh5s7pqV2(}wQ%560x@&8tf6$-nnJW1pdMQPCtoh{pKE!$4l3W_vA1yNB^QL)5e$Bw-x z7#o(@jm8+oj=d|^pfQRi#xC}*7)wlI47TKqdohN2T)O}N`~GvTbA8vj&XWx9xt=lJ zwbxvG&Udde=j0G=*-!KxrPs#y>Gj>~dXLjZM~ST4e+PZ8cVYi)bq39=I_`gNonzWp z-?=}nneA@_{yE?XeZ%$gzz#b8dFGbu^eg^Lj}ATO&}Rr&>znHi+Q)ZYZQs>)(D$6b z)8E9Qz4p`bk`wg#LC4;md(YK-zTOLID_^4bGQF4Yy>jm%`iu5#?}gXcQRjF4WsQaO zH)n|c&K$qy6*_M9E*)j?)S7Q-8)(&MIotI)vCk!auJ3bSpKtrjt8-k|S!)wL-mZGA zyXaHpPx{X>VEX~T)ciYLueS&3b?NQ;q;!F`hiFc^P_HobAY0nE^wHa-o{jfM91+Cv zKu76)(s+FievZ$|yH1~oOwxYykdF=G$RLgj;;5h&oqaHS;}vaJeXho9+Fp%w4u&;e zrHpDE@y+-6hc#ZQ@Y?pA#&NC_8?RO-HO@hJqVWp%)yDS~pEX{yv^0)(omZcCair@? zdcDiBLmW9Y!rxo)tp(>HjMMSpr|MhI^L-@IO^w$ulN-knJ=ZuR_1(sC;nV%Pm?L1j z>e%q^jaM^$8fPL5Z=9RDed8R2v5nU>;~HlloYOc%_439y6MQf6kp7N5)p%|5X5(xG zK1JX&gxMSCs&;LhgV3Y#8fQ@B>;sOGYxSJQc?c65uXZLiK3jOA zaqcRwc&0VZJm9ym2<` zZH=R5r!-y#O>G=6`>{WTXx})imDfVu8fP8!YMj~1>!A^ivkf@jbZp}_(YVIZ1?M!* zaOHIo=eXXhS4LAB$DVTJ>9oeHBhGYf-#GGM!Nw~j&UWQB66d?}Dv2{*d7U&?=e+Vt zX?)|HwhJ5Qz4B^l#<2)bXp5fOc*QhL=dgX=`1Y1#Q#mq~<5E}B84qh~Yu{W){p_xp zdqSB^TouyHomy^U{br|D>g&vpLRj3W+boB_Fl=F4B}Q;{$F z&ZgHexA$9C^W)|E+_0Z!!%+i%G2lae)4sO8Yu{e`&JzPa9Jr)Dg}9VYXS=lLFyNLY zb*ACz`i5bmuCee)kNJA8(Q`BXU0GP)hMcO;m0xX~3;j*wY=r;3BU^U$pX&&duD#aQ zC**(Z^;)kkx<0{Xy$|hup3eL1sLyO~(Kj|v>KWcgpXuMA=jBr!o6NJ&-LD@9=@sNK zy@nj2SCOOiI&!pLNsjrE@3zm-XX*8*jhl1~>7+jQ>RjQ6^cm_8zw`b~N5D_lIdd&* zwf~WGh*#2Iys!h zctKaGm`7Km*th3-Jzv-LCKl0=f`{lkn=X0}vUB4bhI92@;e9$r{XOk}opp>(Z@sqr ziT1JM8{dw6+UpCwZkVS>o~O+daw6`^KXvQUT}HiJn!4Q7yR%D?9cR0VY=Qcus5{+Z;r&7 zacnmG#`cZ9V@zZJIH<9QjQcO2`T4p&C2Xf-%~t9&P}hdoS$o4HeLm_lT;DWaqHi9q z?t6XToBQ6b@AdBM`+&ZOcvP zo%_wDcdT{+O z`maCWrvnbvRU7UaaNmFjbS&eedhh(S-cNj_Z%kVCIrC5*U(!vV7#_smvmWgmuQ89) z*7Epj^Xt|0rmNqe*8vaodP(1i4%YFBr|5gg8}(WDqdKnnIKA(CZjD#gSbWVh*SuI~ zoIbzi4t=)O_hrxP3K%o#tiYA^nc1xU_Um_I{~sPzaFgDraLgOW4d~s8z$Lf38POGn|@2fdKW4zu2ouTiz&i^l- z5BE*ud=35=N56~;6->iA7 z&K!Pu&DZtq%lkTZ^iy3^a?}4)_DrA zuJ!3!|5|GWeWSFYK7D<=?^^v1(OI=G>$sZ^`b_6Yohxvwj=^fLPq%)qBfno7u#)~d z95?XS1OGX2UmcTuijD`nTwBE_I-a0?;~coox=POmdQJ7HKKom}=RW$4wCdH&z}24A zQE$iUGpGyozUyJlWAEzq1g|FMEoU?K(wU6wm9rRk(Pwx0&0XGf79+19I0lhd5FhI` z1g{u+={3VhpRKsJ&Q#yGaY~FbG8XH+ChzLTWCKR-M;Y}eWvfOQ?yc#HFPf2P#p=qRgWEd z?56KD59#qUy%Ro7-_T#A@4Ij4aYv8)_5Jdbn*HDJ@oA4QdUVox^NaOdw&&V9w|I2p zszj&hSkQ}fe$*}clA!zH#Kv1pOW7mG0!m>)iimKC}HyXVUU& zwoBu+Z1=`1*+Grhv7_`pd`#mztZ_Pql~=G6{{O3~G+t>={vUHSm1&LZ2yji6F1nsd zHytt4qj3d+VU6ntjMk?Boa-`9uQ<Y`)6`}7;G^AHZ|H@aX*8cG1y%r|L5W zKHYe=|7V(a7S!iVgLLlW7`;Q>k1l^^*(-DO^{!t1ezRJu-fwl&d#yhD+<1gOH6Ek)SL5`F@%cLD>n6RYnxgkpZ|c*z>8rQb zyQr>uE!Ruu%njE&r(N`}=_viRI!CYRuG1%B4{45jRrA~DdUrIt{u(W-KM`QPw2e5cQwa-)0_FNn?5z`qt9`e*T(4m%{YDH%WJxu^qyvl zUIDzR_cGJS_bsbkxvTU2EVRZ6h<@ zkxXn{VdA!?^W*A~q#u`eD_!-OWp2J3~jOUZ~?!InVAk?Fp0h7x@VtX~lV1@9KM}&$M5BqjRx1E|sHFIVP2Jvij&4 zC(g$jp|i0#5|!gn57JSn9D{nQ&&|4Ad(cfjFJg+``8}sAIlQU;X~wsX-wbT8bF?@+ zg7dRDJFAz@%^Kv-??-80<4lRMdPRDaUKMbj){L{XCTj1y>A!vq>KW}@y6a^`^Z8r< z>tj&A|C;ju^fhGb53ahjQsa}IK26t?_^%y}dif8|X`b?5zUoBR#wS4C8=nFF@C>q1 z|3i*p9n;3OE53j1$$yS+ouco^_#|nnKJ9+<|JJoFwr_mGG^Xhs?Emg-{28wrKQGt3 zm|fRTtFQU2r-yZhSU!3O8e_BS*(zpgs<_XOh|9|~|_!-cNnEhG3b}h5E zjG3)v+^`mod~V_R@Ns%M$MF&4W)*eqx^bQ0OfBQ)5J!j$iep5fCHF&iobE?=GVWyY zd~t$!lX#mrMSMbhQ=BGF7wh=hbYr^uUG%k3``KH@br%;C2Z?>fQQ`=3thj?XUK}Ip zwdc5_#7W|*B3~yfbIxqn~l_io@i;Cyo~17Y`FZ z5cTJD+%$2b_@Ovi{IfV!{7C#v{8((ArDfbFVmI+qv5)u{afJApI7a-dI8OYVc)s{| z@h0(eaf+CId^#L?nv;$h+l@eHxv56|tM>Q8Ly=Xsy} zBmLRi>-pmWsPcHo)1THxe|j7J*47`tp9S0KcmI)oNB!JBZS;q=(I3@De@q+w!`kSN zZ=-*H8~urG^e45^pVCHu>W}mr&;O6~d4{LA(Qobe!{?vQf^GD>x6$v@Mt@iv{ZVc7 z$F$Kutd0KoHu~qc(Vy5xe^ML$DQ)zpw$Y!~Mt^!6{Z=MxRo#!cy(868-1q&_-M{Y-TE4Y$9qc^B?klx&d9Uwk*vhRf=kQ|3^=gmSmXUgn zQ$2dOwzMy|d#%;la-ruvGEWU|ZJELgAJ_TAT3hZd{>aT*Tc#F&rBSW?9sjPD-a&r3 z{mss;Ezj{H%=Of6tu42e+sEyp^(~Kgy?t6+#uxvI{q*yTKmNd0PN(^?mD@(MX&$9t5bj9%Hh%9)x8h5&Ug>w&J()L z=kuwj9&K%TvOK;C&+7RrkFWbntu0IRN?O;}?A)?TefV{vO&wbEt|Hi*D^#J+%i&Xug>6>E!64MSQ@FN^_AIN*&*t8Y>e2r zWgXpS{3dc|b8m!lTc|fu+Eh;G#y#^BHg0M5I>_Hr{dIJ&n`_i8x{vj=M0R#94{zKT zk87xwhBxkMbKT>*8nwCpH$>w{e$VTq-YAI#YqE|;4QZKG8SZO@{Yq47k9wr?gTK2MM$e(% z2qiZCZauarBltNyTZ8qeHWvSLU#;KW(~PZPla|%BKMmG4!)CQ(VK$?6+}o)z-n#DX zTo`XX_jW0aH^jYN3*!xSZ@0pD>$|smVZ34PjVX+`fqQ#2F@3n9y*-%Z0z1Xh4D6VZ{Naro4U7OVZ0IUjV+9~nS1*e#@pPz0}A79;ogCT z@kYAGpJUb!rnb}qy@LzmZRH;S9u%3zKjCF_YxfQg<@9@HS+q!o| zVZ0r)U~h0C+jokem+c<1eW&oU-9xtT6kfJ_$o8GW%XSahzEgPF?jhTE3NPC|WcyCx zWxI!L-xU39>vbDv+fI?G+cw*D3NPC_WSdUmWm|`A(yT|ag_ms|vQ4M(vaLh5 z=@eeJb;vfI!ppV}*``x?+14T3bP6xqI;`6=Ubc0}Hl4!DwhrsIjF)X4vQ4M(vaQ4N z61efZ8l@f?$Tpp#mu(%gO{eg(t;5?TdU?IY@`W?c=)uYM-z?N(qaM(I$-h)MBIlr2q1J`AcEL(0`tC@3X>qPrLWm!g$ZP z_qW1$&${>b!g$ZQ_jzHw=iU29VZ0aI`=T)3RQIMA#(T-VFAL+n?A}*}@m_K7>%w@i zy7x_Cyw}|OwlLo7?)|GU-Wyt&NjlKt_mv)V3w?Z+(VJ3=>|`l?D~5Xy6te%N$Ui8B z?0+eG*)JjcUkWe#C1n3g;bp&s?0+e|?3a-JFNK%=60-lL@UmY*_P-Qf_DjhAm%___ z3EBTrc-b!@`(FyL?tkoeDZIMhvA?D8vL8bBw-jFXL&*M?!pnXL+22xl*$*N6TM94x zA^dv`5%1YT_O}#X_Cv`2mcq+^2-)9Kc-apj`&$Yx`yph1OW|cdgzRrAyzGaN{Vj!; z{SdOhrSP&JLiV>5UiL%C{+7baehB{^L&Q5w{|Q-Oxm{u6^iqvQXBaS(muD_amR^d* zWFgn6r#DMsvh-3cCJSeEzC&TM^inJ)3;Fk(=yfbimR^d*WML=g`3wQCewI*|@sfqJ zJKwo5KZ9P1#bn_e&d*txEWH$q$-*wq&sCT#y%dYd!nvKFr!ZN1DHfB3^Ey9YVY2j6 zEG7%*cYcAwWa*_?OcpNa{6dAv(o37`gq7B1`ja)rs#OR<BF@1=aVzGKX)ZjJD z9#V&yXFLX$$>D`PS#YtqffTN$1(sJYbhOdSGMQvyFXwv~CQC2HVzO`z=hrMumR^d* zWZ_!Q_bp78UW&zJVL#{l7bZ(D#bUB>fb#i1R}WlckqpFdzMNip6B%Sm*aIOqO1X#bn_D&L3EqEWH$q$-;x2Ke#YidMOr@g@-tQXkoJSQYK0=%rXp7M|w(YlX?4?%p>3c`$W`z3uG5)S33q zDvU=j#bUDXZ0AS&K4Iz{dpp~MsdKp_7mHsw3xDP1JvY}Fm?B)!-*y9d%52hyAyQDB4y%dYd!b_dM ztT0)6DHfB3mpgw&VY2j6EG7%Dbbg%I0j939H?c4ty%dYd!mFJ>*7pfh*V((iFdn@W zi^;+poafjXym}1HjrMLT%>B?yv6w8p+4+-wpD=Zcy;JPL)UEbzD~v}k#bUDXcIWRX zOqO1X#bn`~&Y$JS0#lRh-BlQmUW&zJ;l0k^SC}ll6pP8i-!*yv)NNYuAum7N#6J*F zK^A|^r_Xr26pI;y_lQLA(I!rzse*0!^cm0C6pI;y_n1WQi6%ZyQw7`d=`)_ODHbyZ z?~f9_CkvCMmtrwl_$TL|DomDMip6B%)6PFrm@K^%i^;-goqw({S$ZiJlZDSa|3YE1 z^inJ)3tx18YGJbUQYhfpVY2j6EG7%zcm9LIWa*_?OcqXa z{=>p#>7`gq7XI1!j|!8emtrwl__6b!6edeA#bUDXQ|JFum@K^%i^;;zB&Op%rP=+t zUwRw5ho9xYD$jlVy@`LLse*0!^cm0C6pI;y_qjyxABD-%OR<J@57A8wC#bUDXU(Wx#Fj;yj7L$eiazVSo z@3Q=2U5&eNhA}gFdFH}o>7^P!!WqW2_wp=-${vsK8Ftwz;r3&NGOEDx_xU}=j6edeA z#kgeQvd%A8m@K^%7^K#EL_R?l?#)lmttJ9a24lQ zEliePigC%p9?thHOqO1Xamm8foL{{#S$ZkPB@6pHzw1gfwh5T(XRm)@JbEeaGg+9= z3NDa=2U7!mU%UC|!PH=T>lDVLm*Vb{h3h&$&OZ;P*0Xm~VZ0&komv=gsC(-d#-o?w zMYz(n~QeSvcJJjSG{dmttJ9a1-Y@EliePigC%p5l!BH z{yoCYn!J7N!7ZA+V|2&dH>{sG(mTN(te+d=on#Nz&kgZTwg>BHe0ZnZgWEMdmNV?Z z(M{gj_TbJ<-Z}Q*m?rN$dvK2??^pKVUQOOke$L>2P2Pnb2lsFC_VqY;K$G`dkAwAd zHQoH~bGM6ib;Q`Jc zSePum6yuVGhd6&|VY2j6j7t_C+2noe@$jf7?_c)d(M{gJ?ZFegd|hFFzOGZycwVkA zjCYcIHx$M@*}WSJ6NT|kbMKFZ@lJQ|$-;PNsHgw8@cV7WN4lLpzvJ|^*ivtw z>Fmvgx!<$gyQMJR+3ww17?1NZ`T3k57{)u-z1s`p{mQ*N3geyU-kpW<&Ua7Ok!bup zm||Ud3_LesybIjByD;8w+`FeRUd|P`*B(s$*1h`*<6Y$5{e|%^cJFtE@g}%8xiH=( z?mbW#?=ts(-^BFc<@O#b%=jzZ`$J*8E8TmzFy2+}JyIBNqI**c<6Z6EqlNLVaqqFh zc-Ol3cws#D>lDBL?C+5MI)yjh<01QX3NQORWWP?~Wq*e^N!UDRty1>I^m$IxCs%K? z52m=^?3<8%Foln8M4x3E2lzc-c20`(O$$`zEaW9$xlM z$Ud0D%f1QO2UB?2HzE6A3NQO6tot5b_D#q>n8M4x3E2lzc-c20`(O$$`zB-`OyOnU zgzSSUyzHCsL5UvwBE@pu57YlKk9{-6xa_l#?JR}I_7t*jrs!R153+Bj@UqXsDNWu) z-6jLsH&gVkwg=faQ+U_dgY26ryzH}(zlABh{EdYCEllC%ZzSYzVG1vQBjKMUdM_3x z`;>dxr^wa)>1q4fmhtO${Ji}W^zuOu73*3W$_3{J7XZ|Ax|K>jTPwz{6@N+LuDkMk! z!@b)@in08i3jgWl>4lA;{zETCK3SNb&*Q?YkMAq@zAnuD&`U8cS@^BB>R`*5~#^ah^Jcexw<8^Xx+roIWxwl|Wo(c#F8#uP|O$_xcycThzS)h4B`1Z(w1(#ob%GFkUzJ z1{KCz!o9(T@s@ONox*raxwmd%yrtb+uQ1*+?hPr7x2$_Z3*#;4-ui{{xXv*9gRY(U z9pf$U-Ufy7R&Z~_!gwpXw^3odmE0R%7;k0wHZF{}ihG+B##`0BO$+0(-=$d3?2nNB zE`^u<5whQ<@UlNb_PZ2b_D9Hmm%_{b2-)vac-bEz`&|kz`y*t(OW|dIgzR@IyzGyV z{Vs)<{SmU?rSP&pLiW29UiL@GewV__{s`IcQh3=PA^TklFZ&~8zf0j|e}wFJDZK2D zko_)&m;Dj4-=*-fKSK7q6khg6$bOf?%l-)2?^1Z#A0hi)3NQO3WWP({Wq*Y1cPYH= zkC6Q?g_r#ivfrifvOhxhyA)pbN63Dc!pr^$+3!+#*&iYMT?#MzBV@lz;bnh>BbvMx z-6jJ!Yx3IJgPS*bGueY%GZ9^5(P$M|*k4!u+o3rTCpD z3wLsU=fY&^r5Kki+{O7_3zManVqCItH|KXROqO1Xamm6l&hJr}EWH%tl7)LZzgJ7^K#EIh>dLkp9omttJ9@G$2OFHDwRigC%pBb-07Fj;yj#w81na{lPTWa*_C zmn{65^FJ?4mR^c+$-;5YA5)kty%gh;g(o|IN@23}QjAL$p6dKB3zManVqCKDH0Mt* zOqO1Xamm6noIkTLS$ZkPB@54T{_MhJ>7^K#EIh~ga|@HDmttJ9@K?^CSC}ll6yuVG z=R5!F!er^C7?&)(!1>=4CQC2HxMbml&i}SBS$ZkPB?~Wd{^G)9>7^K#ES%u{C56e- zOEE54c&YQ36(&nB#kgeQ<<4JGm@K^%7^K#EWF0~ zYYUU5mttJ9@H*$OFHDwRigC%p8=SwfFj;yj#w81Ha{lJRWa*_Cmn^)+`CAK7^K#EPTZIDTT?>OEE54_^9)b6(&nB#kgeQplckqpT(WSg z^Dh-9OE1N^WZ}!szfzbiy%gh;g|9mQT4A#EQjAL$zV7@Rg~`%OF)ms7rt@zVCQC2H zxMbnm&c9QbEWH%tl7;U&|6XCT^iqsV7QXNN2ZhPfOEE54IL-MF3zManVqCKD&(42T zm@K^%xvh-4nOBR0W{9g)_rI%t{vhXwK|5}(Vy%gh;g@1GY?}f?IOEE54 z___1{C`^`KigC%pFP#5pVY2j6j7t_ycmB)5Wa*_Cmn{6s`L7F;rI%t{vhW+{zb#Cb zUW#$a!hbpc@4{s1r5KkiY?)=o{MoMXyR3RC#w819a(?E*Wa*_Cmn>}W{49mZ(n~Qe zSvafn9SW1BmttJ9u+{mFg~`%OF)mry$@$p|lckqpT(WR>=Q|fBOE1N^WZ@jn&smr( zy%gh;gE%){)jMvw_JqzRYb8oN0c>H@IJdb-9#v9p(ytUoiuQ1*q z_r?~+8|>cxh4I#L?|{O1>$-PfVZ8O+JE$<;5cdu)j5pN1Lki=q@7|$>@rJo~SYf;k z+&jE5-iGcSQ5bI{_l_)#H{89W3gd0;-qD5eHgWG~h4D6Z@8^Z_Mz}YwFy3bF9a9)@ zbN7Bx7;g*rjxCHg(!Jvf<8A5Q@rCiWa_@w~c+3wew*AZ-koh5nmw5v+Kcw(7Z$RdU z6kg^H$o!DP%e(=ZA5wUkHz4yv3NP~pWPV8DW!`|y4=KFN8<6=Sg_n5)GC!p7GH*cU zhZJ7s4aoeE!ppn?nIBSknKvNwLkchR24sFn;bq={%nvEN%o~vTA%&ND12R9P@G@^e z=7$ts<_*aFkiyHn0hu3Cc$qgK^Fs^*(r0_Ct zK<0-OUgizR{E))SyaAaXQh1p+AoD{CFY^Xuen{bE-hj*xDZI=Zkoh5nmw5v+Kcw(7 zZ$RdU6kg^H$o!DP%e(=ZA5wUkH{gj9r&zK7^0@HRW8bBR&oYm1LYEntmX-fQ*^Roy zUORg*b*a6X?7`G!_GY#RQ1t@dE*YI_~+ z!PGVOI@yD%YwgWu52miOH@iKUy53%AdoXo_y*cc`)Q$G$vy4r)O`|K@h52o(7x0pSc`klSS?ZMP!d)@58)C2aGum@8Q+FQ~d zO#R;8Qubi#A$v>PgQ-8*TgDzt9lmImX3P^uU-cgz-Q?};b5>!?Vl#5>3Ug2NQp{7y z!kL_(xiDFJDaIuW+dDr?VY2j6j7t{I>U@X7Wa*_Cmn>{`zGGps^iqsV7It!ew!&oT zr5KkioZb1(g~`%OF)mp+hx2n5CQC2HxMX1$=jSR+mR^c+$-=pvpQkWcdMU;w3+Huy zzQSbbr5KkioZtBc3X`RmVqCItLFX4LOqO1Xamm7konNFdS$ZkPB@4Sczi45y^iqsV z7B1%e;)Ti5OEE54*v7^K#EbQ+5@`cILOEE54xPtR57A8wC#kgeQO3trbm@K^%w^iqsV7Ov*}>V?VDOEE54*vt9eg~`%OF)mrShVyF{CQC2HxMX1;=hrGsmR^c+ z$-=(Q_bW`6UW#$a!v4+=C`^`KigC%pfzGd8m@K^%7^K#EZp1qeF~GMmttJ9a9`*5D@>MNigC%pvCi*bm@K^% zv0E zVY2j6j7t_C<^0iw${*=OG>7^K#EIifuUlt}y zFU7cI;c3pFUYIPs6yuVGXE=XmVY2j6j7t`t<^0)&$OOE1N^WZ|zQ zKGz&0_4Iki=?!xaKg;Jie~@~u&ZjrhJ@Q#T-+BIx-%ie_$G`7Ok9?MY?fl^-pWZel zpXCdj-%;NEx+B&vy}|Br|5^Tx@?`QijAj0Ag%|n$_;)c7eg2Ko)C6ZQDU3%i#kgeQ zrOsbgm@K^%zu#7Fj;yj#w81HaQ?=^Wa*_Cmn^)=`I`%qrI%t{vhWt?Z!JugUW#$a!rPp` zy)apNDaIuW?{NOk!er^C7?&)ZHMDxlckqpT(a;f z=btW2mR^c+$--xxf3`4LdMU;w3!iiT`NCxBr5Kkie8Kq_3zManVqCIts`D=uCQC2H zxMbnW&c9NaEWH%tl7+82|5{ZzOEE54_@?u36(&nB#kgeQ+s?mJ zm@K^%ik~{lckqpT(a;p=l@!mEWH%tl7)YB{_lm!(n~QeS@^m0|0qnB zUW#$a!Y`cvXJNARQjAL$PIvyx!er^C7?&*k%K5JglckqpT(a;R=f5pXmR^c+$-;j* z|L?+N>7^K#ENodk&WzWlt-4L7!6vVxJvdX7*U287xyhT&9&F#_&2A6Q(&Tlv2WM^a z=CB7lGznmq zJ@M-LW_?&syt=+!)Jx$l=nR~z$y>-CoV&?e*dCmx$y>x8oVUsAY7frWeVoiC5P*>%)5D)%DH#u%38zeX~BSCth9O9_pp=`Zxo7HhF8= zgR3=peeJ>3o4kJZV6P^xzdhKy$s1q~uF>QTvsQw|>%)5D)%DH# zu%38zeX~BSCth9OtPksnSJyY|!+PS?_09UQo_KYAvp%dRUR~co>ZS08IRghbc^lY+ z>oj>A+Joyhc^lb->os}9?ZF{U-p2M|9v6?7$5|hD9v6=nuRiWPE*>vlecX9mJYKx| zxbwJpym<9-=W+3P@#^Cqp&p-Cab4GW{CQb=T-%i%ewH^=KE-`)1kSw`#iIb$q|+=YHwe`{nl5 zP51j#-!IH_!gIy?*XJzj#ropa_0D7CG2_+8p8MzL;?#|n zkK6@?XFIo4$Y?ddGf7q{DbF7ftqmgkJy zZ9SiOdppbX#_hJAQ@nkg<+aiZxT~H_mgxxyt&D{%O1Q% z;(mCYmhC#dyVV<_-v>U+{BCY_{$?#FPmiBlc--~5%X7nXhF70Eo&$P3SD|h;>K^y@ zFO0|Y!ei&L=5f~NEbGN%yWiu=apr~{oeUIwVXUX?(d1h zhn%~izbWeP#I(<<)NddpGs>m40&hedRVkYli~t1#Zbd&dz zJ@|~I;f?#}*dJ~%K7H;xee8Ps*`~4i%pm<_^O-@t{es5w`0vu4=J%E!x%}R;{9@D3 z%9!+X-}LL_-&hZHK(s8`%Ov@qVA>ZQ2PY0kj6n!FF~ z!M7zI`yce5Jm-v0|BBKlS8u=5G&aAB^pnl+qTYU2WBFY?pgYayQ|Vpe9)6bJQ$EGx z`&hTb_kCY~(761L(&J~+fBy-_&EhjuP3X@zeWCy&>x1v&^>ocjq6~a`N;T_f6sF z&OKRj>7A}#?w4im_lt7Bc`nntT7I7YEdNt^wHyBi6kZ-n`pNNg$mKRaYq}rjVTFn` z>PzSqZ&FFc2jmd9D2Gdvz2k8Rl{W{fAx{lL@;_V!W( z52jYM_nsPfFtwV!O$y`DOEE54INJHKg~{&d-u{L0c5?54!gxEocVJ<>UEDjUFy5~2 z9b6c1H}?)HjJLachZe>g?j2PaZy)!LE{wOY zdp|3Tx1W1IFO0|UE!9p7`F%ouZz;U|J|Vxi6kdLxkl$MhFTYR7?=6Lw-zVhvmcq;L z6Y_gY;pO)U`Mss^^81AR-coq^eL{Y3DZKnXA-}g2UVfjD-&+bVzfZ{TErplgC*=2* z!prXy@_S3+<@X8sy`}K-`-I0z^o}b`mR^cXvha?jXN-HQFxflZd%7^*B=?>vjCYrN z&lbkJ+r8%sFy0jR-Y$&ysC(}e#(T`YcMIb^ z?%sQa@t$z+{la*Ebnk=0cu%@FtuWr7-21RF9@}$@Z9dyMWP48GWjlv#&ndiY=aB6= zg_rFdvOTBpvYkV==M-MHbIA6b!pn9J*`8B)+0G%`a|$opIb?fI;bl9AY|kmYZ0C^e zIfa+)9I`#9@Uoplw&xUHwsXk#oWjd?4%wblc-hV&+j9yp+c{)=PT^%chiuO&ylm%? z?Ky>)?HsZ_r|`0!L$>D>Ubb_{_MF1Yb`IH|Q+V0VA=`5bFWWg}drskHJBKa4)<%!Q z@3QXoEQ~jkd#e@3o7uh93*)tSuUBEbS={Sg7;jeh)+mhE!M!yLZ3**i0-a3Wx z=5cS`!g%w#w_ahq`P>^)7;k>}h8D(Kz`gYg<1Ogku)=r?xwk=KyoKG{urS^t?rl^U zud92*3*#;7-o}OT7ISZt!g!0jw`pO#ZtjgJjJJe)n-#`e(!I?K<1OXh7KQPac5h^1 zyk*?mvM}DV?rl{VZ#nn2E{xaRy-|hnmUnNP!gwpVw{2m(72VseFy2b;ZC@B~W%qtk z7;hE#b|{R;+?Zni%$y0C8&i1gJRUMPrtmUnLgvO4Ugk{5+?c}4oC%p5Q+Sy(A#-C2 zFLNejZcO22&V?khw91mpKzMH>U71XF}%26kg^`$lRF1%bW?B8&i0hGa++h z3NLdeWNu91WzK}mjVZj$nUJ|Lg_k)KGB>91GG{{O#uQ%WOvv1r!pocqnHy7hnKL1C zV+t>GCS-0*;bqQ*%#A6$%$bn6F@={o6EZiZ@G@sY=Ef9W=1j=kn8M4P37H#Hc$qUH zb7KlGb0%bNOyOnDgv^a8yv&)9xiN*8ITJEBrtmUnLgvO4Ugk{5+?c}4oC%p5Q+Sy( zA#-C2FLNejZcO22&V?khw91mpKzMH>U71XF}%26kg^`$lRF1%bW?B8&i0h zGa++h3NLde94*n?u`pSBDKg2zot)oGA4KB8)Xw&}J{(@XPTVf>JnrZ+ZdZ9J#`Sdu z?$+cDv7^K#EZoQW&HUJ5YF~T% z+k>h7?2WJoQwP{PurMCI6ptlYc(C(_6edeA#kgeQIOmTkOqO1Xamm78IDc$mvh-4n zOBNpI{PBg!(n~QeS$Kl;Cl)44FU7cI;dtjyDomDMigC%plbt`MFj;yj#w80+b^e!y z${BH`ArI%t{vhYIZe_NO=y%gh;g%>%0abdFb zQjAL$PH_H`!er^C7?&)()cMN_lckqpT(a7^K#EWFqG`wEk#mttJ9@P6liSC}ll6yuVGlbwH{Fj;yj#w80MbpH2+$sUn@+OUW#$a!q=UDqcB-|DaIuW z-*o=1!er^C7?&)3+xd42lckqpT(XesUKbxP*Ug9Z zy7+jxZa%En#mCEa^I^R%K3=Yy59@XD@p9dKSg(tZm+R)kdR=_HTsI%q>*C|(y7{nP z7auRz&4=~6_;|T)KCIWp$IEr|VZAOsUap%D>vi$*a@~AbuZxeD>*m9HU3|P;Hy_sP z;^XDI`LJFWA1~LfuwEA*FW1e7^}6_Yxo$qJ*Tu)nb@O4pEdMU;w3)gdgNMW+{QjAL$4t0M0!er^C7?&&@=KKbQ$xM(VY2j6j7t`7?)(;o$7^K#EF9=VY2j6j7t`-;ryC~$;+T9_=o6yuVG zBb?u?Fj;yj#w80kcYce)Wa*_Cmn~DNL4L zigC%pZJpn)Fj;yj#w824cm5}Z$dj?^u{Dy%gh;g*!RF zb78XdQjAL$?&AEeg~`%OF)mrSoAbLDCQC2HxMblN=l3W~mR^c+$-+II->WcLdMU;w z3-@+@pTcD6r5Kki+}HX23X`RmVqCKDaOaOGOqO1Xamm6Xoj@0`Tu2 z@Ho@k!aW`*%l!KXv;Igvy&ucZ<2?U9G5^*u_n#jBHZeW!pJo2d;dx7*f47!=dSvJ& z&%awcU&-_DKa)?7JiX-kccABYo_`lOk0(9;P2fBpmU%o2l>6u3iRS*(lMaZ#=Rkh@s@ROXkonN+*`jeUU&C~6~E5)?HsZ_r|`0! zL$>D>Ubb_{_MF1Yb`IH|Q+V0VA=`5bFWWg}drskHJBMt~DZFgwknK5zm+c&~J*V)p zokOO?)&LP`#3NPC^WP48GWjlv#&ndiY=aB6=g_rFdvOTBp zvYkV==M-MHbIA6b!pn9JTiUm4%<0_=zstI}d||wq+*_eA-puZ;SQxLpdn*;jo5j7A z3**h|-YSLhI=HuLVZ2uNdKAX%=w8plc%9r^tuWqf?yX)JZ+7>36~^oAUhl$qbGWxg zVZ1rrTeC1;7x(%U#+%E%wF=|S?Oxx)c=Nc|uQ1-c?)5K>H=lb03ggZ1-oV0m3%Iv- zVY~(18&nu?A@>Fs##`9EbqeDx;@-N2@w&RVUSYgN-5XLEZ!!0V7RFoLz4Z&@b#rf6 zVZ0^W+n_MslJ0F-7;h=}HY$v_w0pw~<1ORf#)a{gb#Ifxc+0uBX<_O(06ibwc_qbC<{QYol42?I4P;(Pv6T4+GOwgq%6tQvS5hox zzJbguDV8$dK<1ScOPOyV^Gb@P%r}sECB;(a8_2wpVkz?tWL`Y@fy^r@mNMT!=9LsnnQtKTN{Xe-H;{QH#Zu-Q$h?wbDf10vUP-Z(`35qtq*%&) z1DRJ+EM>ld%quCDGT%Vvl@v>vZy@tZilxjqka;D=Qsx`Typm!m^9^KPNwJjq1~RXt zSjv0@nO9OQWxj#TD=C&T-$3S-6ibwc_qbC<{QYol42?I4P;(Pv6T4+ zGOwgq%6tP`Hr2b&!D?SWC>qB*QCBAVNpS48t$ z3yNrAtE-3>v$~0BNo#2lEo*fb(F)c|B3i}jA)?i+ULsnGgO2e!TMKs*nL_}ltsUkYSIz&WVR1}SuPL@u!P7}Fc8y5rRqI#D}*Ghk~o)Mpu zrdltH=vC`=5xr@>Euwd=_eC_#`m=~Wwmucn=hi<(^riHb^sTgNd+o>8P9oaH+D$}b ztUX1vx3#Z`###r6=pgG55gle7A)=$KpNVLkb+U*~wN4Y!8P-`MI>-8zh|aez5YdI! zMIxGDT`Ho>tt&+|(Yi)N*I74+=qBqH5#46pA)-mv-6Fczx?e<-r3a+nTYnJIBi5rL zdffV>h@P^Z5z%wj3nH3oy)2?vt=C2LruDXn-nHHr(KPGNBKp|+R79Uye-qK?))yk0 zZha-9Z>)cbs6`(XqnWJsBAV4|6;UT^b`i~CbrI3r*1RH`-&#;a3tL@9w3yXRL`zyd z#jPX`VCTTq7XDE-X(p?^h-S4~MbycfT|{$OT|_juHLr-~w-yx9!d6!iEoOBS(UR8E zB3jn!E}|8zl|;0P)k8$9S-nKGhSf(zeXaf?8fXm?(K^<8A{uH96VZm&a1m`{jS$i1 z)<_X;WsMTiw$}C{+QAwvqMfW=M6{bVMnrpBdy8maYpjS4unrQ@A=Y6cI>I_iL_f2} ziRc&BaUwdw8ZV-gty4vGnstVV&a%!C(M8q-5nXCsE}|=~i6Xkjx=utlST~927V9<< z-C<1<(cRX)BD&w2ETRXkheY(SHAO^^Sx<=QN$V*QJ!3s5q8F^GB6`_+RYb2_Z;I$` z>s=AOZ%q@?pRJEY^r`iki2i1ME}}22=_2~d`bI?mvRW6P@ee*MC@v~>msXYfNNY>O zq>ZI*tnEbf6YHlU8YAr|O_J`Brbv%VQ>9m=Y0}5ibm?nprX^;mgNSC6I!j%oxuyB6 zg~UarrLAQ})ZJP^Tv_TNtu76e)|Q4?$BL+BCCv%aXlo~N7io8E4-xHU?IZ3d9bg?S zqH)$QM0A{Wf{4ajCyVG*>ogIaVVxzSbF5#9=zQw}5nX6qB%%q{r6RiAx>7_Ft!qSd zoppnVZnAC>(QVcpBAR5~Euwp^`$aU_dQe21Oo$$~IN2{J{5_^+PR7d#c~5GYljU;4 z+%sC{WVW2p_JWo<*(@iVy{u(U2FnRyuWR{D>unKnk_1}ET2DkntzjbC&>Aix4(dl7 zq>ni09&r#o;-GlMLGC%wJqNDmK=d3~zLPS$Si6a6jJ2nT_O>_(ItN1Mz~&sNe1bd< zB1Rk(j5x>_anNoK+|7ZwIj}Yd%I3h=C3R54($=yf>TazdqLr*wM8rXth=V8*2Sp+d zazuTt{vsM^4HD5h)_NiuY7G<7hSqQqZDMhdS`JjpfoD08EC+_=K(8FQwY|pdV2u{h zPS!3W+Rfr1Bg8>NXm5*ydJqTcwMA7Id6-f`~Y91o5S3zC3Dt2=iRK zmW8BV(#Fyl=@{uk>mu=D=~C+o@k;4x={o5K>2~QU=|ic#-uTWUb&xtqouzrD`K7K> zA89SApEOV!B&{b6wKfz-NPA1iOB1BKr01khq}CVOwJag^m$sC~N+(GZrODFU(pOSf zz3J{HZ6)n1ogqz>9<$nQr8j>&YMwnpy2iR)M0ZL8+y z)@&l`Y|Sa6xvY6aG@rGAh!(OI5z(U7;v!nYT1rIASj&lMd22-xt!%9-qMp|3BI<3e zDfW^2TKz>d&>AG7b*%M7G}Ia%B0AJMLPSSdKNH7E$6CjWXuNf*_)F<5>s%52TKbK2 zk#&iPF0-x>(M0PS@mlG6>n0K1X5As8yQI6N`=sAV4_l9l=n3md5j|x+BO>jW4Qan< zK~t@lMf9rln)HVCmWbZ5-V@OW)`uec$ofP?e~~_u{%-w4L|R!0%dW_1?PoYq_-n#Yu18XA@ZEW#@_}S9A(v8yo`Y;C_XdNn|Bc-FIGc5jv9R8Jo zr=+K)=cN~=m#kMr^qTdCh~Bc^5z%|r2O|2=`bb2dSbq`!F8#xrE~2lcZ=@djpx~#{ zj@Hg1+SS@!M0;3!iD(~dKN0P39VnuMtwTk0xOJq6j<$X-qGPO6MD$DRbP=6toh_ns zt@A|mYwI^6`mJ@bh%T`%6VVmcRU*3Dx>iKjTQ`d6X6sfF-EQ3}qPwhnM0B6^I}tr- zJtU%sttldU%z8pZPfCB1p0=J9(eu`eB6`VsMMSSzZ;0qE>m3ojXMG@|53P?x^ojKs z5&hNryNLc_{Zm9=T3?IkTkGEBI;mu6wz!}XA#Y5%_X9FtocN=fVGf_ z7O@r;(c;z;B3jDYQ9My<(NWJUN;^r1N*oP+fz(cKUeV0fEF$V)brjKTR%a2-Y0V{~ zd93+Fw1Bmch!(LH7183>5+Yj4T1G_6S<8!PMQdddt!niY(dt%j5v^&hC8B=T01>Ti z4HnV5)({b`Z*3r=jjWADw5he3h_2`iY2sYV9bZovmF(w7a#3i1xDf z5z&6u{vtZiI#@)9T8E41Nb6`3{oFc6M8{gki|9n_BoUor{Zd4yTW5;sZ0lU{x6;Md zB_g`axrX$=%3b? zBKq3;Rz&}nI_SfpF4BBbH)%PkhqR_NNE#xIkhYdaOS?;BrK6>B(uvX;(s|MZ=_=_a z={D&O=}zf>>p}4$>0#*+=_%=1=>_RU=}qYa>2K2K(ihS{rTx3j(9cEGX^9z{L!48Z z$68fHy{xrF)L$AP4V5;KHnENqQ4f8vv4gauwX3+BG{)LfM0;ENi|9bm>ohYJ{tW!kvOY3wIooSsdqI0eDMD%OxHzNA2b+L#pu`UzQ71mWEy4t!{MAut4 zis)wRRuSE9-64e#xS|*Oo%Mi-es6I_EcA%=sE8i7xS|yLll8QSp0%DA(Tf&W zOhW$`d+!0IMX|1Jzcb`0Vn6|L03}Kel7r-=U;qKh7%-5;fRP{ym@tb8ObDomSqum$ zf=Ch+1rvffVb02b-7|Oj)vh&rt7q@?pYN>ovAleq`>E>c>gw=zcU9MD1|*>wjf7?> z67QOw*!MuQ1!i1fdxZ#PQ}ttQci9V}Ll#=!<@#FZ9JUa|u@Hi+G_g+=aea7y1HS=!Uv>tmt4mVMQ0C zFGfWVqc1vzzR(o<;!@}fN}(?zg}!hU{mnqE&=-Y5UkHj}W&~CoZ%)JteK99aG5VrS z=nFM54$cOBc_#EFnb6l?LSJ)jwq)~Yu zbQ{6pa5VIV6JZM643EJQc*;D3eGXQ_2KWRDyqcA%1c$thk39VK80@}s~Fua(8{#O zc7l*vhoW9tK^YEA)U~(8r9$j)ODIWb71p z+APPegjKK_)|nmHosd-`k5*XG*0jfVgkGjERt$#`FvTpxigl(i{N6o1ZKevFdLqR7fc>B*hR_&}gri_QoDPq}Gw_0W5xW`QG9~uo z$qg2moc$RJ0M(%eG&IezEuma_+6FQeI0d1xX^L$Dt;}IqaSEIclVCF30e8cESOAAq zBd7OtmAF}7?Q5Y*q zn1iv^;CWMR0l$9G1^PhEg>>6M184|Mpeb}PJ+Y$FFL`8s=gt&zpc?#^m6c0Yajwu% z2ns_<*aMnD3utRjd^syK3eJToFbyt+g>XL{#%s}zkjW~|Tg%d!g2!ao0mbrYgKY=h zpeIa$sjw85!75k{FTq-P%@iok^3Vp_!Bn#py9{15FJae0HYarfXk*%8MHlD_J)kG_ zGfT10!g5#vFTiS818da{^X?f}B92iD`)y zt)V@1fQ~T5+>RCV;2v0L4&ubC4UM4*ROO^N2&$V&*vaq+JO@WE;35O{7E)Je1dXAW zIi3Ud1UL=GgI;xIrt>R31K#G>RJ^6L7uLgQ1zTN9c=3uwo+X9Bb@ zkVki{co|*=jSC+RMJrMGL+~&xF;8Qc!nd^QPw*u*_!`cp)h>XswAvX^i&km`qxcaz z55A;zeuA+%c}&1ggh?<1j-tXtVCX?S%EBkG8_ulGBMba?NFG-=;L!zg8nRK)2Zq2T zm;n#MvrvQ$Yy@Y(*)Y@Ouz^)!-(vI=Lpv_8U0~?utjstlRy0H5W-eAtqIE@ScCAo` z;!w{F!HV4Dk`|^sejW*k5)w6WgoYmH{^Le9b0N%uQXE;C`%Q+!xB$Fm_TX?9kI;CJ zLWvwS)PlM&6h^|yFa~!2p2trdF2BI(oM7ibR;F|=IoJ!KG1K_}Pr(*b<#-8}WkqwG4Op@ET1aIp9>Xqy zXUux6coW`&ci>(4625{$T$+o+9#97Mf*Mc@>O(_l1WlkRG=t{QAC7~;W;}KROoPke zO1KKHf%&iy7Q;jEFgyxN;2E2g$N!SC*z+O-TYC(Ny2#uf#G>6vaIP4%8 z0>faOnTi$DU?yAvv*2pD4raqmaErMOI|uHByI?*nghj9fHkv|QfJ;JYCSc01Sd*=6LK0FdD|f888{HFdMNyLuOC*8w`OvU_Sf=nX=s2LU-r|y`e80YX)Ek z!BChEGvRWW1&iS!cod$1rLfGbz^;VVumxU+GJ3j%ePBNr0F&TKmN@TSS(!haZagtK50%!h?0!>w0E z-G0GoFcv1jBv=5;VHIS!S>6{4ackBHIzbPZ3Ugr*JOCMfV5&kdI06R1SU_{_TZ5oZp=}*txtNfPLYzyU=%Ye=(1J3kO0is12jdFZZxd z=W~Aog`fx&hmueQ+QI2C1s;at3wWmt^`SFpU|J1m2ZupN=mDAgI1gXL{zUzMCO@1E zV__>C@Jk*CVrxJxXbR1s6|^z!uU!RuY26ivl2gFBE1Om=3=JZ@Ni%+4I}b9QF0!i0vHwmIxzINCI# zK^sFaI0D+zP-1UgI6263naSObSZWG$28%KjvJaH2n@4%9sK^m7>YKS((SQ{+gk#MJ ztSH3_#XenGVGT17E6z17xKxW)=4LKYqI^ysm9V0dIUg%7H#MtrlMg3V&*NmQIMs~C zim_%qR!lG}vEl>s5mtO+KEsMH%+#7(qF|c21S@8kOR?f|b0t<>Wv;=B>&y*U@w(ZD z6~CG)G`u*-RKtoIrYJi=6gMTYqO>W46?>a~v0^_{9xDzoZ8$YWId-6EVh+WM=B6c9 zv^H(AqP^*W6*i`>{hsQ_~D9T9{T?(Z;mHio;AttmtY6V8wA}Fjf@ffDo`wvW0Mi013XoY8GR3i? zlsNz^Dx3XJ%^-lIGjlL-^kiz8L$HFpnR?IyT0&cB2gjM)vEp&_ELL1lAdgG1VgMKZ zAuz)%!;0t33s~_Dd<(_+$teycp%hdwm9PiG$#5FHVlqX@2S311FtQl8YB1J(TZ(ew zh|+lszz&3hoW^Bgn%Rhb1-h3ZAN*p5al3mGoW`j>8a{>3p$WIDP2m;T0OnT4S!lrW{S`@(*(KU6T4um?gds0;N?R(%dKXl;JMic<49 zrQvjQ0ai@lHt{T24;!HF0*)sbVvghXa0ry)RNEK!H}$ci6Lf}d&=Y#Yk#IEhgCQ^s zPBJHBPl2r6)DsFp5h!j-Vnu1#1Ij}MI1qB6l^KQ=BjI?+@P081=5RYEHkt#utrBfb zZ*HTGg|WO~JsrxoXW81O6}AnWXD+~s`^2xrYc^uvhc96_=*M^p%!b$CP51?VhuvJU>eIj- zp$qhcn!n^RoC86OgcG0yJ5p4HN^qPRj1@b~$JozcIpZM28|D|R*oRm1qKP>IE5?`^ zSh2u7hZPk{vn{;z&gBm5-B5xZD!wkp)epWZp2trmIE$ez3yC+%-efShUH@mRA;fw-# zT!ftl&m5S?v)JXZ4mQAB@D6+qyWltY9d72*aSLSb;q-?bs0=e;CbZd|M?0+8X%4uU zW#;8Amsx-ni_BuIc+5;G$l(K}Y2`iOWAhvKclf?Y9zWCiVl1sLzJVX%XLDgmuFdcj zd<_%%JrP;_UKD`6pd6Hk1EH~LiWSYwQtV1t1#4kFY=GO!@aPXi`JEB7U^cYl_d;xk z-7t*bi<4mjoCg_B%Pc4W>OLz9#b9rI~az+iEypC5&Hl<2unc^q`N`C1NER2bcWt=G`xQZ&wwzgF6|08!#AKC zuUFwq_yr2q&!a4MFUT=Xv4=t%XbZC%@C*po!yH%!J0a7MV*qMF2k32vVlRZ5uo#xX z?~rLky$4MzZGM{6=fM4M^$mVxb913k=BFunUa5HR# zUqRo2eW!21=+3GJHDM&245z|WxCkzT1+WO-0(~>q9y%FKXw(<Z*P{-Ith&#qYhnObk(f3c9ltb|c(KYY<3tXbtfokltt!`gn9h zJRU+HPZ%UJjo9Dq>&b6WN$C3tgG*r~g+VK6-%uC| z5c-J1pq6Q@=kN9v?K=uX4#MD=|4Lty2Gso7V4AeANkbge-}ImEYx=W6JE1Qs z4BpWY3k?v+;s;TKc>Zo5ReP4vpr5p_Dh$~OKe}O1(BJ99(x4%YB+PHnP};W@hK7W} zM1Q5P>t78v3VmQ2YN7!Xx=~PHSQv!#SNp{B8?2-U*{sss_d?uPrjB$y;OfD4GE9O0 zzx&KWM}8Pm6ZfHonYtg+W;1!94V}<#+R>2X^(r{j0%R>YM8a17Hvg zgSZba9kiuBISu{MP1#CN-<$>}{NLI)ryE8M#F+$XA6?ovr_n?i9w+kan+q>A+L8Xx z`snf-#HJS@dhrqZ?zZE{L#EW1_pkc!{%jDOhFs;>$EU$@8Wb0XVuilGFi0-EXwg79 z_5J;;!E)*o)KISY=30a2ZijTxocatk)JuJa@!&bV$kEU*^&#p-j=r(f0F_K7-fS_G^zO~YD`S@F_H_+SRGl;*n`W0O| zCy#MhaiN)o)qtAp%6SyQ3Vn;U7wlv9#~uI&nQB;3!_>mo0ezO=M zq7PStiZl|hGH4WD1JD2?jmB#Q?csXRK%+TuJE%|hSJ(|{pRR7+L!WL%Zo+dwH|x4d zKNobP9&XZK!ruttX8lZV*3X5vU_1N{`Sl5hzF-Y-QeUw8fZM?k&}2L651s`2cBsld z+;4)O$S;F`)kk~~4+UY+Xy_}RL`;K5^#U*qeN>;ZUIePoI1DBof-iJ4u0G^?5DzYG zhmQM{!(h`egfhHH)XTKozGiOR^Bek>+0G&HGi5{E2c3SaQ+YQJ!q6TDzzMJvR=_G) z1OLfB;*1`EAUrIE0gmCJDLf=i%Fe$pIfoaL8u+L_WsUZn1nNuH%gWG~oIConU|wJH zT&#wg{?X@qP~ND}@ZvJRhcON6)x($u_5QPmu`tk56L^Ggnlw4jUzwQapMC4}uO{fx zw@-g%f*ySvrEi@y@s7Sv;;Qx!ecZen`iD`F2P#XgoIG+Q>L5hr%81aBy^KdOk@jQ6 zL;cjBv8+hmP`q>;`xq~E997x?GqI>^rAVu7Tk+U33a&$y>wQ0OXy}vUp&|34F)gO z$N)oO6r2L5LKyz6p@SLyOpCfu4_cVHSfNfpQ7tpysE1$!#61M+9SA)G8WgVHfzS~gdI&;?aOl$t zBZJhpRRq$P^m;k34&C%+eE1+Cyo}et9*xNeFU>WuN8>WWhY9MCRYz=inI3n@>ZSTK z>>BY`doIf4C{#?zPL>ibLk{6b%!`tZ`1 z;2+hmmCAWw|=A^|CzlK+VM$>dY45rTGEeU+bm0 zUX~Am^WXvqAEKCUS058K9*a~mKc6c8? zgkA6zd=EbXZIhusxf2(b&C2^JuYs)(jp0ye4sD=hoBkSHTjihUDu>nRSL7Mu*|H$3VpmHYV!Lh8kojdp-zb*5WYx_ zI}7yDh&}=l`UphmCI3JOAAsm`$QklK;+^QyL2JJiGv50wBGVdJ8lhAbu(J z8#nv0}J69xF~Xqp)HujDyo*0-OnF!9+L*&V%#eT5}s#+-DYH#bWaiRy<-J z!-^-&lUVVzS&9|Q%nGbnX;xvyi)JJCW!Ma_z!rE7w!$`e6W)Sv%@5e0;di4ShElxf zDPziF#Xe98a!eJhI2fuyEy(XBQT&vyj}`vThYE+2e=sjj)T8|rEQ2t>zUc~l{R=(D z`hn0LbNb^DdW!$7XIOXDniECyo}{lLGF+JTNTxe(J)wsom3lfK3`0Rr-+K7z4!uBM z6zUa*KHtpZ0<9kBR-pM!)XRJ{=%OC?Fi%ELg}>Xw{4~ov5An1G>RrySXL%=a^(?DL zIg1|%^(y~Ydz8Z*E9zPPS97f7*W-K!%S;CKHviq8X3fpA5;P}^rd-f;3+o{6Y2Jwr zJo=YIJaUM&E*nL+n{+}G@py6ZU{f7`l@jRgq~*2@uJ@5Y4D%;s!=`7 z>9i1-Cb}i0JFgv|D@$*p2WdWGd(N znCi`sdQ4}*KYPOy-t7EOz0rx^%rYlz7Igd zS>rcd+=2X;zW(L)SVq0NagT2Nrc6D%nlEh9f4XP)zt|*07# zGflY@x(NSH4|5pKtD(GM81Mg<9_7%(mkv8ldz#akdNNsgbGq@w^$$JJv_OW(txRK{ z1DnC79GV1Phi&jad;p)or_h`>7hx_rEz4ukA9GUbxk`lR96fgkJr4-ozluZ497NC0+(b#Ol3Qch)^qVijTz|R-3SIj|m}`$JAHo;h z{^sh3@dZ`O)sNr{s+g-E#TQgHS3ia?_OyN+Uz9~>!xQ*I&**~NwcO>F;6Dj_TR(*_ z_OX5%U#RW1KQ!;Dpeb^7m;+U}TuNU~n&7r6S8HBW!7Ws-uJjAPS3uL{>K;7*3k_b= z@;&jz0oJ|nMJ2ShV?TUxxH-`A{n6qGljC@KwCHUr6W4nBpat*Ca`ln;qN;V6tMwr3 zJvqR|(bmVXDhIw;LEDQpW&>7e9#Zj9P9C3OcR_8gDVj4h%=KA{Yp>9}o+8ZU zIg@>*xjf%y-)O(yL|cjbjpkMrb=ZeuJ9%_I)Wxp{JFGRGqIeI@?#V1-c@gGrtxaC> z0cjmUnf8X(pw6exraQJL^oAp$pBac1BOsnz`D)g29ozu3;TE_Z=EDNG7w&@xjOJVx zW!Tr{;3zm6`oTaL1bWXH&$+wY(H7c62h#~F zx|nWQz0dpZ;r)^LpYYi$K*q1j^lq~h#8I*pE!LG{$Lmi z!(biTD83|J$8#rQVlIs4BA-pH73khZoi5U?t;blmv0jE%dV9!_e|e;{(DV2)!sMoB z%YnO+nDXh*+{XC|Am%5rV#HQN<*U5sBCTb#L7_ec(Tk%p3M(BJB{8l4ktC+F9!g?b zKaT=`l&|u(qcOSLR|H4vR3~$&gJSBO4ta_?&+}2e6}y9Vg=Ms!pQB}pqgBV1(K3pu z^E)h45-kz5CX&pK^q%PZqV1`wba*U@X`9sf7|KyT-B1L5FuGv0Uj1HXJN+=S=C(nk zwS3`7H<0%79muck;&CXqd}-B*Q{xY<@=8Wp+o}0cF_{if9Yqg4QuuIMO->Ux@0Yc30ax5tXS}#VC*Vh3Zu!Do3&XqV?(++%GCa`>TAU z>!T}KcV>IEUEg~7E@-t&#Yn48InJ+iwNs@iUG>R{w93=K6K%Khs~xIDTJ_anR;70Z zm0!i>OKbURkyblvz)Hxk@(zm9)kZZUt@3L{x-NRH)&t!@$HKZuYkSv6TJ@>n`YFGT zr&^KL_8$^yZNCQZgz{DYx~w0QyFS%l>(~&jL$TGaqt>BgXG2tmwy~(US?M}wL#rzc^w0XMCsb+8eF70c2_;n^_|`Wt@?fBbZM=>VU(`&n?~tsZyw;IcdCka=$xT;zYR9H7L(3@EGFnFKXceXFIBpSXt+S1FFR!y*q_rOoi?qtu z04UY*a8PA5z$$39!OMh$E`aXn<&|IMb&2w8n>t77D!)^duKIV6(pCSikyiaTd3{G< zRiDj~R(&>+ACpnK_L;=SB&K{@l9=lLN)ppC_DWQ~%Ig{B(K0IQ5E=lJyH3TlpAJv* z>G*v$Dogo#M|rf23OO=~seBD)QyXiWa?6f%?zt4LUu~{Db%}*#6sr~GQC*Zr&!-`e zV(VFV(AxIi(Rxatxz+q5UHh^mnL~b^Z>1xx^X<)OTlBoE?c0{bw0+x?nA+y;B&Pc8 zNMcoq&5i1$b-W(sQM&foT4JG|ihag1nB4Z%d9SwkBq~R-qrFUT@~Mt}Bdzw-z(SRI zq|=Xey0p@djndUtW!yGOS6h{hwA$)8mdE6lr#h-m1EMk&>l>9>9X&Wo*SRs$WgO)? zsU8EoOo$y9X|>Hzm!Wj!KOrhZ^;T?Xw2WdWMR`;&l>@|3RfhDZ5T-q*AxPe~789 ztw~Jnq<2GMyHwr>-fq=V=ger93F*4$9~)_%)0#~qq^rEW5kc!X-8a%YPCtpZIh@lU zB{9|iizKG@`Yeg5eqSar?Q0Fr4Rz2u-Xl-YN*^ETgQTPUI(N^E(se9Mh_rs!&$I5U z=0{%;X_Y_8x*zG<2~#4iZJXfrDP70P#ZkJB<%=S%eKI}LDu1T+u`I9rmql9nzqao0 z^}nU{fV9?srq?g6_5T><*Y-5@K2y4mn=7Jpt?%q;d9CmJC|&#H+eoXv6Pn{+MukzkSV{*4o z?Wc8C_dXm(T(NheJlbc<^IlYM#qMNXp&hlJU!rBgJAn72WfWUap0JGeRaUfKo&Wkv z=pkL_|NYVSXkV)R9#3N0rrV>sC|_2j^$ws=wB8!%0!|<9?JX2(Eng(kI%bM^`4Qw- z+taO?TTf}#sYImJex)Lt@r=YQJ2*;L8`X@o%C8-1y#u&D(mGy0(|TbP=-Bu?(%SwnBCYz>bbXay$5-u0 zt3B#OTJ2Gf^)0s~X&pN+Ma!!V>P5@z z7^oAaYo9l9`pK#X`pZabeGQ!d6w+1SkDV^9^hQy-)~An^)P_n|n>UHl)y6HHeyYoB z6KR##ocx%K(p8??@lcl$Vy&WOw2szMx{m9Xk=8ofTA${1wvV)qs}7OYI)8Hcqsgzz zbd0px;48w~Mx_@(ck=SmDz9slU)$6rN>}-vqjc53N0hGmcZ;;@|FzdQ2CMpf6KU0F zGx;$YrE4Ebyqv_8@3kbRy1$ylbj*Dlm9O%8MR~N0%Bn*HU~<=~nD)~VNj@FV-$i99 zU!N$CmQf)`B{7xX%Wb4>$}Kz6I+q$m>sOmAPd#GVFIq;i+EE_WMR~p_E#y&b1M3c2 z+ukQykDebioF}AfUzS1yt@Ce>NbCH2E83Ru{P0E+)Aqfa#MCzLBr(-zXA-MQ?DnWm zTF2HXkJ7cz))5Q!RP1w>!Q{4$t^;a|Por`aJI2e5C7%Y@jV zNULpzxeTQ%|A|ogZFPe}dP0L!@;q z9`F20*E&y&(pA1b)a1X6(pCP5D8I@d7vWclALkCbwMWmv}viXQ|%3lM0R+O$|;fzS@cmI6rGu8a)3nQ)a zCtIIIy7tf1NNd~9@cNXlW95=4UFXKMNNb`1Hr-$h#WKga7o z$Mw0&>C&ptc~QF7cR{3e%v}@ZS9#Y(TIa6jpH}_ngZ9TX2wK~(4^@Lc4E?Lie}U{u z-w|nT|L@isv!(RktUs{c8ENI;ZT+LuZ+87IB(ClG!s(A=wLQD6uclJcPr80r;j8`^ zgX$}-^)HFiwZ11Jt!u_ibV29e3#~FVCZjlUNtF}gmnC^szVen#@+y8sl2>h~yrq-8 zice2s%2$+F*bc4#(x^O*VG8vu5iJ|ymnV5cJxe8d6~8jc8|t}7l2`E=Nlf)DMl94* z>wh}ZN?&b#9lq*39h6^M>o4yzr9(ScOk&EXSpvgy%2y%E6Sn(+B&Ox|kCs!uHP$!a zt3ES8tN4vcOl8&}7V4>b z-5iw{wqN;bN6Uuztx4Wc&pJt7#pfh>Lp|#yc@>|X#I*jJ#6mr_{>+LVjIOTab>)T|VruR!L0dwn<{Df3v7;E!#566WXqI5>r`i zlbFhC9+jnKf3%*1uL@oUs<*Vt=lQ7ie4kn0 zjxYU*_1*ZY-xZ+xNo)C!qjc?uk0P!8a4&@X+7AOs$K);_>NO~dsa(z48Rt{m^^eNd zvOildP)4{Cv@U6tv5<6~qtc=6bZnjMvg7!DNnS0lyr(946Z$er8fm3J z=3^w$s5*L zFv+X<#Yx`KK82IKicd;n+Ez{e5w=6?pBj}H_LuS%h?WiUX-VEt&q7IF#V<+nhI$rB z@+v+#iD~^=#6mr_{>P&{p{&QEJc>OWX_YbF`cZuC(ECAUN~?}#U8Z!{7kei$XA!90A$B!+bZkk7 zdMjU*XxR|IHpv^xJSfSl`1MKN(9YG8yo%3CVp@L=u~1K~|C*@0&`!!%HCi^ruS@cV zdLEqQRs4n|Z>VSWB(LIEB{8kPGOr|AiG{MX zY@;Yo*f&j*n94ddiK(mxQCV7cOQe;4w)M04+R(M2bxW(v!(66x*p7}#O!?YHzE{_vic=4mDMLI zOUr%`X{CSdWnRSBhU#27&v`=Z+bECLqde3~Lc1t2(_BX&sYA*g;A!jFr}ea?)k6 zx!1TzD_s-WDSa=j%F_;(-Uq8=MHA5lt>rcOUC>%y6W2-ai&grYkyiTK*5$C$rL6bE zs(ejsr{$$}zG?!!pjF;`k=F8>Xiw?ov8wL})|IeI|H8T|R^@3@KINBId0$3a`M-{| z-l2YLT^*}*O|+-wYg>P2UB~)m>-t!gugUwAUs}s+;y>v|Sk6BCT{y4yg1)vC@OAn_*S{&Pc00G%2C-D_!e*Khj!W6B8=E1y=R_ z(7Fv)>AS2uU{#(bF;sqOmG@PomH(Sat9`$-?t)diCNb3VJ*+>s?q%K2y07(_))TOL zr+t?78P=LGQRTgkRrzmNZ?)D0ic0^;`cvzVtu>*d(yL?j-CWg3>l?a*BdzZ(53=rx zRk|i))bib}H5sGya%)Y>D80#gnYCu&*7BOHQRy|Xn%_$kH%iyH*5r-SjjT0+qqOGg zS_*3;t@*k%L8H<&*OdOsktS^nTJufyjI`#S(&UXwzZ$E*FrT{q>;Jn zz_x*&k=7hcJ*>N6m9B{;m47Q%-?+a8s)MxVR#Hq8Plh~-X%fny-@&g|CQl!XtqYnI zQt5@T`imx-AX2)BwI+#_E@rI>Bc)4NYtl&RQr4P4QhHBoO(ZGZ!djC_O1HAs#FEl& ztToA`bX#jpI4OOY^*aBKXm(|7{Q5}iJl_y${qDSFojX4c`t3+7|2vUZ{+lZ2t#1}q z-xJ>uasoS#Px7V7+gqG6d ztu?u&^y$``=u-MjYfXA7eU|kk>vOCpTc2ya-TFN1cdgI2zQ}rt^)&0L*3+#oww_^q ziS-WatE_igUu~_4IJ2qm9oF|-&$nJ=y}(+Nc4m|RUTaOqo7huzuY7N$VxnnlM%6J!P#) zQ>CA=)&su8|Rq5r{now2xd23CoD*b}BCRmkTZLNt`r8ih>($%2VUYdYadXv*% ziL}zUSikD@*CMU-t=6wQeOsiJu8CY#{u@qzE7D5;!Frd|f3*J6`X}qJtbext+FBFB zs{G%qe<{Mf0a~&4px>nBk=Ad_ib!XppNq8m!k>?{?)6qiT7BEAtUF+}-7t-E2h{JKbM`Sp=jeK$l}%ctMqZF2e%Se3Uq(kkzjNUOY8BdzUE zzYE*y^kc9pZ(F2Q-W!otdFeMP>GuoUoqrfs<-HqemA50(DsN|`RloNlt?hq5(%L^C zT93eL|9oVv@yc4?$C1|h(s9wBM(Ha5GwV@UE&q9>wfq;6R(*FxTFa;7A-{II#^I^F zZz8SozKyiX`!3Sj{&bAqPfpi(9+mfJ7j=0ZR4>X)$NHz=`=?|7OGe9UtVJp75tJug+Pb6l z9@ZnR({J9>@$Y*(zs`Sc?>^Q#-lX@9(lr*OT$C=oUzA=0osLT{AEm3l>3I2yPVd6{ z)IRAr^h!~>>XVK`&xz7ipLAS$l_*{3Q#vj^{Wd)vr(VO$>-whSHyszAek-1i6F($c zUiGhIt@Ba3Zj`R}s~4q9*N@V*eT}WVySDE!Y_GdcAyMxmYcX{df>P}I*%1g&fcZt$femdT|r_=TOp!2tvwXR3f zhezpZ-y@=Q>E2Pg-o2z_f{%9kk*@zS)*8pE_Uap@tN#6>bm{cl*>v3O0Ovo-<)!0U zkBicEKBVJY2S@2zUpfvo{oXYl>pI-aAIl)0>-whjjn=w8Nxy8Z^-HH?<~KWC>sR_K*4kgv zuc9%3d^49cv%ed3IWVVEuu$e(zMz^t-8#oUZG)(m%G=^;`NAYwZvH zK74Ae<3ai}H0B@X2l(8vkVp0U!pl95Rk^#Y!t*g*4@@&?5Y;l^6f$I!qaa; zv!nDqNiSeMjQr9Ct#v=7i<(7y-#4v)FKhk2NvGe?r{m?*Z|c+W^Xc3P>30+9TnOoR z59!=L>34wDTwm>9opaT#wg04RSZn`PN7uC0{*$hS#^jzK;o6hmw?v0T`Sd%dbEb}C zI*&puovS4MPN{xWj_Rj!^83E2A^G?(_d9vzX=JV69qD$Eg|EuDx3BY|gMIb!b_A87 z?NZtVS@aTu`r9q?Tf#Ja<JoWJ!A*raMhzgOxVJ`UdNn)?w`EW!4%~ zsr>1f#w(q^!0GvoC0Xb^DpT8Xul3#5_gO!P)jHDgQt3FP2b@2QdC6~V!o5i+9b=J>3;44>>9kKd?L#h5FmE62h1E6|u?~IMX`gS}hn)8DrhUk1pJ&I@QMw^kbGPdcB1$*2*59L&-q(77bvbMO;Y6iZwALR{l&)=^_Q|Jx z_Gurz{yvnJuZ-2a@q?_ZSpQice%fcB_UZpwAO4^9&!_$Q`StmyefVjgecGp=_Ti`f z_4)Pbr+xSx_Q-3u!?2Ho{Au$bgOkz&t@XzzrQ2a21^od^ zY0XitdCB$1D1+8KN$(&t(0k6KFKYpp+QDXqV|r277EAJdTWw|ni`ri1z2$+8}1oo#&>TKA&`tcP0{ zjMA%;UMNbJE*zydKo^P9rHi65nGT@)ZQZ*Rb8JKuEAHhwdc7sAM_QMR(zV`FQMz>L zC|&E_BTAPp6Q!#jdq(NfWux>u=)IzJ>AlgI+&O1;|1GhPV|tbdv3-+#+TL>>p@Jqf%PfY4Wo2zSEDFhx^a}Qv(A&rAr?crK{c@qIBtw)_U)w{GF`z-bcD~l&<_;qIBu5QM$ILTa+%{JxbU1 z^oY`>d!jM9&+`Rvv@d%(HimeJ9iHUVad1SEPqE%nzHpBBiSmWmkx4$S_oyVFVn-9x zdEXnPkFg$W-8V{Cd-aRbrH{4N`x@!~)_PwfozAm4FiKbZ<~KKIesgoA^KqtgaSV02 z>bKB(hgqL)Jv>U+dPhX*(j(EBOz8Je8OJ-OGSoJToe<^Idq>4ijPixpNl`wPuY9AT zd?9u+F}1(?JCx@XYxQ?XpBklWnbV?l>CsWTj>j=ky7bs6UB~0NC|!EIwcd{(gg)I` z@4lrcMCrPooe`x=pBbgAytATo>9f(8f0*lYqGMV|0TR`=`OWuvZj?{QwT}OEe#vw$ ziFCfnbZ&`BuAll>RI$m{>R*wb5~ZtNQ=@e0i=uSZXIhjleQ}ho{dY-}EC#tNtA9w#UumuPbkeh|)gPq(qN}XcA0&Nsl&<<* z6QxUE8>Q>`x-LqWzTR5D$I>@g>v&fEZnRc=>plByYt>KsX6p-i!KeDpwbuQj)_=RT z?iZ!+h|-Ip?~Kx=??Pj8-?wY~v=8rgOl5@Fyd<9%x+lq}*!(1)*0CVTr`Wgvb`9f@Ql23JhFv+LbLrFf>`Qap=Vvi*GROd&N ze2P65C#U}=>^cwMCsB?(U?E}7K7U9 zS;w@Fu)mij`LxjTB%fj{l6+jY&9{plkOu` z{)^VSN0eR@rE8g&qIBuC)<=+EdY!fIIi%M|=_+qSlrFsyjmf=l32pYWV=5!WHYNGA z(B>qcVy`6mw2oJke2Q&J@)aQVT9Qw(*Q0#e9@S@SlrO}#MfueKtmEO0C|`)ZndDQQ z-%9c+_I8p_b$%zwr`Yx+pX&T>l25T6Nj}wkXOd5`_lW6u(C@VL`_}pmmHr?~*ZMz< z(xpE_V{(@d+x)R(DkH=`N%Co-Pm_F#eU{|YIzCVGDfUH@uK=-KNj}BCO!8@)zDn{b z_BAoJgMQysk8iB?`yu^pl&<{WMd{MtN9n5H4^g`Gk5PI7^iNT`bjIIMJczG8t*l7v z`@n3pvW0Ys0#QtP6e}3Ta?2rBD2gecj@80ZO!*FjB2i5F6e~(h?Q#{q@)e7;@)Y+n zAzgJS5ye8iN=C6zuToJg)T?w93-#I~iiLWWA*OnTxdHZ!wDOeoG9g{{+AE5MdhH#> zLcQ{vD_}pDul_*g+dtAOtGvqz=~`cY^8{5)@@Zcj5XDrMVmU59%pp)Y(#liC%Y<~T zuWA$v+jmeD3)^>a6btLC7R5rlSC3-Kr{kdpF}1t;L6xs&q?MUBsI z3-ziK#X`O6MzK(@dQmLYEB#JB{nkCdZ}9W`mOj7l^7H$?KEH4E^ZVvLo#!W=t0%uX zgz}pUD8G4y@|zzhzqy9;n=_~#ZK(YizU6Np>D)GT8;5l5#|}{}?8lB#EbPZlQ7r7o zuEexH^^YrGw@52bcP|stwZ0xvEUd3*6btL?6~)5((r@b1@8a|OUO&I@?(_SGKfiDB z^ZTwpzwh(Y`G)?Txr@?o-P3Q%^ZOP*zwh4j`wl<9Z{G9!20y>=-P5^<(m8+fn=2{5 zd5Q9yC+Rfr>jfMiVPEGrM^b+C5shV89fSG})$uhh(z@o3x7Kfl(oc`H(kEE!nyd6P zBCYf@tu@|4>1Rb+>FN9$6P>PeOzG)-7Uw!$V=&5J}rueeWCcpQC#`;yP^0cQC#^$d^&ODANLr_ zJ0psPde8Lo@x6xfUK+*YdS4dB<9c5n#p8Nk5yj(rUm3;Yde0)RdWYX&)#a)v7V3Sq zmk;?udtVd9<9c5k#p8Nk7scaxUmwNedfyPm<9gpnT=fpW(W>|CC>H8{la~+qLcMQ} z;&HuiiQ;j+Z;j${y>E-+alPk6@wnb|iL2f^-j!eVzCDVCdf(yYL%vY&JEM49@4KRS zT<^Q1cwFy!Q9Q2qJyATa_k7~2x2{>C-V35wsP{rIAM%BI-y6l_dfykt<9gp8#p8M} zisEs-ABf^{y%!S?*Gs*3c`(v?Z~72g+ZC>-+8+-`d88kS^5`0-*ke&1T>~DE@`P)` z6V9V^UF%*FX|4OoNUIW0MOy25I?`I_QZ%pra_4he?lg@9)cRJSF}de)X!GZsN9U}T ze?H0+w&R5;kIGpUrdF9*tkry0%7I>)IA+t@MpZYaMS{|BhAq z+mTj!I?up%r>`VU>w7oSTHg*d<{##F+L^>u?t5NtIlj(|_am+I;R9=}N89;fQift5 zInUkrs>{cbR$V@cv?}#!q*aH{tZ&EHIzPA8F{=DuL|XZGp>;eDg|G1m*?#os7PmxwRKU?dXrSxASt@K|bt@3_DtKN@5 zCMVC&mbG61Tdi_lTxHg>um0-V__`jo2ffq3$$A#{zcSCndN2Qqm)~F==A9^5C2xHN zu>UvAGcnZlY0dVlKEthtxqhcv_p%;s-OBmLShunMpPrZE-<@~j-j8)+`Wa>e*S;+RphmY=C9EF1OLunf1J*Jk^L)Yaerbz`((xj+ONRCs(tNm9m`li z`)@PIWk36^FXFwq{gbJ4dHY|@=3Tk{DYQdH`)AM&2iPyj0JTc?D=-M?K>Ky5bB_H= zw=u5Ie(yoNBe(x49g9`%ubamB6Z<1)Fpkgui^I9^u>bmG#_!obkZrGFf6ZXtciS(= zz`1uxk=T0~KKU~i{WBadDeh>S@kK^~!{$8|UFZWQN)=JCyNh_AlYQ8*YCr z9kCY~v~RpQHR! z?GI+ZoMu0ZfjOh?cjG!R#{NRKYpnezImgG@UwkF+W9?68y{Fs%o%Wev|NSYvgS9_* z1n*z%AJ6ulWq%R%KimE&_R&Q9FXEqLfAUFuuWtWCj>+@vkD>hY?Qf!<7uer$6@OdE z{&yT3lk6YHV7tloPw&rrR{NiE-I!{BCGB>R{ogqbr`fMHk@u$d@4t?BrS?z0iLqVw zZ{YlzVShdTO#3%ehfD3hZ~}kt!Twpa=jHZ?)1Ft@pFn-Cv_FgAg<1A9wCz>)Z{k{X zwf(Bp^BViz#xYjQ{tO0RU1xvIM8;^@|CZz72K!?;Uv9KtjXKP>{{_duP4=sDoxIt8 zcdjS5*e}O+-D>|%{M+n5Lp#s0znb5gx%O9Zt-js9j;lNDzsUC9Y5zNp?Yr!s%Q17e z{YA9ZJo{}p2JW$c2ItXy`|oiqEwKMnU&dnD*Ex8v{U--8_R4-m&d2-hKSVi;?2n?| z9I^M1|#_gpI;w%?U&_#^iByOI8H`a{Gs! z$$K^Xzp}5Nvwt4@`g!}8&*9yS{plRHFW9e3Jy+SE!G2$D|6G1^U$p-X{u=x3xwgM# z|CZ6bGqYcec3x+{Ki7oy_D|uux50iHj@6C!2h*M}+dr)j@5b!c<-FKz|7_~^iv8NO z)vNaRXTNW;{|WVZ&3-M8`Pc1V%CWcAen-x`ZT8D?{dvQ_uG??gznFEsWxpov@V5Ou zIR4+Ue?0qTyZyar!*}f;PW$YzKcDh<+JB#G>3jAI(?0Lp-$DC)V1FXV z|6Tl#?XTsy`o#VY>iMbtwnyi_h&JK%Kv^zmel)m;D>5!B-)+AI`$dy?WnqfoXW5^}H7DEtW{#f%_P4O!g7&9z zeigD`iTW3|{|NiBi2arvKSk~Lr2UK8??w9*w|^=3u_f$pX1yitx8oQtWq;W*+~?aL z!0&Qd`x98#KK9=x|GxHXaU7PjzvfKt;qAAY$UVIM!T9CvACF(b{+0L@?f2z+b%6b) zYbCFueLuLzqS2qxem9ne-hV(w)U^UZ)g8&{Py;b;M#kb{T=un>|e!x>}Y=) z=X)pnXK`G0wqKs}v5WmGW4N!jKbrHgoBi73xvvg+I5&IPzv^u6tL?X8|Ms%q4gYZa zUGa~w-y6TT{l55p><_{}(*EW6N7=su|7iQ|&f&h={$%{V_Lp(~_Oq{hjAQK=yMX&@ z`|a@u*dNa^Hqd^dN!(Z4|9mp{)%GV&;l4WZhuH7OZ`M%zWjMcv*}ootxcw}y4x$ ze-i%b_9tDy)l~ai@h`GJir>m<_V35P*#7IBFPGRq zobzJ3{i66Y?Cac_X@4mGrS^3mU1q;A*W}CXKhJ&O74|D~-+QI~Bk^b1@5{M%m3>_^ zuePuE0N2>BfPZbskAI#0iQHRWZ(q+iH`v#G%Z>Km;M|;T|0VpJ?CU(e*?y(5+#B21 zIeV-9d(PtC*nShv-#PXlz@KYh*Yn%$kK??)!+zm2xHq=n68|py2XM{5+x~(0^X%)l z;2!&L;Lo@JE&c-g-Koz)`|a@WwZE2Y$bI%7JcoN@`#P@|**}-xhzINs$(kK}jx5&OIFAGJU667G%dx99wQ-2TP*PuSOay~O^r{02Q~U%y9B z*?$TDY5O|&pRuoJ^QHDb$A8wot_jQR&%|GDU)O{c_M34{c+UQKt_jcEpM4eg#`e#= zntNmW=Uvaev3*@PR@>L_?2Go_z+You*OQm*m*9G`*1oPS>+F}knR{dVdf&Lges?An z+GxKc{>%1XWs;sv_HS*;y|MlM+Hr4ezd8P^_PZUKo!Mf4<8j%U*X(b;AUpHA{SK^m ztNknR5BMeT9rD&f>{B?<`fL2hp_cW>_{*Voq*tI1K^Mqyzl#5~^VCUV%2(IRZNyi( z^&`0F{ibyr>$k1jS#P&)Z~d-y2kV{I9j)K9?ri;mbrwimqtU~X*ckNiBsLa3 zB8iPdk4$3Y(NBTuumr0*JZ=4?^)p!2A*8DgOC1Y&6ni$wr+O_*@+p@2F+2Bpqc!&g zS@xUZXWMU&U%-A9CW0$ye<=3{h3xB|xUl`F@Qc{b=Ki>-{d4e(*`JMH+`jIiOW5Cl zU()_tZE&%!Tjzao>*?PY%nW$tbNMDpxo|8o3& z?e`#mIr}#d-_QPC`1{*mOPiFpe;@G*_H{2+(f&JEWoHhs{~hs4_6u;IbYRFseRAx# zBwpEmXZ$Mm$KzMEe-{2h_V;PRvyFY-hgGw$XOHUk_3Tl@zV6Rz+AqX&NGVK4jT zh#zjh5Ah@HPr&bOU+)Y0*#Cli=p*f~XW66de~W*#{ZiyP#{Q+m``T|vyr2CB_{ZA6 z55K?t_n6>tfc>wD548US{&DsTbH6^wetG=C_N(9zu|FJtsQvj&ia5;vC-}qde@31W z_A3nFxyXKX{NwGvPM#C&pFsRX`(HHWxyb&n_@nF>9msQ${WkcgMECw6?Vo}_$^LoxlkLBYKgIqI z{HgZqHRGAe{%^#m*{{K~*2VT)<6mNb6#jJk!&!EQ{i&6+Gc)ah z-*5je{6+R3z<)_XZol^k zo~i7YWP;Hp_FEHw(*CdHf6D$z#Gkf575^Fg@8K`C{}tstYrhK5FNQe&8vDhW-1H^;JBhEg|0C}O z*4gidzux}-EqSK0ulIBt?H48fviId{VM7lD{f41?`Eb9%(40@cY3Lk; zzh&s1ppP2*DClE`{^3g8Z?JJL@~C$V{a1v)Yv`0qaKFLO8CZXL&(MuyJ?ec!7a;ua zhMtS~9~im{;U5}$JLr!L&2^lA82TyDCk%btc#k@1=tT749~=4;gnwe_xwr@OsiA*< ziAQ~A=%*3>xuO3L^cRL+4*Ha#dt=Q=eJuX}WuT)B&2?Unp}DRUZD=3p7(>^A?qui< zpgS8n?NSf+8wt+~5FTgfk>&9J4P6d8!O-Vl%Kb(XpKDcJ480F@S3^H{8T@}ke+-`8 z4P9Qr{YH}ZTN6CkZzS~XpwBY&Uc~8X=yC8fdl{PRU&)5<54yLZzXy5x7)Ggbz0K-Js7g^o5suu-{1H^qTI$ej}l;^K-wE(6@p<*U}o5I)AxTM<6i(A;-2&d}T8Ka4kY(rWHElC%%a^I*S`(2s+@)X-CM zJ=kv~;h#Z<35JfF2>;*ETyvac=noJ-$IyQVJ=xHG=X5kAY%(-1z}(BA_+$Iz(-9_%*~{&VZN-$-cgugWzv*F)zU z`Zc7@GxRwNJ=kv~@p}0 zpszCYJkVDgdhL}S>^G7)jf*|lZ{*O|8v0$tUt(xa4)+^LoPWOx{=cF3uHk+o3I7e~ zVnYu>e6OL`VI6Rpp`TyN{YDc1LBv^M=rE!P*l#3s5yHz1 z9ffhQ+|c_FUSVj@_1teH@uz}bW#|hKzsk@}Y5ngZTPe5O1=uYdn-$>&8r5OIdp$BG4v%R@c#{c7~$VHbn4CAZzMd6K;LKR-JrJ_ zdJyRQ4c!d-0Ye`Fz1`5fFZiIL^AY}#p??c{hoPSZz0=Syf&PJ^FDixqZ|IUT5B3|0 zJbyxXqoL26%Kb(X{yy^hk)b~T{bNJ--oX7v66d#m5B3`gU5xPEh8|ww!G0qNzXm-2 z)6j*WA2IY#5a%a`e!kL!{YDbM1aW?9=-iFmZzSQ|SK4Ig<)9xkv=8*p4E-a}j~jY3 z=qC)_Z4>t!37=OH{*$og7DuO`l$=J-$=s$ zqt1i_rHz%jU-Mj=obw=@&*s~8%cOfoCo`jg#KT|`KzIS4*DfSzX$qn zhCYb+2Mztl+qvIJ((-=QD~5i4g9rPKB>WxFuNu1HPVP67@b^K#Zs;C&ales-XKnIe zzmd@W5q`wbW4Cg@k%Yeh`Yl7h2>Pg@*MdG~=#Rh4{YDZ$xqb)N_OjU+Aa z7bY5d;x_I#lJL(#cQy3>*?8W-(C>imZs_Irb03n#-~S-|e?y-{oU;tw=^?ED8@k&L zkLqRUyFe!!`l$!FS4sFRoWs3JLVt|#6hnUjy04)-ZRcJkiPIf)e?#{MJ;2ZxgHAQH zdf1~dt23|Uq>H6Tyj*fvWL{ey0L-~2N&T>8ySNy?O`mww25)}vK>5%FVp`NU#5QoU*`35eA%v=@umIz z0$>ZczY-w%l>*7H3`l9Rrfz+d%Sr2S|SJ0?F?<5P#}J{E*K_K=SzqkbF)6$>(Dr+w(G3 zCXVGmT@Iiw2T+#-sLKJ=L#lHVF2`K>kK-!|dboA5V)JdT*_Z<_0Gnd?V^y1YPLUZ5^7P?r~| z%L~-?L8HO39H`3$)a3%|ashR@fVx~jT`r(57f_cANPd+->Tea0`l|v`e|{iLKve^w zQdI+l2r8G6am)uY|2!b`&j&L90wD8W0A&6Pfy{pqkojK$Wd2tIng8#BJe~uR-}6B7 z`vZ{t{s<($KLN?_0FeA%0FvK}K=S)Dko?kF2pk!v&(8#s-yk6QoedVK{e&za{g9DBj>DsX9EY=k9EV2(IS!u>j+$?v;B@@oK+ z-`zm+`yP<|?g5hDy+HE&K9Kx;#`jnWB%cx>`IG|5rwm9w}E`fqhW`XBYcbl`Qs4B#3dRHxPgGlB0yxr2bmfoB8X z0}ckhLS^GPWXAYcft3F>Amx7@Ncj%~DgPTl%6|k%`QHRm{J1th;@Ao=wMl3yPn z`K18KuP>1NrqP&iTn;3^=|J+E0VKbfK=PXfB){1}@|y!Bzqvs2n+GJn-vfC(2PD7e zf#mlGAo=|fNPd3;lHUO!`Mm%nzZZez_h%sa<+8GI%s0MP9+3RJB)>Wb zzePauqmM>@R|3iJ5g?DB04d+2K=S)3ko^7&NPbN~@_P(Oem?_}-{U~?djd#)6KRAv zCIQJW2S|RCf#f#@NPbg+Ak(b_^0+ZwnYa8-e7v2}pjMf#i1!ko@v9&_@CbfJ1-_fJ1=`fy01{fae0Q0GV7&roW z6)+2UHE<;G8sI44w}AAOuLVW{ml!MrQr@LN%3B1ayv0Du>jhHYWkAZi97uUr04c8z z$bM%fkUn?`@O)q?ko`>=ko`$HkUn_@5M7_D1V#Z@0hxalkoo(8%)c7Q{A+;Be>IT# z*8-V;9gz9g1DXGIK<2*&$o$s=ng6$e%>Q~I^S=Se{MQ-05y&~hO~6dx1|aj>2xR(A zz>9#Jfn$J6&K9`~fm&}stv6r{t``Hf-hf(fK&>~R)*Ddk4XE`7)OrJIy#dF9PZ@9= zupBrZSOJ7fpelibfUAJ`Q&spG4DAtp-xQT3`&Y4oLaxft2q$Amv*F zq%6C1G^4$QWeCvRe??xcyy9r47ZU$1m^+3wE0f;}f5kHh~6Oi(422#FT zfRyh$K+1P3Fb22{{dvVPXJl&lfW3@$3T|*6Clg|DUjv<49IeS4rIB%0J7YtfIL@*8s_PEie}NZ6Ntx4faLcbAo<-2B)=^{^1BU4ezyb3?+zgO-3g2Z-UTGTtw8eo zE|B~_M`uU>FqWMfjtn6AX9CH85Rm-O29p0^Ao-sIB>y2m@*fH$|6xG#9}6V^aX{AB zcp!!@wH2Kv`F|Hk{tZC#zZ*#Y=`a#r&j9jzCXm+$0eSswAoCv#Wd7#>ng0+V^B)Ri z{=@)iU_S6tU;*$l-~!+T;6mU;;3D88;1$3e;FZA1z{Nnye-&^F@M_>x z;5EQ$z;6LB2VM)D4qOLhIc@~995(@3j+=oj$9f>ku>r_(Yy`3#n}96GW}vQjAj|O+ z;0)lSz?s0G0%rmL3pg9t1jNv*9s|w+{tP%5_&9JL@Cjfp@JZl&;8Van;Lm~iz-C|p z@E5=Zz^8%iuhSpK4~`5V%aaLYc?JPlp0j~0&tRao3t(rQ4*_bs0BXAcvOK^4A%1W? z2PD7ef#mlGAo=|fNPd3;lHUO!`Mm%nzZZdVz&``YPyL8L-~}W<50Lz#f#eqhB)?8T z^6LyFzgQso#R17L9vBbI{V{%U%mJB)>WbzePauy8=jlR|3he z%)BN<3JdIOoh z50G-C04YabAmxaSlC{1#Ao;`t$tM9wK8Zl`=>jC5u0ZnX1|*;EK=MffQobHQw(GNi zY!^L&w7*_J+D$T$^P=9sfxte%bYKcF1K1ZxKcXLSA+SGi5pV$T3ScUb{zV$_O5i}? zVqiM(DqsfiYG5WX2{;IN4e)H>w}69z*8lECdb%E(M+oECQYf%mfYx z76V5By}&HsGT=xc{gzR{<-ly<3gBp<4|qOsC2%4z0XPZBel-Wk`kM@-ey0GbpQ%8W zZyJ#DT@EDw=|IMt0i>R10vUf6kouYpWV$&(mU}Lc>E{8NE*Hpj^MOp42V}Z@Ak!59 znQj4)eI}6Q8w4buNx%%?Od##?IUrL$52U{S0A&0>0@+^v1Y~(0 zj1m410ZHuuGX72=+vN{{Y?r%$%=cj++hrq=?ed2}w#y#@*)Ds>3!gqf=9dCwetm(= zZ(@R6p9Ew+IY8z!8OVI50GVzokm;rYneK8R^@xV0(?tQ9&I4q+XdvZ_0aCtBK+4w{ zNcm!clrIj*bn!r@O8_!mB9Q620GX~Ukm0Mj9LiB)@DR`CR~H{0o7M ze-V)J#~2(7Wc+bJ#vgCOFE)6Ixqhj^%M4C1I1xyBCjlvMj={+WrvNGcRD;uiEXU;r zryHDMa3+v)&H_@-*+9xS2T1wm0-4`DAj_2tWc>L+#?J#Xe!js1Ak!@{cmRhbl@sr25|oi zEG71^07?BGNV%Q^Qm*HLlqQ`sKLbhq1xS8>1(M%O zK=S(=ko*n;$?s(#`Mm-pze7OsdlkszH6W?if#i1>NPces$?ph|{N4nT-&;WPI|?Mf zV?gqI8_44wAgOnOHm1SG$I0C}7Mk~#?_zmI|B z_X&{vJ_VBBXF&4%97uj&0LkwZko@@k3~?yF>?b*<2nUR%pzXnHx*yd6>y*NuTDMLB zzaZ6~J$rz>0H+Oq>eML#{DQ>ylzP@2xT=r1&H7l^y;dKlAXX8Hm45Bdl{Z$tjCtACLCfA(3e&-YyT;gl)!I&%Kmv%h06M?SG# z1lf?tAE$xipKo84>?&9gi`bO1H7gztr{`dWpw|2!T!i{-YwH#*tf^hJh)V)` zh~2cQw)ToOPu1$vMT}5eyJ*c*8_;%eQd_%ebM5NdHMfqD*f`&`y7r2?r|aJOn}Hf`E;&#L*0_l0$1z-ja5O=Gf8uG-|UzlYcBPHw*0zY6EIch@6_)pe)t@Q=yfyl68{aMay! zahEu1K&%bcN-{ z+Puo|uUkb1h(BgbkCVygud1sV^D}+EscseG^w?~#Z`!nK^Ze{So9Fv$kRj@Q6ZrM0 z+thOm8Q>i9Z>rn8st?a&@8I=QCr@tZ;m2uZEHXfB9zA)k$Y6s$r^cX8oS*d1?~z=K zlH;5SPMy+D=_Wqtrz0Q)#oNr$$(YLB?a zpCR}pzVG4t3ch>HcO8)5jvnh^w*2nFk_Nx8Kv3}Rjywh;uL;`y-V=Q)5wk^pim^Jl z4Bskzi*cS{!k4K+tOu5w(4km^uTbge!Wq*Kx*XR_5u;kwBiyfQaIF&IRS5ATq#CP= zUZ7Xif%YQ4AF-J(9rwTd*rPK8^lHPU7@;{>*PjinL>N=2V_lCiGb6;Ef_oXc5##pN zY0|Z9OCe1mzLb!hYLFu(rhLn^tP-vw9I3dg;Kd5553wnK6{vEYr|WW+Ldta92h74f zbn+5S`Hk)d;?6@kQheF;Nm@6|mpZ1FC1;jFYOR}=t_)>Z9r0=o%1W7vBV6s#V#yr- z$+#EfLkTEDI@XmdR2fQ4j;tG7j}_R>o`v01?TH&~Ps4C;N-U@zdD!yNR>Z=XE2VMj zi566C>XLTGG&Yv#BpLUyBF8C5e8y#+(*}yMLNP4pdMV?L|} z+y1gzk;tugn*;UiMLy&bo$qrLv{A znxQV^jI9?#E9J;13-`|_Avg9|%+vM`wp7%HyTy}cJvjDddzP#gG+(H>hxZ*Va~kSu zhoMp})A^S{(vC?s-m1=u(B9aSwOqn1tk%)qL#@>6s%;MJv(9dp zp4#TsQq2YHr#*a9Th+@H=zA&J2m5=DH4A{b&;rM$EUa_3rV-j_Xj*G|8STqwv1k_|Zhn;i*ln+)e9<7)WG#on3imF=Y^ zDTcM9S3=kLfk&=Qx(qp$7P+9wM&I=qE8Ev0kH=vZO}B&lj4tIVwI>}&>lzp034`SsDZ?4I>FV?d<&PEH5o(^F)hS%@$D z8;-ElhSTF%$%3_+1?^5jZ*wkU(qCt}{NPZCzQK$8kaIwlfO2Y%eH%v^=0&S!J1GKf zdq+Q>;49GOrYFhKwFn#vwXQhlOxLx^YYUAnNNzR`W6;lMK2joDorF>UYy}(*igfSF znRQpptrsE(&LlYxVJdg)wd2W9tr6SnQakiQtX^gsd4?g3Ij#aH&eYsx50;eqNc$F> z2%cXQYq_RqP1S3;Xh*bRmcsT6v@2?^9Jw(kYe_5zEK?C{g$Z_N+QzJ*2?jbnWxpf!=V^E*IL(tT@RtfP{PnMmuVYv+B&@s>OkhP zl#uPp+D$I{{{r}P)CFVEbD)<}uG^B-HdkY4orUNzfkT(uu{2-z(lA`&{WQ3baK;TA9c~ z9Ih>dt|7QyhK=K#q1)X05lTTWil9$z|%7$i+BrZ6?-TjS_Q|4@IIWqAFYXNKI}8Z|FAY5%&$MV&BjOivG%816y|Y9 zl9#QGy`;?l=s8kumfNu&v0YlZv>Wl;Sw_1C!x**)bNUz2p|ly6$*xb@vCo<7Qfsna z?AExIH?-wWLT+r=^?FuNg|ruil{Hh(qgF%D?0wnp#N(84ha(cdb*LT6o{se5rP~?B z$iTci9qrZWM=0q9dISk=InoD7A4@&ia#N@DtayjS?O(LrXZi6o3j0oa;hgi31MQk) zs`Mg`pKi-h5Oh5s@mU|@3A6pMH|2`0Q)1Q(_2b+<%ED9JGxWK=JL1G%0BNYpbnLL^ ztc>0aJ@1^b6r6w1bGJ4UoV)aYSD^2mgLo{Fdqzb5L$%c6dx}?+k2;x(D=Y==qzWVqu@F3+HXnLDAJ^xa9GyNzY-M_c61y$Q z-HL--nICl|tL6?*+xFe9O4>-p|b6Tp5a2$c1dSIOJ)YLfn ziq+cQGxFSteUR9*jc5I6dRgQoT*SX&-LeHqjq(10_m%*`=qb|ocJEpg{#MbYpSH{&lu^GynrbifZr=7TGnQXU_eS7I= z%8=rM!02Y{Rb~#>>vdLn?fp{eWvDA!v}i-xnds786YK}9XK`LwPQkteHQzGVmhVaY zSl5hbTz+LefxP&YIk9*S)Vx>}eNu)6&!<}|yVZ@mm$3R^O-rk%PfXvPA;De~nitsWQ0hs`@+!LyXMY7dpxj-K1b^IQ>nd?Ge1+x!V}+< zVRLpb1WU#qjV&M@S2**M5NE#Rv>Q9}uqUA3w@gcE`x({_{U%=Xf~eLjwVl#_d5xD$*iXu0CEuqK(F{Ry=$;T*Z`Xe^<$1afpn zs99P++*2cx2Kx`pG2E_1kJ3t6I?ftJngxjM)@L!K;VgohW6dtdMY; zU=gghj>*+>?korUlwfI{6$NW07k{m}=HNMH-j^PY`zw=!G%Y%6-5ULPD*@XcEtTGD zI$E??XFhaZrSIef*B`mkj>Jo6JK@aM@vLn6N#MttXr0ejl{;sa>|t8ZeNu$7PezGa zPt|tWgKemFZW)k){*j%NQ0k7>#!x-ekWuG4l$`6WZPhzl6I+}+mD2|e>p)*R2CdEM zMcwl@+g4;Wy!cD=2o=9u9vk|6~ zl`R=D*jLgoV2_m@!nvb!M`y2rodt(WqHv#0R&X4TFL)oXBWnR-%BacK9PV}c@l0xa zd5KTKv4Z1_dzDCLP~qB`&~Dyypg*o-aow2Qm;-CYuJiceF_q!00&S6XF%&-S6!+qBI?=A`O9f~cn37%maA=Dccc%G#JOc{yGtFe?+j>r zHuOgyygfE={d=y(*p?mHsvW*xy{@fP?pa66cAbS5Cwp(4oj;Lw_sAT}=}B_XUfnyK zICjdNX!fgqv{KF>5?r%-wsh{o@nZ#sBdT4iv~yv$ZKji1ku!I-V#w|IDZiBUwh7r;2HwJ4(##6hpC!P<>V#|AtUgvk#pD3B_x5ay9 z-U}foy?xOst$=%+h>_)X#sJ4_vRv)BX#GxVfVIT>VcyP+xH@9KPCFi?EtfUXzP>_`pvKsDax46%2JVp2+KTZGLWa;! z7r!EByt^&d z?X3FI-ksUGZMkBPY(3=S?uFdX#<3Qpx0;EVp}uBnyHiK<=M&NPXQ8szs_B5t|pUv z%Xhc?Xxp}RD}9Ib`plF2_oZ%a$$9UCbz$#N+kS>M=Jdku83&YEaHe=p$&q&e&~dI(AI9Hsr)`kM08l9Go3#PD~l=Y>Oy>ymqD~D~mPQYn=xf z-S^YovV=cT**}nvoU7|<1)kBdC5@aeM_aD@=`fqJZwo2ibsG9i z&{-~@$31_gM0R}gzIym zyYEM{rbSPKVgKC`lXWB(6CO8CYmHa!{^vwUBRgrR73WG8o<8Ax%aLw7N z7M_n=rfgU-SN7R9X}j)T+qP`BUfZ%+B59r0y4v0^)+BH!}r1S-Dh@%EVxDV4urR7m5#f5?P^*upOlcAqZP=#B&j(kowe0I zAt^%ZFmzQbxt013joUS7#VJ_Qz9IRBO6p!)v9gAiE>u>h7qV;ny<3qsJa!k?icPSz zp*e?2>#WGMS6184I_oN}$r>KJd&s@m&^Fu+`jyoN8R6~I`m#RJ)AZ7z>kl#qxA$`V z@TsQ4ew-Nx+lRDb_6By9!I`6Bxi~A!Z}msC@gm|tZw9~IA%(stI1fu3~1-Xb|ry+x{Uk1buVe>zVu#Oi=Be9+j$9lb(XmG6ayelJwn~Ex@AYI8HnpQT-nO1;E#vS&RdHehZWjj9tj8$kIBus z6GG>sWLydQ6tovU(f$^A@{d)?R0Qp2C1qfNML)+r_HfNyL%2P1g!yOYN2(9pLeF_bY`)6Op4 z@%Vpgj%7@Sw%Ec$XPf6mum#qXovYcAi?zUVv8>{w$$J&p(q-L?+-d!^5t<7;^ihDV%bL zzAwrxpR|r7y{174WX~3DXddj=)}J5m{${4`hs(m8CsI7AGxmyEkkV>J`WWtRjScDN@D6qCpBRnt zWCX08b1K@Ql!SLWWGA(hkWX3U!m`;y*=um-!&W^S-(twme%aYULmTCjH8RGqf1yQ@ zJ8jyJGir%i6-#Fx;rBDxI_y3A$hlvD7%~%(eRlE&Gk1PcBeFA6dNsekx6b-?8)xYVKH{Uk%!l;s7oqxwrf9fzmNI3cSWY?6=A#A)M*dW+G$lo zQQjJ8fTiY_b2i6AVLjOKgEl0x*wlRI8bh4@qOHZ|n?(F*TfFPbTBWSigze!tib=00 zJ9(|w;qG6h-=N%5-YMYGR_|=bJw9tA?ST2RMzH}2h?(CZngw6W=}BhCyZ1U@o&k2&sEVP z$Fwq*xW`bA>+V(C;C_#H^QakTwKekSnguVA)*D;`N7tfRxdX^GO8lP$^nJAY5n7LI z;arV&`W{-~Xgtey5s z6~4#yLKH-r6`y>76#l_Lz-v)fq$2M8DM&9NF{Ok-DXs z&~)TY4<=Y%=RRVv2S7R9ece~l<919U>eA_Zzf6zY_DD42v~=`MkV$;6uUb#T(cj7p zOXeANo=o47;~HyfgkFCL_Z!=?`PMj#O`dtqR%>UTv)J61)kb@Kv|!KZ^lgwcz;KU! zal3ppuE~VA($n$OB1^;Gh*oChWGvYeCSwY{H+nhkk=l;5p>5`yEwvq!zBy7~(Jl*d zkB1%a8`AYy=gcNf&pIZzL*igx`}8GtY}T0#Pi==BE!FqvGwe;Ajx49sVj}4U|I4vm zKGs+5VYSE8g%?<804-JyeR(XMEM*+|!``=*kfN+~9o2gw4R6d>tR4zf@9g$l2s58hva_c>lIYe%m3)q06QG7iw7SCFK3OBrUOG04e?79=8VS{F$1MNrk@bAc z34=$gZ>|lrb>)GjFgx)#+KS^w+K3Pil`WXQl<68ClMZ)wL~4d*-{R zznXMrJ`p{BO-(+cU2VzLW6P$kD#pwtEGKy~CNF z^|xouGg7Ub`8zA^(MRY!mwnusy}vWh+>_u6i8Bh={T`t+L}zrM^+sBaJ=3iy_cY`S zz034v?7HoCemW8g_tP7(+U^1Dov`3KZt31!q+0Em)wQj&iS3wo2e-o3=ALcc^O1fw zcn)Uo#kEf-Uymhy{W7&}I~|jW>u{$#A8T7C>wyK=U2xyjk_UFC$CE3K=h~VqXT}3- zTQ3|h>Djb(-)d1iWRB#iooU^jNqHlAbl+rogL^j_nf_VwcC3v@9<$E0>}P&dJ<}4N z&Z%! zej{__US@em7kzKp_f3zSeh;67k>_xFxt`*ay$If*w;}OPlRS5ks-FhplL~xdfpO(7 zlzp25@95a)1LS{M@OejumS8_R_s=hP$<5l}ZgE>H+?_*CUOYpX4=W;fJ^>=T!&qin zCF&V+bp~oyO2y}CoOs=_A|-cBB0mfBW$v4u&OH+8o48FNHq|CeKkz%gh5WKAk!XI;h9fz2W^dpM#kj7S1<7%|?z> zb&G1dhl%v$lJqsw!`Qc8@#zabkH+VF*i{nBM=UC4XO zWPiQX5Nl8Nqz?gQM=z%w?vYI1yc0eq$!I43yVO1@Q;O%I_=M-B9Vq+Mu&2P-_sV~t zaGshHE90s?0zcRrL;^hYKG59O1~0XM$S9jb<9>kO<#g{$5~H@&-7W%OSt$q40oi@ z4%5eExjp zo*I=AMf^4Q)3ox$U5RcLwfLpI)d1bk3~~2>{GVfax-|UxTHz~C$npIzJhykb>v2yz zU)w2d!M<-n{7J`SWFF!(N;{xO$NPKaByUyV^Qyv`7B&fOb&9!S{|_fyeFmOPkMw`& z`Lr|jEHc{Xc;&qwd?T*3$uFDIzRNH*V%~gfjjau5%(mXG)d;;;$D_7BfJp7Gv1HV* z+n?s!TG%e!y0zm?AG87cP64q1>xJ{qX)Z={>0j)-R(k09g4-G-4yCv64M>6J<$n;9 z2jvTXze{-i^Nl)U5BB{FRz9Z(aeBEyT82;?b4tm#WYKF79*)mM4)lqv#?C%XKF;&# zqrN03))H-%PZZcWioIVgqr25Zw)X$n`scyQo#$j}mrlRNk;Hj(xH~2-f;+&L>b&@t zec1;l?@(pC$U?6>Shp#+1w?*N1$}zwU5T_RNjp6oH@nIcqzYw5{`W__Rl! zE+O(b7IhAK3)%(yHTQc2Ld(fD-OzcejAXQb>X(}Ah#u)5v{n8KgW721r_60%AvI_{ zeEa|7L;nv3|HBmJmAe>DP4Yi=IPHi}c+30Htwqo?XKR+(k&NQ$*tg7fC9`!}GwWFP zZwN28IrdyN&<)#nPu)N84d3i-IS;VCtDO_b9h9!d)@|ANt_9XmF(l}tpSR)2MIN@- zuyO{MmvwR$-iXN(OREaDbH@&PKz6=Mi!0WwYZ(jV8GJjV;d{iSrk87uv|84_#I+@M zr0N0N;tmyQX-+tOKKoV?g|{-~;oSWmS*sK4BZb-`%aGh+D(g?m`z#o@dr;h9z40B^ zJzKf%ev&^!$K%^I_^v@26`lWmLHn?!koSBS$mnU2^GNuJf?ye_l zCt3IKEyr7%`djj?qRzsm$pmovO#p982iM5m%AuaRgJ8wgIy7Lt8%NZ>>^14Uq z(EO%;LvUXe&f)Bk{xwtv`~Hl!Wsx@wac)otx!CF>t@RDmUbnP9w#eW* z<9ly{>zd<|``s0h-X&q{D>x-KXnDGI zz+TYtD_V|c?MU89G6a@JI~PvUzMc1Jv2UmU&G{*HAwHG#)t_qKFek6C$x=Hze6L=U07naPR_UZJ_qry`Z&=<9qV`hZ-?w&$c_}a>~Z;0GB$JR#YvqRE^=h{;0&@%Ur zP=@wM5b3RtUtWq{A?2|WgpU_Wopb5DvA?=$%;O)NofF;XzVSCJmGmrLNrZc!N=4Pq z^cMSOl>4g-OG~{~D(S~Fi%Ro-WtFAgE6Pfh`Vmg^y#9)ssvUxzl6laTk<>!x9Nwyg z=Bsfsc|~EB-&>6{CY)66_XQIE1p%`wmivlS(j82;!dqIZl177sidbwUdN9AdtWqT{ zK;RVb(i*&gycy*5ii(n{bw%DvD6$CWx!xINh0Brs1e_F1fzawLSG~9@;4wrnwdD$Z zoRM>@DwgR?)!nYND(M)KOsc9Xte*`HK&0Do4y9EW`pUgkGs>%%sibL)vK0C$EUFG% zLUk9B(d7$fIIOQUA#;#gsfp&yNTiZJV6i7xSHW_|gJ(`fRcT>)aY01|s(--3Ir-DQ zrIq>Ks?|PN)3pV&bCjAjt*UHtMOh`%DfPbLm**`khKZ+6hQ)78%WI}P4`4H|?YALu`NegnPjp|Y`ts;9{ zadeqn>hqRYPxtzkuc(gRr4r?Qk*~OVMYJ!f)8vZMimKRnsH(brT49m5%QVzXmNB~6 z?o*~to3vnd!L^g8Ps+=mT96=Db(${PzKbhr3%qsJkRHh-7tcrW`fP4tnYVM-Ir-`N zh2{QqXx+C=(reKZRkwMi#gk#_)!un5UR+#mh2O_A#3of%uzs~hAiTG#%e?Z*r4@ef z{2FgneQY;RgapSne%N)W4z; zt#eNtRqpB3N%V7NRA-Z9ZCpX&QZ1$@3aN9vtG%UN^e;?vrMIYBk|*foolWv7f#f}v zO_Zn;Y&C5guu zlwx+_Qg3O(?4_kaC7P&96mK$#3zVp9+@zZ7ihSR7-nhhqDpYV~A*G9FK{cl&aFSvg z%M_uzX?__-g7H>@t^xav*Y-Q5qWtSL#e`ffJQP*vTv_6jO6GEwQG!s!1{x&$q# zT^BtWMR(O!gz}FwI?PGtu)+AWx^)@SqsB93L)IlwS}QmJowc^T>?wp(>! z9-IHn8h^EKS$#m&QKJI9dx5u8Qn$p>j|S&3KafL!Pj@Y{lRUt+YY#oK3UB7EZSzU76ic2Hk?(O7Vyp z&o|XL)+TezI6><~Ck&_~&ax75S7>o9k1tzuXMw3zLy(ATgV@gr7qP1r(WVVZndo9D zRrV)Q(&j=L&!li6 zyJ#Uz(jY0_oqf5k6x01h|0U38ySme_aRd(S_O!vXo6)+46XdTb7h9EaafPw>8R5kb zN!9*BbfRxu{AK(HxAd_KeSY84QZIUM6e7gbf1VzyD0l~-84+#7v+lsjiQAo zS|_5Hwn(GMLi&c7?}#ot>y~6ZHBYgvPp1d&rRy^!t%COQd_^m!7W=9bDf|?lzp}Kj z-pw;bY$W=sfb{1^#ZH13iBTi5b72Xc^G<~&a1>(;OSC@Y3QKY-U~*;3_|tK8^p{oS zlmxefE|ccw&xqtpCrJEOJ?U<poA10Rb$ON7??>xMbkQQk z61OcxM+JoF>M-%RdkAB_JvmE);lVvFsPcLpJN5)O)E`@hjv2=lmddoDRXgTX!FYsp zuJgU6m?=1!its^G4o_{kAt!4?4oyr;rqm04-r6`zxH(!gzCR%S#&(-=*XceiP-t<{ z=HfcfC@+SVJUzRKpPavxQc<;UwU;Xm=y78cOecXZJz$e(X{FDcI%S5rh)Jl_xS2{%^8`($Q=-GB(#dS8 zSkmD1D+@iYNjN;JSI7mKYW_~&^NycaKE;c2SJcPqH4Sspd0siw#l~@tPO7yTdN(v2 z@z}+A(zMICqX&CTkF&~Jx2I>@Jr2h$&8oBh&31F_Z8^r;Vc8SkHpfo+D+(*UvGGg& z7!Ei~40wKtBDrqaxPh9MCy) z_{-y>7=;@#3b$O88i;Qc{<#v5F5NW94~7n0P^V6vQgLx{Dk&*RrKF^&jEoF5Y}hcB zosC!3j2owNa&pwnnKM;hUY=UKc(E!f!d8%y66N>%)tWVH)cW=7)s`(=R6|39+O}<* z+O=z!+P!j!ZC zAg&)l`rSz11b*AVZx{G)LA(>llliSj{w0uQF=Wh!tivE*9^}rzcNof%gmPp6Q`ESe z#p=Mp<7)qbBdV!+zuMijSLH1(QNyxx)ZYCE)vn#m>LBoXOCv zKMpx&suak%3o@(+&t~MY4SDQG-usdF?&iJ7YnPh2xCr?}F7RFtzD52u>LBuLMt)6u z_k%xl0^O|H(xCQIPe`{O>6&nT8`3mT9$rVhK8SmY_cOBJOU)YeJl6)Y&f7;bPSHHl*8v_zkGr^+?;yc!;wN*Vi)~ zm;$>=f!)Nxj+*!5+HUIf0C?_)JVzi0Yyjsa{u1aj3H5#iHgFvF$NJxkx<7z=J_ws> zLjCW8-9X-5+hAMkVFPOrry2H_hikNpEwITP)crVh{K$UQgs@>5$hQgUc9p2TP21Fd zq~DG7Cy>uU=8Zg>z;{~%Y!y6@A4K`q1;3lVK91MSWaK1E2k7-{mL$C=P)4#M+bJN}tyd)eaXdryv4KRj zK4G}NCJ`9NoSMjz+;DKGHy55icKGPu)Nc+SSE&coZx0{)?=2retztY7yBK3Ney`GdG*vgZy)>Fj#FyS zjvak}`-9*1*&)Z1J$v@tv7^to&r060X-z9esNB{L`^xufL*x^XhZz zcW=J>+|gstpHe$_?p!mex-@0y&fkFCIcLLVOLp!oSzmSQ&c17Auefhk|9hAGXy@F! zW^KIJSJG?eptb8a`Uc!SXJ_4Y8#na-e&*nQJ9lPg&YC!cX?xf8pXs}K$@RT*@11FBt4lvQ_Qp%DfCk`0CZ{L84 z16S{2+KGLA{U**FxVp=}n$xUX_u$eeK3O=B8#W*)T3+!1yIAZ%^@UD1I_y!^HL5``uPoH@m)m z(14;@EAAaIa8Y_6q#Br3lZ?~@$JE!aPEW(JBW>cAi@W#elDs|o{6`=CpQOJYJN%bF z9NVv+?f2wsJDxeE5aoJ*iNBC>ah!eECVyI5amkvJw7P3njlVZ-)5?1{^jYuQ*st%+ z8`q>|)@Am82+_8u)hxHu&znu5R|Me!f`~2dm7nMY+9^ByHgK)E%mRLTX>0)XX0YxGp~~yL-P2W1>In zy)`DLLHDhm#I!xXcs#As3&)QA`Q4AU|1RyZRM;&JZ^iZ1CEh}BV$W1{YemW8n+o%; z^9@j$YbV~GqGnC(U!SpPP<`s4qKR|WefJbiL^+Yq#A|1%`fJC)pBr-jj4!YVuX<&F zwzYd-&!Mf+y`y7dqEZy1MMt0e~6K9|CqW=a7^7ed&x?bIWaBmhHabst<9f0m2M=DA=#Zi z?FH-$Ke2DWsOXsJ-Z6)w55*@W^j6U^o*0!7Q6@kDj)AA9UD%=g11ALu;4Q&P2LN$TvXyp_}H z<`!3#_pcpLGvGQkaryEa>(rvOF}cjMf85q9N2sLinC$4!qWUF&8gt0z*(>@GxSIpz zj7B*jM)YT%p6XC^bSLB)<>@-W<2iQt#b=SN&hxV3apS9$D$g62(?8|vn&ku3;#o`XlqO#u9@AqI(}gJ>E+xqN7=#C@1oa z@^pUx%@3bLKcv)yb0&PNC|9Z6%X2U9JFnpjPpaB_C?-br+!}Lejp`h;HF|)0Q1y#G zbm;dg2|8mVIO`B~+Z}pjea1+h58^_G2c@QNJWH+oQKLp(lAI77eSfcBF)@cmru|<`^rzkWBCF_BwC=vhJ0a~nlqspPXGSAh zL|jVz))-GpV>igrt>^!;3rI_QvH@3;V^Gc>y?XXdL!Kjl5EJEz>bb+?Y3Q8x+hfO& zXKLz+_%EVA{VX+&EemVbU^ z#NYoZ+HsNxERqvGi^<*!!K3=^>lYPs=+jSQqN94D{~qvA_Mzy62hOAMM|*nggZ7aX zqD3L{R`db!7%Xt~ZNS;CY$zDqez-5%6OBTi|9RpADagAMhLInjoEU@RkpvgP#L0R#wMJ#vvWei?-?esc0LpZ z1tcf_JA)FEcg7{e$Hyo9XY$US4}s_gJ_Fzn?bxv=UJDPcMI~|Q-Gh((J<;#Uhx!>> zg9OXvC!Xy0P#`8pY^L3jLf!tro@rLNU{dH9=x^aZpblfU#*FNo@I!bR_lXNak3+l; zaXqwKqC@l*x%|X^a)Mup{zSiL8lbb@_RR7CQ}`;v>ef%ZPbRbca8W}+%@>i$fk4bE= z*l^23rwIgtz;Q~6n@m4gA2`L~3X}jH%3!%Dls+Xt-I-&Mf6z?hsZ;9z{YpMR`$-EQ8=-BC$iT37Qt#G%JUhm(??~$w zxP#X%u#RQ!;+eJjPI_I5xzNd_{-xWeCcB)nQs*KE$ai<2PMi^0u+~?^dFYfgupKk z1Y&gp3nn;~2sWmUhLsPS5DQmWn`>^`os!p(=Wp1Lg%Ye=A+1Ts_`(nbLWh;?Ld=}S z>$7(q$X?%+vv^HXUPIBEEjo_FR`cJF6{eZH502Y)FlBx7xTYf++x91|X-e9*Kd)hz zOSS`85F+#D{n~0=cvOdn=l(fECZP}Z#X19%Rq=N8^n-3szPV@1G1IJP7nMEa#C$3>XMZ)Tp<-cb4 zn!S5>?`m#{TOXIPWj(S8#77ZQw(ZC2S|IYaz1uQ&XQymQ8MiGvdw<@r-D}1*HLu^_ zw5_253uQ&S_vY+A08yRz&Fk}y_;U^{Mr8bDG-o6E%%+_6YZk9xQ-ZZoQJwxh(9pas zV_OCy&pc9+cc5fu^J3<;J0odV5@g%5tH_p7SL^=$+Yao`JF-Upb{}ZMYF>svLv4wR z+m)oY#cgRS5$0F{G`Squzx!Y_;ujrR0~xVuo4sY6@b@<@ZrYDxI+BY>CNLyP1a=&jDBnR*zvq!7@lR z6WLjCclH`|ckWM_uFAIQ*!eZOZA*jx^=UO|*?32WL9MwH+AqFn&G_YE7v7!LEDP@n z3+;i{Y!=?tIZfF9{h0Ec_X`y}@)xT6s3z5K+|N|+iyl`!$26-xqf$npMUm;xCkE_#V|M>z68F^d6OX{x4P63-_qA#{NpBT(U<+jebG( z82d*RGwv1DY5XfH?y^H_;FLeBzLO5BfwNy$gD!tjWln!t4W4^Yojvbmb?%(MsNwVf zsz%QLi^?MA{Z$Q{|B^a4_a!v~I4b`o)ivi8)qV0Il`#2D)ouD)D*5tPRLb;M)PPy9 zsGhUlQs>NlRSn8}L!F)bx*DE)2>kHPdsPizfb%O5zVJ;o;_5fm@N3=zze8$N!K*48 z-wUsJRgJmwH8pneYij&e_+I^*y7-#c)P!qaR}+@Jrp6S#sd5TmSCf{$t|k|~t|l%! zqNWrdR#Wkv<~^*YdtX=6mmgNM@tx*-Lrq_CSk2byZd`>OD z@u(`k`EBLh^sZWY^INKf-wj7qDZd+!sfx|`-f>)2Zak_gZ#kx_zVo)Ky5n87`nI=K z?d@-?`a9oN*WLBDy1wBZRdU;VYSq^FRaL|LYQy(lQs24npj!9cchrq{zoXXO^Nzat z-gnh4_rI%dec)ZS<-z0Xwug?ZyMOqex`*E%y|3>7kN4HRKlz8+@#x>x!%crzk2HU% zeuD2KPk*EyefmT7vtNCrp4yA=GyhPJ?K`QS{Ow8g{GVS^e|_y!_0sE~s#o6lRK5D< zr|PYDK2yhzf2Q7j?=yA${m<3Ok3Z2jg|tEc>*p)e!2J(5x{inMfB5E@&hecR<6@J0 zM)!y+eYml2>e=TE89Z#z`Pn1-r>Mrpw6RliZ+NJ&ar=!IjO^!WY|NNCcWdLnUAKB$ z<6WZ$oYmMkZuWN?H!qwwYr;*9>#}+^Hcq}`=l8#LRb%62m)`fl=-!QuGnO`PEL_ys zc*#W-jRX5MHqQ4pZoIajvGL+D<&BwL8ym0j?YehKeq-bK3%~c^x!oHZm-_E$+^}Hw zv`N*C_2(ruHmP zl9kJgubwkBq4D8+)|4$Px@Pf}c{8Wyq_0N-UBzvD_H ziqI2|WN}SVwci!y_C&`TPc(3kI{LYG@9F5Q@80@j<2CYGjQBa&=H}yFYuBa?+*WOU zw@vg~y^F%R1%F$>Ep~3fhdYjrDmuBg;@E+#3m$-xXMo_T%4k-3TBDgf1`*)uc2a3+MNv+@CraufUEj!mFsd^gYuuMkc({jBGiFCc#j1D} z11~p;eaop+N%oEt#!l11tS3AX=jr%HX`dJb2h)EYEodO6D5WSVho8t1PWO6bt`aJ| zg^nb{>0WOwZ>7kcG59M~uomofwHA^1Rgtg1f|(Y-q1PGG+97!c$8gue>0S@!9D2rD zmoTY+p`8*s*HQL~_~;|jb(GzMPsnvSZ~511o%vV^80JWYw4(Wm0SR#KzHT({u@dmy zUT-<);47?Uer!66fmmyiJ3kX8B=q_#(eiOL5J=f3AvG+yJNj@X(^hA47hM=jl{hRf zZI9(A&9Cru@o15Bm&B%GUDyQf>ySYoEnOE$sC_5B->v~J+zRK{NIhPssMBYD}h;KT+QTXV?fSfqLSa*;W2;5*jIe{Pe-QD?7 zYELXbN^O|Tk5Zcl@q?P|!4G(lIr!%G;76$`QT!;C--92e)&amXl{j;BknEj}->L z>Z9{gKcAB9s^3MBWnKak)mfh6w&E+i(t__{(69AyJ?rPJf2p`dc$>(gs=`Wr+eY3) z!e;`@yjl}@AT&Tn(!)gi*h=(!uBStAm)Utd)jnXEAguUYU0a;YBPxN%>Rj^L`lDH< zr^nzoM!ku-e3ZImLS0#Dx_MX6rJ31TqcYRI<#>+{o?^K)b3wth5o0sc{ndE(1aC+w z_gj^Pyt>70aqe6jhXs zFZ7pXtQrVw+ZOSV=m1+ zH*=)qU+k^)^7*`?dVLOwY)JJaQ%-ZCMPVZg%uo?}j@3yPUTK6^zWB3f-xcK}%(}JT z6oM%N1-VEUWR&YtWzAANJdLOM3Mxvx(BVZFj=ON_MHggWa6wVgvh3nzuBdoz&+-~9 zjI*4gKJsou6)4}x$YpoJjg~H{uEO((d`P#QHgJBX)vn*X + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/official/2.1.1/docs/Contacting authors.html b/official/2.1.1/docs/Contacting authors.html new file mode 100644 index 0000000..ca21885 --- /dev/null +++ b/official/2.1.1/docs/Contacting authors.html @@ -0,0 +1,33 @@ + + + +Contacting authors + +

Contacting authors

+

+The JEDI Code Library is built upon donations by various individuals. In the +documentation for each subroutine or class you will find who the author of that +particular code is by looking in the "Quick Info" section. The author's e-mail +is not listed there. It is listed in the contributors page elsewhere in this +document. Therefore if you really need to contact an author it is possible. However, +generically speaking, you should never contact an author regarding code included +in this library. There are various reasons for this with the two most prominent +being that some authors explicitly requested this and because "author" means +different things in different context. Usually "author" means that the described +code was donated to the JCL by that individual and included after reformatting and +only minor modifications. However, sometimes code was significantly altered, +rewritten several times or 'merely' based upon or inspired by code from that +individual. Consequently there exist several routines which in no way resemble +the original code as it was donated by the "author". Nevertheless, the individual +that orginally donated the code is still documented as the author. +

+In general, if you like some routine very much and it has proven to work correctly: +be grateful to the author (in thought, not by sending him or her an e-mail). On +the other hand, if some routine turns out to be buggy, incorrect or for whatever +reason is not to your liking: complain to me. It was most likely we who screwed +it up and introduced those bugs into code that was working perfectly until we got +our hands on it! To report bugs, use Project JEDI's +Issue Tracker. + +

Built on Saturday, November 24, 2007
+ \ No newline at end of file diff --git a/official/2.1.1/docs/Contributors.html b/official/2.1.1/docs/Contributors.html new file mode 100644 index 0000000..4e52f9d --- /dev/null +++ b/official/2.1.1/docs/Contributors.html @@ -0,0 +1,398 @@ + + + + + + + + JCL Contributors (code donators) + + + + +

Contributors

+ + +

+ Following is a list of all people that donated, or gave permission to use their, + code in the JEDI Code Library. Be sure that you read the Contacting Authors page + in the JCL helpfile before contacting these people. Note that JCL is continously + in development and by far not all donations have been processed yet. We're not + even half way! Therefore it is very well possible that you donated code but it's + not in the JCL yet. However, if you're name is not in the list below then it's + likely that something has gone wrong. In that event, please + contact us. +

+ + +

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
aaAlan LloydAlex DenissovAlex Konshin
Alexander RadchenkoAlexei KoudinovAllan LyonsAnders Melander
André SnepvangersAndreas HausladenAndreas JakobscheAngus Johnson
Anthony SteeleAzret BotashBarry KellyBender Heri
Bernhard BergerBryan CoutchCarl ClarkCenon Del Rosario
Charlie CalvertChris MorrisChristoph LindemanClayton Collie
Corrie EngelbrechtCybertron_549672Daniel MøllerDavid Butler
David HervieuxDeian IvanovDewald HessDick Maley (Advanced Delphi Systems)
Dylan ThomasEarl F. GlynnEric S. FisherErnesto Benestante
ESB ConsultancyFelipe de Toledo FariasFlier LuFlorent Ouchet
Hallvard VassbotnHeinz ZastrauHelen BorrieHeri Bender
Huanlin TsaiIvo BauerJack BombeeckJack N.A. Bakker
James AzarjaJean DebordJean-Fabien ConnaultJean-Philippe BEMPEL
Jeroen SpeldekampJohannes BergJohn C MolyneuxJud McCranie
Julien FerraroKevin S. GallagherLasse Vågsæther KarlsenLeonard Wennekers
Liran ShaharLloyd KinsellaLucjan LukasikM.H. Avegaart
Malcolm EdgarManlio LaschenaMarc ConventsMarcel Bestebroer
Marcel van BrakelMarcin WieczorekMarco KlemmMario R. Carro
Marius le RouxMark VaughanMartin KimmingsMartin Kubecka
Massimo Maria GhisalbertiMatt HamiltonMatthias ThomaMichael Rynn
Michael SchnellMichael TsaiMichael WinterMike Lischke
Nick HodgesNils HaeckOliver SchneiderOlivier Sannier
Patrick van LaakePavel CisarPelle LiljendalPeter Friese
Peter McMahonPeter PaninoPeter ThörnquistPetr Vones
PythonRalf JunkerRaymond AlexanderRik Barker
Robert LeeRobert MarquardtRobert R. MarshRobert Rossmair
Rudy VelthuisScott PriceSouthEasterStefan Kirschner
Stephane FillonSterling ButtsTheo BebekisTim Yates
Tom HahnUwe SchusterWim De CleenYaniv Golan
Your name here?
+ +

+ + +

+

+
Built on 2007-11-24
+ + +

+ + \ No newline at end of file diff --git a/official/2.1.1/docs/Contributors.txt b/official/2.1.1/docs/Contributors.txt new file mode 100644 index 0000000..fcb7bf7 --- /dev/null +++ b/official/2.1.1/docs/Contributors.txt @@ -0,0 +1,116 @@ +aa=aa@bitsmart.com +Alan Lloyd=alanglloyd@aol.com +Alex Denissov=denisso@uwindsor.ca +Alex Konshin=alexk@mtgroup.ru +Alexander Radchenko=ravnvt@chat.ru +Alexei Koudinov= +Allan Lyons= +Anders Melander= +André Snepvangers=asnepvangers@users.sourceforge.net +Andreas Hausladen=ahuser@users.sourceforge.net +Andreas Jakobsche=Jakobsche@addcom.de +Angus Johnson=ajohnson@rpi.net.au +Anthony Steele=asteele@iafrica.com +Azret Botash=azret@attglobal.net +Barry Kelly=barry.j.kelly@gmail.com +Bender Heri=HBender@Ergonomics.ch +Bernhard Berger=bernhardberger@yahoo.de +Bryan Coutch=oracle@bmts.com +Carl Clark=carl@caztec.co.za +Cenon Del Rosario=cenon@mail.com +Charlie Calvert=ccalvert@inprise.com +Chris Morris= +Christoph Lindeman=christoph@lindemann.nu +Clayton Collie= +Corrie Engelbrecht=sahfs@iafrica.com +Cybertron_549672=Cybertron_549672@yahoo.com +Daniel Møller=dj@sguft.com +David Butler=david@e.co.za +David Hervieux=dhervieux@Pirel.com +Deian Ivanov=deian@datecs.bg +Dewald Hess=dewaldh@emsoft.co.za +Dick Maley (Advanced Delphi Systems)=rmaley@fenix2.dol-esa.gov +Dylan Thomas=dylan@intelnet.net.gt +Earl F. Glynn=EarlGlynn@att.net +Eric S. Fisher= +Ernesto Benestante= +ESB Consultancy= +Felipe de Toledo Farias=ftfarias@dialdata.com.br +Flier Lu=flier@users.sourceforge.net +Florent Ouchet=ouchet.florent@laposte.net +Hallvard Vassbotn=hallvard.vassbotn@c2i.net +Heinz Zastrau=heinzz@users.sourceforge.net +Helen Borrie=helebor@wr.com.au +Heri Bender= +Huanlin Tsai= +Ivo Bauer=bauer@ozm.cz +Jack Bombeeck=Jack.Bombeeck@Onstream.com +Jack N.A. Bakker=jackb@europdonor.nl +James Azarja=support@jazarsoft.cjb.net +Jean Debord= +Jean-Fabien Connault=cycocrew@orange.fr +Jean-Philippe BEMPEL=rdm_30@users.sourceforge.net +Jeroen Speldekamp= +Johannes Berg=johannes.berg@gmx.net +John C Molyneux=jaymol@hotmail.com +Jud McCranie=jud.mccranie@mindspring.com +Julien Ferraro=j.ferraro@netcourrier.com +Kevin S. Gallagher=gallaghe@teleport.com +Lasse Vågsæther Karlsen=lasse@cintra.no +Leonard Wennekers= +Liran Shahar=liran_shahar@hotmail.com +Lloyd Kinsella=lloydk@iname.com +Lucjan Lukasik=lucjanl@usa.net +M.H. Avegaart=mavegaart@csstelecom.nl +Malcolm Edgar=edgar@ccis.adisys.com.au +Manlio Laschena=manlio@users.sourceforge.net +Marc Convents= +Marcel Bestebroer=marcelb@zeelandnet.nl +Marcel van Brakel=brakelm@bart.nl +Marcin Wieczorek=wieczor@polbox.com +Marco Klemm=DonLuigi@gmx.net +Mario R. Carro=ochnap2@yahoo.com.ar +Marius le Roux=marius@caddie.co.za +Mark Vaughan= +Martin Kimmings= +Martin Kubecka= +Massimo Maria Ghisalberti=nissl@dada.it +Matt Hamilton=MHamilton@bunge.com.au +Matthias Thoma=mthoma@users.sourceforge.net +Michael Rynn=michrynn@ozemail.com.au +Michael Schnell=mschnell@bschnell.de +Michael Tsai=easyman@ms2.seeder.net +Michael Winter= +Mike Lischke=public@lischke-online.de +Nick Hodges=nhodges@icss.net +Nils Haeck=n.haeck@simdesign.nl +Oliver Schneider=assarbad@users.sourceforge.net +Olivier Sannier=obones@users.sourceforge.net +Patrick van Laake=patrick.vanlaake@ieee.org +Pavel Cisar=pcisar@atlas.cz +Pelle F. S. Liljendal=pelle.liljendal@firstconcern.com +Peter Friese=freter@gmx.net +Peter McMahon=fmcmp02@kc.kzn.school.za +Peter Panino=peter-panino@aon.at +Peter Thörnquist=peter3@users.sourceforge.net +Petr Vones=pvones@users.sourceforge.net +Python= +Ralf Junker=ralfjunker@gmx.de +Raymond Alexander=rayspostbox3@users.sourceforge.net +Rik Barker=rikbarker@users.sourceforge.net +Robert Lee=rhlee@nwu.edu +Robert Marquardt=marquardt@users.sourceforge.net +Robert R. Marsh=robmarsh@koit.fanz.net +Robert Rossmair=Robert.Rossmair@users.sourceforge.net +Rudy Velthuis=rvelthuis@gmx.de +Scott Price=scottprice@users.sourceforge.net +SouthEaster=anthony@southeaster.com +Stefan Kirschner=stefan_kirschner@01019freenet.de +Stephane Fillon=sfillon@ifrance.com +Sterling Butts=SterlingButts@Bigfoot.com +Theo Bebekis=bebekis@otenet.gr +Tim Yates=tim@things.demon.co.uk +Tom Hahn=tomhahn@users.sourceforge.net +Uwe Schuster=uschuster@users.sourceforge.net +Wim De Cleen=jones-jr@skynet.be +Yaniv Golan=ygolan@netvision.net.il diff --git a/official/2.1.1/docs/Experts.html b/official/2.1.1/docs/Experts.html new file mode 100644 index 0000000..3c51fc5 --- /dev/null +++ b/official/2.1.1/docs/Experts.html @@ -0,0 +1,160 @@ + + + + JEDI Code Library Release 2.1 + + + + + + +

+

JEDI Code Library

+

Release 2.1
+Build 3536
+05-November-2009

+

+

Content of this file

+ +

+

About experts

+

For Delphi 5, Delphi 6, Delphi 7, C++Builder 5 and C++Builder 6, experts can +be installed as design time packages or dll experts. For C#Builder 1 and Delphi 8, +experts are installed as dll experts (those products don't load design time +packages). For Delphi 2005, Borland Developer Studio 2006 and Turbo Delphi Professional, +experts are installed as design time packages.

+

Debug Extension for JclDebug unit

+

The experts\debug folder contains an IDE expert which +assists to insert JCL Debug information into executable files. This can be +useful when use source location routines from JclDebug unit. These routines +need some kind of special information to be able provide source location for +given address in the process. Currently there are four options to get it work:

+
    +
  1. Generate and deploy MAP file with your executable file. The file +is generated by the linker. It needs to be set in Project|Options +dialog -> Linker page, Detailed checkbox.
    2. +
  2. Generate and deploy JDBG file file with your executable file. +This is binary file based on MAP file but its size is typically about +12% of original MAP file. You can generate it by MapToJdbg tool in jcl\examples\windows\tools +folder. The advantage over MAP file is smaller size and better security +of the file content because it is not a plain text file and it also +contains a checksum. The IDE expert can automatically create this file +when the project is compiled (see below).
    3. +
  3. Insert JCL Debug info into executable file. The +size of added data is similar to JDBG file but it will be inserted +directly into the executable file. This is probably best option because +it combines small size of included data and no requirement of deploying +additional files. The IDE expert can automatically insert these informations +when the project is compiled (see below).
    4. +
  4. Generate Borland TD32 debug symbols. These symbols are stored +directly in the executable file but usually adds several megabytes so +the file is very large. The advantage is you don't have to deploy any +other file and it is easy to generate it by checking Include TD32 debug +info in Linker option page.
    5. +
+

+The IDE expert will add new item to IDE Project menu. For +Delphi 5, 6 and 7 it adds 'Insert JCL Debug data' check item at the end +of the Project menu. When the item is checked, everytime the project is +compiled by one of following commands: Compile, Build, Compile All Projects, +Build All Projects or Run necessary JCL debug data are automatically created +from the detailled MAP file. The behavior of this conversion can be customized in +the JCL options dialog (in the Tools menu of the IDE): the debug informations can +be exported as .jdbg files or inserted in the binary file. The expert outputs a +message in the IDE message view to display details about the data being generated.

+

+You can generate those debug data for packages and libraries as well +using the expert. Each executable file in the project can use different option +from those listed above. It is not necessary to generate any debug data for +Borland runtime packages because the source location code can use names of exported +functions to get procedure or method name. To get line number information for +Borland RTL and VCL/CLX units you have to check Use Debug DCUs checkbox in +Project|Options dialog -> Compiler tab. Unfortunately it is not +possible to get line number information for Borland runtime packages +because Borland does not provide detailed MAP files for them so you get +procedure or method name only.

+

In case you have more than one data source for an executable file by +an accident the best one is chosen in following order:

+
    +
  1. JCL Debug data in the executable file
    2. +
  2. JDBG file
    3. +
  3. Borland TD32 symbols
    4. +
  4. MAP file
    5. +
  5. DBG and PDB debug informations (for system DLLs)
    6. +
  6. Library or Borland package export tables
    7. +
+

It is also possible to create JCL debug data programmatically from a MAP file +by using MakeJclDbg command line tool in jcl\examples\windows\delphitools folder. +This utility can either export data as a separate .jdbg file or insert them in the +executable. You can study included makefiles which uses this tool for building +delphitools examples.

+

To help using JclDebug exceptional stack tracking in application +simple dialog is provided in jcl\experts\debug\dialogfolder. The dialog +replaces standard dialog displayed by VCL or CLX application when an unhandled +exception occurs. It has additional Detailed button showing the stack, list of +loaded modules and other system information. By adding the dialog to the +application exceptional stack tracking code is automatically initialized so you +don't have to care about it. You can also turn on logging to text file by setting +the Tag property of the dialog to '1'. There is also version for CLX +(ClxExceptDlg) but it works on Windows only. These dialogs are intended to be added to +Object Repository.

+

Short description of getting the JclDebug functionality in your +project:

+
    +
  1. Close all running instances of Delphi +
    2. +
  2. Install JCL and IDE experts by the JCL Installer +
    3. +
  3. Run Delphi IDE and open your project +
    4. +
  4. Remove any TApplication.OnException handlers from your project(if any). +
    5. +
  5. Add new Exception Dialog by selecting File | New | Other ... | +Delphi Projects | Delphi Files, Select 'JCL Exception Dialog for XXX' (where XXX is +either Delphi or C++Builder depending on your project). A wizard will appear to +configure the options for this dialog. +
    6. +
  6. Check "Project" | "Insert JCL Debug data" menu item +
    7. +
  7. Do Project | Build
    8. +
+

+

Version control expert

+

A new expert integrating version control systems in the IDE was added. +It provides an integration of TortoiseCVS and TortoiseSVN inside the IDE, items +are added in the IDE menu and buttons can be placed in IDE toolbars via the +customize dialog, see below.

+

A dialog-box provides configuration options for JCL experts in the Tools menu.

+

It wraps TortoiseCVS  +and TortoiseSVN commands in +actions that can be placed on IDE toolbars and in IDE menu.

+

This expert requires TortoiseCVS  +or/and TortoiseSVN installed on the +system to properly work. Please refer to these products documentations for help +about using version control systems.

+

The structure of the "Jcl Version" menu can be customized in the JCL options +dialog (in the "Tools" menu).

+

+

XMM debug window

+

This dialog provides enhancement to the debugger of Delphi and C++Builder regarding +XMM registers. These registers were introduced in SSE instructions (and are still +used in SSE2, SSE3 and SSSE3 instructions). This dialog can be displayed by clicking +on menu View | Debug Windows | SIMD (keyboard shortcut Ctrl+Alt+D). +It is divided in to panes following the style of the FPU window: the left pane +displays content of registers and the right pane displays MXCSR flags. The format +of the registers can be modified from the context. All registers and flags can be +modified and changes will be applied to the debugged process.

+

+

Favorite combobox in Open/Save dialogs

+

This expert modifies the IDE Open/Save dialogs and add a combobox to store your +favorite directories. Items can be added and deleted using the button at the right +of the combobox.

+ + + diff --git a/official/2.1.1/docs/MPL FAQ.html b/official/2.1.1/docs/MPL FAQ.html new file mode 100644 index 0000000..90cc6c2 --- /dev/null +++ b/official/2.1.1/docs/MPL FAQ.html @@ -0,0 +1,131 @@ + + + +MPL FAQ + + +

+ Mozilla Public License FAQ
+ Draft 1.0, 4/10/2000 +

+

+Please email Comments to Michael Beck
+For additional information, please also check the Official FAQ from Mozilla + +

Author perspective

+
    +
  1. Q: Do I retain copyright once I publish source under the MPL?
    + A: Absolutely. You still retain all your copyrights. +
  2. Q: Can I release the code under a different (possibly commercial type) license?
    + A: Yes. Since you have the original copyright, you can do it, but you can do + it only for your own code, and not for any contributions from others. +
  3. Q: In two years Acme, Inc. comes with a great new license, which I would love + to use. Am I always bound to MPL for my released code?
    + A: You can use a Dual License approach, i.e. you keep the code under MPL, and + you add another license, e.g. GPL. The user will have then the option to use + the one s/he prefers.
    + Or, as the Initial Contributor, with the original copyright, you can release + it under the other license. Please note: even if you release the code under + new license, users of your original MPL-released code can continue to use + under MPL as before. +
  4. Q: I think, JEDI could benefit from having cryptographic functions. I would + like to donate some (DES, Tripple DES etc.), which are covered by patent + rights (RSA, for example)? How should I do it?
    + A: All contributions are "Subject to third party intellectual property (IP) + claims." Thus, if you are aware of any patents infringements, before + submitting make sure that you: +
      +
    • secure the rights to use the IP in your contribution (e.g. by paying + a fee) +
    • modify the code so it doesn't infringe (in our case, provide other, + non-patented cryptographic functions) +
    • in a worst case scenario, if the two above are not possible, do not + submit the code +
    + Please note: different countries may have different patents laws. Therefore + in some countries it could be legal to use patented IP (e.g. because the + patent expired), while in others not. Check with your local Patent Office. +
+ +

User perspective

+
    +
  1. Q: Can I use the MPL code in commercial software? If yes, am I obligated to + credit the author?
    + A: Yes, you can use the MPL code in any commercial software. Since you have + to include the MPL code, the credit is included in the license header. + While not required, it is also customary to credit the author in "AboutBox". +
  2. Q: Must I release the source code of used components?
    + A: Only of those covered by MPL, together with any modifications to them. +
  3. Q: Must I publish my apps under MPL if I used MPL licensed code (the viral aspect) ?
    + A: No. That's the big advantage over GPL - you can use different code, mix MPL + and commercial code, but you don't have to release either the application, + nor the non-MPL code under MPL. Basically, what is MPL, will stay MPL, + but it doesn't have any impact on the non-MPL code. +
  4. Q: If a bug in MPL licensed code renders my clients machine unbootable, who + can I hold responsible for that?
    + A: Nobody. You use MPL licensed code at your own risk. Since it is provided + to you in a source code form, you can inspect it, test it, making sure that + it does, what you want it to do. +
  5. Q: Must I publish modifications to MPL licensed code?
    + A: Yes. This is one of the MPL requirements. You are getting a free source + code, but you have to publish all modifications to the code, unless you + have done the changes for your internal use. +
  6. Q: Must I publish code based on MPL licensed code under MPL?
    + A: Yes. You cannot change the license terms. Only the Initial Developer can + add an additional license (see dual license) +
  7. Q: If I subclass the MPL code, do I still have to publish the new code? After + all I didn't modify the code at all!
    + A: That's a tricky one. By the letter of the law, since you didn't touch the + original code, you might claim that it is a "new" code, therefore no need + for MPL. However, by the 'spirit of the law', Inheritance (or subclassing) + is a modification of the functionality of a given class, and as such a + "derived work", so even if you didn't touch the original code, you are + still making changes. +
  8. Q: I am proposing a modification to a JEDI-VCL component, which has a dual + license (MPL and GPL). This new file also needs to include a new class. + Should the source files for the new class be put in JEDI-VCL using MPL + with GPL dual-license or can it be put in another location and use only + the MPL?
    + A: The license of a file can't be changed without the consent of the copyright + owner. And a new file derived from an existing file inherits the licensing + from the existing file. In the case of this component, it has to stay MPL/GPL. +
  9. I am considering using an XML parser that has being covered by the MPL v1.1 + (or alternatively the GPL) in a commercial product. I will simply use the + DLL libraries without modification, including the necessary header files + in my own code. When I distribute (sell) my own product I would, of course, + need to distribute the DLL libraries as well. My questions are: +
      +
    1. Q1: Am I correct in assuming that simply including unmodified header + files and linking with a library covered by the MPL does not + place any legal restrictions or obligations on my commercial + product and its source code?
      + A1: It places no obligations on the code YOU wrote, but there are + still obligations for the code you included. These include + source distribution (for included MPL code, not YOUR code), + and some notification requirements. +
    2. Q2: Am I obligated to distribute the (unmodified) source code that + produced the libraries with which I link?
      + A2: Yes. Since you are shipping the DLL libraries with your product, + you have to make source available for the MPL code you ship.
      + Note that the license also allows you to meet the distribution requirement + by making the source available via electronic means rather than having to + physically ship them with your product (as long as you tell your users + where to get it). If you are using unmodified source code you could probably + just point at the code author's server. If you did that you'd have to + specify how users could get the exact version of the source you used, + such as a CVS date stamp or something.
      + This might be tricky -- you are responsible to make sure the source is + available for 12 months after you ship, and there's no way of knowing + how long the author will keep old versions around. The CVS repository + is more of a sure bet. You could, of course, host the source on your + own servers to be sure it'll stick around.       + +
    3. Q3: Am I obligated to make my use of the particular libraries known + to users of my product?
      + A3: Yes, it's spelled out in the license. You need to credit the + source of copyrighted code that is not yours in both the product + and its documentation. +
    +
+ + diff --git a/official/2.1.1/docs/MPL-1.1.txt b/official/2.1.1/docs/MPL-1.1.txt new file mode 100644 index 0000000..7a45bfe --- /dev/null +++ b/official/2.1.1/docs/MPL-1.1.txt @@ -0,0 +1,470 @@ + MOZILLA PUBLIC LICENSE + Version 1.1 + + --------------- + +1. Definitions. + + 1.0.1. "Commercial Use" means distribution or otherwise making the + Covered Code available to a third party. + + 1.1. "Contributor" means each entity that creates or contributes to + the creation of Modifications. + + 1.2. "Contributor Version" means the combination of the Original + Code, prior Modifications used by a Contributor, and the Modifications + made by that particular Contributor. + + 1.3. "Covered Code" means the Original Code or Modifications or the + combination of the Original Code and Modifications, in each case + including portions thereof. + + 1.4. "Electronic Distribution Mechanism" means a mechanism generally + accepted in the software development community for the electronic + transfer of data. + + 1.5. "Executable" means Covered Code in any form other than Source + Code. + + 1.6. "Initial Developer" means the individual or entity identified + as the Initial Developer in the Source Code notice required by Exhibit + A. + + 1.7. "Larger Work" means a work which combines Covered Code or + portions thereof with code not governed by the terms of this License. + + 1.8. "License" means this document. + + 1.8.1. "Licensable" means having the right to grant, to the maximum + extent possible, whether at the time of the initial grant or + subsequently acquired, any and all of the rights conveyed herein. + + 1.9. "Modifications" means any addition to or deletion from the + substance or structure of either the Original Code or any previous + Modifications. When Covered Code is released as a series of files, a + Modification is: + A. Any addition to or deletion from the contents of a file + containing Original Code or previous Modifications. + + B. Any new file that contains any part of the Original Code or + previous Modifications. + + 1.10. "Original Code" means Source Code of computer software code + which is described in the Source Code notice required by Exhibit A as + Original Code, and which, at the time of its release under this + License is not already Covered Code governed by this License. + + 1.10.1. "Patent Claims" means any patent claim(s), now owned or + hereafter acquired, including without limitation, method, process, + and apparatus claims, in any patent Licensable by grantor. + + 1.11. "Source Code" means the preferred form of the Covered Code for + making modifications to it, including all modules it contains, plus + any associated interface definition files, scripts used to control + compilation and installation of an Executable, or source code + differential comparisons against either the Original Code or another + well known, available Covered Code of the Contributor's choice. The + Source Code can be in a compressed or archival form, provided the + appropriate decompression or de-archiving software is widely available + for no charge. + + 1.12. "You" (or "Your") means an individual or a legal entity + exercising rights under, and complying with all of the terms of, this + License or a future version of this License issued under Section 6.1. + For legal entities, "You" includes any entity which controls, is + controlled by, or is under common control with You. For purposes of + this definition, "control" means (a) the power, direct or indirect, + to cause the direction or management of such entity, whether by + contract or otherwise, or (b) ownership of more than fifty percent + (50%) of the outstanding shares or beneficial ownership of such + entity. + +2. Source Code License. + + 2.1. The Initial Developer Grant. + The Initial Developer hereby grants You a world-wide, royalty-free, + non-exclusive license, subject to third party intellectual property + claims: + (a) under intellectual property rights (other than patent or + trademark) Licensable by Initial Developer to use, reproduce, + modify, display, perform, sublicense and distribute the Original + Code (or portions thereof) with or without Modifications, and/or + as part of a Larger Work; and + + (b) under Patents Claims infringed by the making, using or + selling of Original Code, to make, have made, use, practice, + sell, and offer for sale, and/or otherwise dispose of the + Original Code (or portions thereof). + + (c) the licenses granted in this Section 2.1(a) and (b) are + effective on the date Initial Developer first distributes + Original Code under the terms of this License. + + (d) Notwithstanding Section 2.1(b) above, no patent license is + granted: 1) for code that You delete from the Original Code; 2) + separate from the Original Code; or 3) for infringements caused + by: i) the modification of the Original Code or ii) the + combination of the Original Code with other software or devices. + + 2.2. Contributor Grant. + Subject to third party intellectual property claims, each Contributor + hereby grants You a world-wide, royalty-free, non-exclusive license + + (a) under intellectual property rights (other than patent or + trademark) Licensable by Contributor, to use, reproduce, modify, + display, perform, sublicense and distribute the Modifications + created by such Contributor (or portions thereof) either on an + unmodified basis, with other Modifications, as Covered Code + and/or as part of a Larger Work; and + + (b) under Patent Claims infringed by the making, using, or + selling of Modifications made by that Contributor either alone + and/or in combination with its Contributor Version (or portions + of such combination), to make, use, sell, offer for sale, have + made, and/or otherwise dispose of: 1) Modifications made by that + Contributor (or portions thereof); and 2) the combination of + Modifications made by that Contributor with its Contributor + Version (or portions of such combination). + + (c) the licenses granted in Sections 2.2(a) and 2.2(b) are + effective on the date Contributor first makes Commercial Use of + the Covered Code. + + (d) Notwithstanding Section 2.2(b) above, no patent license is + granted: 1) for any code that Contributor has deleted from the + Contributor Version; 2) separate from the Contributor Version; + 3) for infringements caused by: i) third party modifications of + Contributor Version or ii) the combination of Modifications made + by that Contributor with other software (except as part of the + Contributor Version) or other devices; or 4) under Patent Claims + infringed by Covered Code in the absence of Modifications made by + that Contributor. + +3. Distribution Obligations. + + 3.1. Application of License. + The Modifications which You create or to which You contribute are + governed by the terms of this License, including without limitation + Section 2.2. The Source Code version of Covered Code may be + distributed only under the terms of this License or a future version + of this License released under Section 6.1, and You must include a + copy of this License with every copy of the Source Code You + distribute. You may not offer or impose any terms on any Source Code + version that alters or restricts the applicable version of this + License or the recipients' rights hereunder. However, You may include + an additional document offering the additional rights described in + Section 3.5. + + 3.2. Availability of Source Code. + Any Modification which You create or to which You contribute must be + made available in Source Code form under the terms of this License + either on the same media as an Executable version or via an accepted + Electronic Distribution Mechanism to anyone to whom you made an + Executable version available; and if made available via Electronic + Distribution Mechanism, must remain available for at least twelve (12) + months after the date it initially became available, or at least six + (6) months after a subsequent version of that particular Modification + has been made available to such recipients. You are responsible for + ensuring that the Source Code version remains available even if the + Electronic Distribution Mechanism is maintained by a third party. + + 3.3. Description of Modifications. + You must cause all Covered Code to which You contribute to contain a + file documenting the changes You made to create that Covered Code and + the date of any change. You must include a prominent statement that + the Modification is derived, directly or indirectly, from Original + Code provided by the Initial Developer and including the name of the + Initial Developer in (a) the Source Code, and (b) in any notice in an + Executable version or related documentation in which You describe the + origin or ownership of the Covered Code. + + 3.4. Intellectual Property Matters + (a) Third Party Claims. + If Contributor has knowledge that a license under a third party's + intellectual property rights is required to exercise the rights + granted by such Contributor under Sections 2.1 or 2.2, + Contributor must include a text file with the Source Code + distribution titled "LEGAL" which describes the claim and the + party making the claim in sufficient detail that a recipient will + know whom to contact. If Contributor obtains such knowledge after + the Modification is made available as described in Section 3.2, + Contributor shall promptly modify the LEGAL file in all copies + Contributor makes available thereafter and shall take other steps + (such as notifying appropriate mailing lists or newsgroups) + reasonably calculated to inform those who received the Covered + Code that new knowledge has been obtained. + + (b) Contributor APIs. + If Contributor's Modifications include an application programming + interface and Contributor has knowledge of patent licenses which + are reasonably necessary to implement that API, Contributor must + also include this information in the LEGAL file. + + (c) Representations. + Contributor represents that, except as disclosed pursuant to + Section 3.4(a) above, Contributor believes that Contributor's + Modifications are Contributor's original creation(s) and/or + Contributor has sufficient rights to grant the rights conveyed by + this License. + + 3.5. Required Notices. + You must duplicate the notice in Exhibit A in each file of the Source + Code. If it is not possible to put such notice in a particular Source + Code file due to its structure, then You must include such notice in a + location (such as a relevant directory) where a user would be likely + to look for such a notice. If You created one or more Modification(s) + You may add your name as a Contributor to the notice described in + Exhibit A. You must also duplicate this License in any documentation + for the Source Code where You describe recipients' rights or ownership + rights relating to Covered Code. You may choose to offer, and to + charge a fee for, warranty, support, indemnity or liability + obligations to one or more recipients of Covered Code. However, You + may do so only on Your own behalf, and not on behalf of the Initial + Developer or any Contributor. You must make it absolutely clear than + any such warranty, support, indemnity or liability obligation is + offered by You alone, and You hereby agree to indemnify the Initial + Developer and every Contributor for any liability incurred by the + Initial Developer or such Contributor as a result of warranty, + support, indemnity or liability terms You offer. + + 3.6. Distribution of Executable Versions. + You may distribute Covered Code in Executable form only if the + requirements of Section 3.1-3.5 have been met for that Covered Code, + and if You include a notice stating that the Source Code version of + the Covered Code is available under the terms of this License, + including a description of how and where You have fulfilled the + obligations of Section 3.2. The notice must be conspicuously included + in any notice in an Executable version, related documentation or + collateral in which You describe recipients' rights relating to the + Covered Code. You may distribute the Executable version of Covered + Code or ownership rights under a license of Your choice, which may + contain terms different from this License, provided that You are in + compliance with the terms of this License and that the license for the + Executable version does not attempt to limit or alter the recipient's + rights in the Source Code version from the rights set forth in this + License. If You distribute the Executable version under a different + license You must make it absolutely clear that any terms which differ + from this License are offered by You alone, not by the Initial + Developer or any Contributor. You hereby agree to indemnify the + Initial Developer and every Contributor for any liability incurred by + the Initial Developer or such Contributor as a result of any such + terms You offer. + + 3.7. Larger Works. + You may create a Larger Work by combining Covered Code with other code + not governed by the terms of this License and distribute the Larger + Work as a single product. In such a case, You must make sure the + requirements of this License are fulfilled for the Covered Code. + +4. Inability to Comply Due to Statute or Regulation. + + If it is impossible for You to comply with any of the terms of this + License with respect to some or all of the Covered Code due to + statute, judicial order, or regulation then You must: (a) comply with + the terms of this License to the maximum extent possible; and (b) + describe the limitations and the code they affect. Such description + must be included in the LEGAL file described in Section 3.4 and must + be included with all distributions of the Source Code. Except to the + extent prohibited by statute or regulation, such description must be + sufficiently detailed for a recipient of ordinary skill to be able to + understand it. + +5. Application of this License. + + This License applies to code to which the Initial Developer has + attached the notice in Exhibit A and to related Covered Code. + +6. Versions of the License. + + 6.1. New Versions. + Netscape Communications Corporation ("Netscape") may publish revised + and/or new versions of the License from time to time. Each version + will be given a distinguishing version number. + + 6.2. Effect of New Versions. + Once Covered Code has been published under a particular version of the + License, You may always continue to use it under the terms of that + version. You may also choose to use such Covered Code under the terms + of any subsequent version of the License published by Netscape. No one + other than Netscape has the right to modify the terms applicable to + Covered Code created under this License. + + 6.3. Derivative Works. + If You create or use a modified version of this License (which you may + only do in order to apply it to code which is not already Covered Code + governed by this License), You must (a) rename Your license so that + the phrases "Mozilla", "MOZILLAPL", "MOZPL", "Netscape", + "MPL", "NPL" or any confusingly similar phrase do not appear in your + license (except to note that your license differs from this License) + and (b) otherwise make it clear that Your version of the license + contains terms which differ from the Mozilla Public License and + Netscape Public License. (Filling in the name of the Initial + Developer, Original Code or Contributor in the notice described in + Exhibit A shall not of themselves be deemed to be modifications of + this License.) + +7. DISCLAIMER OF WARRANTY. + + COVERED CODE IS PROVIDED UNDER THIS LICENSE ON AN "AS IS" BASIS, + WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, + WITHOUT LIMITATION, WARRANTIES THAT THE COVERED CODE IS FREE OF + DEFECTS, MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE OR NON-INFRINGING. + THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE COVERED CODE + IS WITH YOU. SHOULD ANY COVERED CODE PROVE DEFECTIVE IN ANY RESPECT, + YOU (NOT THE INITIAL DEVELOPER OR ANY OTHER CONTRIBUTOR) ASSUME THE + COST OF ANY NECESSARY SERVICING, REPAIR OR CORRECTION. THIS DISCLAIMER + OF WARRANTY CONSTITUTES AN ESSENTIAL PART OF THIS LICENSE. NO USE OF + ANY COVERED CODE IS AUTHORIZED HEREUNDER EXCEPT UNDER THIS DISCLAIMER. + +8. TERMINATION. + + 8.1. This License and the rights granted hereunder will terminate + automatically if You fail to comply with terms herein and fail to cure + such breach within 30 days of becoming aware of the breach. All + sublicenses to the Covered Code which are properly granted shall + survive any termination of this License. Provisions which, by their + nature, must remain in effect beyond the termination of this License + shall survive. + + 8.2. If You initiate litigation by asserting a patent infringement + claim (excluding declatory judgment actions) against Initial Developer + or a Contributor (the Initial Developer or Contributor against whom + You file such action is referred to as "Participant") alleging that: + + (a) such Participant's Contributor Version directly or indirectly + infringes any patent, then any and all rights granted by such + Participant to You under Sections 2.1 and/or 2.2 of this License + shall, upon 60 days notice from Participant terminate prospectively, + unless if within 60 days after receipt of notice You either: (i) + agree in writing to pay Participant a mutually agreeable reasonable + royalty for Your past and future use of Modifications made by such + Participant, or (ii) withdraw Your litigation claim with respect to + the Contributor Version against such Participant. If within 60 days + of notice, a reasonable royalty and payment arrangement are not + mutually agreed upon in writing by the parties or the litigation claim + is not withdrawn, the rights granted by Participant to You under + Sections 2.1 and/or 2.2 automatically terminate at the expiration of + the 60 day notice period specified above. + + (b) any software, hardware, or device, other than such Participant's + Contributor Version, directly or indirectly infringes any patent, then + any rights granted to You by such Participant under Sections 2.1(b) + and 2.2(b) are revoked effective as of the date You first made, used, + sold, distributed, or had made, Modifications made by that + Participant. + + 8.3. If You assert a patent infringement claim against Participant + alleging that such Participant's Contributor Version directly or + indirectly infringes any patent where such claim is resolved (such as + by license or settlement) prior to the initiation of patent + infringement litigation, then the reasonable value of the licenses + granted by such Participant under Sections 2.1 or 2.2 shall be taken + into account in determining the amount or value of any payment or + license. + + 8.4. In the event of termination under Sections 8.1 or 8.2 above, + all end user license agreements (excluding distributors and resellers) + which have been validly granted by You or any distributor hereunder + prior to termination shall survive termination. + +9. LIMITATION OF LIABILITY. + + UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, WHETHER TORT + (INCLUDING NEGLIGENCE), CONTRACT, OR OTHERWISE, SHALL YOU, THE INITIAL + DEVELOPER, ANY OTHER CONTRIBUTOR, OR ANY DISTRIBUTOR OF COVERED CODE, + OR ANY SUPPLIER OF ANY OF SUCH PARTIES, BE LIABLE TO ANY PERSON FOR + ANY INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES OF ANY + CHARACTER INCLUDING, WITHOUT LIMITATION, DAMAGES FOR LOSS OF GOODWILL, + WORK STOPPAGE, COMPUTER FAILURE OR MALFUNCTION, OR ANY AND ALL OTHER + COMMERCIAL DAMAGES OR LOSSES, EVEN IF SUCH PARTY SHALL HAVE BEEN + INFORMED OF THE POSSIBILITY OF SUCH DAMAGES. THIS LIMITATION OF + LIABILITY SHALL NOT APPLY TO LIABILITY FOR DEATH OR PERSONAL INJURY + RESULTING FROM SUCH PARTY'S NEGLIGENCE TO THE EXTENT APPLICABLE LAW + PROHIBITS SUCH LIMITATION. SOME JURISDICTIONS DO NOT ALLOW THE + EXCLUSION OR LIMITATION OF INCIDENTAL OR CONSEQUENTIAL DAMAGES, SO + THIS EXCLUSION AND LIMITATION MAY NOT APPLY TO YOU. + +10. U.S. GOVERNMENT END USERS. + + The Covered Code is a "commercial item," as that term is defined in + 48 C.F.R. 2.101 (Oct. 1995), consisting of "commercial computer + software" and "commercial computer software documentation," as such + terms are used in 48 C.F.R. 12.212 (Sept. 1995). Consistent with 48 + C.F.R. 12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (June 1995), + all U.S. Government End Users acquire Covered Code with only those + rights set forth herein. + +11. MISCELLANEOUS. + + This License represents the complete agreement concerning subject + matter hereof. If any provision of this License is held to be + unenforceable, such provision shall be reformed only to the extent + necessary to make it enforceable. This License shall be governed by + California law provisions (except to the extent applicable law, if + any, provides otherwise), excluding its conflict-of-law provisions. + With respect to disputes in which at least one party is a citizen of, + or an entity chartered or registered to do business in the United + States of America, any litigation relating to this License shall be + subject to the jurisdiction of the Federal Courts of the Northern + District of California, with venue lying in Santa Clara County, + California, with the losing party responsible for costs, including + without limitation, court costs and reasonable attorneys' fees and + expenses. The application of the United Nations Convention on + Contracts for the International Sale of Goods is expressly excluded. + Any law or regulation which provides that the language of a contract + shall be construed against the drafter shall not apply to this + License. + +12. RESPONSIBILITY FOR CLAIMS. + + As between Initial Developer and the Contributors, each party is + responsible for claims and damages arising, directly or indirectly, + out of its utilization of rights under this License and You agree to + work with Initial Developer and Contributors to distribute such + responsibility on an equitable basis. Nothing herein is intended or + shall be deemed to constitute any admission of liability. + +13. MULTIPLE-LICENSED CODE. + + Initial Developer may designate portions of the Covered Code as + "Multiple-Licensed". "Multiple-Licensed" means that the Initial + Developer permits you to utilize portions of the Covered Code under + Your choice of the NPL or the alternative licenses, if any, specified + by the Initial Developer in the file described in Exhibit A. + +EXHIBIT A -Mozilla Public License. + + ``The contents of this file are subject to the Mozilla Public License + Version 1.1 (the "License"); you may not use this file except in + compliance with the License. You may obtain a copy of the License at + http://www.mozilla.org/MPL/ + + Software distributed under the License is distributed on an "AS IS" + basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the + License for the specific language governing rights and limitations + under the License. + + The Original Code is ______________________________________. + + The Initial Developer of the Original Code is ________________________. + Portions created by ______________________ are Copyright (C) ______ + _______________________. All Rights Reserved. + + Contributor(s): ______________________________________. + + Alternatively, the contents of this file may be used under the terms + of the _____ license (the "[___] License"), in which case the + provisions of [______] License are applicable instead of those + above. If you wish to allow use of your version of this file only + under the terms of the [____] License and not to allow others to use + your version of this file under the MPL, indicate your decision by + deleting the provisions above and replace them with the notice and + other provisions required by the [___] License. If you do not delete + the provisions above, a recipient may use your version of this file + under either the MPL or the [___] License." + + [NOTE: The text of this Exhibit A may differ slightly from the text of + the notices in the Source Code files of the Original Code. You should + use the text of this Exhibit A rather than the text found in the + Original Code Source Code for Your Modifications.] + diff --git a/official/2.1.1/docs/Readme.html b/official/2.1.1/docs/Readme.html new file mode 100644 index 0000000..5b2b101 --- /dev/null +++ b/official/2.1.1/docs/Readme.html @@ -0,0 +1,387 @@ + + + + JEDI Code Library Release 2.1 + + + + + + + + + + + + +

+ +

JEDI Code Library

+ +

Release 2.1
+Build 3536
+05-November-2009

+ +

+ +

Content of this file

+ + + +

+ +

About this release

+

JCL release 2.0 provides improved support for RAD Studio 2010 (including +Delphi 2010 and C++Builder 2010) an updated support for all targets.

+ +

This new version of the JCL is mainly a bugfix release. Multiple bugs have been +fixed; for detailed change logs, use the facilities of our Subversion repository +at Sourceforge.net  +http://sourceforge.net/projects/jcl/ +, see below.

+ +

Head changes: +

+ +
    + +
  • fix major issues in JclAnsiStrings: wrong index arithmetics in StrSearch, flawed implementation of TJclAnsiStrings...
    • +
  • fix issue in JclRegistry: wrong exceptions were raised under some rare circumstances;
    • +
  • experts: the compilation of projects with type library was not possible, fixed wrong MAP file name computations...
    • +
  • debug information from MAP file: better handling of the MAP files generated by C++Builder;
    • +
  • all resources are now loaded using LoadResString;
    • +
  • streams: TJclBufferedStream wipes data on append;
    • +
  • open and save dialog hooks: moved to runtime code (they can now be added to any application);
    • +
  • compression: new 7z 9.7.0 compression classes.
    • + +
+ +

Important: +

+ +
    + +
  • +

    As of JCL 2.0, the library does not support Delphi 5, C++Builder 5, Kylix 3 and Delphi.net anymore;

    +
    • + +
+ +

(Windows only) Installation options:

+ +

Packages compiled by the JCL installer don't contain any debug +informations to keep their size as small as possible.

+ +

The JEDI Code Library packages are required by some 3rd party packages +(including the JEDI Visual Component Library - JVCL), the installer generates +them if the "Packages" node is checked.

+ +

The installer can generate MAP informations for each package. These informations +can be linked into binaries to become JCL debug data or be converted to .jdbg files. +Once linked MAP files could be deleted. These options are subnodes of the "Packages" node.

+ +

For BDS 2006, RAD Studio 2007, RAD Studio 2009 and RAD Studio 2010, the +compiler introduced a new option to make the same packages available in C++, +by checking the "Dual packages" option of the "Packages" node, you will be able +to call functions of the JCL from C++ code.

+ +

.net Framework support:

+ +

A subset of JCL units was worked over to support Delphi.Net (Delphi 2005, BDS 2006 and RAD +Studio 2007). The packages belong to the Jedi.Jcl namespace.

+ +

+ +

Supported Tools

+ +

The JEDI Code Library can be compiled and installed in the following environments

+ +

Only runtime support:

+ +
    + +
  • FreePascal (tested with 2.2.2 and 2.2.4).
    • + +
+ + +

Only design-time support (only experts):

+ + + +

Both supports (run time and design time):

+ +
    + +
  • Delphi 6, Delphi 7 and Delphi 2005;
    • + +
  • C++Builder 6;
    • + +
  • Delphi 2005 (without unit versioning support);
    • + +
  • Borland Developer Studio 2006 (Delphi for Win32, C++Builder Win32, Delphi.net and C#Builder personalities);
    • + +
  • Turbo Delphi (explorer and professional - cf Installation notes);
    • + +
  • CodeGear RAD Studio 2007 (Delphi for Win32 and C++Builder for Win32 personalities);
    • + +
  • Delphi 2009 and C++Builder 2009;
    • + +
  • Delphi 2010 and C++Builder 2010.
    • + +
+ +

+ +

Installation notes

+ +
    + +
  • Free Pascal (http://www.freepascal.org/) support has been updated for + this release; most units fromsource/common work with FP 2.2.
    • + +
+ +

Installation for Turbo Delphi

+ +

The JEDI Code Library can be compiled targetting Turbo Delphi Explorer and Turbo Delphi Professional. +Turbo Delphi Professional is recognized as BDS 2006, you have to download its command line compiler from +CodeGear website at http://www.codegear.com/Default.aspx?tabid=160  +to install the full JCL on this tool.

+ +

To install the JCL targetting Turbo Delphi Explorer, consider the following checks:

+ +
    + +
  • If you have an other supported version of Delphi/C++Builder on this computer, it should automatically be + detected and the installer will process as usual.
    • + +
  • If you only have Turbo Delphi Explorer (and no other tools) on the computer, the installer cannot be + compiled. You have to use the Turbo Explorer flavor of the JCL that contains a precompiled installer. However, + you will not be able to install any experts.
    • + +
+ +

Installation on C#Builder 1 and Delphi 8:

+ +
    + +
  • These products cannot be used to build the JCL installer, you need an + other supported product to install JCL experts on these products.
    • + +
  • These products are not able to use the JCL library as a runtime library. + You cannot write managed applications and managed packages based on the JCL.
    • + +
  • These products are not shipped with their native compilers, you have to + download it from codecentral (http://cc.codegear.com/). + The item (http://codecentral.codegear.com/Download.aspx?id=21333) +  contains the native compiler to be installed in Delphi 8. + The item (http://codecentral.codegear.com/Download.aspx?id=21334) +  contains the native compiler to be installed in C#Builder 1. + These zip files have to be extracted in the products directory using the standard pattern:
    • + +
+ +
		   Executable files (exe and dll)      - BDS\X.0\bin
		   Compiler files (dcp and dcu)        - BDS\X.0\lib
		   Toolsapi source files               - BDS\X.0\source\ToolsAPI
+ +

Default installation

+ +

For all others versions of Delphi, C++Builder and BDS, simply launch Install.bat +and the installer window will let you configure options and install the library.

+ +

+ +

Manual Installation

+ +

Although it is not recommended, a manual installation is possible. You will have +to manually configure options for the library. That is done by modifying an included +file. +

+

+

+

For each tool you want to install the JCL in, repeat the following steps:

+ +
    + +
  1. Open and edit included file to customize options:
    2. +
      + +
    • For C++Builder 6: source\include\jclc6.inc
      • + +
    • For Delphi 6: source\include\jcld6.inc
      • + +
    • For Delphi 7: source\include\jcld7.inc
      • + +
    • For Delphi 2005: source\include\jcld9.inc
      • + +
    • For Delphi.net 2005: source\include\jcld9.net.inc
      • + +
    • For BDS 2006 (Delphi and C++Builder): source\include\jcld10.inc
      • + +
    • For Delphi.net 2006: source\include\jcld10.net.inc
      • + +
    • For CodeGear RAD Studio 2007 (Delphi for Win32 and C++Builder): source\include\jcld11.inc
      • + +
    • For Delphi.net 2007: source\include\jcld11.net.inc
      • + +
    • For Delphi 2009 and C++Builder 2009: source\include\jcld12.inc
      • + +
    • For Delphi 2010 and C++Builder 2010: source\include\jcld14.inc
      • + +
    • For FreePascal: source\include\jclfpc.inc
      • +
    + +
  2. In the IDE, open and compile package Jcl.dpk (or Jcl.bpk for C++Builder) + located in a subdirectory of the "packages" directory matching your version of + the IDE. This package doesn't have to be installed since it doesn't provide + any components.
    3. + +
  3. If you want to install experts, open package JclBaseExpert.dpk and compile it, + then you can install all the experts you want (packages are located in the same + directory).
    4. + +
+ +

+ +

Distribution content

+ +
Install.bat                   - Compile and run VCL version of the JCL Installer (Win32)
QInstall.bat                  - Compile and run CLX version of JCL Installer (Win32)
install.sh                    - Compile and run JCL Installer (Linux)
bin                           - Common place for sample application EXE files
lib                           - Common place for compiled units.
docs                          - Readme (this file) and other documents
docs\Readme.html              - This file
docs\Experts.html             - Readme file about the experts
docs\MPL-1.1.txt              - The Mozilla Public Licence (MPL) version 1.1
docs\MPL FAQ.html             - Frequently Asked Questions about the MPL
docs\cps.html                 - Cross Platform Strategy
experts                       - JCL IDE experts source code
experts\debug                 - JCL Debug IDE expert for using JclDebug unit
experts\debug\dialog          - Application exception dialog replacement
experts\debug\simdview        - Low-level debug window for XMM registers
experts\debug\threadnames     - IDE expert showing class names for debugged threads
experts\debug\tools           - Tools for creating files with JCL debug information
experts\favfolders            - Favorite folders combobox in IDE open/save file dialogs
experts\projectanalyzer       - Project Analyzer IDE expert
experts\stacktraceviewer      - stack trace expert
experts\useswizard            - JCL uses wizard
experts\versioncontrol        - Integration of TortoiseCVS and TortoiseSVN in the IDE
examples                      - JCL example applications
examples\common               - CLX and Win32 example applications in Delphi
examples\dotnet               - JCL example applications for Delphi.net
examples\windows              - JCL example applications for Delphi.Win32
examples\windows\delphitools  - Collection of system tools using JCL
help                          - Help file (distributed in a separate archive)
install                       - Installer source code
packages                      - JCL package sources
source                        - JCL source code
+ +

+ +

Giving your feedback

+ +If you have any comments or suggestions we would appreciate it if you +drop us a note. There are several ways to get in contact with us: + + +
+

Reporting bugs

+ +

The general rule is: If you want to get a +bug fixed you need to log it!

+ +

An issue tracking tool can be accessed via ('Code Library' category): +http://issuetracker.delphi-jedi.org/

+ +

Please be aware that you are allowed there to enter feature request and code donations as well.

+ +

The JEDI issue tracker is based up on the Mantis BugTracker Open +Source project. More background information about it is available on its homepage  +http://mantisbt.sourceforge.net

+ +

+ +

Downloads of stable sources

+ +

These sources are official JCL releases and file status can be considered as +stable for use in final applications. During the past years, there have been around 2 +or 3 releases per year.

+ +

JEDI Code Library: File List on SourceForge:  +http://sourceforge.net/project/showfiles.php?group_id=47514 +

+ +

+ +

Development sources

+ +

These files are under active development and may cause some incompatibilities +and some conflicts with existing code. You should not use these files in final +applications. The JCL development team provides these files for testing and +feedback from users.

+ +

You can download snapshots of the Subversion repository updated every day in the JCL daily page + http://jcl.sourceforge.net/daily/

+ +

To always have access to the most recent changes in the JCL, you +should install a Subversion client (we recommend TortoiseSVN http://tortoisesvn.tigris.org/ +and RapidSVN http://rapidsvn.tigris.org/) and download the +SVN repository files to your computer as explained in the repository page of the JEDI Wiki at +http://wiki.delphi-jedi.org/index.php?title=Repository  +With the SVN client, you can update your local repository at any time. +You can also view the repository online via the web interface at http://jcl.svn.sourceforge.net/

+ +

+ +

Getting involved in JCL development

+ +If you want to help out making JCL better or bigger or just plain +cooler, there are several ways in which you can help out. Here are some of the +things we need your help on: +
    + +
  • Donate source code
    • + +
  • Donate time writing help
    • + +
  • Donate time writing demos
    • + +
  • Donate time fixing bugs
    • + +
  • Share your experience by helping users in newsgroups and mailing lists
    • + +
+ +

JCL accepts donations from developers as long as the source fullfills the +requirements set up by the JEDI and JCL teams. To read more about these +requirements, visit the page http://jcl.delphi-jedi.org/

+ +

You can also donate your time by writing help for the source already +in JCL. We currently use Doc-o-Matic to create the finished help files but +the actual help sources are plain text files in a simple to understand format. +We can provide you with auto-generated templates with all classes, properties, +types etc already inserted. The "only" thing left to do is fill in the actual +help text for the help items. If you are interested in writing help, contact us.

+ +

If you want to help fix bugs in JCL, go to Mantis and check the bug report +there. You can post replies as well as fixes directly in the bug report. One of the +JCL developers will pick up the report/fix and update the Subversion repository if the fi +is satisfactory. If you report and fix a lot of bugs, you might even get developer +access to SVN so you can update the JCL files directly.

+ + + diff --git a/official/2.1.1/docs/Readme.txt b/official/2.1.1/docs/Readme.txt new file mode 100644 index 0000000..03e2316 --- /dev/null +++ b/official/2.1.1/docs/Readme.txt @@ -0,0 +1,302 @@ +-------------------------------------------------------------------------------- + +JEDI Code Library +Release 2.1 +Build 3536 +05-November-2009 + +-------------------------------------------------------------------------------- + +Content of this file +About this release +Supported tools +Installation notes +Manual installation +Distribution content +Giving your feedback +Reporting bugs +Downloads of stable sources +Development sources +Getting involved in JCL development + +-------------------------------------------------------------------------------- + +About this release +JCL release 2.0 provides improved support for RAD Studio 2010 (including +Delphi 2010 and C++Builder 2010) an updated support for all targets. + +This new version of the JCL is mainly a bugfix release. Multiple bugs have been +fixed; for detailed change logs, use the facilities of our Subversion repository +at Sourceforge.net http://sourceforge.net/projects/jcl/, see below. + +Head changes: + - fix major issues in JclAnsiStrings: wrong index arithmetics in StrSearch, + flawed implementation of TJclAnsiStrings... + - fix issue in JclRegistry: wrong exceptions were raised under some rare + circumstances; + - experts: the compilation of projects with type library was not possible, + fixed wrong MAP file name computations... + - debug information from MAP file: better handling of the MAP files generated + by C++Builder; + - all resources are now loaded using LoadResString; + - streams: TJclBufferedStream wipes data on append; + - open and save dialog hooks: moved to runtime code (they can now be added to + any application); + - compression: new 7z 9.7.0 compression classes. + + +Important: + + - As of JCL 2.0, the library does not support Delphi 5, C++Builder 5, Kylix 3 + and Delphi.net anymore; + +(Windows only) Installation options: + + Packages compiled by the JCL installer don't contain any debug informations to +keep their size as small as possible. + + The JEDI Code Library packages are required by some 3rd party packages +(including the JEDI Visual Component Library - JVCL), the installer generates +them if the "Packages" node is checked. + + The installer can generate MAP informations for each package. These +informations can be linked into binaries to become JCL debug data or be +converted to .jdbg files. Once linked MAP files could be deleted. These options +are subnodes of the "Packages" node. + + For BDS 2006, RAD Studio 2007, RAD Studio 2009 and RAD Studio 2010, the +compiler introduced a new option to make the same packages available in C++, +by checking the "Dual packages" option of the "Packages" node, you will be able +to call functions of the JCL from C++ code. + +-------------------------------------------------------------------------------- + +Supported Tools +The JCL can be compiled and installed in the following environments + +Only runtime support: + - FreePascal (tested with 2.2.2 and 2.2.4). + +Only design-time support (only experts): + - C#Builder 1 (cf Installation notes); + - Delphi 8.net (cf Installation notes). + +Both supports (run time and design time): + - Delphi 6, Delphi 7 and Delphi 2005; + - C++Builder 6; + - Delphi 2005 (without unit versioning support); + - Borland Developer Studio 2006 (Delphi for Win32, C++Builder for Win32, + Delphi.net and C#Builder personalities); + - Turbo Delphi (explorer and professional - cf Installation notes); + - CodeGear RAD Studio 2007 (Delphi for Win32 and C++Builder for Win32 + personalities); + - CodeGear Delphi 2009 and C++Builder 2009; + - CodeGear Delphi 2010 and C++Builder 2010. + +-------------------------------------------------------------------------------- + +Installation notes + + - Free Pascal (http://www.freepascal.org/) support has been updated for + this release; most units fromsource/common work with FP 2.2. + +Installation for Turbo Delphi + +The JEDI Code Library can be compiled targetting Turbo Delphi Explorer and Turbo +Delphi Professional. Turbo Delphi Professional is recognized as BDS 2006, you +have to download its command line compiler from CodeGear website at +http://www.codegear.com/Default.aspx?tabid=160 to install the full JCL on this +tool. + +To install the JCL targetting Turbo Delphi Explorer, consider the following +checks: + + - If you have an other supported version of Delphi/C++Builder on this computer, + it should automatically be detected and the installer will process as usual. + - If you only have Turbo Delphi Explorer (and no other tools) on the computer, + the installer cannot becompiled. You have to use the Turbo Explorer flavor of + the JCL that contains a precompiled installer. However, you will not be able + to install any experts. + +Installation on C#Builder 1 and Delphi 8: + + - These products cannot be used to build the JCL installer, you need an other + supported product to install JCL experts on these products. + - These products are not able to use the JCL library as a runtime library. You + cannot write managed applications and managed packages based on the JCL. + - These products are not shipped with their native compilers, you have to + download it from codecentral (http://cc.codegear.com/). The item + (http://codecentral.codegear.com/Download.aspx?id=21333) contains the native + compiler to be installed in Delphi 8. The item + (http://codecentral.codegear.com/Download.aspx?id=21334) contains the native + compiler to be installed in C#Builder 1. These zip files have to be extracted + in the products directory using the standard pattern: + Executable files (exe and dll) - BDS\X.0\bin + Compiler files (dcp and dcu) - BDS\X.0\lib + Toolsapi source files - BDS\X.0\source\ToolsAPI + +Default installation + +For all others versions of Delphi, C++Builder and BDS, simply launch Install.bat +and the installer window will let you configure options and install the library. + +-------------------------------------------------------------------------------- + +Manual Installation +Although it is not recommended, a manual installation is possible. You will have +to manually configure options for the library. That is done by modifying an +included file. + +For each tool you want to install the JCL in, repeat the following steps: + +1. Open and edit included file to customize options: + - For C++Builder 6: source\include\jclc6.inc + - For Delphi 6: source\include\jcld6.inc + - For Delphi 7: source\include\jcld7.inc + - For Delphi 2005: source\include\jcld9.inc + - For Delphi.net 2005: source\include\jcld9.net.inc + - For BDS 2006 (Delphi and C++Builder): source\include\jcld10.inc + - For Delphi.net 2006: source\include\jcld10.net.inc + - For CodeGear Delphi 2007 for Win32 and C++Builder 2007: source\include\jcld11.inc + - For Delphi.net 2007: source\include\jcld11.net.inc + - For Delphi 2009 and C++Builder 2009: source\include\include\jcld12.inc + - For Delphi 2010 and C++Builder 2010: source\include\include\jcld14.inc + - For FreePascal: source\include\jclfpc.inc + +2. In the IDE, open and compile package Jcl.dpk (or Jcl.bpk for C++Builder) +located in a subdirectory of the "packages" directory matching your version of +the IDE. This package doesn't have to be installed since it doesn't provide any +components. + +3. If you want to install experts, open package JclBaseExpert.dpk and compile +it, then you can install all the experts you want (packages are located in the +same directory). + +-------------------------------------------------------------------------------- + +Distribution content +Install.bat - Compile and run VCL version of the JCL Installer (Win32) +QInstall.bat - Compile and run CLX version of JCL Installer (Win32) +install.sh - Compile and run JCL Installer (Linux) +bin - Common place for sample application EXE files +lib - Common place for compiled units. +docs - Readme (this file) and other documents +docs\Readme.html - This file +docs\Experts.html - Readme file about the experts +docs\MPL-1.1.txt - The Mozilla Public Licence (MPL) version 1.1 +docs\MPL FAQ.html - Frequently Asked Questions about the MPL +docs\cps.html - Cross Platform Strategy +experts - JCL IDE experts source code +experts\debug - JCL Debug IDE expert for using JclDebug unit +experts\debug\dialog - Application exception dialog replacement +experts\debug\simdview - Low-level debug window for XMM registers +experts\debug\threadnames - IDE expert showing class names for debugged threads +experts\debug\tools - Tools for creating files with JCL debug information +experts\favfolders - Favorite folders combobox in IDE open/save file dialogs +experts\projectanalyzer - Project Analyzer IDE expert +experts\repository - Repository expert +experts\stacktraceviewer - stack trace expert +experts\useswizard - JCL uses wizard +experts\versioncontrol - Integration of TortoiseCVS and TortoiseSVN in the IDE +examples - JCL example applications +examples\common - CLX and Win32 example applications in Delphi +examples\dotnet - JCL example applications for Delphi.net +examples\windows - JCL example applications for Delphi.Win32 +examples\windows\delphitools - Collection of system tools using JCL +help - Help file (distributed in a separate archive) +install - Installer source code +packages - JCL package sources +source - JCL source code + +-------------------------------------------------------------------------------- + +Giving your feedback + +If you have any comments or suggestions we would appreciate it if you drop us a +note. There are several ways to get in contact with us: + - Newsgroup is the recommended way to contact other JCL users and the team + itself. They are hosted at news://forums.talkto.net/jedi.jcl. + - Write to jcl@delphi-jedi.org or to jcl-testing@delphi-jedi.org This email + account should not be used for support requests. If you need support please + use either the newsgroups or the mailing list. + - If you want to keep up to date about JCL then you can join the JCL mailing + list by going to http://tech.groups.yahoo.com/group/JEDI-JCL/You can also use + this list to voice your opinion, comments or suggestions. + +-------------------------------------------------------------------------------- + +Reporting bugs + +The general rule is: If you want to get a bug fixed you need to log it! + +An issue tracking tool can be accessed via ('Code Library' category): +http://issuetracker.delphi-jedi.org/ + +Please be aware that you are allowed there to enter feature request and code +donations as well. + +The JEDI issue tracker is based up on the Mantis BugTracker Open Source project. +More background information about it is available on its homepage +http://mantisbt.sourceforge.net + +-------------------------------------------------------------------------------- + +Downloads of stable sources + +These sources are official JCL releases and file status can be considered as +stable for use in final applications. During the past years, there have been +around 2 or 3 releases per year. + +JEDI Code Library: File List on SourceForge: +http://sourceforge.net/project/showfiles.php?group_id=47514 + +-------------------------------------------------------------------------------- + +Development sources + +These files are under active development and may cause some incompatibilities +and some conflicts with existing code. You should not use these files in final +applications. The JCL development team provides these files for testing and +feedback from users. + +You can download snapshots of the Subversion repository updated every day in the +JCL daily page http://jcl.sourceforge.net/daily/ + +To always have access to the most recent changes in the JCL, you should install +a Subversion client (we recommend TortoiseSVN http://tortoisesvn.tigris.org/and +RapidSVN http://rapidsvn.tigris.org/) and download the SVN repository files to +your computer as explained in the repository page of the JEDI Wiki at +http://wiki.delphi-jedi.org/index.php?title=Repository With the SVN +client, you can update your local repository at any time. You can also view the +repository online via the web interface at http://jcl.svn.sourceforge.net/ + +-------------------------------------------------------------------------------- + +Getting involved in JCL development + +If you want to help out making JCL better or bigger or just plain cooler, there +are several ways in which you can help out. Here are some of the things we need +your help on: + - Donate source code + - Donate time writing help + - Donate time writing demos + - Donate time fixing bugs + - Share your experience by helping users in newsgroups and mailing lists + + JCL accepts donations from developers as long as the source fullfills the +requirements set up by the JEDI and JCL teams. To read more about these +requirements, visit the page http://jcl.delphi-jedi.org/ + + You can also donate your time by writing help for the source already in JCL. +We currently use Doc-o-Matic to create the finished help files but the actual +help sources are plain text files in a simple to understand format. We can +provide you with auto-generated templates with all classes, properties, +types etc already inserted. The "only" thing left to do is fill in the actual +help text for the help items. If you are interested in writing help, contact us. + +If you want to help fix bugs in JCL, go to Mantis and check the bug report +there. You can post replies as well as fixes directly in the bug report. One of +the JCL developers will pick up the report/fix and update the Subversion +repository if the fi is satisfactory. If you report and fix a lot of bugs, you +might even get developer access to SVN so you can update the JCL files directly. + diff --git a/official/2.1.1/docs/ThreadSafe.txt b/official/2.1.1/docs/ThreadSafe.txt new file mode 100644 index 0000000..2e7359f --- /dev/null +++ b/official/2.1.1/docs/ThreadSafe.txt @@ -0,0 +1,28 @@ +------------------------------------------------------------------------------ +JEDI Code Library +HomePage: http://jcl.sourceforge.net/ +------------------------------------------------------------------------------ + +Thread safe support + +Some pieces of code can handle read/write accesses from multiples threads +without writing specific code. +This support can be enabled: +- by defining the THREADSAFE compiler symbol {$DEFINE THREADSAFE} when JCL + units are part of a project. +- by checking the “Enable thread safe code” node in the installer options + +Presently only the following units have some pieces of code that implicitly +handles thread safe accesses: +source\common\JclAbstractContainers.pas +source\common\JclArrayLists.pas +source\common\JclArraySets.pas +source\common\JclBinaryTrees.pas +source\common\JclHashMaps.pas +source\common\JclLinkedLists.pas +source\common\JclQueues.pas +source\common\JclStacks.pas + +This support is made using critical sections, if you want other piece of code +to be thread safe, please create a feature request in the “Code Library” category +of the mantiss at http://homepages.borland.com/jedi/issuetracker/ diff --git a/official/2.1.1/docs/cps.html b/official/2.1.1/docs/cps.html new file mode 100644 index 0000000..ecdcf7d --- /dev/null +++ b/official/2.1.1/docs/cps.html @@ -0,0 +1,655 @@ + + + + + JEDI Code Library - Cross Platform Strategy + + +

JEDI Code Library - Cross Platform Strategy

+

+This paper presents the JCL teams strategy for cross platform +compliance of the +JEDI Code Library. It is based up on the discussions within the JCL +newsgroup +and JCL developer mailing lists. This document is currently work in +progress +and subject to changes with or without notice. +

+

+Version history:
+    0.1 Initial release +

+

+

+

Background

+

+The main objective is to make the JEDI Code Library VisualCLX (Kylix +for Delphi/Delphi) and Delphi.NET compatible. For a detailed +explanation of the currently used terminology, see the following +article +Overview of the VCL for .NET.

+

+We have to cope with nearly all aspects of cross platform progamming, +like different APIs, different operating system concepts etc. Since we +want to be as crossplatform compatible as possible interface +compatability is the most important +issue for us. JEDI Code Library users should have to opportunity the +use the JCL +on whatever platform they like. Figure 1 shows the three basic layers +we have to deal with: +

+
    +
  • Platform independent layer: Units which are not (or only very +minor) +platform specific and do not depend on a specific component set. This +doesn't mean that units in this layer have to consist of no platform +dependent code, but they have to +be nearly 100% interface compatible and all functionality must have +been ported to all +supported platforms.
    • +
  • Platform dependent layer: Units which depend on a specific +platform (e.g. JclCLI)
    • +
  • Component set dependent layer: Units which depend on a specific +component set
    • +
+

+
+Fig 1: The JEDI Code Library crossplatform layer structure +

+

+The JEDI Code Library currently targets the following platforms: +

+
    +
  • Kylix for Delphi (Kylix 3) / Linux
    • +
  • Delphi (Version 5,6,7) / Microsoft Windows
    • +
+and is trying to support the following platforms as soon as possible: +
    +
  • Delphi .NET / .NET (Micrsoft Windows)
    • +
+

+As a mid or long term perspective we are hoping to get the JCL +FreePascal compatible. +This involves the possibilty to have the JCL running on DOS, OS/2, +FreeBSD and +AmigaOS.

+

Common platform independent layer

+

+This layer consists of all files which are not platform dependent or +need only very minor adjustations. Furthermore all units in this layer +do not depend on a +specific component set. Examples for common platform independent units +are JclBase, JclDateTime, JclFileUtils and JclMath. The units have been +ported to all platforms and are the crossplatform "core" of the Jedi +Code Library. As a general rule a unit in this layer should have no +platform specific ifdefs in its +interface section. +

+

Platform dependent layer

+

+Furthermore we do not have to differentiate between VCL and VisualCLX +units only (the so called component set dependent layer), but also +between UNIX, Windows and .NET dependent units. The platform dependent +units doesn't need to be interface compatible (if there is an +equivalent in one of the other suported platforms at all!). +An example for a platform dependent unit is JclCLI. Nonetheless if +there are equivalents in all other supported platforms as well it might +be considerable to write a more general class and include that unit +into the common platform indepedant layer. +

+

Component set dependent layer

+

+When it comes to sharing code between VCL and VisualCLX-applications, +some facts need to be stated: +

+

+

+
  • A unit is called VCL-dependent, when it uses some +VCL-unit(s), e.g. Graphics. +
    • +
  • A unit is called VisualCLX-dependent, when it uses some +VisualCLX-unit(s), e.g. QGraphics.
    • +

    +When a unit contains neither VCL- nor VisualCLX-specific code, there is +no problem: It can be used by either type of application. +

    +

    +While it is basically possible to create VCL-dependent and +VisualCLX-dependent +variants of the same unit by means of conditional compilation - and use +them in +VCL- and VisualCLX-applications respectively -, this method fails at +design time: +One and the same unit cannot be installed twice in the IDE, not even as +part of +different packages. We would have to rename one of the variants, +effectively +creating a new unit. Therefor we will use a preprocessor to resolve the +conditional compilation symbols related to VCL/VisualCLX-specific code +and create +VCL/VisualCLX units from a common codebase. +

    +

    +Component dependent units should be largely "interface compatible" - +interface +adjustments for specific component sets are unavoidable - nonetheless +similar +interfaces are desirable. +

    +

    Preprocessor

    +

    +The preprocessor jpp is a modified version of Barry Kelly's ppp tool. +In contrast to ppp, which resolves all conditional compilation +directives without exception, with jpp symbols not only can be defined +but also undefined. Those symbols which are neither defined nor +explicitely undefined are considered +as of unknown status and it and its related source code remains +untouched. +

    +

    +The usage of jpp is not too hard. It is called via +

    +
    jpp [options] <input files>...
    +Possible options are +
      -i       Process includes
      -c       Process conditional directives
      -C       Strip comments
      -pxxx    Add xxx to include path
      -dxxx    Define xxx as a preprocessor conditional symbol
      -uxxx    Assume preprocessor conditional symbol xxx as not defined
      -x[n:]yyy  Strip first n characters from file name; precede filename by prefix yyy
    +

    +The example command line below generates a file JclQGraphics.pas in +subdirectory +CLX from file Graphics.cb located in the current directory. Symbols +"VisualCLX" +and "COMPILER6_UP" are specified as defined, "Bitmap32" and "VCL" as +undefined. +

    +
      jpp -c -dVisualCLX -dCOMPILER6_UP -uBitmap32 -uVCL -xCLX\JclQ Graphics.cb
    +

    Generating Jcl[Q]Graphics.pas and Jcl[Q]GraphUtils.pas

    +

    +First compile Preprocessor\jpp.exe from Preprocessor\jpp.dpr. +Then change to the "Source" directory and type "make" at the command +line. +This will create the units
    +VCL\JclGraphics.pas
    +VCL\JclGraphUtils.pas
    +CLX\JclQGraphics.pas
    +CLX\JclQGraphUtils.pas
    +

    +

    +from their prototypes _Graphics.pas and _GraphUtils.pas. +

    +

    Minimizing VCL dependencies

    +

    +To reduce VCL dependencies in JCL, the following changes have been +made: +

    + +
    +
    JclFileUtils
    +
    PathCompactPath is an overloaded function. The variant which +takes a TCanvas as argument (and thus creates a dependency on VCL unit +Graphics) has been removed.
    +
    +
    +
    +
    JclShell
    +
    ShellLinkGetIcon has been removed. It could get part of some +genuine VCL-dependent unit (e.g. JclGraphUtils), but for now it is left +out.
    +
    +
    +
    +
    JclPEImage
    +
    + 
     Replace "uses Consts," by

        uses
          {$IFDEF COMPILER6_UP}
          RtlConsts,         // VisualCLX-package compatible (part of rtlxx.bpl)
          {$ELSE}
          Consts,            // not VisualCLX-package compatible (part of vclxx.bpl)
          {$ENDIF COMPILER6_UP}
    +
    +
    +     +

    +Note that the first two changes have enormous impact, since many JCL +units use JclFileUtils and JclSysInfo (which both use JclShell). This +leaves JclGraphics and JclGraphUtils as sole units with genuine +VCL/VisualCLX-dependencies. +JclPrint is the only remaining pure VCL-dependent units.

    +

    New directory structure

    +

    +With the new JCL release we introduce a more appropriate source file +directory +structure. The files are now grouped according their respective layers. +

    +
    Source/
      Common
      DotNet
      Unix
      VCL
      VisCLX
      Windows
    +

    Status - Platforms

    +

    +This table gives a short overview of which units are already working +under four different Delphi language compilers/platforms. There are +four status levels possible: +

    +

    + + + + + + + + + + + + + + + + + + + +
    +
    +     		  the unit has been ported to that platform
    -  the unit has not been ported to that platform
     (+) +
    +     		  the unit compiles, but not all of its functionality +has been ported to that platform.
     platform +
    +     		  the unit is platform dependent and will not be ported.
    +

    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    NameDelphi +(Windows)Kylix +for DelphiDelphi.NETFree +Pascal
    Jcl8087++-?
    JclAppInst+--?
    JclCil+--?
    JclClr+--?
    JclCom+--?
    JclComplex++-?
    JclConsole+--?
    JclCounter++-?
    JclDateTime+(+)-?
    JclDebug+--?
    JclDotNet+--?
    JclEDI++-?
    JclEDISEF++-?
    JclEDIXML++-?
    JclEDI_ANSIX12++-?
    JclEDI_UNEDIFACT++-?
    JclFileUtils+(+)-?
    JclExprEval++
    +     		-?
    JclHookExcept+--?
    JclIniFiles++
    +     		-?
    JclLanMan+--?
    JclLocales+--?
    JclLogic++-?
    JclMapi+--?
    JclMath++-?
    JclMetaData+--?
    JclMidi+--?
    JclMime++-?
    JclMiscel+--?
    JclMultimedia+--?
    JclNTFS+--?
    JclPEImage+--?
    JclPrint+--?
    JclStrHashMap++
    +     		-?
    JclStatistics++-?
    JclShell+--?
    JclSecurity+--?
    JclSchedule++-?
    JclRTTI+--?
    JclResources+--?
    JclRegistry+--?
    JclStrings++-?
    Jclsvcctrl+--?
    Jclsynch+--?
    JclTaskplatform--?
    JclSysUtils+(+)
    +     		-?
    JclSysInfo+(+)
    +     		-?
    JclTD32+--?
    JclUnicode+--?
    JclUnitConv++-?
    JclWin32platform --?
    JclWinMidiplatform --?
    +

    Assembler

    +

    +For crossplatform compatability it is absolutely necessary to reduce +the amount +of inline assembler code used. Therefore as a general rule every line +of assembler +must have a pure pascal pendant. Please use assembler only if it +really has a noticeable impact on the libraries performance.

    +
    {$IFNDEF PUREPASCAL}
      // assembler code here
    {$ELSE}
      // Delphi equivalent here
    {$ENDIF}
    +

    Packages

    + + diff --git a/official/2.1.1/docs/cps_files/strucv1.jpg b/official/2.1.1/docs/cps_files/strucv1.jpg new file mode 100644 index 0000000000000000000000000000000000000000..4c2fddc232b5c7156166c1451cc41e49271f5c2e GIT binary patch literal 33442 zcmdqJ1ytPMvL^b&Jp}h)O$hD~+=2&pcXx;25J+$fkl-2|0yORt+#MQs2#p5`HvI3* zn|n{reJAJ6+%;Kpa3u zL_|VFKt@7BLP0@BMaRWJM?*s=!p6bGB_k$(K}JkUN&#Y~rJ!P@CMA8vL&wO<#>vS^ zPRlF!nq7dIgOmNQO<+(^P|(rP2{AAT*(pgW+5f|@#|{7s8O9ja4GxA1fW?A=!-9G2 z0muOW2I1+`{`G;&ZAx zQK&goPVh`zCQ$J~oa;2Ff2sB_n*DQ%1^+K;_CFQ-SG^VibU2tNy75?WBvM-_^0i)7K z;GV=<1nG_<^Z6r?qbmLgbh-)O$&;T1dx<}U%40qP2;+~yDVL|g^dnH^D_m^TrkHU_ zqV3>Y4)Ht`gSdu7Z4z~s32JtEro0oph5Sg3(zzIyu3GN%VPs`2kS2W3K}9htwC^Nj z|NY?|(EbP@)4mtpQ+wL_T&LgnaME>wH_F7bc@(~dG`r#1>-V3-+EoO;6T(k88O>v3(2~KJIMKg7`xFWZ# zl^yi5HKIQE+}s(UVE8og2)s`iyX7A{E4-CTyL9{pCAYejL1D*oF^8dwP6-Yaz~n zE|hi5UwE9tcLYyX?3p3B4$4nX8K|4CuwSqKpp?4LB>SBV95J$Ug!(RBtSlB=B5I|AtKu=SA-eHN}u{GzTGL$HHW?mx7WpU3jek&j1j3Em+v^kMr6=;^nYW?{lUx&qqxumM zU7HK_T=mK_Y0mD9$+j0}>^SG$Y=^#3Hhr+O3kSg~;E9?*Gh>26dmE?7T>p+pQq=taUWBy#Vt83cMuLy*z?B{Xld8z)Gts`zkupgtp9H)@$;(wp0~Fi3;4G^2&%Vbpn#`_)PV$VZzOq zfUG~9l3A7ycj8R3@A1zz1Xb0H-TlWnOXB$?$cFQL%jv?YyPzb`CV9I8%j-7pL?-3r zwjef|+$Rg-Me=UR1tu|z5*Fv4LdzZWTP4ALAo?mzR2ZK>8P4IKI&XVLa9JmGOeeS9 zb~2!Sjr_#bD>=14yEdDvAmOddYukrTjrL!3RxOV}!iT(odHP4-5s+L|g88%e(Vwdo zJ~YHU(5Xz^^$VNT&0_FazI|S|w6^)W*U1)B{Ul?1CD#A)*G?XODJgJd&F`tKT*plIo=NA&cvIH*L74NDjBEN4d?yto zMd6`HCUIl6(xzFoG2rV;mRuh))q!u#y8LND77%PnlyCI+H$0pXc_vj)x23uU(0%ex zI9=oy^i~1a%ulW@JnuInl*n!Rye3{j;T%yiRCJp)G?jBYChcN*&A?X`#KRFnWGh{4lX|pLWPEwJ0Pqxzw;9y&f8+ zrbN}#<}ED^KBCrmZTnOirtE}Uyz}n^S>^00LxN3*A{J9(FZ}4cMmL-(dlblMGls#3AcXO7* z8lH=~sA&S8R%vKs?vJ^q z2_7B~4eS+2PBH;@uIW`&Df5j%V8ftc!p!B2tInp@>+Hl`?LMd+#cU=r_GUBrxX@?vL36%^CPNl6@`5jRFphfMX-Vp zBJD>36Kzj`_K)Wza{Uo_K4iL%(9#gAHbbaySTjPOuMjWg`f8Oy)2+0S8#5JQguz?FN8M)W zw5}=M(6$jj0^igtA0l*Egtv0`RxeSX5Y|N9C*U_U@b~^l(;cdKOVIr*xpeDh)wni! zcW}Ahzvn4#ydGssC+?o{rSR5VR!cLrm~nHV1@$}c*f&jD2-+#T2~7h)LN%j{D- zvtyne-C5JF>xmDxLv8n$AE7FmFY|^EEGz54e+2#(Qd#|Ofs%yll~Kg{V0jKTf~jS$ zl=;ae{yx^oQPj~gQ~<~2vOLC81D}xMKX$7*O{W=2CG)*@wM33A%rC}uBpjQh3$=#Bc%OMtQlMi)q>a`- zpKa6?Y~GX0eyeFnmwvIoBT=7VMPX)TXqMel4KmAHcOu;_IZ~4TXOOXSz(-;kYu_|` z*_{=VSMDek3DafD5b3fNhh0bmf?kr6)>fzn{knry)6b)ViXR?0`>LG?p{t2_oot83 z+i$L4$JK4_;FG^1kqrs!&qn&=5mCwTGcNHYtwZa#JdSj z8Y&ufL1J@0m3!MX{xdBaOMYZI>3x0Oo_T0b(dYY3`k_W#2Qdx#7*Ps3BN1S){SUS) zM|Q`&PA0j%_2!(8CYHfIlI{%Gb2v1B_|!$YJB8ue-t}Ztc*~B-(=Yh5u||!NI3N>Ry@}ncqu@kTm(IrXIi==j<)Wu zp8P|^T0J;pt2m!NkqtkGH+q7su7QNf`W+~L_N*q?0X^*V*P@Qh)H7U?1e%BEvc)+0 z%1eVhgOi^V1ehnjL8;SUp+X#ldoV!YHu<^&S4WIbeDCLEY&2d$^EDiKT%k*_6|zN) zE@Gv4PT2&1GTqm`f9AwhL28~SKipc39r+awKLUZr3+;}lj`!O-r!OmhA%*>9(q`Oh;np}7j*BVMdNr`! z06bGv4Rk{3;JbhsJ$OOHQ)Bq1K2syBB%ogbGPpE#7c3lqCeYen65Z`v!hLAhnB%!F zXs~6|W>8~F4yl#1m*BA;T`^4DhKk>=Hw(Sd76>3GXNAm9h`eww+vh7!`Dj-lcSCmk zbF8k9rXmRxX@!sm31UO<$hjX(ysa6E(=2fdIEi`$a=qJapCDcP;=}6YD#O;TRLZvH z;HW@5%axC7M$6Ia?ciQ1%uhdAVM1MN%)-U{n2iQ}(S0?{tZdql zvpCe~b)Rm(uPc4U;+LNt7awl6z)Y9n=r7SJuwk%24k!tkp5@SdH2GQ9LRY%K!SJ!R z6o1+z`J}9}u<^rCW0FPuTYnEvB;~Nxz!p5(ozmnsP}8kHn2SVCR~LhQP1pN$sik`G zFkZmu4HaqiU>?lp;~NpXkhe{zh>eBF%q+gbs5*N35D1;Th(MM1WWI5Me2^s18P@7f z2a$>%pgDa9BgsHj%649`Mjt5a97+kk@FV`!tv2mg z;r?nzZdXPJ*}kO!`=d#C8qMeU+c-5?w$>n)v-lUGWj~0M3yL9z)*c$+#;o<8!S}mN zlrg-BxLsMy3sStJl58)S^?5YY zt#8U6kBJ*>rE1cW-*`@@hS|IwlH9-TaY1Z1Hzl&Vh_Ae;N1eog`{3rlifm>_N1aYK zSV(aqNw}Jg-u*SL6H5*o ztvB$JL)*`Z!a=~Wha@yM#a{WzTh?ek{j$APyv6T>k}tL|v`Jk?9zFuGu{DmXTf6s` z_U)eOyW82QEA;g<>n95YSLe%1asj5>8MJR*w-`N9sHJhPhPCLcXu=JXMD!Ay6&%q= zeC*wspuc2FMlZ)MKbH@_$+Aot34NnGFi%cXeVgWE{K+1z(UxXYA`RkY5|Dz1-m82i z>L6Pwxr9U-hzSqH--G*{_GY%i!Of?%++t$8s@1kwO$$#7@nxi$>Bt~P#V(`X5%0R> zU}fR8u1Zy%41szrADD+gMZ$$qOJaLTZfA(3$DAhY?zwm|iE085(%d+g#_UCVy z<7MPWbZovF$_UHYghrwpj!p_oAhXaU@U_+*n)mY>Md%{{E+f#?)NcJ2qf*J4E0Ms; zo%{B^(44t15jiUEAs+M&uJn7(>b{HZtRmTHAC$buRYLmB4gM{l z^TK(MISy+-#CviExyg}ZH?Q9D+y_57w+s6Mz)nxM+uf0=RqS ztCxY~mf*>>u`JNl>reN~ZQ}PemRCYkI{_V@hpYA1^$%y|UWuB1aNX~c%aUCTNEke` z`lZwuam~(_03_Ptj@R&OWbc4ocTDuOh00vrF$TpM;VoMGZ3pWIQS$zq7Y1AElIv~i zBp%#)B4@i%O6XyGH*0`9 zb8(8-qcam}!zSmYp*gkGy}dM8BmGsFpFgCi+p)s{HSt^{CadfR!LPP*>-#U}WNld< zbt{gL^p-DL`O7tf9rsI(y_@IED<8a`3K`M=nVzj(>sL(KC2?J}8RJ$G7fCn;#|Ncv zNuk?BWHLh9aByTY)PWs%NFN+Pr~Oq)o2uciIatWW=zw z_KhP7W8S`z=A9Cfh})EB?$FnRDU$8R@Qp^JHYIo8Fm+Uy(qNITZ-9CD5GmR!!pgyw zg}i1D#|YA;-)y=`@Z#&p@2n!)^I`Y90|{#M2?VIwtUeE*S$99&K4WrY8nV%%b&-Ha7`|F`$R>q>MmxV3F zw%E~eQeMNeE&%-9K?QUx&}K(ZwW82*!<4cFfuQGE8DvHPJ1-}=O4Bl49Q@D*d)qnc z9H`?XD0hbEE)br(gxEF?5%9-&DOZ>7Kj2T7*(XTM*ejG{e4mcji^RwB_Qbxa?mZ=v zF>Z%{ejqu$72Wyk*DJWt*pB*mG|q?BTiH%`clR_1@;3dsEJ&Lg&IZ&k4)xINj6cay z=rmaE;A_z#dq{cNYIeG`_igWB^R1K0>#HKy+w)`w#=r}r#dokI<3-u%803;|-)6W- zeq_kPt5Gpd2j>+74amEH*8yxdY|#;!%&oZhhiIH1C>j+e=;7^Ex0xUz)u z(Et+cyEtkaXy-$0M+! zDWQc~dZ2vW1(Eg>nmhEwKUYW*J8kKxx-kxl9qRRz&Gx;A5g`8*sOE^aLIUN!6qF?g zcl*y>jnU*df~AdFje$7iPm;1h=j2H!jN%04=Iio?idcFQmteuBe7`opE1 z5vJ!g4SZ4DcL;06!d!Z_r!;erpE*T~I*aqxDX@^SnCQ3E?N^_~ zao;X5_QWm)XJbVlq6B>Uc)?_;HC@Z3uy`w14VFU*ZEhhr=Cww5?q~gqd*d<4JL;miAx{sRi|fD>q4UXDf+qSeU^J6VRl^%)#=;k z_#Tw)-e+b>sQIB?Md;*TTWzPo@nw`@w(-&NV{G9h@#)_*sGq<-%Ee~6tMEyh;8^$Z zwJdlDnVFbGu~uJ4(PbP=A+f_AvYnud;IXa7{>{iqQiS2UWL5J+x0&JUn5Q$-eQdH@ z2HRL%)e&ICGO}wmjlW0yP7#F?!VOs7W@lHbscF{!g)Yf#Q<6lG znv;oDout50_TrJt_tDKvT)UEA0im@FBxdpMx~iq(&h8*hs_*X&^n2Rus#+vfv>ZF( z`QmGNsh#}f8I)$3xfq%SHD$u41|sN8Qy2GlWAwK>^+$+}Q;b09CqH!EV7mI&bo)b7 z103%QjGCI7MxgIqlDrGB8RLU$vCSwin;F*nuaydoDjnCz449rh0&}=SGSO2;iZ~q3ux#5ki z1Pq8zJOR9br>AZI3Ral(CU#Bm-7DyBrgquOu-Dn41)iQ_C9p-HGbsnYbU@zufg(Y- z9UDVqPI@{)P7Xqczrpmti+7v^v_OBo7W`U`JpGI8Cl@{#BEOy}vPSpS z+`!jl{5_YK1Z_0UejJ90P=efz#n%_Qa!mJTt-Yi+GRu>tf|3HZ^htoU~JsHFy>5`Z_?_t5g)D2&$8vn41Nf~Z6S>Dh~VVT@Ofg#zd3{D2CpXHb;d?22t4~vY8P!)CMBbXP_M9VPzXj70 z?`x6=<>XpbjBfQ>r^ThU^DWqrRkx7|b9n)L4^8_e=WhBZF3h z{ht(AR_OJ?gx%Y?oV;6o1Z;E;2w1hH7+3Vh+?bgW=j$D!J>>!+9|l{J7ZuE}K4|JV z;!7Zg(#*_!PrATbHdp}Tcz+c!6{pTfLDt60b?^HWPeIFMQ2KOKlkNwyG)~EWwujZy zF&>wJuNSTDKk# z527qWs!*^&=Wfp~&rZgm5+SdiIf=r|*_c5UUN32pp~Fk;jh>3YN#bK4rHO#`aWj&I>Lj9oVUjxPe2pZ1=@qTf(`yATAa|{C9YyTHM-{>0SP98zb%i(_6eC@V;V&8d+#ROqU6N9qO{gu9xn+j zK@o_D#1sNJdI29n$;Uk*>a~+xpoGcGL5YS)nJ-5#mOj6YqH+EdY1<#|h<&_7l(ub+ z@U8$CW~a$B)Q-v55kDrCE3RtNJVhtiYb}bsW!KJX$-}&Xg8t;2?%jgQGgvRz!v~bv zWa&F8?i%KZ6GO>l0~HysPA4=8Y{4laIN#d>{jXvpABNt|W)wiIl{oRODV}Yw$e4Q@ zNOll;x@gA$K!OwQvq02#5yDi3th@!k&-2zRZxY{}qogj(N@8puvo~X`n3}LdMlb0S z6AH1eQ&CzXF(g;$US_>*joG52v+EU&Fa`S#zhUq1)Jzy`z_?Pl$A#(F-Q$_^qMDsm zmv-lFh*Zs_b&S)y&)1j1-yX#oUJ44^K*Su2aicsXF&HB&uShCpnmwV_E!C!o!9&`8 zsZu~16DVouOpWBA@41)#3`yZsur>5J++p?Y+}5qcUPE1sApQ@xK_;WO=)C|mNTxGJqwv_o6fPbBQf5<#CX`>6R zV980_)~Jsr?V5}Nw9QmhOG+@Cu$ygO!G`V>U?eC^(Lj)u$yy?1EI=H1Bw}=oF3-fa ziaKAz6Q3tf9y|KufSTM3rr%|>f6$d{s%`)$BW7K}(ZeVW?=8%WnDgf=M{lRhSUqXn zGo`I}J*B8SnfQO)NdjYPzJh7KezM2(Fvh<5WW6Cz(HnQa6TMN^jA^dc7bZ1i8e( zJYYxnM{{{p(|HoQcADoahsN$lQz5+r%(d@8d2 z;+~9!{WlPB!ut`R!Ib=~Kl=zgM1!-R1^-(B_=mrL)AK)a-~YE1dg`wHmhV>t|1Ilr z_xRs-nv=#gEDCe1iRV)8OAF>#Z?w-IW*ia@M>(Q9HeZv+Wn=I$Wc{ff7s!YDe_g1; zvacy1M1XAV2UNR-Df`QeZ?hSnudqOQS8Ow+_!2QtkT~KrASC`;_4^7YmZ6v9n-tZl zd2xQh_Y(Q4gS{FfF3{!#JSPSg>jyv5`46r|LX zLmk6~T9j=BAOSFoB{uKyr-*2_)FHHTOGjCp_7TzbV`&4kYhh1J7T_o$jB++^V z$T=BI_r3-SBG!PHU1evVw|yzrUa53-xQ7A9L)TeNE&g-`N zK{V;vmUgHXu^RobG@`)NvOISWoE?GCte);ea!1=`rM#EfD}NosS-iJRsP3IrESX2{Z%sm zEx&EU^pScdO&r_-44DlS7iQp2aEg)f4lj2Jq6HBbSoD3VZ4$1Ye*<&#kx1azoc3R( zpnxsWlP9iy$l4xW%Nj2x%i_)aLKRHp4z&|`8)y# zO_{~TFMco$L~#6!p@@*0CI*^|t|KKU^~C*(7dzR=8JQ@~N%lf^gab$qXN8JemyT-3|vjck(sRXteJze4o!aACw1CoYy>a=b_@TwEwV zpa@kJ)_Z32)ck}|KeB^5D$&e2-RTg%Qz zp|U%uIzaYr?ys==dxh<@vUXBL@X&aCf8m4((d?o`LBY@OTWIV<&WRM~Td!nz`^7v$ zju375ZT)lx2iMKo98O#N56r@3_iW|F5pMvwRCK;AQ9 zY7u;^vi*yq!s(p0Tlp=Q9soi%ROZ00Kr8?ie77ldA@!`Nsb+A_W2~_H?wenFxYAm{ zko+|@@22CX2r;LIe!Y{9ne|JWu($&)TT@Z75PKMeRV-X?T^-RPoxRmPvOM9ds0bxds zlRm~K^Wyjk*c2g^Oz9u9O%cCCU3~-qS6SkJdAU9yJOc4Z-H*T}=F=$=!TXE%V|er2 zSNJKVy%xTJ`G5A;(8$|hB9U>%xGc1V@A3Tx4jFdL#r*sLTO80O$2H!Yl6{c!6r#04 z%K~Ck)vGR4Mab~*MsNHXS|0&zp)Uor&e(!WSs~otkse^D1G?xi#`r1{q9+@2d0eqN1eXw zn*v>O39iDzyo0mXO%g_s|aP!Nk{-nQx|?bGEseB_b=;g-hHH08=HemZU6V& zfdnqh*!AD^{hLt#39H~CjFh)R!O2%n5(3!h0xH?&#(Sb`(-%sJdZ{3^g73!0phYv* z^zWBs#Wj_{b4}6sMd^S~! zWZcjk<9M&H9M1(#B%zyy`VG6~&u#hKM+=40FfK6sfZ^oMzR!6v9zXl2Gt*~7Ut9pn z+8#|b$r%{KI!-=pPS1S5_Dgo&BAD>#ja!G;;jsYCnSmZ^#tQXNT*YD>s5f`Jw<)&o$hmV=KD+By5DTQ8%=Jga3e9_kT9BbvYUh=t-7+WKKUZwb# zxKJ*9Eo0F{IC(*)a`+-)=y`4I>A7s3P=xjBABIcD;r@dWLg9~@BB$Fux%{Ll+kTT@ zd1_`ZvO34lj-AT6Cm-_Lc*Wn*_5n9s&Hp=MYbv_yS7GxBGLz*pwCzX9ML$wCGD@#k zC2D6F?H#lAxqnGS?BFHAq1cPqu~NSVSuXt=N79#Y{o{z&IFjgpO(~e)2%Z1ev-{r% zV*ZmW4*v_2N>*?c|Cy<65vV@QB}^-R*p3LTh+le7DyPixPs#Pubj_uF!^~)YwSL*Q zM>Sfpz*oXPwxfkCUyFp{K_qM@vxUqG2uSNw(e<#M`FX`txZiG;>Zhp~(GK6Q zyGJNFOSYcO9INop=Y7yRT@+zdZ7Fm*} z8!}u6kNBYY@Ug+P)j}fkWmUaXhl+u+`M%r(F@8Uj+3yZa1wkkglJ!fC9Ei_0G*AZ- z$M<9;(bbuSNDcL@@qgJZZs$n51r>l+7t-?IBgCWi=!j7>$3(t_VZ;ee#~W`s@vn8d zN_g3BOVrp}+vYWzsx2_Dfu8Q&{7q*W872(wHGjB<5}HS9>(_Adg)i=!b&+-{E=$9- z#1=o{L6a$r?~a5y)8HITst&oxu43)VdaGzJEowN4`T3rj17Gn_dn;H8gV&CF)t(ET z+ly7$>0MjcR)WQu&d~JbftmG~rC9K{Xj4-n=C`6V>V&?Jz|;H%w_c~`y1eYM;;DX` zO8ukkSv`o-kj;|sM#WD;cb4xDZL@)&9dYcTA@}k9#eH9!KN_7TLzk^(%%%&cmTGOEj zLCknzsL4ys*&j9#pXLRrr^;%{#B6_fTZS?jYZxv|Q^&t8c(0AFNI95}j?*T1KD7Sj zJ(ga#e~6acYJKZ;-F9w*DN5iDMaO$A?irX)615t(B`teQZNBd@1@|>}=epW@y5Ev} zGR8O;o7n_XD71nLo?UQb; zLMu~RF%12Txl>2XDpOQeRLk2*k}lZl=<{~f2_ub!_Gq!f-MYnKA3vtr>#Z0vQtNPm zU+-iXg&8BpP?qpn2M?mSlg*+qZrhw-+A`Uz?Ntu?wQZ>Qb*HNuntc4?r5FyeVxLI4 zPeWMrB&2Lz>{TgUPoo~q=B`{vDT0v_?gI3Bz3N@^AR~+f-lZJCZVi8QDPkz4OXqO> z09M{r;r!U0L0_c5$uv~sy+kNvcPrQ^vYlM`Dr~tGPO4!d`I6Ti6WlF0eT5}SiS_Y) zLQ6hQf_4oh{1!U>y6BP?9FFuH?W8aBnf}+jQW?CXY)}Iec2WdGv8Hc=^h8fKkmn#p z?(R_x5oi;rj#zm(!r)PEs;-%$nh~0K{*kfn3|2i(AY!3QTG|NnXv`(2gf`fnz0PD) zw>t6g%2U(u46R=?Q~6Z_m$$Zt6=WEBiyLmOc-IZf%XsTALi`(R%Vc@DLEX}ywYFYc zLEJK=GVM+t)|B;(O6kby_+p(}aI%UYiMi@p5yM?xp!Ip>#)DEZ#)n?1#DBteG(FE= zCT_x5^+EmaVEuw#-b2 zuz5W97s6fUHEyrLE$(M)7=L|N#cvtV@BOH}f7DQhQ~5Q>e=EaOU_Hr;JP_;|+KVi} z_q@B%bW9;>cLlwL;Fm&h6L+hpkGH2;7KG7p@o+H_M#%CQtxP4nE-)Pt{YDby(*?;) ztB(wRmz8nj>jlus7iDjv!7vrCu~STgcN&%-E~4ecPr$@)QbWtmb#%*H!9T3}ONxS& zn!Mjv^$&D2ze9I_Vk>ZbuiATn8+ZIEU0L|ymU-3(a>-Clv6trxjzW)8@K;;8e?7!} zkh&Y`?jdi{D@dS%1^Izr$KY(wi2PQCt8IJWGpi@|Hw`834`Q;cCdJMt8^1QC>!&Q{ zm{7&@G3Z`C3@?Ky7(W_NO=1zbxoNYa7^UN`RfO(_{4D*@63=z3H8KJ%Kks#$9N6jl zX0|!996Y-xg3e0Rxg=X1s0*Hfa!Nl850$inbX6)s%E^(A{^Ve--o%37qsfZW6i@(Le$z)TKzMA5OY33ed2^OugCYI+(f4liHuW2lE6b}@y8Bhc`pQb9 zsd7+LQ{qr4D+;Psf;4JL9?jCSci)NMoR?n#dON~%t16?*a1-En+lYSoqsFd(@COwGelM9gf_--sSvN1RO?9d@ z<$jE9LtKBER9;Y<6m(0ro1BaCLS`J^TuA%b8*i5_Sf}9}WI3mQYDx~@5b1y?<;wHw z*Gclh27^-7cZ;e{(&Y0mx%LH-NlTKN{tCM{VX8xwm5?83uImlk)66t&e5DEw_HOl7 zOml~my*Y6X5F$$vNS5=;7CX!tV0~b~HF;4^YD3_&;p)VsGpiXxN1bKuN>bC*oBxUt z#i@){t!{f6UidjDq}%vKhI!Eej-l?50G%yr^}~TEX@of=RlkY%Gqp9NjML*xL-b*a zh#is(;x2>x)}w-YCfr2Aw@7S=@D$;7MbD5I3%oeE)H%izpn!w zd4Dl_I8`Qrb-2m z#13Kg8 zFU#ja_U$YCKu&v`Z)J9;CS{Co%rv|d)~doZ)r`S4AS1`+^FWM?)1*Y36b-Q+|WH@!QQC) zs-YskuS7?M4H0a}QExy=+Z5>uBVUkdDU3BypKWvyrb;#nC9ZoWK)J|tq$}NFXgaMv zl_~4XHg6?J#?Sx=BrdOSOKTMtwokV|XN{iAMy;uy_s=`+j$KJSLss~+s^H(NiK~#83X)OD-EnxnzMQP_@rwh z*Ru-*|7$vxm(hNRweGH##eE0`+g*D4Z|v&_M~mXuK}@wuWzxv6`ck@KMODQnxtOSB zd}Q27AoBe2de<%qqG*9!AFh;+=7=TQ(zqL~RLCf-Wq2+v_9j`d! zS1$HCINCdAa(qozt%rDD?;Q`H*k$oT>{sxx2a~x$q$3WONFv{Id)ga!_}^k4m0LZ*gz+e6_DUavZ#CW;Qyth@6sxC=@!~`qw&FmnS|-A zvVXN%xa~&q=$fn5&j&HXnr3D?Q;#lCTBRpJL|vVTu_q2TPzD5`a19^$@p3`87FsRKU!@mvw>{3=;hYCxK(DH=g_T>{o7>yx-q&kl z>4e5GaK#{R)u)f(*fZ)?Y_K<4sYUiR|&hlCX*a>i}FfK|HMjEJ}*h!%SE zKLx6Oq&mK@yvSfttOw6hN1UO(0^de{0{5pP*L#~Qr@v1U=O$syuW^th5!)O)nLV(7 zu_|Zp&rAJ5ir7R^C^JD0bBL;@%M&4ry(tf);0raJ|8Y9tSQu57rq)!Auk$fx_9vqQ zbLOg<^58AJ=?>**4(Srqus(FBs50}DidLVB1-%iUf-#c`eMQt1wj`%S8A3R-7|&NC zB(D)_>Zz)?Pm-HC`2rL5rdn>7W#^RGnLn?q=U^Fo+}u!nraJB$yI-$&6qz{UG;fX3 z7l*QrxeN9ve|%#?396)n-%7UY7v+URZBX*W2YM#C1}?JDT2icw4kjghicpx*-V~Tb z9H_5?5;&b-0k0tOeareK9%C%AjJfsg%^~vB4rOH*{k4kVH&kd$ErCg9m{fI63D|^i zw>3*eHsNa-Z_7V7%pT_73NFvg-36cF?S7I4MH^_Sr*fae@?r#D(|a$&8xVR6uMJFRn{N)EHh;IrBUusRxzbgon<^ENXn@HS6JJtWEqel<68jdt&yw727ggCYl$Dar zaMdXr&uP2IRa%-RsPLMJg&BL}fZD!I!~IPx3Z;EXsELTEq(B=XHfkzIr+PJC74W_Kx0pMgg(%LtN8TH1fFFjdV^$TLbsc%2qXuuwR2&wz zjr@=FHl1%$9K~DQ)OUH}K4`-L^rz6WgzjbPb|Q zSs>VqB17Ni$xdG3(>Fb};Z&vEGK`FuKTKFv?sW5fsoQx=p2^V!@nNAJ zX&HQHtLJ6YEjJ4$qZ*UWykrt$5Jk=$h_bG;ut?>9-zCmUG4RUxcCD&tYaFTI-z7Hu z_wMHJ-OT?Wx+s5_oWS*-b;O0OnsZGm$nQhVzSCreAbLso2M82JUaU&pMb)rYY(3oL--;v%Wn@*{Hd+49~F^mPEz}FaO>Q!;DaiBr1|ch!pfKNa-0Hd)&Nax7js!_JUJC-r@VdbO2 z0AamlY)+@TymY^(@_kymtS`T~^f-%wYbZ^UT6=e2Fnc5@eXH<9?IV|xw`M0b6F>K< zxeBG|$IG<}e8{USlXsbv6cD6~KB+HWr9TUeWq_{66D<2-&?sqmyvd4|U>&>3ZQU^P zb{m?^GnTX=!6Yv=BEL57d?`GavyFbM86ev-MO%(Zo`r@QpQA9-huEubO_wRm?B5(W zJXwF!#J&#>Yk!A738TG}EO%n68D2V!$#)TTeyZ^U-NoB#K}~Nq8$~E4rz5KLU`nq@ z2{7#pKU%>mIA%!5JIV9|ivXWZhr;=HtvrSqaO~UocZ2c!r&b(FD<44|vB-YgfgJTz z_3R2;-n*B7Y%JiCcWONL(d@T*BY;QZK1{d(C4rx-08qVuleGLKYx&#Dbnh29GC&Lb zg4KNjAYH%C8T=ZK^bgHeo+ELppW#-AhI!bw@76D?iNEwk_=kpcBu;Til_#2Y*o@}# z|BiwFp_TR@84@h(h`*?DYDQ=_%-mwTAjJx?VB0~|uhcA-@0KHr#spp|0n`*nVy2&d z$~ul>QU3x#ReH_50=Te5d|2y^*v3lsKCulLB1VblwOWhOZf)HaB5tlafX&q4`OGAf z4)5~W9oe)7nCPhBq(itLWmzMyg0kfNPNoTHke3|i%fZXi`v{N{{N&9maTq3dej#R; z8_9C}jtD#GzTPLYBZ2!$8j*i;5NQ=FZfv~O#f9lQod%Qq+|4(U6d;f*i094g-%t-A z75~}C`9C}@1<+ag@DP74%sAF?|3m;K_M-n=eJ3TpRGS$@c$$0bsMdWg!-`^5_2m?U z-tITD;`$PbR9U1)xB=>@Bx%;9rY^W}~H}=UnBxDd$DC|GFdk?s~wI z2_bg@SeqbA1XMu}EmVlw(`SdEI^l~?%PnS>xQn*+%oD$7VL|K4A-!;&<|+E?Rk+27 zb2)devC$1nvbyau1e&|c3s>lwM|_7s>F@K6j;mmF7&}<1Bs*=K6#L$kyJWZHJ}ISHFU^)0dy3H_-EcgXI=aa^Bq!=iz%2r#cq6l z)O8O;fPyC6mVIx8hV~-eMl{KQLKgi|I2Y`6haP?_W+BaFI5c}|yhpKFyd}{cQ54fa zvxT!J-;?iz%1iq(eWKBcy^JymaQvI6v}^))9e1n-kRZ?RL^_8&TtBJ+Gx11n^v{hl zuC&;$-ErBj9YM@}(J9(XMC|(Ei#q{dCvn9kZqH`WPX>d(X;1#UX47lD+5C=6$QGIi z0i&P6s23w}3?Gd~^6D{|2g9*6<~n(BPDX$R&{@J2U)c zZ*+1qfn|VLXQn&p%}N=cT}@{9hR|3Z+Ohj(D2M^XP4hYTf0(Zx=3$=!`l9m(pin@V zK~*@?vm0DnQZux802;86u;~m`=qVL_@jD*6o;4wG@dqGVHQ-lTw=Kr2`f72!5@z-=Ln_}(vjM7pVm;I>N+3#Et%dObT{()@Vt^1+}RFNTP)>p>(0$}HD=e@nc zzhPDTzFg|604d3h^K?0B(OaOMn?OPH2!?&gB0TVP72f56C)RzB|MB8#*HqjYD%lU8 z&QlA&c)T_AFIX%s_yB`rT-*VuBX(PO6fsWJ8IwBzO)HuAv?>i<)xb**fh}gmDL)6^ z?Az}GQX6TX^d(h`FBqp5$-%`S#-r9Vf89U*K5>|UKQcM`Bl|9{)6^#31cc*9E2nR0 zv|LE}Gc1!c<@75bnZ_x&o>4z4YErL$EdA9>3(3?~o$8?KlH%jaaGJQbR_-~4Znw)k z&Av&=iTCglfNNLka%JX?0WXdV9e(8Lvya$=ljDQWPiXQ=!9i{&!-_7kYX!(3hEZKV ze3;@GHg?*4W^1LG*WIw5mU{^&J(igV_h~Zm&I`yRTp{YH)!s{3>ClTAV|@auv3$?- zLE}Mun>>#QnPUHx1Q~qwYVU>Rg2(as;}c@ui5mULl6PmzMY@)*w?yA1BC0kFp`(%qgPW@hmjVSC%s%s)3$7Nbf5nLD=6Owt7R zYhY#Dm%zJ(Iu~r60V`xb({p+q)qc#XJIaGpW$N;H5W1*+PNo*OM-e|;$VM<3dZlQS zB%YldA%;8^aWCBMvQc6Q3&t;Xqz|m%`x?H~Y%%d_%*d7BQA3rJez&nL+3An4`_1la2;cK>y={+{(R4=#!~EF1UOWR zu`ZCMPq-nIQKQe?fj)O~^=#FOQ|^so=P!nIr0d!sc8ESsb=N-SHG+DV1FAR`s0?l0N{k ztQwjW*7dNOOm%)_Q&fGm_f)7ch;B;16KXnFpd!6K7=-hR!f|_L(CXE-g z$udYt(RpTwD@DGBmRS0AoI%dnQ`2zt<_d$-tams;K4B|sYaX@Cr$WM#VDiW`6nulS$lC%pc(1yH|%+VCA%Xmy2th&eN_yH zkmhM}L2I(;SQS%5GpamcpaB9q+w4B|L&*vC)#_XLAE-^EgWOtF?MNA!cY(f0KxdYW z(|xZ7on*$jAm^+G={Nh;7bR<9;g%fQ6USB0$cSHCnNlX`=dq6o_`m`bRM|yqhPWt~ zQ~Sz${hem176-sr^8jDW{u!J7&fr^@nh;G7(Z_=}1+6g|Nw3}#%om9*8B9ai464tY zcRk;?bY6`YQ#sBL3JF$d=f2-dd1^LBx-ml#ulka2S3vP&L;-e^bzTkLI}Vk2c2-64ZR9{?8B`tML$h0H&S{>I+9^AOAYD8Xd6(r>`NcMzq22;q0Xb^Z#$h8L=c3nIGsULteHnI;u83}4%<(!CV zo?lmQ`d=XU&A?)=n%AUgPI_d+6K1)DHx_txuib2sMAL`teO{`8<>SJ`sx)UVJ}R+u zE_n(TC%b|B^4J2EYhy#5_PI{{>thH{^@S>qnT{TY%;N#?)h&pcCKZFH){WAO+RN-5 zAB17%>05@7t!==vNVq_CW2pc4PU|xm?t3nQcM$8d1T9O zzKL$W_%pm)UCg88v6L^;g@NF`sxv4d6JWk4;T6@aKA$YITmB+Ky7Yo+0tG}cF+mID zyVfW{@@Yz#0Daj}fSlaDVY7}+{h~hekUE?1tbmAMT3TAheGEuO2FXhAH<#~is5g1t z87xzCtt|b8G-FA8(NouPca=JUB%b#`E1MgL1Eh;^R)mQ5+!!GHUXCOH}C{A z(K-ZUiJj%pD>Ll|0mbDLYn65{9?%N<2UCkx2*f?FG}z90zI$bOQ%h5$cBq8vZh2WU zvmeynr>laBq(hR58jPiLOEZXq%li8B%@9cf#bshxsmQD6MHf$N#6KEeke`T_qLRmK zXEDko&km@LA^_<>8GKE9$Y4guL#71F((r}X@&l(Tr6@YhR(^T75^1Xz1tqMM`mo8l z)&nVYuP^Jc)rlvxFJz@9I@ttyslW_wabB6)ge3oaCFR4r%2p1Iq+eS44ax;-flH!O zD-(}wMRwqO5qC|E>hITZ(glvvLbwXYbUN1G38ZloJr{%ca^ZeD1fN2J_t(aT^|6n- zfQM&QF&m?phwqz_xNu>*S0ob*ZmD%cTdR!Bgb=f`kNz^VT`=vU8b1-B#Rm7dL`qQS z0*{Y6R5)$Md$YY@Lksuykr$6{s~$dJJ7e8Q8UnlbT6LACO~pd;Y4_qONL?M7Fp@Ji z++QWf;p0xu!!26&)ZGYYM-;p9jPI4usr-jh2_VYcxeFxWxb^J?@U4Ix<4+kv1G`F2 ztac|&LR%B1YKE`bh&yq_}W0rr4N8QZr zR&fNTFwnf=0Mxk6E6y1{?hkour1*_Orf2{;YH1+IvoMit394Hj90=qgcyBbAlMj?! z{2HwJ%tFquuIc%tXn8$9Z}i2RlsvBql^c!IbpB?Z0}yZ}MUGdFiKc6dD!*brG-4jp zMtLdJ^SHlQucn%BZs|+E{D-7k*HIk(2A8yD%W0(3K&Yp2CYHwy0e)9yZ@tJF*ZpwS6XOceC6crT`eHA0*9L#_ zY*V&HN)t_>O(jWFmr8Fm_;OFy3~E&^JR&12lIbEub|Wb4nFvvh8I(g8Aa@cJ?hQJ7 z1&nq^f)e;7tLnxh<6Gox&|Sha%?q`SS|=O7`ovv-YtNSHTw4CoTUrogZj}!!5n)bJ zOw{js-?8_C6KXrkZy^LBL0gkbDS&V)^>20-ALPI(O>o0`SyAOegI+*aK>anLBxff5 zJDQYM2~@}U99Fz)8O$956>tR=baCPZ@!LHmqD2f-jw)<+WR%A|5|lYDI0)_=O=^H+ zfK>wXe%CM(MP0Qh;OX{df(^7#!A?mw6(k?yQg6<_d~tzwEb@iArB)O6I!L5_9z!x*VZlUjF>_&t5;7av zI2|19t%pxu&l3wfbNU>&dpLhc#>8SJ`g$d+YgB7QL9j$xZ{BT**dKERp+uFgzz5o`uNE3po3KI>AHVjY_{4%6Dk&pl*P4ZL&F+Vc_|Sq)gyflU&p z2_dFs<$9D)l35LEOeKr>Qzn{(4#`HLri+$fFP1!t)8arYttg)+G1$&#?zUTO%Zwa=K5zOv0PC0m5zVMY(Dk8wnPkTVsdoe$^O6Inhu&dEMrSNzyfYFUlyTHgUO5n5O#j5=Yyy z45gy|enJw4OBrQ4E>=5s>Q!k#0{QywIIhym0s?W2$GABQ3+y<3g1idp9a5>#!DedE z;D#;pbz@-FH8}RpTY*1FWxF5;id$IBnaiYEjcX?zTjp~lUO^wnE;gO;4m$6urXYZS zh0hF^0AKT0-c~rJ^Lf%?{N}T6OF1=OY`rT3G(O1n(kC*WioGoS0Z6xSfAXW`Ykx4V z@R8D4!aBX4Ch?m0`k2;n;xVp45@Fq5L4KN7c0!%7Ge{yqCehQq#=KY=# z_HQqAlsmg6W6IakmQXe;yqtKU@TfJ^8qK6Vze78zMRT5-D9J+bn@=~R({s4s+_p+V zEH(VblcuY~YPScr%+wle`uhEx#4|hD$iq0VtJ1ZX2}EO-F4Rzj*KOZ#D&1!a2H12g0lyqaBScepIr?rj%W_&o%Vf@)l+CSimk_FPcI)aP!oYjo5}a z_8FWX3&CnRtNS8V0~u>Nkw)08fm87Udi*3E(naERb?m$)BxC=Hl>FfW$RBye{~0Xu zT}{KrA@zq$B$q%g^xL#0`tkbo(!EhBTbQe=TVj3NHc&$TMK__JcNY5j=ltofp!x;pKGl)zLxEz6SuM5)79N>nfLquvF5*r#8^k#Q5+KTe&-JjIHUcnN7BFe zGtjH^7Y3xj(H{0K`30jUnpp)b4nOP6X{d4tT>=F9|Kd)|C&_ws`~KVR<`37mJW{KZ zk-$W!NPn|zux+Spi>fG15Ph2xvS-y$|G;QkeqFtV@|GD7pt;y9ZU*|ekoE$*dLF<| z-s!&W9yXvPM|%}$#@so*8)ZiR@1TF5f`9)D{yh=?Kdc4uGe{*TzJ@XF6xUme?~B7G f$D}lpuhFQtQF8Dm75;uAY5Pj=~+s-6tVP#TUMl38+L=gfOYT+L^n{Cnvf+wW#s%rxNnLu)|%~k%6 zl$I$|i0j+gyL{lskhe2$=FRS8xdnhO;amX29sAg;>k&0dYOR)T)S?pxUE+dJsM75D z-7YQoTL`ZNskJunM9$J{ZiL4pI|=o`jj8rCvcaPY5Pj=~+s-6tVP#TUMl38+L=gfOYT+L^n{Cnvf+wW#s%rxNnLu)|%~k%6 zl$I$|i0j+gyL{lskhe2$=FRS8xdnhO;amX29sAg;>k&0dYOR)T)S?pxUE+dJsM75D z-7YQoTL`ZNskJunM9$J{ZiL4pI|=o`jj8rCvcaPY5Pj=~+s-6tVP#TUMl38+L=gfOYT+L^n{Cnvf+wW#s%rxNnLu)|%~k%6 zl$I$|i0j+gyL{lskhe2$=FRS8xdnhO;amX29sAg;>k&0dYOR)T)S?pxUE+dJsM75D z-7YQoTL`ZNskJunM9$J{ZiL4pI|=o`jj8rCvcaPY5Pj=~+s-6tVP#TUMl38+L=gfOYT+L^n{Cnvf+wW#s%rxNnLu)|%~k%6 zl$I$|i0j+gyL{lskhe2$=FRS8xdnhO;amX29sAg;>k&0dYOR)T)S?pxUE+dJsM75D z-7YQoTL`ZNskJunM9$J{ZiL4pI|=o`jj8rCvcaPH zw}#sXE`7EbIFDpIb#6}v9yjfDlBP%o19|49(ZGhr6B!J(*nuV@^2z&n=roW6tsUr%_nXEYDeJ+zJ}zBDJ*ENaTCN`(QK!U-XoBWO_1g$cV)PRiHYe3snuv z@IsfH(B%fcE@K@2G61`V`!)PwP8=He_cHA2`NgGHdad1ksNI)9Z(cs8^oR(FbD|@D p5IH zw}#sXE`7EbIFDpIb#6}v9yjfDlBP%o19|49(ZGhr6B!J(*nuV@^2z&n=roW6tsUr%_nXEYDeJ+zJ}zBDJ*ENaTCN`(QK!U-XoBWO_1g$cV)PRiHYe3snuv z@IsfH(B%fcE@K@2G61`V`!)PwP8=He_cHA2`NgGHdad1ksNI)9Z(cs8^oR(FbD|@D p5I 0 do + begin + (AIterator as IJclWideStrTreeIterator).AddChild(GenerateItem); + Dec(Count); + end; + end; + + procedure GenerateRandom(Count: Integer); + begin + while Count > 0 do + begin + FTree.Add(GenerateItem); + Dec(Count); + end; + end; +var + Index1, Index2: Integer; + Iterator0, Iterator1, Iterator2: IJclWideStrTreeIterator; +begin + CurrentItem := 0; + FTree.Clear; + + if ActionGeneralPurposeTree.Checked then + begin + // general purpose tree + GenerateRandom(5); + Iterator0 := FTree.Root; + for Index1 := 0 to Iterator0.ChildrenCount - 1 do + begin + Iterator1 := (Iterator0 as IJclIntfCloneable).IntfClone as IJclWideStrTreeIterator; + Iterator1.GetChild(Index1); + GenerateRandomChild(Iterator1, 5); + for Index2 := 0 to Iterator1.ChildrenCount - 1 do + begin + Iterator2 := (Iterator1 as IJclIntfCloneable).IntfClone as IJclWideStrTreeIterator; + Iterator2.GetChild(Index2); + GenerateRandomChild(Iterator2, 5); + end; + end; + end + else + begin + // binary tree + GenerateRandom(100); + end; + PrintTree; +end; + +procedure TForm1.ActionIgnoreDuplicatesUpdate(Sender: TObject); +begin + (Sender as TAction).Enabled := not CheckBoxAllowDuplicates.Checked; +end; + +procedure TForm1.ActionPackExecute(Sender: TObject); +begin + (FTree as IJclPackable).Pack; + PrintTree; +end; + +procedure TForm1.ActionRemoveSelectedExecute(Sender: TObject); +begin + GetSelectedIterator.Remove; + PrintTree; +end; + +procedure TForm1.ActionRemoveSelectedUpdate(Sender: TObject); +begin + (Sender as TAction).Enabled := TreeViewResults.Selected <> nil; +end; + +procedure TForm1.ActionRemoveSingleExecute(Sender: TObject); +begin + FTree.RemoveSingleElement := (Sender as TAction).Checked; +end; + +procedure TForm1.ActionTestTreeExecute(Sender: TObject); + procedure CheckNode(const AIterator: IJclWideStrTreeIterator); + var + Index: Integer; + ChildIterator, ParentIterator: IJclWideStrTreeIterator; + begin + for Index := 0 to AIterator.ChildrenCount - 1 do + begin + ChildIterator := (AIterator as IJclIntfCloneable).IntfClone as IJclWideStrTreeIterator; + ChildIterator.GetChild(Index); + + try + ParentIterator := (ChildIterator as IJclIntfCloneable).IntfClone as IJclWideStrTreeIterator; + ParentIterator.Parent; + + if not AIterator.IteratorEquals(ParentIterator) then + ShowMessage('difference at parent of node ' + string(ChildIterator.GetString)); + except + ShowMessage('error at parent of node ' + string(ChildIterator.GetString)); + end; + + CheckNode(ChildIterator); + end; + end; +var + ARootIterator: IJclWideStrTreeIterator; +begin + ARootIterator := FTree.Root; + ARootIterator.Next; // unlock + CheckNode(ARootIterator); + ShowMessage('end of test'); +end; + +procedure TForm1.ActionAddNewChildExecute(Sender: TObject); +begin + if GetSelectedIterator.AddChild(EditNewItem.Text) then + ShowMessage('Success') + else + ShowMessage('Duplicate'); + PrintTree; +end; + +procedure TForm1.ActionAddNewChildUpdate(Sender: TObject); +begin + (Sender as TAction).Enabled := ActionGeneralPurposeTree.Checked and (TreeViewResults.Selected <> nil); +end; + +procedure TForm1.ActionAddNewExecute(Sender: TObject); +begin + if FTree.Add(EditNewItem.Text) then + ShowMessage('Success') + else + ShowMessage('Duplicate'); + PrintTree; +end; + +procedure TForm1.ActionAllowDefaultExecute(Sender: TObject); +begin + FTree.AllowDefaultElements := (Sender as TAction).Checked; +end; + +procedure TForm1.ActionDuplicatesExecute(Sender: TObject); +begin + if ActionAllowDuplicates.Checked then + FTree.Duplicates := dupAccept + else + if ActionIgnoreDuplicates.Checked then + FTree.Duplicates := dupIgnore + else + FTree.Duplicates := dupError; +end; + +procedure TForm1.ActionAlwaysEnabled(Sender: TObject); +begin + (Sender as TAction).Enabled := True; +end; + +procedure TForm1.FormCreate(Sender: TObject); +begin + Randomize; + ActionGeneralPurposeTreeExecute(ActionGeneralPurposeTree); +end; + +function TForm1.GetSelectedIterator: IJclWideStrTreeIterator; +var + Indexes: array of Integer; + I: Integer; + ANode: TTreeNode; +begin + Result := nil; + ANode := TreeViewResults.Selected; + if ANode <> nil then + begin + while ANode.Parent <> nil do + begin + SetLength(Indexes, Length(Indexes) + 1); + Indexes[High(Indexes)] := ANode.Index; + ANode := ANode.Parent; + end; + Result := FTree.Root; + for I := High(Indexes) downto Low(Indexes) do + Result.GetChild(Indexes[I]); + Result.Next; + end; +end; + +procedure TForm1.PrintTree; + procedure ProcessNode(const AIterator: IJclWideStrTreeIterator; ANode: TTreeNode); + var + Index: Integer; + ChildIterator: IJclWideStrTreeIterator; + ChildNode: TTreeNode; + begin + ANode.Text := string(AIterator.GetString); + for Index := 0 to AIterator.ChildrenCount - 1 do + begin + ChildIterator := (AIterator as IJclIntfCloneable).IntfClone as IJclWideStrTreeIterator; + ChildIterator.GetChild(Index); + ChildNode := TreeViewResults.Items.AddChild(ANode, ''); + ProcessNode(ChildIterator, ChildNode); + end; + end; +var + ARootIterator: IJclWideStrTreeIterator; + ARootNode: TTreeNode; +begin + TreeViewResults.Items.Clear; + if FTree.Size > 0 then + begin + ARootIterator := FTree.Root; + ARootIterator.Next; // unlock + ARootNode := TreeViewResults.Items.Add(nil, ''); + ProcessNode(ARootIterator, ARootNode); + ARootNode.Expand(True); + ARootNode.MakeVisible; + end; +end; + +end. diff --git a/official/2.1.1/examples/common/expreval/ExprEvalExample.dof b/official/2.1.1/examples/common/expreval/ExprEvalExample.dof new file mode 100644 index 0000000..4a388e0 --- /dev/null +++ b/official/2.1.1/examples/common/expreval/ExprEvalExample.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\bin + diff --git a/official/2.1.1/examples/common/expreval/ExprEvalExample.dpr b/official/2.1.1/examples/common/expreval/ExprEvalExample.dpr new file mode 100644 index 0000000..b5d8c0a --- /dev/null +++ b/official/2.1.1/examples/common/expreval/ExprEvalExample.dpr @@ -0,0 +1,19 @@ +program ExprEvalExample; + +{$I jcl.inc} + +uses + Forms, + ExprEvalExampleMain in 'ExprEvalExampleMain.pas' {Form1}, + JclExprEval in '..\..\..\source\common\JclExprEval.pas', + JclStrHashMap in '..\..\..\source\common\JclStrHashMap.pas', + ExprEvalExampleLogic in 'ExprEvalExampleLogic.pas'; + +{$R *.RES} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. diff --git a/official/2.1.1/examples/common/expreval/ExprEvalExample.res b/official/2.1.1/examples/common/expreval/ExprEvalExample.res new file mode 100644 index 0000000000000000000000000000000000000000..ff24fa70c6a61f1121dd5a43dd91ace8c388f935 GIT binary patch literal 876 zcmd^8F%H5o47>nR7X%&H>Bz_r05LHDU&_DIp?mWPMn*;kq;R%dg$f2H7OY;JyR+3O ztpT7SQZjHmi0i2L$EwrQkA)>9T!WhzT)=oT+ik~|6g)` zBHp6jpWOz9kh$H7a;eE7f5rpY+=1l{mW1 literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/common/expreval/ExprEvalExampleLogic.pas b/official/2.1.1/examples/common/expreval/ExprEvalExampleLogic.pas new file mode 100644 index 0000000..7c258ec --- /dev/null +++ b/official/2.1.1/examples/common/expreval/ExprEvalExampleLogic.pas @@ -0,0 +1,105 @@ +unit ExprEvalExampleLogic; + +interface + +uses + SysUtils, Classes, JclExprEval; + +procedure Init(Evaluator: TEasyEvaluator; FuncList: TStrings); +function ResultAsText(Evaluator: TEvaluator; const Input: string): string; + +implementation + +uses + JclMath; + +procedure Init(Evaluator: TEasyEvaluator; FuncList: TStrings); +begin + with Evaluator do + begin + // Constants + AddConst('Pi', Pi); + + // Functions + AddFunc('LogBase10', LogBase10); + AddFunc('LogBase2', LogBase2); + AddFunc('LogBaseN', LogBaseN); + AddFunc('ArcCos', ArcCos); + AddFunc('ArcCot', ArcCot); + AddFunc('ArcCsc', ArcCsc); + AddFunc('ArcSec', ArcSec); + AddFunc('ArcSin', ArcSin); + AddFunc('ArcTan', ArcTan); + AddFunc('ArcTan2', ArcTan2); + AddFunc('Cos', Cos); + AddFunc('Cot', Cot); + AddFunc('Coversine', Coversine); + AddFunc('Csc', Csc); + AddFunc('Exsecans', Exsecans); + AddFunc('Haversine', Haversine); + AddFunc('Sec', Sec); + AddFunc('Sin', Sin); + AddFunc('Tan', Tan); + AddFunc('Versine', Versine); + AddFunc('ArcCosH', ArcCosH); + AddFunc('ArcCotH', ArcCotH); + AddFunc('ArcCscH', ArcCscH); + AddFunc('ArcSecH', ArcSecH); + AddFunc('ArcSinH', ArcSinH); + AddFunc('ArcTanH', ArcTanH); + AddFunc('CosH', CosH); + AddFunc('CotH', CotH); + AddFunc('CscH', CscH); + AddFunc('SecH', SecH); + AddFunc('SinH', SinH); + AddFunc('TanH', TanH); + end; + with FuncList do + begin + Add('LogBase10'); + Add('LogBase2'); + Add('LogBaseN'); + Add('ArcCos'); + Add('ArcCot'); + Add('ArcCsc'); + Add('ArcSec'); + Add('ArcSin'); + Add('ArcTan'); + Add('ArcTan2'); + Add('Cos'); + Add('Cot'); + Add('Coversine'); + Add('Csc'); + Add('Exsecans'); + Add('Haversine'); + Add('Sec'); + Add('Sin'); + Add('Tan'); + Add('Versine'); + Add('ArcCosH'); + Add('ArcCotH'); + Add('ArcCscH'); + Add('ArcSecH'); + Add('ArcSinH'); + Add('ArcTanH'); + Add('CosH'); + Add('CotH'); + Add('CscH'); + Add('SecH'); + Add('SinH'); + Add('TanH'); + end; +end; + +function ResultAsText(Evaluator: TEvaluator; const Input: string): string; +begin + try + Result := FloatToStr(Evaluator.Evaluate(Input)); + except + on E: Exception do + Result := E.Message; + end; +end; + + +end. diff --git a/official/2.1.1/examples/common/expreval/ExprEvalExampleMain.dfm b/official/2.1.1/examples/common/expreval/ExprEvalExampleMain.dfm new file mode 100644 index 0000000..7b67763 --- /dev/null +++ b/official/2.1.1/examples/common/expreval/ExprEvalExampleMain.dfm @@ -0,0 +1,71 @@ +object Form1: TForm1 + Left = 222 + Top = 107 + ClientWidth = 479 + ClientHeight = 321 + Caption = 'JclExprEval Example' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 12 + Top = 12 + Width = 54 + Height = 13 + Caption = 'E&xpression:' + FocusControl = ExpressionInput + end + object Label2: TLabel + Left = 12 + Top = 40 + Width = 49 + Height = 13 + Caption = 'Functions:' + end + object ExpressionInput: TEdit + Left = 80 + Top = 8 + Width = 305 + Height = 21 + Anchors = [akLeft, akTop, akRight] + TabOrder = 0 + end + object Memo1: TMemo + Left = 0 + Top = 60 + Width = 479 + Height = 270 + Anchors = [akLeft, akTop, akRight, akBottom] + TabOrder = 1 + end + object EnterButton: TButton + Left = 396 + Top = 8 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Caption = 'Evaluate' + Default = True + TabOrder = 2 + OnClick = EnterButtonClick + end + object FuncList: TComboBox + Left = 80 + Top = 36 + Width = 145 + Height = 21 + Style = csDropDownList + ItemHeight = 13 + Sorted = True + TabOrder = 3 + OnClick = FuncListClick + end +end diff --git a/official/2.1.1/examples/common/expreval/ExprEvalExampleMain.pas b/official/2.1.1/examples/common/expreval/ExprEvalExampleMain.pas new file mode 100644 index 0000000..ec090c4 --- /dev/null +++ b/official/2.1.1/examples/common/expreval/ExprEvalExampleMain.pas @@ -0,0 +1,67 @@ +unit ExprEvalExampleMain; + +interface + +uses + Windows, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, + JclExprEval; + +type + TForm1 = class(TForm) + ExpressionInput: TEdit; + Memo1: TMemo; + Label1: TLabel; + EnterButton: TButton; + FuncList: TComboBox; + Label2: TLabel; + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure EnterButtonClick(Sender: TObject); + procedure FuncListClick(Sender: TObject); + private + { Private declarations } + FEvaluator: TEasyEvaluator; + FX: Extended; + FY: Extended; + FZ: Extended; + public + { Public declarations } + end; + +var + Form1: TForm1; + +implementation + +{$R *.DFM} + +uses + ExprEvalExampleLogic; + +procedure TForm1.FormCreate(Sender: TObject); +begin + FEvaluator := TEvaluator.Create; + FEvaluator.AddVar('X', FX); + FEvaluator.AddVar('Y', FY); + FEvaluator.AddVar('Z', FZ); + Init(FEvaluator, FuncList.Items); +end; + +procedure TForm1.FormDestroy(Sender: TObject); +begin + FEvaluator.Free; +end; + +procedure TForm1.EnterButtonClick(Sender: TObject); +begin + Memo1.Lines.Add(ResultAsText(FEvaluator as TEvaluator, ExpressionInput.Text)); +end; + +procedure TForm1.FuncListClick(Sender: TObject); +begin + ExpressionInput.Text := ExpressionInput.Text + FuncList.Text; + ActiveControl := ExpressionInput; + ExpressionInput.SelStart := Length(ExpressionInput.Text); +end; + +end. diff --git a/official/2.1.1/examples/common/filesearch/FileSearchDemo.dof b/official/2.1.1/examples/common/filesearch/FileSearchDemo.dof new file mode 100644 index 0000000..d447a0b --- /dev/null +++ b/official/2.1.1/examples/common/filesearch/FileSearchDemo.dof @@ -0,0 +1,2 @@ +[Directories] +OutputDir=../../../bin diff --git a/official/2.1.1/examples/common/filesearch/FileSearchDemo.dpr b/official/2.1.1/examples/common/filesearch/FileSearchDemo.dpr new file mode 100644 index 0000000..3375e92 --- /dev/null +++ b/official/2.1.1/examples/common/filesearch/FileSearchDemo.dpr @@ -0,0 +1,16 @@ +program FileSearchDemo; + +{$I jcl.inc} + +uses + Forms, + FileSearchDemoMain in 'FileSearchDemoMain.pas' {FileSearchForm}; + +{$R *.res} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TFileSearchForm, FileSearchForm); + Application.Run; +end. diff --git a/official/2.1.1/examples/common/filesearch/FileSearchDemo.res b/official/2.1.1/examples/common/filesearch/FileSearchDemo.res new file mode 100644 index 0000000000000000000000000000000000000000..ff24fa70c6a61f1121dd5a43dd91ace8c388f935 GIT binary patch literal 876 zcmd^8F%H5o47>nR7X%&H>Bz_r05LHDU&_DIp?mWPMn*;kq;R%dg$f2H7OY;JyR+3O ztpT7SQZjHmi0i2L$EwrQkA)>9T!WhzT)=oT+ik~|6g)` zBHp6jpWOz9kh$H7a;eE7f5rpY+=1l{mW1 literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/common/filesearch/FileSearchDemoMain.dfm b/official/2.1.1/examples/common/filesearch/FileSearchDemoMain.dfm new file mode 100644 index 0000000..a322ab6 --- /dev/null +++ b/official/2.1.1/examples/common/filesearch/FileSearchDemoMain.dfm @@ -0,0 +1,364 @@ +object FileSearchForm: TFileSearchForm + Left = 258 + Top = 301 + Width = 855 + Height = 509 + HorzScrollBar.Range = 378 + VertScrollBar.Range = 252 + ActiveControl = StartBtn + Caption = 'File Search Demo (TJclFileEnumerator)' + Color = clBtnFace + Constraints.MinHeight = 279 + Constraints.MinWidth = 647 + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = 12 + Font.Name = 'MS Sans Serif' + Font.Pitch = fpVariable + Font.Style = [] + OldCreateOrder = True + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object StatusBar: TStatusBar + Left = 0 + Top = 461 + Width = 847 + Height = 21 + Panels = < + item + Alignment = taRightJustify + Width = 100 + end + item + Alignment = taRightJustify + Width = 100 + end + item + Width = 50 + end> + end + object FileList: TListView + Left = 0 + Top = 181 + Width = 847 + Height = 280 + Align = alClient + Columns = < + item + Caption = 'File' + Width = 360 + end + item + Alignment = taRightJustify + AutoSize = True + Caption = 'Size' + end + item + Alignment = taCenter + AutoSize = True + Caption = 'Time' + end + item + Caption = 'Attr.' + Width = 60 + end> + ReadOnly = True + TabOrder = 1 + ViewStyle = vsReport + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 847 + Height = 49 + Align = alTop + BevelOuter = bvNone + TabOrder = 2 + object Label1: TLabel + Left = 14 + Top = 14 + Width = 16 + Height = 13 + Caption = 'List' + end + object Label2: TLabel + Left = 216 + Top = 14 + Width = 29 + Height = 13 + Caption = 'files in' + end + object RootDirInput: TEdit + Left = 256 + Top = 10 + Width = 248 + Height = 21 + TabOrder = 1 + end + object StartBtn: TButton + Left = 524 + Top = 10 + Width = 61 + Height = 25 + Caption = 'Start' + TabOrder = 2 + OnClick = StartBtnClick + end + object StopBtn: TButton + Left = 596 + Top = 10 + Width = 61 + Height = 25 + Caption = 'Stop' + Enabled = False + TabOrder = 3 + OnClick = StopBtnClick + end + object DetailsBtn: TButton + Left = 668 + Top = 10 + Width = 77 + Height = 25 + Caption = 'More >>' + TabOrder = 4 + OnClick = DetailsBtnClick + end + object FileMaskInput: TEdit + Left = 40 + Top = 10 + Width = 169 + Height = 21 + TabOrder = 0 + Text = '*' + end + object SaveBtn: TButton + Left = 760 + Top = 8 + Width = 75 + Height = 25 + Caption = 'Save' + TabOrder = 5 + OnClick = SaveBtnClick + end + end + object DetailsPanel: TPanel + Left = 0 + Top = 49 + Width = 847 + Height = 132 + Align = alTop + BevelOuter = bvNone + TabOrder = 3 + Visible = False + object GroupBox1: TGroupBox + Left = 256 + Top = 0 + Width = 249 + Height = 121 + Caption = 'File attributes' + TabOrder = 0 + object cbReadOnly: TCheckBox + Tag = 1 + Left = 16 + Top = 16 + Width = 89 + Height = 21 + AllowGrayed = True + Caption = 'Read only' + State = cbGrayed + TabOrder = 0 + OnClick = cbFileAttributeClick + end + object cbHidden: TCheckBox + Tag = 2 + Left = 16 + Top = 40 + Width = 89 + Height = 21 + AllowGrayed = True + Caption = 'Hidden' + TabOrder = 1 + OnClick = cbFileAttributeClick + end + object cbSystem: TCheckBox + Tag = 4 + Left = 16 + Top = 64 + Width = 89 + Height = 21 + AllowGrayed = True + Caption = 'System' + TabOrder = 2 + OnClick = cbFileAttributeClick + end + object cbDirectory: TCheckBox + Tag = 16 + Left = 16 + Top = 88 + Width = 89 + Height = 21 + AllowGrayed = True + Caption = 'Directory' + TabOrder = 3 + OnClick = cbFileAttributeClick + end + object cbSymLink: TCheckBox + Tag = 64 + Left = 136 + Top = 16 + Width = 101 + Height = 21 + AllowGrayed = True + Caption = 'Symbolic link' + State = cbGrayed + TabOrder = 4 + OnClick = cbFileAttributeClick + end + object cbNormal: TCheckBox + Tag = 128 + Left = 136 + Top = 88 + Width = 89 + Height = 21 + AllowGrayed = True + Caption = 'Normal' + State = cbGrayed + TabOrder = 7 + OnClick = cbFileAttributeClick + end + object cbArchive: TCheckBox + Tag = 32 + Left = 136 + Top = 16 + Width = 89 + Height = 21 + AllowGrayed = True + Caption = 'Archive' + State = cbGrayed + TabOrder = 5 + OnClick = cbFileAttributeClick + end + object cbVolumeID: TCheckBox + Tag = 8 + Left = 136 + Top = 40 + Width = 89 + Height = 21 + AllowGrayed = True + Caption = 'Volume ID' + TabOrder = 6 + OnClick = cbFileAttributeClick + end + end + object cbLastChangeAfter: TCheckBox + Left = 524 + Top = 12 + Width = 131 + Height = 30 + Caption = 'Last change after' + TabOrder = 1 + end + object edLastChangeAfter: TEdit + Left = 656 + Top = 16 + Width = 113 + Height = 21 + MaxLength = 10 + TabOrder = 2 + end + object cbLastChangeBefore: TCheckBox + Left = 524 + Top = 36 + Width = 131 + Height = 30 + Caption = 'Last change before' + TabOrder = 3 + end + object edLastChangeBefore: TEdit + Left = 656 + Top = 40 + Width = 113 + Height = 21 + MaxLength = 10 + TabOrder = 4 + end + object cbFileSizeMax: TCheckBox + Left = 524 + Top = 60 + Width = 131 + Height = 30 + Caption = 'Maximum size' + TabOrder = 5 + end + object edFileSizeMax: TEdit + Left = 656 + Top = 64 + Width = 113 + Height = 21 + TabOrder = 6 + Text = '$7FFFFFFFFFFFFFFF' + end + object cbFileSizeMin: TCheckBox + Left = 524 + Top = 84 + Width = 131 + Height = 30 + Caption = 'Minimum size' + TabOrder = 7 + end + object edFileSizeMin: TEdit + Left = 656 + Top = 88 + Width = 113 + Height = 21 + TabOrder = 8 + Text = '0' + end + object IncludeSubDirectories: TCheckBox + Left = 40 + Top = 18 + Width = 157 + Height = 17 + Caption = 'Include sub directories' + Checked = True + State = cbChecked + TabOrder = 9 + OnClick = UpdateIncludeHiddenSubDirs + end + object IncludeHiddenSubDirs: TCheckBox + Left = 40 + Top = 42 + Width = 201 + Height = 17 + Caption = 'Include hidden sub directories' + TabOrder = 10 + OnClick = IncludeHiddenSubDirsClick + end + object cbDisplayLiveUpdate: TCheckBox + Left = 40 + Top = 90 + Width = 189 + Height = 17 + Caption = '&Display live update' + Checked = True + State = cbChecked + TabOrder = 12 + end + object cbCaseInsensitiveSearch: TCheckBox + Left = 40 + Top = 66 + Width = 177 + Height = 17 + Caption = 'Case insensitive search' + TabOrder = 11 + end + end + object SaveDialog: TSaveDialog + DefaultExt = '*.txt' + Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*' + Left = 216 + Top = 96 + end +end diff --git a/official/2.1.1/examples/common/filesearch/FileSearchDemoMain.pas b/official/2.1.1/examples/common/filesearch/FileSearchDemoMain.pas new file mode 100644 index 0000000..a62f036 --- /dev/null +++ b/official/2.1.1/examples/common/filesearch/FileSearchDemoMain.pas @@ -0,0 +1,268 @@ +// +// Robert Rossmair, 2003 +// +unit FileSearchDemoMain; + +{$INCLUDE jcl.inc} + +interface + +uses + SysUtils, Classes, + Graphics, StdCtrls, Controls, ExtCtrls, ComCtrls, Forms, Dialogs, + JclStrings, JclFileUtils; + +type + TFileSearchForm = class(TForm) + StatusBar: TStatusBar; + FileList: TListView; + Panel1: TPanel; + Label1: TLabel; + RootDirInput: TEdit; + StartBtn: TButton; + StopBtn: TButton; + Label2: TLabel; + DetailsPanel: TPanel; + GroupBox1: TGroupBox; + cbReadOnly: TCheckBox; + cbHidden: TCheckBox; + cbSystem: TCheckBox; + cbDirectory: TCheckBox; + cbSymLink: TCheckBox; + cbNormal: TCheckBox; + cbArchive: TCheckBox; + DetailsBtn: TButton; + FileMaskInput: TEdit; + cbLastChangeAfter: TCheckBox; + edLastChangeAfter: TEdit; + cbLastChangeBefore: TCheckBox; + edLastChangeBefore: TEdit; + cbFileSizeMax: TCheckBox; + edFileSizeMax: TEdit; + cbFileSizeMin: TCheckBox; + edFileSizeMin: TEdit; + IncludeSubDirectories: TCheckBox; + IncludeHiddenSubDirs: TCheckBox; + cbDisplayLiveUpdate: TCheckBox; + cbCaseInsensitiveSearch: TCheckBox; + SaveBtn: TButton; + SaveDialog: TSaveDialog; + procedure StartBtnClick(Sender: TObject); + procedure StopBtnClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure cbFileAttributeClick(Sender: TObject); + procedure UpdateIncludeHiddenSubDirs(Sender: TObject); + procedure IncludeHiddenSubDirsClick(Sender: TObject); + procedure DetailsBtnClick(Sender: TObject); + procedure SaveBtnClick(Sender: TObject); + private + { Private declarations } + FFileEnumerator: TJclFileEnumerator; + FDirCount: Integer; + FTaskID: TFileSearchTaskID; + FT0: TDateTime; + FFileListLiveUpdate: Boolean; + procedure DirectoryEntered(const Directory: string); + procedure AddFile(const Directory: string; const FileInfo: TSearchRec); + procedure TaskDone(const ID: TFileSearchTaskID; const Aborted: Boolean); + end; + +var + FileSearchForm: TFileSearchForm; + +implementation + +{$R *.dfm} + +procedure TFileSearchForm.FormCreate(Sender: TObject); +begin + FFileEnumerator := TJclFileEnumerator.Create; + FFileEnumerator.OnEnterDirectory := DirectoryEntered; + FFileEnumerator.OnTerminateTask := TaskDone; + FileMaskInput.Text := '*.pas;*.dfm;*.xfm;*.dpr;*.dpk*'; + RootDirInput.Text := ExpandFileName(FFileEnumerator.RootDirectory); + edLastChangeAfter.Text := FFileEnumerator.LastChangeAfterAsString; + edLastChangeBefore.Text := FFileEnumerator.LastChangeBeforeAsString; + cbCaseInsensitiveSearch.Checked := not FFileEnumerator.CaseSensitiveSearch; + {$IFDEF MSWINDOWS} + cbSymLink.Visible := False; + {$ENDIF MSWINDOWS} + {$IFDEF UNIX} + FileList.Columns.Add.Caption := 'Link'; + cbArchive.Visible := False; + {$ENDIF UNIX} +end; + +procedure TFileSearchForm.FormDestroy(Sender: TObject); +begin + FFileEnumerator.Free; + { + FileList.Items.BeginUpdate; + FileList.Items.Clear; + FileList.Items.EndUpdate; + } +end; + +procedure TFileSearchForm.DirectoryEntered(const Directory: string); +begin + Inc(FDirCount); + StatusBar.Panels[0].Text := Format('%d files', [FileList.Items.Count]); + StatusBar.Panels[1].Text := Format('%d directories', [FDirCount]); + StatusBar.Panels[2].Text := Format('Processing %s...', [Directory]); +end; + +procedure TFileSearchForm.AddFile(const Directory: string; const FileInfo: TSearchRec); +var + ListItem: TListItem; +begin + ListItem := FileList.Items.Add; + with ListItem do + begin + Caption := Directory + FileInfo.Name; + SubItems.Add(IntToStr(GetSizeOfFile(FileInfo))); + SubItems.Add(FormatDateTime(' yyyy-mm-dd hh:nn:ss ', FileDateToDateTime(FileInfo.Time))); + SubItems.Add(FileAttributesStr(FileInfo)); + {$IFDEF UNIX} + if (FileInfo.Attr and faSymLink) <> 0 then + SubItems.Add(SymbolicLinkTarget(Caption)); + {$ENDIF UNIX} + SubItems.Add(FileGetOwnerName(Caption)); + SubItems.Add(FileGetGroupName(Caption)); + end; +end; + +procedure TFileSearchForm.TaskDone(const ID: TFileSearchTaskID; const Aborted: Boolean); +begin + if not FFileListLiveUpdate then + FileList.Items.EndUpdate; + StatusBar.Panels[0].Text := Format('%d files', [FileList.Items.Count]); + if Aborted then + StatusBar.Panels[2].Text := 'Prematurely aborted.' + else + StatusBar.Panels[2].Text := Format('...finished (%f seconds).', [(Now - FT0) * SecsPerDay]); + StartBtn.Enabled := True; + SaveBtn.Enabled := True; + StopBtn.Enabled := False; + ActiveControl := StartBtn; +end; + +procedure TFileSearchForm.StartBtnClick(Sender: TObject); +var + RootDirectories: TStrings; +begin + RootDirInput.Text := PathCanonicalize(RootDirInput.Text); + + FFileEnumerator.SearchOption[fsLastChangeAfter] := cbLastChangeAfter.Checked; + FFileEnumerator.SearchOption[fsLastChangeBefore] := cbLastChangeBefore.Checked; + if FFileEnumerator.SearchOption[fsLastChangeAfter] then + FFileEnumerator.LastChangeAfterAsString := edLastChangeAfter.Text; + if FFileEnumerator.SearchOption[fsLastChangeBefore] then + FFileEnumerator.LastChangeBeforeAsString := edLastChangeBefore.Text; + RootDirectories := TStringList.Create; + try + StrToStrings(RootDirInput.Text, DirSeparator, RootDirectories, False); + FFileEnumerator.RootDirectories := RootDirectories; + finally + RootDirectories.Free; + end; + FFileEnumerator.FileMask := FileMaskInput.Text; + FFileEnumerator.SearchOption[fsMinSize] := cbFileSizeMin.Checked; + FFileEnumerator.SearchOption[fsMaxSize] := cbFileSizeMax.Checked; + FFileEnumerator.FileSizeMin := StrToInt64(edFileSizeMin.Text); + FFileEnumerator.FileSizeMax := StrToInt64(edFileSizeMax.Text); + FFileEnumerator.IncludeSubDirectories := IncludeSubDirectories.Checked; + FFileEnumerator.IncludeHiddenSubDirectories := IncludeHiddenSubDirs.Checked; + FFileEnumerator.CaseSensitiveSearch := not cbCaseInsensitiveSearch.Checked; + FDirCount := 0; + + StartBtn.Enabled := False; + StopBtn.Enabled := True; + SaveBtn.Enabled := False; + ActiveControl := StopBtn; + + FFileListLiveUpdate := cbDisplayLiveUpdate.Checked; + + FileList.Items.Clear; + if not FFileListLiveUpdate then + FileList.Items.BeginUpdate; + + FT0 := Now; + FTaskID := FFileEnumerator.ForEach(AddFile); +end; + +procedure TFileSearchForm.StopBtnClick(Sender: TObject); +begin + FFileEnumerator.StopTask(FTaskID); +end; + +procedure TFileSearchForm.cbFileAttributeClick(Sender: TObject); +const + Interest: array[TCheckBoxState] of TAttributeInterest = (aiRejected, aiRequired, aiIgnored); + CBState: array[TAttributeInterest] of TCheckBoxState = (cbGrayed, cbUnchecked, cbChecked); +begin + with FFileEnumerator.AttributeMask do + begin + with Sender as TCheckBox do + Attribute[Tag] := Interest[State]; + cbReadOnly.State := CBState[ReadOnly]; + cbHidden.State := CBState[Hidden]; + cbSystem.State := CBState[System]; + cbDirectory.State := CBState[Directory]; + cbNormal.State := CBState[Normal]; +{$IFDEF UNIX} + cbSymLink.State := CBState[SymLink]; +{$ENDIF def UNIX} +{$IFDEF MSWINDOWS} + cbArchive.State := CBState[Archive]; +{$ENDIF def MSWINDOWS} + end; +end; + +procedure TFileSearchForm.UpdateIncludeHiddenSubDirs(Sender: TObject); +begin + IncludeHiddenSubDirs.AllowGrayed := not IncludeSubDirectories.Checked; + if IncludeSubDirectories.Checked then + begin + if IncludeHiddenSubDirs.State = cbGrayed then + IncludeHiddenSubDirs.State := cbChecked; + end + else + begin + if IncludeHiddenSubDirs.State = cbChecked then + IncludeHiddenSubDirs.State := cbGrayed; + end; +end; + +procedure TFileSearchForm.IncludeHiddenSubDirsClick(Sender: TObject); +begin + if not IncludeSubDirectories.Checked then + if IncludeHiddenSubDirs.State = cbChecked then + IncludeHiddenSubDirs.State := cbUnchecked; +end; + +procedure TFileSearchForm.DetailsBtnClick(Sender: TObject); +const + DetailsBtnCaptions: array[Boolean] of string = ('More >>', 'Less <<'); +begin + DetailsPanel.Visible := not DetailsPanel.Visible; + DetailsBtn.Caption := DetailsBtnCaptions[DetailsPanel.Visible]; +end; + +procedure TFileSearchForm.SaveBtnClick(Sender: TObject); +var + I: Integer; +begin + if SaveDialog.Execute then + with TStringList.Create do + try + for I := 0 to FileList.Items.Count - 1 do + Add(FileList.Items[I].Caption); + SaveToFile(SaveDialog.FileName); + finally + Free; + end; +end; + +end. + diff --git a/official/2.1.1/examples/common/graphics/ClipLineDemo.dof b/official/2.1.1/examples/common/graphics/ClipLineDemo.dof new file mode 100644 index 0000000..b13ef5f --- /dev/null +++ b/official/2.1.1/examples/common/graphics/ClipLineDemo.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=../../../bin + diff --git a/official/2.1.1/examples/common/graphics/ClipLineDemo.dpr b/official/2.1.1/examples/common/graphics/ClipLineDemo.dpr new file mode 100644 index 0000000..b74227a --- /dev/null +++ b/official/2.1.1/examples/common/graphics/ClipLineDemo.dpr @@ -0,0 +1,16 @@ +program ClipLineDemo; + +{$I jcl.inc} + +uses + Forms, + ClipLineDemoMain in 'ClipLineDemoMain.pas' {Form1}; + +{$R *.res} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. diff --git a/official/2.1.1/examples/common/graphics/ClipLineDemo.res b/official/2.1.1/examples/common/graphics/ClipLineDemo.res new file mode 100644 index 0000000000000000000000000000000000000000..093026528930ea46204ac34ba193dc8155a7cef9 GIT binary patch literal 876 zcmd^8F%H5o47>tT7X%&H$;ikL05LHDU&_DIp?mWPMn*;kq;R%dg$f2H7OY;JyR+3O ztpUIhDH*sO#C6pBW7ZVvRaH6Zi&oq?VoMY-*|X+uqINP;fNg$I1ziCnfrL13z>!j L&Q&@UGDQWRn6_4} literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/common/graphics/ClipLineDemoMain.dfm b/official/2.1.1/examples/common/graphics/ClipLineDemoMain.dfm new file mode 100644 index 0000000..3cada53 --- /dev/null +++ b/official/2.1.1/examples/common/graphics/ClipLineDemoMain.dfm @@ -0,0 +1,17 @@ +object Form1: TForm1 + Left = 198 + Top = 147 + Width = 400 + Height = 400 + Caption = 'ClipLine Demo' + Color = 15790320 + OnCreate = FormCreate + OnPaint = FormPaint + PixelsPerInch = 96 + TextHeight = 13 + object Timer1: TTimer + Enabled = False + Left = 32 + Top = 24 + end +end diff --git a/official/2.1.1/examples/common/graphics/ClipLineDemoMain.pas b/official/2.1.1/examples/common/graphics/ClipLineDemoMain.pas new file mode 100644 index 0000000..3711ce0 --- /dev/null +++ b/official/2.1.1/examples/common/graphics/ClipLineDemoMain.pas @@ -0,0 +1,85 @@ +unit ClipLineDemoMain; + +{$I jcl.inc} + +interface + +uses + SysUtils, Classes, +{$IFDEF MSWINDOWS} + Windows, +{$ENDIF} + Graphics, ExtCtrls, Forms, JclGraphUtils, + JclBase; + +type + TForm1 = class(TForm) + Timer1: TTimer; + procedure FormCreate(Sender: TObject); + procedure FormPaint(Sender: TObject); + procedure Timer1Timer(Sender: TObject); + private + { Private declarations } + R: TRect; + P: TPointArray; + FPenColor: TColor; + FPenColorLight: TColor; + procedure InitLines; + public + { Public declarations } + end; + +var + Form1: TForm1; + +implementation + +{$R *.dfm} + +procedure TForm1.FormCreate(Sender: TObject); +begin + Randomize; + R.Left := 100; + R.Top := 100; + R.Right := 300; + R.Bottom := 300; + SetLength(P, 50); + InitLines; +end; + +procedure TForm1.FormPaint(Sender: TObject); +begin + Canvas.Brush.Color := clWhite; + Canvas.FillRect(R); + Canvas.Pen.Color := FPenColorLight; + Canvas.PolyLine(P); + Canvas.Pen.Color := FPenColor; + DrawPolyLine(Canvas, P, R); +end; + +procedure TForm1.InitLines; +var + i: Integer; + H, S, L: Single; +begin + for i := 0 to Length(P)-1 do + begin + P[i].X := Random(Width); + P[i].Y := Random(Height); + end; + H := Random; + S := Random; + L := 0.4 * Random; + + FPenColor := WinColor(HSLToRGB(H, S, L)); + FPenColorLight := WinColor(HSLToRGB(H, S, 1 - 0.2 * (1 - L))); +end; + +procedure TForm1.Timer1Timer(Sender: TObject); +begin + InitLines; + Refresh; +end; + +end. + diff --git a/official/2.1.1/examples/common/graphics/StretchGraphicDemoMain.dfm b/official/2.1.1/examples/common/graphics/StretchGraphicDemoMain.dfm new file mode 100644 index 0000000..8a55a35 --- /dev/null +++ b/official/2.1.1/examples/common/graphics/StretchGraphicDemoMain.dfm @@ -0,0 +1,217 @@ +object StretchDemoForm: TStretchDemoForm + Left = 255 + Top = 208 + ClientWidth = 780 + ClientHeight = 583 + VertScrollBar.Range = 19 + ActiveControl = PageControl + AutoScroll = False + Caption = 'JCL Picture Viewer' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = 12 + Font.Name = 'MS Sans Serif' + Font.Pitch = fpVariable + Font.Style = [] + KeyPreview = True + Menu = MainMenu + OldCreateOrder = True + ShowHint = True + OnCreate = FormCreate + OnKeyDown = FormKeyDown + PixelsPerInch = 96 + TextHeight = 13 + object PageControl: TPageControl + Left = 0 + Top = 0 + Width = 780 + Height = 544 + ActivePage = OriginalPage + Align = alClient + TabOrder = 0 + OnChanging = PageControlChanging + object OriginalPage: TTabSheet + Caption = 'Original' + object ScrollBox: TScrollBox + Left = 0 + Top = 0 + Width = 772 + Height = 516 + HorzScrollBar.Tracking = True + VertScrollBar.Tracking = True + Align = alClient + Color = clGray + ParentColor = False + TabOrder = 0 + object OriginalImage: TImage + Left = 0 + Top = 0 + Width = 768 + Height = 512 + AutoSize = True + end + end + end + object StretchedPage: TTabSheet + Caption = 'Resized' + ImageIndex = 1 + OnResize = StretchedPageResize + OnShow = StretchedPageShow + object Bevel1: TBevel + Left = 0 + Top = 0 + Width = 772 + Height = 516 + Align = alClient + end + object StretchedImage: TImage + Left = 1 + Top = 1 + Width = 770 + Height = 513 + Anchors = [akLeft, akTop, akRight, akBottom] + end + end + object FilesPage: TTabSheet + Caption = 'Files' + ImageIndex = 2 + object FileListView: TListView + Left = 0 + Top = 0 + Width = 772 + Height = 516 + Align = alClient + Columns = < + item + AutoSize = True + Caption = 'File' + MaxWidth = 800 + MinWidth = 300 + end + item + Caption = 'Size' + end> + HideSelection = False + TabOrder = 0 + ViewStyle = vsReport + OnClick = FileListViewClick + OnKeyDown = FileListViewKeyDown + end + end + end + object StatusBar: TStatusBar + Left = 0 + Top = 544 + Width = 780 + Height = 19 + Panels = < + item + Width = 120 + end + item + Width = 120 + end + item + Width = 120 + end> + SimplePanel = False + end + object OpenDialog: TOpenDialog + Filter = + 'All (*.jpg;*.jpeg;*.bmp)|*.jpg;*.jpeg;*.bmp|JPEG Image File (*.j' + + 'pg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp' + FilterIndex = 0 + Title = 'Open' + Left = 240 + Top = 68 + end + object MainMenu: TMainMenu + Left = 208 + Top = 68 + object Fil1: TMenuItem + Caption = '&File' + object Open1: TMenuItem + Caption = 'Open...' + OnClick = OpenFile + end + object N1: TMenuItem + Caption = '-' + end + object ExitItem: TMenuItem + Caption = 'E&xit' + OnClick = ExitApp + end + end + object Filter1: TMenuItem + Caption = '&Resampling Filter' + object Box1: TMenuItem + Caption = 'Bo&x' + GroupIndex = 1 + RadioItem = True + OnClick = SelectFilter + end + object Triangle1: TMenuItem + Tag = 1 + Caption = '&Triangle' + GroupIndex = 1 + RadioItem = True + OnClick = SelectFilter + end + object Hermite1: TMenuItem + Tag = 2 + Caption = '&Hermite' + GroupIndex = 1 + RadioItem = True + OnClick = SelectFilter + end + object Bell1: TMenuItem + Tag = 3 + Caption = '&Bell' + GroupIndex = 1 + RadioItem = True + OnClick = SelectFilter + end + object Spline1: TMenuItem + Tag = 4 + Caption = '&Spline' + Checked = True + GroupIndex = 1 + RadioItem = True + OnClick = SelectFilter + end + object Lanczos31: TMenuItem + Tag = 5 + Caption = '&Lanczos 3' + GroupIndex = 1 + RadioItem = True + OnClick = SelectFilter + end + object Mitchell1: TMenuItem + Tag = 6 + Caption = '&Mitchell' + GroupIndex = 1 + RadioItem = True + OnClick = SelectFilter + end + end + object Options1: TMenuItem + Caption = '&Options' + object PreserveAspectRatio1: TMenuItem + Caption = 'Preserve Aspect Ratio' + Checked = True + OnClick = PreserveAspectRatio1Click + end + end + object PrevItem: TMenuItem + Caption = ' &<< ' + Hint = 'Previous file in directory' + OnClick = PrevFile + end + object NextItem: TMenuItem + Caption = ' &>> ' + Hint = 'Next file in directory' + OnClick = NextFile + end + end +end diff --git a/official/2.1.1/examples/common/graphics/StretchGraphicDemoMain.pas b/official/2.1.1/examples/common/graphics/StretchGraphicDemoMain.pas new file mode 100644 index 0000000..2ad4886 --- /dev/null +++ b/official/2.1.1/examples/common/graphics/StretchGraphicDemoMain.pas @@ -0,0 +1,498 @@ +// +// Robert Rossmair, 2002-09-22 +// revised 2005-06-26 +// + +{$I jcl.inc} + +{$IFDEF VCL} + {$DEFINE HasShellCtrls} // $(Delphi)\Demos\ShellControls\ShellCtrls.pas +{$ENDIF VCL} + +unit StretchGraphicDemoMain; + +interface + +uses + SysUtils, Classes, + {$IFDEF MSWINDOWS} + Windows, Messages, JPEG, ShellAPI, + {$ENDIF MSWINDOWS} + Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, Menus, ExtCtrls, ExtDlgs, + JclGraphics, + {$IFDEF HasShellCtrls} + {$WARN UNIT_PLATFORM OFF} + ShellCtrls, + {$ENDIF HasShellCtrls} + JclFileUtils; + +type + TStretchDemoForm = class(TForm) + PageControl: TPageControl; + OriginalPage: TTabSheet; + StretchedPage: TTabSheet; + StretchedImage: TImage; + MainMenu: TMainMenu; + Fil1: TMenuItem; + Open1: TMenuItem; + N1: TMenuItem; + ExitItem: TMenuItem; + Filter1: TMenuItem; + Box1: TMenuItem; + Triangle1: TMenuItem; + Hermite1: TMenuItem; + Bell1: TMenuItem; + Spline1: TMenuItem; + Lanczos31: TMenuItem; + Mitchell1: TMenuItem; + Options1: TMenuItem; + PreserveAspectRatio1: TMenuItem; + PrevItem: TMenuItem; + NextItem: TMenuItem; + FilesPage: TTabSheet; + ScrollBox: TScrollBox; + StatusBar: TStatusBar; + Bevel1: TBevel; + OpenDialog: TOpenDialog; + FileListView: TListView; + OriginalImage: TImage; + procedure FormCreate(Sender: TObject); + {$IFDEF VCL} + procedure FormDestroy(Sender: TObject); + {$ENDIF VCL} + procedure OpenFile(Sender: TObject); + procedure SelectFilter(Sender: TObject); + procedure PreserveAspectRatio1Click(Sender: TObject); + procedure ExitApp(Sender: TObject); + procedure PrevFile(Sender: TObject); + procedure NextFile(Sender: TObject); + procedure FileListViewClick(Sender: TObject); + procedure LoadSelected; + procedure FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure StretchedPageShow(Sender: TObject); + procedure StretchedPageResize(Sender: TObject); + procedure PageControlChanging(Sender: TObject; + var AllowChange: Boolean); + procedure FileListViewKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + {$IFDEF HasShellCtrls} + procedure ShellChange; + private + FShellChangeNotifier: TShellChangeNotifier; + {$ELSE} + private + {$ENDIF HasShellCtrls} + FLastImagePage: TTabSheet; + FFileName: string; + FDir: string; + FWidth: Integer; + FHeight: Integer; + FStretchTime: LongWord; + FPreserveAspectRatio: Boolean; + FResamplingFilter: TResamplingFilter; + procedure AddToFileList(const Directory: string; const FileInfo: TSearchRec); + procedure FileSearchTerminated(const ID: TFileSearchTaskID; const Aborted: Boolean); + function ChangeDirectory: Boolean; + procedure DoStretch; + procedure LoadFile(const AFileName: string); + procedure InvalidateStretched; + procedure UpdateCaption; + procedure UpdateFileList; + procedure UpdateNavButtons; + procedure UpdateStretched; + function GetFileListIndex: Integer; + procedure SetFileListIndex(const Value: Integer); + procedure SetFileName(const Value: string); + {$IFDEF VCL} + procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DropFiles; + {$ENDIF VCL} + protected + property FileListIndex: Integer read GetFileListIndex write SetFileListIndex; + property FileName: string read FFileName write SetFileName; + end; + +var + StretchDemoForm: TStretchDemoForm; + +implementation + +{$IFDEF VCL} +{$R *.dfm} +{$ENDIF VCL} + +var + FileMask: string; + +{$IFDEF MSWINDOWS} +type + TWMDropFilesCallback = procedure (const FileName: string) of object; + +procedure ProcessWMDropFiles(var Msg: TWMDropFiles; Callback: TWMDropFilesCallback; DropPoint: PPoint = nil); overload; +var + i: Integer; + FileName: array[0..MAX_PATH] of Char; +begin + try + // in case DropPoint is evaluated by callback method, get it first + if DropPoint <> nil then + DragQueryPoint(Msg.Drop, DropPoint^); + if Assigned(Callback) then + for i := 0 to DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0) - 1 do + begin + DragQueryFile(Msg.Drop, i, FileName, MAX_PATH); + Callback(FileName); + end; + Msg.Result := 0; + finally + DragFinish(Msg.Drop); + end; +end; + +procedure ProcessWMDropFiles(var Msg: TWMDropFiles; FileNames: TStrings; DropPoint: PPoint = nil); overload; +begin + ProcessWMDropFiles(Msg, FileNames.Append, DropPoint); +end; +{$ENDIF MSWINDOWS} + +function IsGraphicFile(const FileName: string): Boolean; overload; +var + Ext: string; +begin + Ext := AnsiLowerCase(ExtractFileExt(FileName)); + Result := (Pos(Ext, FileMask) > 0); +end; + +function IsGraphicFile(const Attr: Integer; const FileInfo: TSearchRec): Boolean; overload; +begin + Result := IsGraphicFile(FileInfo.Name); +end; + +procedure TStretchDemoForm.FormCreate(Sender: TObject); +begin + StretchedPage.Brush.Color := clGray; + {$IFDEF VCL} + ScrollBox.DoubleBuffered := True; + StretchedPage.DoubleBuffered := True; + {$ENDIF VCL} + FileMask := GraphicFileMask(TGraphic); + //Format('%s;%s', [GraphicFileMask(TJPEGImage), GraphicFileMask(TBitmap)]); + OpenDialog.Filter := GraphicFilter(TGraphic); + FResamplingFilter := rfSpline; // rfLanczos3; + FPreserveAspectRatio := True; + UpdateNavButtons; + {$IFDEF HasShellCtrls} + FShellChangeNotifier := TShellChangeNotifier.Create(Self); + with FShellChangeNotifier do + begin + WatchSubTree := False; + OnChange := ShellChange; + NotifyFilters := [ + nfFileNameChange, + nfDirNameChange, + //nfSizeChange, + nfWriteChange, + nfSecurityChange]; + end; + {$ENDIF HasShellCtrls} + {$IFDEF VCL} + DragAcceptFiles(Handle, True); + {$ENDIF VCL} + if ParamCount > 0 then + with OpenDialog do + begin + FileName := ParamStr(1); + InitialDir := ExtractFileDir(FileName); + LoadFile(FileName); + end; +end; + +{$IFDEF VCL} +procedure TStretchDemoForm.FormDestroy(Sender: TObject); +begin + DragAcceptFiles(Handle, False); +end; +{$ENDIF VCL} + +procedure TStretchDemoForm.ExitApp(Sender: TObject); +begin + Close; +end; + +function TStretchDemoForm.ChangeDirectory: Boolean; +var + Dir, D: string; +begin + D := ExtractFileDir(FileName); + Dir := PathAddSeparator(D); + Result := (Dir <> FDir) and (Pos(FDir, Dir) <> 1); + if Result then + begin + FDir := Dir; + FilesPage.Caption := Format('Files in %s', [D]); + OpenDialog.InitialDir := D; + {$IFDEF HasShellCtrls} + FShellChangeNotifier.Root := D; + {$ELSE} + UpdateFileList; + {$ENDIF HasShellCtrls} + end; +end; + +procedure TStretchDemoForm.AddToFileList(const Directory: string; const FileInfo: TSearchRec); +begin + with FileListView.Items.Add do + begin + Caption := Directory + FileInfo.Name; + end; +end; + +procedure TStretchDemoForm.FileSearchTerminated(const ID: TFileSearchTaskID; const Aborted: Boolean); +begin + with FileListView do + Selected := FindCaption(0, FileName, False, True, False); + StatusBar.Panels[0].Text := Format('%d files', [FileListView.Items.Count]); + UpdateNavButtons; +end; + +procedure TStretchDemoForm.UpdateFileList; +begin + FileListView.Items.Clear; + with FileSearch do + begin + FileMask := GraphicFileMask(TGraphic); + RootDirectory := FDir; + OnTerminateTask := FileSearchTerminated; + ForEach(AddToFileList); + end; +end; + +procedure TStretchDemoForm.LoadFile(const AFileName: string); +begin + if not IsGraphicFile(AFileName) then + Exit; + FileName := AFileName; + OriginalImage.Picture.LoadFromFile(FileName); + if not ChangeDirectory then + UpdateNavButtons; + + UpdateCaption; + with FileListView do + Selected := FindCaption(0, FileName, False, True, False); + + StretchedImage.Picture.Graphic := nil; + InvalidateStretched; + if PageControl.ActivePage = FilesPage then + begin + {$IFDEF VCL} + if OriginalImage.Picture.Graphic is TMetaFile then + PageControl.ActivePage := OriginalPage + else + {$ENDIF VCL} + PageControl.ActivePage := FLastImagePage; + FocusControl(PageControl); + end; +end; + +procedure TStretchDemoForm.OpenFile(Sender: TObject); +begin + if OpenDialog.Execute then + LoadFile(OpenDialog.FileName); +end; + +procedure TStretchDemoForm.SelectFilter(Sender: TObject); +begin + with Sender as TMenuItem do + begin + Checked := True; + FResamplingFilter := TResamplingFilter(Tag); + InvalidateStretched; + end; +end; + +procedure TStretchDemoForm.DoStretch; +var + W, H: Integer; + T: LongWord; +begin + with OriginalImage.Picture do + if (Graphic = nil) {$IFDEF VCL} or (Graphic is TMetafile) {$ENDIF} then + Exit; + W := StretchedPage.Width-2; + H := StretchedPage.Height-2; + if FPreserveAspectRatio then + with OriginalImage.Picture.Graphic do + begin + if W * Height > H * Width then + W := H * Width div Height + else + H := W * Height div Width; + end; + if (FWidth <> W) or (FHeight <> H) then + begin + T := GetTickCount; + StretchedImage.Picture.Graphic := nil; + JclGraphics.Stretch(W, H, FResamplingFilter, 0, OriginalImage.Picture.Graphic, + StretchedImage.Picture.Bitmap); + with OriginalImage.Picture do + StatusBar.Panels[0].Text := Format('Original: %d x %d', [Width, Height]); + with StretchedImage.Picture do + StatusBar.Panels[1].Text := Format('Resized: %d x %d', [Width, Height]); + FWidth := W; + FHeight := H; + FStretchTime := GetTickCount - T; + with StretchedImage.Picture do + StatusBar.Panels[2].Text := Format('Resize time: %d msec', [FStretchTime]); + end; +end; + +procedure TStretchDemoForm.PreserveAspectRatio1Click(Sender: TObject); +begin + with Sender as TMenuItem do + begin + Checked := not Checked; + FPreserveAspectRatio := Checked; + InvalidateStretched; + end; +end; + +procedure TStretchDemoForm.LoadSelected; +begin + with FileListView do + if Selected <> nil then + LoadFile(Selected.Caption); +end; + +procedure TStretchDemoForm.PrevFile(Sender: TObject); +begin + if FileListIndex > 0 then + FileListIndex := FileListIndex - 1; + LoadSelected; +end; + +procedure TStretchDemoForm.NextFile(Sender: TObject); +begin + if FileListIndex < FileListView.Items.Count - 1 then + FileListIndex := FileListIndex + 1; + LoadSelected; +end; + +procedure TStretchDemoForm.UpdateCaption; +begin + if FileName <> '' then + Caption := Format('JCL Picture Viewer - %s', [FileName]); +end; + +procedure TStretchDemoForm.UpdateNavButtons; +begin + PrevItem.Enabled := FileListIndex > 0; + NextItem.Enabled := FileListIndex < FileListView.Items.Count - 1; + PrevItem.Enabled := FileListIndex > 0; + NextItem.Enabled := FileListIndex < FileListView.Items.Count - 1; +end; + +procedure TStretchDemoForm.FileListViewClick(Sender: TObject); +begin + LoadSelected; +end; + +procedure TStretchDemoForm.FormKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +{$IFDEF VCL} +const + Key_Prior = VK_PRIOR; + Key_Next = VK_NEXT; +{$ENDIF VCL} +begin + case Key of + Key_Prior: + begin + PrevFile(Self); + Key := 0; + end; + Key_Next: + begin + NextFile(Self); + Key := 0; + end; + end; +end; + +procedure TStretchDemoForm.StretchedPageShow(Sender: TObject); +begin + UpdateStretched; +end; + +procedure TStretchDemoForm.UpdateStretched; +begin + if StretchedPage.Visible then + DoStretch; +end; + +procedure TStretchDemoForm.StretchedPageResize(Sender: TObject); +begin + UpdateStretched; +end; + +procedure TStretchDemoForm.InvalidateStretched; +begin + FWidth := 0; + FHeight := 0; + UpdateStretched; +end; + +{$IFDEF VCL} +procedure TStretchDemoForm.WMDropFiles(var Msg: TWMDropFiles); +begin + ProcessWMDropFiles(Msg, LoadFile); +end; +{$ENDIF VCL} + +procedure TStretchDemoForm.PageControlChanging(Sender: TObject; + var AllowChange: Boolean); +begin + if PageControl.ActivePage <> FilesPage then + FLastImagePage := PageControl.ActivePage; +end; + +{$IFDEF HasShellCtrls} +procedure TStretchDemoForm.ShellChange; +begin + UpdateFileList; +end; +{$ENDIF HasShellCtrls} + +function TStretchDemoForm.GetFileListIndex: Integer; +begin + Result := -1; + if FileListView.Selected <> nil then + Result := FileListView.Selected.Index; +end; + +procedure TStretchDemoForm.SetFileListIndex(const Value: Integer); +begin + if Value < 0 then + begin + if FileListView.Selected <> nil then + begin + FileListView.Selected.Selected := False; + end; + end + else + FileListView.Items[Value].Selected := True; +end; + +procedure TStretchDemoForm.FileListViewKeyDown(Sender: TObject; + var Key: Word; Shift: TShiftState); +begin + if Key = VK_RETURN then + LoadSelected; +end; + +procedure TStretchDemoForm.SetFileName(const Value: string); +begin + FFileName := PathGetLongName(Value); +end; + +end. diff --git a/official/2.1.1/examples/common/graphics/StretchGraphicExample.dof b/official/2.1.1/examples/common/graphics/StretchGraphicExample.dof new file mode 100644 index 0000000..4a388e0 --- /dev/null +++ b/official/2.1.1/examples/common/graphics/StretchGraphicExample.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\bin + diff --git a/official/2.1.1/examples/common/graphics/StretchGraphicExample.dpr b/official/2.1.1/examples/common/graphics/StretchGraphicExample.dpr new file mode 100644 index 0000000..491af7b --- /dev/null +++ b/official/2.1.1/examples/common/graphics/StretchGraphicExample.dpr @@ -0,0 +1,16 @@ +program StretchGraphicExample; + +{$I jcl.inc} + +uses + Forms, + StretchGraphicDemoMain in 'StretchGraphicDemoMain.pas' {StretchDemoForm}; + +{$R *.res} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TStretchDemoForm, StretchDemoForm); + Application.Run; +end. diff --git a/official/2.1.1/examples/common/graphics/StretchGraphicExample.res b/official/2.1.1/examples/common/graphics/StretchGraphicExample.res new file mode 100644 index 0000000000000000000000000000000000000000..093026528930ea46204ac34ba193dc8155a7cef9 GIT binary patch literal 876 zcmd^8F%H5o47>tT7X%&H$;ikL05LHDU&_DIp?mWPMn*;kq;R%dg$f2H7OY;JyR+3O ztpUIhDH*sO#C6pBW7ZVvRaH6Zi&oq?VoMY-*|X+uqINP;fNg$I1ziCnfrL13z>!j L&Q&@UGDQWRn6_4} literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/common/multimedia/MidiOutExample.dof b/official/2.1.1/examples/common/multimedia/MidiOutExample.dof new file mode 100644 index 0000000..4a388e0 --- /dev/null +++ b/official/2.1.1/examples/common/multimedia/MidiOutExample.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\bin + diff --git a/official/2.1.1/examples/common/multimedia/MidiOutExample.dpr b/official/2.1.1/examples/common/multimedia/MidiOutExample.dpr new file mode 100644 index 0000000..c45a25f --- /dev/null +++ b/official/2.1.1/examples/common/multimedia/MidiOutExample.dpr @@ -0,0 +1,16 @@ +program MidiOutExample; + +uses + Forms, + MidiOutExampleMain in 'MidiOutExampleMain.pas' {Keyboard}, + MidiOutExampleTuningDlg in 'MidiOutExampleTuningDlg.pas' {TuningDialog}; + +{$R *.RES} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TKeyboard, Keyboard); + Application.CreateForm(TTuningDialog, TuningDialog); + Application.Run; +end. diff --git a/official/2.1.1/examples/common/multimedia/MidiOutExample.res b/official/2.1.1/examples/common/multimedia/MidiOutExample.res new file mode 100644 index 0000000000000000000000000000000000000000..472f2e47297a46cf06bb2ce0c8024f600e93445f GIT binary patch literal 876 zcmb7Dv2N5r5S`;9xg)W{DJ54@#)?ixq5woi0mwzzd`4C)-)wZn8KKjRL~&IVegsim z<4;MMl8!BqmN)jD1QHD+KkvSIvoqseFA>ok$aw^&f7!#MgFZ#fWYA7dilal&Gfd{d zD_}xo0Hra(u1-$Sq_Y{=t)_t=*?Vay!e$CjOQd&(lrSF0Tls2mP+KZU0$}{QB){?Cac-k=ge)P zs@#gmop0R8g}oxl?IPC5q$+ilyo8%O(__-l!GrVd4Js^S-iEqTry#JnP8vd!s;FDl zq;Z||>|&v=4zWd2S?5$WWh!|QKY>F}P3_f(5WOWpd|j7mcHv`Ne;>F+kC;*qx`@}N zI@2b!D425=SVC0ra{+0Ysaf8YfGz8My5jwi7&srkpXp z9NZS0rZ02XvDWFgVg)9vo;QjnQKSDp@U9?#Ex_7v>500o()q z9vw!*|5}IN*3c784fkjixsOrfDQdkOu0=o1Pl)Io$oVn7qu2D7-UDyw1IB~>c`xiX POlUqo8g7N%q6z&5v1T5M literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/common/multimedia/MidiOutExampleMain.dfm b/official/2.1.1/examples/common/multimedia/MidiOutExampleMain.dfm new file mode 100644 index 0000000..4a2b7cc --- /dev/null +++ b/official/2.1.1/examples/common/multimedia/MidiOutExampleMain.dfm @@ -0,0 +1,488 @@ +object Keyboard: TKeyboard + Left = 145 + Top = 347 + ClientWidth = 520 + ClientHeight = 223 + HorzScrollBar.Range = 517 + VertScrollBar.Range = 209 + ActiveControl = MidiProgramNum + AutoScroll = False + Caption = 'MIDI Example' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = 11 + Font.Name = 'MS Sans Serif' + Font.Pitch = fpVariable + Font.Style = [] + OldCreateOrder = True + ShowHint = True + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Key48: TSpeedButton + Tag = 48 + Left = 4 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 48 + OnMouseDown = KeyMouseDown + end + object Key50: TSpeedButton + Tag = 50 + Left = 24 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 50 + OnMouseDown = KeyMouseDown + end + object Key52: TSpeedButton + Tag = 52 + Left = 44 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 52 + OnMouseDown = KeyMouseDown + end + object Key53: TSpeedButton + Tag = 53 + Left = 64 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 53 + OnMouseDown = KeyMouseDown + end + object Key49: TSpeedButton + Tag = 49 + Left = 18 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 49 + OnMouseDown = KeyMouseDown + end + object Key51: TSpeedButton + Tag = 51 + Left = 38 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 51 + OnMouseDown = KeyMouseDown + end + object Key55: TSpeedButton + Tag = 55 + Left = 84 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 55 + OnMouseDown = KeyMouseDown + end + object Key57: TSpeedButton + Tag = 57 + Left = 104 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 57 + OnMouseDown = KeyMouseDown + end + object Key59: TSpeedButton + Tag = 59 + Left = 124 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 59 + OnMouseDown = KeyMouseDown + end + object Key54: TSpeedButton + Tag = 54 + Left = 78 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 54 + OnMouseDown = KeyMouseDown + end + object Key56: TSpeedButton + Tag = 56 + Left = 98 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 56 + OnMouseDown = KeyMouseDown + end + object Key58: TSpeedButton + Tag = 58 + Left = 118 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 58 + OnMouseDown = KeyMouseDown + end + object Key60: TSpeedButton + Tag = 60 + Left = 144 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 60 + OnMouseDown = KeyMouseDown + end + object Key62: TSpeedButton + Tag = 62 + Left = 164 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 62 + OnMouseDown = KeyMouseDown + end + object Key64: TSpeedButton + Tag = 64 + Left = 184 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 64 + OnMouseDown = KeyMouseDown + end + object Key65: TSpeedButton + Tag = 65 + Left = 204 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 65 + OnMouseDown = KeyMouseDown + end + object Key61: TSpeedButton + Tag = 61 + Left = 158 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 61 + OnMouseDown = KeyMouseDown + end + object Key63: TSpeedButton + Tag = 63 + Left = 178 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 63 + OnMouseDown = KeyMouseDown + end + object Key67: TSpeedButton + Tag = 67 + Left = 224 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 67 + OnMouseDown = KeyMouseDown + end + object Key69: TSpeedButton + Tag = 69 + Left = 244 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 69 + OnMouseDown = KeyMouseDown + end + object Key71: TSpeedButton + Tag = 71 + Left = 264 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 71 + OnMouseDown = KeyMouseDown + end + object Key66: TSpeedButton + Tag = 66 + Left = 218 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 66 + OnMouseDown = KeyMouseDown + end + object Key68: TSpeedButton + Tag = 68 + Left = 238 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 68 + OnMouseDown = KeyMouseDown + end + object Key70: TSpeedButton + Tag = 70 + Left = 258 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 70 + OnMouseDown = KeyMouseDown + end + object Key72: TSpeedButton + Tag = 72 + Left = 284 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 72 + OnMouseDown = KeyMouseDown + end + object Key74: TSpeedButton + Tag = 74 + Left = 304 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 74 + OnMouseDown = KeyMouseDown + end + object Key76: TSpeedButton + Tag = 76 + Left = 324 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 76 + OnMouseDown = KeyMouseDown + end + object Key77: TSpeedButton + Tag = 77 + Left = 344 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 77 + OnMouseDown = KeyMouseDown + end + object Key73: TSpeedButton + Tag = 73 + Left = 298 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 73 + OnMouseDown = KeyMouseDown + end + object Key75: TSpeedButton + Tag = 75 + Left = 318 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 75 + OnMouseDown = KeyMouseDown + end + object Key79: TSpeedButton + Tag = 79 + Left = 364 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 79 + OnMouseDown = KeyMouseDown + end + object Key81: TSpeedButton + Tag = 81 + Left = 384 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 81 + OnMouseDown = KeyMouseDown + end + object Key83: TSpeedButton + Tag = 83 + Left = 404 + Top = 36 + Width = 21 + Height = 97 + AllowAllUp = True + GroupIndex = 83 + OnMouseDown = KeyMouseDown + end + object Key78: TSpeedButton + Tag = 78 + Left = 358 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 78 + OnMouseDown = KeyMouseDown + end + object Key80: TSpeedButton + Tag = 80 + Left = 378 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 80 + OnMouseDown = KeyMouseDown + end + object Key82: TSpeedButton + Tag = 82 + Left = 398 + Top = 36 + Width = 13 + Height = 61 + AllowAllUp = True + GroupIndex = 82 + OnMouseDown = KeyMouseDown + end + object Label1: TLabel + Left = 440 + Top = 36 + Width = 75 + Height = 13 + Caption = 'MIDI Program #' + end + object Label2: TLabel + Left = 8 + Top = 12 + Width = 43 + Height = 13 + Caption = 'MIDI Out' + end + object Label3: TLabel + Left = 8 + Top = 144 + Width = 58 + Height = 13 + Caption = 'Pitch Wheel' + FocusControl = PitchBender + end + object Label4: TLabel + Left = 8 + Top = 184 + Width = 58 + Height = 13 + Caption = 'Mod. Wheel' + FocusControl = ModWheel + end + object MidiProgramNum: TSpinEdit + Left = 440 + Top = 60 + Width = 77 + Height = 22 + MaxValue = 127 + MinValue = 0 + TabOrder = 0 + Value = 0 + OnChange = MidiProgramNumChange + end + object PitchBender: TTrackBar + Left = 72 + Top = 136 + Width = 441 + Height = 33 + Hint = 'Pitch bender' + Max = 8191 + Min = -8192 + Orientation = trHorizontal + PageSize = 256 + Frequency = 2048 + Position = 0 + SelEnd = 0 + SelStart = 0 + TabOrder = 1 + TickMarks = tmBottomRight + TickStyle = tsAuto + OnChange = PitchBenderChange + end + object btnAllNotesOff: TButton + Left = 440 + Top = 104 + Width = 75 + Height = 25 + Caption = '&All Notes Off' + TabOrder = 2 + OnClick = btnAllNotesOffClick + end + object cbMidiOutSelect: TComboBox + Left = 68 + Top = 8 + Width = 253 + Height = 21 + Style = csDropDownList + ItemHeight = 13 + TabOrder = 3 + OnChange = cbMidiOutSelectChange + end + object ModWheel: TTrackBar + Left = 73 + Top = 176 + Width = 440 + Height = 33 + Hint = 'Pitch bender' + Max = 16383 + Orientation = trHorizontal + PageSize = 256 + Frequency = 2048 + Position = 0 + SelEnd = 0 + SelStart = 0 + TabOrder = 4 + TickMarks = tmBottomRight + TickStyle = tsAuto + OnChange = ModWheelChange + end + object KeyMenu: TPopupMenu + Left = 336 + Top = 8 + object TuningItem: TMenuItem + Caption = 'Tuning...' + OnClick = TuningItemClick + end + end +end diff --git a/official/2.1.1/examples/common/multimedia/MidiOutExampleMain.pas b/official/2.1.1/examples/common/multimedia/MidiOutExampleMain.pas new file mode 100644 index 0000000..ed0e4a8 --- /dev/null +++ b/official/2.1.1/examples/common/multimedia/MidiOutExampleMain.pas @@ -0,0 +1,194 @@ +// +// by Robert Rossmair, June 5 2002 +// +unit MidiOutExampleMain; + +interface + +uses + SysUtils, Classes, Controls, Forms, Menus, StdCtrls, ComCtrls, Buttons, Spin, + JclMIDI; + +type + TKeyboard = class(TForm) + Key48: TSpeedButton; + Key49: TSpeedButton; + Key51: TSpeedButton; + Key50: TSpeedButton; + Key55: TSpeedButton; + Key54: TSpeedButton; + Key53: TSpeedButton; + Key52: TSpeedButton; + Key58: TSpeedButton; + Key56: TSpeedButton; + Key59: TSpeedButton; + Key57: TSpeedButton; + MidiProgramNum: TSpinEdit; + Label1: TLabel; + KeyMenu: TPopupMenu; + TuningItem: TMenuItem; + Key72: TSpeedButton; + Key74: TSpeedButton; + Key76: TSpeedButton; + Key77: TSpeedButton; + Key73: TSpeedButton; + Key75: TSpeedButton; + Key79: TSpeedButton; + Key81: TSpeedButton; + Key83: TSpeedButton; + Key78: TSpeedButton; + Key80: TSpeedButton; + Key82: TSpeedButton; + Key60: TSpeedButton; + Key62: TSpeedButton; + Key64: TSpeedButton; + Key65: TSpeedButton; + Key61: TSpeedButton; + Key63: TSpeedButton; + Key67: TSpeedButton; + Key69: TSpeedButton; + Key71: TSpeedButton; + Key66: TSpeedButton; + Key68: TSpeedButton; + Key70: TSpeedButton; + PitchBender: TTrackBar; + btnAllNotesOff: TButton; + cbMidiOutSelect: TComboBox; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + ModWheel: TTrackBar; + procedure FormCreate(Sender: TObject); + procedure KeyMouseDown(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure KeyMouseUp(Sender: TObject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure MidiProgramNumChange(Sender: TObject); + procedure TuningItemClick(Sender: TObject); + procedure PitchBenderChange(Sender: TObject); + procedure KeyClick(Sender: TObject); + procedure btnAllNotesOffClick(Sender: TObject); + procedure cbMidiOutSelectChange(Sender: TObject); + procedure ModWheelChange(Sender: TObject); + private + FMidiOut: IJclMidiOut; + FChannel: TMidiChannel; + Keys: array[TMidiNote] of TSpeedButton; + procedure InitKeyboard; + procedure AllNotesOff; + end; + +var + Keyboard: TKeyboard; + +implementation + +uses MidiOutExampleTuningDlg; + +{$R *.dfm} + +procedure TKeyboard.FormCreate(Sender: TObject); +begin + FChannel := 1; + GetMidiOutputs(cbMidiOutSelect.Items); + cbMidiOutSelect.ItemIndex := 0; + cbMidiOutSelectChange(Self); + InitKeyboard; +end; + +procedure TKeyboard.InitKeyboard; +var + Note: TMidiNote; +begin + for Note := Low(Keys) to High(Keys) do + begin + Keys[Note] := FindComponent(Format('Key%d', [Note])) as TSpeedButton; + if Keys[Note] <> nil then + with Keys[Note] do + begin + PopupMenu := KeyMenu; + Hint := Format('MIDI Note #%d'#13#10'%s', [Tag, MidiNoteToStr(Tag)]); + end; + end; +end; + +procedure TKeyboard.AllNotesOff; +var + Note: TMidiNote; +begin + if Assigned(FMidiOut) then + FMidiOut.SwitchAllNotesOff(FChannel); + for Note := Low(Note) to High(Note) do + if Assigned(Keys[Note]) then + Keys[Note].Down := False; +end; + +procedure TKeyboard.KeyMouseDown(Sender: TObject; + Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + if Button = mbLeft then + if (Sender as TSpeedButton).Down then + FMidiOut.SendNoteOff(FChannel, TComponent(Sender).Tag, 127) + else + FMidiOut.SendNoteOn(FChannel, TComponent(Sender).Tag, 127); +end; + +procedure TKeyboard.KeyMouseUp( + Sender: TObject; + Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + if Button = mbLeft then + FMidiOut.SendNoteOff(FChannel, TComponent(Sender).Tag, 127); +end; + +procedure TKeyboard.MidiProgramNumChange(Sender: TObject); +begin + FMidiOut.SendProgramChange(FChannel, MidiProgramNum.Value); +end; + +procedure TKeyboard.TuningItemClick(Sender: TObject); +begin + with TuningDialog do + begin + MIDIKey.Value := KeyMenu.PopupComponent.Tag; + if ShowModal = mrOK then + FMidiOut.SendSingleNoteTuningChange(0, 0, [MidiSingleNoteTuningData(MIDIKey.Value, MIDIFrequency)]); + end; +end; + +procedure TKeyboard.PitchBenderChange(Sender: TObject); +begin + FMidiOut.SendPitchWheelChange(FChannel, PitchBender.Position + MidiPitchWheelCenter); +end; + +procedure TKeyboard.ModWheelChange(Sender: TObject); +begin + FMidiOut.SendModulationWheelChangeHR(FChannel, ModWheel.Position); +end; + +procedure TKeyboard.KeyClick(Sender: TObject); +begin + with Sender as TSpeedButton do + begin + if Down then + FMidiOut.SendNoteOn(FChannel, TComponent(Sender).Tag, 127) + else + FMidiOut.SendNoteOff(FChannel, TComponent(Sender).Tag, 127); + end; +end; + +procedure TKeyboard.btnAllNotesOffClick(Sender: TObject); +begin + AllNotesOff; +end; + +procedure TKeyboard.cbMidiOutSelectChange(Sender: TObject); +begin + AllNotesOff; + FMidiOut := MidiOut(cbMidiOutSelect.ItemIndex); + FMidiOut.SendProgramChange(FChannel, MidiProgramNum.Value); +end; + +end. + diff --git a/official/2.1.1/examples/common/multimedia/MidiOutExampleTuningDlg.dfm b/official/2.1.1/examples/common/multimedia/MidiOutExampleTuningDlg.dfm new file mode 100644 index 0000000..f35bbc4 --- /dev/null +++ b/official/2.1.1/examples/common/multimedia/MidiOutExampleTuningDlg.dfm @@ -0,0 +1,102 @@ +object TuningDialog: TTuningDialog + Left = 245 + Top = 108 + BorderStyle = bsDialog + Caption = 'Tuning' + ClientHeight = 177 + ClientWidth = 313 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object Bevel1: TBevel + Left = 8 + Top = 8 + Width = 297 + Height = 117 + Shape = bsFrame + end + object MIDIFreqLabel: TLabel + Left = 36 + Top = 56 + Width = 110 + Height = 13 + Caption = '&MIDI relative frequency' + end + object FreqLabel: TLabel + Left = 36 + Top = 84 + Width = 84 + Height = 13 + Caption = 'Frequency [Hertz]' + end + object MIDIKeyLabel: TLabel + Left = 36 + Top = 28 + Width = 81 + Height = 13 + Caption = 'MIDI key number' + end + object NoteLabel: TLabel + Left = 224 + Top = 28 + Width = 49 + Height = 13 + Caption = 'NoteLabel' + end + object OKBtn: TButton + Left = 79 + Top = 140 + Width = 75 + Height = 25 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 0 + end + object CancelBtn: TButton + Left = 159 + Top = 140 + Width = 75 + Height = 25 + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end + object MIDIFreq: TEdit + Left = 156 + Top = 52 + Width = 121 + Height = 21 + TabOrder = 2 + OnChange = MIDIFreqChange + OnExit = MIDIFreqExit + end + object FreqHertz: TEdit + Left = 156 + Top = 80 + Width = 121 + Height = 21 + TabOrder = 3 + OnChange = FreqHertzChange + OnExit = FreqHertzExit + end + object MIDIKey: TSpinEdit + Left = 156 + Top = 24 + Width = 53 + Height = 22 + MaxValue = 127 + MinValue = 0 + TabOrder = 4 + Value = 0 + OnChange = MIDIKeyChange + end +end diff --git a/official/2.1.1/examples/common/multimedia/MidiOutExampleTuningDlg.pas b/official/2.1.1/examples/common/multimedia/MidiOutExampleTuningDlg.pas new file mode 100644 index 0000000..7de83f5 --- /dev/null +++ b/official/2.1.1/examples/common/multimedia/MidiOutExampleTuningDlg.pas @@ -0,0 +1,170 @@ +// +// Robert Rossmair, 2002 +// +unit MidiOutExampleTuningDlg; + +{$I jcl.inc} + +interface + +uses + Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, + Buttons, ExtCtrls, Spin, + JclMath, JclMidi; + +type + TTuningDialog = class(TForm) + OKBtn: TButton; + CancelBtn: TButton; + Bevel1: TBevel; + MIDIFreq: TEdit; + FreqHertz: TEdit; + MIDIFreqLabel: TLabel; + FreqLabel: TLabel; + MIDIKey: TSpinEdit; + MIDIKeyLabel: TLabel; + NoteLabel: TLabel; + procedure MIDIKeyChange(Sender: TObject); + procedure MIDIFreqChange(Sender: TObject); + procedure FreqHertzChange(Sender: TObject); + procedure MIDIFreqExit(Sender: TObject); + procedure FreqHertzExit(Sender: TObject); + private + FInMIDIFreqChange: Boolean; + FInFreqHertzChange: Boolean; + FChangingFrequency: Boolean; + FChangingMidiFrequency: Boolean; + FFrequency: Single; + FMidiFrequency: Single; + procedure SetFrequency(Value: Single); + procedure SetMidiFrequency(Value: Single); + public + property Frequency: Single read FFrequency write SetFrequency; // Hertz + property MidiFrequency: Single read FMidiFrequency write SetMidiFrequency; + end; + +var + TuningDialog: TTuningDialog; + +implementation + +{$R *.dfm} + +const + HalftonesPerOctave = 12; + MiddleA = 440.0; // Hertz + MidiMiddleA = 69; // A3 = 440 Hertz + Digits = 6; + MIDIFreqMax = 127.99993896; + FreqHertzMin = 8.17579892; + FreqHertzMax = 13289.70346552; + +function Hertz(MIDINote: Extended): Extended; +begin + Hertz := TwoToY((MIDINote - MidiMiddleA) / HalftonesPerOctave) * MiddleA; +end; + +function MIDINote(Hertz: Extended): Extended; +begin + if Hertz < 1.0 then + MIDINote := Low(Integer) + else + MIDINote := LogBase2(Hertz / MiddleA) * HalftonesPerOctave + MidiMiddleA; +end; + +procedure TTuningDialog.MIDIKeyChange(Sender: TObject); +begin + MIDIFrequency := MIDIKey.Value; + NoteLabel.Caption := MidiNoteToStr(MIDIKey.Value); +end; + +procedure TTuningDialog.MIDIFreqChange(Sender: TObject); +var + F: Extended; +begin + if FInFreqHertzChange or (MIDIFreq.Text = '') then + Exit; + FInMIDIFreqChange := True; + try + {$IFDEF COMPILER6_UP} + if TryStrToFloat(MidiFreq.Text, F) then + {$ELSE} + if TextToFloat(PChar(MidiFreq.Text), F, fvExtended) then + {$ENDIF COMPILER6_UP} + MidiFrequency := F; + finally + FInMIDIFreqChange := False; + end; +end; + +procedure TTuningDialog.FreqHertzChange(Sender: TObject); +var + F: Extended; +begin + if FInMIDIFreqChange or (FreqHertz.Text = '') then + Exit; + FInFreqHertzChange := True; + try + {$IFDEF COMPILER6_UP} + if TryStrToFloat(FreqHertz.Text, F) then + {$ELSE} + if TextToFloat(PChar(FreqHertz.Text), F, fvExtended) then + {$ENDIF COMPILER6_UP} + Frequency := F; + finally + FInFreqHertzChange := False; + end; +end; + +procedure TTuningDialog.SetFrequency(Value: Single); +begin + if FChangingFrequency or (Value = Frequency) then + Exit; + FChangingFrequency := True; + try + if Value < FreqHertzMin then + Value := FreqHertzMin + else + if Value > FreqHertzMax then + Value := FreqHertzMax; + FFrequency := Value; + if not FInFreqHertzChange then + FreqHertz.Text := FloatToStrF(Value, ffFixed, 9, Digits); + MidiFrequency := MIDINote(Value); + finally + FChangingFrequency := False; + end; +end; + +procedure TTuningDialog.SetMidiFrequency(Value: Single); +begin + if FChangingMidiFrequency then + // or (Value = MidiFrequency) then + Exit; + if Value < 0 then + Value := 0 + else + if Value > MidiFreqMax then + Value := MidiFreqMax; + FChangingMidiFrequency := True; + try + FMidiFrequency := Value; + if not FInMidiFreqChange then + MIDIFreq.Text := FloatToStrF(Value, ffFixed, 9, Digits); + Frequency := Hertz(Value); + finally + FChangingMidiFrequency := False; + end; +end; + +procedure TTuningDialog.MIDIFreqExit(Sender: TObject); +begin + MIDIFreq.Text := FloatToStrF(MidiFrequency, ffFixed, 9, Digits); +end; + +procedure TTuningDialog.FreqHertzExit(Sender: TObject); +begin + FreqHertz.Text := FloatToStrF(Frequency, ffFixed, 9, Digits); +end; + +end. diff --git a/official/2.1.1/examples/common/numformat/NumFormatExample.dof b/official/2.1.1/examples/common/numformat/NumFormatExample.dof new file mode 100644 index 0000000..d447a0b --- /dev/null +++ b/official/2.1.1/examples/common/numformat/NumFormatExample.dof @@ -0,0 +1,2 @@ +[Directories] +OutputDir=../../../bin diff --git a/official/2.1.1/examples/common/numformat/NumFormatExample.dpr b/official/2.1.1/examples/common/numformat/NumFormatExample.dpr new file mode 100644 index 0000000..7b7e548 --- /dev/null +++ b/official/2.1.1/examples/common/numformat/NumFormatExample.dpr @@ -0,0 +1,16 @@ +program NumFormatExample; + +{$I jcl.inc} + +uses + Forms, + NumFormatExampleMain in 'NumFormatExampleMain.pas' {MainForm}; + +{$R *.res} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TMainForm, MainForm); + Application.Run; +end. diff --git a/official/2.1.1/examples/common/numformat/NumFormatExample.res b/official/2.1.1/examples/common/numformat/NumFormatExample.res new file mode 100644 index 0000000000000000000000000000000000000000..ff24fa70c6a61f1121dd5a43dd91ace8c388f935 GIT binary patch literal 876 zcmd^8F%H5o47>nR7X%&H>Bz_r05LHDU&_DIp?mWPMn*;kq;R%dg$f2H7OY;JyR+3O ztpT7SQZjHmi0i2L$EwrQkA)>9T!WhzT)=oT+ik~|6g)` zBHp6jpWOz9kh$H7a;eE7f5rpY+=1l{mW1 literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/common/numformat/NumFormatExampleMain.dfm b/official/2.1.1/examples/common/numformat/NumFormatExampleMain.dfm new file mode 100644 index 0000000..dc8d155 --- /dev/null +++ b/official/2.1.1/examples/common/numformat/NumFormatExampleMain.dfm @@ -0,0 +1,208 @@ +object MainForm: TMainForm + Left = 234 + Top = 223 + Width = 800 + Height = 581 + ActiveControl = ValueEdit + Caption = 'TJclNumericFormat Example' + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + object Label1: TLabel + Left = 8 + Top = 12 + Width = 78 + Height = 15 + Caption = 'Decimal value' + end + object Label2: TLabel + Left = 320 + Top = 12 + Width = 52 + Height = 15 + Caption = 'Precision' + end + object ValueEdit: TEdit + Left = 100 + Top = 8 + Width = 149 + Height = 23 + TabOrder = 0 + Text = '123456789' + OnChange = ValueEditChange + end + object EvalBtn: TButton + Left = 704 + Top = 8 + Width = 75 + Height = 25 + Caption = 'Evaluate' + TabOrder = 8 + OnClick = EvalBtnClick + end + object RandBtn: TButton + Left = 704 + Top = 36 + Width = 75 + Height = 25 + Caption = 'Random' + TabOrder = 9 + OnClick = RandBtnClick + end + object PrecisionEdit: TSpinEdit + Left = 380 + Top = 8 + Width = 81 + Height = 23 + MaxValue = 64 + MinValue = 1 + TabOrder = 1 + Value = 9 + OnChange = PrecisionEditChange + end + object Output: TMemo + Left = 0 + Top = 120 + Width = 800 + Height = 461 + Align = alBottom + Anchors = [akLeft, akTop, akRight, akBottom] + Font.Color = clBlack + Font.Height = 16 + Font.Name = 'Courier' + ParentFont = False + ScrollBars = ssAutoBoth + TabOrder = 12 + WordWrap = False + end + object BlockSeparatorSelector: TComboBox + Left = 632 + Top = 36 + Width = 57 + Height = 23 + Style = csDropDownList + ItemHeight = 17 + Items.Strings = ( + ',' + ' ' + '|') + ItemIndex = 0 + TabOrder = 13 + Text = ',' + OnChange = BlockSeparatorSelectorChange + end + object Label3: TLabel + Left = 504 + Top = 40 + Width = 109 + Height = 15 + Caption = 'DigitBlockSeparator' + end + object Label4: TLabel + Left = 504 + Top = 68 + Width = 78 + Height = 15 + Caption = 'DigitBlockSize' + end + object BlockSizeEdit: TSpinEdit + Left = 632 + Top = 64 + Width = 57 + Height = 23 + TabOrder = 7 + Value = 3 + OnChange = BlockSizeEditChange + end + object cbShowPlusSign: TCheckBox + Left = 100 + Top = 32 + Width = 149 + Height = 31 + Caption = 'Show plus sign' + TabOrder = 10 + OnClick = cbShowPlusSignClick + end + object Label5: TLabel + Left = 276 + Top = 68 + Width = 95 + Height = 15 + Caption = 'ExponentDivision' + end + object ExpDivisionEdit: TSpinEdit + Left = 380 + Top = 64 + Width = 81 + Height = 23 + MaxValue = 12 + MinValue = 1 + TabOrder = 3 + Value = 3 + OnChange = ExpDivisionEditChange + end + object WidthEdit: TSpinEdit + Left = 380 + Top = 92 + Width = 81 + Height = 23 + TabOrder = 4 + Value = 4 + OnChange = WidthEditChange + end + object Label6: TLabel + Left = 340 + Top = 96 + Width = 31 + Height = 15 + Caption = 'Width' + end + object cbZeroPadding: TCheckBox + Left = 100 + Top = 64 + Width = 149 + Height = 30 + Caption = 'Zero padding' + TabOrder = 11 + OnClick = cbZeroPaddingClick + end + object Label7: TLabel + Left = 504 + Top = 12 + Width = 49 + Height = 15 + Caption = 'Multiplier' + end + object MultiplierSelector: TComboBox + Left = 632 + Top = 8 + Width = 57 + Height = 23 + Style = csDropDownList + ItemHeight = 17 + Items.Strings = ( + #215 + '*') + ItemIndex = 0 + TabOrder = 18 + Text = #215 + OnChange = MultiplierSelectorChange + end + object Label8: TLabel + Left = 260 + Top = 40 + Width = 111 + Height = 15 + Caption = 'Fractional part digits' + end + object FractionDigitsEdit: TSpinEdit + Left = 380 + Top = 36 + Width = 81 + Height = 23 + MaxValue = 64 + TabOrder = 2 + Value = 6 + OnChange = FractionDigitsEditChange + end +end diff --git a/official/2.1.1/examples/common/numformat/NumFormatExampleMain.pas b/official/2.1.1/examples/common/numformat/NumFormatExampleMain.pas new file mode 100644 index 0000000..60721ff --- /dev/null +++ b/official/2.1.1/examples/common/numformat/NumFormatExampleMain.pas @@ -0,0 +1,221 @@ +unit NumFormatExampleMain; + +interface + +uses + Math, SysUtils, Classes, + Windows, Graphics, Controls, Forms, StdCtrls, ComCtrls, Spin, + JclSysUtils; + +type + TMainForm = class(TForm) + ValueEdit: TEdit; + EvalBtn: TButton; + Label1: TLabel; + RandBtn: TButton; + PrecisionEdit: TSpinEdit; + Label2: TLabel; + Output: TMemo; + BlockSeparatorSelector: TComboBox; + Label3: TLabel; + Label4: TLabel; + BlockSizeEdit: TSpinEdit; + cbShowPlusSign: TCheckBox; + Label5: TLabel; + ExpDivisionEdit: TSpinEdit; + WidthEdit: TSpinEdit; + Label6: TLabel; + cbZeroPadding: TCheckBox; + Label7: TLabel; + MultiplierSelector: TComboBox; + Label8: TLabel; + FractionDigitsEdit: TSpinEdit; + procedure EvalBtnClick(Sender: TObject); + procedure RandBtnClick(Sender: TObject); + procedure ValueEditChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure BlockSizeEditChange(Sender: TObject; NewValue: Integer); + procedure BlockSeparatorSelectorChange(Sender: TObject); + procedure PrecisionEditChange(Sender: TObject; NewValue: Integer); + procedure cbShowPlusSignClick(Sender: TObject); + procedure ExpDivisionEditChange(Sender: TObject; NewValue: Integer); + procedure WidthEditChange(Sender: TObject; NewValue: Integer); + procedure cbZeroPaddingClick(Sender: TObject); + procedure MultiplierSelectorChange(Sender: TObject); + procedure FractionDigitsEditChange(Sender: TObject; + NewValue: Integer); + private + { Private declarations } + FNumFormat: TJclNumericFormat; + procedure Display; + public + { Public declarations } + end; + +var + MainForm: TMainForm; + +implementation + +{$R *.dfm} + +procedure TMainForm.FormCreate(Sender: TObject); +begin + FNumFormat := TJclNumericFormat.Create; + FNumFormat.ExponentDivision := ExpDivisionEdit.Value; + FNumFormat.NumberOfFractionalDigits := FractionDigitsEdit.Value; + FNumFormat.Width := WidthEdit.Value; + FNumFormat.DigitBlockSize := BlockSizeEdit.Value; + BlockSeparatorSelector.Items[0] := FNumFormat.DigitBlockSeparator; + Display; +end; + +procedure TMainForm.FormDestroy(Sender: TObject); +begin + FNumFormat.Free; +end; + +procedure TMainForm.Display; +var + Base: TNumericSystemBase; + S, Mantissa: string; + Exponent: Integer; + X: Extended; + {$IFDEF COMPILER6_UP} + C: TPoint; + {$ENDIF COMPILER6_UP} +begin + if not Assigned(FNumFormat) then + Exit; + X := StrToFloat(ValueEdit.Text); + FNumFormat.Precision := PrecisionEdit.Value; + Output.Lines.BeginUpdate; + try + Output.Lines.Clear; + for Base := Low(TNumericSystemBase) to High(TNumericSystemBase) do + begin + FNumFormat.Base := Base; + FNumFormat.GetMantissaExp(X, Mantissa, Exponent); + if Exponent = 0 then + S := Mantissa + else + S := Format('%s %s %d^%d', [Mantissa, FNumFormat.Multiplier, Base, Exponent]); + Output.Lines.Add(Format('Base %2d: %s', [Base, S])); + end; + {$IFDEF COMPILER6_UP} + C.X := 0; + C.Y := 0; + Output.CaretPos := C; + {$ENDIF COMPILER6_UP} + finally + Output.Lines.EndUpdate; + end; +end; + +procedure TMainForm.EvalBtnClick(Sender: TObject); +begin + Display; +end; + +procedure TMainForm.RandBtnClick(Sender: TObject); +begin + ValueEdit.Text := FloatToStr(Power(Random * 4 -2, Random(400))); + EvalBtn.Enabled := False; + Display; +end; + +procedure TMainForm.ValueEditChange(Sender: TObject); +begin + EvalBtn.Enabled := True; +end; + +procedure TMainForm.BlockSizeEditChange(Sender: TObject; NewValue: Integer); +begin + if Assigned(FNumFormat) then + begin + FNumFormat.DigitBlockSize := BlockSizeEdit.Value; + Display; + end; +end; + +procedure TMainForm.BlockSeparatorSelectorChange(Sender: TObject); +begin + if Assigned(FNumFormat) then + begin + FNumFormat.DigitBlockSeparator := Char(BlockSeparatorSelector.Text[1]); + Display; + end; +end; + +procedure TMainForm.PrecisionEditChange(Sender: TObject; NewValue: Integer); +begin + if Assigned(FNumFormat) then + begin + FNumFormat.Precision := PrecisionEdit.Value; + Display; + end; +end; + +procedure TMainForm.cbShowPlusSignClick(Sender: TObject); +begin + if Assigned(FNumFormat) then + begin + FNumFormat.ShowPositiveSign := cbShowPlusSign.Checked; + Display; + end; +end; + +procedure TMainForm.ExpDivisionEditChange(Sender: TObject; + NewValue: Integer); +begin + if Assigned(FNumFormat) then + begin + FNumFormat.ExponentDivision := ExpDivisionEdit.Value; + Display; + end; +end; + +procedure TMainForm.WidthEditChange(Sender: TObject; NewValue: Integer); +begin + if Assigned(FNumFormat) then + begin + FNumFormat.Width := WidthEdit.Value; + Display; + end; +end; + +procedure TMainForm.cbZeroPaddingClick(Sender: TObject); +begin + if Assigned(FNumFormat) then + begin + if cbZeroPadding.Checked then + FNumFormat.PaddingChar := '0' + else + FNumFormat.PaddingChar := ' '; + Display; + end; +end; + +procedure TMainForm.MultiplierSelectorChange(Sender: TObject); +begin + if Assigned(FNumFormat) then + begin + FNumFormat.Multiplier := MultiplierSelector.Text; + Display; + end; +end; + +procedure TMainForm.FractionDigitsEditChange(Sender: TObject; + NewValue: Integer); +begin + if Assigned(FNumFormat) then + begin + FNumFormat.NumberOfFractionalDigits := FractionDigitsEdit.Value; + Display; + end; +end; + +initialization + Randomize; +end. diff --git a/official/2.1.1/examples/common/pcre/PCREDemo.dof b/official/2.1.1/examples/common/pcre/PCREDemo.dof new file mode 100644 index 0000000..abe45c2 --- /dev/null +++ b/official/2.1.1/examples/common/pcre/PCREDemo.dof @@ -0,0 +1,2 @@ +[Directories] +OutputDir=..\..\..\bin diff --git a/official/2.1.1/examples/common/pcre/PCREDemo.dpr b/official/2.1.1/examples/common/pcre/PCREDemo.dpr new file mode 100644 index 0000000..94dfc52 --- /dev/null +++ b/official/2.1.1/examples/common/pcre/PCREDemo.dpr @@ -0,0 +1,17 @@ +program PCREDemo; + +{$I jcl.inc} + +uses + Forms, + PCREDemoMain in 'PCREDemoMain.pas' {frmMain}; + +{$R *.res} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.Title := 'JclPCRE Demo'; + Application.CreateForm(TfrmMain, frmMain); + Application.Run; +end. diff --git a/official/2.1.1/examples/common/pcre/PCREDemo.res b/official/2.1.1/examples/common/pcre/PCREDemo.res new file mode 100644 index 0000000000000000000000000000000000000000..ff24fa70c6a61f1121dd5a43dd91ace8c388f935 GIT binary patch literal 876 zcmd^8F%H5o47>nR7X%&H>Bz_r05LHDU&_DIp?mWPMn*;kq;R%dg$f2H7OY;JyR+3O ztpT7SQZjHmi0i2L$EwrQkA)>9T!WhzT)=oT+ik~|6g)` zBHp6jpWOz9kh$H7a;eE7f5rpY+=1l{mW1 literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/common/pcre/PCREDemoMain.dfm b/official/2.1.1/examples/common/pcre/PCREDemoMain.dfm new file mode 100644 index 0000000..6fae74a --- /dev/null +++ b/official/2.1.1/examples/common/pcre/PCREDemoMain.dfm @@ -0,0 +1,233 @@ +object frmMain: TfrmMain + Left = 300 + Top = 115 + ClientWidth = 462 + ClientHeight = 334 + Caption = 'JclPCRE Demo' + Color = clBtnFace + Constraints.MinHeight = 370 + Constraints.MinWidth = 470 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Shell Dlg 2' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 12 + Top = 10 + Width = 96 + Height = 13 + Caption = 'Reg&ular Expression:' + FocusControl = edRegExpr + end + object edRegExpr: TEdit + Left = 12 + Top = 24 + Width = 271 + Height = 21 + Anchors = [akLeft, akTop, akRight] + TabOrder = 0 + OnChange = edRegExprChange + end + object btnFind: TButton + Left = 292 + Top = 24 + Width = 75 + Height = 25 + Action = acFind + Anchors = [akTop, akRight] + TabOrder = 1 + end + object btnFindNext: TButton + Left = 370 + Top = 24 + Width = 75 + Height = 25 + Action = acFindNext + Anchors = [akTop, akRight] + TabOrder = 2 + end + object reFile: TMemo + Left = 12 + Top = 54 + Width = 437 + Height = 180 + Anchors = [akLeft, akTop, akRight, akBottom] + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'Courier New' + Font.Style = [] + HideSelection = False + ParentFont = False + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 3 + WantReturns = False + WordWrap = False + end + object btnOpen: TButton + Left = 364 + Top = 294 + Width = 75 + Height = 25 + Action = acOpen + Anchors = [akRight, akBottom] + TabOrder = 4 + end + object chkIgnoreCase: TCheckBox + Left = 18 + Top = 244 + Width = 97 + Height = 17 + Anchors = [akLeft, akBottom] + Caption = '&Ignore Case' + Checked = True + State = cbChecked + TabOrder = 5 + end + object chkMultiLine: TCheckBox + Left = 18 + Top = 262 + Width = 97 + Height = 17 + Anchors = [akLeft, akBottom] + Caption = '&Multi Line' + Checked = True + State = cbChecked + TabOrder = 6 + end + object chkDotAll: TCheckBox + Left = 18 + Top = 280 + Width = 97 + Height = 17 + Anchors = [akLeft, akBottom] + Caption = '&Dot All' + TabOrder = 7 + end + object chkExtended: TCheckBox + Left = 18 + Top = 298 + Width = 97 + Height = 17 + Anchors = [akLeft, akBottom] + Caption = '&Extended' + TabOrder = 8 + end + object chkAnchored: TCheckBox + Left = 132 + Top = 244 + Width = 97 + Height = 17 + Anchors = [akLeft, akBottom] + Caption = '&Anchored' + TabOrder = 9 + end + object chkDollarEndOnly: TCheckBox + Left = 132 + Top = 262 + Width = 97 + Height = 17 + Anchors = [akLeft, akBottom] + Caption = 'Dollar End Onl&y' + TabOrder = 10 + end + object chkExtra: TCheckBox + Left = 132 + Top = 280 + Width = 97 + Height = 17 + Anchors = [akLeft, akBottom] + Caption = 'Ex&tra' + TabOrder = 11 + end + object chkNotBOL: TCheckBox + Left = 132 + Top = 298 + Width = 97 + Height = 17 + Anchors = [akLeft, akBottom] + Caption = 'Not &BOL' + TabOrder = 12 + end + object chkNotEOL: TCheckBox + Left = 246 + Top = 244 + Width = 97 + Height = 17 + Anchors = [akLeft, akBottom] + Caption = 'Not EO&L' + TabOrder = 13 + end + object chkUnGreedy: TCheckBox + Left = 246 + Top = 262 + Width = 97 + Height = 17 + Anchors = [akLeft, akBottom] + Caption = '&Ungreedy' + Checked = True + State = cbChecked + TabOrder = 14 + end + object chkNotEmpty: TCheckBox + Left = 246 + Top = 280 + Width = 97 + Height = 17 + Anchors = [akLeft, akBottom] + Caption = 'Not Em&pty' + Checked = True + State = cbChecked + TabOrder = 15 + end + object chkUTF8: TCheckBox + Left = 246 + Top = 298 + Width = 97 + Height = 17 + Anchors = [akLeft, akBottom] + Caption = 'UTF&8' + TabOrder = 16 + end + object sbMain: TStatusBar + Left = 0 + Top = 324 + Width = 462 + Height = 19 + Panels = < + item + Width = 50 + end> + SimplePanel = False + end + object alMain: TActionList + Left = 144 + Top = 102 + object acFind: TAction + Caption = '&Find' + ShortCut = 16454 + OnExecute = acFindExecute + end + object acFindNext: TAction + Caption = 'Find &Next' + ShortCut = 114 + OnExecute = acFindNextExecute + end + object acOpen: TAction + Caption = '&Open...' + ShortCut = 16463 + OnExecute = acOpenExecute + end + end + object odOpen: TOpenDialog + Left = 240 + Top = 120 + end +end diff --git a/official/2.1.1/examples/common/pcre/PCREDemoMain.pas b/official/2.1.1/examples/common/pcre/PCREDemoMain.pas new file mode 100644 index 0000000..ed0f523 --- /dev/null +++ b/official/2.1.1/examples/common/pcre/PCREDemoMain.pas @@ -0,0 +1,200 @@ +unit PCREDemoMain; + +interface + +uses + Windows, Messages, + SysUtils, Classes, Forms, Dialogs, ActnList, ComCtrls, StdCtrls, Controls, + JclPCRE; + +type + TfrmMain = class(TForm) + edRegExpr: TEdit; + btnFind: TButton; + btnFindNext: TButton; + Label1: TLabel; + reFile: TMemo; + btnOpen: TButton; + alMain: TActionList; + acFind: TAction; + acFindNext: TAction; + acOpen: TAction; + odOpen: TOpenDialog; + chkIgnoreCase: TCheckBox; + chkMultiLine: TCheckBox; + chkDotAll: TCheckBox; + chkExtended: TCheckBox; + chkAnchored: TCheckBox; + chkDollarEndOnly: TCheckBox; + chkExtra: TCheckBox; + chkNotBOL: TCheckBox; + chkNotEOL: TCheckBox; + chkUnGreedy: TCheckBox; + chkNotEmpty: TCheckBox; + chkUTF8: TCheckBox; + sbMain: TStatusBar; + procedure acOpenExecute(Sender: TObject); + procedure acFindExecute(Sender: TObject); + procedure acFindNextExecute(Sender: TObject); + procedure edRegExprChange(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormCreate(Sender: TObject); + + private + { Private declarations } + RE: TJclRegEx; + FMatchIndex: integer; + procedure SelectText(Range: TJclCaptureRange); + procedure Match; + function GetUIOptions: TJclRegExOptions; + procedure UpdateUIOptions; + procedure LoadFromFile(const Filename:string); + protected + procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES; + public + { Public declarations } + end; + +var + frmMain: TfrmMain; + +implementation +uses + ShellAPI; + +{$R *.dfm} + +procedure TfrmMain.acOpenExecute(Sender: TObject); +begin + if odOpen.Execute then + LoadFromFile(odOpen.Filename); +end; + +procedure TfrmMain.acFindExecute(Sender: TObject); +begin + FreeAndNil(RE); + RE := TJclRegEx.Create; + RE.Options := GetUIOptions; + RE.Compile(edRegExpr.Text, false, false); + FMatchIndex := 1; + Match; +end; + +procedure TfrmMain.acFindNextExecute(Sender: TObject); +begin + if RE = nil then + acFind.Execute + else + Match; +end; + +procedure TfrmMain.SelectText(Range: TJclCaptureRange); +begin + reFile.SelStart := Range.FirstPos - 1; + reFile.SelLength := Range.LastPos - Range.FirstPos + 1; +end; + +procedure TfrmMain.Match; +begin + RE.Options := GetUIOptions; + if not RE.Match(reFile.Lines.Text, FMatchIndex) then + begin + FreeAndNil(RE); + MessageDlg('No matches found', mtInformation, [mbOK], 0); + end + else + begin + SelectText(RE.CaptureRanges[0]); + FMatchIndex := RE.CaptureRanges[0].LastPos + 1; + end; + UpdateUIOptions; +end; + +function TfrmMain.GetUIOptions: TJclRegExOptions; +begin + Result := []; + if chkIgnoreCase.Checked then + Include(Result, roIgnoreCase); + if chkMultiLine.Checked then + Include(Result, roMultiLine); + if chkDotAll.Checked then + Include(Result, roDotAll); + if chkExtended.Checked then + Include(Result, roExtended); + if chkAnchored.Checked then + Include(Result, roAnchored); + if chkDollarEndOnly.Checked then + Include(Result, roDollarEndOnly); + if chkExtra.Checked then + Include(Result, roExtra); + if chkNotBOL.Checked then + Include(Result, roNotBOL); + if chkNotEOL.Checked then + Include(Result, roNotEOL); + if chkUngreedy.Checked then + Include(Result, roUnGreedy); + if chkNotEmpty.Checked then + Include(Result, roNotEmpty); + if chkUTF8.Checked then + Include(Result, roUTF8); +end; + +procedure TfrmMain.UpdateUIOptions; +var + Options: TJclRegExOptions; +begin + if RE = nil then Exit; + Options := RE.Options; + chkIgnoreCase.Checked := roIgnoreCase in Options; + chkMultiLine.Checked := roMultiLine in Options; + chkDotAll.Checked := roDotAll in Options; + chkExtended.Checked := roExtended in Options; + chkAnchored.Checked := roAnchored in Options; + chkDollarEndOnly.Checked := roDollarEndOnly in Options; + chkExtra.Checked := roExtra in Options; + chkNotBOL.Checked := roNotBOL in Options; + chkNotEOL.Checked := roNotEOL in Options; + chkUngreedy.Checked := roUnGreedy in Options; + chkNotEmpty.Checked := roNotEmpty in Options; + chkUTF8.Checked := roUTF8 in Options; +end; + +procedure TfrmMain.edRegExprChange(Sender: TObject); +begin + FreeAndNil(RE); +end; + +procedure TfrmMain.FormDestroy(Sender: TObject); +begin + FreeAndNil(RE); +end; + +procedure TfrmMain.FormCreate(Sender: TObject); +begin + DragAcceptFiles(Handle, True); +end; + +procedure TfrmMain.WMDropFiles(var Message: TWMDropFiles); +var + i:integer; + buf:array [0..MAX_PATH] of char; +begin + i := DragQueryFile(Message.Drop, $FFFFFFFF, nil, 0); + if i > 0 then + try + DragQueryFile(Message.Drop, 0, buf, sizeof(buf)); + if FileExists(buf) then + LoadFromFile(buf); + finally + DragFinish(Message.Drop); + end; +end; + +procedure TfrmMain.LoadFromFile(const Filename: string); +begin + reFile.Lines.LoadFromFile(Filename); + sbMain.Panels[0].Text := ' ' + Filename; +end; + +end. + diff --git a/official/2.1.1/examples/common/rtti/RTTIDemoMain.dfm b/official/2.1.1/examples/common/rtti/RTTIDemoMain.dfm new file mode 100644 index 0000000..dd998b3 --- /dev/null +++ b/official/2.1.1/examples/common/rtti/RTTIDemoMain.dfm @@ -0,0 +1,71 @@ +object Form1: TForm1 + Left = 98 + Top = 153 + ClientWidth = 967 + ClientHeight = 440 + 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 + object mmResult: TMemo + Left = 0 + Top = 0 + Width = 967 + Height = 411 + Anchors = [akLeft, akTop, akRight, akBottom] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Lucida Console' + Font.Style = [] + ParentFont = False + ScrollBars = ssVertical + TabOrder = 0 + end + object Button1: TButton + Left = 0 + Top = 414 + Width = 75 + Height = 25 + Anchors = [akLeft, akBottom] + Caption = 'Type info' + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 80 + Top = 414 + Width = 75 + Height = 25 + Anchors = [akLeft, akBottom] + Caption = 'Conversions' + TabOrder = 2 + OnClick = Button2Click + end + object Button3: TButton + Left = 160 + Top = 414 + Width = 75 + Height = 25 + Anchors = [akLeft, akBottom] + Caption = 'Declarations' + TabOrder = 3 + OnClick = Button3Click + end + object Button4: TButton + Left = 240 + Top = 414 + Width = 75 + Height = 25 + Anchors = [akLeft, akBottom] + Caption = 'Custom types' + TabOrder = 4 + OnClick = Button4Click + end +end diff --git a/official/2.1.1/examples/common/rtti/RTTIDemoMain.pas b/official/2.1.1/examples/common/rtti/RTTIDemoMain.pas new file mode 100644 index 0000000..d87c17f --- /dev/null +++ b/official/2.1.1/examples/common/rtti/RTTIDemoMain.pas @@ -0,0 +1,331 @@ +unit RTTIDemoMain; + +interface + +{$I jcl.inc} + +uses + SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; + +type + TForm1 = class(TForm) + mmResult: TMemo; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Button4: TButton; + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + Form1: TForm1; + +implementation + +{$R *.dfm} + +uses + JclSysUtils, JclRTTI, TypInfo; + +type + TDifficultEvent = procedure(const Sender: TObject; var I: Integer; out Stuff; + IntArr: array of Integer; const VarArray: array of const) of object; + + TLargeEnum = ( + le001, le002, le003, le004, le005, le006, le007, le008, le009, le010, + le011, le012, le013, le014, le015, le016, le017, le018, le019, le020, + le021, le022, le023, le024, le025, le026, le027, le028, le029, le030, + le031, le032, le033, le034, le035, le036, le037, le038, le039, le040, + le041, le042, le043, le044, le045, le046, le047, le048, le049, le050, + le051, le052, le053, le054, le055, le056, le057, le058, le059, le060, + le061, le062, le063, le064, le065, le066, le067, le068, le069, le070, + le071, le072, le073, le074, le075, le076, le077, le078, le079, le080, + le081, le082, le083, le084, le085, le086, le087, le088, le089, le090, + le091, le092, le093, le094, le095, le096, le097, le098, le099, le100, + le101, le102, le103, le104, le105, le106, le107, le108, le109, le110, + le111, le112, le113, le114, le115, le116, le117, le118, le119, le120, + le121, le122, le123, le124, le125, le126, le127, le128, le129, le130, + le131, le132, le133, le134, le135, le136, le137, le138, le139, le140, + le141, le142, le143, le144, le145, le146, le147, le148, le149, le150, + le151, le152, le153, le154, le155, le156, le157, le158, le159, le160); + + TLargeSet = set of TLargeEnum; + TLargeSubEnum = le019 .. le150; + TLargeSubSet = set of TLargeSubEnum; + + TIntRange = 0 .. 112; + + TSetNoEnum = set of (st01, st02, st03, st04); + TSetOfByte = set of Byte; + TInt2Range = 4..11; + TSetOfIntRange = set of TInt2Range; + + TUpcaseRange = 'A' .. 'Z'; + + TMyDouble = Double; + TMyDouble2 = type Double; + + TIntArray = array of Integer; + TIntArray2 = array of array of Integer; + TEnumArray = array of (ar1, ar2, ar3); + TRecArray = array of record x1: Integer; x2: Integer; end; + TSetArray = array of set of (ars1, ars2, ars3); + TSetArray2 = array of array of array of TSetNoEnum; + TWideStrArray = array of Widestring; + +var + MyEnum: PTypeInfo; + MySubRange: PTypeInfo; + MySet: PTypeInfo; + MyCutLowerEnum: PTypeInfo; + +procedure TForm1.Button1Click(Sender: TObject); +var + Writer: IJclInfoWriter; + +begin + mmResult.Lines.Clear; + Writer := TJclInfoStringsWriter.Create(mmResult.Lines, 72); + JclTypeInfo(TypeInfo(Word)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TIntRange)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TLargeEnum)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TLargeSubEnum)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TLargeSet)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TLargeSubSet)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TSetNoEnum)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TSetOfByte)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TSetOfIntRange)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(Single)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(Double)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(Extended)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(Comp)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(Currency)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(Real)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TDateTime)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TMyDouble)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TMyDouble2)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(ShortString)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TScrollingWinControl)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TDifficultEvent)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(IJclOrdinalRangeTypeInfo)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(Int64)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(Longword)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TIntArray)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TIntArray2)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TEnumArray)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TRecArray)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TSetArray)).WriteTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TSetArray2)).WriteTo(Writer); +end; + +procedure TForm1.Button2Click(Sender: TObject); +var + Writer: IJclInfoWriter; + LargeSubSet: TLargeSubSet; + GUID: TGUID; + +begin + mmResult.Lines.Clear; + Writer := TJclInfoStringsWriter.Create(mmResult.Lines, 72); + Writer.Writeln('Set conversions:'); + Writer.Indent; + try + Writer.Writeln('StrToSet with string=''[le019..le023, le033, le045..le049]'''); + JclStrToSet(TypeInfo(TLargeSubSet), LargeSubSet, '[le019..le023, le033, le045..le049]'); + Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) + ''', with WantRanges=True'); + Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) + ''', with WantRanges=False'); + Writer.Writeln(''); + Writer.Writeln('StrToSet with string='''''); + JclStrToSet(TypeInfo(TLargeSubSet), LargeSubSet, ''); + Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) + ''', with WantRanges=True'); + Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) + ''', with WantRanges=False'); + Writer.Writeln(''); + Writer.Writeln('StrToSet with string=''le019 .. le023,le033 , le045 .. le049 '''); + JclStrToSet(TypeInfo(TLargeSubSet), LargeSubSet, 'le019 .. le023,le033 , le045 .. le049 '); + Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, True) + ''', with WantRanges=True'); + Writer.Writeln('SetToStr of StrToSet = ''' + JclSetToStr(TypeInfo(TLargeSubSet), LargeSubSet, True, False) + ''', with WantRanges=False'); + Writer.Writeln(''); + finally + Writer.Outdent; + end; + Writer.Writeln('GUID conversions:'); + Writer.Indent; + try + Writer.Writeln('GUIDToStr: ' + JclGUIDToString(IJclTypeInfo)); + GUID := JclStringToGUID(JclGUIDToString(IJclTypeInfo)); + Writer.Writeln('StrToGUID: ' + JclGUIDToString(GUID)); + finally + Writer.Outdent; + end; + {$IFDEF COMPILER5_UP} + Writer.Writeln(''); + Writer.Writeln('Integer conversions:'); + Writer.Indent; + try + Writer.Writeln('TypedIntToStr: ' + JclTypedIntToStr(crArrow, TypeInfo(TCursor))); + Writer.Writeln('StrToTypedInt: ' + IntToStr(JclStrToTypedInt('crArrow', TypeInfo(TCursor))) + ' (should be ' + IntToStr(crArrow) + ')'); + Writer.Writeln(''); + Writer.Writeln('TypedIntToStr: ' + JclTypedIntToStr(1, TypeInfo(TCursor))); + Writer.Writeln('StrToTypedInt: ' + IntToStr(JclStrToTypedInt('1', TypeInfo(TCursor))) + ' (should be 1)'); + finally + Writer.Outdent; + end; + {$ENDIF} +end; + +procedure TForm1.Button3Click(Sender: TObject); +var + Writer: IJclInfoWriter; + +begin + mmResult.Lines.Clear; + Writer := TJclInfoStringsWriter.Create(mmResult.Lines, 80); + Writer.Writeln('Declarations:'); + Writer.Indent; + try + JclTypeInfo(TypeInfo(TLargeEnum)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TLargeSubEnum)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TLargeSet)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TSetNoEnum)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(Byte)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TSetOfByte)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(Char)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TUpcaseRange)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TDifficultEvent)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(IJclBaseInfo)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(IJclTypeInfo)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TDateTime)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TMyDouble)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TMyDouble2)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TScrollingWinControl)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TJclInfoWriter)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TPersistent)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TIntArray)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TIntArray2)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TEnumArray)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TRecArray)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TSetArray)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TSetArray2)).DeclarationTo(Writer); + Writer.Writeln(''); + JclTypeInfo(TypeInfo(TWideStrArray)).DeclarationTo(Writer); + finally + Writer.Outdent; + end; +end; + +procedure TForm1.Button4Click(Sender: TObject); +var + Writer: IJclInfoWriter; + +begin + mmResult.Lines.Clear; + Writer := TJclInfoStringsWriter.Create(mmResult.Lines, 80); + Writer.Writeln('JclGenerateEnumType with literals:'); + Writer.Indent; + try + JclTypeInfo(MyEnum).WriteTo(Writer); + Writer.Writeln; + JclTypeInfo(MyEnum).DeclarationTo(Writer); + finally + Writer.Outdent; + end; + Writer.Writeln; + Writer.Writeln('JclGenerateSubRange:'); + Writer.Indent; + try + JclTypeInfo(MySubRange).WriteTo(Writer); + Writer.Writeln; + JclTypeInfo(MySubRange).DeclarationTo(Writer); + finally + Writer.Outdent; + end; + Writer.Writeln; + Writer.Writeln('JclGenerateSetType:'); + Writer.Indent; + try + JclTypeInfo(MySet).WriteTo(Writer); + Writer.Writeln; + JclTypeInfo(MySet).DeclarationTo(Writer); + finally + Writer.Outdent; + end; + Writer.Writeln; + Writer.Writeln('JclGenerateEnumType based on TLargeEnum:'); + Writer.Indent; + try + JclTypeInfo(MyCutLowerEnum).WriteTo(Writer); + Writer.Writeln; + JclTypeInfo(MyCutLowerEnum).DeclarationTo(Writer); + finally + Writer.Outdent; + end; +end; + +initialization + //JclHookIs(JclIsClassByName); + MyEnum := JclGenerateEnumType('MyEnum', ['First value', 'Second value', + 'Third value', 'Fourth value', 'Fifth value']); + MySubRange := JclGenerateSubRange(MyEnum, 'MySubRange', 1, 3); + MySet := JclGenerateSetType(MyEnum, 'MySet'); + MyCutLowerEnum := JclGenerateEnumTypeBasedOn('MyCutLower', TypeInfo(TLargeEnum), + PREFIX_CUT_LOWERCASE); + +end. diff --git a/official/2.1.1/examples/common/rtti/RTTIExample.dof b/official/2.1.1/examples/common/rtti/RTTIExample.dof new file mode 100644 index 0000000..4a388e0 --- /dev/null +++ b/official/2.1.1/examples/common/rtti/RTTIExample.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\bin + diff --git a/official/2.1.1/examples/common/rtti/RTTIExample.dpr b/official/2.1.1/examples/common/rtti/RTTIExample.dpr new file mode 100644 index 0000000..5981f58 --- /dev/null +++ b/official/2.1.1/examples/common/rtti/RTTIExample.dpr @@ -0,0 +1,16 @@ +program RTTIExample; + +{$I jcl.inc} + +uses + Forms, + RTTIDemoMain in 'RTTIDemoMain.pas' {Form1}; + +{$R *.RES} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. diff --git a/official/2.1.1/examples/common/rtti/RTTIExample.res b/official/2.1.1/examples/common/rtti/RTTIExample.res new file mode 100644 index 0000000000000000000000000000000000000000..472f2e47297a46cf06bb2ce0c8024f600e93445f GIT binary patch literal 876 zcmb7Dv2N5r5S`;9xg)W{DJ54@#)?ixq5woi0mwzzd`4C)-)wZn8KKjRL~&IVegsim z<4;MMl8!BqmN)jD1QHD+KkvSIvoqseFA>ok$aw^&f7!#MgFZ#fWYA7dilal&Gfd{d zD_}xo0Hra(u1-$Sq_Y{=t)_t=*?Vay!e$CjOQd&(lrSF0Tls2mP+KZU0$}{QB){?Cac-k=ge)P zs@#gmop0R8g}oxl?IPC5q$+ilyo8%O(__-l!GrVd4Js^S-iEqTry#JnP8vd!s;FDl zq;Z||>|&v=4zWd2S?5$WWh!|QKY>F}P3_f(5WOWpd|j7mcHv`Ne;>F+kC;*qx`@}N zI@2b!D425=SVC0ra{+0Ysaf8YfGz8My5jwi7&srkpXp z9NZS0rZ02XvDWFgVg)9vo;QjnQKSDp@U9?#Ex_7v>500o()q z9vw!*|5}IN*3c784fkjixsOrfDQdkOu0=o1Pl)Io$oVn7qu2D7-UDyw1IB~>c`xiX POlUqo8g7N%q6z&5v1T5M literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/common/sysinfo/EnvironmentExample.dof b/official/2.1.1/examples/common/sysinfo/EnvironmentExample.dof new file mode 100644 index 0000000..b13ef5f --- /dev/null +++ b/official/2.1.1/examples/common/sysinfo/EnvironmentExample.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=../../../bin + diff --git a/official/2.1.1/examples/common/sysinfo/EnvironmentExample.dpr b/official/2.1.1/examples/common/sysinfo/EnvironmentExample.dpr new file mode 100644 index 0000000..825d34c --- /dev/null +++ b/official/2.1.1/examples/common/sysinfo/EnvironmentExample.dpr @@ -0,0 +1,16 @@ +program EnvironmentExample; + +{$I jcl.inc} + +uses + Forms, + EnvironmentExampleMain in 'EnvironmentExampleMain.pas' {Form1}; + +{$R *.res} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. diff --git a/official/2.1.1/examples/common/sysinfo/EnvironmentExample.res b/official/2.1.1/examples/common/sysinfo/EnvironmentExample.res new file mode 100644 index 0000000000000000000000000000000000000000..093026528930ea46204ac34ba193dc8155a7cef9 GIT binary patch literal 876 zcmd^8F%H5o47>tT7X%&H$;ikL05LHDU&_DIp?mWPMn*;kq;R%dg$f2H7OY;JyR+3O ztpUIhDH*sO#C6pBW7ZVvRaH6Zi&oq?VoMY-*|X+uqINP;fNg$I1ziCnfrL13z>!j L&Q&@UGDQWRn6_4} literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/common/sysinfo/EnvironmentExampleMain.dfm b/official/2.1.1/examples/common/sysinfo/EnvironmentExampleMain.dfm new file mode 100644 index 0000000..5c38237 --- /dev/null +++ b/official/2.1.1/examples/common/sysinfo/EnvironmentExampleMain.dfm @@ -0,0 +1,34 @@ +object Form1: TForm1 + Left = 228 + Top = 165 + Width = 729 + Height = 540 + ActiveControl = EnvironmentView + Caption = 'Environment Variables' + OnCreate = FormCreate + PixelsPerInch = 96 + object EnvironmentView: TListView + Left = 0 + Top = 0 + Width = 729 + Height = 540 + Align = alClient + Columns = < + item + AutoSize = True + Caption = 'Environment variable' + Tag = 0 + Width = 200 + end + item + AutoSize = True + Caption = 'Value' + Tag = 0 + Width = 500 + end> + RowSelect = True + ReadOnly = True + TabOrder = 0 + ViewStyle = vsReport + end +end diff --git a/official/2.1.1/examples/common/sysinfo/EnvironmentExampleMain.pas b/official/2.1.1/examples/common/sysinfo/EnvironmentExampleMain.pas new file mode 100644 index 0000000..e5e5ce5 --- /dev/null +++ b/official/2.1.1/examples/common/sysinfo/EnvironmentExampleMain.pas @@ -0,0 +1,76 @@ +unit EnvironmentExampleMain; + +interface + +uses + SysUtils, Classes, Controls, Forms, ComCtrls, + JclSysInfo; + +type + TForm1 = class(TForm) + EnvironmentView: TListView; + procedure FormCreate(Sender: TObject); + procedure EnvironmentGridSetEditText(Sender: TObject; ACol, + ARow: Integer; const Value: WideString); + procedure RefreshBtnClick(Sender: TObject); + private + { Private declarations } + procedure GetEnvironment; + public + { Public declarations } + end; + +var + Form1: TForm1; + +implementation + +{$R *.dfm} + +procedure TForm1.FormCreate(Sender: TObject); +begin + GetEnvironment; +end; + +procedure TForm1.EnvironmentGridSetEditText(Sender: TObject; ACol, + ARow: Integer; const Value: WideString); +var + Key: string; +begin + with EnvironmentView.Items[ARow] do + begin + Key := Caption; + SetEnvironmentVar(Caption, SubItems[0]); + end; +end; + +procedure TForm1.RefreshBtnClick(Sender: TObject); +begin + GetEnvironment; +end; + +procedure TForm1.GetEnvironment; +var + I: Integer; + Key: string; + S: TStringList; +begin + S := TStringList.Create; + try + GetEnvironmentVars(S); + for I := 0 to S.Count - 1 do + begin + Key := S.Names[I]; + with EnvironmentView.Items.Add do + begin + Caption := Key; + SubItems.Add(S.Values[Key]); + end; + end; + finally + S.Free; + end; +end; + +end. + diff --git a/official/2.1.1/examples/common/textconverter/TextConverter.dof b/official/2.1.1/examples/common/textconverter/TextConverter.dof new file mode 100644 index 0000000..b13ef5f --- /dev/null +++ b/official/2.1.1/examples/common/textconverter/TextConverter.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=../../../bin + diff --git a/official/2.1.1/examples/common/textconverter/TextConverter.dpr b/official/2.1.1/examples/common/textconverter/TextConverter.dpr new file mode 100644 index 0000000..88a82e0 --- /dev/null +++ b/official/2.1.1/examples/common/textconverter/TextConverter.dpr @@ -0,0 +1,13 @@ +program TextConverter; + +uses + Forms, + TextConverterMain in 'TextConverterMain.pas' {Form1}; + +{$R *.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. diff --git a/official/2.1.1/examples/common/textconverter/TextConverter.res b/official/2.1.1/examples/common/textconverter/TextConverter.res new file mode 100644 index 0000000000000000000000000000000000000000..b5c859fdc0b29167507682b9093701c8541f877a GIT binary patch literal 876 zcmaJ=Jxc>Y5Pj=~+eS=+7FH&uWyHcFg^CccPz(RS*=&<05J-d+UUf~tKNE-t+g#=E zNNH(l5wgCWy~_uF40${AX5Q>hmRkU56V3%N+_8_nsvc3Jq}FKc*DBE|gEnzRD3odT z{B9}0AJQ~9t_+D3MNzQehw#n?$2H95lfjzJMiq+xpGS}RU|YW7TGAUn=>TJR9vbuv zQKv^fLP$_BH=di&s%NpygeRq7WOL!AU~H`oJdv~Xnj7J9-%dk4aAV5-jBGG4rXS8T z#&1Awg!ePy@tV(f_@tlj=qJ`@+x_IZ=P3K1ZEocskt@zKp3bKiEbG`L>hS!nd7PP< z*YiLohG%h>ba`1aP@aA!Bu=2+E0lZZSF-?KK7q>;Epm@~@dtdZ0(&$OeF0BP;A;i7bZNA5i@Ni6 j1fWAWcYr%w;}-YC4Ibz#+kO}RH7K;(HF*{O6)AiJ?QX?H literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/common/textconverter/TextConverterMain.dfm b/official/2.1.1/examples/common/textconverter/TextConverterMain.dfm new file mode 100644 index 0000000..80873f2 --- /dev/null +++ b/official/2.1.1/examples/common/textconverter/TextConverterMain.dfm @@ -0,0 +1,141 @@ +object Form1: TForm1 + Left = 438 + Top = 259 + BorderStyle = bsDialog + Caption = 'Form1' + ClientHeight = 173 + ClientWidth = 375 + 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 + object ButtonAnsiToAnsi: TButton + Left = 16 + Top = 16 + Width = 105 + Height = 25 + Caption = 'Ansi --> Ansi' + Enabled = False + TabOrder = 0 + end + object ButtonAnsiToUTF8: TButton + Left = 136 + Top = 16 + Width = 105 + Height = 25 + Caption = 'Ansi --> UTF8' + TabOrder = 1 + OnClick = ButtonAnsiToUTF8Click + end + object ButtonAnsiToUTF16: TButton + Left = 256 + Top = 16 + Width = 105 + Height = 25 + Caption = 'Ansi --> UTF16' + TabOrder = 2 + OnClick = ButtonAnsiToUTF16Click + end + object ButtonUTF8ToAnsi: TButton + Left = 16 + Top = 56 + Width = 105 + Height = 25 + Caption = 'UTF8 --> Ansi' + TabOrder = 3 + OnClick = ButtonUTF8ToAnsiClick + end + object ButtonUTF8ToUTF8: TButton + Left = 136 + Top = 56 + Width = 105 + Height = 25 + Caption = 'UTF8 --> UTF8' + Enabled = False + TabOrder = 4 + end + object ButtonUTF8ToUTF16: TButton + Left = 256 + Top = 56 + Width = 105 + Height = 25 + Caption = 'UTF8 --> UTF16' + TabOrder = 5 + OnClick = ButtonUTF8ToUTF16Click + end + object ButtonUTF16ToAnsi: TButton + Left = 16 + Top = 96 + Width = 105 + Height = 25 + Caption = 'UTF16 --> Ansi' + TabOrder = 6 + OnClick = ButtonUTF16ToAnsiClick + end + object ButtonUTF16ToUTF8: TButton + Left = 136 + Top = 96 + Width = 105 + Height = 25 + Caption = 'UTF16 --> UTF8' + TabOrder = 7 + OnClick = ButtonUTF16ToUTF8Click + end + object ButtonUTF16ToUTF16: TButton + Left = 256 + Top = 96 + Width = 105 + Height = 25 + Caption = 'UTF16 --> UTF16' + Enabled = False + TabOrder = 8 + end + object ButtonAutoToAnsi: TButton + Left = 16 + Top = 136 + Width = 105 + Height = 25 + Caption = 'Auto --> Ansi' + TabOrder = 9 + OnClick = ButtonAutoToAnsiClick + end + object ButtonAutoToUTF8: TButton + Left = 136 + Top = 136 + Width = 105 + Height = 25 + Caption = 'Auto --> UTF8' + TabOrder = 10 + OnClick = ButtonAutoToUTF8Click + end + object ButtonAutoToUTF16: TButton + Left = 256 + Top = 136 + Width = 105 + Height = 25 + Caption = 'Auto --> UTF16' + TabOrder = 11 + OnClick = ButtonAutoToUTF16Click + end + object OpenDialogTxt: TOpenDialog + DefaultExt = 'txt' + Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*' + Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Title = 'Text file to convert...' + Left = 88 + Top = 48 + end + object SaveDialogTxt: TSaveDialog + DefaultExt = 'txt' + Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*' + Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing] + Title = 'Save result as...' + Left = 128 + Top = 48 + end +end diff --git a/official/2.1.1/examples/common/textconverter/TextConverterMain.pas b/official/2.1.1/examples/common/textconverter/TextConverterMain.pas new file mode 100644 index 0000000..ab2b027 --- /dev/null +++ b/official/2.1.1/examples/common/textconverter/TextConverterMain.pas @@ -0,0 +1,146 @@ +unit TextConverterMain; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, + JclStreams; + +type + TForm1 = class(TForm) + ButtonAnsiToAnsi: TButton; + ButtonAnsiToUTF8: TButton; + ButtonAnsiToUTF16: TButton; + ButtonUTF8ToAnsi: TButton; + ButtonUTF8ToUTF8: TButton; + ButtonUTF8ToUTF16: TButton; + ButtonUTF16ToAnsi: TButton; + ButtonUTF16ToUTF8: TButton; + ButtonUTF16ToUTF16: TButton; + OpenDialogTxt: TOpenDialog; + SaveDialogTxt: TSaveDialog; + ButtonAutoToAnsi: TButton; + ButtonAutoToUTF8: TButton; + ButtonAutoToUTF16: TButton; + procedure ButtonAnsiToUTF8Click(Sender: TObject); + procedure ButtonAnsiToUTF16Click(Sender: TObject); + procedure ButtonUTF8ToAnsiClick(Sender: TObject); + procedure ButtonUTF8ToUTF16Click(Sender: TObject); + procedure ButtonUTF16ToAnsiClick(Sender: TObject); + procedure ButtonUTF16ToUTF8Click(Sender: TObject); + procedure ButtonAutoToAnsiClick(Sender: TObject); + procedure ButtonAutoToUTF8Click(Sender: TObject); + procedure ButtonAutoToUTF16Click(Sender: TObject); + private + public + procedure ConvertFile(ReaderClass, WriterClass: TJclStringStreamClass); + end; + +var + Form1: TForm1; + +implementation + +uses + JclStrings, JclFileUtils; + +{$R *.dfm} + +procedure TForm1.ButtonAnsiToUTF8Click(Sender: TObject); +begin + ConvertFile(TJclAnsiStream, TJclUTF8Stream); +end; + +procedure TForm1.ButtonAutoToAnsiClick(Sender: TObject); +begin + ConvertFile(TJclAutoStream, TJclAnsiStream); +end; + +procedure TForm1.ButtonAutoToUTF16Click(Sender: TObject); +begin + ConvertFile(TJclAutoStream, TJclUTF16Stream); +end; + +procedure TForm1.ButtonAutoToUTF8Click(Sender: TObject); +begin + ConvertFile(TJclAutoStream, TJclUTF8Stream); +end; + +procedure TForm1.ButtonAnsiToUTF16Click(Sender: TObject); +begin + ConvertFile(TJclAnsiStream, TJclUTF16Stream); +end; + +procedure TForm1.ButtonUTF8ToAnsiClick(Sender: TObject); +begin + ConvertFile(TJclUTF8Stream, TJclAnsiStream); +end; + +procedure TForm1.ButtonUTF8ToUTF16Click(Sender: TObject); +begin + ConvertFile(TJclUTF8Stream, TJclUTF16Stream); +end; + +procedure TForm1.ButtonUTF16ToAnsiClick(Sender: TObject); +begin + ConvertFile(TJclUTF16Stream, TJclAnsiStream); +end; + +procedure TForm1.ButtonUTF16ToUTF8Click(Sender: TObject); +begin + ConvertFile(TJclUTF16Stream, TJclUTF8Stream); +end; + +procedure TForm1.ConvertFile(ReaderClass, + WriterClass: TJclStringStreamClass); + procedure ConvertFiles(const SourceFileName, DestFileName: TFileName); + var + SourceStream, DestStream: TStream; + Reader, Writer: TJclStringStream; + begin + SourceStream := TFileStream.Create(SourceFileName, fmOpenRead or fmShareDenyWrite); + try + DestStream := TFileStream.Create(DestFileName, fmCreate or fmShareExclusive); + try + Reader := ReaderClass.Create(SourceStream, False); + try + Writer := WriterClass.Create(DestStream, False); + try + Reader.SkipBOM; + Writer.WriteBOM; + JclStreams.WideStringStreamCopy(Reader, Writer); + Writer.Flush; + finally + Writer.Free; + end; + finally + Reader.Free; + end; + finally + DestStream.Free; + end; + finally + SourceStream.Free; + end; + end; +var + SourceFileName, DestFileName, TmpFileName: TFileName; +begin + if OpenDialogTxt.Execute and SaveDialogTxt.Execute then + begin + SourceFileName := OpenDialogTxt.FileName; + DestFileName := SaveDialogTxt.FileName; + if StrSame(SourceFileName, DestFileName) then + begin + // in place conversion + TmpFileName := FileGetTempName(''); + ConvertFiles(SourceFileName, TmpFileName); + FileMove(TmpFileName, DestFileName, True); + end + else + ConvertFiles(SourceFileName, DestFileName); + end; +end; + +end. diff --git a/official/2.1.1/examples/common/textreader/TextReaderDemoMain.dfm b/official/2.1.1/examples/common/textreader/TextReaderDemoMain.dfm new file mode 100644 index 0000000..02ce337 --- /dev/null +++ b/official/2.1.1/examples/common/textreader/TextReaderDemoMain.dfm @@ -0,0 +1,94 @@ +object MainForm: TMainForm + Left = 275 + Top = 163 + ClientWidth = 763 + ClientHeight = 605 + Caption = 'TJclMappedTextReader class demo' + Color = clBtnFace + Constraints.MinHeight = 200 + Constraints.MinWidth = 200 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object ReadLnLabel: TLabel + Left = 200 + Top = 16 + Width = 64 + Height = 13 + Caption = 'ReadLnLabel' + end + object TextListView: TListView + Left = 0 + Top = 40 + Width = 763 + Height = 555 + Anchors = [akLeft, akTop, akRight, akBottom] + Columns = < + item + Caption = 'Text' + Width = 750 + end> + ColumnClick = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + HotTrackStyles = [] + OwnerData = True + ReadOnly = True + RowSelect = True + ParentFont = False + TabOrder = 0 + ViewStyle = vsReport + OnData = TextListViewData + end + object OpenBtn: TButton + Left = 8 + Top = 8 + Width = 75 + Height = 25 + Caption = 'Open file' + TabOrder = 1 + OnClick = OpenBtnClick + end + object StatusBar: TStatusBar + Left = 0 + Top = 595 + Width = 763 + Height = 19 + Panels = < + item + Width = 210 + end + item + Width = 210 + end + item + Width = 50 + end> + SimplePanel = False + end + object ReadLnBtn: TButton + Left = 112 + Top = 8 + Width = 75 + Height = 25 + Caption = 'ReadLn test' + TabOrder = 3 + OnClick = ReadLnBtnClick + end + object OpenDialog: TOpenDialog + Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*' + Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 8 + Top = 552 + end +end diff --git a/official/2.1.1/examples/common/textreader/TextReaderDemoMain.pas b/official/2.1.1/examples/common/textreader/TextReaderDemoMain.pas new file mode 100644 index 0000000..2ec2788 --- /dev/null +++ b/official/2.1.1/examples/common/textreader/TextReaderDemoMain.pas @@ -0,0 +1,152 @@ +unit TextReaderDemoMain; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, StdCtrls, JclFileUtils; + +type + TMainForm = class(TForm) + TextListView: TListView; + OpenDialog: TOpenDialog; + OpenBtn: TButton; + StatusBar: TStatusBar; + ReadLnBtn: TButton; + ReadLnLabel: TLabel; + procedure FormDestroy(Sender: TObject); + procedure TextListViewData(Sender: TObject; Item: TListItem); + procedure OpenBtnClick(Sender: TObject); + procedure ReadLnBtnClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + FFileName: string; + FTextReader: TJclAnsiMappedTextReader; + public + procedure ClearLabels; + procedure OpenFile(const FileName: string); + end; + +var + MainForm: TMainForm; + +implementation + +{$R *.dfm} + +uses + JclCounter, JclSysUtils; + +procedure TMainForm.FormCreate(Sender: TObject); +begin + ClearLabels; +end; + +procedure TMainForm.FormDestroy(Sender: TObject); +begin + FreeAndNil(FTextReader); +end; + +procedure TMainForm.ClearLabels; +begin + ReadLnLabel.Caption := ''; +end; + +procedure TMainForm.OpenFile(const FileName: string); +var + C: TJclCounter; + LineCount: Integer; + LineCountTime: Extended; +begin + FreeAndNil(FTextReader); + FFileName := ''; + TextListView.Items.Count := 0; + StatusBar.Panels[0].Text := ''; + StatusBar.Panels[1].Text := ''; + ClearLabels; + FTextReader := TJclAnsiMappedTextReader.Create(FileName); + FFileName := FileName; + StartCount(C); + LineCount := FTextReader.LineCount; + LineCountTime := StopCount(C); + TextListView.Items.Count := LineCount; + TextListView.Invalidate; + StatusBar.Panels[0].Text := ExtractFileName(FileName); + StatusBar.Panels[1].Text := Format('Lines: %d, Counting time: %.2f ms', [LineCount, LineCountTime * 1000]); +end; + +procedure TMainForm.TextListViewData(Sender: TObject; Item: TListItem); +begin + Item.Caption := string(FTextReader.Lines[Item.Index]); +end; + +procedure TMainForm.OpenBtnClick(Sender: TObject); +begin + with OpenDialog do + begin + FileName := ''; + if Execute then + OpenFile(FileName); + end; +end; + +procedure TMainForm.ReadLnBtnClick(Sender: TObject); +var + C: TJclCounter; + TotalTime, StringListTotalTime, AssignFileTotalTime: Extended; + LineCount, I: Integer; + S: string; + Reader: TJclAnsiMappedTextReader; + SL: TStringList; + T: TextFile; +begin + if FFileName = '' then + Exit; + Screen.Cursor := crHourGlass; + try + ClearLabels; + // TJclAnsiMappedTextReader + LineCount := 0; + StartCount(C); + Reader := TJclAnsiMappedTextReader.Create(FFileName); + try + Reader.GoBegin; + while not Reader.Eof do + begin + S := string(Reader.ReadLn); + Inc(LineCount); + end; + TotalTime := StopCount(C); + finally + Reader.Free; + end; + // TStringList + SL := TStringList.Create; + try + StartCount(C); + SL.LoadFromFile(FFileName); + for I := 0 to SL.Count - 1 do + S := SL[I]; + StringListTotalTime := StopCount(C); + finally + SL.Free; + end; + // AssignFile + StartCount(C); + AssignFile(T, FFileName); + Reset(T); + while not Eof(T) do + ReadLn(T, S); + AssignFileTotalTime := StopCount(C); + CloseFile(T); + + ReadLnLabel.Caption := Format('Lines: %d, TJclAnsiMappedTextReader: %.2f ms, TStringList: %.2f ms, AssignFile: %.2f ms', + [LineCount, TotalTime * 1000, StringListTotalTime * 1000, AssignFileTotalTime * 1000]); + finally + Screen.Cursor := crDefault; + end; +end; + + + +end. diff --git a/official/2.1.1/examples/common/textreader/TextReaderExample.dof b/official/2.1.1/examples/common/textreader/TextReaderExample.dof new file mode 100644 index 0000000..4a388e0 --- /dev/null +++ b/official/2.1.1/examples/common/textreader/TextReaderExample.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\bin + diff --git a/official/2.1.1/examples/common/textreader/TextReaderExample.dpr b/official/2.1.1/examples/common/textreader/TextReaderExample.dpr new file mode 100644 index 0000000..e4ec087 --- /dev/null +++ b/official/2.1.1/examples/common/textreader/TextReaderExample.dpr @@ -0,0 +1,16 @@ +program TextReaderExample; + +{$I jcl.inc} + +uses + Forms, + TextReaderDemoMain in 'TextReaderDemoMain.pas' {MainForm}; + +{$R *.res} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TMainForm, MainForm); + Application.Run; +end. diff --git a/official/2.1.1/examples/common/textreader/TextReaderExample.res b/official/2.1.1/examples/common/textreader/TextReaderExample.res new file mode 100644 index 0000000000000000000000000000000000000000..472f2e47297a46cf06bb2ce0c8024f600e93445f GIT binary patch literal 876 zcmb7Dv2N5r5S`;9xg)W{DJ54@#)?ixq5woi0mwzzd`4C)-)wZn8KKjRL~&IVegsim z<4;MMl8!BqmN)jD1QHD+KkvSIvoqseFA>ok$aw^&f7!#MgFZ#fWYA7dilal&Gfd{d zD_}xo0Hra(u1-$Sq_Y{=t)_t=*?Vay!e$CjOQd&(lrSF0Tls2mP+KZU0$}{QB){?Cac-k=ge)P zs@#gmop0R8g}oxl?IPC5q$+ilyo8%O(__-l!GrVd4Js^S-iEqTry#JnP8vd!s;FDl zq;Z||>|&v=4zWd2S?5$WWh!|QKY>F}P3_f(5WOWpd|j7mcHv`Ne;>F+kC;*qx`@}N zI@2b!D425=SVC0ra{+0Ysaf8YfGz8My5jwi7&srkpXp z9NZS0rZ02XvDWFgVg)9vo;QjnQKSDp@U9?#Ex_7v>500o()q z9vw!*|5}IN*3c784fkjixsOrfDQdkOu0=o1Pl)Io$oVn7qu2D7-UDyw1IB~>c`xiX POlUqo8g7N%q6z&5v1T5M literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/common/unitversioning/UnitVersioningTest.dof b/official/2.1.1/examples/common/unitversioning/UnitVersioningTest.dof new file mode 100644 index 0000000..a45efdc --- /dev/null +++ b/official/2.1.1/examples/common/unitversioning/UnitVersioningTest.dof @@ -0,0 +1,2 @@ +[Directories] +OutputDir=..\..\..\bin \ No newline at end of file diff --git a/official/2.1.1/examples/common/unitversioning/UnitVersioningTest.dpr b/official/2.1.1/examples/common/unitversioning/UnitVersioningTest.dpr new file mode 100644 index 0000000..fe79e66 --- /dev/null +++ b/official/2.1.1/examples/common/unitversioning/UnitVersioningTest.dpr @@ -0,0 +1,46 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is UnitVersioningTest.dpr. } +{ } +{ The Initial Developer of the Original Code is Uwe Schuster. } +{ Portions created by Uwe Schuster are Copyright (C) Uwe Schuster. All rights reserved. } +{ } +{ Contributor(s): } +{ Uwe Schuster (uschuster) } +{ } +{**************************************************************************************************} +{ } +{ sample for TUnitVersioning } +{ } +{ Unit owner: Uwe Schuster } +{ } +{**************************************************************************************************} + +// Last modified: $Date: 2007-04-18 19:27:51 +0200 (mer., 18 avr. 2007) $ + +program UnitVersioningTest; + +{$I jcl.inc} + +uses + Forms, + UnitVersioningTestMain in 'UnitVersioningTestMain.pas' {frmUnitVersioningTestMain}; + +{$R *.res} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TfrmUnitVersioningTestMain, frmUnitVersioningTestMain); + Application.Run; +end. diff --git a/official/2.1.1/examples/common/unitversioning/UnitVersioningTest.res b/official/2.1.1/examples/common/unitversioning/UnitVersioningTest.res new file mode 100644 index 0000000000000000000000000000000000000000..b111060100a5f025f8352346a52aa105dda315dc GIT binary patch literal 876 zcmaJ=Jxc>Y5Pj=~+s-6tVP#TUMl38+L=gfOYT+L^n{Cnvf+wW#s%rxNnLu)|%~k%6 zl$I$|i0j+gyL{lskhe2$=FRS8xdnhO;amX29sAg;>k&0dYOR)T)S?pxUE+dJsM75D z-7YQoTL`ZNskJunM9$J{ZiL4pI|=o`jj8rCvcaP 0 then + begin + if FreeLibrary(TestDLLHandle) then + TestDLLHandle := 0; + end; +end; + +procedure TfrmUnitVersioningTestMain.btnTestFindMethodsClick(Sender: TObject); +const MaxCnt = 1000; +var + UnitVersioning: TUnitVersioning; + I, Idx: Integer; + UnitVersionInfoPtr: PUnitVersionInfo; +begin + UnitVersioning := GetUnitVersioning; + for I := 1 to MaxCnt do + begin + New(UnitVersionInfoPtr); + with UnitVersionInfoPtr^ do + begin + RCSfile := Format('unit%d.pas', [I]); + Revision := ''; + Date := ''; + LogPath := ''; + Extra := ''; + Data := nil; + end; + FFindMethodsInfoPtrs.Add(UnitVersionInfoPtr); + RegisterUnitVersion(HInstance, UnitVersionInfoPtr^); + end; + if MaxCnt >= 500 then + begin + Idx := UnitVersioning.IndexOf('unit500.pas'); + if Idx <> -1 then + ShowMessage(Format('IndexOf %s = %d', [UnitVersioning.Items[Idx].RCSfile, Idx])) + else + ShowMessage('IndexOf failed'); + end; + if MaxCnt >= 600 then + begin + if Assigned(UnitVersioning.FindUnit('unit600.pas')) then + ShowMessage('FindUnit ' + UnitVersioning.FindUnit('unit600.pas').RCSfile) + else + ShowMessage('FindUnit failed'); + end; +end; + +type + TDummyUnitVersioningProvider = class(TCustomUnitVersioningProvider) + private + FUV: PUnitVersionInfo; + public + constructor Create; override; + destructor Destroy; override; + procedure LoadModuleUnitVersioningInfo(Instance: THandle); override; + end; + +constructor TDummyUnitVersioningProvider.Create; +begin + inherited Create; + FUV := nil; +end; + +destructor TDummyUnitVersioningProvider.Destroy; +begin + if Assigned(FUV) then + Dispose(FUV); + inherited Destroy; +end; + +procedure TDummyUnitVersioningProvider.LoadModuleUnitVersioningInfo(Instance: THandle); +begin + if (Instance = HInstance) and not Assigned(FUV) then + begin + New(FUV); + FUV^.RCSfile := 'DummyUnit.pas'; + FUV^.Revision := '0.12'; + FUV^.Date := ''; + FUV^.LogPath := ''; + FUV^.Extra := ''; + FUV^.Data := nil; + RegisterUnitVersion(Instance, FUV^); + end; +end; + +procedure TfrmUnitVersioningTestMain.btnTestDummyProviderClick(Sender: TObject); +var + UnitVersioning: TUnitVersioning; + Idx: Integer; +begin + UnitVersioning := GetUnitVersioning; + UnitVersioning.RegisterProvider(TDummyUnitVersioningProvider); + UnitVersioning.LoadModuleUnitVersioningInfo(HInstance); + Idx := UnitVersioning.IndexOf('DummyUnit.pas'); + if Idx <> -1 then + ShowMessage(Format('IndexOf %s=%d Revision=%s', [UnitVersioning.Items[Idx].RCSfile, + Idx, UnitVersioning.Items[Idx].Revision])) + else + ShowMessage('DummyProvider Test failed'); +end; + +procedure TfrmUnitVersioningTestMain.btnTestGetLocationInfoStrClick(Sender: TObject); +var + S: string; +begin + S := GetLocationInfoStr(@TUnitVersioning.LoadModuleUnitVersioningInfo, + False, True, True, False); + ShowMessage(S); +end; + +procedure TfrmUnitVersioningTestMain.btnShowUVContentClick(Sender: TObject); +var + I, J: Integer; + UnitVersioning: TUnitVersioning; + tnModule: TTreeNode; + LongFileName: string; +begin + UnitVersioning := GetUnitVersioning; + UnitVersioning.RegisterProvider(TJclDefaultUnitVersioningProvider); + for I := 0 to Pred(UnitVersioning.ModuleCount) do + UnitVersioning.LoadModuleUnitVersioningInfo(UnitVersioning.Modules[I].Instance); + tv.Items.BeginUpdate; + try + tv.Items.Clear; + for I := 0 to Pred(UnitVersioning.ModuleCount) do + begin + tnModule := tv.Items.Add(nil, Format('%s [%d units]', + [GetModulePath(UnitVersioning.Modules[I].Instance), UnitVersioning.Modules[I].Count])); + for J := 0 to Pred(UnitVersioning.Modules[I].Count) do + with UnitVersioning.Modules[I][J] do + begin + LongFileName := LogPath; + if LongFileName <> '' then + LongFileName := PathAddSeparator(LongFileName); + LongFileName := LongFileName + RCSfile; + tv.Items.AddChild(tnModule, Format('%s %s %s', [LongFileName, Revision, Date])); + end; + end; + finally + tv.Items.EndUpdate; + end; +end; + +procedure TfrmUnitVersioningTestMain.btnLoadDLLClick(Sender: TObject); +begin + if TestDLLHandle = 0 then + begin + TestDLLHandle := LoadLibrary(TestDLLFileName); + if TestDLLHandle = 0 then + ShowMessage(Format('Could not load %s', [TestDLLFileName])); + end; +end; + +procedure TfrmUnitVersioningTestMain.btnInsertSectionClick(Sender: TObject); +var + TestStream: TMemoryStream; + UnitList: TJclUnitVersioningList; + UnitVersionInfo: TUnitVersionInfo; + I: Integer; +begin + FreeTestDLL; + if TestDLLHandle = 0 then + begin + TestStream := TMemoryStream.Create; + try + UnitList := TJclUnitVersioningList.Create; + try + for I := 1 to 20 do + begin + with UnitVersionInfo do + begin + RCSfile := Format('unit%d.pas', [I]); + Revision := Format('0.%d', [I]); + Date := ''; + LogPath := ''; + Extra := ''; + Data := nil; + end; + UnitList.Add(UnitVersionInfo); + end; + if not InsertUnitVersioningSection(TestDLLFileName, UnitList) then + ShowMessage(Format('Inserting UnitVersion information section into %s failed', + [TestDLLFileName])); + finally + UnitList.Free; + end; + finally + TestStream.Free; + end; + end + else + ShowMessage('Can''t insert section - DLL still loaded and unload failed...'); +end; + +end. diff --git a/official/2.1.1/examples/windows/appinst/AppInstDemoMain.dfm b/official/2.1.1/examples/windows/appinst/AppInstDemoMain.dfm new file mode 100644 index 0000000..5a11a5c --- /dev/null +++ b/official/2.1.1/examples/windows/appinst/AppInstDemoMain.dfm @@ -0,0 +1,131 @@ +object Form1: TForm1 + Left = 204 + Top = 125 + BorderIcons = [biSystemMenu, biMinimize] + BorderStyle = bsSingle + Caption = 'JclAppInst demo' + ClientHeight = 365 + ClientWidth = 329 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poDefaultPosOnly + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 256 + Top = 8 + Width = 65 + Height = 97 + Alignment = taCenter + AutoSize = False + Caption = '0' + Font.Charset = EASTEUROPE_CHARSET + Font.Color = clWindowText + Font.Height = -96 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Layout = tlCenter + end + object InstancesListView: TListView + Left = 0 + Top = 0 + Width = 241 + Height = 177 + Columns = < + item + Caption = 'Number' + end + item + Alignment = taRightJustify + Caption = 'ProcessID' + Width = 70 + end + item + Alignment = taRightJustify + Caption = 'Application HWND' + Width = 110 + end> + ColumnClick = False + HideSelection = False + ReadOnly = True + RowSelect = True + TabOrder = 0 + ViewStyle = vsReport + OnDblClick = SwitchBtnClick + end + object SwitchBtn: TButton + Left = 248 + Top = 120 + Width = 75 + Height = 25 + Caption = 'Switch to' + TabOrder = 1 + OnClick = SwitchBtnClick + end + object MsgBtn: TButton + Left = 248 + Top = 152 + Width = 75 + Height = 25 + Caption = 'Message' + TabOrder = 2 + OnClick = MsgBtnClick + end + object Memo1: TMemo + Left = 0 + Top = 184 + Width = 241 + Height = 177 + Lines.Strings = ( + 'Enter a text') + TabOrder = 3 + OnChange = Memo1Change + end + object SendBtn: TButton + Left = 248 + Top = 336 + Width = 75 + Height = 25 + Caption = 'Send' + TabOrder = 4 + OnClick = SendBtnClick + end + object AutoUpdateCheckBox: TCheckBox + Left = 248 + Top = 304 + Width = 97 + Height = 17 + Caption = 'Auto update' + TabOrder = 5 + end + object ColorDialog1: TColorDialog + Ctl3D = True + CustomColors.Strings = ( + 'ColorA=FFFFFFFF' + 'ColorB=FFFFFFFF' + 'ColorC=FFFFFFFF' + 'ColorD=FFFFFFFF' + 'ColorE=FFFFFFFF' + 'ColorF=FFFFFFFF' + 'ColorG=FFFFFFFF' + 'ColorH=FFFFFFFF' + 'ColorI=FFFFFFFF' + 'ColorJ=FFFFFFFF' + 'ColorK=FFFFFFFF' + 'ColorL=FFFFFFFF' + 'ColorM=FFFFFFFF' + 'ColorN=FFFFFFFF' + 'ColorO=FFFFFFFF' + 'ColorP=FFFFFFFF') + Options = [cdPreventFullOpen] + Left = 8 + Top = 144 + end +end diff --git a/official/2.1.1/examples/windows/appinst/AppInstDemoMain.pas b/official/2.1.1/examples/windows/appinst/AppInstDemoMain.pas new file mode 100644 index 0000000..422071b --- /dev/null +++ b/official/2.1.1/examples/windows/appinst/AppInstDemoMain.pas @@ -0,0 +1,169 @@ +unit AppInstDemoMain; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + JclAppInst, ComCtrls, StdCtrls; + +type + TForm1 = class(TForm) + InstancesListView: TListView; + Label1: TLabel; + SwitchBtn: TButton; + MsgBtn: TButton; + ColorDialog1: TColorDialog; + Memo1: TMemo; + SendBtn: TButton; + AutoUpdateCheckBox: TCheckBox; + procedure FormCreate(Sender: TObject); + procedure SwitchBtnClick(Sender: TObject); + procedure MsgBtnClick(Sender: TObject); + procedure SendBtnClick(Sender: TObject); + procedure Memo1Change(Sender: TObject); + private + procedure BuildInstancesList; + procedure ApplicationEvents1Message(var Msg: TMsg; var Handled: Boolean); + public + procedure WndProc(var Message: TMessage); override; + end; + +var + Form1: TForm1; + +implementation + +{$R *.DFM} + +const + MaxAllowedInstances = 3; + + MyDataKind = 1; + +{ TForm1 } + +procedure TForm1.BuildInstancesList; +var + I, CurrIndex: Integer; +begin + with InstancesListView, JclAppInstances do + begin + Items.BeginUpdate; + Items.Clear; + for I := 0 to InstanceCount -1 do + with Items.Add do + begin + Caption := IntToStr(I + 1); + SubItems.Add(Format('%.8x', [ProcessIDs[I]])); + SubItems.Add(Format('%.8x', [AppWnds[I]])); + end; + CurrIndex := InstanceIndex[GetCurrentProcessId]; + Selected := Items[CurrIndex]; + Items.EndUpdate; + end; + Label1.Caption := IntToStr(CurrIndex + 1); +end; + +procedure TForm1.FormCreate(Sender: TObject); +begin + Application.OnMessage := ApplicationEvents1Message; + BuildInstancesList; +end; + +procedure TForm1.ApplicationEvents1Message(var Msg: TMsg; var Handled: Boolean); +begin + // AI_* messages handler. These messages are automatically send to all instances + // of the application. + with Msg do + if (hwnd = 0) and (message = JclAppInstances.MessageID) then + begin + case wParam of + AI_INSTANCECREATED, AI_INSTANCEDESTROYED: + BuildInstancesList; + AI_USERMSG: + Label1.Font.Color := TColor(lParam); + end; + Handled := True; + end; +end; + +procedure TForm1.SwitchBtnClick(Sender: TObject); +begin + JclAppInstances.SwitchTo(InstancesListView.Selected.Index); +end; + +procedure TForm1.MsgBtnClick(Sender: TObject); +begin + with ColorDialog1 do + begin + Color := Label1.Font.Color; + if Execute then + JclAppInstances.UserNotify(Color); + end; +end; + +procedure TForm1.SendBtnClick(Sender: TObject); +begin + // TForm.ClassName matches window class name. It sends the data to all windows + // belonging instances of this application. The last parameter identifies the + // 'TForm1' (ClassName) window of this instance. + JclAppInstances.SendStrings(ClassName, MyDataKind, Memo1.Lines, Handle); +end; + +var + MemoChanging: Boolean; + +procedure TForm1.WndProc(var Message: TMessage); +begin + // Interprocess communication handler. + + // First check whether we can safely read TForm.Handle property ... + if HandleAllocated and not (csDestroying in ComponentState) then + begin + // ... then whether it is our message. The last paramter tells to ignore the + // message sent from window of this instance + case ReadMessageCheck(Message, Handle) of + MyDataKind: // It is our data + begin + MemoChanging := True; // prevent deadlock, TMemo.OnChange is also fired now + Memo1.Lines.BeginUpdate; + try + // Read TStrings from the message + ReadMessageStrings(Message, Memo1.Lines) + finally + Memo1.Lines.EndUpdate; + MemoChanging := False; + end; + end; + else + inherited; + end; + end + else + inherited; +end; + +procedure TForm1.Memo1Change(Sender: TObject); +begin + if not MemoChanging and AutoUpdateCheckBox.Checked then + SendBtnClick(nil); +end; + +initialization + + with JclAppInstances do + // CheckInstance returns False if current instance number is greater than + // MaxAllowedInstances constant + if not CheckInstance(MaxAllowedInstances) then + begin + // Switch to the first instance of the application + SwitchTo(0); + // Close this instance + KillInstance; + end; + + // Note: For preventing more than one instance of the application you can put + // simple JclAppInstances.CheckSingleInstance line to initialization section + // instead of code above + +end. diff --git a/official/2.1.1/examples/windows/appinst/AppInstExample.dof b/official/2.1.1/examples/windows/appinst/AppInstExample.dof new file mode 100644 index 0000000..4a388e0 --- /dev/null +++ b/official/2.1.1/examples/windows/appinst/AppInstExample.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\bin + diff --git a/official/2.1.1/examples/windows/appinst/AppInstExample.dpr b/official/2.1.1/examples/windows/appinst/AppInstExample.dpr new file mode 100644 index 0000000..039499b --- /dev/null +++ b/official/2.1.1/examples/windows/appinst/AppInstExample.dpr @@ -0,0 +1,16 @@ +program AppInstExample; + +{$I jcl.inc} + +uses + Forms, + AppInstDemoMain in 'AppInstDemoMain.pas' {Form1}; + +{$R *.RES} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/appinst/AppInstExample.res b/official/2.1.1/examples/windows/appinst/AppInstExample.res new file mode 100644 index 0000000000000000000000000000000000000000..472f2e47297a46cf06bb2ce0c8024f600e93445f GIT binary patch literal 876 zcmb7Dv2N5r5S`;9xg)W{DJ54@#)?ixq5woi0mwzzd`4C)-)wZn8KKjRL~&IVegsim z<4;MMl8!BqmN)jD1QHD+KkvSIvoqseFA>ok$aw^&f7!#MgFZ#fWYA7dilal&Gfd{d zD_}xo0Hra(u1-$Sq_Y{=t)_t=*?Vay!e$CjOQd&(lrSF0Tls2mP+KZU0$}{QB){?Cac-k=ge)P zs@#gmop0R8g}oxl?IPC5q$+ilyo8%O(__-l!GrVd4Js^S-iEqTry#JnP8vd!s;FDl zq;Z||>|&v=4zWd2S?5$WWh!|QKY>F}P3_f(5WOWpd|j7mcHv`Ne;>F+kC;*qx`@}N zI@2b!D425=SVC0ra{+0Ysaf8YfGz8My5jwi7&srkpXp z9NZS0rZ02XvDWFgVg)9vo;QjnQKSDp@U9?#Ex_7v>500o()q z9vw!*|5}IN*3c784fkjixsOrfDQdkOu0=o1Pl)Io$oVn7qu2D7-UDyw1IB~>c`xiX POlUqo8g7N%q6z&5v1T5M literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/appinst/SingleInstDemoMain.dfm b/official/2.1.1/examples/windows/appinst/SingleInstDemoMain.dfm new file mode 100644 index 0000000..b61255e --- /dev/null +++ b/official/2.1.1/examples/windows/appinst/SingleInstDemoMain.dfm @@ -0,0 +1,25 @@ +object Form1: TForm1 + Left = 194 + Top = 107 + ClientWidth = 270 + ClientHeight = 145 + Caption = 'Single application instance only' + 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 + object DialogBtn: TButton + Left = 72 + Top = 48 + Width = 113 + Height = 25 + Caption = 'Show modal dialog' + TabOrder = 0 + OnClick = DialogBtnClick + end +end diff --git a/official/2.1.1/examples/windows/appinst/SingleInstDemoMain.pas b/official/2.1.1/examples/windows/appinst/SingleInstDemoMain.pas new file mode 100644 index 0000000..1344a63 --- /dev/null +++ b/official/2.1.1/examples/windows/appinst/SingleInstDemoMain.pas @@ -0,0 +1,34 @@ +unit SingleInstDemoMain; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls; + +type + TForm1 = class(TForm) + DialogBtn: TButton; + procedure DialogBtnClick(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + Form1: TForm1; + +implementation + +{$R *.DFM} + +// See Project file source (SingleInstExample.dpr) for added single instance +// checking code. + +procedure TForm1.DialogBtnClick(Sender: TObject); +begin + ShowMessage('This is a modal dialog.'); +end; + +end. diff --git a/official/2.1.1/examples/windows/appinst/SingleInstExample.dof b/official/2.1.1/examples/windows/appinst/SingleInstExample.dof new file mode 100644 index 0000000..4a388e0 --- /dev/null +++ b/official/2.1.1/examples/windows/appinst/SingleInstExample.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\bin + diff --git a/official/2.1.1/examples/windows/appinst/SingleInstExample.dpr b/official/2.1.1/examples/windows/appinst/SingleInstExample.dpr new file mode 100644 index 0000000..1160492 --- /dev/null +++ b/official/2.1.1/examples/windows/appinst/SingleInstExample.dpr @@ -0,0 +1,18 @@ +program SingleInstExample; + +{$I jcl.inc} + +uses + JclAppInst, // Added JclAppInst unit + Forms, + SingleInstDemoMain in 'SingleInstDemoMain.pas' {Form1}; + +{$R *.RES} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + JclAppInstances.CheckSingleInstance; // Added instance checking + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/appinst/SingleInstExample.res b/official/2.1.1/examples/windows/appinst/SingleInstExample.res new file mode 100644 index 0000000000000000000000000000000000000000..472f2e47297a46cf06bb2ce0c8024f600e93445f GIT binary patch literal 876 zcmb7Dv2N5r5S`;9xg)W{DJ54@#)?ixq5woi0mwzzd`4C)-)wZn8KKjRL~&IVegsim z<4;MMl8!BqmN)jD1QHD+KkvSIvoqseFA>ok$aw^&f7!#MgFZ#fWYA7dilal&Gfd{d zD_}xo0Hra(u1-$Sq_Y{=t)_t=*?Vay!e$CjOQd&(lrSF0Tls2mP+KZU0$}{QB){?Cac-k=ge)P zs@#gmop0R8g}oxl?IPC5q$+ilyo8%O(__-l!GrVd4Js^S-iEqTry#JnP8vd!s;FDl zq;Z||>|&v=4zWd2S?5$WWh!|QKY>F}P3_f(5WOWpd|j7mcHv`Ne;>F+kC;*qx`@}N zI@2b!D425=SVC0ra{+0Ysaf8YfGz8My5jwi7&srkpXp z9NZS0rZ02XvDWFgVg)9vo;QjnQKSDp@U9?#Ex_7v>500o()q z9vw!*|5}IN*3c784fkjixsOrfDQdkOu0=o1Pl)Io$oVn7qu2D7-UDyw1IB~>c`xiX POlUqo8g7N%q6z&5v1T5M literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/asuser/CreateProcAsUserDemoMain.dfm b/official/2.1.1/examples/windows/asuser/CreateProcAsUserDemoMain.dfm new file mode 100644 index 0000000..99ef677 --- /dev/null +++ b/official/2.1.1/examples/windows/asuser/CreateProcAsUserDemoMain.dfm @@ -0,0 +1,194 @@ +object Form1: TForm1 + Left = 386 + Top = 230 + ClientWidth = 390 + ClientHeight = 344 + Caption = 'CreateProcAsUser Demo' + 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 + object Label1: TLabel + Left = 8 + Top = 8 + Width = 47 + Height = 13 + Caption = 'Domain:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 136 + Top = 8 + Width = 61 + Height = 13 + Caption = 'Username:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 264 + Top = 8 + Width = 59 + Height = 13 + Caption = 'Password:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 8 + Top = 52 + Width = 83 + Height = 13 + Caption = 'Command line:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 8 + Top = 104 + Width = 75 + Height = 13 + Caption = 'Environment:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + object edtDomain: TEdit + Left = 8 + Top = 24 + Width = 121 + Height = 21 + TabOrder = 0 + end + object edtUserName: TEdit + Left = 136 + Top = 24 + Width = 121 + Height = 21 + TabOrder = 1 + end + object edtPassword: TEdit + Left = 264 + Top = 24 + Width = 121 + Height = 21 + TabOrder = 2 + end + object edtCommandLine: TEdit + Left = 8 + Top = 68 + Width = 377 + Height = 21 + TabOrder = 3 + end + object btnCreateProcAsUser: TButton + Left = 8 + Top = 312 + Width = 129 + Height = 25 + Caption = 'Create Process As User' + Default = True + TabOrder = 4 + OnClick = btnCreateProcAsUserClick + end + object btnCreateProcAsUserEx: TButton + Left = 148 + Top = 312 + Width = 145 + Height = 25 + Caption = 'Create Process As User Ex' + TabOrder = 5 + OnClick = btnCreateProcAsUserExClick + end + object lbEnvironment: TListBox + Left = 8 + Top = 120 + Width = 193 + Height = 141 + ItemHeight = 13 + TabOrder = 6 + end + object edtEnvString: TEdit + Left = 216 + Top = 120 + Width = 165 + Height = 21 + TabOrder = 7 + end + object btnAddEnvString: TButton + Left = 216 + Top = 148 + Width = 75 + Height = 25 + Caption = 'Add' + TabOrder = 8 + OnClick = btnAddEnvStringClick + end + object btnRemoveEnvString: TButton + Left = 216 + Top = 176 + Width = 75 + Height = 25 + Caption = 'Remove' + TabOrder = 9 + OnClick = btnRemoveEnvStringClick + end + object btnClearEnvStrings: TButton + Left = 216 + Top = 204 + Width = 75 + Height = 25 + Caption = 'Clear' + TabOrder = 10 + OnClick = btnClearEnvStringsClick + end + object chkEnvAdditional: TCheckBox + Left = 216 + Top = 236 + Width = 97 + Height = 17 + Caption = 'Additional' + TabOrder = 11 + end + object chkEnvCurrentUser: TCheckBox + Left = 216 + Top = 256 + Width = 97 + Height = 17 + Caption = 'Current User' + TabOrder = 12 + end + object chkEnvLocalMachine: TCheckBox + Left = 216 + Top = 276 + Width = 97 + Height = 17 + Caption = 'Local Machine' + TabOrder = 13 + end +end diff --git a/official/2.1.1/examples/windows/asuser/CreateProcAsUserDemoMain.pas b/official/2.1.1/examples/windows/asuser/CreateProcAsUserDemoMain.pas new file mode 100644 index 0000000..1b84f54 --- /dev/null +++ b/official/2.1.1/examples/windows/asuser/CreateProcAsUserDemoMain.pas @@ -0,0 +1,93 @@ +unit CreateProcAsUserDemoMain; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls; + +type + TForm1 = class(TForm) + edtDomain: TEdit; + Label1: TLabel; + edtUserName: TEdit; + Label2: TLabel; + edtPassword: TEdit; + Label3: TLabel; + edtCommandLine: TEdit; + Label4: TLabel; + btnCreateProcAsUser: TButton; + btnCreateProcAsUserEx: TButton; + lbEnvironment: TListBox; + Label5: TLabel; + edtEnvString: TEdit; + btnAddEnvString: TButton; + btnRemoveEnvString: TButton; + btnClearEnvStrings: TButton; + chkEnvAdditional: TCheckBox; + chkEnvCurrentUser: TCheckBox; + chkEnvLocalMachine: TCheckBox; + procedure btnAddEnvStringClick(Sender: TObject); + procedure btnClearEnvStringsClick(Sender: TObject); + procedure btnRemoveEnvStringClick(Sender: TObject); + procedure btnCreateProcAsUserClick(Sender: TObject); + procedure btnCreateProcAsUserExClick(Sender: TObject); + private + public + end; + +var + Form1: TForm1; + +implementation + +uses + JclMiscel, JclStrings, JclSysInfo; + +{$R *.dfm} + +procedure TForm1.btnAddEnvStringClick(Sender: TObject); +begin + lbEnvironment.Items.Add(edtEnvString.Text); +end; + +procedure TForm1.btnClearEnvStringsClick(Sender: TObject); +begin + lbEnvironment.Items.Clear; +end; + +procedure TForm1.btnRemoveEnvStringClick(Sender: TObject); +var + I: Integer; +begin + for I := lbEnvironment.Items.Count - 1 downto 0 do + if lbEnvironment.Selected[I] then + lbEnvironment.Items.Delete(I); +end; + +procedure TForm1.btnCreateProcAsUserClick(Sender: TObject); +begin + CreateProcAsUser(edtDomain.Text, edtUserName.Text, + edtPassWord.Text, edtCommandline.Text); +end; + +procedure TForm1.btnCreateProcAsUserExClick(Sender: TObject); +var + Env: PChar; + EnvOptions: TEnvironmentOptions; +begin + EnvOptions := []; + if chkEnvAdditional.Checked then + EnvOptions := EnvOptions + [eoAdditional]; + if chkEnvCurrentUser.Checked then + EnvOptions := EnvOptions + [eoCurrentUser]; + if chkEnvLocalMachine.Checked then + EnvOptions := EnvOptions + [eoLocalMachine]; + + Env := CreateEnvironmentBlock(EnvOptions, lbEnvironment.Items); + CreateProcAsUserEx(edtDomain.Text, edtUserName.Text, + edtPassWord.Text, edtCommandline.Text, Env); + DestroyEnvironmentBlock(Env); +end; + +end. diff --git a/official/2.1.1/examples/windows/asuser/CreateProcAsUserExample.dof b/official/2.1.1/examples/windows/asuser/CreateProcAsUserExample.dof new file mode 100644 index 0000000..4a388e0 --- /dev/null +++ b/official/2.1.1/examples/windows/asuser/CreateProcAsUserExample.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\bin + diff --git a/official/2.1.1/examples/windows/asuser/CreateProcAsUserExample.dpr b/official/2.1.1/examples/windows/asuser/CreateProcAsUserExample.dpr new file mode 100644 index 0000000..d78c9e5 --- /dev/null +++ b/official/2.1.1/examples/windows/asuser/CreateProcAsUserExample.dpr @@ -0,0 +1,17 @@ +program CreateProcAsUserExample; + + +{$I jcl.inc} + +uses + Forms, + CreateProcAsUserDemoMain in 'CreateProcAsUserDemoMain.pas' {Form1}; + +{$R *.RES} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/asuser/CreateProcAsUserExample.res b/official/2.1.1/examples/windows/asuser/CreateProcAsUserExample.res new file mode 100644 index 0000000000000000000000000000000000000000..472f2e47297a46cf06bb2ce0c8024f600e93445f GIT binary patch literal 876 zcmb7Dv2N5r5S`;9xg)W{DJ54@#)?ixq5woi0mwzzd`4C)-)wZn8KKjRL~&IVegsim z<4;MMl8!BqmN)jD1QHD+KkvSIvoqseFA>ok$aw^&f7!#MgFZ#fWYA7dilal&Gfd{d zD_}xo0Hra(u1-$Sq_Y{=t)_t=*?Vay!e$CjOQd&(lrSF0Tls2mP+KZU0$}{QB){?Cac-k=ge)P zs@#gmop0R8g}oxl?IPC5q$+ilyo8%O(__-l!GrVd4Js^S-iEqTry#JnP8vd!s;FDl zq;Z||>|&v=4zWd2S?5$WWh!|QKY>F}P3_f(5WOWpd|j7mcHv`Ne;>F+kC;*qx`@}N zI@2b!D425=SVC0ra{+0Ysaf8YfGz8My5jwi7&srkpXp z9NZS0rZ02XvDWFgVg)9vo;QjnQKSDp@U9?#Ex_7v>500o()q z9vw!*|5}IN*3c784fkjixsOrfDQdkOu0=o1Pl)Io$oVn7qu2D7-UDyw1IB~>c`xiX POlUqo8g7N%q6z&5v1T5M literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/clr/ClrDemo.dof b/official/2.1.1/examples/windows/clr/ClrDemo.dof new file mode 100644 index 0000000..4a388e0 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemo.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\bin + diff --git a/official/2.1.1/examples/windows/clr/ClrDemo.dpr b/official/2.1.1/examples/windows/clr/ClrDemo.dpr new file mode 100644 index 0000000..8ec09f3 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemo.dpr @@ -0,0 +1,24 @@ +program ClrDemo; + +{$I jcl.inc} + +uses + Forms, + ClrDemoMain in 'ClrDemoMain.pas' {frmMain}, + ClrDemoAbstractFrame in 'ClrDemoAbstractFrame.pas' {frmAbstract: TFrame}, + ClrDemoMetaDataFrame in 'ClrDemoMetaDataFrame.pas' {frmMetadata: TFrame}, + ClrDemoStringsForm in 'ClrDemoStringsForm.pas' {frmStrings}, + ClrDemoGuidForm in 'ClrDemoGuidForm.pas' {frmGuid}, + ClrDemoBlobForm in 'ClrDemoBlobForm.pas' {frmBlobs}, + ClrDemoTableForm in 'ClrDemoTableForm.pas' {frmTable}, + ClrDemoUserStringsForm in 'ClrDemoUserStringsForm.pas' {frmUserStrings}, + ClrDemoCLRFrame in 'ClrDemoCLRFrame.pas' {frmCLR: TFrame}; + +{$R *.RES} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TfrmMain, frmMain); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/clr/ClrDemo.res b/official/2.1.1/examples/windows/clr/ClrDemo.res new file mode 100644 index 0000000000000000000000000000000000000000..82939cc191c05fe6fd6dd859ecac1882ea6c6860 GIT binary patch literal 1128 zcmd^8Jxjw-6g|;E9g1dfa5IC0V}^o@P(>|t(1Mk&C4)*qBB(zg|0@-;_x*$p4i0WQ zI*8A6?@frM4o)s!dhWaT+)rNm03as3H_%*=mz6rc%A7!BQPc|Sq+J>@aXx&YJ6iWUqYJoE8k`}`7BJ>Pt=|^3V7Hy6?dD8?YgG z0$P8CO#lhu{W?x@h(6AUBMf-f^8H=NYX}g>k-iFfMFHkaj0x`}qJB%^T3tU!hvo=F zjHyp>POGmI#yYP@TjVi({gi$NVXRkIOiD-?qpqrb)k8es4ijX!MvvzWF4;N56>b^d s(wu}_B-kT5+(9-vR(^z(waZn&j!wK_G-a=Qc1<~F!k(E{w!-J|3)TO2LI3~& literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/clr/ClrDemoAbstractFrame.dfm b/official/2.1.1/examples/windows/clr/ClrDemoAbstractFrame.dfm new file mode 100644 index 0000000..8252c1c --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoAbstractFrame.dfm @@ -0,0 +1,7 @@ +object frmAbstract: TfrmAbstract + Left = 0 + Top = 0 + Width = 320 + Height = 240 + TabOrder = 0 +end diff --git a/official/2.1.1/examples/windows/clr/ClrDemoAbstractFrame.pas b/official/2.1.1/examples/windows/clr/ClrDemoAbstractFrame.pas new file mode 100644 index 0000000..2c49099 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoAbstractFrame.pas @@ -0,0 +1,105 @@ +unit ClrDemoAbstractFrame; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, JclCLR; + +type + TfrmAbstract = class(TFrame) + public + procedure ShowInfo(const ACLR: TJclCLRHeaderEx); virtual; abstract; + + class procedure DumpBuf(const Ptr: Pointer; const Size: Integer; + const memDump: TMemo; const Base: DWORD = 0; + const AutoClear: Boolean = True); overload; + class procedure DumpBuf(const Blob: TJclCLRBlobRecord; const memDump: TMemo; + const AutoClear: Boolean = False); overload; + end; + +implementation + +{$R *.DFM} + +uses + JclStrings; + +{ TfrmAbstract } + +class procedure TfrmAbstract.DumpBuf(const Ptr: Pointer; const Size: Integer; + const memDump: TMemo; const Base: DWORD; const AutoClear: Boolean); +const + WIDE_LINE_WIDTH = 76; + THIN_LINE_WIDTH = 44; +var + I, ByteCount, LineWidth: Integer; + pch: PChar; + DumpStr: string; +begin + if AutoClear then memDump.Clear; + + ByteCount := 0; + pch := Ptr; + + with TCanvas.Create do + try + Handle := GetDC(memDump.Handle); + Font.Name := 'Fixedsys'; + Font.Size := 12; + if (TextWidth('?')*WIDE_LINE_WIDTH) < memDump.ClientWidth then + LineWidth := 16 + else if (TextWidth('?')*THIN_LINE_WIDTH) < memDump.ClientWidth then + LineWidth := 8 + else + LineWidth := 4; + finally + Free; + end; + + with memDump.Lines do + try + BeginUpdate; + + while ByteCount < Size do + begin + DumpStr := IntToHex(Base + DWord(ByteCount), 8) + ': '; + for I:=0 to LineWidth-1 do + begin + if ((Size - ByteCount) > LineWidth) or ((Size - ByteCount) > I) then + DumpStr := DumpStr + IntToHex(Integer(pch[ByteCount+I]), 2) + ' ' + else + DumpStr := DumpStr + ' '; + end; + + DumpStr := DumpStr + '; '; + + for I:=0 to LineWidth-1 do + begin + if ((Size - ByteCount) > LineWidth) or ((Size - ByteCount) > I) then + begin + if CharIsAlphaNum(Char(pch[ByteCount+I])) then + DumpStr := DumpStr + pch[ByteCount+I] + else + DumpStr := DumpStr + '.' + end + else + DumpStr := DumpStr + ' '; + end; + + Add(DumpStr); + Inc(ByteCount, LineWidth); + end; + finally + EndUpdate; + end; + memDump.Perform(WM_VSCROLL, SB_TOP, 0); +end; + +class procedure TfrmAbstract.DumpBuf(const Blob: TJclCLRBlobRecord; + const memDump: TMemo; const AutoClear: Boolean); +begin + TfrmAbstract.DumpBuf(Blob.Memory, Blob.Size, memDump, Blob.Offset, AutoClear); +end; + +end. diff --git a/official/2.1.1/examples/windows/clr/ClrDemoBlobForm.dfm b/official/2.1.1/examples/windows/clr/ClrDemoBlobForm.dfm new file mode 100644 index 0000000..cd4bb39 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoBlobForm.dfm @@ -0,0 +1,71 @@ +object frmBlobs: TfrmBlobs + Left = 414 + Top = 406 + BorderStyle = bsDialog + Caption = 'Blob Stream' + ClientHeight = 273 + ClientWidth = 392 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + PixelsPerInch = 96 + TextHeight = 13 + object btnOK: TBitBtn + Left = 159 + Top = 240 + Width = 75 + Height = 25 + TabOrder = 0 + Kind = bkOK + end + object lstBlobs: TListView + Left = 8 + Top = 8 + Width = 377 + Height = 105 + Columns = < + item + Caption = 'Index' + Width = 40 + end + item + Alignment = taCenter + Caption = 'Offset' + Width = 80 + end + item + Caption = 'Size' + Width = 64 + end> + GridLines = True + OwnerData = True + ReadOnly = True + RowSelect = True + TabOrder = 1 + ViewStyle = vsReport + OnData = lstBlobsData + OnSelectItem = lstBlobsSelectItem + end + object memDump: TMemo + Left = 8 + Top = 120 + Width = 377 + Height = 113 + Color = clInactiveBorder + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Fixedsys' + Font.Style = [] + ImeName = #32043#20809#25340#38899#36755#20837#27861'2.2'#29256 + ParentFont = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 2 + end +end diff --git a/official/2.1.1/examples/windows/clr/ClrDemoBlobForm.pas b/official/2.1.1/examples/windows/clr/ClrDemoBlobForm.pas new file mode 100644 index 0000000..ef8bf69 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoBlobForm.pas @@ -0,0 +1,71 @@ +unit ClrDemoBlobForm; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + JclCLR, StdCtrls, Buttons, ComCtrls; + +type + TfrmBlobs = class(TForm) + btnOK: TBitBtn; + lstBlobs: TListView; + memDump: TMemo; + procedure lstBlobsSelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); + procedure lstBlobsData(Sender: TObject; Item: TListItem); + private + FStream: TJclCLRBlobStream; + procedure ShowBlobs(const AStream: TJclCLRBlobStream); + public + class procedure Execute(const AStream: TJclCLRBlobStream); + end; + +var + frmBlobs: TfrmBlobs; + +implementation + +uses ClrDemoAbstractFrame; + +{$R *.DFM} + +{ TfrmBlobs } + +class procedure TfrmBlobs.Execute(const AStream: TJclCLRBlobStream); +begin + with TfrmBlobs.Create(nil) do + try + ShowBlobs(AStream); + ShowModal; + finally + Free; + end; +end; + +procedure TfrmBlobs.ShowBlobs(const AStream: TJclCLRBlobStream); +begin + FStream := AStream; + lstBlobs.Items.Count := FStream.BlobCount; +end; + +procedure TfrmBlobs.lstBlobsSelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); +begin + if Selected then + with TJclCLRBlobRecord(Item.Data) do + TfrmAbstract.DumpBuf(Memory, Size, memDump, + FStream.Offset + DWORD(Memory) - DWORD(FStream.Data)); +end; + +procedure TfrmBlobs.lstBlobsData(Sender: TObject; Item: TListItem); +begin + Item.Caption := IntToStr(Item.Index); + Item.Data := FStream.Blobs[Item.Index]; + + Item.SubItems.Add('$' + + IntToHex(FStream.Blobs[Item.Index].Offset, 8)); + Item.SubItems.Add(IntToStr(FStream.Blobs[Item.Index].Size)); +end; + +end. diff --git a/official/2.1.1/examples/windows/clr/ClrDemoCLRFrame.dfm b/official/2.1.1/examples/windows/clr/ClrDemoCLRFrame.dfm new file mode 100644 index 0000000..99dd6f2 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoCLRFrame.dfm @@ -0,0 +1,184 @@ +inherited frmCLR: TfrmCLR + Width = 422 + Height = 325 + object PC: TPageControl + Left = 0 + Top = 89 + Width = 422 + Height = 236 + ActivePage = tsStrongNameSign + Align = alClient + TabOrder = 0 + object tsStrongNameSign: TTabSheet + Caption = 'Strong Name Signature' + object memStrongNameSign: TMemo + Left = 0 + Top = 0 + Width = 414 + Height = 208 + TabStop = False + Align = alClient + Color = clInactiveBorder + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Fixedsys' + Font.Style = [] + ParentFont = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 0 + end + end + object tsResources: TTabSheet + Caption = 'Resources' + ImageIndex = 1 + object memResources: TMemo + Left = 0 + Top = 105 + Width = 414 + Height = 103 + TabStop = False + Align = alClient + Color = clInactiveBorder + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Fixedsys' + Font.Style = [] + ParentFont = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 0 + end + object lstResources: TListView + Left = 0 + Top = 0 + Width = 414 + Height = 105 + Align = alTop + Columns = < + item + Caption = 'Index' + Width = 40 + end + item + Alignment = taCenter + Caption = 'Offset' + Width = 80 + end + item + Alignment = taCenter + Caption = 'RVA' + Width = 80 + end + item + Caption = 'Size' + Width = 64 + end> + ReadOnly = True + RowSelect = True + TabOrder = 1 + ViewStyle = vsReport + OnSelectItem = lstResourcesSelectItem + end + end + object tsVTableFixup: TTabSheet + Caption = 'VTable Fixups' + ImageIndex = 2 + object lstVTableFixups: TListView + Left = 0 + Top = 0 + Width = 414 + Height = 208 + Align = alClient + Columns = < + item + Caption = 'Index' + Width = 40 + end + item + Alignment = taCenter + Caption = 'Offset' + Width = 80 + end + item + Caption = 'Count' + Width = 40 + end + item + Caption = 'Flags' + Width = 200 + end> + ReadOnly = True + RowSelect = True + TabOrder = 0 + ViewStyle = vsReport + end + end + end + object pnlTop: TPanel + Left = 0 + Top = 0 + Width = 422 + Height = 89 + Align = alTop + BevelOuter = bvNone + TabOrder = 1 + object lblVer: TLabel + Left = 8 + Top = 16 + Width = 108 + Height = 13 + Caption = 'Required CLR Version:' + end + object lblEntryPointToken: TLabel + Left = 8 + Top = 56 + Width = 88 + Height = 13 + Caption = 'Entry Point Token:' + end + object edtVer: TEdit + Left = 120 + Top = 12 + Width = 121 + Height = 21 + Color = clInactiveBorder + ReadOnly = True + TabOrder = 0 + end + object boxFlags: TGroupBox + Left = 256 + Top = 0 + Width = 145 + Height = 81 + Caption = 'Image Runtime Flags' + TabOrder = 1 + object lstFlags: TCheckListBox + Left = 8 + Top = 16 + Width = 129 + Height = 57 + TabStop = False + Color = clInactiveBorder + ItemHeight = 13 + Items.Strings = ( + 'IL Only' + '32bit Required' + 'Strong Name Signed' + 'Track Debug Data') + TabOrder = 0 + end + end + object edtEntryPointToken: TEdit + Left = 120 + Top = 52 + Width = 121 + Height = 21 + Color = clInactiveBorder + ReadOnly = True + TabOrder = 2 + end + end +end diff --git a/official/2.1.1/examples/windows/clr/ClrDemoCLRFrame.pas b/official/2.1.1/examples/windows/clr/ClrDemoCLRFrame.pas new file mode 100644 index 0000000..38da0e0 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoCLRFrame.pas @@ -0,0 +1,183 @@ +unit ClrDemoCLRFrame; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ClrDemoAbstractFrame, StdCtrls, JclCLR, CheckLst, ExtCtrls, ComCtrls; + +type + TfrmCLR = class (TfrmAbstract) + boxFlags: TGroupBox; + edtEntryPointToken: TEdit; + edtVer: TEdit; + lblEntryPointToken: TLabel; + lblVer: TLabel; + lstFlags: TCheckListBox; + lstResources: TListView; + lstVTableFixups: TListView; + memResources: TMemo; + memStrongNameSign: TMemo; + PC: TPageControl; + pnlTop: TPanel; + tsResources: TTabSheet; + tsStrongNameSign: TTabSheet; + tsVTableFixup: TTabSheet; + procedure lstResourcesSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); + private + FCLR: TJclClrHeaderEx; + public + procedure ShowInfo(const ACLR: TJclCLRHeaderEx); override; + end; + +var + frmCLR: TfrmCLR; + +implementation + +{$R *.DFM} + +uses + Math, TypInfo, JclMetadata; + +{ TfrmCLR } + +{ +*********************************** TfrmCLR ************************************ +} +procedure TfrmCLR.lstResourcesSelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); +begin + if Selected then + with TJclCLRResourceRecord(Item.Data) do + DumpBuf(Memory, Size, memResources, RVA); +end; + +procedure TfrmCLR.ShowInfo(const ACLR: TJclCLRHeaderEx); + + procedure UpdateFlags; + var + AFlag: TJclClrImageFlag; + begin + for AFlag:=Low(TJclClrImageFlag) to High(TJclClrImageFlag) do + begin + lstFlags.Checked[Integer(AFlag)] := AFlag in ACLR.Flags; + lstFlags.ItemEnabled[Integer(AFlag)] := False; + end; + end; + + procedure UpdateEntryPointToken; + var + AMethod: TJclCLRTableMethodDefRow; + ATypeDef: TJclCLRTableTypeDefRow; + begin + if Assigned(ACLR.EntryPointToken) then + begin + if ACLR.EntryPointToken is TJclCLRTableMethodDefRow then + begin + AMethod := ACLR.EntryPointToken as TJclCLRTableMethodDefRow; + if AMethod.ParentToken is TJclCLRTableTypeDefRow then + begin + ATypeDef := AMethod.ParentToken as TJclCLRTableTypeDefRow; + edtEntryPointToken.Text := ATypeDef.Namespace + '.' + ATypeDef.Name + '.' + AMethod.Name; + end + else + edtEntryPointToken.Text := AMethod.Name; + end + else if ACLR.EntryPointToken is TJclCLRTableFileRow then + edtEntryPointToken.Text := 'External file' + else + edtEntryPointToken.Text := '$' + IntToHex(ACLR.Header.EntryPointToken, 8); + end + else + edtEntryPointToken.Text := '(none)'; + end; + + procedure UpdateStrongNameSign; + begin + if ACLR.HasStrongNameSignature then + with ACLR.StrongNameSignature, ACLR.Header.StrongNameSignature do + DumpBuf(Memory, Size, memStrongNameSign, + VirtualAddress-ACLR.Image.RvaToSection(VirtualAddress).PointerToRawData) + else + memStrongNameSign.Clear; + end; + + procedure UpdateResources; + var + I: Integer; + begin + with lstResources.Items do + try + BeginUpdate; + Clear; + + if ACLR.HasResources then + for I:=0 to ACLR.ResourceCount-1 do + with Add do + begin + Caption := IntToStr(I); + Data := ACLR.Resources[I]; + with ACLR.Resources[I] do + begin + SubItems.Add('$' + IntToHex(Offset, 8)); + SubItems.Add('$' + IntToHex(RVA, 8)); + SubItems.Add(IntToStr(Size)); + end; + end + else + memResources.Clear; + finally + EndUpdate; + end; + end; + + function FormatVTableKinds(const Kinds: TJclClrVTableKinds): string; + var + AKind: TJclClrVTableKind; + begin + Result := ''; + for AKind:=Low(TJclClrVTableKind) to High(TJclClrVTableKind) do + if AKind in Kinds then + Result := Result + GetEnumName(TypeInfo(TJclClrVTableKind), Integer(AKind)) + ' '; + end; + + procedure UpdateVTableFixups; + var + I: Integer; + begin + with lstVTableFixups.Items do + try + BeginUpdate; + Clear; + if ACLR.HasVTableFixup then + for I:=0 to ACLR.VTableFixupCount-1 do + with Add do + begin + Caption := IntToStr(I); + Data := ACLR.VTableFixups[I]; + with ACLR.VTableFixups[I] do + begin + SubItems.Add('$' + IntToHex(RVA, 8)); + SubItems.Add(IntToStr(Count)); + SubItems.Add(FormatVTableKinds(Kinds)); + end; + end; + finally + EndUpdate; + end; + end; + +begin + FCLR := ACLR; + + edtVer.Text := ACLR.VersionString; + UpdateEntryPointToken; + UpdateFlags; + UpdateStrongNameSign; + UpdateResources; + UpdateVTableFixups; +end; + +end. + diff --git a/official/2.1.1/examples/windows/clr/ClrDemoGuidForm.dfm b/official/2.1.1/examples/windows/clr/ClrDemoGuidForm.dfm new file mode 100644 index 0000000..252c632 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoGuidForm.dfm @@ -0,0 +1,48 @@ +object frmGuid: TfrmGuid + Left = 339 + Top = 225 + BorderStyle = bsDialog + Caption = 'Guid Stream' + ClientHeight = 273 + ClientWidth = 392 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + PixelsPerInch = 96 + TextHeight = 13 + object btnOK: TBitBtn + Left = 159 + Top = 240 + Width = 75 + Height = 25 + TabOrder = 0 + Kind = bkOK + end + object lstGuids: TListView + Left = 8 + Top = 8 + Width = 377 + Height = 225 + Columns = < + item + Caption = 'Index' + Width = 40 + end + item + Caption = 'GUID' + Width = 320 + end> + GridLines = True + OwnerData = True + ReadOnly = True + RowSelect = True + TabOrder = 1 + ViewStyle = vsReport + OnData = lstGuidsData + end +end diff --git a/official/2.1.1/examples/windows/clr/ClrDemoGuidForm.pas b/official/2.1.1/examples/windows/clr/ClrDemoGuidForm.pas new file mode 100644 index 0000000..0814a97 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoGuidForm.pas @@ -0,0 +1,53 @@ +unit ClrDemoGuidForm; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ComCtrls, StdCtrls, Buttons, JclCLR; + +type + TfrmGuid = class(TForm) + btnOK: TBitBtn; + lstGuids: TListView; + procedure lstGuidsData(Sender: TObject; Item: TListItem); + private + FStream: TJclCLRGuidStream; + procedure ShowGuids(const AStream: TJclCLRGuidStream); + public + class procedure Execute(const AStream: TJclCLRGuidStream); + end; + +implementation + +{$R *.DFM} + +uses + ComObj; + +{ TfrmGuid } + +class procedure TfrmGuid.Execute(const AStream: TJclCLRGuidStream); +begin + with TfrmGuid.Create(nil) do + try + ShowGuids(AStream); + ShowModal; + finally + Free; + end; +end; + +procedure TfrmGuid.ShowGuids(const AStream: TJclCLRGuidStream); +begin + FStream := AStream; + lstGuids.Items.Count := FStream.GuidCount; +end; + +procedure TfrmGuid.lstGuidsData(Sender: TObject; Item: TListItem); +begin + Item.Caption := IntToStr(Item.Index); + Item.SubItems.Add(GUIDToString(FStream.Guids[Item.Index])); +end; + +end. diff --git a/official/2.1.1/examples/windows/clr/ClrDemoMain.dfm b/official/2.1.1/examples/windows/clr/ClrDemoMain.dfm new file mode 100644 index 0000000..4566ad1 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoMain.dfm @@ -0,0 +1,171 @@ +object frmMain: TfrmMain + Left = 274 + Top = 241 + Width = 696 + Height = 480 + Caption = 'Microsoft .Net Framework CLR Demo' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Menu = mnuMain + OldCreateOrder = False + Position = poDesktopCenter + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object barStatus: TStatusBar + Left = 0 + Top = 415 + Width = 688 + Height = 19 + Panels = <> + end + object PC: TPageControl + Left = 0 + Top = 0 + Width = 688 + Height = 415 + ActivePage = tsCLR + Align = alClient + TabOrder = 1 + OnChange = PCChange + object tsCLR: TTabSheet + Caption = 'CLR' + inline frmCLR: TfrmCLR + Left = 0 + Top = 0 + Width = 680 + Height = 387 + Align = alClient + TabOrder = 0 + inherited PC: TPageControl + Width = 680 + Height = 298 + inherited tsStrongNameSign: TTabSheet + inherited memStrongNameSign: TMemo + Width = 672 + Height = 270 + end + end + end + inherited pnlTop: TPanel + Width = 680 + end + end + end + object tsMetadata: TTabSheet + Caption = 'Metadata' + ImageIndex = 1 + inline frmMetadata: TfrmMetadata + Left = 0 + Top = 0 + Width = 680 + Height = 387 + Align = alClient + TabOrder = 0 + inherited pnlVer: TPanel + Width = 680 + end + inherited lstStream: TListView + Width = 680 + Height = 355 + PopupMenu = popMetadataStream + OnDblClick = frmMetadatalstStreamDblClick + end + end + end + end + object lstActions: TActionList + Left = 24 + Top = 144 + object actFileExit: TAction + Category = 'File' + Caption = 'E&xit' + ShortCut = 32883 + OnExecute = actFileExitExecute + end + object actFileOpen: TAction + Category = 'File' + Caption = '&Open' + ShortCut = 16463 + OnExecute = actFileOpenExecute + end + object actHelpAbout: TAction + Category = 'Help' + Caption = '&About' + ShortCut = 112 + OnExecute = actHelpAboutExecute + end + object actViewStreamData: TAction + Category = 'View' + Caption = 'Stream &Data' + OnExecute = actViewStreamDataExecute + OnUpdate = actViewStreamDataUpdate + end + object actFileDump: TAction + Category = 'File' + Caption = 'Dump IL...' + ShortCut = 16452 + OnExecute = actFileDumpExecute + OnUpdate = actFileDumpUpdate + end + end + object mnuMain: TMainMenu + Left = 88 + Top = 144 + object mnuFile: TMenuItem + Caption = '&File' + object mnuFileOpen: TMenuItem + Action = actFileOpen + end + object mnuFileDump: TMenuItem + Action = actFileDump + end + object mnuFileLine0: TMenuItem + Caption = '-' + end + object mnuFileExit: TMenuItem + Action = actFileExit + end + end + object mnuView: TMenuItem + Caption = '&View' + object mnuViewStreamData: TMenuItem + Action = actViewStreamData + end + end + object mnuHelp: TMenuItem + Caption = '&Help' + object mnuFileAbout: TMenuItem + Action = actHelpAbout + end + end + end + object dlgOpen: TOpenDialog + Filter = 'Executable Files (*.exe;*.dll)|*.exe;*.dll|All Files (*.*)|*.*' + Title = 'Select a file to browse' + Left = 152 + Top = 144 + end + object popMetadataStream: TPopupMenu + Left = 236 + Top = 144 + object popViewStreamData: TMenuItem + Action = actViewStreamData + end + end + object dlgSave: TSaveDialog + DefaultExt = '.il' + Filter = + 'IL Source Files (*.il)|*.il|Text Files (*.txt)|*.txt|All Files (' + + '*.*)|*.*' + Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing] + Title = 'Dump Metadata to IL Source File' + Left = 320 + Top = 144 + end +end diff --git a/official/2.1.1/examples/windows/clr/ClrDemoMain.pas b/official/2.1.1/examples/windows/clr/ClrDemoMain.pas new file mode 100644 index 0000000..a0687c3 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoMain.pas @@ -0,0 +1,195 @@ +unit ClrDemoMain; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ActnList, Menus, ComCtrls, ClrDemoAbstractFrame, + JclPeImage, JclCLR, ClrDemoMetaDataFrame, ClrDemoCLRFrame; + +type + TfrmMain = class(TForm) + lstActions: TActionList; + actFileExit: TAction; + actFileOpen: TAction; + actHelpAbout: TAction; + mnuMain: TMainMenu; + mnuFile: TMenuItem; + mnuFileOpen: TMenuItem; + mnuFileLine0: TMenuItem; + mnuFileExit: TMenuItem; + mnuHelp: TMenuItem; + mnuFileAbout: TMenuItem; + dlgOpen: TOpenDialog; + barStatus: TStatusBar; + PC: TPageControl; + tsMetadata: TTabSheet; + frmMetadata: TfrmMetadata; + popMetadataStream: TPopupMenu; + actViewStreamData: TAction; + popViewStreamData: TMenuItem; + mnuView: TMenuItem; + mnuViewStreamData: TMenuItem; + tsCLR: TTabSheet; + frmCLR: TfrmCLR; + actFileDump: TAction; + dlgSave: TSaveDialog; + mnuFileDump: TMenuItem; + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure actFileExitExecute(Sender: TObject); + procedure actHelpAboutExecute(Sender: TObject); + procedure actFileOpenExecute(Sender: TObject); + procedure PCChange(Sender: TObject); + procedure actViewStreamDataUpdate(Sender: TObject); + procedure actViewStreamDataExecute(Sender: TObject); + procedure frmMetadatalstStreamDblClick(Sender: TObject); + procedure actFileDumpExecute(Sender: TObject); + procedure actFileDumpUpdate(Sender: TObject); + private + m_Image: TJclPeImage; + m_CLR: TJclCLRHeaderEx; + + function GetActiveFrame: TfrmAbstract; + public + { Public declarations } + end; + +var + frmMain: TfrmMain; + +implementation + +{$R *.DFM} + +uses + ShellApi, ClrDemoStringsForm, ClrDemoGuidForm, ClrDemoBlobForm, + ClrDemoTableForm, ClrDemoUserStringsForm; + +const + CRLF = #10#13; + +procedure TfrmMain.FormCreate(Sender: TObject); +begin + m_Image := nil; + m_CLR := nil; +end; + +procedure TfrmMain.FormDestroy(Sender: TObject); +begin + FreeAndNil(m_CLR); + FreeAndNil(m_Image); +end; + +function TfrmMain.GetActiveFrame: TfrmAbstract; +var + I: Integer; +begin + if Assigned(PC.ActivePage) then + with PC.ActivePage do + for I:=0 to ControlCount-1 do + if Controls[0].InheritsFrom(TfrmAbstract) then + begin + Result := TfrmAbstract(Controls[0]); + Exit; + end; + + raise Exception.Create('No frame was active!'); +end; + +procedure TfrmMain.actFileExitExecute(Sender: TObject); +begin + Close; +end; + +procedure TfrmMain.actHelpAboutExecute(Sender: TObject); +begin + ShellAbout(Handle, PChar(Caption), + PChar('JEDI Code Library (JCL)' + CRLF + 'http://delphi-jedi.org/'), + Application.Icon.Handle); +end; + +procedure TfrmMain.actFileOpenExecute(Sender: TObject); +var + Img: TJclPeImage; +begin + if dlgOpen.Execute then + begin + Img := TJclPeImage.Create; + Img.FileName := dlgOpen.FileName; + + if Img.IsCLR then + begin + FreeAndNil(m_Image); + m_Image := Img; + + FreeAndNil(m_CLR); + m_CLR := TJclCLRHeaderEx.Create(m_Image); + GetActiveFrame.ShowInfo(m_CLR); + end + else + begin + FreeAndNil(Img); + MessageDlg(Format('The file %s is not a CLR file', [dlgOpen.FileName]), mtWarning, [mbOK], 0); + end; + end; +end; + +procedure TfrmMain.PCChange(Sender: TObject); +begin + if Assigned(m_CLR) then + GetActiveFrame.ShowInfo(m_CLR); +end; + +procedure TfrmMain.actViewStreamDataUpdate(Sender: TObject); +begin + with frmMetadata.lstStream do + TAction(Sender).Enabled := Assigned(Selected) and + ((TObject(Selected.Data).ClassType = TJclCLRStringsStream) or + (TObject(Selected.Data).ClassType = TJclCLRGuidStream) or + (TObject(Selected.Data).ClassType = TJclCLRUserStringStream) or + (TObject(Selected.Data).ClassType = TJclCLRBlobStream) or + (TObject(Selected.Data).ClassType = TJclCLRTableStream)); +end; + +procedure TfrmMain.actViewStreamDataExecute(Sender: TObject); +begin + with frmMetadata.lstStream do + if TObject(Selected.Data).ClassType = TJclCLRStringsStream then + TfrmStrings.Execute(Selected.Data) + else if TObject(Selected.Data).ClassType = TJclCLRGuidStream then + TfrmGuid.Execute(Selected.Data) + else if TObject(Selected.Data).ClassType = TJclCLRUserStringStream then + TfrmUserStrings.Execute(Selected.Data) + else if TObject(Selected.Data).ClassType = TJclCLRBlobStream then + TfrmBlobs.Execute(Selected.Data) + else if TObject(Selected.Data).ClassType = TJclCLRTableStream then + TfrmTable.Execute(Selected.Data); +end; + +procedure TfrmMain.frmMetadatalstStreamDblClick(Sender: TObject); +begin + if actViewStreamData.Enabled then + actViewStreamDataExecute(Sender); +end; + +procedure TfrmMain.actFileDumpExecute(Sender: TObject); +begin + dlgSave.InitialDir := ExtractFilePath(m_Image.FileName); + dlgSave.FileName := ExtractFileName(ChangeFileExt(m_Image.FileName, '.il')); + if dlgSave.Execute then + with TStringList.Create do + try + Text := m_CLR.DumpIL; + SaveToFile(dlgSave.FileName); + finally + Free; + end; +end; + +procedure TfrmMain.actFileDumpUpdate(Sender: TObject); +begin + TAction(Sender).Enabled := Assigned(m_CLR); +end; + +end. diff --git a/official/2.1.1/examples/windows/clr/ClrDemoMetaDataFrame.dfm b/official/2.1.1/examples/windows/clr/ClrDemoMetaDataFrame.dfm new file mode 100644 index 0000000..da945dc --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoMetaDataFrame.dfm @@ -0,0 +1,70 @@ +inherited frmMetadata: TfrmMetadata + Width = 374 + Height = 276 + object pnlVer: TPanel + Left = 0 + Top = 0 + Width = 374 + Height = 32 + Align = alTop + BevelOuter = bvNone + TabOrder = 0 + object lblVer: TLabel + Left = 8 + Top = 8 + Width = 38 + Height = 13 + Caption = 'Version:' + end + object lblVerStr: TLabel + Left = 160 + Top = 8 + Width = 68 + Height = 13 + Caption = 'Version String:' + end + object edtVer: TEdit + Left = 56 + Top = 4 + Width = 89 + Height = 21 + Color = clInactiveBorder + ReadOnly = True + TabOrder = 0 + end + object edtVerStr: TEdit + Left = 240 + Top = 4 + Width = 89 + Height = 21 + Color = clInactiveBorder + ReadOnly = True + TabOrder = 1 + end + end + object lstStream: TListView + Left = 0 + Top = 32 + Width = 374 + Height = 244 + Align = alClient + Columns = < + item + AutoSize = True + Caption = 'Name' + end + item + AutoSize = True + Caption = 'Offset' + end + item + AutoSize = True + Caption = 'Size' + end> + GridLines = True + ReadOnly = True + RowSelect = True + TabOrder = 1 + ViewStyle = vsReport + end +end diff --git a/official/2.1.1/examples/windows/clr/ClrDemoMetaDataFrame.pas b/official/2.1.1/examples/windows/clr/ClrDemoMetaDataFrame.pas new file mode 100644 index 0000000..e1e4264 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoMetaDataFrame.pas @@ -0,0 +1,56 @@ +unit ClrDemoMetaDataFrame; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ClrDemoAbstractFrame, JclCLR, StdCtrls, ComCtrls, ExtCtrls, Menus; + +type + TfrmMetadata = class(TfrmAbstract) + pnlVer: TPanel; + lblVer: TLabel; + edtVer: TEdit; + edtVerStr: TEdit; + lblVerStr: TLabel; + lstStream: TListView; + private + { Private declarations } + public + procedure ShowInfo(const ACLR: TJclCLRHeaderEx); override; + end; + +var + frmMetadata: TfrmMetadata; + +implementation + +{$R *.DFM} + +{ TfrmMetadata } + +procedure TfrmMetadata.ShowInfo(const ACLR: TJclCLRHeaderEx); +var + I: Integer; +begin + with ACLR.Metadata do + begin + edtVer.Text := Version; + edtVerStr.Text := VersionString; + + with lstStream.Items do + begin + Clear; + for I:=0 to StreamCount-1 do + with Add do + begin + Caption := Streams[I].Name; + Data := Streams[I]; + SubItems.Add('$' + IntToHex(Streams[I].Offset, 8)); + SubItems.Add(IntToStr(Streams[I].Size)); + end; + end; + end; +end; + +end. diff --git a/official/2.1.1/examples/windows/clr/ClrDemoStringsForm.dfm b/official/2.1.1/examples/windows/clr/ClrDemoStringsForm.dfm new file mode 100644 index 0000000..6803682 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoStringsForm.dfm @@ -0,0 +1,52 @@ +object frmStrings: TfrmStrings + Left = 291 + Top = 205 + BorderStyle = bsDialog + Caption = 'Strings Stream' + ClientHeight = 273 + ClientWidth = 392 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + PixelsPerInch = 96 + TextHeight = 13 + object lstStrings: TListView + Left = 8 + Top = 8 + Width = 377 + Height = 225 + Columns = < + item + Caption = 'Index' + Width = 40 + end + item + Caption = 'Offset' + Width = 64 + end + item + Caption = 'String' + Width = 315 + end> + GridLines = True + OwnerData = True + ReadOnly = True + RowSelect = True + TabOrder = 0 + ViewStyle = vsReport + OnData = lstStringsData + end + object btnOK: TBitBtn + Left = 158 + Top = 240 + Width = 75 + Height = 25 + TabOrder = 1 + Kind = bkOK + end +end diff --git a/official/2.1.1/examples/windows/clr/ClrDemoStringsForm.pas b/official/2.1.1/examples/windows/clr/ClrDemoStringsForm.pas new file mode 100644 index 0000000..a9364bf --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoStringsForm.pas @@ -0,0 +1,54 @@ +unit ClrDemoStringsForm; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, Buttons, ComCtrls, JclCLR; + +type + TfrmStrings = class(TForm) + lstStrings: TListView; + btnOK: TBitBtn; + procedure lstStringsData(Sender: TObject; Item: TListItem); + private + FStream: TJclCLRStringsStream; + procedure ShowStrings(const AStream: TJclCLRStringsStream); + public + class procedure Execute(const AStream: TJclCLRStringsStream); + end; + +implementation + +{$R *.DFM} + +uses + JclUnicode; + +{ TfrmStrings } + +class procedure TfrmStrings.Execute(const AStream: TJclCLRStringsStream); +begin + with TfrmStrings.Create(nil) do + try + ShowStrings(AStream); + ShowModal; + finally + Free; + end; +end; + +procedure TfrmStrings.ShowStrings(const AStream: TJclCLRStringsStream); +begin + FStream := AStream; + lstStrings.Items.Count := FStream.StringCount; +end; + +procedure TfrmStrings.lstStringsData(Sender: TObject; Item: TListItem); +begin + Item.Caption := IntToStr(Item.Index); + Item.SubItems.Add(IntToHex(FStream.Offsets[Item.Index], 8)); + Item.SubItems.Add(FStream.Strings[Item.Index]); +end; + +end. diff --git a/official/2.1.1/examples/windows/clr/ClrDemoTableForm.dfm b/official/2.1.1/examples/windows/clr/ClrDemoTableForm.dfm new file mode 100644 index 0000000..1106400 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoTableForm.dfm @@ -0,0 +1,102 @@ +object frmTable: TfrmTable + Left = 384 + Top = 245 + BorderStyle = bsDialog + Caption = 'Table Stream' + ClientHeight = 453 + ClientWidth = 632 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + PixelsPerInch = 96 + TextHeight = 13 + object lblVer: TLabel + Left = 8 + Top = 8 + Width = 119 + Height = 13 + Caption = 'Table Schemata Version:' + end + object edtVer: TEdit + Left = 136 + Top = 4 + Width = 57 + Height = 21 + Color = clInactiveBorder + ReadOnly = True + TabOrder = 0 + end + object btnOK: TBitBtn + Left = 278 + Top = 424 + Width = 75 + Height = 25 + TabOrder = 1 + Kind = bkOK + end + object lstTables: TListView + Left = 8 + Top = 32 + Width = 617 + Height = 193 + Columns = < + item + Caption = 'Index' + Width = 40 + end + item + Alignment = taCenter + Caption = 'Rows' + Width = 40 + end + item + Alignment = taCenter + Caption = 'Offset' + Width = 76 + end + item + Caption = 'Size' + Width = 40 + end + item + Caption = 'Type' + Width = 200 + end> + GridLines = True + ReadOnly = True + RowSelect = True + TabOrder = 2 + ViewStyle = vsReport + OnSelectItem = lstTablesSelectItem + end + object memDump: TMemo + Left = 8 + Top = 232 + Width = 617 + Height = 185 + Color = clInactiveBorder + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Fixedsys' + Font.Style = [] + ParentFont = False + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 3 + end + object btnDumpIL: TButton + Left = 200 + Top = 4 + Width = 75 + Height = 25 + Caption = 'Dump IL' + TabOrder = 4 + OnClick = btnDumpILClick + end +end diff --git a/official/2.1.1/examples/windows/clr/ClrDemoTableForm.pas b/official/2.1.1/examples/windows/clr/ClrDemoTableForm.pas new file mode 100644 index 0000000..65f384f --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoTableForm.pas @@ -0,0 +1,598 @@ +unit ClrDemoTableForm; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, Buttons, ComCtrls, JclClr, JclMetadata; + +type + TDumpLineKind = (lkWide, lkThin, lkEmpty); + + TfrmTable = class(TForm) + lblVer: TLabel; + edtVer: TEdit; + btnOK: TBitBtn; + lstTables: TListView; + memDump: TMemo; + btnDumpIL: TButton; + procedure lstTablesSelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); + procedure btnDumpILClick(Sender: TObject); + private + FStream: TJclClrTableStream; + + procedure Dump(const Msg: string); overload; + procedure Dump(const FmtMsg: string; const Args: array of const); overload; + procedure Dump(const Msg: string; const Blob: TJclClrBlobRecord); overload; + procedure Dump(const LineKind: TDumpLineKind); overload; + procedure ShowTables(const AStream: TJclClrTableStream); + procedure DumpTable(const ATable: TJclClrTableAssembly); overload; + procedure DumpTable(const ATable: TJclClrTableAssemblyRef); overload; + procedure DumpTable(const ATable: TJclClrTableAssemblyOS); overload; + procedure DumpTable(const ATable: TJclClrTableAssemblyProcessor); overload; + procedure DumpTable(const ATable: TJclClrTableModule); overload; + procedure DumpTable(const ATable: TJclClrTableModuleRef); overload; + procedure DumpTable(const ATable: TJclClrTableFieldDef); overload; + procedure DumpTable(const ATable: TJclClrTableMemberRef); overload; + procedure DumpTable(const ATable: TJclClrTableCustomAttribute); overload; + procedure DumpTable(const ATable: TJclClrTableMethodDef); overload; + procedure DumpTable(const ATable: TJclClrTableTypeDef); overload; + procedure DumpTable(const ATable: TJclClrTableTypeRef); overload; + procedure DumpTable(const ATable: TJclClrTablePropertyDef); overload; + procedure DumpTable(const ATable: TJclClrTableManifestResource); overload; + procedure DumpTable(const ATable: TJclClrTableFile); overload; + procedure DumpTable(const ATable: TJclClrTableParamDef); overload; + procedure DumpTable(const ATable: TJclClrTableExportedType); overload; + public + class procedure Execute(const AStream: TJclClrTableStream); + end; + +implementation + +{$R *.DFM} + +{.$DEFINE USE_JWA} + +uses + ComObj, TypInfo, ClrDemoAbstractFrame, +{$IFDEF USE_JWA} + JwaWinCrypt, JwaWinNT, +{$ENDIF} + JclStrings, JclSysUtils, ClrDemoMain; + +{ TfrmTable } + +class procedure TfrmTable.Execute(const AStream: TJclClrTableStream); +begin + with TfrmTable.Create(nil) do + try + ShowTables(AStream); + ShowModal; + finally + Free; + end; +end; + +procedure TfrmTable.Dump(const Msg: string); +begin + memDump.Lines.Add(Msg); +end; + +procedure TfrmTable.Dump(const FmtMsg: string; const Args: array of const); +begin + Dump(Format(FmtMsg, Args)); +end; + +procedure TfrmTable.Dump(const Msg: string; const Blob: TJclClrBlobRecord); +begin + Dump(Msg); + TfrmAbstract.DumpBuf(Blob, memDump); +end; + +procedure TfrmTable.Dump(const LineKind: TDumpLineKind); +begin + case LineKind of + lkWide: Dump('========================================'); + lkThin: Dump('----------------------------------------'); + lkEmpty: Dump(''); + end; +end; + +procedure TfrmTable.ShowTables(const AStream: TJclClrTableStream); +var + AKind: TJclClrTableKind; +begin + FStream := AStream; + edtVer.Text := AStream.VersionString; + with lstTables.Items do + begin + BeginUpdate; + try + Clear; + for AKind:=Low(TJclClrTableKind) to High(TJclClrTableKind) do + if Assigned(AStream.Tables[AKind]) then + with AStream.Tables[AKind], Add do + begin + Caption := IntToStr(Count); + Data := AStream.Tables[AKind]; + SubItems.Add(IntToStr(RowCount)); + SubItems.Add('$' + IntToHex(Offset, 8)); + SubItems.Add(IntToStr(Size)); + SubItems.Add(Copy(AStream.Tables[AKind].ClassName, StrLen('TJclClrTable')+1, MaxWord)); + end; + finally + EndUpdate; + end; + end; +end; + +procedure TfrmTable.lstTablesSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); +var + ATable: TJclClrTable; +begin + if Selected then + begin + ATable := TJclClrTable(Item.Data); + memDump.Clear; + + if ATable.ClassType = TJclClrTableAssembly then + DumpTable(TJclClrTableAssembly(ATable)) + else if ATable.ClassType = TJclClrTableAssemblyRef then + DumpTable(TJclClrTableAssemblyRef(ATable)) + else if ATable.ClassType = TJclClrTableAssemblyOS then + DumpTable(TJclClrTableAssemblyOS(ATable)) + else if ATable.ClassType = TJclClrTableAssemblyProcessor then + DumpTable(TJclClrTableAssemblyProcessor(ATable)) + else if ATable.ClassType = TJclClrTableModule then + DumpTable(TJclClrTableModule(ATable)) + else if ATable.ClassType = TJclClrTableModuleRef then + DumpTable(TJclClrTableModuleRef(ATable)) + else if ATable.ClassType = TJclClrTableTypeDef then + DumpTable(TJclClrTableTypeDef(ATable)) + else if ATable.ClassType = TJclClrTableTypeRef then + DumpTable(TJclClrTableTypeRef(ATable)) + else if ATable.ClassType = TJclClrTableMethodDef then + DumpTable(TJclClrTableMethodDef(ATable)) + else if ATable.ClassType = TJclClrTableFieldDef then + DumpTable(TJclClrTableFieldDef(ATable)) + else if ATable.ClassType = TJclClrTableMemberRef then + DumpTable(TJclClrTableMemberRef(ATable)) + else if ATable.ClassType = TJclClrTableCustomAttribute then + DumpTable(TJclClrTableCustomAttribute(ATable)) + else if ATable.ClassType = TJclClrTableParamDef then + DumpTable(TJclClrTableParamDef(ATable)) + else if ATable.ClassType = TJclClrTablePropertyDef then + DumpTable(TJclClrTablePropertyDef(ATable)) + else if ATable.ClassType = TJclClrTableFile then + DumpTable(TJclClrTableFile(ATable)) + else if ATable.ClassType = TJclClrTableManifestResource then + DumpTable(TJclClrTableManifestResource(ATable)) + else if ATable.ClassType = TJclClrTableExportedType then + DumpTable(TJclClrTableExportedType(ATable)); + + memDump.Perform(WM_VSCROLL, SB_TOP, 0); + end; +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableAssembly); + function GetHashAlgName(const HashAlgId: DWORD): string; + begin + {$IFDEF USE_JWA} + case HashAlgId of + CALG_MD2: Result := 'MD2'; + CALG_MD4: Result := 'MD4'; + CALG_MD5: Result := 'MD5'; + CALG_SHA1: Result := 'SHA1'; + CALG_MAC: Result := 'MAC'; + else + Result := IntToHex(HashAlgId, 8); + end; + {$ELSE} + Result := IntToHex(HashAlgId, 8); + {$ENDIF} + end; +var + AFlag: TJclClrAssemblyFlag; + FlagMsg: string; +begin + Assert(ATable.RowCount = 1); + with ATable[0] do + begin + Dump('Name: ' + Name); + Dump('Version: ' + Version); + FlagMsg := 'Flag: '; + for AFlag := Low(TJclClrAssemblyFlag) to High(TJclClrAssemblyFlag) do + if AFlag in Flags then + FlagMsg := FlagMsg + + GetEnumName(TypeInfo(TJclClrAssemblyFlag), Integer(AFlag)) + ' '; + Dump(FlagMsg); + if CultureOffset <> 0 then + Dump('Culture: ' + Culture); + Dump('Hash Algorithm: ' + GetHashAlgName(HashAlgId)); + if Assigned(PublicKey) then + Dump('Public Key: ', PublicKey); + end; +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableAssemblyRef); +var + I: Integer; + AFlag: TJclClrAssemblyFlag; + FlagMsg: string; + Assembly: TJclClrTableAssemblyRefRow; +begin + for I:=0 to ATable.RowCount-1 do + begin + Assembly := ATable[I]; + Dump('Name: ' + Assembly.Name); + Dump('Version: ' + Assembly.Version); + FlagMsg := 'Flag: '; + for AFlag := Low(TJclClrAssemblyFlag) to High(TJclClrAssemblyFlag) do + if AFlag in Assembly.Flags then + FlagMsg := FlagMsg + + GetEnumName(TypeInfo(TJclClrAssemblyFlag), Integer(AFlag)) + ' '; + Dump(FlagMsg); + if Assembly.CultureOffset <> 0 then + Dump('Culture: ' + Assembly.Culture); + if Assigned(Assembly.PublicKeyOrToken) then + Dump('Public Key or Token: ', Assembly.PublicKeyOrToken); + if Assigned(Assembly.HashValue) then + Dump('Hash Value: ', Assembly.HashValue); + Dump(lkWide); + end; +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableAssemblyOS); + function GetOSName(const PlatformID: DWORD): string; + begin + case PlatformID of + VER_PLATFORM_WIN32s: Result := 'Win32s'; + VER_PLATFORM_WIN32_WINDOWS: Result := 'Windows'; + VER_PLATFORM_WIN32_NT: Result := 'WinNT'; + else + Result := IntToHex(PlatformID, 8); + end; + end; +var + I: Integer; +begin + for I:=0 to ATable.RowCount-1 do + begin + Dump('OS : ' + GetOSName(ATable[I].PlatformID)); + Dump('Version: ' + ATable[I].Version); + end; +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableAssemblyProcessor); + function GetProcessName(const Processor: DWORD): string; + begin + {$IFDEF USE_JWA} + case Processor of + PROCESSOR_INTEL_386: Result := 'Intel 386'; + PROCESSOR_INTEL_486: Result := 'Intel 486'; + PROCESSOR_INTEL_PENTIUM: Result := 'Intel Pentium'; + PROCESSOR_INTEL_IA64: Result := 'Intel IA64'; + PROCESSOR_MIPS_R4000: Result := 'MIPS R4000'; + PROCESSOR_ALPHA_21064: Result := 'Alpha 21064'; + PROCESSOR_PPC_601: Result := 'Power PC 601'; + PROCESSOR_PPC_603: Result := 'Power PC 603'; + PROCESSOR_PPC_604: Result := 'Power PC 604'; + PROCESSOR_PPC_620: Result := 'Power PC 620'; + PROCESSOR_OPTIL: Result := 'MS IL'; + else + Result := IntToStr(Processor) + ' [' + IntToHex(Processor, 8) + ']'; + end; + {$ELSE} + Result := IntToStr(Processor) + ' [' + IntToHex(Processor, 8) + ']'; + {$ENDIF} + end; +var + I: Integer; +begin + for I:=0 to ATable.RowCount-1 do + begin + Dump('Processor : ' + GetProcessName(ATable[I].Processor)); + end; +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableModule); +begin + Assert(ATable.RowCount = 1); + with ATable[0] do + begin + Dump('Name : %s', [Name]); + Dump('Mvid : %s', [GUIDToString(Mvid)]); + if HasEncId then + Dump('EncId : %s', [GUIDToString(EncId)]); + if HasEncBaseId then + Dump('EncBaseId: %s', [GUIDToString(EncBaseId)]); + end; +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableModuleRef); +var + I: Integer; +begin + for I:=0 to ATable.RowCount-1 do + Dump('Name : ' + ATable[I].Name); +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableTypeDef); +const + ClassSemanticsNames: array[TJclClrClassSemantics] of string = + ('.class', 'interface'); + TypeVisibilityNames: array[TJclClrTypeVisibility] of string = + ('private', 'public', 'nested public', 'nested private', 'nested family', + 'nested assembly', 'nested famandassem', 'nested famorassem'); + AbstractNames: array[Boolean] of string = ('', 'abstract '); + ClassLayoutNames: array[TJclClrClassLayout] of string = + ('auto', 'sequential', 'explicit'); + StringFormattingNames: array[TJclClrStringFormatting] of string = + ('ansi', 'unicode', 'autochar'); + ImportNames: array[Boolean] of string = ('', 'import '); + SerializableNames: array[Boolean] of string = ('', 'serializable'); + SealedNames: array[Boolean] of string = ('', 'sealed '); + SpecialNameNames: array[Boolean] of string = ('', 'specialname '); + BeforeFieldInitNames: array[Boolean] of string = ('', 'beforefieldinit '); + RTSpecialNameNames: array[Boolean] of string = ('', 'rtspecialname '); + HasSecurityNames: array[Boolean] of string = ('', 'HasSecurity '); +var + I, J: Integer; +begin + for I:=0 to ATable.RowCount-1 do + with ATable.Rows[I] do + begin + Dump('%s %s %s%s %s %s%s%s%s%s%s%s%s', + [ClassSemanticsNames[ClassSemantics], + TypeVisibilityNames[Visibility], + AbstractNames[taAbstract in Attributes], + ClassLayoutNames[ClassLayout], + StringFormattingNames[StringFormatting], + ImportNames[taImport in Attributes], + SerializableNames[taSerializable in Attributes], + SealedNames[taSealed in Attributes], + SpecialNameNames[taSpecialName in Attributes], + BeforeFieldInitNames[taBeforeFieldInit in Attributes], + RTSpecialNameNames[taRTSpecialName in Attributes], + HasSecurityNames[taHasSecurity in Attributes], + FullName]); + + if HasField then + for J:=0 to FieldCount-1 do + Dump(' .field %s', [Fields[J].Name]); + + if HasMethod then + for J:=0 to MethodCount-1 do + Dump(' .method %s', [Methods[J].Name]); + end; +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableTypeRef); +var + I: Integer; +begin + for I:=0 to ATable.RowCount-1 do + Dump('%s.%s', [ATable.Rows[I].Namespace, ATable.Rows[I].Name]) +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableMethodDef); +var + I, J: Integer; + AttrStr, ParamStr: string; +begin + for I:=0 to ATable.RowCount-1 do + with ATable.Rows[I] do + begin + if HasParam then + begin + ParamStr := ''; + for J:=0 to ParamCount-1 do + begin + if ParamStr <> '' then + ParamStr := ParamStr + ', '; + if Params[J].Flags <> [] then + begin + AttrStr := ''; + if pkIn in Params[J].Flags then + AttrStr := AttrStr + 'In'; + if pkOut in Params[J].Flags then + begin + if AttrStr <> '' then + AttrStr := AttrStr + ', '; + AttrStr := AttrStr + 'Out'; + end; + if pkOptional in Params[J].Flags then + begin + if AttrStr <> '' then + AttrStr := AttrStr + ', '; + AttrStr := AttrStr + 'Opt'; + end; + if pkHasDefault in Params[J].Flags then + begin + if AttrStr <> '' then + AttrStr := AttrStr + ', '; + AttrStr := AttrStr + 'Default'; + end; + if pkHasFieldMarshal in Params[J].Flags then + begin + if AttrStr <> '' then + AttrStr := AttrStr + ', '; + AttrStr := AttrStr + 'Marshal'; + end; + ParamStr := ParamStr + '[' + AttrStr + '] '; + end; + ParamStr := ParamStr + Params[J].Name; + end; + end; + if Assigned(MethodBody) then + begin + Dump('%s.%s::%s(%s) @ %p:%d', [ParentToken.Namespace, ParentToken.Name, Name, ParamStr, Pointer(RVA), MethodBody.Size]); + TfrmAbstract.DumpBuf(MethodBody.Code, MethodBody.Size, memDump, DWORD(MethodBody.Code), False); + end + else + begin + Dump('%s.%s::%s(%s)', [ParentToken.Namespace, ParentToken.Name, Name, ParamStr]); + end; + end; +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableFieldDef); +var + I: Integer; +begin + for I:=0 to ATable.RowCount-1 do + Dump('%s', [ATable.Rows[I].Name]) +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableMemberRef); +var + I: Integer; +begin + for I:=0 to ATable.RowCount-1 do + Dump('%s', [ATable.Rows[I].Name]) +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableCustomAttribute); + function GetParent(const Attr: TJclClrTableCustomAttributeRow): string; + var + ARow: TJclClrTableRow; + begin + ARow := Attr.Parent; + if ARow is TJclClrTableAssemblyRow then + with ARow as TJclClrTableAssemblyRow do + Result := Name + else if ARow is TJclClrTableTypeDefRow then + with ARow as TJclClrTableTypeDefRow do + Result := Namespace + '.' + Name + else if ARow is TJclClrTableTypeRefRow then + with ARow as TJclClrTableTypeRefRow do + Result := Namespace + '.' + Name + else if ARow is TJclClrTableMethodDefRow then + with ARow as TJclClrTableMethodDefRow do + Result := Name + else if ARow is TJclClrTableParamDefRow then + with ARow as TJclClrTableParamDefRow do + Result := Method.ParentToken.Namespace + '.' + Method.ParentToken.Name + '::' + + Method.Name + '(..., ' + Name + ', ...)' + else + Result := 'Unknown Parent'; + + Result := Result + ' <' + Copy(ARow.ClassName, Length('TJclClrTable')+1, + Length(ARow.ClassName)-Length('TJclClrTable')-Length('Row')) + + '> [' + IntToHex(Attr.ParentIdx, 8) + ']'; + end; + function GetMethod(const Attr: TJclClrTableCustomAttributeRow): string; + function GetParentClassName(const ParentClass: TJclClrTableRow): string; + begin + if ParentClass is TJclClrTableTypeRefRow then + with ParentClass as TJclClrTableTypeRefRow do + Result := Namespace + '.' + Name + else if ParentClass is TJclClrTableModuleRefRow then + with ParentClass as TJclClrTableModuleRefRow do + Result := Name + else if ParentClass is TJclClrTableMethodDefRow then + with ParentClass as TJclClrTableMethodDefRow do + Result := Name + else if ParentClass is TJclClrTableTypeSpecRow then + Result := '' + else if ParentClass is TJclClrTableTypeDefRow then + with ParentClass as TJclClrTableTypeDefRow do + Result := Namespace + '.' + Name + else + Result := 'Unknown Class - ' + ParentClass.ClassName; + end; + var + AMethod: TJclClrTableRow; + begin + AMethod := Attr.Method; + if AMethod is TJclClrTableMethodDefRow then + with AMethod as TJclClrTableMethodDefRow do + Result := ParentToken.Namespace + '.' + ParentToken.Name + ' :: ' + Name + else if AMethod is TJclClrTableMemberRefRow then + with AMethod as TJclClrTableMemberRefRow do + Result := GetParentClassName(ParentClass) + '::' + Name + else + Result := 'Unknown method type - ' + IntToHex(Attr.ParentIdx, 8); + + Result := Result + ' <' + Copy(AMethod.ClassName, Length('TJclClrTable')+1, + Length(AMethod.ClassName)-Length('TJclClrTable')-Length('Row')) + + '> [' + IntToHex(Attr.TypeIdx, 8) + ']'; + end; +var + I: Integer; +begin + for I:=0 to ATable.RowCount-1 do + begin + Dump('Parent: ' + GetParent(ATable[I])); + Dump('Method: ' + GetMethod(ATable[I])); + Dump('Value: ', ATable[I].Value); + Dump(lkWide); + end; +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableParamDef); +var + I: Integer; + Attr: string; +begin + for I:=0 to ATable.RowCount-1 do + begin + Attr := ''; + if pkIn in ATable.Rows[I].Flags then + Attr := Attr + 'In '; + if pkOut in ATable.Rows[I].Flags then + Attr := Attr + 'Out '; + if pkOptional in ATable.Rows[I].Flags then + Attr := Attr + 'Opt '; + if pkHasDefault in ATable.Rows[I].Flags then + Attr := Attr + 'Default '; + if pkHasFieldMarshal in ATable.Rows[I].Flags then + Attr := Attr + 'Marshal '; + + Dump('%s %s', [ATable.Rows[I].Name, Attr]); + end; +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTablePropertyDef); +var + I: Integer; +begin + for I:=0 to ATable.RowCount-1 do + Dump('%s', [ATable.Rows[I].Name]) +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableManifestResource); +var + I: Integer; +begin + for I:=0 to ATable.RowCount-1 do + Dump('%s', [ATable.Rows[I].Name]) +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableFile); +var + I: Integer; +begin + for I:=0 to ATable.RowCount-1 do + begin + Dump('File Name: ' + ATable[I].Name); + Dump('Contains Metadata: ' + BooleanToStr(ATable[I].ContainsMetadata)); + Dump('Hash Value: ', ATable[I].HashValue); + end; +end; + +procedure TfrmTable.DumpTable(const ATable: TJclClrTableExportedType); +var + I: Integer; +begin + for I:=0 to ATable.RowCount-1 do + Dump(ATable[I].TypeNamespace + '.' + ATable[I].TypeName); +end; + +procedure TfrmTable.btnDumpILClick(Sender: TObject); +begin + frmMain.actFileDump.Execute; +end; + +end. diff --git a/official/2.1.1/examples/windows/clr/ClrDemoUserStringsForm.dfm b/official/2.1.1/examples/windows/clr/ClrDemoUserStringsForm.dfm new file mode 100644 index 0000000..9630d9b --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoUserStringsForm.dfm @@ -0,0 +1,52 @@ +object frmUserStrings: TfrmUserStrings + Left = 299 + Top = 296 + BorderStyle = bsDialog + Caption = 'User String Stream' + ClientHeight = 273 + ClientWidth = 392 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + Position = poMainFormCenter + PixelsPerInch = 96 + TextHeight = 13 + object lstStrings: TListView + Left = 8 + Top = 8 + Width = 377 + Height = 225 + Columns = < + item + Caption = 'Index' + Width = 40 + end + item + Caption = 'Offset' + Width = 64 + end + item + Caption = 'String' + Width = 315 + end> + GridLines = True + OwnerData = True + ReadOnly = True + RowSelect = True + TabOrder = 0 + ViewStyle = vsReport + OnData = lstStringsData + end + object btnOK: TBitBtn + Left = 158 + Top = 240 + Width = 75 + Height = 25 + TabOrder = 1 + Kind = bkOK + end +end diff --git a/official/2.1.1/examples/windows/clr/ClrDemoUserStringsForm.pas b/official/2.1.1/examples/windows/clr/ClrDemoUserStringsForm.pas new file mode 100644 index 0000000..8bde438 --- /dev/null +++ b/official/2.1.1/examples/windows/clr/ClrDemoUserStringsForm.pas @@ -0,0 +1,54 @@ +unit ClrDemoUserStringsForm; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ClrDemoStringsForm, StdCtrls, Buttons, ComCtrls, JclCLR; + +type + TfrmUserStrings = class(TForm) + lstStrings: TListView; + btnOK: TBitBtn; + procedure lstStringsData(Sender: TObject; Item: TListItem); + private + FStream: TJclCLRUserStringStream; + procedure ShowStrings(const AStream: TJclCLRUserStringStream); + public + class procedure Execute(const AStream: TJclCLRUserStringStream); + end; + +var + frmUserStrings: TfrmUserStrings; + +implementation + +{$R *.DFM} + +{ TfrmUserStrings } + +class procedure TfrmUserStrings.Execute(const AStream: TJclCLRUserStringStream); +begin + with TfrmUserStrings.Create(nil) do + try + ShowStrings(AStream); + ShowModal; + finally + Free; + end; +end; + +procedure TfrmUserStrings.ShowStrings(const AStream: TJclCLRUserStringStream); +begin + FStream := AStream; + lstStrings.Items.Count := FStream.StringCount; +end; + +procedure TfrmUserStrings.lstStringsData(Sender: TObject; Item: TListItem); +begin + Item.Caption := IntToStr(Item.Index); + Item.SubItems.Add(IntToHex(FStream.Offsets[Item.Index], 8)); + Item.SubItems.Add(FStream.Strings[Item.Index]); +end; + +end. diff --git a/official/2.1.1/examples/windows/compression/archive/ArchiveDemo.dof b/official/2.1.1/examples/windows/compression/archive/ArchiveDemo.dof new file mode 100644 index 0000000..e957ac9 --- /dev/null +++ b/official/2.1.1/examples/windows/compression/archive/ArchiveDemo.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\..\bin + diff --git a/official/2.1.1/examples/windows/compression/archive/ArchiveDemo.dpr b/official/2.1.1/examples/windows/compression/archive/ArchiveDemo.dpr new file mode 100644 index 0000000..251bbc1 --- /dev/null +++ b/official/2.1.1/examples/windows/compression/archive/ArchiveDemo.dpr @@ -0,0 +1,15 @@ +program ArchiveDemo; + +uses + Forms, + UMain in 'UMain.pas' {FormMain}, + UProperties in 'UProperties.pas' {FormArchiveSettings}; + +{$R *.res} +{$R ..\..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TFormMain, FormMain); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/compression/archive/ArchiveDemo.res b/official/2.1.1/examples/windows/compression/archive/ArchiveDemo.res new file mode 100644 index 0000000000000000000000000000000000000000..119d1715757829c5b46aea563ff8d007487dd4d0 GIT binary patch literal 4396 zcmbW5y^ice5QS^CNF)e0AfFAiE(S{o$&3%L$5+F6_ ztLm~nvz}%5S}Ik$ySmP)pYE~7%ek+?BU%R{e>Weh`PJ?^N50V=n zX`nry`}9L^kB^TwmExLl%I_aOSl{)AP3VWscsrl#tNuSeU?g^G=90%WPQG5nYbw1> z;;0z_S%yeee;W-|6Mu2+D*J8h)9~Q75&N@ZSKP!8hf!MoE+70OV3Xq|&l)EO z*Lrt5{K=2!-}jLJhlK|*dX1EWNw#os9;cV_lT&& z}Zn$UI;=sGs5}#P{jdmV$iyfbu>xYQj zZRVJR1Mk$|u}5Ja;3+*wAJ`Z1TiM1AzJ#?x&BM>9zy1ggb8zr8TjWP#1NiE(r@CPB z4p+w?WrOV?-Gz`Jk6->g-VqKO&%#EuKXYGCs@ME%$pKDa1~z^hzU=6GFzJIBljFwo zAl+%-5FCgR46lFU&W(fmlQqw2tp*1l>wGXz4xIzo$RX+(Pqy zZLHjDA2^)h1zY~2rY-*D(5>;4bCX}23R8kd7O%a_-@#h*3uI+17DfZp*=E25?k9Y9d@A>Y;PXd<^^`E$L zp5qRP_`Ns4As<7l(TI)mUx>AF&^Yl!@5k@?moLX0sBMTTe%A8N@f>L_`d(Vt89%)r z_0eANC19qo&Y1IemitzR=sWH&IEF9$5x>`8W8(EZ4e~EL*4^hESiY{kc{j3_=Yg@m zmwo)`Y2t3R!@uHBeD~e(13T8I()w3^Bmd&2xx_;Ajet(U=VcDO24lP5h@s&}{`Icf znsG)mH*waM`oOJ|o%VWtq`e=9b|%Fkf7{t}iSO^a>-@JPF%Ikf=l!R5a)Q8*`wL&h zMeNQ^v6I7$HSdM^hFbHmi?3dYdyV)Nk8toGF-HFoAKyTnbD!5c_tesx;)M+y zXWq|rN8Ay6o?Xrv*b9deV{);5Sm#{5#$oCC0~m1G>T_&zyxy~nR}NrZKFlF|XCXOJ zBW(Ph=@M_%@w?Y>)DQU`nL7L3eOwaIJM&25UDc=fEulAvk-Tvy@(xGuCCzWY<-Gna z2RqQq)WU%tqu1UdvUN=LB;OART>N|3b>sx!Z+Vi#YyI$o7kn2UPwh;?;eFW2FFBw+ zwm0O#?dFyX#Z7I}Px^hY&i!ce@hX?6Ctt@d_q`YIntl3vtG?#va=sqTswV%H{3H1! z`6xLyd6Y)p`#kDz2jpmWi+nWuQog?t#z9z}Fl#;D)^E-1dr7Td+b{N`{cOKVezM=B X^V$Bd!M_>$KjZ%1|JC4MkQ@6C&37VX literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/compression/archive/UMain.dfm b/official/2.1.1/examples/windows/compression/archive/UMain.dfm new file mode 100644 index 0000000..6bdf66f --- /dev/null +++ b/official/2.1.1/examples/windows/compression/archive/UMain.dfm @@ -0,0 +1,359 @@ +object FormMain: TFormMain + Left = 0 + Top = 0 + Caption = 'FormMain' + ClientHeight = 301 + ClientWidth = 771 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object ListView1: TListView + Left = 0 + Top = 81 + Width = 771 + Height = 204 + Align = alClient + Columns = < + item + Caption = 'Local name' + Width = 150 + end + item + Caption = 'Archive name' + Width = 150 + end + item + Caption = 'Size' + Width = 30 + end + item + Caption = 'Compressed' + Width = 30 + end + item + Caption = 'Creation' + end + item + Caption = 'Last access' + end + item + Caption = 'Last write' + end + item + Caption = 'Comment' + Width = 30 + end + item + Caption = 'OS' + Width = 20 + end + item + Caption = 'FS' + Width = 20 + end + item + Caption = 'User' + Width = 20 + end + item + Caption = 'Group' + Width = 20 + end + item + Caption = 'CRC' + end> + MultiSelect = True + OwnerData = True + RowSelect = True + TabOrder = 0 + ViewStyle = vsReport + OnData = ListView1Data + end + object ProgressBar1: TProgressBar + Left = 0 + Top = 285 + Width = 771 + Height = 16 + Align = alBottom + TabOrder = 1 + end + object PageControl1: TPageControl + Left = 0 + Top = 0 + Width = 771 + Height = 81 + ActivePage = TabSheetReadOnly + Align = alTop + TabOrder = 2 + object TabSheetReadOnly: TTabSheet + Caption = 'Read-only' + object ButtonOpen: TButton + Left = 16 + Top = 16 + Width = 75 + Height = 25 + Action = ActionOpenRO + TabOrder = 0 + end + object ButtonExtractSelected: TButton + Left = 97 + Top = 16 + Width = 96 + Height = 25 + Action = ActionExtractSelectedRO + TabOrder = 1 + end + object ButtonExtractAll: TButton + Left = 199 + Top = 16 + Width = 75 + Height = 25 + Action = ActionExtractAllRO + TabOrder = 2 + end + object ButtonROProperties: TButton + Left = 280 + Top = 16 + Width = 75 + Height = 25 + Action = ActionProperties + TabOrder = 3 + end + end + object TabSheetWriteOnly: TTabSheet + Caption = 'Write-only' + ImageIndex = 1 + object ButtonNew: TButton + Left = 16 + Top = 16 + Width = 75 + Height = 25 + Action = ActionNewWO + TabOrder = 0 + end + object ButtonAddFile: TButton + Left = 97 + Top = 16 + Width = 75 + Height = 25 + Action = ActionAddFile + TabOrder = 1 + end + object ButtonAddDirectory: TButton + Left = 178 + Top = 16 + Width = 75 + Height = 25 + Action = ActionAddDirectory + TabOrder = 2 + end + object ButtonSave: TButton + Left = 259 + Top = 16 + Width = 75 + Height = 25 + Action = ActionSave + TabOrder = 3 + end + object ButtonPropertiesWO: TButton + Left = 340 + Top = 16 + Width = 75 + Height = 25 + Action = ActionProperties + TabOrder = 4 + end + end + object TabSheetReadWrite: TTabSheet + Caption = 'Read and write' + ImageIndex = 2 + object ButtonNewRW: TButton + Left = 16 + Top = 16 + Width = 75 + Height = 25 + Action = ActionNewRW + TabOrder = 0 + end + object ButtonOpenRW: TButton + Left = 97 + Top = 16 + Width = 75 + Height = 25 + Action = ActionOpenRW + TabOrder = 1 + end + object ButtonDeleteRW: TButton + Left = 178 + Top = 16 + Width = 75 + Height = 25 + Action = ActionDeleteRW + TabOrder = 2 + end + object ButtonAddFileRW: TButton + Left = 259 + Top = 16 + Width = 75 + Height = 25 + Action = ActionAddFile + TabOrder = 3 + end + object ButtonAddDirectoryRW: TButton + Left = 340 + Top = 16 + Width = 75 + Height = 25 + Action = ActionAddDirectory + TabOrder = 4 + end + object ButtonExtractSelectedRW: TButton + Left = 421 + Top = 16 + Width = 92 + Height = 25 + Action = ActionExtractSelectedRO + TabOrder = 5 + end + object ButtonExtractAllRW: TButton + Left = 519 + Top = 16 + Width = 75 + Height = 25 + Action = ActionExtractAllRO + TabOrder = 6 + end + object ButtonSaveRW: TButton + Left = 600 + Top = 16 + Width = 75 + Height = 25 + Action = ActionSave + TabOrder = 7 + end + object ButtonPropertiesRW: TButton + Left = 681 + Top = 16 + Width = 75 + Height = 25 + Action = ActionProperties + TabOrder = 8 + end + end + end + object ActionList1: TActionList + Left = 64 + Top = 152 + object ActionOpenRO: TAction + Category = 'ReadOnly' + Caption = '&Open' + OnExecute = ActionOpenROExecute + OnUpdate = ActionAlwaysEnabled + end + object ActionExtractSelectedRO: TAction + Category = 'ReadOnly' + Caption = '&Extract selected' + OnExecute = ActionExtractSelectedROExecute + OnUpdate = ActionExtractSelectedROUpdate + end + object ActionExtractAllRO: TAction + Category = 'ReadOnly' + Caption = 'Extract &all' + OnExecute = ActionExtractAllROExecute + OnUpdate = ActionExtractAllROUpdate + end + object ActionNewWO: TAction + Category = 'WriteOnly' + Caption = '&New' + OnExecute = ActionNewWOExecute + OnUpdate = ActionAlwaysEnabled + end + object ActionAddFile: TAction + Category = 'Write' + Caption = 'Add &file' + OnExecute = ActionAddFileExecute + OnUpdate = ActionAddFileUpdate + end + object ActionAddDirectory: TAction + Category = 'Write' + Caption = 'Add &directory' + OnExecute = ActionAddDirectoryExecute + OnUpdate = ActionAddDirectoryUpdate + end + object ActionSave: TAction + Category = 'Write' + Caption = '&Save' + OnExecute = ActionSaveExecute + OnUpdate = ActionSaveUpdate + end + object ActionDeleteRW: TAction + Category = 'ReadWrite' + Caption = '&Delete' + OnExecute = ActionDeleteRWExecute + OnUpdate = ActionDeleteRWUpdate + end + object ActionNewRW: TAction + Category = 'ReadWrite' + Caption = '&New' + OnExecute = ActionNewRWExecute + OnUpdate = ActionAlwaysEnabled + end + object ActionOpenRW: TAction + Category = 'ReadWrite' + Caption = '&Open' + OnExecute = ActionOpenRWExecute + OnUpdate = ActionAlwaysEnabled + end + object ActionProperties: TAction + Category = 'ReadWrite' + Caption = '&Properties' + OnExecute = ActionPropertiesExecute + OnUpdate = ActionPropertiesUpdate + end + end + object OpenDialogArchiveRO: TOpenDialog + FilterIndex = 0 + Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Title = 'Open an archive for extraction' + Left = 104 + Top = 152 + end + object SaveDialogArchiveWO: TSaveDialog + DefaultExt = '*.zip' + FilterIndex = 0 + Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofCreatePrompt, ofNoReadOnlyReturn, ofEnableSizing] + Title = 'Create a new archive' + Left = 144 + Top = 152 + end + object OpenDialogFile: TOpenDialog + Filter = 'All files (*.*)|*.*' + FilterIndex = 0 + Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 184 + Top = 152 + end + object OpenDialogArchiveRW: TOpenDialog + FilterIndex = 0 + Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Title = 'Open an archive for modification' + Left = 104 + Top = 184 + end + object SaveDialogArchiveRW: TSaveDialog + DefaultExt = '*.zip' + FilterIndex = 0 + Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofCreatePrompt, ofNoReadOnlyReturn, ofEnableSizing] + Title = 'Create a new archive' + Left = 144 + Top = 184 + end +end diff --git a/official/2.1.1/examples/windows/compression/archive/UMain.pas b/official/2.1.1/examples/windows/compression/archive/UMain.pas new file mode 100644 index 0000000..d2eec30 --- /dev/null +++ b/official/2.1.1/examples/windows/compression/archive/UMain.pas @@ -0,0 +1,567 @@ +unit UMain; + +{$I jcl.inc} +{$I windowsonly.inc} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ActnList, ComCtrls, ImgList, JclCompression; + +type + TFormMain = class(TForm) + ActionList1: TActionList; + ActionOpenRO: TAction; + ActionExtractSelectedRO: TAction; + ActionExtractAllRO: TAction; + ActionNewWO: TAction; + ActionAddFile: TAction; + ActionAddDirectory: TAction; + ActionSave: TAction; + ListView1: TListView; + OpenDialogArchiveRO: TOpenDialog; + SaveDialogArchiveWO: TSaveDialog; + OpenDialogFile: TOpenDialog; + ProgressBar1: TProgressBar; + PageControl1: TPageControl; + TabSheetReadOnly: TTabSheet; + TabSheetWriteOnly: TTabSheet; + TabSheetReadWrite: TTabSheet; + ButtonOpen: TButton; + ButtonExtractSelected: TButton; + ButtonExtractAll: TButton; + ButtonNew: TButton; + ButtonAddFile: TButton; + ButtonAddDirectory: TButton; + ButtonSave: TButton; + ActionDeleteRW: TAction; + ActionNewRW: TAction; + ActionOpenRW: TAction; + ButtonNewRW: TButton; + ButtonOpenRW: TButton; + ButtonDeleteRW: TButton; + ButtonAddFileRW: TButton; + ButtonAddDirectoryRW: TButton; + ButtonExtractSelectedRW: TButton; + ButtonExtractAllRW: TButton; + ButtonSaveRW: TButton; + OpenDialogArchiveRW: TOpenDialog; + SaveDialogArchiveRW: TSaveDialog; + ButtonROProperties: TButton; + ActionProperties: TAction; + ButtonPropertiesWO: TButton; + ButtonPropertiesRW: TButton; + procedure ActionAlwaysEnabled(Sender: TObject); + procedure ActionExtractSelectedROUpdate(Sender: TObject); + procedure ActionExtractAllROUpdate(Sender: TObject); + procedure ActionAddFileUpdate(Sender: TObject); + procedure ActionAddDirectoryUpdate(Sender: TObject); + procedure ActionSaveUpdate(Sender: TObject); + procedure ActionNewWOExecute(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure ActionAddFileExecute(Sender: TObject); + procedure ActionAddDirectoryExecute(Sender: TObject); + procedure ActionSaveExecute(Sender: TObject); + procedure ActionOpenROExecute(Sender: TObject); + procedure ListView1Data(Sender: TObject; Item: TListItem); + procedure ActionExtractAllROExecute(Sender: TObject); + procedure ActionExtractSelectedROExecute(Sender: TObject); + procedure ActionDeleteRWUpdate(Sender: TObject); + procedure ActionDeleteRWExecute(Sender: TObject); + procedure ActionNewRWExecute(Sender: TObject); + procedure ActionOpenRWExecute(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ActionPropertiesUpdate(Sender: TObject); + procedure ActionPropertiesExecute(Sender: TObject); + private + FArchive: TJclCompressionArchive; + procedure CloseArchive; + procedure ArchiveProgress(Sender: TObject; const Value, MaxValue: Int64); + public + end; + +var + FormMain: TFormMain; + +implementation + +{$R *.dfm} + +uses + JclAnsiStrings, Sevenzip, FileCtrl, + UProperties; + +function FileTimeToString(const FileTime: TFileTime): string; +var + LocalFileTime: TFileTime; + SystemTime: TSystemTime; +begin + if FileTimeToLocalFileTime(FileTime, LocalFileTime) + and FileTimeToSystemTime(LocalFileTime, SystemTime) then + Result := DateTimeToStr(EncodeDate(SystemTime.wYear, SystemTime.wMonth, SystemTime.wDay) + + EncodeTime(SystemTime.wHour, SystemTime.wMinute, SystemTime.wSecond, SystemTime.wMilliseconds)) + else + Result := ''; +end; + +procedure TFormMain.ActionAddDirectoryExecute(Sender: TObject); +var + Directory: string; +begin + if FileCtrl.SelectDirectory('Select directory', '', Directory {$IFDEF COMPILER9_UP} , [sdNewUI], Self {$ENDIF}) then + begin + (FArchive as TJclCompressArchive).AddDirectory(ExtractFileName(Directory), Directory, True, True); + ListView1.Items.BeginUpdate; + try + while ListView1.Items.Count < FArchive.ItemCount do + ListView1.Items.Add; + finally + ListView1.Items.EndUpdate; + end; + end; +end; + +procedure TFormMain.ActionAddDirectoryUpdate(Sender: TObject); +begin + (Sender as TAction).Enabled := (FArchive is TJclCompressArchive) and FArchive.MultipleItemContainer; +end; + +procedure TFormMain.ActionAddFileExecute(Sender: TObject); +begin + if OpenDialogFile.Execute then + begin + (FArchive as TJclCompressArchive).AddFile(ExtractFileName(OpenDialogFile.FileName), OpenDialogFile.FileName); + ListView1.Items.Add; + end; +end; + +procedure TFormMain.ActionAddFileUpdate(Sender: TObject); +begin + (Sender as TAction).Enabled := (FArchive is TJclCompressArchive) + and (FArchive.MultipleItemContainer or (ListView1.Items.Count = 0)); +end; + +procedure TFormMain.ActionAlwaysEnabled(Sender: TObject); +begin + (Sender as TAction).Enabled := True; +end; + +procedure TFormMain.ActionDeleteRWExecute(Sender: TObject); +var + Index: Integer; +begin + for Index := ListView1.Items.Count - 1 downto 0 do + if ListView1.Items[Index].Selected then + begin + (FArchive as TJclUpdateArchive).DeleteItem(Index); + Break; + end; + + ListView1.Items.Count := FArchive.ItemCount; + ListView1.Invalidate; +end; + +procedure TFormMain.ActionDeleteRWUpdate(Sender: TObject); +begin + (Sender as TAction).Enabled := (FArchive is TJclUpdateArchive) and (ListView1.SelCount = 1); +end; + +procedure TFormMain.ActionExtractAllROExecute(Sender: TObject); +var + Directory: string; +begin + if FileCtrl.SelectDirectory('Target directory', '', Directory {$IFDEF COMPILER9_UP} , [sdNewUI], Self {$ENDIF}) then + begin + if FArchive is TJclDecompressArchive then + TJclDecompressArchive(FArchive).ExtractAll(Directory, True) + else + if FArchive is TJclUpdateArchive then + TJclUpdateArchive(FArchive).ExtractAll(Directory, True); + end; +end; + +procedure TFormMain.ActionExtractAllROUpdate(Sender: TObject); +begin + (Sender as TAction).Enabled := (FArchive is TJclDecompressArchive) or (FArchive is TJclUpdateArchive); +end; + +procedure TFormMain.ActionExtractSelectedROExecute(Sender: TObject); +var + Directory: string; + Index: Integer; +begin + if FileCtrl.SelectDirectory('Target directory', '', Directory {$IFDEF COMPILER9_UP} , [sdNewUI], Self {$ENDIF}) then + begin + for Index := 0 to ListView1.Items.Count - 1 do + FArchive.Items[Index].Selected := ListView1.Items.Item[Index].Selected; + + if FArchive is TJclDecompressArchive then + TJclDecompressArchive(FArchive).ExtractSelected(Directory, True) + else + if FArchive is TJclUpdateArchive then + TJclUpdateArchive(FArchive).ExtractSelected(Directory, True); + end; +end; + +procedure TFormMain.ActionExtractSelectedROUpdate(Sender: TObject); +begin + (Sender as TAction).Enabled := ((FArchive is TJclDecompressArchive) or (FArchive is TJclUpdateArchive)) + and (ListView1.SelCount > 0); +end; + +procedure TFormMain.ActionNewWOExecute(Sender: TObject); +var + ArchiveFileName, VolumeSizeStr, Password: string; + AFormat: TJclCompressArchiveClass; + VolumeSize: Int64; + Code: Integer; +begin + if SaveDialogArchiveWO.Execute then + begin + CloseArchive; + + ArchiveFileName := SaveDialogArchiveWO.FileName; + + AFormat := GetArchiveFormats.FindCompressFormat(ArchiveFileName); + + if AFormat <> nil then + begin + VolumeSizeStr := '0'; + repeat + if InputQuery('Split archive?', 'Volume size in byte:', VolumeSizeStr) then + Val(VolumeSizeStr, VolumeSize, Code) + else + begin + VolumeSize := 0; + Code := 0; + end; + until Code = 0; + + InputQuery('Archive password', 'Value', Password); + + if VolumeSize <> 0 then + ArchiveFileName := ArchiveFileName + '.%.3d'; + + FArchive := AFormat.Create(ArchiveFileName, VolumeSize, VolumeSize <> 0); + FArchive.Password := Password; + FArchive.OnProgress := ArchiveProgress; + end + else + ShowMessage('not a supported format'); + end; +end; + +procedure TFormMain.ActionNewRWExecute(Sender: TObject); +var + ArchiveFileName, VolumeSizeStr, Password: string; + AFormat: TJclUpdateArchiveClass; + VolumeSize: Int64; + Code: Integer; +begin + if SaveDialogArchiveRW.Execute then + begin + CloseArchive; + + ArchiveFileName := SaveDialogArchiveRW.FileName; + + AFormat := GetArchiveFormats.FindUpdateFormat(ArchiveFileName); + + if AFormat <> nil then + begin + VolumeSizeStr := '0'; + repeat + if InputQuery('Split archive?', 'Volume size in byte:', VolumeSizeStr) then + Val(VolumeSizeStr, VolumeSize, Code) + else + begin + VolumeSize := 0; + Code := 0; + end; + until Code = 0; + + InputQuery('Archive password', 'Value', Password); + + if VolumeSize <> 0 then + ArchiveFileName := ArchiveFileName + '.%.3d'; + + FArchive := AFormat.Create(ArchiveFileName, VolumeSize, VolumeSize <> 0); + FArchive.Password := Password; + FArchive.OnProgress := ArchiveProgress; + end + else + ShowMessage('not a supported format'); + end; +end; + +procedure TFormMain.ActionOpenROExecute(Sender: TObject); +var + ArchiveFileName, Password: string; + AFormat: TJclDecompressArchiveClass; + SplitArchive: Boolean; +begin + if OpenDialogArchiveRO.Execute then + begin + CloseArchive; + + ArchiveFileName := OpenDialogArchiveRO.FileName; + SplitArchive := AnsiSameText(ExtractFileExt(ArchiveFileName), '.001'); + if SplitArchive then + ArchiveFileName := ChangeFileExt(ArchiveFileName, ''); + + AFormat := GetArchiveFormats.FindDecompressFormat(ArchiveFileName); + + if AFormat <> nil then + begin + if SplitArchive then + ArchiveFileName := ArchiveFileName + '.%.3d'; + + InputQuery('Archive password', 'Value', Password); + + FArchive := AFormat.Create(ArchiveFileName, 0, SplitArchive); + FArchive.Password := Password; + FArchive.OnProgress := ArchiveProgress; + + if FArchive is TJclDecompressArchive then + TJclDecompressArchive(FArchive).ListFiles + else + if FArchive is TJclUpdateArchive then + TJclUpdateArchive(FArchive).ListFiles; + + ListView1.Items.BeginUpdate; + try + while ListView1.Items.Count < FArchive.ItemCount do + ListView1.Items.Add; + finally + ListView1.Items.EndUpdate; + end; + end + else + ShowMessage('not a supported format'); + end; +end; + +procedure TFormMain.ActionOpenRWExecute(Sender: TObject); +var + ArchiveFileName, Password: string; + AFormat: TJclUpdateArchiveClass; + SplitArchive: Boolean; +begin + if OpenDialogArchiveRW.Execute then + begin + CloseArchive; + + ArchiveFileName := OpenDialogArchiveRW.FileName; + SplitArchive := AnsiSameText(ExtractFileExt(ArchiveFileName), '.001'); + if SplitArchive then + ArchiveFileName := ChangeFileExt(ArchiveFileName, ''); + + AFormat := GetArchiveFormats.FindUpdateFormat(ArchiveFileName); + + if AFormat <> nil then + begin + if SplitArchive then + ArchiveFileName := ArchiveFileName + '.%.3d'; + + InputQuery('Archive password', 'Value', Password); + + FArchive := AFormat.Create(ArchiveFileName, 0, SplitArchive); + FArchive.Password := Password; + FArchive.OnProgress := ArchiveProgress; + + if FArchive is TJclDecompressArchive then + TJclDecompressArchive(FArchive).ListFiles + else + if FArchive is TJclUpdateArchive then + TJclUpdateArchive(FArchive).ListFiles; + + ListView1.Items.BeginUpdate; + try + while ListView1.Items.Count < FArchive.ItemCount do + ListView1.Items.Add; + finally + ListView1.Items.EndUpdate; + end; + end + else + ShowMessage('not a supported format'); + end; +end; + +procedure TFormMain.ActionPropertiesExecute(Sender: TObject); +begin + TFormArchiveSettings.Execute(FArchive); +end; + +procedure TFormMain.ActionPropertiesUpdate(Sender: TObject); +begin + (Sender as TAction).Enabled := Assigned(FArchive); +end; + +procedure TFormMain.ActionSaveExecute(Sender: TObject); +begin + (FArchive as TJclCompressArchive).Compress; + CloseArchive; +end; + +procedure TFormMain.ActionSaveUpdate(Sender: TObject); +begin + (Sender as TAction).Enabled := (FArchive is TJclCompressArchive) and (ListView1.Items.Count > 0); +end; + +procedure TFormMain.ArchiveProgress(Sender: TObject; const Value, MaxValue: Int64); +var + MyValue, MyMaxValue: Int64; +begin + MyValue := Value; + MyMaxValue := MaxValue; + + while MyMaxValue > High(Word) do + begin + MyMaxValue := MyMaxValue shr 8; + MyValue := MyValue shr 8; + end; + ProgressBar1.Max := MyMaxValue; + ProgressBar1.Position := MyValue; +end; + +procedure TFormMain.CloseArchive; +begin + FreeAndNil(FArchive); + ListView1.Items.Clear; +end; + +procedure TFormMain.FormCreate(Sender: TObject); + procedure MergeFilters(var AFilter, AllExtensions: string; AFormat: TJclCompressionArchiveClass); + var + AName, AExtensions: string; + begin + AName := AFormat.ArchiveName; + AExtensions := AFormat.ArchiveExtensions; + if AFilter = '' then + AFilter := Format('%0:s (%1:s)|%1:s', [AName, AExtensions]) + else + AFilter := Format('%0:s|%1:s (%2:s)|%2:s', [AFilter, AName, AExtensions]); + if AllExtensions = '' then + AllExtensions := AExtensions + else + AllExtensions := Format('%s;%s', [AllExtensions, AExtensions]); + end; + function AddStandardFilters(const AFilter, AllExtensions: string): string; + begin + if AFilter = '' then + Result := '' + else + Result := Format('All supported formats|(%0:s)|%1:s', [AllExtensions, AFilter]); + end; +var + AFilter, AllExtensions: string; + AFormats: TJclCompressionArchiveFormats; + Index: Integer; +begin + AFormats := GetArchiveFormats; + + AFilter := ''; + AllExtensions := ''; + for Index := 0 to AFormats.CompressFormatCount - 1 do + MergeFilters(AFilter, AllExtensions, AFormats.CompressFormats[Index]); + SaveDialogArchiveWO.Filter := AFilter; + + AFilter := ''; + AllExtensions := ''; + for Index := 0 to AFormats.UpdateFormatCount - 1 do + MergeFilters(AFilter, AllExtensions, AFormats.UpdateFormats[Index]); + SaveDialogArchiveRW.Filter := AFilter; + + AFilter := ''; + AllExtensions := ''; + for Index := 0 to AFormats.DecompressFormatCount - 1 do + MergeFilters(AFilter, AllExtensions, AFormats.DecompressFormats[Index]); + OpenDialogArchiveRO.Filter := AddStandardFilters(AFilter, AllExtensions); + + AFilter := ''; + AllExtensions := ''; + for Index := 0 to AFormats.UpdateFormatCount - 1 do + MergeFilters(AFilter, AllExtensions, AFormats.UpdateFormats[Index]); + OpenDialogArchiveRW.Filter := AddStandardFilters(AFilter, AllExtensions); +end; + +procedure TFormMain.FormDestroy(Sender: TObject); +begin + CloseArchive; +end; + +procedure TFormMain.ListView1Data(Sender: TObject; Item: TListItem); +var + CompressionItem: TJclCompressionItem; +begin + if not Assigned(FArchive) then + begin + Item.Caption := ''; + Item.SubItems.Clear; + Exit; + end; + + CompressionItem := FArchive.Items[Item.Index]; + + Item.Caption := CompressionItem.FileName; + Item.SubItems.Clear; + if ipPackedName in CompressionItem.ValidProperties then + Item.SubItems.Add(CompressionItem.PackedName) + else + if ipPackedExtension in CompressionItem.ValidProperties then + Item.SubItems.Add('(Extension)' + CompressionItem.PackedExtension) + else + Item.SubItems.Add('(Auto)'); + if ipFileSize in CompressionItem.ValidProperties then + Item.SubItems.Add(IntToStr(CompressionItem.FileSize)) + else + Item.SubItems.Add(''); + if ipPackedSize in CompressionItem.ValidProperties then + Item.SubItems.Add(IntToStr(CompressionItem.PackedSize)) + else + Item.SubItems.Add(''); + if ipCreationTime in CompressionItem.ValidProperties then + Item.SubItems.Add(FileTimeToString(CompressionItem.CreationTime)) + else + Item.SubItems.Add(''); + if ipLastAccessTime in CompressionItem.ValidProperties then + Item.SubItems.Add(FileTimeToString(CompressionItem.LastAccessTime)) + else + Item.SubItems.Add(''); + if ipLastWriteTime in CompressionItem.ValidProperties then + Item.SubItems.Add(FileTimeToString(CompressionItem.LastWriteTime)) + else + Item.SubItems.Add(''); + if ipComment in CompressionItem.ValidProperties then + Item.SubItems.Add(CompressionItem.Comment) + else + Item.SubItems.Add(''); + if ipHostOS in CompressionItem.ValidProperties then + Item.SubItems.Add(CompressionItem.HostOS) + else + Item.SubItems.Add(''); + if ipHostFS in CompressionItem.ValidProperties then + Item.SubItems.Add(CompressionItem.HostFS) + else + Item.SubItems.Add(''); + if ipUser in CompressionItem.ValidProperties then + Item.SubItems.Add(CompressionItem.User) + else + Item.SubItems.Add(''); + if ipGroup in CompressionItem.ValidProperties then + Item.SubItems.Add(CompressionItem.Group) + else + Item.SubItems.Add(''); + if ipCRC in CompressionItem.ValidProperties then + Item.SubItems.Add(IntToHex(CompressionItem.CRC, 8)) + else + Item.SubItems.Add(''); +end; + +initialization + + if not Load7Zip then + raise EJclCompressionError.Create('Cannot load sevenzip library'); + +end. diff --git a/official/2.1.1/examples/windows/compression/archive/UProperties.dfm b/official/2.1.1/examples/windows/compression/archive/UProperties.dfm new file mode 100644 index 0000000..35fbea7 --- /dev/null +++ b/official/2.1.1/examples/windows/compression/archive/UProperties.dfm @@ -0,0 +1,271 @@ +object FormArchiveSettings: TFormArchiveSettings + Left = 0 + Top = 0 + BorderStyle = bsDialog + Caption = 'Archive settings' + ClientHeight = 371 + ClientWidth = 493 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + PixelsPerInch = 96 + TextHeight = 13 + object GroupBoxGeneralSettings: TGroupBox + Left = 8 + Top = 8 + Width = 273 + Height = 97 + Caption = 'General settings:' + TabOrder = 0 + object LabelPassword: TLabel + Left = 16 + Top = 27 + Width = 50 + Height = 13 + Caption = '&Password:' + FocusControl = EditPassword + end + object LabelNumberOfThreads: TLabel + Left = 16 + Top = 62 + Width = 94 + Height = 13 + Caption = 'Number of &threads:' + FocusControl = EditNumberOfThreads + end + object EditPassword: TEdit + Left = 88 + Top = 24 + Width = 169 + Height = 21 + TabOrder = 0 + OnExit = EditPasswordExit + end + object EditNumberOfThreads: TEdit + Left = 128 + Top = 59 + Width = 129 + Height = 21 + BiDiMode = bdRightToLeft + ParentBiDiMode = False + TabOrder = 1 + Text = '1' + OnExit = EditNumberOfThreadsExit + end + end + object GroupBoxCompressionProperties: TGroupBox + Left = 8 + Top = 111 + Width = 273 + Height = 226 + Caption = 'Compression properties:' + TabOrder = 1 + object LabelCompressionLevel: TLabel + Left = 16 + Top = 27 + Width = 176 + Height = 13 + Caption = 'Compression &level (from %d to %d):' + FocusControl = EditCompressionLevel + end + object LabelCompressionMethod: TLabel + Left = 16 + Top = 58 + Width = 104 + Height = 13 + Caption = '&Compression method:' + FocusControl = ComboBoxCompressionMethod + end + object LabelEncryptionMethod: TLabel + Left = 16 + Top = 90 + Width = 94 + Height = 13 + Caption = '&Encryption method:' + FocusControl = ComboBoxEncryptionMethod + end + object LabelDictionarySize: TLabel + Left = 16 + Top = 123 + Width = 73 + Height = 13 + Caption = '&Dictionary size:' + FocusControl = EditDictionarySize + end + object LabelNumberOfPasses: TLabel + Left = 16 + Top = 158 + Width = 90 + Height = 13 + Caption = '&Number of passes:' + FocusControl = EditNumberOfPasses + end + object LabelSolidBlockSize: TLabel + Left = 16 + Top = 192 + Width = 74 + Height = 13 + Caption = '&Solid block size:' + FocusControl = EditSolidBlockSize + end + object EditCompressionLevel: TEdit + Left = 216 + Top = 24 + Width = 41 + Height = 21 + BiDiMode = bdRightToLeft + ParentBiDiMode = False + TabOrder = 0 + Text = '6' + OnExit = EditCompressionLevelExit + end + object ComboBoxCompressionMethod: TComboBox + Left = 136 + Top = 55 + Width = 121 + Height = 21 + Style = csDropDownList + ItemHeight = 13 + TabOrder = 1 + OnExit = ComboBoxCompressionMethodExit + end + object ComboBoxEncryptionMethod: TComboBox + Left = 136 + Top = 88 + Width = 121 + Height = 21 + Style = csDropDownList + ItemHeight = 13 + TabOrder = 2 + OnChange = ComboBoxEncryptionMethodChange + end + object EditDictionarySize: TEdit + Left = 136 + Top = 122 + Width = 121 + Height = 21 + BiDiMode = bdRightToLeft + ParentBiDiMode = False + TabOrder = 3 + Text = '0' + OnExit = EditDictionarySizeExit + end + object EditNumberOfPasses: TEdit + Left = 136 + Top = 156 + Width = 121 + Height = 21 + BiDiMode = bdRightToLeft + ParentBiDiMode = False + TabOrder = 4 + Text = '0' + OnExit = EditNumberOfPassesExit + end + object EditSolidBlockSize: TEdit + Left = 136 + Top = 190 + Width = 121 + Height = 21 + BiDiMode = bdRightToLeft + ParentBiDiMode = False + TabOrder = 5 + Text = '0' + OnExit = EditSolidBlockSizeExit + end + end + object GroupBox1: TGroupBox + Left = 296 + Top = 8 + Width = 185 + Height = 218 + Caption = 'Content:' + TabOrder = 2 + object CheckBoxRemoveSfxBlock: TCheckBox + Left = 16 + Top = 24 + Width = 153 + Height = 17 + Caption = '&Remove Sfx block' + TabOrder = 0 + OnExit = CheckBoxRemoveSfxBlockExit + end + object CheckBoxCompressHeader: TCheckBox + Left = 16 + Top = 48 + Width = 153 + Height = 17 + Caption = 'Compress &header' + TabOrder = 1 + OnExit = CheckBoxCompressHeaderExit + end + object CheckBoxCompressHeaderFull: TCheckBox + Left = 32 + Top = 72 + Width = 137 + Height = 17 + Caption = 'Compress header &full' + TabOrder = 2 + OnExit = CheckBoxCompressHeaderFullExit + end + object CheckBoxEncryptHeader: TCheckBox + Left = 16 + Top = 96 + Width = 153 + Height = 17 + Caption = 'Encr&ypt header' + TabOrder = 3 + OnExit = CheckBoxEncryptHeaderExit + end + object CheckBoxSaveCreationDateTime: TCheckBox + Left = 16 + Top = 120 + Width = 153 + Height = 17 + Caption = 'Save cr&eation date-time' + TabOrder = 4 + OnExit = CheckBoxSaveCreationDateTimeExit + end + object CheckBoxSaveLastAccessDateTime: TCheckBox + Left = 16 + Top = 144 + Width = 153 + Height = 17 + Caption = 'Save last &access date-time' + TabOrder = 5 + OnExit = CheckBoxSaveLastAccessDateTimeExit + end + object CheckBoxSaveLastSaveDateTime: TCheckBox + Left = 16 + Top = 167 + Width = 153 + Height = 17 + Caption = 'Save last &write date-time' + TabOrder = 6 + OnExit = CheckBoxSaveLastSaveDateTimeExit + end + object CheckBoxSolidExtension: TCheckBox + Left = 16 + Top = 190 + Width = 153 + Height = 17 + Caption = 'Solid archive by e&xtension' + TabOrder = 7 + OnExit = CheckBoxSolidExtensionExit + end + end + object ButtonClose: TButton + Left = 328 + Top = 257 + Width = 121 + Height = 25 + Caption = 'Close' + Default = True + ModalResult = 1 + TabOrder = 3 + end +end diff --git a/official/2.1.1/examples/windows/compression/archive/UProperties.pas b/official/2.1.1/examples/windows/compression/archive/UProperties.pas new file mode 100644 index 0000000..21ef9fc --- /dev/null +++ b/official/2.1.1/examples/windows/compression/archive/UProperties.pas @@ -0,0 +1,289 @@ +unit UProperties; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, JclCompression, ActnList; + +type + TFormArchiveSettings = class(TForm) + GroupBoxGeneralSettings: TGroupBox; + EditPassword: TEdit; + LabelPassword: TLabel; + EditNumberOfThreads: TEdit; + LabelNumberOfThreads: TLabel; + GroupBoxCompressionProperties: TGroupBox; + EditCompressionLevel: TEdit; + LabelCompressionLevel: TLabel; + ComboBoxCompressionMethod: TComboBox; + LabelCompressionMethod: TLabel; + ComboBoxEncryptionMethod: TComboBox; + LabelEncryptionMethod: TLabel; + EditDictionarySize: TEdit; + LabelDictionarySize: TLabel; + EditNumberOfPasses: TEdit; + LabelNumberOfPasses: TLabel; + GroupBox1: TGroupBox; + CheckBoxRemoveSfxBlock: TCheckBox; + CheckBoxCompressHeader: TCheckBox; + CheckBoxCompressHeaderFull: TCheckBox; + CheckBoxEncryptHeader: TCheckBox; + CheckBoxSaveCreationDateTime: TCheckBox; + CheckBoxSaveLastAccessDateTime: TCheckBox; + CheckBoxSaveLastSaveDateTime: TCheckBox; + ButtonClose: TButton; + CheckBoxSolidExtension: TCheckBox; + LabelSolidBlockSize: TLabel; + EditSolidBlockSize: TEdit; + procedure EditPasswordExit(Sender: TObject); + procedure EditNumberOfThreadsExit(Sender: TObject); + procedure EditCompressionLevelExit(Sender: TObject); + procedure ComboBoxCompressionMethodExit(Sender: TObject); + procedure ComboBoxEncryptionMethodChange(Sender: TObject); + procedure EditDictionarySizeExit(Sender: TObject); + procedure EditNumberOfPassesExit(Sender: TObject); + procedure CheckBoxRemoveSfxBlockExit(Sender: TObject); + procedure CheckBoxCompressHeaderExit(Sender: TObject); + procedure CheckBoxCompressHeaderFullExit(Sender: TObject); + procedure CheckBoxEncryptHeaderExit(Sender: TObject); + procedure CheckBoxSaveCreationDateTimeExit(Sender: TObject); + procedure CheckBoxSaveLastAccessDateTimeExit(Sender: TObject); + procedure CheckBoxSaveLastSaveDateTimeExit(Sender: TObject); + procedure CheckBoxSolidExtensionExit(Sender: TObject); + procedure EditSolidBlockSizeExit(Sender: TObject); + protected + FArchive: TJclCompressionArchive; + FNumberOfThreads: IJclArchiveNumberOfThreads; + FCompressionLevel: IJclArchiveCompressionLevel; + FCompressionMethod: IJclArchiveCompressionMethod; + FEncryptionMethod: IJclArchiveEncryptionMethod; + FDictionarySize: IJclArchiveDictionarySize; + FNumberOfPasses: IJclArchiveNumberOfPasses; + FRemoveSfxBlock: IJclArchiveRemoveSfxBlock; + FCompressHeader: IJclArchiveCompressHeader; + FEncryptHeader: IJclArchiveEncryptHeader; + FSaveCreationDateTime: IJclArchiveSaveCreationDateTime; + FSaveLastAccessDateTime: IJclArchiveSaveLastAccessDateTime; + FSaveLastWriteDateTime: IJclArchiveSaveLastWriteDateTime; + FAlgoritm: IJclArchiveAlgorithm; + FSolid: IJclArchiveSolid; + public + class procedure Execute(Archive: TJclCompressionArchive); + procedure RefreshValues; + end; + +implementation + +{$R *.dfm} + +uses + TypInfo; + +procedure TFormArchiveSettings.CheckBoxCompressHeaderExit(Sender: TObject); +begin + FCompressHeader.CompressHeader := CheckBoxCompressHeader.Checked; + RefreshValues; +end; + +procedure TFormArchiveSettings.CheckBoxCompressHeaderFullExit(Sender: TObject); +begin + FCompressHeader.CompressHeaderFull := CheckBoxCompressHeaderFull.Checked; + RefreshValues; +end; + +procedure TFormArchiveSettings.CheckBoxEncryptHeaderExit(Sender: TObject); +begin + FEncryptHeader.EncryptHeader := CheckBoxEncryptHeader.Checked; + RefreshValues; +end; + +procedure TFormArchiveSettings.CheckBoxRemoveSfxBlockExit(Sender: TObject); +begin + FRemoveSfxBlock.RemoveSfxBlock := CheckBoxRemoveSfxBlock.Checked; + RefreshValues; +end; + +procedure TFormArchiveSettings.CheckBoxSaveCreationDateTimeExit(Sender: TObject); +begin + FSaveCreationDateTime.SaveCreationDateTime := CheckBoxSaveCreationDateTime.Checked; + RefreshValues; +end; + +procedure TFormArchiveSettings.CheckBoxSaveLastAccessDateTimeExit(Sender: TObject); +begin + FSaveLastAccessDateTime.SaveLastAccessDateTime := CheckBoxSaveLastAccessDateTime.Checked; + RefreshValues; +end; + +procedure TFormArchiveSettings.CheckBoxSaveLastSaveDateTimeExit(Sender: TObject); +begin + FSaveLastWriteDateTime.SaveLastWriteDateTime := CheckBoxSaveLastSaveDateTime.Checked; + RefreshValues; +end; + +procedure TFormArchiveSettings.CheckBoxSolidExtensionExit(Sender: TObject); +begin + FSolid.SolidExtension := CheckBoxSolidExtension.Checked; + RefreshValues; +end; + +procedure TFormArchiveSettings.ComboBoxCompressionMethodExit(Sender: TObject); +begin + FCompressionMethod.CompressionMethod := TJclCompressionMethod(GetEnumValue(TypeInfo(TJclCompressionMethod),ComboBoxCompressionMethod.Text)); + RefreshValues; +end; + +procedure TFormArchiveSettings.ComboBoxEncryptionMethodChange(Sender: TObject); +begin + FEncryptionMethod.EncryptionMethod := TJclEncryptionMethod(GetEnumValue(TypeInfo(TJclEncryptionMethod),ComboBoxEncryptionMethod.Text)); + RefreshValues; +end; + +procedure TFormArchiveSettings.EditCompressionLevelExit(Sender: TObject); +begin + FCompressionLevel.CompressionLevel := StrToInt(EditCompressionLevel.Text); + RefreshValues; +end; + +procedure TFormArchiveSettings.EditDictionarySizeExit(Sender: TObject); +begin + FDictionarySize.DictionarySize := StrToInt(EditDictionarySize.Text); + RefreshValues; +end; + +procedure TFormArchiveSettings.EditNumberOfPassesExit(Sender: TObject); +begin + FNumberOfPasses.NumberOfPasses := StrToInt(EditNumberOfPasses.Text); + RefreshValues; +end; + +procedure TFormArchiveSettings.EditNumberOfThreadsExit(Sender: TObject); +begin + FNumberOfThreads.NumberOfThreads := StrToInt(EditNumberOfThreads.Text); + RefreshValues; +end; + +procedure TFormArchiveSettings.EditPasswordExit(Sender: TObject); +begin + FArchive.Password := EditPassword.Text; + RefreshValues; +end; + +procedure TFormArchiveSettings.EditSolidBlockSizeExit(Sender: TObject); +begin + FSolid.SolidBlockSize := StrToInt64(EditSolidBlockSize.Text); + RefreshValues; +end; + +class procedure TFormArchiveSettings.Execute(Archive: TJclCompressionArchive); +var + AFormSettings: TFormArchiveSettings; + CompressionMethod: TJclCompressionMethod; + EncryptionMethod: TJclEncryptionMethod; +begin + AFormSettings := TFormArchiveSettings.Create(Application); + try + Supports(IUnknown(Archive),IJclArchiveNumberOfThreads,AFormSettings.FNumberOfThreads); + Supports(IUnknown(Archive),IJclArchiveCompressionLevel,AFormSettings.FCompressionLevel); + Supports(IUnknown(Archive),IJclArchiveCompressionMethod,AFormSettings.FCompressionMethod); + Supports(IUnknown(Archive),IJclArchiveEncryptionMethod,AFormSettings.FEncryptionMethod); + Supports(IUnknown(Archive),IJclArchiveDictionarySize,AFormSettings.FDictionarySize); + Supports(IUnknown(Archive),IJclArchiveNumberOfPasses,AFormSettings.FNumberOfPasses); + Supports(IUnknown(Archive),IJclArchiveRemoveSfxBlock,AFormSettings.FRemoveSfxBlock); + Supports(IUnknown(Archive),IJclArchiveCompressHeader,AFormSettings.FCompressHeader); + Supports(IUnknown(Archive),IJclArchiveEncryptHeader,AFormSettings.FEncryptHeader); + Supports(IUnknown(Archive),IJclArchiveSaveCreationDateTime,AFormSettings.FSaveCreationDateTime); + Supports(IUnknown(Archive),IJclArchiveSaveLastAccessDateTime,AFormSettings.FSaveLastAccessDateTime); + Supports(IUnknown(Archive),IJclArchiveSaveLastWriteDateTime,AFormSettings.FSaveLastWriteDateTime); + Supports(IUnknown(Archive),IJclArchiveSolid,AFormSettings.FSolid); + AFormSettings.FArchive := Archive; + + if Assigned(AFormSettings.FCompressionLevel) then + AFormSettings.LabelCompressionLevel.Caption := Format(AFormSettings.LabelCompressionLevel.Caption, + [AFormSettings.FCompressionLevel.CompressionLevelMin,AFormSettings.FCompressionLevel.CompressionLevelMax]) + else + AFormSettings.LabelCompressionLevel.Caption := Format(AFormSettings.LabelCompressionLevel.Caption,[0,0]); + + if Assigned(AFormSettings.FCompressionMethod) then + for CompressionMethod := Low(TJclCompressionMethod) to High(TJclCompressionMethod) do + if CompressionMethod in AFormSettings.FCompressionMethod.SupportedCompressionMethods then + AFormSettings.ComboBoxCompressionMethod.Items.Add(GetEnumName(TypeInfo(TJclCompressionMethod),Integer(CompressionMethod))); + + if Assigned(AFormSettings.FEncryptionMethod) then + for EncryptionMethod := Low(TJclEncryptionMethod) to High(TJclEncryptionMethod) do + if EncryptionMethod in AFormSettings.FEncryptionMethod.SupportedEncryptionMethods then + AFormSettings.ComboBoxEncryptionMethod.Items.Add(GetEnumName(TypeInfo(TJclEncryptionMethod),Integer(EncryptionMethod))); + + AFormSettings.RefreshValues; + AFormSettings.ShowModal; + finally + AFormSettings.Free; + end; +end; + +procedure TFormArchiveSettings.RefreshValues; +begin + // password + EditPassword.Text := FArchive.Password; + // number of threads + EditNumberOfThreads.Enabled := Assigned(FNumberOfThreads); + if Assigned(FNumberOfThreads) then + EditNumberOfThreads.Text := IntToStr(FNumberOfThreads.NumberOfThreads); + // compression level + EditCompressionLevel.Enabled := Assigned(FCompressionLevel); + if Assigned(FCompressionLevel) then + EditCompressionLevel.Text := IntToStr(FCompressionLevel.CompressionLevel); + // compression method + if Assigned(FCompressionMethod) then + ComboBoxCompressionMethod.ItemIndex := ComboBoxCompressionMethod.Items.IndexOf(GetEnumName(TypeInfo(TJclCompressionMethod),Integer(FCompressionMethod.CompressionMethod))) + else + ComboBoxCompressionMethod.Enabled := False; + // encryption method + if Assigned(FEncryptionMethod) then + ComboBoxEncryptionMethod.ItemIndex := ComboBoxEncryptionMethod.Items.IndexOf(GetEnumName(TypeInfo(TJclEncryptionMethod),Integer(FEncryptionMethod.EncryptionMethod))) + else + ComboBoxEncryptionMethod.Enabled := False; + // dictionary size + if Assigned(FDictionarySize) then + EditDictionarySize.Text := IntToStr(FDictionarySize.DictionarySize) + else + EditDictionarySize.Enabled := False; + // number of passes + if Assigned(FNumberOfPasses) then + EditNumberOfPasses.Text := IntToStr(FNumberOfPasses.NumberOfPasses) + else + EditNumberOfPasses.Enabled := False; + // solid block size + if Assigned(FSolid) then + EditSolidBlockSize.Text := IntToStr(FSolid.SolidBlockSize) + else + EditSolidBlockSize.Enabled := False; + // remove sfx + CheckBoxRemoveSfxBlock.Enabled := Assigned(FRemoveSfxBlock); + CheckBoxRemoveSfxBlock.Checked := Assigned(FRemoveSfxBlock) and FRemoveSfxBlock.RemoveSfxBlock; + // compress header + CheckBoxCompressHeader.Enabled := Assigned(FCompressHeader); + CheckBoxCompressHeader.Checked := Assigned(FCompressHeader) and FCompressHeader.CompressHeader; + // compress header full + CheckBoxCompressHeaderFull.Enabled := Assigned(FCompressHeader); + CheckBoxCompressHeaderFull.Checked := Assigned(FCompressHeader) and FCompressHeader.CompressHeaderFull; + // encrypt header + CheckBoxEncryptHeader.Enabled := Assigned(FEncryptHeader); + CheckBoxEncryptHeader.Checked := Assigned(FEncryptHeader) and FEncryptHeader.EncryptHeader; + // save creation date time + CheckBoxSaveCreationDateTime.Enabled := Assigned(FSaveCreationDateTime); + CheckBoxSaveCreationDateTime.Checked := Assigned(FSaveCreationDateTime) and FSaveCreationDateTime.SaveCreationDateTime; + // save last access date time + CheckBoxSaveLastAccessDateTime.Enabled := Assigned(FSaveLastAccessDateTime); + CheckBoxSaveLastAccessDateTime.Checked := Assigned(FSaveLastAccessDateTime) and FSaveLastAccessDateTime.SaveLastAccessDateTime; + // save last write date time + CheckBoxSaveLastSaveDateTime.Enabled := Assigned(FSaveLastWriteDateTime); + CheckBoxSaveLastSaveDateTime.Checked := Assigned(FSaveLastWriteDateTime) and FSaveLastWriteDateTime.SaveLastWriteDateTime; + // solid by extension + CheckBoxSolidExtension.Enabled := Assigned(FSolid); + CheckBoxSolidExtension.Checked := Assigned(FSolid) and FSolid.SolidExtension; +end; + +end. + diff --git a/official/2.1.1/examples/windows/console/ConsoleExamples.dof b/official/2.1.1/examples/windows/console/ConsoleExamples.dof new file mode 100644 index 0000000..4a388e0 --- /dev/null +++ b/official/2.1.1/examples/windows/console/ConsoleExamples.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\bin + diff --git a/official/2.1.1/examples/windows/console/ConsoleExamples.dpr b/official/2.1.1/examples/windows/console/ConsoleExamples.dpr new file mode 100644 index 0000000..32d609c --- /dev/null +++ b/official/2.1.1/examples/windows/console/ConsoleExamples.dpr @@ -0,0 +1,409 @@ +program ConsoleExamples; + +{$APPTYPE CONSOLE} + +{$I jcl.inc} +{$IFDEF SUPPORTS_PLATFORM_WARNINGS} + {$WARN SYMBOL_PLATFORM OFF} +{$ENDIF SUPPORTS_PLATFORM_WARNINGS} + +uses + SysUtils, + Windows, + TypInfo, + JclConsole; + +{$R ..\..\..\source\windows\JclNoDepAsInvoker.res} + +type + TCPInfoEx = packed record + MaxCharSize: DWORD; + DefaultChar: array[0..MAX_DEFAULTCHAR-1] of Byte; + LeadByte: array[0..MAX_LEADBYTES-1] of Byte; + UnicodeDefaultChar: WideChar; + CodePage: DWORD; + CodePageName: array[0..MAX_PATH-1] of Char; + end; + +function GetCPInfoEx(CodePage, dwFlags: DWORD; var lpCPInfoEx: TCPInfoEx): BOOL; stdcall; + external 'kernel32.dll' name 'GetCPInfoExA'; + +procedure ShowConsoleInfo(const Console: TJclConsole); + function CodePageToName(CodePage: DWORD): string; + var + CpInfo: TCPInfoEx; + begin + Win32Check(GetCPInfoEx(CodePage, 0, CpInfo)); + Result := CpInfo.CodePageName; + end; +begin + Assert(TJclConsole.IsConsole(GetModuleHandle(nil))); + Assert(TJclConsole.IsConsole(ParamStr(0))); + + Console.ActiveScreen.WriteLn('Old Windows Title : ' + Console.Title); + Console.Title := 'Information of the Default Output Screen Buffer'; + Console.ActiveScreen.WriteLn('New Windows Title : ' + Console.Title); + Console.ActiveScreen.WriteLn(Format('Input Code Page : %s', [CodePageToName(Console.InputCodePage)])); + Console.ActiveScreen.WriteLn(Format('Output Code Page : %s', [CodePageToName(Console.OutputCodePage)])); +end; + +procedure ShowScreenInfo(const ScrBuf: TJclScreenBuffer); + function ModeToString: string; + var + AMode: TJclConsoleOutputMode; + begin + for AMode:=Low(TJclConsoleOutputMode) to High(TJclConsoleOutputMode) do + begin + if AMode in ScrBuf.Mode then + begin + if Result <> '' then + Result := Result + ', '; + Result := Result + GetEnumName(TypeInfo(TJclConsoleOutputMode), Integer(AMode)); + end; + end; + end; +var + OldMode: TJclConsoleOutputModes; + Attr: IJclScreenTextAttribute; +begin + ScrBuf.WriteLn; + ScrBuf.WriteLn(Format('Handle: 0x%.8x', [ScrBuf.Handle])); + ScrBuf.Writeln('Old Mode : ' + ModeToString); + OldMode := ScrBuf.Mode; + ScrBuf.Mode := ScrBuf.Mode - [omWrapAtEol]; + ScrBuf.Write('New Mode : ' + ModeToString); + Readln; + ScrBuf.Mode := OldMode; + + ScrBuf.WriteLn(Format('Old Size: (%d, %d)', [ScrBuf.Width, ScrBuf.Height])); + ScrBuf.Width := ScrBuf.Width * 2; + ScrBuf.Write(Format('New Size: (%d, %d)', [ScrBuf.Width, ScrBuf.Height])); + Readln; + ScrBuf.Width := ScrBuf.Width div 2; + + Attr := TJclScreenTextAttribute.Create(fclYellow, bclBlue, True, False, + [fsGridHorizontal, fsUnderscore]); + + ScrBuf.Write('Top', thaCenter, tvaTop, Attr); + ScrBuf.Write('Bottom', thaCenter, tvaBottom, Attr); + ScrBuf.Write('Left', thaLeft, tvaCenter, Attr); + ScrBuf.Write('Right', thaRight, tvaCenter, Attr); + ScrBuf.Write('Center', thaCenter, tvaCenter, Attr); +end; + +procedure ShowCursorInfo(const ScrBuf: TJclScreenBuffer); +const + BoolName: array[Boolean] of string = ('Hide', 'Show'); +var + OldPos: TCoord; + OldSize: TJclScreenCursorSize; +begin + ScrBuf.WriteLn; + ScrBuf.WriteLn(Format('Cursor Position: (%d, %d)', [ScrBuf.Cursor.Position.X, ScrBuf.Cursor.Position.Y])); + OldPos := ScrBuf.Cursor.Position; + ScrBuf.Cursor.MoveTo(ScrBuf.Window.Left, ScrBuf.Window.Top); + ScrBuf.Write(Format('(%d, %d)', [ScrBuf.Cursor.Position.X, ScrBuf.Cursor.Position.Y])); + ScrBuf.Cursor.Position := OldPos; + Readln; + ScrBuf.WriteLn('Left-Top corner :' + ScrBuf.ReadLn(0, 0)); + + ScrBuf.WriteLn(Format('Old Cursor Size: %d', [ScrBuf.Cursor.Size])); + OldSize := ScrBuf.Cursor.Size; ScrBuf.Cursor.Size := 100; + ScrBuf.Write(Format('New Cursor Size: %d', [ScrBuf.Cursor.Size])); + Readln; + ScrBuf.Cursor.Size := OldSize; + + ScrBuf.WriteLn('Visible of Cursor: ' + BoolName[ScrBuf.Cursor.Visible]); + ScrBuf.Cursor.Visible := False; + ScrBuf.Write('Hidden Cursor: ' + BoolName[ScrBuf.Cursor.Visible]); + Readln; + ScrBuf.Cursor.Visible := True; +end; + +procedure ShowWindowInfo(const ScrBuf: TJclScreenBuffer); +var + OldPos, OldSize: TCoord; +begin + ScrBuf.WriteLn; + ScrBuf.WriteLn(Format('Largest Console Size : (%d, %d)', + [ScrBuf.Window.MaxConsoleWindowSize.X, ScrBuf.Window.MaxConsoleWindowSize.Y])); + ScrBuf.WriteLn(Format('Largest Window Size : (%d, %d)', + [ScrBuf.Window.MaxWindow.X, ScrBuf.Window.MaxWindow.Y])); + + ScrBuf.WriteLn(Format('Old Window Position : (%d, %d)', [ScrBuf.Window.Left, ScrBuf.Window.Top])); + OldPos := ScrBuf.Window.Position; + ScrBuf.Window.Left := 0; + ScrBuf.Window.Top := 0; + ScrBuf.Write(Format('New Window Position : (%d, %d)', [ScrBuf.Window.Left, ScrBuf.Window.Top])); + Readln; + ScrBuf.Window.Position := OldPos; + + ScrBuf.WriteLn(Format('Old Window Size : (%d, %d)', [ScrBuf.Window.Width, ScrBuf.Window.Height])); + OldSize := ScrBuf.Window.Size; + ScrBuf.Window.Width := ScrBuf.Window.Width div 2; + ScrBuf.Window.Height := ScrBuf.Window.Height div 2; + ScrBuf.Write(Format('New Window Size : (%d, %d)', [ScrBuf.Window.Width, ScrBuf.Window.Height])); + Readln; + ScrBuf.Window.Size := OldSize; + + ScrBuf.Write(Format('Scroll up %d line: ', [ScrBuf.Window.Top])); + Readln; + OldPos := ScrBuf.Window.Position; + ScrBuf.Window.Scroll(0, -ScrBuf.Window.Top); + Readln; + ScrBuf.Window.Position := OldPos; +end; + +procedure ShowTextAttributeInfo(const ScrBuf: TJclScreenBuffer); + function StyleToString: string; + var + AStyle: TJclScreenFontStyle; + begin + for AStyle:=Low(TJclScreenFontStyle) to High(TJclScreenFontStyle) do + begin + if AStyle in ScrBuf.Font.Style then + begin + if Result <> '' then + Result := Result + ', '; + Result := Result + GetEnumName(TypeInfo(TJclScreenFontStyle), Integer(AStyle)); + end; + end; + end; +const + HighlightName: array[Boolean] of string = ('', ' [Highlight]'); +var + OldTextAttribute: Word; +begin + ScrBuf.WriteLn('Old Font Color : ' + + GetEnumName(TypeInfo(TJclScreenFontColor), Integer(ScrBuf.Font.Color)) + + HighlightName[ScrBuf.Font.Highlight]); + ScrBuf.WriteLn('Old Back Color : ' + + GetEnumName(TypeInfo(TJclScreenBackColor), Integer(ScrBuf.Font.BgColor)) + + HighlightName[ScrBuf.Font.BgHighlight]); + ScrBuf.Writeln('Old Font Style : ' + StyleToString); + OldTextAttribute := ScrBuf.Font.TextAttribute; + ScrBuf.Font.Color := fclYellow; + ScrBuf.Font.Highlight := True; + ScrBuf.Font.BgColor := bclBlue; + ScrBuf.Font.Style := ScrBuf.Font.Style + [fsUnderscore]; + ScrBuf.WriteLn('New Font Color : ' + + GetEnumName(TypeInfo(TJclScreenFontColor), Integer(ScrBuf.Font.Color)) + + HighlightName[ScrBuf.Font.Highlight]); + ScrBuf.WriteLn('New Back Color : ' + + GetEnumName(TypeInfo(TJclScreenBackColor), Integer(ScrBuf.Font.BgColor)) + + HighlightName[ScrBuf.Font.BgHighlight]); + ScrBuf.Write('New Font Style : ' + StyleToString); + ScrBuf.Font.TextAttribute := OldTextAttribute; + ScrBuf.Writeln; +end; + +{ TCtrlEventHandler } + +type + TCtrlEventHandler = class + private + FConsole: TJclConsole; + FTerminated: Boolean; + protected + procedure OnCtrlC(Sender: TObject); + procedure OnCtrlBreak(Sender: TObject); + procedure OnClose(Sender: TObject); + procedure OnLogOff(Sender: TObject); + procedure OnShutdown(Sender: TObject); + + procedure Terminate; + public + constructor Create(AConsole: TJclConsole); + + property Console: TJclConsole read FConsole; + property Terminated: Boolean read FTerminated; + end; + +constructor TCtrlEventHandler.Create(AConsole: TJclConsole); +begin + FConsole := AConsole; + FTerminated := False; + + Console.OnCtrlC := OnCtrlC; + Console.OnCtrlBreak := OnCtrlBreak; + Console.OnClose := OnClose; + Console.OnLogOff := OnLogOff; + Console.OnShutdown := OnShutdown; +end; + +procedure TCtrlEventHandler.Terminate; +var + Evt: TInputRecord; +begin + Sleep(1000); + + FTerminated := True; + + Evt.EventType := FOCUS_EVENT; + Evt.Event.FocusEvent.bSetFocus := False; + FConsole.Input.PutEvent(Evt); +end; + +procedure TCtrlEventHandler.OnCtrlC(Sender: TObject); +begin + Console.ActiveScreen.Writeln('Ctrl Event: Ctrl-C'); +end; + +procedure TCtrlEventHandler.OnCtrlBreak(Sender: TObject); +begin + Console.ActiveScreen.Writeln('Ctrl Event: Ctrl-Break'); +end; + +procedure TCtrlEventHandler.OnClose(Sender: TObject); +begin + Console.ActiveScreen.Writeln('Ctrl Event: Close'); + Terminate; +end; + +procedure TCtrlEventHandler.OnLogOff(Sender: TObject); +begin + Console.ActiveScreen.Writeln('Ctrl Event: Logoff'); + Terminate; +end; + +procedure TCtrlEventHandler.OnShutdown(Sender: TObject); +begin + Console.ActiveScreen.Writeln('Ctrl Event: Shutdown'); + Terminate; +end; + +procedure ShowInputInfo(const InputBuf: TJclInputBuffer); + function ModeToString: string; + var + AMode: TJclConsoleInputMode; + begin + for AMode:=Low(TJclConsoleInputMode) to High(TJclConsoleInputMode) do + begin + if AMode in InputBuf.Mode then + begin + if Result <> '' then + Result := Result + ', '; + Result := Result + GetEnumName(TypeInfo(TJclConsoleInputMode), Integer(AMode)); + end; + end; + end; + + procedure AddEvent; + var + ir: TInputRecord; + begin + ir.EventType := MENU_EVENT; + ir.Event.MenuEvent.dwCommandId := 111; + InputBuf.PutEvent(ir); + end; +const + MOUSE_CLICKED = 0; + MOUSE_WHEELED = 3; + KeyDownBoolName: array[Boolean] of string = ('released', 'pressed'); + SetFocusBoolName: array[Boolean] of string = ('deactivated', 'activated'); +var + I: DWORD; + OldPos: TCoord; + CtrlEvt: TCtrlEventHandler; + ScrBuf: TJclScreenBuffer; +begin + ScrBuf := InputBuf.Console.ActiveScreen; + ScrBuf.WriteLn(Format('Input Event Count : %d', [InputBuf.EventCount])); + + InputBuf.Mode := [imProcessed, imWindow, imMouse]; + ScrBuf.Writeln('Input Mode : ' + ModeToString); + + InputBuf.Clear; + + AddEvent; + + CtrlEvt := TCtrlEventHandler.Create(InputBuf.Console); + try + ScrBuf.WriteLn('Press [q] to break the loop...'); + while not CtrlEvt.Terminated and InputBuf.WaitEvent do + begin + with InputBuf.GetEvent do + case EventType of + KEY_EVENT: + begin + ScrBuf.WriteLn(Format('Key (%s)$%.2x is %s %d times', + [Event.KeyEvent.AsciiChar, Event.KeyEvent.wVirtualKeyCode, + KeyDownBoolName[Event.KeyEvent.bKeyDown], Event.KeyEvent.wRepeatCount])); + + if Event.KeyEvent.AsciiChar = 'q' then + Break; + end; + _MOUSE_EVENT: + begin + case Event.MouseEvent.dwEventFlags of + MOUSE_CLICKED: + begin + for I:= 1 to TJclConsole.MouseButtonCount do + if (Event.MouseEvent.dwButtonState and (1 shl (I - 1))) <> 0 then + begin + ScrBuf.Write(Format('Mouse %d button click at', [I])); + Break; + end; + if I > TJclConsole.MouseButtonCount then + ScrBuf.Write('Mouse button released at'); + end; + DOUBLE_CLICK: + ScrBuf.Write('Mouse double-click at'); + MOUSE_MOVED: + begin + if (OldPos.X <> Event.MouseEvent.dwMousePosition.X) or + (OldPos.Y <> Event.MouseEvent.dwMousePosition.Y) then + begin + ScrBuf.Write('Mouse move to'); + OldPos := Event.MouseEvent.dwMousePosition; + end + else + Continue; + end; + MOUSE_WHEELED: + ScrBuf.Write('Mouse wheeled at'); + else + ScrBuf.Write('Mouse unknown action at'); + end; + + ScrBuf.WriteLn(Format(' (%d, %d) ', [Event.MouseEvent.dwMousePosition.X, Event.MouseEvent.dwMousePosition.Y])); + end; + WINDOW_BUFFER_SIZE_EVENT: + ScrBuf.WriteLn(Format('Screen buffer size is change to (%d, %d)', + [Event.WindowBufferSizeEvent.dwSize.X, Event.WindowBufferSizeEvent.dwSize.Y])); + MENU_EVENT: + ScrBuf.WriteLn(Format('Menu command %d is selected', [Event.MenuEvent.dwCommandId])); + FOCUS_EVENT: + ScrBuf.Writeln('Console window is ' + SetFocusBoolName[Event.FocusEvent.bSetFocus]); + else + ScrBuf.WriteLn(Format('Unknown event - %d', [EventType])); + end; + end; + finally + FreeAndNil(CtrlEvt); + end; +end; + +var + ScrBuf, NewScrBuf: TJclScreenBuffer; +begin + ShowConsoleInfo(TJclConsole.Default); + + ScrBuf := TJclConsole.Default.ActiveScreen; + + ShowScreenInfo(ScrBuf); + ShowCursorInfo(ScrBuf); + ShowWindowInfo(ScrBuf); + + ScrBuf.Clear; + + NewScrBuf := TJclConsole.Default.Add; + ShowTextAttributeInfo(NewScrBuf); + TJclConsole.Default.ActiveScreen := NewScrBuf; + + ShowInputInfo(TJclConsole.Default.Input); + + NewScrBuf.Clear; + + TJclConsole.Default.ActiveScreen := ScrBuf; +end. diff --git a/official/2.1.1/examples/windows/debug/framestrack/FramesTrackDemoMain.dfm b/official/2.1.1/examples/windows/debug/framestrack/FramesTrackDemoMain.dfm new file mode 100644 index 0000000..3215e5b --- /dev/null +++ b/official/2.1.1/examples/windows/debug/framestrack/FramesTrackDemoMain.dfm @@ -0,0 +1,91 @@ +object Form1: TForm1 + Left = 192 + Top = 136 + ClientWidth = 782 + ClientHeight = 474 + Caption = 'Exception frame tracking example' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object mmLog: TMemo + Left = 172 + Top = 32 + Width = 610 + Height = 441 + Anchors = [akLeft, akTop, akRight, akBottom] + ScrollBars = ssBoth + TabOrder = 0 + WordWrap = False + end + object Button1: TButton + Left = 4 + Top = 32 + Width = 165 + Height = 25 + Caption = 'Assign to PChar(nil)' + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 4 + Top = 60 + Width = 165 + Height = 25 + Caption = 'try ... except' + TabOrder = 2 + OnClick = Button2Click + end + object Button3: TButton + Left = 4 + Top = 88 + Width = 165 + Height = 25 + Caption = 'try except on.... else' + TabOrder = 3 + OnClick = Button3Click + end + object Button4: TButton + Left = 4 + Top = 116 + Width = 165 + Height = 25 + Caption = 'try ... finally' + TabOrder = 4 + OnClick = Button4Click + end + object Button5: TButton + Left = 4 + Top = 144 + Width = 165 + Height = 25 + Caption = 'try try ... finally except' + TabOrder = 5 + OnClick = Button5Click + end + object chkShowAllFrames: TCheckBox + Left = 180 + Top = 8 + Width = 145 + Height = 17 + Caption = 'Show all exception frames' + TabOrder = 6 + end + object Button6: TButton + Left = 704 + Top = 4 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Caption = 'Clear' + TabOrder = 7 + OnClick = Button6Click + end +end diff --git a/official/2.1.1/examples/windows/debug/framestrack/FramesTrackDemoMain.pas b/official/2.1.1/examples/windows/debug/framestrack/FramesTrackDemoMain.pas new file mode 100644 index 0000000..8d0cdd4 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/framestrack/FramesTrackDemoMain.pas @@ -0,0 +1,186 @@ +unit FramesTrackDemoMain; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls; + +type + TForm1 = class(TForm) + mmLog: TMemo; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Button4: TButton; + Button5: TButton; + chkShowAllFrames: TCheckBox; + Button6: TButton; + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + private + { Private declarations } + procedure LogException(ExceptObj: TObject; ExceptAddr: Pointer; IsOS: Boolean); + public + { Public declarations } + end; + +var + Form1: TForm1; + +implementation + +{$R *.DFM} + +uses + JclDebug, JclHookExcept, TypInfo; + +procedure TForm1.LogException(ExceptObj: TObject; ExceptAddr: Pointer; IsOS: Boolean); +var + TmpS: string; + ModInfo: TJclLocationInfo; + I: Integer; + ExceptionHandled: Boolean; + HandlerLocation: Pointer; + ExceptFrame: TJclExceptFrame; + +begin + TmpS := 'Exception ' + ExceptObj.ClassName; + if ExceptObj is Exception then + TmpS := TmpS + ': ' + Exception(ExceptObj).Message; + if IsOS then + TmpS := TmpS + ' (OS Exception)'; + mmLog.Lines.Add(TmpS); + ModInfo := GetLocationInfo(ExceptAddr); + mmLog.Lines.Add(Format( + ' Exception occured at $%p (Module "%s", Procedure "%s", Unit "%s", Line %d)', + [ModInfo.Address, + ModInfo.UnitName, + ModInfo.ProcedureName, + ModInfo.SourceName, + ModInfo.LineNumber])); + if stExceptFrame in JclStackTrackingOptions then + begin + mmLog.Lines.Add(' Except frame-dump:'); + I := 0; + ExceptionHandled := False; + while (chkShowAllFrames.Checked or not ExceptionHandled) and + (I < JclLastExceptFrameList.Count) do + begin + ExceptFrame := JclLastExceptFrameList.Items[I]; + ExceptionHandled := ExceptFrame.HandlerInfo(ExceptObj, HandlerLocation); + if (ExceptFrame.FrameKind = efkFinally) or + (ExceptFrame.FrameKind = efkUnknown) or + not ExceptionHandled then + HandlerLocation := ExceptFrame.CodeLocation; + ModInfo := GetLocationInfo(HandlerLocation); + TmpS := Format( + ' Frame at $%p (type: %s', + [ExceptFrame.FrameLocation, + GetEnumName(TypeInfo(TExceptFrameKind), Ord(ExceptFrame.FrameKind))]); + if ExceptionHandled then + TmpS := TmpS + ', handles exception)' + else + TmpS := TmpS + ')'; + mmLog.Lines.Add(TmpS); + if ExceptionHandled then + mmLog.Lines.Add(Format( + ' Handler at $%p', + [HandlerLocation])) + else + mmLog.Lines.Add(Format( + ' Code at $%p', + [HandlerLocation])); + mmLog.Lines.Add(Format( + ' Module "%s", Procedure "%s", Unit "%s", Line %d', + [ModInfo.UnitName, + ModInfo.ProcedureName, + ModInfo.SourceName, + ModInfo.LineNumber])); + Inc(I); + end; + end; + mmLog.Lines.Add(''); +end; + +procedure TForm1.FormCreate(Sender: TObject); +begin + JclAddExceptNotifier(Form1.LogException); +end; + +procedure TForm1.FormDestroy(Sender: TObject); +begin + JclRemoveExceptNotifier(Form1.LogException); +end; + +procedure TForm1.Button1Click(Sender: TObject); +begin + mmLog.Lines.Add(TButton(Sender).Caption); + PChar(nil)^ := 'a'; +end; + +procedure TForm1.Button6Click(Sender: TObject); +begin + mmLog.Lines.Clear; +end; + +procedure TForm1.Button2Click(Sender: TObject); +begin + mmLog.Lines.Add(TButton(Sender).Caption); + try + PChar(nil)^ := 'a'; + except + end; +end; + +procedure TForm1.Button3Click(Sender: TObject); +begin + mmLog.Lines.Add(TButton(Sender).Caption); + try + ShowMessage(IntToStr(StrToInt('a'))); + except + on E: EConvertError do + ShowMessage('EConvertError or descendant'); + on E: ERangeError do + ShowMessage('ERangeError or descendant'); + else + ShowMessage('Not EConvertError and not ERangeError') + end; +end; + +procedure TForm1.Button4Click(Sender: TObject); +begin + mmLog.Lines.Add(TButton(Sender).Caption); + try + PChar(nil)^ := 'a'; + finally + ShowMessage('finally!'); + end; +end; + +procedure TForm1.Button5Click(Sender: TObject); +begin + mmLog.Lines.Add(TButton(Sender).Caption); + try + try + PChar(nil)^ := 'a'; + finally + ShowMessage('Finally!'); + end; + except + ShowMessage('Except!'); + end; +end; + +initialization + + JclStackTrackingOptions := JclStackTrackingOptions + [stExceptFrame]; + JclStartExceptionTracking; + +end. diff --git a/official/2.1.1/examples/windows/debug/framestrack/FramesTrackExample.dof b/official/2.1.1/examples/windows/debug/framestrack/FramesTrackExample.dof new file mode 100644 index 0000000..e957ac9 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/framestrack/FramesTrackExample.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\..\bin + diff --git a/official/2.1.1/examples/windows/debug/framestrack/FramesTrackExample.dpr b/official/2.1.1/examples/windows/debug/framestrack/FramesTrackExample.dpr new file mode 100644 index 0000000..dd6c45c --- /dev/null +++ b/official/2.1.1/examples/windows/debug/framestrack/FramesTrackExample.dpr @@ -0,0 +1,16 @@ +program FramesTrackExample; + +{$I jcl.inc} + +uses + Forms, + FramesTrackDemoMain in 'FramesTrackDemoMain.pas' {Form1}; + +{$R *.RES} +{$R ..\..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/debug/framestrack/FramesTrackExample.res b/official/2.1.1/examples/windows/debug/framestrack/FramesTrackExample.res new file mode 100644 index 0000000000000000000000000000000000000000..472f2e47297a46cf06bb2ce0c8024f600e93445f GIT binary patch literal 876 zcmb7Dv2N5r5S`;9xg)W{DJ54@#)?ixq5woi0mwzzd`4C)-)wZn8KKjRL~&IVegsim z<4;MMl8!BqmN)jD1QHD+KkvSIvoqseFA>ok$aw^&f7!#MgFZ#fWYA7dilal&Gfd{d zD_}xo0Hra(u1-$Sq_Y{=t)_t=*?Vay!e$CjOQd&(lrSF0Tls2mP+KZU0$}{QB){?Cac-k=ge)P zs@#gmop0R8g}oxl?IPC5q$+ilyo8%O(__-l!GrVd4Js^S-iEqTry#JnP8vd!s;FDl zq;Z||>|&v=4zWd2S?5$WWh!|QKY>F}P3_f(5WOWpd|j7mcHv`Ne;>F+kC;*qx`@}N zI@2b!D425=SVC0ra{+0Ysaf8YfGz8My5jwi7&srkpXp z9NZS0rZ02XvDWFgVg)9vo;QjnQKSDp@U9?#Ex_7v>500o()q z9vw!*|5}IN*3c784fkjixsOrfDQdkOu0=o1Pl)Io$oVn7qu2D7-UDyw1IB~>c`xiX POlUqo8g7N%q6z&5v1T5M literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/debug/mttest/JclDebugMTTest.dof b/official/2.1.1/examples/windows/debug/mttest/JclDebugMTTest.dof new file mode 100644 index 0000000..e957ac9 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/mttest/JclDebugMTTest.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\..\bin + diff --git a/official/2.1.1/examples/windows/debug/mttest/JclDebugMTTest.dpr b/official/2.1.1/examples/windows/debug/mttest/JclDebugMTTest.dpr new file mode 100644 index 0000000..8a56388 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/mttest/JclDebugMTTest.dpr @@ -0,0 +1,13 @@ +program JclDebugMTTest; + +uses + Forms, + JclDebugMTTestMain in 'JclDebugMTTestMain.pas' {MTTestForm}; + +{$R *.res} + +begin + Application.Initialize; + Application.CreateForm(TMTTestForm, MTTestForm); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/debug/mttest/JclDebugMTTest.res b/official/2.1.1/examples/windows/debug/mttest/JclDebugMTTest.res new file mode 100644 index 0000000000000000000000000000000000000000..119d1715757829c5b46aea563ff8d007487dd4d0 GIT binary patch literal 4396 zcmbW5y^ice5QS^CNF)e0AfFAiE(S{o$&3%L$5+F6_ ztLm~nvz}%5S}Ik$ySmP)pYE~7%ek+?BU%R{e>Weh`PJ?^N50V=n zX`nry`}9L^kB^TwmExLl%I_aOSl{)AP3VWscsrl#tNuSeU?g^G=90%WPQG5nYbw1> z;;0z_S%yeee;W-|6Mu2+D*J8h)9~Q75&N@ZSKP!8hf!MoE+70OV3Xq|&l)EO z*Lrt5{K=2!-}jLJhlK|*dX1EWNw#os9;cV_lT&& z}Zn$UI;=sGs5}#P{jdmV$iyfbu>xYQj zZRVJR1Mk$|u}5Ja;3+*wAJ`Z1TiM1AzJ#?x&BM>9zy1ggb8zr8TjWP#1NiE(r@CPB z4p+w?WrOV?-Gz`Jk6->g-VqKO&%#EuKXYGCs@ME%$pKDa1~z^hzU=6GFzJIBljFwo zAl+%-5FCgR46lFU&W(fmlQqw2tp*1l>wGXz4xIzo$RX+(Pqy zZLHjDA2^)h1zY~2rY-*D(5>;4bCX}23R8kd7O%a_-@#h*3uI+17DfZp*=E25?k9Y9d@A>Y;PXd<^^`E$L zp5qRP_`Ns4As<7l(TI)mUx>AF&^Yl!@5k@?moLX0sBMTTe%A8N@f>L_`d(Vt89%)r z_0eANC19qo&Y1IemitzR=sWH&IEF9$5x>`8W8(EZ4e~EL*4^hESiY{kc{j3_=Yg@m zmwo)`Y2t3R!@uHBeD~e(13T8I()w3^Bmd&2xx_;Ajet(U=VcDO24lP5h@s&}{`Icf znsG)mH*waM`oOJ|o%VWtq`e=9b|%Fkf7{t}iSO^a>-@JPF%Ikf=l!R5a)Q8*`wL&h zMeNQ^v6I7$HSdM^hFbHmi?3dYdyV)Nk8toGF-HFoAKyTnbD!5c_tesx;)M+y zXWq|rN8Ay6o?Xrv*b9deV{);5Sm#{5#$oCC0~m1G>T_&zyxy~nR}NrZKFlF|XCXOJ zBW(Ph=@M_%@w?Y>)DQU`nL7L3eOwaIJM&25UDc=fEulAvk-Tvy@(xGuCCzWY<-Gna z2RqQq)WU%tqu1UdvUN=LB;OART>N|3b>sx!Z+Vi#YyI$o7kn2UPwh;?;eFW2FFBw+ zwm0O#?dFyX#Z7I}Px^hY&i!ce@hX?6Ctt@d_q`YIntl3vtG?#va=sqTswV%H{3H1! z`6xLyd6Y)p`#kDz2jpmWi+nWuQog?t#z9z}Fl#;D)^E-1dr7Td+b{N`{cOKVezM=B X^V$Bd!M_>$KjZ%1|JC4MkQ@6C&37VX literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/debug/mttest/JclDebugMTTestMain.dfm b/official/2.1.1/examples/windows/debug/mttest/JclDebugMTTestMain.dfm new file mode 100644 index 0000000..3cef7fd --- /dev/null +++ b/official/2.1.1/examples/windows/debug/mttest/JclDebugMTTestMain.dfm @@ -0,0 +1,36 @@ +object MTTestForm: TMTTestForm + Left = 399 + Top = 375 + Width = 325 + Height = 159 + Caption = 'JclDebug MT Test' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Button1: TButton + Left = 8 + Top = 8 + Width = 225 + Height = 25 + Caption = 'Thread Exception Test (requires 2009)' + TabOrder = 0 + OnClick = Button1Click + end + object Button3: TButton + Left = 8 + Top = 40 + Width = 225 + Height = 25 + Caption = 'Show Thread Snapshot' + TabOrder = 1 + OnClick = Button3Click + end +end diff --git a/official/2.1.1/examples/windows/debug/mttest/JclDebugMTTestMain.pas b/official/2.1.1/examples/windows/debug/mttest/JclDebugMTTestMain.pas new file mode 100644 index 0000000..6a57c7d --- /dev/null +++ b/official/2.1.1/examples/windows/debug/mttest/JclDebugMTTestMain.pas @@ -0,0 +1,216 @@ +unit JclDebugMTTestMain; + +{$I jcl.inc} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, PSAPI, JclDebug, JclFileUtils, JclDebugSerialization, JclDebugXMLSerializer; + +type + TMTTestForm = class(TForm) + Button1: TButton; + Button3: TButton; + procedure Button1Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure FormCreate(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + MTTestForm: TMTTestForm; + +implementation + +{$R *.dfm} + +procedure LoadedModules(ModuleList: TJclSerializableModuleInfoList); +var + I: Integer; + ProcessHandle: THandle; + FileName: array [0..Max_Path] of Char; + S, BinFileVersion, FileVersion, FileDescription: string; + FileVersionInfo: TJclFileVersionInfo; + ModuleInfoList: TJclModuleInfoList; + ModuleBase: Cardinal; + Module: TJclSerializableModuleInfo; +begin + ProcessHandle := GetCurrentProcess; + ModuleInfoList := TJclModuleInfoList.Create(False, False); + try + for I := 0 to ModuleInfoList.Count - 1 do + begin + ModuleBase := Cardinal(ModuleInfoList.Items[I].StartAddr); + GetModuleFileNameEx(ProcessHandle, ModuleBase, FileName, SizeOf(FileName)); + FileVersion := ''; + if (FileName <> '') and VersionResourceAvailable(FileName) then + begin + FileVersionInfo := TJclFileVersionInfo.Create(FileName); + try + BinFileVersion := FileVersionInfo.BinFileVersion; + FileVersion := FileVersionInfo.FileVersion; + FileDescription := FileVersionInfo.FileDescription; + finally + FileVersionInfo.Free; + end; + end; + if ModuleInfoList.Items[I].SystemModule then + S := '1' + else + S := '0'; + Module := ModuleList.Add; + Module.StartStr := Format('0x%.8x', [ModuleBase]); + Module.EndStr := Format('0x%.8x', [Cardinal(ModuleInfoList.Items[I].EndAddr)]); + Module.SystemModuleStr := S; + Module.ModuleName := FileName; + Module.BinFileVersion := BinFileVersion; + Module.FileVersion := FileVersion; + Module.FileDescription := FileDescription; + end; + finally + ModuleInfoList.Free; + end; +end; + +procedure SaveExceptInfo(AExceptObj: TObject; AThreadInfoList: TJclThreadInfoList); +var + StackInfo: TStringList; + ExceptionInfo: TJclSerializableExceptionInfo; + XMLSerializer: TJclXMLSerializer; +begin + ExceptionInfo := TJclSerializableExceptionInfo.Create; + try + if AExceptObj is Exception then + begin + ExceptionInfo.Exception.ExceptionClassName := Exception(AExceptObj).ClassName; + ExceptionInfo.Exception.ExceptionMessage := Exception(AExceptObj).Message; + end; + LoadedModules(ExceptionInfo.Modules); + ExceptionInfo.ThreadInfoList.Assign(AThreadInfoList); + XMLSerializer := TJclXMLSerializer.Create('ExceptInfo'); + try + ExceptionInfo.Serialize(XMLSerializer); + StackInfo := TStringList.Create; + try + StackInfo.Text := XMLSerializer.SaveToString; + StackInfo.SaveToFile('ExceptInfo.xml'); + finally + StackInfo.Free; + end; + finally + XMLSerializer.Free; + end; + finally + ExceptionInfo.Free; + end; +end; + +type + TCrashThread = class(TThread) + public + procedure Execute; override; + end; + +procedure TCrashThread.Execute; +begin + Sleep(5000); + raise Exception.Create('TestException'); +end; + +procedure ExceptionAcquiredProc(AObj: TObject); +var + TID: DWORD; + ThreadInfoList: TJclThreadInfoList; + ThreadName, ExceptMessage, ExceptInfo: string; +begin + if (not (stDisableIfDebuggerAttached in JclStackTrackingOptions) or (not IsDebuggerAttached)) then + begin + TID := GetCurrentThreadId; + ThreadInfoList := TJclThreadInfoList.Create; + try + ThreadInfoList.Add.FillFromExceptThread(ThreadInfoList.GatherOptions); + ThreadInfoList.Gather(TID); + + ThreadName := ThreadInfoList[0].Name; + if tioIsMainThread in ThreadInfoList[0].Values then + ThreadName := '[MainThread]' + else + ThreadName := ThreadInfoList[0].Name; + ExceptInfo := ThreadInfoList.AsString; + SaveExceptInfo(AObj, ThreadInfoList); + finally + ThreadInfoList.Free; + end; + ExceptMessage := Exception(AObj).Message; + MessageBox(0, PChar(ExceptMessage + #13#10#13#10 + ExceptInfo), PChar(Format('Exception in Thread %d%s', [TID, ThreadName])), MB_OK); + end; +end; + +procedure TMTTestForm.Button1Click(Sender: TObject); +begin + {$IFDEF COMPILER12_UP} + ExceptionAcquired := @ExceptionAcquiredProc; + {$ELSE} + raise Exception.Create('This is not supported by your Delphi version!'); + {$ENDIF COMPILER12_UP} + TCrashThread.Create(False); +end; + +type + TLoopSleepThread = class(TThread) + public + procedure Execute; override; + end; + +procedure TLoopSleepThread.Execute; +begin + while True do + begin + Sleep(100); + Sleep(100); + Sleep(100); + Sleep(100); + Sleep(100); + Sleep(100); + Sleep(100); + Sleep(100); + Sleep(100); + Sleep(100); + end; +end; + +procedure TMTTestForm.Button3Click(Sender: TObject); +var + TID: DWORD; + ThreadInfoList: TJclThreadInfoList; + ThreadInfo: string; +begin + TLoopSleepThread.Create(False); + Sleep(100); + TLoopSleepThread.Create(False); + Sleep(100); + TLoopSleepThread.Create(False); + Sleep(100); + TID := GetCurrentThreadId; + ThreadInfoList := TJclThreadInfoList.Create; + try + ThreadInfoList.Gather(TID); + ThreadInfo := ThreadInfoList.AsString; + finally + ThreadInfoList.Free; + end; + MessageBox(0, PChar(ThreadInfo), 'Thread info (except current thread)', MB_OK); +end; + +procedure TMTTestForm.FormCreate(Sender: TObject); +begin + JclStartExceptionTracking; + JclDebugThreadList.SaveCreationStack := True; + JclHookThreads; +end; + +end. diff --git a/official/2.1.1/examples/windows/debug/reportconverter/ExceptionReportConverter.dpr b/official/2.1.1/examples/windows/debug/reportconverter/ExceptionReportConverter.dpr new file mode 100644 index 0000000..97cad84 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/reportconverter/ExceptionReportConverter.dpr @@ -0,0 +1,18 @@ +program ExceptionReportConverter; + +{$I jcl.inc} + +uses + Forms, + formConverter in 'formConverter.pas' {frmConverter}, + ExceptDlgMail in '..\..\..\..\EXPERTS\DEBUG\DIALOG\EXCEPTDLGMAIL.pas' {ExceptionDialogMail}; + +{$R *.res} +{$R ..\..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.Title := 'Exception Report Converter'; + Application.CreateForm(TfrmConverter, frmConverter); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/debug/reportconverter/ExceptionReportConverter.res b/official/2.1.1/examples/windows/debug/reportconverter/ExceptionReportConverter.res new file mode 100644 index 0000000000000000000000000000000000000000..d8a552809ed6777a882d682ecdbd46969240e34e GIT binary patch literal 876 zcmZuw!D`h&6g_zf7)hzGAhf$aLTTM;$WpKsi^YZZABr?vc}QlbDP0)IqQCM=Hp1Pc zD}O_9WIIp@v{GZ_Gw5vo0y{u4hZqaM-|cx^g;xG|cZFqsiY zM1Y7bgEjw;3gCyT>N~bfi3(lUQLs%|r+vq^-y+-u9EQbN|3@1f#ULJWz-L%%kV7bHd+I z&uzl(1D8Hs44g-@ojSKC1CN__I!RL`gMmEr(rDm>#uFI~wb+3sBJ#oec<3~c1FaqJ zbI-Xh;IAW>Hm6Zo&n(YbXxs`K<|4JUHj&8JhWEi}2EOPi@5uCI+>jBA1*$-GL>Hp}XHFa%_xh_4YA$@r+R2#9O??8@wZ4;gtOt>+ix|Lx9;V@~^^PQGh?X=+Sln literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/debug/reportconverter/formConverter.dfm b/official/2.1.1/examples/windows/debug/reportconverter/formConverter.dfm new file mode 100644 index 0000000..c1895f6 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/reportconverter/formConverter.dfm @@ -0,0 +1,65 @@ +object frmConverter: TfrmConverter + Left = 227 + Top = 119 + ClientWidth = 454 + ClientHeight = 80 + Caption = 'Exception Report Converter' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object btnConvert: TButton + Left = 368 + Top = 9 + Width = 75 + Height = 25 + Caption = '&Convert' + TabOrder = 2 + OnClick = btnConvertClick + end + object txtReportFile: TEdit + Left = 8 + Top = 11 + Width = 313 + Height = 21 + TabOrder = 0 + Text = 'txtReportFile' + end + object txtMapFile: TEdit + Left = 8 + Top = 51 + Width = 313 + Height = 21 + TabOrder = 1 + Text = 'txtMapFile' + end + object btnReportFile: TButton + Left = 328 + Top = 9 + Width = 22 + Height = 25 + Caption = '...' + TabOrder = 3 + OnClick = btnReportFileClick + end + object btnMapFile: TButton + Left = 328 + Top = 49 + Width = 22 + Height = 25 + Caption = '...' + TabOrder = 4 + OnClick = btnMapFileClick + end + object dlgOpen: TOpenDialog + Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 392 + Top = 51 + end +end diff --git a/official/2.1.1/examples/windows/debug/reportconverter/formConverter.pas b/official/2.1.1/examples/windows/debug/reportconverter/formConverter.pas new file mode 100644 index 0000000..d154500 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/reportconverter/formConverter.pas @@ -0,0 +1,194 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is formConverter.pas. } +{ } +{ The Initial Developer of the Original Code is Elahn Ientile } +{ Portions created by Elahn Ientile are Copyright (C) Elahn Ientile. } +{ } +{**************************************************************************************************} +{ } +{ Converts a report send by TExceptionDialogMail where no Debug Info or Map file was present into } +{ a report equivalent to one where Debug Info or Map file was present, i.e. inc. line numbers, etc } +{ } +{ Note: to generate a Map file on compile, add "-GD" to [project name].cfg } +{ the map file used must be the one generated when that copy of the program was compiled } +{ } +{ Unit owner: Elahn Ientile } +{ Last modified: $Date: 2006-09-03 11:36:16 +0200 (dim., 03 sept. 2006) $ } +{ } +{**************************************************************************************************} + +unit formConverter; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, JclDebug; + +type + TfrmConverter = class(TForm) + btnConvert: TButton; + txtReportFile: TEdit; + txtMapFile: TEdit; + btnReportFile: TButton; + btnMapFile: TButton; + dlgOpen: TOpenDialog; + procedure btnConvertClick(Sender: TObject); + procedure btnReportFileClick(Sender: TObject); + procedure btnMapFileClick(Sender: TObject); + private + FScanner: TJclMapScanner; + public + procedure ConvertFile(AMap, AInput, AOutput: TFileName); + function FormatInfo(var Info: TJclLocationInfo; + IncludeAddressOffset: Boolean = True; + IncludeStartProcLineOffset: Boolean = True): string; + function GetVALocationInfo(const VA: DWORD; var Info: TJclLocationInfo): Boolean; + end; + +var + frmConverter: TfrmConverter; + +implementation + +{$R *.dfm} + +procedure TfrmConverter.btnConvertClick(Sender: TObject); +var + lStr, lExt: string; +begin + if not FileExists(txtReportFile.Text) then + ShowMessage('Report File does not exist.') + else if not FileExists(txtMapFile.Text) then + ShowMessage('Map File does not exist.') + else + begin + lStr := txtReportFile.Text; + lExt := ExtractFileExt(lStr); + Insert('.converted', lStr, Length(lStr) + 1 - Length(lExt)); + ConvertFile(txtMapFile.Text, txtReportFile.Text, lStr); + end; +end; + +procedure TfrmConverter.ConvertFile(AMap, AInput, AOutput: TFileName); +var + ls: TStringList; + i: Integer; + lInStackList: Boolean; + s: string; + VA: DWORD; + Info: TJclLocationInfo; +begin + FScanner := TJclMapScanner.Create(AMap); + ls := TStringList.Create; + try + ls.LoadFromFile(AInput); + if ls.Count = 0 then + Exit; + lInStackList := False; + i := 0; + while i < ls.Count do + begin + if (Copy(ls[i], 1, 3) = '---') then + if lInStackList then + Break + else if Copy(ls[i+1], 1, 10) = 'Stack list' then + begin + lInStackList := True; + Inc(i, 2); + end; + if lInStackList and (Copy(ls[i], 1, 1) = '(') then + begin + s := '$' + Copy(ls[i], 2, 8); + VA := DWORD(StrToInt64(s)); + if GetVALocationInfo(VA, Info) then + ls[i] := ls[i] + FormatInfo(Info); + end; + Inc(i); + end; + ls.SaveToFile(AOutput); + ShowMessage('Successfully converted. Output filename:' + #13#10#13#10 + AOutput); + finally + ls.Free; + end; +end; + +function TfrmConverter.FormatInfo(var Info: TJclLocationInfo; + IncludeAddressOffset, IncludeStartProcLineOffset: Boolean): string; +var + StartProcInfo: TJclLocationInfo; + OffsetStr, StartProcOffsetStr: string; +begin + OffsetStr := ''; + with Info do + begin + if LineNumber > 0 then + begin + if IncludeStartProcLineOffset and GetVALocationInfo(DWORD(Cardinal(Info.Address) - + Cardinal(Info.OffsetFromProcName)), StartProcInfo) and (StartProcInfo.LineNumber > 0) then + StartProcOffsetStr := Format(' + %d', [LineNumber - StartProcInfo.LineNumber]) + else + StartProcOffsetStr := ''; + if IncludeAddressOffset then + begin + if OffsetFromLineNumber >= 0 then + OffsetStr := Format(' + $%x', [OffsetFromLineNumber]) + else + OffsetStr := Format(' - $%x', [-OffsetFromLineNumber]) + end; + Result := Format(' %s.%s (Line %u, "%s"%s)%s', [UnitName, ProcedureName, LineNumber, + SourceName, StartProcOffsetStr, OffsetStr]); + end + else + begin + if IncludeAddressOffset then + OffsetStr := Format(' + $%x', [OffsetFromProcName]); + if UnitName <> '' then + Result := Format(' %s.%s%s', [UnitName, ProcedureName, OffsetStr]) + else + Result := Format(' %s%s', [ProcedureName, OffsetStr]); + end; + end; +end; + +function TfrmConverter.GetVALocationInfo(const VA: DWORD; var Info: TJclLocationInfo): Boolean; +begin + with FScanner do + begin + Info.UnitName := ModuleNameFromAddr(VA); + Result := (Info.UnitName <> ''); + if Result then + begin + Info.Address := Pointer(VA); + Info.ProcedureName := ProcNameFromAddr(VA, Info.OffsetFromProcName); + Info.LineNumber := LineNumberFromAddr(VA, Info.OffsetFromLineNumber); + Info.SourceName := SourceNameFromAddr(VA); + Info.DebugInfo := nil; + end; + end; +end; + +procedure TfrmConverter.btnReportFileClick(Sender: TObject); +begin + if dlgOpen.Execute then + txtReportFile.Text := dlgOpen.FileName; +end; + +procedure TfrmConverter.btnMapFileClick(Sender: TObject); +begin + if dlgOpen.Execute then + txtMapFile.Text := dlgOpen.FileName; +end; + +end. diff --git a/official/2.1.1/examples/windows/debug/sourceloc/SourceLocDemoMain.dfm b/official/2.1.1/examples/windows/debug/sourceloc/SourceLocDemoMain.dfm new file mode 100644 index 0000000..30fdc88 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/sourceloc/SourceLocDemoMain.dfm @@ -0,0 +1,134 @@ +object Form1: TForm1 + Left = 192 + Top = 107 + ClientWidth = 638 + ClientHeight = 485 + Caption = 'JclDebug Source location example' + Color = clBtnFace + Constraints.MinHeight = 300 + Constraints.MinWidth = 600 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 16 + Top = 40 + Width = 29 + Height = 13 + Caption = 'Level:' + FocusControl = LevelSpinEdit + end + object Label2: TLabel + Left = 136 + Top = 40 + Width = 67 + Height = 13 + Caption = 'Address (hex):' + FocusControl = AddrEdit + end + object Memo1: TMemo + Left = 0 + Top = 88 + Width = 638 + Height = 396 + Anchors = [akLeft, akTop, akRight, akBottom] + Font.Charset = EASTEUROPE_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 0 + WordWrap = False + end + object CallerBtn: TButton + Left = 16 + Top = 8 + Width = 89 + Height = 25 + Caption = 'Caller()' + TabOrder = 1 + OnClick = CallerBtnClick + end + object LevelSpinEdit: TSpinEdit + Left = 16 + Top = 56 + Width = 89 + Height = 22 + MaxValue = 20 + MinValue = 0 + TabOrder = 2 + Value = 0 + end + object AddrBtn: TButton + Left = 136 + Top = 8 + Width = 89 + Height = 25 + Caption = 'Address lookup' + TabOrder = 3 + OnClick = AddrBtnClick + end + object AddrEdit: TEdit + Left = 136 + Top = 56 + Width = 89 + Height = 21 + CharCase = ecUpperCase + MaxLength = 8 + TabOrder = 4 + Text = 'ADDREDIT' + end + object StackBtn: TButton + Left = 256 + Top = 8 + Width = 89 + Height = 25 + Caption = 'Stack dump' + TabOrder = 5 + OnClick = StackBtnClick + end + object TraceLocBtn: TButton + Left = 368 + Top = 8 + Width = 89 + Height = 25 + Caption = 'TraceLoc("text")' + TabOrder = 6 + OnClick = TraceLocBtnClick + end + object ProcBtn: TButton + Left = 480 + Top = 8 + Width = 81 + Height = 25 + Caption = '__PROC__' + TabOrder = 8 + OnClick = ProcBtnClick + end + object ModuleBtn: TButton + Left = 480 + Top = 48 + Width = 81 + Height = 25 + Caption = '__MODULE__' + TabOrder = 9 + OnClick = ModuleBtnClick + end + object RawCheckBox: TCheckBox + Left = 256 + Top = 40 + Width = 89 + Height = 17 + Caption = 'Raw' + TabOrder = 7 + end +end diff --git a/official/2.1.1/examples/windows/debug/sourceloc/SourceLocDemoMain.pas b/official/2.1.1/examples/windows/debug/sourceloc/SourceLocDemoMain.pas new file mode 100644 index 0000000..5b5c14b --- /dev/null +++ b/official/2.1.1/examples/windows/debug/sourceloc/SourceLocDemoMain.pas @@ -0,0 +1,124 @@ +unit SourceLocDemoMain; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, Spin; + +type + TForm1 = class(TForm) + Memo1: TMemo; + CallerBtn: TButton; + LevelSpinEdit: TSpinEdit; + AddrBtn: TButton; + AddrEdit: TEdit; + StackBtn: TButton; + Label1: TLabel; + Label2: TLabel; + TraceLocBtn: TButton; + ProcBtn: TButton; + ModuleBtn: TButton; + RawCheckBox: TCheckBox; + procedure CallerBtnClick(Sender: TObject); + procedure AddrBtnClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure StackBtnClick(Sender: TObject); + procedure TraceLocBtnClick(Sender: TObject); + procedure ProcBtnClick(Sender: TObject); + procedure ModuleBtnClick(Sender: TObject); + private + { Private declarations } + public + procedure ReportLocation(Addr: Pointer); + procedure ReportTime(T: Extended); + end; + +var + Form1: TForm1; + +implementation + +{$R *.DFM} + +uses + JclCounter, JclDebug; + +procedure TForm1.FormCreate(Sender: TObject); +var + P: Pointer; +begin + P := @TForm1.AddrBtnClick; + AddrEdit.Text := IntToHex(Integer(P), 8); +end; + +procedure TForm1.ReportLocation(Addr: Pointer); +var + C: TJclCounter; + S: string; + T: Extended; +begin + StartCount(C); + S := GetLocationInfoStr(Addr, False, True, True); + T := StopCount(C); + Memo1.Lines.Add(S); + ReportTime(T); +end; + +procedure TForm1.ReportTime(T: Extended); +begin + Memo1.Lines.Add(Format('Time: %4.3f ms'#13#10, [T * 1000])); +end; + +procedure TForm1.CallerBtnClick(Sender: TObject); +begin + ReportLocation(Caller(LevelSpinEdit.Value)); +end; + +procedure TForm1.AddrBtnClick(Sender: TObject); +var + Addr: Pointer; +begin + Addr := Pointer(StrToInt('$' + Trim(AddrEdit.Text))); + ReportLocation(Addr); +end; + +procedure TForm1.StackBtnClick(Sender: TObject); +var + C: TJclCounter; + T: Extended; + SL: TStringList; +begin + SL := TStringList.Create; + try + StartCount(C); + with TJclStackInfoList.Create(RawCheckBox.Checked, 0, nil) do + try + AddToStrings(SL, False, True, True); + T := StopCount(C); + Memo1.Lines.AddStrings(SL); + ReportTime(T); + finally + Free; + end; + finally + SL.Free; + end; +end; + +procedure TForm1.TraceLocBtnClick(Sender: TObject); +begin + TraceLoc('text'); +end; + +procedure TForm1.ProcBtnClick(Sender: TObject); +begin + ShowMessage(ProcByLevel); +end; + +procedure TForm1.ModuleBtnClick(Sender: TObject); +begin + ShowMessage(ModuleByLevel); +end; + +end. diff --git a/official/2.1.1/examples/windows/debug/sourceloc/SourceLocExample.dof b/official/2.1.1/examples/windows/debug/sourceloc/SourceLocExample.dof new file mode 100644 index 0000000..e957ac9 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/sourceloc/SourceLocExample.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\..\bin + diff --git a/official/2.1.1/examples/windows/debug/sourceloc/SourceLocExample.dpr b/official/2.1.1/examples/windows/debug/sourceloc/SourceLocExample.dpr new file mode 100644 index 0000000..d266117 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/sourceloc/SourceLocExample.dpr @@ -0,0 +1,16 @@ +program SourceLocExample; + +{$I jcl.inc} + +uses + Forms, + SourceLocDemoMain in 'SourceLocDemoMain.pas' {Form1}; + +{$R *.RES} +{$R ..\..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/debug/sourceloc/SourceLocExample.res b/official/2.1.1/examples/windows/debug/sourceloc/SourceLocExample.res new file mode 100644 index 0000000000000000000000000000000000000000..472f2e47297a46cf06bb2ce0c8024f600e93445f GIT binary patch literal 876 zcmb7Dv2N5r5S`;9xg)W{DJ54@#)?ixq5woi0mwzzd`4C)-)wZn8KKjRL~&IVegsim z<4;MMl8!BqmN)jD1QHD+KkvSIvoqseFA>ok$aw^&f7!#MgFZ#fWYA7dilal&Gfd{d zD_}xo0Hra(u1-$Sq_Y{=t)_t=*?Vay!e$CjOQd&(lrSF0Tls2mP+KZU0$}{QB){?Cac-k=ge)P zs@#gmop0R8g}oxl?IPC5q$+ilyo8%O(__-l!GrVd4Js^S-iEqTry#JnP8vd!s;FDl zq;Z||>|&v=4zWd2S?5$WWh!|QKY>F}P3_f(5WOWpd|j7mcHv`Ne;>F+kC;*qx`@}N zI@2b!D425=SVC0ra{+0Ysaf8YfGz8My5jwi7&srkpXp z9NZS0rZ02XvDWFgVg)9vo;QjnQKSDp@U9?#Ex_7v>500o()q z9vw!*|5}IN*3c784fkjixsOrfDQdkOu0=o1Pl)Io$oVn7qu2D7-UDyw1IB~>c`xiX POlUqo8g7N%q6z&5v1T5M literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.dof b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.dof new file mode 100644 index 0000000..18ab99a --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\..\bin +Conditionals=HOOK_DLL_EXCEPTIONS diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.dpr b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.dpr new file mode 100644 index 0000000..965f9da --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.dpr @@ -0,0 +1,21 @@ +library StackTrackDLLsComLibrary; + +uses + ComServ, + JclHookExcept, + StackTrackDLLsComLibrary_TLB in 'StackTrackDLLsComLibrary_TLB.pas', + StackTrackDLLsComUnit in 'StackTrackDLLsComUnit.pas' {StackTrackDllsTest: CoClass}; + +exports + DllGetClassObject, + DllCanUnloadNow, + DllRegisterServer, + DllUnregisterServer; + +{$R *.TLB} + +{$R *.RES} + +begin + JclInitializeLibrariesHookExcept; +end. diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.res b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.res new file mode 100644 index 0000000000000000000000000000000000000000..472f2e47297a46cf06bb2ce0c8024f600e93445f GIT binary patch literal 876 zcmb7Dv2N5r5S`;9xg)W{DJ54@#)?ixq5woi0mwzzd`4C)-)wZn8KKjRL~&IVegsim z<4;MMl8!BqmN)jD1QHD+KkvSIvoqseFA>ok$aw^&f7!#MgFZ#fWYA7dilal&Gfd{d zD_}xo0Hra(u1-$Sq_Y{=t)_t=*?Vay!e$CjOQd&(lrSF0Tls2mP+KZU0$}{QB){?Cac-k=ge)P zs@#gmop0R8g}oxl?IPC5q$+ilyo8%O(__-l!GrVd4Js^S-iEqTry#JnP8vd!s;FDl zq;Z||>|&v=4zWd2S?5$WWh!|QKY>F}P3_f(5WOWpd|j7mcHv`Ne;>F+kC;*qx`@}N zI@2b!D425=SVC0ra{+0Ysaf8YfGz8My5jwi7&srkpXp z9NZS0rZ02XvDWFgVg)9vo;QjnQKSDp@U9?#Ex_7v>500o()q z9vw!*|5}IN*3c784fkjixsOrfDQdkOu0=o1Pl)Io$oVn7qu2D7-UDyw1IB~>c`xiX POlUqo8g7N%q6z&5v1T5M literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.tlb b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.tlb new file mode 100644 index 0000000000000000000000000000000000000000..ce1f5db14ce9b56e6c7cead68a0305cf21b7c955 GIT binary patch literal 1668 zcmd5-&r2IY6n>kgfr7L_MH1*?)B5A064M@nC#AYgAfjmkb0|uFt)M2RZWh#A3O)Ab zMZEUhgY?j=J++jA7xCb~V4(j&^nE)!GLf{GB;bRYH{bW>&HM70*{tNOe1HssJqdb_ zvJ53d6p+;2{Fqm1AKmz7GH&t!L>@dls_&x3+N zr$M6>P0i?u(vh!!yNMr$l_YhBKa$%tlidSoi4X?cgj^nq$aK;QZ+)BM_ zCuZGhNeF?x55=Id7cICez2x^ZcYJ_aa7Wa)q+gmN^yPcbEtYrk4o^#&OyfQ*< QJYJOi{^0GXzJtRVw+94&KmY&$ literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary_TLB.pas b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary_TLB.pas new file mode 100644 index 0000000..d440ef8 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary_TLB.pas @@ -0,0 +1,97 @@ +unit StackTrackDLLsComLibrary_TLB; + +// ************************************************************************ // +// WARNING +// ------- +// The types declared in this file were generated from data read from a +// Type Library. If this type library is explicitly or indirectly (via +// another type library referring to this type library) re-imported, or the +// 'Refresh' command of the Type Library Editor activated while editing the +// Type Library, the contents of this file will be regenerated and all +// manual modifications will be lost. +// ************************************************************************ // + +// PASTLWTR : $Revision: 1658 $ +// File generated on 1.8.2005 02:48:29 from Type Library described below. + +// ************************************************************************ // +// Type Lib: D:\Quellen\jedi\jcl\examples\vcl\debug\stacktrack\StackTrackDLLsComLibrary.tlb (1) +// IID\LCID: {D4935E5D-790E-48CA-B360-0165C1305153}\0 +// Helpfile: +// DepndLst: +// (1) v2.0 stdole, (F:\WINNT\system32\stdole2.tlb) +// (2) v4.0 StdVCL, (F:\WINNT\system32\STDVCL40.DLL) +// ************************************************************************ // +{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. +interface + +uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL; + +// *********************************************************************// +// GUIDS declared in the TypeLibrary. Following prefixes are used: +// Type Libraries : LIBID_xxxx +// CoClasses : CLASS_xxxx +// DISPInterfaces : DIID_xxxx +// Non-DISP interfaces: IID_xxxx +// *********************************************************************// +const + // TypeLibrary Major and minor versions + StackTrackDLLsComLibraryMajorVersion = 1; + StackTrackDLLsComLibraryMinorVersion = 0; + + LIBID_StackTrackDLLsComLibrary: TGUID = '{D4935E5D-790E-48CA-B360-0165C1305153}'; + + IID_IStackTrackDllsTest: TGUID = '{26473046-CCEB-4671-9AB1-2216EF4D2164}'; + CLASS_StackTrackDllsTest: TGUID = '{DA3AEC52-1481-4119-B140-2157C7ADEC5B}'; +type + +// *********************************************************************// +// Forward declaration of types defined in TypeLibrary +// *********************************************************************// + IStackTrackDllsTest = interface; + +// *********************************************************************// +// Declaration of CoClasses defined in Type Library +// (NOTE: Here we map each CoClass to its Default Interface) +// *********************************************************************// + StackTrackDllsTest = IStackTrackDllsTest; + + +// *********************************************************************// +// Interface: IStackTrackDllsTest +// Flags: (256) OleAutomation +// GUID: {26473046-CCEB-4671-9AB1-2216EF4D2164} +// *********************************************************************// + IStackTrackDllsTest = interface(IUnknown) + ['{26473046-CCEB-4671-9AB1-2216EF4D2164}'] + function Error1: HResult; stdcall; + function Error2: HResult; stdcall; + end; + +// *********************************************************************// +// The Class CoStackTrackDllsTest provides a Create and CreateRemote method to +// create instances of the default interface IStackTrackDllsTest exposed by +// the CoClass StackTrackDllsTest. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoStackTrackDllsTest = class + class function Create: IStackTrackDllsTest; + class function CreateRemote(const MachineName: string): IStackTrackDllsTest; + end; + +implementation + +uses ComObj; + +class function CoStackTrackDllsTest.Create: IStackTrackDllsTest; +begin + Result := CreateComObject(CLASS_StackTrackDllsTest) as IStackTrackDllsTest; +end; + +class function CoStackTrackDllsTest.CreateRemote(const MachineName: string): IStackTrackDllsTest; +begin + Result := CreateRemoteComObject(MachineName, CLASS_StackTrackDllsTest) as IStackTrackDllsTest; +end; + +end. diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComUnit.pas b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComUnit.pas new file mode 100644 index 0000000..d4c37f9 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsComUnit.pas @@ -0,0 +1,38 @@ +unit StackTrackDLLsComUnit; + +interface + +uses + Windows, ActiveX, Classes, ComObj, StackTrackDLLsComLibrary_TLB, StdVcl; + +type + TStackTrackDllsTest = class(TTypedComObject, IStackTrackDllsTest) + protected + function Error1: HResult; stdcall; + function Error2: HResult; stdcall; + end; + +implementation + +uses ComServ, SysUtils; + +procedure Error1_1; +begin + StrToInt('x'); +end; + +function TStackTrackDllsTest.Error1: HResult; +begin + Error1_1; + Result := S_FALSE; +end; + +function TStackTrackDllsTest.Error2: HResult; +begin + raise Exception.Create('Exception from IDllExceptTestObject.Error2'); +end; + +initialization + TTypedComObjectFactory.Create(ComServer, TStackTrackDllsTest, Class_StackTrackDllsTest, + ciMultiInstance, tmApartment); +end. diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDemoMain.dfm b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDemoMain.dfm new file mode 100644 index 0000000..bf364b7 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDemoMain.dfm @@ -0,0 +1,115 @@ +object MainForm: TMainForm + Left = 555 + Top = 318 + BorderIcons = [biSystemMenu, biMinimize] + BorderStyle = bsSingle + Caption = 'Exceptions in DLLs example' + ClientHeight = 296 + ClientWidth = 235 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object StaticLibGroupBox: TGroupBox + Left = 8 + Top = 8 + Width = 217 + Height = 65 + Caption = 'Statically linked library' + TabOrder = 0 + object StaticLibError1Btn: TButton + Left = 23 + Top = 24 + Width = 75 + Height = 25 + Caption = 'Error1' + TabOrder = 0 + OnClick = StaticLibError1BtnClick + end + object StaticLibError2Btn: TButton + Left = 119 + Top = 24 + Width = 75 + Height = 25 + Caption = 'Error2' + TabOrder = 1 + OnClick = StaticLibError2BtnClick + end + end + object ComObjGroupBox: TGroupBox + Left = 8 + Top = 216 + Width = 217 + Height = 65 + Caption = 'COM object' + TabOrder = 1 + object ComObjErr1Btn: TButton + Left = 23 + Top = 24 + Width = 75 + Height = 25 + Caption = 'Error1' + TabOrder = 0 + OnClick = ComObjErr1BtnClick + end + object ComObjErr2Btn: TButton + Left = 119 + Top = 24 + Width = 75 + Height = 25 + Caption = 'Error2' + TabOrder = 1 + OnClick = ComObjErr2BtnClick + end + end + object DynLibGroupBox: TGroupBox + Left = 8 + Top = 88 + Width = 217 + Height = 113 + Caption = 'Dynamically linked library' + TabOrder = 2 + object DynamicLibError1Btn: TButton + Left = 23 + Top = 64 + Width = 75 + Height = 25 + Caption = 'Error1' + TabOrder = 0 + OnClick = DynamicLibError1BtnClick + end + object DynamicLibError2Btn: TButton + Left = 119 + Top = 64 + Width = 75 + Height = 25 + Caption = 'Error2' + TabOrder = 1 + OnClick = DynamicLibError2BtnClick + end + object LoadLibBtn: TButton + Left = 23 + Top = 24 + Width = 75 + Height = 25 + Caption = 'Load' + TabOrder = 2 + OnClick = LoadLibBtnClick + end + object FreeLibBtn: TButton + Left = 119 + Top = 24 + Width = 75 + Height = 25 + Caption = 'Free' + TabOrder = 3 + OnClick = FreeLibBtnClick + end + end +end diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDemoMain.pas b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDemoMain.pas new file mode 100644 index 0000000..cde7fe8 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDemoMain.pas @@ -0,0 +1,130 @@ +unit StackTrackDLLsDemoMain; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls; + +type + TMainForm = class(TForm) + StaticLibError1Btn: TButton; + StaticLibError2Btn: TButton; + StaticLibGroupBox: TGroupBox; + ComObjGroupBox: TGroupBox; + ComObjErr1Btn: TButton; + ComObjErr2Btn: TButton; + DynLibGroupBox: TGroupBox; + DynamicLibError1Btn: TButton; + DynamicLibError2Btn: TButton; + LoadLibBtn: TButton; + FreeLibBtn: TButton; + procedure StaticLibError1BtnClick(Sender: TObject); + procedure StaticLibError2BtnClick(Sender: TObject); + procedure ComObjErr1BtnClick(Sender: TObject); + procedure ComObjErr2BtnClick(Sender: TObject); + procedure DynamicLibError1BtnClick(Sender: TObject); + procedure DynamicLibError2BtnClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure LoadLibBtnClick(Sender: TObject); + procedure FreeLibBtnClick(Sender: TObject); + private + FLibHandle: THandle; + public + procedure UpdateButtons; + end; + +var + MainForm: TMainForm; + +implementation + +{$R *.dfm} + +uses + JclBase, StackTrackDLLsComLibrary_TLB; + +const + StaticLibrary = 'StackTrackDLLsStaticLibrary.dll'; + DynamicLibrary = 'StackTrackDLLsDynamicLibrary.dll'; + +procedure Error1; stdcall; external StaticLibrary; +procedure Error2; stdcall; external StaticLibrary; + +{ TMainForm } + +procedure TMainForm.FormCreate(Sender: TObject); +begin + UpdateButtons; +end; + +procedure TMainForm.StaticLibError1BtnClick(Sender: TObject); +begin + Error1; +end; + +procedure TMainForm.StaticLibError2BtnClick(Sender: TObject); +begin + Error2; +end; + +procedure TMainForm.ComObjErr1BtnClick(Sender: TObject); +var + I: IStackTrackDllsTest; +begin + I := CoStackTrackDllsTest.Create; + I.Error1; +end; + +procedure TMainForm.ComObjErr2BtnClick(Sender: TObject); +var + I: IStackTrackDllsTest; +begin + I := CoStackTrackDllsTest.Create; + I.Error2; +end; + +procedure TMainForm.LoadLibBtnClick(Sender: TObject); +begin + FLibHandle := LoadLibrary(DynamicLibrary); + UpdateButtons; + if FLibHandle = 0 then + RaiseLastOSError; +end; + +procedure TMainForm.FreeLibBtnClick(Sender: TObject); +begin + FreeLibrary(FLibHandle); + FLibHandle := 0; + UpdateButtons; +end; + +procedure TMainForm.DynamicLibError1BtnClick(Sender: TObject); +var + _Error1: procedure; stdcall; +begin + @_Error1 := GetProcAddress(FLibHandle, 'Error1'); + if not Assigned(_Error1) then + RaiseLastOSError; + _Error1; +end; + +procedure TMainForm.DynamicLibError2BtnClick(Sender: TObject); +var + _Error2: procedure; stdcall; +begin + @_Error2 := GetProcAddress(FLibHandle, 'Error2'); + if not Assigned(_Error2) then + RaiseLastOSError; + _Error2; +end; + +procedure TMainForm.UpdateButtons; +begin + LoadLibBtn.Enabled := (FLibHandle = 0); + FreeLibBtn.Enabled := (FLibHandle <> 0); + DynamicLibError1Btn.Enabled := (FLibHandle <> 0); + DynamicLibError2Btn.Enabled := (FLibHandle <> 0); +end; + +end. diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.dof b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.dof new file mode 100644 index 0000000..18ab99a --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\..\bin +Conditionals=HOOK_DLL_EXCEPTIONS diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.dpr b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.dpr new file mode 100644 index 0000000..6470da7 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.dpr @@ -0,0 +1,15 @@ +library StackTrackDLLsDynamicLibrary; + +uses + SysUtils, + JclHookExcept, + StackTrackDLLsDynamicUnit in 'StackTrackDLLsDynamicUnit.pas'; + +{$R *.res} + +exports + Error1, Error2; + +begin + JclInitializeLibrariesHookExcept; +end. diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.res b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.res new file mode 100644 index 0000000000000000000000000000000000000000..472f2e47297a46cf06bb2ce0c8024f600e93445f GIT binary patch literal 876 zcmb7Dv2N5r5S`;9xg)W{DJ54@#)?ixq5woi0mwzzd`4C)-)wZn8KKjRL~&IVegsim z<4;MMl8!BqmN)jD1QHD+KkvSIvoqseFA>ok$aw^&f7!#MgFZ#fWYA7dilal&Gfd{d zD_}xo0Hra(u1-$Sq_Y{=t)_t=*?Vay!e$CjOQd&(lrSF0Tls2mP+KZU0$}{QB){?Cac-k=ge)P zs@#gmop0R8g}oxl?IPC5q$+ilyo8%O(__-l!GrVd4Js^S-iEqTry#JnP8vd!s;FDl zq;Z||>|&v=4zWd2S?5$WWh!|QKY>F}P3_f(5WOWpd|j7mcHv`Ne;>F+kC;*qx`@}N zI@2b!D425=SVC0ra{+0Ysaf8YfGz8My5jwi7&srkpXp z9NZS0rZ02XvDWFgVg)9vo;QjnQKSDp@U9?#Ex_7v>500o()q z9vw!*|5}IN*3c784fkjixsOrfDQdkOu0=o1Pl)Io$oVn7qu2D7-UDyw1IB~>c`xiX POlUqo8g7N%q6z&5v1T5M literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicUnit.pas b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicUnit.pas new file mode 100644 index 0000000..2b92f16 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsDynamicUnit.pas @@ -0,0 +1,28 @@ +unit StackTrackDLLsDynamicUnit; + +interface + +procedure Error1; stdcall; +procedure Error2; stdcall; + +implementation + +uses + SysUtils; + +procedure Error1_1; +begin + StrToInt('x'); +end; + +procedure Error1; stdcall; +begin + Error1_1; +end; + +procedure Error2; stdcall; +begin + raise Exception.Create('Exception from StaticLibrary.dll'); +end; + +end. diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsExample.dof b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsExample.dof new file mode 100644 index 0000000..18ab99a --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsExample.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\..\bin +Conditionals=HOOK_DLL_EXCEPTIONS diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsExample.dpr b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsExample.dpr new file mode 100644 index 0000000..a034fb8 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsExample.dpr @@ -0,0 +1,17 @@ +program StackTrackDLLsExample; + +{$I jcl.inc} + +uses + Forms, + StackTrackDLLsDemoMain in 'StackTrackDLLsDemoMain.pas' {MainForm}, + ExceptDlg in '..\..\..\..\experts\debug\dialog\ExceptDlg.pas' {ExceptionDialog}; + +{$R *.res} +{$R ..\..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TMainForm, MainForm); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsExample.res b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsExample.res new file mode 100644 index 0000000000000000000000000000000000000000..472f2e47297a46cf06bb2ce0c8024f600e93445f GIT binary patch literal 876 zcmb7Dv2N5r5S`;9xg)W{DJ54@#)?ixq5woi0mwzzd`4C)-)wZn8KKjRL~&IVegsim z<4;MMl8!BqmN)jD1QHD+KkvSIvoqseFA>ok$aw^&f7!#MgFZ#fWYA7dilal&Gfd{d zD_}xo0Hra(u1-$Sq_Y{=t)_t=*?Vay!e$CjOQd&(lrSF0Tls2mP+KZU0$}{QB){?Cac-k=ge)P zs@#gmop0R8g}oxl?IPC5q$+ilyo8%O(__-l!GrVd4Js^S-iEqTry#JnP8vd!s;FDl zq;Z||>|&v=4zWd2S?5$WWh!|QKY>F}P3_f(5WOWpd|j7mcHv`Ne;>F+kC;*qx`@}N zI@2b!D425=SVC0ra{+0Ysaf8YfGz8My5jwi7&srkpXp z9NZS0rZ02XvDWFgVg)9vo;QjnQKSDp@U9?#Ex_7v>500o()q z9vw!*|5}IN*3c784fkjixsOrfDQdkOu0=o1Pl)Io$oVn7qu2D7-UDyw1IB~>c`xiX POlUqo8g7N%q6z&5v1T5M literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.dof b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.dof new file mode 100644 index 0000000..18ab99a --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\..\bin +Conditionals=HOOK_DLL_EXCEPTIONS diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.dpr b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.dpr new file mode 100644 index 0000000..2584a09 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.dpr @@ -0,0 +1,15 @@ +library StackTrackDLLsStaticLibrary; + +uses + SysUtils, + JclHookExcept, + StackTrackDLLsStaticUnit in 'StackTrackDLLsStaticUnit.pas'; + +{$R *.res} + +exports + Error1, Error2; + +begin + JclInitializeLibrariesHookExcept; +end. diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.res b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.res new file mode 100644 index 0000000000000000000000000000000000000000..472f2e47297a46cf06bb2ce0c8024f600e93445f GIT binary patch literal 876 zcmb7Dv2N5r5S`;9xg)W{DJ54@#)?ixq5woi0mwzzd`4C)-)wZn8KKjRL~&IVegsim z<4;MMl8!BqmN)jD1QHD+KkvSIvoqseFA>ok$aw^&f7!#MgFZ#fWYA7dilal&Gfd{d zD_}xo0Hra(u1-$Sq_Y{=t)_t=*?Vay!e$CjOQd&(lrSF0Tls2mP+KZU0$}{QB){?Cac-k=ge)P zs@#gmop0R8g}oxl?IPC5q$+ilyo8%O(__-l!GrVd4Js^S-iEqTry#JnP8vd!s;FDl zq;Z||>|&v=4zWd2S?5$WWh!|QKY>F}P3_f(5WOWpd|j7mcHv`Ne;>F+kC;*qx`@}N zI@2b!D425=SVC0ra{+0Ysaf8YfGz8My5jwi7&srkpXp z9NZS0rZ02XvDWFgVg)9vo;QjnQKSDp@U9?#Ex_7v>500o()q z9vw!*|5}IN*3c784fkjixsOrfDQdkOu0=o1Pl)Io$oVn7qu2D7-UDyw1IB~>c`xiX POlUqo8g7N%q6z&5v1T5M literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticUnit.pas b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticUnit.pas new file mode 100644 index 0000000..3b3922e --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDLLsStaticUnit.pas @@ -0,0 +1,28 @@ +unit StackTrackDLLsStaticUnit; + +interface + +procedure Error1; stdcall; +procedure Error2; stdcall; + +implementation + +uses + SysUtils; + +procedure Error1_1; +begin + StrToInt('x'); +end; + +procedure Error1; stdcall; +begin + Error1_1; +end; + +procedure Error2; stdcall; +begin + raise Exception.Create('Exception from StaticLibrary.dll'); +end; + +end. diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDemoMain.dfm b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDemoMain.dfm new file mode 100644 index 0000000..d1ffa55 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDemoMain.dfm @@ -0,0 +1,95 @@ +object MainForm: TMainForm + Left = 342 + Top = 197 + ClientWidth = 606 + ClientHeight = 497 + Caption = 'Tracking unhandled exceptions in VCL application' + 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 + object Label1: TLabel + Left = 0 + Top = 64 + Width = 64 + Height = 13 + Caption = '&Exception log' + FocusControl = ExceptionLogMemo + end + object ExceptionLogMemo: TMemo + Left = 0 + Top = 80 + Width = 606 + Height = 416 + Anchors = [akLeft, akTop, akRight, akBottom] + Font.Charset = EASTEUROPE_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 0 + WordWrap = False + end + object Button1: TButton + Left = 8 + Top = 8 + Width = 75 + Height = 25 + Caption = 'Error1' + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 88 + Top = 8 + Width = 75 + Height = 25 + Caption = 'Error2' + TabOrder = 2 + OnClick = Button2Click + end + object Button3: TButton + Left = 168 + Top = 8 + Width = 75 + Height = 25 + Caption = 'Error3' + TabOrder = 3 + OnClick = Button3Click + end + object ListBox1: TListBox + Left = 472 + Top = 8 + Width = 73 + Height = 49 + ItemHeight = 13 + TabOrder = 4 + Visible = False + end + object Button4: TButton + Left = 248 + Top = 8 + Width = 75 + Height = 25 + Caption = 'Error4' + TabOrder = 5 + OnClick = Button4Click + end + object ApplicationEvents: TApplicationEvents + OnException = ApplicationEventsException + Left = 8 + Top = 440 + end + object ActionList1: TActionList + Left = 440 + Top = 8 + end +end diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDemoMain.pas b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDemoMain.pas new file mode 100644 index 0000000..93cec82 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackDemoMain.pas @@ -0,0 +1,110 @@ +unit StackTrackDemoMain; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, AppEvnts, ActnList; + +type + TMainForm = class(TForm) + ExceptionLogMemo: TMemo; + Button1: TButton; + Button2: TButton; + Button3: TButton; + ListBox1: TListBox; + Button4: TButton; + ApplicationEvents: TApplicationEvents; + Label1: TLabel; + ActionList1: TActionList; + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure ApplicationEventsException(Sender: TObject; E: Exception); + private + { Private declarations } + public + { Public declarations } + end; + +var + MainForm: TMainForm; + +implementation + +{$R *.DFM} + +uses + JclDebug; + +{ TMainForm } + +//-------------------------------------------------------------------------------------------------- +// Simulation of various unhandled exceptions +//-------------------------------------------------------------------------------------------------- + +procedure TMainForm.Button1Click(Sender: TObject); +begin + PInteger(nil)^ := 0; +end; + +procedure TMainForm.Button2Click(Sender: TObject); +begin + ListBox1.Items[1] := 'a'; +end; + +procedure AAA; +begin + PInteger(nil)^ := 0; +end; + +procedure TMainForm.Button3Click(Sender: TObject); +begin + AAA; +end; + +procedure TMainForm.Button4Click(Sender: TObject); +begin + ActionList1.Actions[0].Execute; +end; + +//-------------------------------------------------------------------------------------------------- +// Simple VCL application unhandled exception handler using JclDebug +//-------------------------------------------------------------------------------------------------- + +procedure TMainForm.ApplicationEventsException(Sender: TObject; E: Exception); +begin + // Log time stamp + ExceptionLogMemo.Lines.Add(DateTimeToStr(Now)); + + // Log unhandled exception stack info to ExceptionLogMemo + JclLastExceptStackListToStrings(ExceptionLogMemo.Lines, False, True, True, False); + + // Insert empty line + ExceptionLogMemo.Lines.Add(''); + + // Display default VCL unhandled exception dialog + Application.ShowException(E); +end; + +//-------------------------------------------------------------------------------------------------- +// JclDebug initialization and finalization for VCL application +//-------------------------------------------------------------------------------------------------- + +initialization + + // Enable raw mode (default mode uses stack frames which aren't always generated by the compiler) + Include(JclStackTrackingOptions, stRawMode); + // Disable stack tracking in dynamically loaded modules (it makes stack tracking code a bit faster) + Include(JclStackTrackingOptions, stStaticModuleList); + + // Initialize Exception tracking + JclStartExceptionTracking; + +finalization + + // Uninitialize Exception tracking + JclStopExceptionTracking; + +end. diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackExample.dof b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackExample.dof new file mode 100644 index 0000000..18ab99a --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackExample.dof @@ -0,0 +1,3 @@ +[Directories] +OutputDir=..\..\..\..\bin +Conditionals=HOOK_DLL_EXCEPTIONS diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackExample.dpr b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackExample.dpr new file mode 100644 index 0000000..26cacb4 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackExample.dpr @@ -0,0 +1,16 @@ +program StackTrackExample; + +{$I jcl.inc} + +uses + Forms, + StackTrackDemoMain in 'StackTrackDemoMain.pas' {MainForm}; + +{$R *.RES} +{$R ..\..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TMainForm, MainForm); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/debug/stacktrack/StackTrackExample.res b/official/2.1.1/examples/windows/debug/stacktrack/StackTrackExample.res new file mode 100644 index 0000000000000000000000000000000000000000..472f2e47297a46cf06bb2ce0c8024f600e93445f GIT binary patch literal 876 zcmb7Dv2N5r5S`;9xg)W{DJ54@#)?ixq5woi0mwzzd`4C)-)wZn8KKjRL~&IVegsim z<4;MMl8!BqmN)jD1QHD+KkvSIvoqseFA>ok$aw^&f7!#MgFZ#fWYA7dilal&Gfd{d zD_}xo0Hra(u1-$Sq_Y{=t)_t=*?Vay!e$CjOQd&(lrSF0Tls2mP+KZU0$}{QB){?Cac-k=ge)P zs@#gmop0R8g}oxl?IPC5q$+ilyo8%O(__-l!GrVd4Js^S-iEqTry#JnP8vd!s;FDl zq;Z||>|&v=4zWd2S?5$WWh!|QKY>F}P3_f(5WOWpd|j7mcHv`Ne;>F+kC;*qx`@}N zI@2b!D425=SVC0ra{+0Ysaf8YfGz8My5jwi7&srkpXp z9NZS0rZ02XvDWFgVg)9vo;QjnQKSDp@U9?#Ex_7v>500o()q z9vw!*|5}IN*3c784fkjixsOrfDQdkOu0=o1Pl)Io$oVn7qu2D7-UDyw1IB~>c`xiX POlUqo8g7N%q6z&5v1T5M literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptDemoMain.dfm b/official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptDemoMain.dfm new file mode 100644 index 0000000..6e7b376 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptDemoMain.dfm @@ -0,0 +1,93 @@ +object MainForm: TMainForm + Left = 286 + Top = 169 + Caption = + 'Exception tracking in threads and IDE Thread Status window exten' + + 'sion demo' + ClientHeight = 557 + ClientWidth = 715 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 8 + Top = 8 + Width = 63 + Height = 13 + Caption = 'Thread name' + FocusControl = ThreadNameEdit + end + object Label2: TLabel + Left = 8 + Top = 248 + Width = 55 + Height = 13 + Caption = 'Exceprtions' + end + object MessageRichEdit: TRichEdit + Left = 8 + Top = 264 + Width = 697 + Height = 289 + Anchors = [akLeft, akTop, akRight, akBottom] + Font.Charset = EASTEUROPE_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + PlainText = True + ReadOnly = True + TabOrder = 0 + WordWrap = False + end + object ThreadsRichEdit: TRichEdit + Left = 168 + Top = 8 + Width = 537 + Height = 249 + Anchors = [akLeft, akTop, akRight] + Font.Charset = EASTEUROPE_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + ParentFont = False + PlainText = True + ReadOnly = True + TabOrder = 1 + WordWrap = False + end + object CreateThreadBtn: TButton + Left = 8 + Top = 56 + Width = 75 + Height = 25 + Caption = 'Create Thread' + TabOrder = 2 + OnClick = CreateThreadBtnClick + end + object ThreadNameEdit: TEdit + Left = 8 + Top = 24 + Width = 121 + Height = 21 + TabOrder = 3 + end + object ListThreadsBtn: TButton + Left = 8 + Top = 96 + Width = 75 + Height = 25 + Caption = 'List Threads' + TabOrder = 4 + OnClick = ListThreadsBtnClick + end +end diff --git a/official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptDemoMain.pas b/official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptDemoMain.pas new file mode 100644 index 0000000..10b523e --- /dev/null +++ b/official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptDemoMain.pas @@ -0,0 +1,166 @@ +unit ThreadExceptDemoMain; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ComCtrls, JclDebug; + +type + TDemoThread = class(TJclDebugThread) + private + procedure SomeErrorHere; + protected + procedure Execute; override; + end; + + TMainForm = class(TForm) + MessageRichEdit: TRichEdit; + ThreadsRichEdit: TRichEdit; + CreateThreadBtn: TButton; + ThreadNameEdit: TEdit; + ListThreadsBtn: TButton; + Label1: TLabel; + Label2: TLabel; + procedure FormCreate(Sender: TObject); + procedure CreateThreadBtnClick(Sender: TObject); + procedure ListThreadsBtnClick(Sender: TObject); + private + procedure DoThreadSyncException(Thread: TJclDebugThread); + procedure DoThreadRegistered(ThreadID: DWORD); + procedure DoThreadUnregistered(ThreadID: DWORD); + public + ThreadCnt: Integer; + function GetNewThreadName: string; + procedure ScrollDownRichEdit(RichEdit: TRichEdit); + end; + +var + MainForm: TMainForm; + +implementation + +{$R *.dfm} + +{ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! } +{ } +{ You have to install ThreadNameExpert package located in "\experts\debug\threadnames" } +{ } +{ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! } + +{$DEFINE IdeThreadStatusWindowExtension} + +{$IFDEF IdeThreadStatusWindowExtension} +uses + JclIdeThreadStatus; +{$ENDIF} + +{ TDemoThread } + +procedure TDemoThread.Execute; +var + I: Integer; +begin + try + I := 0; + while not Terminated and (I < 5) do + begin + Sleep(2000); + MessageBeep(0); + try + SomeErrorHere; + except + HandleException; + end; + Inc(I); + {$IFDEF IdeThreadStatusWindowExtension} + // You can change Thread Name displayed in Thread Status Window in code. This does not change + // TDemoThread.ThreadName property value + // ChangeThreadName(Self, Format('I = %d', [I])); + {$ENDIF} + end; + except + HandleException; + end; +end; + +procedure TDemoThread.SomeErrorHere; +begin + // Set Breakpoint on "begin", uncheck "Break" and check "Ingore subsequent exceptions" in + // dialog advanced breakpoint actions + StrToInt('x'); +end; + +{ TMainForm } + +procedure TMainForm.DoThreadRegistered(ThreadID: DWORD); +begin + ThreadsRichEdit.Lines.Add(Format('Thread registered: %s', [JclDebugThreadList.ThreadInfos[ThreadID]])); + ScrollDownRichEdit(ThreadsRichEdit); +end; + +procedure TMainForm.DoThreadSyncException(Thread: TJclDebugThread); +begin + MessageRichEdit.Lines.Add(Format('Exception in thread: %s', [Thread.ThreadInfo])); + // Note: JclLastExceptStackList always returns list for *current* thread ID. To simplify getting the + // stack of thread where an exception occured JclLastExceptStackList returns stack of the thread instead + // of current thread when called *within* the JclDebugThreadList.OnSyncException handler. This is the + // *only* exception to the behavior of JclLastExceptStackList described above. + JclLastExceptStackList.AddToStrings(MessageRichEdit.Lines, False, True, True); + ScrollDownRichEdit(MessageRichEdit); +end; + +procedure TMainForm.DoThreadUnregistered(ThreadID: DWORD); +begin + ThreadsRichEdit.Lines.Add(Format('Thread unregistered: %s', [JclDebugThreadList.ThreadInfos[ThreadID]])); + ScrollDownRichEdit(ThreadsRichEdit); +end; + +procedure TMainForm.FormCreate(Sender: TObject); +begin + with JclDebugThreadList do + begin + OnSyncException := DoThreadSyncException; + OnThreadRegistered := DoThreadRegistered; + OnThreadUnregistered := DoThreadUnregistered; + end; + ThreadNameEdit.Text := GetNewThreadName; +end; + +function TMainForm.GetNewThreadName: string; +begin + Inc(ThreadCnt); + Result := Format('Thread%d', [ThreadCnt]); +end; + +procedure TMainForm.CreateThreadBtnClick(Sender: TObject); +var + DemoThread: TDemoThread; +begin + DemoThread := TDemoThread.Create(True, ThreadNameEdit.Text); + DemoThread.FreeOnTerminate := True; + DemoThread.Resume; + ThreadNameEdit.Text := GetNewThreadName; +end; + +procedure TMainForm.ListThreadsBtnClick(Sender: TObject); +var + I: Integer; +begin + ThreadsRichEdit.Lines.Add('List of registered threads:'); + with JclDebugThreadList do + for I := 0 to ThreadIDCount - 1 do + ThreadsRichEdit.Lines.Add(ThreadInfos[ThreadIDs[I]]); + ScrollDownRichEdit(ThreadsRichEdit); +end; + +procedure TMainForm.ScrollDownRichEdit(RichEdit: TRichEdit); +begin + SendMessage(RichEdit.Handle, EM_SCROLLCARET, 0, 0); +end; + +initialization + Include(JclStackTrackingOptions, stRawMode); + JclStartExceptionTracking; + +end. diff --git a/official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptExample.dof b/official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptExample.dof new file mode 100644 index 0000000..9acd2cf --- /dev/null +++ b/official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptExample.dof @@ -0,0 +1,4 @@ +[Directories] +OutputDir=../../../../bin + + diff --git a/official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptExample.dpr b/official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptExample.dpr new file mode 100644 index 0000000..9efd090 --- /dev/null +++ b/official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptExample.dpr @@ -0,0 +1,18 @@ +program ThreadExceptExample; + +{$I jcl.inc} + +uses + Forms, + JclIdeThreadStatus in '..\..\..\..\experts\debug\threadnames\JclIdeThreadStatus.pas', + ThreadExpertSharedNames in '..\..\..\..\experts\debug\threadnames\ThreadExpertSharedNames.pas', + ThreadExceptDemoMain in 'ThreadExceptDemoMain.pas' {MainForm}; + +{$R *.res} +{$R ..\..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TMainForm, MainForm); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptExample.res b/official/2.1.1/examples/windows/debug/threadexcept/ThreadExceptExample.res new file mode 100644 index 0000000000000000000000000000000000000000..472f2e47297a46cf06bb2ce0c8024f600e93445f GIT binary patch literal 876 zcmb7Dv2N5r5S`;9xg)W{DJ54@#)?ixq5woi0mwzzd`4C)-)wZn8KKjRL~&IVegsim z<4;MMl8!BqmN)jD1QHD+KkvSIvoqseFA>ok$aw^&f7!#MgFZ#fWYA7dilal&Gfd{d zD_}xo0Hra(u1-$Sq_Y{=t)_t=*?Vay!e$CjOQd&(lrSF0Tls2mP+KZU0$}{QB){?Cac-k=ge)P zs@#gmop0R8g}oxl?IPC5q$+ilyo8%O(__-l!GrVd4Js^S-iEqTry#JnP8vd!s;FDl zq;Z||>|&v=4zWd2S?5$WWh!|QKY>F}P3_f(5WOWpd|j7mcHv`Ne;>F+kC;*qx`@}N zI@2b!D425=SVC0ra{+0Ysaf8YfGz8My5jwi7&srkpXp z9NZS0rZ02XvDWFgVg)9vo;QjnQKSDp@U9?#Ex_7v>500o()q z9vw!*|5}IN*3c784fkjixsOrfDQdkOu0=o1Pl)Io$oVn7qu2D7-UDyw1IB~>c`xiX POlUqo8g7N%q6z&5v1T5M literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/delphitools/DelphiToolsGroup.bpg b/official/2.1.1/examples/windows/delphitools/DelphiToolsGroup.bpg new file mode 100644 index 0000000..7a36fb3 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/DelphiToolsGroup.bpg @@ -0,0 +1,33 @@ +#------------------------------------------------------------------------------ +VERSION = BWS.01 +#------------------------------------------------------------------------------ +!ifndef ROOT +ROOT = $(MAKEDIR)\.. +!endif +#------------------------------------------------------------------------------ +MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** +DCC = $(ROOT)\bin\dcc32.exe $** +BRCC = $(ROOT)\bin\brcc32.exe $** +#------------------------------------------------------------------------------ +PROJECTS = DependView.exe PeViewer.exe ToolHelpViewer.exe ResFix.exe \ + ScreenJPG.exe +#------------------------------------------------------------------------------ +default: $(PROJECTS) +#------------------------------------------------------------------------------ + +DependView.exe: DependencyViewer\DependView.dpr + $(DCC) + +PeViewer.exe: PeViewer\PeViewer.dpr + $(DCC) + +ToolHelpViewer.exe: ToolHelpView\ToolHelpViewer.dpr + $(DCC) + +ResFix.exe: ResFix\ResFix.dpr + $(DCC) + +ScreenJPG.exe: ScreenJPG\ScreenJPG.dpr + $(DCC) + + diff --git a/official/2.1.1/examples/windows/delphitools/Readme.txt b/official/2.1.1/examples/windows/delphitools/Readme.txt new file mode 100644 index 0000000..ad67294 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/Readme.txt @@ -0,0 +1,24 @@ +------------------------------------------------------------------------------- +* DELPHI OPEN SOURCE TOOLS 0.5.4 * +------------------------------------------------------------------------------- + +License: +-------- + +Mozilla Public License Ver. 1.1 +You may obtain a copy of the License at http://www.mozilla.org/MPL/ + +Software distributed under the License is distributed on an "AS IS" basis, +WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for +the specific language governing rights and limitations under the License. + + +Source code: +------------ + +The source code of these tools is intended for Delphi 5.01 (Update Pack #1 is +*required* due some fixes in the VCL) or Delphi 6.02. You will also need JEDI +Code Libary: + +Delphi Tools : http://www.volweb.cz/pvones/delphi +JEDI Code Library: http://delphi-jedi.org/Jedi:CODELIBJCL diff --git a/official/2.1.1/examples/windows/delphitools/common/About.dfm b/official/2.1.1/examples/windows/delphitools/common/About.dfm new file mode 100644 index 0000000..b4ca5ee --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/common/About.dfm @@ -0,0 +1,74 @@ +object AboutBox: TAboutBox + Left = 306 + Top = 208 + BorderStyle = bsDialog + Caption = 'About ...' + ClientHeight = 164 + ClientWidth = 258 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + ShowHint = True + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object IconPaintBox: TPaintBox + Left = 8 + Top = 8 + Width = 32 + Height = 32 + OnPaint = IconPaintBoxPaint + end + object Bevel1: TBevel + Left = 56 + Top = 121 + Width = 193 + Height = 14 + Anchors = [akLeft, akRight, akBottom] + Shape = bsTopLine + end + object ProductNameLabel: TLabel + Left = 56 + Top = 16 + Width = 108 + Height = 13 + Caption = 'ProductNameLabel' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + object VersionLabel: TLabel + Left = 56 + Top = 40 + Width = 61 + Height = 13 + Caption = 'VersionLabel' + end + object CompanyLabel: TLabel + Left = 56 + Top = 64 + Width = 70 + Height = 13 + Caption = 'CompanyLabel' + end + object OkBtn: TButton + Left = 174 + Top = 133 + Width = 75 + Height = 25 + Anchors = [akRight, akBottom] + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 0 + end +end diff --git a/official/2.1.1/examples/windows/delphitools/common/About.pas b/official/2.1.1/examples/windows/delphitools/common/About.pas new file mode 100644 index 0000000..1c21e43 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/common/About.pas @@ -0,0 +1,180 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is About.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2006-05-30 00:02:45 +0200 (mar., 30 mai 2006) $ } +{ } +{**************************************************************************************************} + +unit About; + +{$I JCL.INC} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ExtCtrls; + +type + TAboutBox = class(TForm) + IconPaintBox: TPaintBox; + OkBtn: TButton; + Bevel1: TBevel; + ProductNameLabel: TLabel; + VersionLabel: TLabel; + CompanyLabel: TLabel; + procedure FormCreate(Sender: TObject); + procedure IconPaintBoxPaint(Sender: TObject); + procedure FormShow(Sender: TObject); + private + FLinks: array of string; + FURLSpacing: Integer; + procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; + procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; + function GetLinkCaption(Index: Integer): string; + function GetLinkURL(Index: Integer): string; + procedure OpenURL(const UrlName: String); + procedure UpdateLinkLabel(L: LPARAM; Activate: Boolean); + procedure UrlLinkLabelClick(Sender: TObject); + end; + +procedure ShowAbout(const Links: array of string; Spacing: Integer = 20); + +var + AboutBox: TAboutBox; + +implementation + +{$R *.DFM} + +uses + ShellAPI, JclFileUtils; + +procedure ShowAbout(const Links: array of string; Spacing: Integer); +var + I: Integer; +begin + with TAboutBox.Create(Application) do + try + SetLength(FLinks, High(Links) + 1); + for I := Low(Links) to High(Links) do + FLinks[I] := Links[I]; + FURLSpacing := Spacing; + ShowModal; + finally + Free; + end; +end; + +{ TAboutBox } + +procedure TAboutBox.CMMouseEnter(var Message: TMessage); +begin + inherited; + UpdateLinkLabel(Message.LParam, True); +end; + +procedure TAboutBox.CMMouseLeave(var Message: TMessage); +begin + inherited; + UpdateLinkLabel(Message.LParam, False); +end; + +procedure TAboutBox.FormCreate(Sender: TObject); +begin + with IconPaintBox do + begin + Width := GetSystemMetrics(SM_CXICON); + Height := GetSystemMetrics(SM_CYICON); + end; + with TJclFileVersionInfo.Create(Application.ExeName) do + try + ProductNameLabel.Caption := ProductName; + VersionLabel.Caption := Format('Version: %s', [ProductVersion]); + CompanyLabel.Caption := LegalCopyright; + finally + Free; + end; +end; + +procedure TAboutBox.FormShow(Sender: TObject); +var + I: Integer; +begin + I := Length(FLinks) * FURLSpacing - 20; + if I > 0 then Height := Height + I; + for I := 0 to Length(FLinks) - 1 do + with TLabel.Create(Self) do + begin + Parent := Self; + SetBounds(CompanyLabel.Left, I * FURLSpacing + CompanyLabel.Top + 25, 0, 0); + Caption := GetLinkCaption(I); + Cursor := crHandPoint; + Font.Color := clBlue; + Font.Style := [fsUnderline]; + Hint := GetLinkURL(I); + Tag := I + 1; + OnClick := UrlLinkLabelClick; + end; +end; + +function TAboutBox.GetLinkCaption(Index: Integer): string; +begin + Result := FLinks[Index]; + Result := Copy(Result, 1, Pos(';', Result) - 1); +end; + +function TAboutBox.GetLinkURL(Index: Integer): string; +begin + Result := FLinks[Index]; + Delete(Result, 1, Pos(';', Result)); +end; + +procedure TAboutBox.IconPaintBoxPaint(Sender: TObject); +begin + IconPaintBox.Canvas.Draw(0, 0, Application.Icon); +end; + +procedure TAboutBox.OpenURL(const UrlName: String); +var + Sei: TShellExecuteInfo; +begin + ZeroMemory(@Sei, Sizeof(Sei)); + Sei.cbSize := Sizeof(Sei); + Sei.Wnd := Application.Handle; + Sei.lpFile := PChar(UrlName); + Sei.nShow := SW_SHOWNORMAL; + ShellExecuteEx(@Sei); +end; + +procedure TAboutBox.UpdateLinkLabel(L: LPARAM; Activate: Boolean); +begin + if (TObject(L) is TLabel) and (TLabel(L).Tag > 0) then + with TLabel(L).Font do + if Activate then Color := clPurple else Color := clBlue; +end; + +procedure TAboutBox.UrlLinkLabelClick(Sender: TObject); +begin + OpenURL(GetLinkURL(TLabel(Sender).Tag - 1)); +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/common/D6MdiMsgFix.pas b/official/2.1.1/examples/windows/delphitools/common/D6MdiMsgFix.pas new file mode 100644 index 0000000..665734a --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/common/D6MdiMsgFix.pas @@ -0,0 +1,85 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is D6MdiMsgFix.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2006-05-30 00:02:45 +0200 (mar., 30 mai 2006) $ } +{ } +{**************************************************************************************************} + +unit D6MdiMsgFix; + +interface + +{$I jcl.inc} + +implementation + +{$IFDEF DELPHI6} + +uses + Windows, Classes, SysUtils, Forms, AppEvnts; + +type + TFixApplicationEvents = class(TCustomApplicationEvents) + protected + procedure ApplicationEventsMessage(var Msg: TMsg; var Handled: Boolean); + public + constructor Create(AOwner: TComponent); override; + end; + + TApplicationAccess = class(TApplication); + +var + FixApplicationEvents: TFixApplicationEvents; + +{ TFixApplicationEvents } + +procedure TFixApplicationEvents.ApplicationEventsMessage(var Msg: TMsg; var Handled: Boolean); +begin + with Application do + if Assigned(MainForm) and (MainForm.FormStyle = fsMDIForm) and + Assigned(Screen.ActiveForm) and (Screen.ActiveForm.FormStyle <> fsMdiChild) then + begin + Handled := True; + with TApplicationAccess(Application) do + if not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then + begin + // prevent to call buggy TApplication.IsMDIMsg method, handle message here + TranslateMessage(Msg); + DispatchMessage(Msg); + end; + end; +end; + +constructor TFixApplicationEvents.Create(AOwner: TComponent); +begin + inherited; + OnMessage := ApplicationEventsMessage; +end; + +initialization + FixApplicationEvents := TFixApplicationEvents.Create(nil); + +finalization + FreeAndNil(FixApplicationEvents); + +{$ENDIF DELPHI6} + +end. diff --git a/official/2.1.1/examples/windows/delphitools/common/FindDlg.dfm b/official/2.1.1/examples/windows/delphitools/common/FindDlg.dfm new file mode 100644 index 0000000..ad3da51 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/common/FindDlg.dfm @@ -0,0 +1,107 @@ +object FindTextForm: TFindTextForm + Left = 305 + Top = 226 + ActiveControl = SearchTextEdit + BorderStyle = bsDialog + Caption = 'Find text' + ClientHeight = 110 + ClientWidth = 346 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object FindBtn: TButton + Left = 264 + Top = 8 + Width = 75 + Height = 25 + Caption = '&Find' + Default = True + TabOrder = 0 + OnClick = FindBtnClick + end + object CancelBtn: TButton + Left = 264 + Top = 40 + Width = 75 + Height = 25 + Cancel = True + Caption = '&Cancel' + ModalResult = 2 + TabOrder = 1 + end + object ProgressBar1: TProgressBar + Left = 8 + Top = 96 + Width = 329 + Height = 9 + Min = 0 + Max = 100 + Step = 20 + TabOrder = 2 + Visible = False + end + object GroupBox1: TGroupBox + Left = 8 + Top = 0 + Width = 249 + Height = 89 + TabOrder = 3 + object Label1: TLabel + Left = 8 + Top = 20 + Width = 56 + Height = 13 + Caption = '&Text to find:' + FocusControl = SearchTextEdit + end + object Label2: TLabel + Left = 8 + Top = 44 + Width = 38 + Height = 13 + Caption = 'C&olumn:' + FocusControl = ColumnComboBox + end + object SearchTextEdit: TEdit + Left = 72 + Top = 16 + Width = 169 + Height = 21 + TabOrder = 0 + end + object ColumnComboBox: TComboBox + Left = 72 + Top = 40 + Width = 169 + Height = 21 + Style = csDropDownList + ItemHeight = 13 + TabOrder = 1 + end + object CaseCheckBox: TCheckBox + Left = 72 + Top = 64 + Width = 81 + Height = 17 + Caption = '&Ignore case' + Checked = True + State = cbChecked + TabOrder = 2 + end + object ExactCheckBox: TCheckBox + Left = 160 + Top = 64 + Width = 81 + Height = 17 + Caption = '&Exact match' + TabOrder = 3 + end + end +end diff --git a/official/2.1.1/examples/windows/delphitools/common/FindDlg.pas b/official/2.1.1/examples/windows/delphitools/common/FindDlg.pas new file mode 100644 index 0000000..2d97cb7 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/common/FindDlg.pas @@ -0,0 +1,202 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is D6MdiMsgFix.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2006-05-30 00:02:45 +0200 (mar., 30 mai 2006) $ } +{ } +{**************************************************************************************************} + +unit FindDlg; + +{$I JCL.INC} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ComCtrls; + +type + TFindTextForm = class(TForm) + FindBtn: TButton; + CancelBtn: TButton; + ProgressBar1: TProgressBar; + GroupBox1: TGroupBox; + Label1: TLabel; + SearchTextEdit: TEdit; + ColumnComboBox: TComboBox; + Label2: TLabel; + CaseCheckBox: TCheckBox; + ExactCheckBox: TCheckBox; + procedure FindBtnClick(Sender: TObject); + private + FListView: TListView; + procedure SetListView(const Value: TListView); + public + function Find: Boolean; + class function CanExecuteFind: Boolean; + property ListView: TListView read FListView write SetListView; + end; + +function ShowFindDialog(AListView: TListView): Boolean; + +var + FindTextForm: TFindTextForm; + +implementation + +{$R *.DFM} + +resourcestring + RsAllColumns = '[all columns]'; + +function ShowFindDialog(AListView: TListView): Boolean; +begin + with TFindTextForm.Create(Application) do + try + ListView := AListView; + Result := ShowModal = mrOk; + finally + Free; + end; +end; + +{ TFindForm } + +function TFindTextForm.Find: Boolean; +var + R, C, FindColumn, ColCount, FoundRow: Integer; + IgnoreCase, ExactMatch: Boolean; + SearchText: string; + + + function CompareColumnText(ColumnIndex: Integer): Boolean; + var + Text: string; + begin + with FListView.Items[R] do + if ColumnIndex = 0 then + Text := Caption + else + Text := SubItems[ColumnIndex - 1]; + if IgnoreCase then + Text := AnsiUpperCase(Text); + if ExactMatch then + Result := (SearchText = Text) + else + Result := (Pos(SearchText, Text) > 0); + if Result then + FoundRow := R; + end; + +begin + SearchTextEdit.Enabled := False; + ColumnComboBox.Enabled := False; + CaseCheckBox.Enabled := False; + ExactCheckBox.Enabled := False; + GroupBox1.Enabled := False; + FindBtn.Enabled := False; + CancelBtn.Enabled := False; + Update; + Result := False; + with FListView do + begin + if ItemFocused = nil then + begin + ItemFocused := Items[0]; + ItemFocused.MakeVisible(False); + end; + ProgressBar1.Max := Items.Count; + ProgressBar1.Min := ItemFocused.Index; + ProgressBar1.Position := ItemFocused.Index; + ProgressBar1.Visible := True; + FindColumn := ColumnComboBox.ItemIndex - 1; + ColCount := Columns.Count; + FoundRow := -1; + IgnoreCase := CaseCheckBox.Checked; + ExactMatch := ExactCheckBox.Checked; + if IgnoreCase then + SearchText := AnsiUpperCase(SearchTextEdit.Text) + else + SearchText := SearchTextEdit.Text; + for R := ItemFocused.Index + 1 to Items.Count - 1 do + begin + if FindColumn = -1 then + for C := 0 to ColCount - 1 do + CompareColumnText(C) + else + CompareColumnText(FindColumn); + if R mod ProgressBar1.Step = 0 then + ProgressBar1.StepIt; + if FoundRow > -1 then + begin + Result := True; + if Selected <> nil then + Selected.Selected := False; + ItemFocused := Items[FoundRow]; + Selected := ItemFocused; + ItemFocused.MakeVisible(False); + Break; + end; + end; + end; + SearchTextEdit.Enabled := True; + ColumnComboBox.Enabled := True; + CaseCheckBox.Enabled := True; + ExactCheckBox.Enabled := True; + GroupBox1.Enabled := True; + ProgressBar1.Visible := False; + FindBtn.Enabled := True; + CancelBtn.Enabled := True; + SearchTextEdit.SetFocus; +end; + +procedure TFindTextForm.SetListView(const Value: TListView); +var + I: Integer; +begin + FListView := Value; + ColumnComboBox.Items.BeginUpdate; + ColumnComboBox.Items.Clear; + ColumnComboBox.Items.Add(RsAllColumns); + for I := 0 to FListView.Columns.Count - 1 do + ColumnComboBox.Items.Add(FListView.Columns[I].Caption); + ColumnComboBox.Items.EndUpdate; + ColumnComboBox.ItemIndex := 0; +end; + +procedure TFindTextForm.FindBtnClick(Sender: TObject); +begin + Find; +end; + +class function TFindTextForm.CanExecuteFind: Boolean; +var + LV: TListView; +begin + Result := (Screen.Activecontrol is TListView); + if Result then + begin + LV := TListView(Screen.Activecontrol); + Result := (LV.Items.Count > 0) and not LV.HideSelection; + end; +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/common/SHDocVw_TLB.pas b/official/2.1.1/examples/windows/delphitools/common/SHDocVw_TLB.pas new file mode 100644 index 0000000..c214a5f --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/common/SHDocVw_TLB.pas @@ -0,0 +1,1931 @@ +unit SHDocVw_TLB; + +// ************************************************************************ // +// WARNING +// ------- +// The types declared in this file were generated from data read from a +// Type Library. If this type library is explicitly or indirectly (via +// another type library referring to this type library) re-imported, or the +// 'Refresh' command of the Type Library Editor activated while editing the +// Type Library, the contents of this file will be regenerated and all +// manual modifications will be lost. +// ************************************************************************ // + +// PASTLWTR : $Revision: 1658 $ +// File generated on 12.3.2002 14:05:12 from Type Library described below. + +// ************************************************************************ // +// Type Lib: C:\WINDOWS\SYSTEM\SHDOCVW.DLL (1) +// LIBID: {EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B} +// LCID: 0 +// Helpfile: +// DepndLst: +// (1) v2.0 stdole, (C:\WINDOWS\SYSTEM\stdole2.tlb) +// (2) v4.0 StdVCL, (C:\WINDOWS\SYSTEM\stdvcl40.dll) +// Errors: +// Hint: Member 'Type' of 'IWebBrowser' changed to 'Type_' +// Hint: Parameter 'Type' of IWebBrowser.Type changed to 'Type_' +// Hint: Parameter 'Property' of DWebBrowserEvents.PropertyChange changed to 'Property_' +// Hint: Parameter 'Property' of IWebBrowserApp.PutProperty changed to 'Property_' +// Hint: Parameter 'Property' of IWebBrowserApp.GetProperty changed to 'Property_' +// Hint: Parameter 'Type' of IShellUIHelper.AddDesktopComponent changed to 'Type_' +// Hint: Parameter 'var' of IShellNameSpace.Expand changed to 'var_' +// ************************************************************************ // +{$I jcl.inc} +{$I windowsonly.inc} + +{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. +{$WRITEABLECONST ON} + +interface + +{$IFDEF DELPHI6_UP} + {$VARPROPSETTER ON} +{$ENDIF} + +uses + Windows, ActiveX, Classes, Graphics, OleCtrls, + {$IFDEF DELPHI5_UP} + OleServer, + {$ENDIF} + {$IFDEF DELPHI6_UP} + Variants, + {$ENDIF} + StdVCL; + + + +// *********************************************************************// +// GUIDS declared in the TypeLibrary. Following prefixes are used: +// Type Libraries : LIBID_xxxx +// CoClasses : CLASS_xxxx +// DISPInterfaces : DIID_xxxx +// Non-DISP interfaces: IID_xxxx +// *********************************************************************// +const + // TypeLibrary Major and minor versions + SHDocVwMajorVersion = 1; + SHDocVwMinorVersion = 1; + + LIBID_SHDocVw: TGUID = '{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}'; + + IID_IWebBrowser: TGUID = '{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}'; + DIID_DWebBrowserEvents: TGUID = '{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}'; + IID_IWebBrowserApp: TGUID = '{0002DF05-0000-0000-C000-000000000046}'; + IID_IWebBrowser2: TGUID = '{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}'; + DIID_DWebBrowserEvents2: TGUID = '{34A715A0-6587-11D0-924A-0020AFC7AC4D}'; + CLASS_WebBrowser_V1: TGUID = '{EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}'; + CLASS_WebBrowser: TGUID = '{8856F961-340A-11D0-A96B-00C04FD705A2}'; + CLASS_InternetExplorer: TGUID = '{0002DF01-0000-0000-C000-000000000046}'; + CLASS_ShellBrowserWindow: TGUID = '{C08AFD90-F2A1-11D1-8455-00A0C91F3880}'; + DIID_DShellWindowsEvents: TGUID = '{FE4106E0-399A-11D0-A48C-00A0C90A8F39}'; + IID_IShellWindows: TGUID = '{85CB6900-4D95-11CF-960C-0080C7F4EE85}'; + CLASS_ShellWindows: TGUID = '{9BA05972-F6A8-11CF-A442-00A0C90A8F39}'; + IID_IShellUIHelper: TGUID = '{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}'; + CLASS_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}'; + DIID_DShellNameSpaceEvents: TGUID = '{55136806-B2DE-11D1-B9F2-00A0C98BC547}'; + IID_IShellFavoritesNameSpace: TGUID = '{55136804-B2DE-11D1-B9F2-00A0C98BC547}'; + IID_IShellNameSpace: TGUID = '{E572D3C9-37BE-4AE2-825D-D521763E3108}'; + CLASS_ShellNameSpace: TGUID = '{55136805-B2DE-11D1-B9F2-00A0C98BC547}'; + IID_IScriptErrorList: TGUID = '{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}'; + CLASS_CScriptErrorList: TGUID = '{EFD01300-160F-11D2-BB2E-00805FF7EFCA}'; + IID_ISearch: TGUID = '{BA9239A4-3DD5-11D2-BF8B-00C04FB93661}'; + IID_ISearches: TGUID = '{47C922A2-3DD5-11D2-BF8B-00C04FB93661}'; + IID_ISearchAssistantOC: TGUID = '{72423E8F-8011-11D2-BE79-00A0C9A83DA1}'; + IID_ISearchAssistantOC2: TGUID = '{72423E8F-8011-11D2-BE79-00A0C9A83DA2}'; + DIID__SearchAssistantEvents: TGUID = '{1611FDDA-445B-11D2-85DE-00C04FA35C89}'; + CLASS_SearchAssistantOC: TGUID = '{B45FF030-4447-11D2-85DE-00C04FA35C89}'; + +// *********************************************************************// +// Declaration of Enumerations defined in Type Library +// *********************************************************************// +// Constants for enum CommandStateChangeConstants +type + CommandStateChangeConstants = TOleEnum; +const + CSC_UPDATECOMMANDS = $FFFFFFFF; + CSC_NAVIGATEFORWARD = $00000001; + CSC_NAVIGATEBACK = $00000002; + +// Constants for enum OLECMDID +type + OLECMDID = TOleEnum; +const + OLECMDID_OPEN = $00000001; + OLECMDID_NEW = $00000002; + OLECMDID_SAVE = $00000003; + OLECMDID_SAVEAS = $00000004; + OLECMDID_SAVECOPYAS = $00000005; + OLECMDID_PRINT = $00000006; + OLECMDID_PRINTPREVIEW = $00000007; + OLECMDID_PAGESETUP = $00000008; + OLECMDID_SPELL = $00000009; + OLECMDID_PROPERTIES = $0000000A; + OLECMDID_CUT = $0000000B; + OLECMDID_COPY = $0000000C; + OLECMDID_PASTE = $0000000D; + OLECMDID_PASTESPECIAL = $0000000E; + OLECMDID_UNDO = $0000000F; + OLECMDID_REDO = $00000010; + OLECMDID_SELECTALL = $00000011; + OLECMDID_CLEARSELECTION = $00000012; + OLECMDID_ZOOM = $00000013; + OLECMDID_GETZOOMRANGE = $00000014; + OLECMDID_UPDATECOMMANDS = $00000015; + OLECMDID_REFRESH = $00000016; + OLECMDID_STOP = $00000017; + OLECMDID_HIDETOOLBARS = $00000018; + OLECMDID_SETPROGRESSMAX = $00000019; + OLECMDID_SETPROGRESSPOS = $0000001A; + OLECMDID_SETPROGRESSTEXT = $0000001B; + OLECMDID_SETTITLE = $0000001C; + OLECMDID_SETDOWNLOADSTATE = $0000001D; + OLECMDID_STOPDOWNLOAD = $0000001E; + OLECMDID_ONTOOLBARACTIVATED = $0000001F; + OLECMDID_FIND = $00000020; + OLECMDID_DELETE = $00000021; + OLECMDID_HTTPEQUIV = $00000022; + OLECMDID_HTTPEQUIV_DONE = $00000023; + OLECMDID_ENABLE_INTERACTION = $00000024; + OLECMDID_ONUNLOAD = $00000025; + OLECMDID_PROPERTYBAG2 = $00000026; + OLECMDID_PREREFRESH = $00000027; + OLECMDID_SHOWSCRIPTERROR = $00000028; + OLECMDID_SHOWMESSAGE = $00000029; + OLECMDID_SHOWFIND = $0000002A; + OLECMDID_SHOWPAGESETUP = $0000002B; + OLECMDID_SHOWPRINT = $0000002C; + OLECMDID_CLOSE = $0000002D; + OLECMDID_ALLOWUILESSSAVEAS = $0000002E; + OLECMDID_DONTDOWNLOADCSS = $0000002F; + OLECMDID_UPDATEPAGESTATUS = $00000030; + +// Constants for enum OLECMDF +type + OLECMDF = TOleEnum; +const + OLECMDF_SUPPORTED = $00000001; + OLECMDF_ENABLED = $00000002; + OLECMDF_LATCHED = $00000004; + OLECMDF_NINCHED = $00000008; + OLECMDF_INVISIBLE = $00000010; + OLECMDF_DEFHIDEONCTXTMENU = $00000020; + +// Constants for enum OLECMDEXECOPT +type + OLECMDEXECOPT = TOleEnum; +const + OLECMDEXECOPT_DODEFAULT = $00000000; + OLECMDEXECOPT_PROMPTUSER = $00000001; + OLECMDEXECOPT_DONTPROMPTUSER = $00000002; + OLECMDEXECOPT_SHOWHELP = $00000003; + +// Constants for enum tagREADYSTATE +type + tagREADYSTATE = TOleEnum; +const + READYSTATE_UNINITIALIZED = $00000000; + READYSTATE_LOADING = $00000001; + READYSTATE_LOADED = $00000002; + READYSTATE_INTERACTIVE = $00000003; + READYSTATE_COMPLETE = $00000004; + +// Constants for enum SecureLockIconConstants +type + SecureLockIconConstants = TOleEnum; +const + secureLockIconUnsecure = $00000000; + secureLockIconMixed = $00000001; + secureLockIconSecureUnknownBits = $00000002; + secureLockIconSecure40Bit = $00000003; + secureLockIconSecure56Bit = $00000004; + secureLockIconSecureFortezza = $00000005; + secureLockIconSecure128Bit = $00000006; + +// Constants for enum ShellWindowTypeConstants +type + ShellWindowTypeConstants = TOleEnum; +const + SWC_EXPLORER = $00000000; + SWC_BROWSER = $00000001; + SWC_3RDPARTY = $00000002; + SWC_CALLBACK = $00000004; + +// Constants for enum ShellWindowFindWindowOptions +type + ShellWindowFindWindowOptions = TOleEnum; +const + SWFO_NEEDDISPATCH = $00000001; + SWFO_INCLUDEPENDING = $00000002; + SWFO_COOKIEPASSED = $00000004; + +type + +// *********************************************************************// +// Forward declaration of types defined in TypeLibrary +// *********************************************************************// + IWebBrowser = interface; + IWebBrowserDisp = dispinterface; + DWebBrowserEvents = dispinterface; + IWebBrowserApp = interface; + IWebBrowserAppDisp = dispinterface; + IWebBrowser2 = interface; + IWebBrowser2Disp = dispinterface; + DWebBrowserEvents2 = dispinterface; + DShellWindowsEvents = dispinterface; + IShellWindows = interface; + IShellWindowsDisp = dispinterface; + IShellUIHelper = interface; + IShellUIHelperDisp = dispinterface; + DShellNameSpaceEvents = dispinterface; + IShellFavoritesNameSpace = interface; + IShellFavoritesNameSpaceDisp = dispinterface; + IShellNameSpace = interface; + IShellNameSpaceDisp = dispinterface; + IScriptErrorList = interface; + IScriptErrorListDisp = dispinterface; + ISearch = interface; + ISearchDisp = dispinterface; + ISearches = interface; + ISearchesDisp = dispinterface; + ISearchAssistantOC = interface; + ISearchAssistantOCDisp = dispinterface; + ISearchAssistantOC2 = interface; + ISearchAssistantOC2Disp = dispinterface; + _SearchAssistantEvents = dispinterface; + +// *********************************************************************// +// Declaration of CoClasses defined in Type Library +// (NOTE: Here we map each CoClass to its Default Interface) +// *********************************************************************// + WebBrowser_V1 = IWebBrowser; + WebBrowser = IWebBrowser2; + InternetExplorer = IWebBrowser2; + ShellBrowserWindow = IWebBrowser2; + ShellWindows = IShellWindows; + ShellUIHelper = IShellUIHelper; + ShellNameSpace = IShellNameSpace; + CScriptErrorList = IScriptErrorList; + SearchAssistantOC = ISearchAssistantOC2; + + +// *********************************************************************// +// Declaration of structures, unions and aliases. +// *********************************************************************// + POleVariant1 = ^OleVariant; {*} + + +// *********************************************************************// +// Interface: IWebBrowser +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B} +// *********************************************************************// + IWebBrowser = interface(IDispatch) + ['{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}'] + procedure GoBack; safecall; + procedure GoForward; safecall; + procedure GoHome; safecall; + procedure GoSearch; safecall; + procedure Navigate(const URL: WideString; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant; + var Headers: OleVariant); safecall; + procedure Refresh; safecall; + procedure Refresh2(var Level: OleVariant); safecall; + procedure Stop; safecall; + function Get_Application: IDispatch; safecall; + function Get_Parent: IDispatch; safecall; + function Get_Container: IDispatch; safecall; + function Get_Document: IDispatch; safecall; + function Get_TopLevelContainer: WordBool; safecall; + function Get_Type_: WideString; safecall; + function Get_Left: Integer; safecall; + procedure Set_Left(pl: Integer); safecall; + function Get_Top: Integer; safecall; + procedure Set_Top(pl: Integer); safecall; + function Get_Width: Integer; safecall; + procedure Set_Width(pl: Integer); safecall; + function Get_Height: Integer; safecall; + procedure Set_Height(pl: Integer); safecall; + function Get_LocationName: WideString; safecall; + function Get_LocationURL: WideString; safecall; + function Get_Busy: WordBool; safecall; + property Application: IDispatch read Get_Application; + property Parent: IDispatch read Get_Parent; + property Container: IDispatch read Get_Container; + property Document: IDispatch read Get_Document; + property TopLevelContainer: WordBool read Get_TopLevelContainer; + property Type_: WideString read Get_Type_; + property Left: Integer read Get_Left write Set_Left; + property Top: Integer read Get_Top write Set_Top; + property Width: Integer read Get_Width write Set_Width; + property Height: Integer read Get_Height write Set_Height; + property LocationName: WideString read Get_LocationName; + property LocationURL: WideString read Get_LocationURL; + property Busy: WordBool read Get_Busy; + end; + +// *********************************************************************// +// DispIntf: IWebBrowserDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B} +// *********************************************************************// + IWebBrowserDisp = dispinterface + ['{EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}'] + procedure GoBack; dispid 100; + procedure GoForward; dispid 101; + procedure GoHome; dispid 102; + procedure GoSearch; dispid 103; + procedure Navigate(const URL: WideString; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant; + var Headers: OleVariant); dispid 104; + procedure Refresh; dispid -550; + procedure Refresh2(var Level: OleVariant); dispid 105; + procedure Stop; dispid 106; + property Application: IDispatch readonly dispid 200; + property Parent: IDispatch readonly dispid 201; + property Container: IDispatch readonly dispid 202; + property Document: IDispatch readonly dispid 203; + property TopLevelContainer: WordBool readonly dispid 204; + property Type_: WideString readonly dispid 205; + property Left: Integer dispid 206; + property Top: Integer dispid 207; + property Width: Integer dispid 208; + property Height: Integer dispid 209; + property LocationName: WideString readonly dispid 210; + property LocationURL: WideString readonly dispid 211; + property Busy: WordBool readonly dispid 212; + end; + +// *********************************************************************// +// DispIntf: DWebBrowserEvents +// Flags: (4112) Hidden Dispatchable +// GUID: {EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B} +// *********************************************************************// + DWebBrowserEvents = dispinterface + ['{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}'] + procedure BeforeNavigate(const URL: WideString; Flags: Integer; + const TargetFrameName: WideString; var PostData: OleVariant; + const Headers: WideString; var Cancel: WordBool); dispid 100; + procedure NavigateComplete(const URL: WideString); dispid 101; + procedure StatusTextChange(const Text: WideString); dispid 102; + procedure ProgressChange(Progress: Integer; ProgressMax: Integer); dispid 108; + procedure DownloadComplete; dispid 104; + procedure CommandStateChange(Command: Integer; Enable: WordBool); dispid 105; + procedure DownloadBegin; dispid 106; + procedure NewWindow(const URL: WideString; Flags: Integer; const TargetFrameName: WideString; + var PostData: OleVariant; const Headers: WideString; var Processed: WordBool); dispid 107; + procedure TitleChange(const Text: WideString); dispid 113; + procedure FrameBeforeNavigate(const URL: WideString; Flags: Integer; + const TargetFrameName: WideString; var PostData: OleVariant; + const Headers: WideString; var Cancel: WordBool); dispid 200; + procedure FrameNavigateComplete(const URL: WideString); dispid 201; + procedure FrameNewWindow(const URL: WideString; Flags: Integer; + const TargetFrameName: WideString; var PostData: OleVariant; + const Headers: WideString; var Processed: WordBool); dispid 204; + procedure Quit(var Cancel: WordBool); dispid 103; + procedure WindowMove; dispid 109; + procedure WindowResize; dispid 110; + procedure WindowActivate; dispid 111; + procedure PropertyChange(const Property_: WideString); dispid 112; + end; + +// *********************************************************************// +// Interface: IWebBrowserApp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {0002DF05-0000-0000-C000-000000000046} +// *********************************************************************// + IWebBrowserApp = interface(IWebBrowser) + ['{0002DF05-0000-0000-C000-000000000046}'] + procedure Quit; safecall; + procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); safecall; + procedure PutProperty(const Property_: WideString; vtValue: OleVariant); safecall; + function GetProperty(const Property_: WideString): OleVariant; safecall; + function Get_Name: WideString; safecall; + function Get_HWND: Integer; safecall; + function Get_FullName: WideString; safecall; + function Get_Path: WideString; safecall; + function Get_Visible: WordBool; safecall; + procedure Set_Visible(pBool: WordBool); safecall; + function Get_StatusBar: WordBool; safecall; + procedure Set_StatusBar(pBool: WordBool); safecall; + function Get_StatusText: WideString; safecall; + procedure Set_StatusText(const StatusText: WideString); safecall; + function Get_ToolBar: SYSINT; safecall; + procedure Set_ToolBar(Value: SYSINT); safecall; + function Get_MenuBar: WordBool; safecall; + procedure Set_MenuBar(Value: WordBool); safecall; + function Get_FullScreen: WordBool; safecall; + procedure Set_FullScreen(pbFullScreen: WordBool); safecall; + property Name: WideString read Get_Name; + property HWND: Integer read Get_HWND; + property FullName: WideString read Get_FullName; + property Path: WideString read Get_Path; + property Visible: WordBool read Get_Visible write Set_Visible; + property StatusBar: WordBool read Get_StatusBar write Set_StatusBar; + property StatusText: WideString read Get_StatusText write Set_StatusText; + property ToolBar: SYSINT read Get_ToolBar write Set_ToolBar; + property MenuBar: WordBool read Get_MenuBar write Set_MenuBar; + property FullScreen: WordBool read Get_FullScreen write Set_FullScreen; + end; + +// *********************************************************************// +// DispIntf: IWebBrowserAppDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {0002DF05-0000-0000-C000-000000000046} +// *********************************************************************// + IWebBrowserAppDisp = dispinterface + ['{0002DF05-0000-0000-C000-000000000046}'] + procedure Quit; dispid 300; + procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); dispid 301; + procedure PutProperty(const Property_: WideString; vtValue: OleVariant); dispid 302; + function GetProperty(const Property_: WideString): OleVariant; dispid 303; + property Name: WideString readonly dispid 0; + property HWND: Integer readonly dispid -515; + property FullName: WideString readonly dispid 400; + property Path: WideString readonly dispid 401; + property Visible: WordBool dispid 402; + property StatusBar: WordBool dispid 403; + property StatusText: WideString dispid 404; + property ToolBar: SYSINT dispid 405; + property MenuBar: WordBool dispid 406; + property FullScreen: WordBool dispid 407; + procedure GoBack; dispid 100; + procedure GoForward; dispid 101; + procedure GoHome; dispid 102; + procedure GoSearch; dispid 103; + procedure Navigate(const URL: WideString; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant; + var Headers: OleVariant); dispid 104; + procedure Refresh; dispid -550; + procedure Refresh2(var Level: OleVariant); dispid 105; + procedure Stop; dispid 106; + property Application: IDispatch readonly dispid 200; + property Parent: IDispatch readonly dispid 201; + property Container: IDispatch readonly dispid 202; + property Document: IDispatch readonly dispid 203; + property TopLevelContainer: WordBool readonly dispid 204; + property Type_: WideString readonly dispid 205; + property Left: Integer dispid 206; + property Top: Integer dispid 207; + property Width: Integer dispid 208; + property Height: Integer dispid 209; + property LocationName: WideString readonly dispid 210; + property LocationURL: WideString readonly dispid 211; + property Busy: WordBool readonly dispid 212; + end; + +// *********************************************************************// +// Interface: IWebBrowser2 +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E} +// *********************************************************************// + IWebBrowser2 = interface(IWebBrowserApp) + ['{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}'] + procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant; + var Headers: OleVariant); safecall; + function QueryStatusWB(cmdID: OLECMDID): OLECMDF; safecall; + procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; + var pvaOut: OleVariant); safecall; + procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant; + var pvarSize: OleVariant); safecall; + function Get_ReadyState: tagREADYSTATE; safecall; + function Get_Offline: WordBool; safecall; + procedure Set_Offline(pbOffline: WordBool); safecall; + function Get_Silent: WordBool; safecall; + procedure Set_Silent(pbSilent: WordBool); safecall; + function Get_RegisterAsBrowser: WordBool; safecall; + procedure Set_RegisterAsBrowser(pbRegister: WordBool); safecall; + function Get_RegisterAsDropTarget: WordBool; safecall; + procedure Set_RegisterAsDropTarget(pbRegister: WordBool); safecall; + function Get_TheaterMode: WordBool; safecall; + procedure Set_TheaterMode(pbRegister: WordBool); safecall; + function Get_AddressBar: WordBool; safecall; + procedure Set_AddressBar(Value: WordBool); safecall; + function Get_Resizable: WordBool; safecall; + procedure Set_Resizable(Value: WordBool); safecall; + property ReadyState: tagREADYSTATE read Get_ReadyState; + property Offline: WordBool read Get_Offline write Set_Offline; + property Silent: WordBool read Get_Silent write Set_Silent; + property RegisterAsBrowser: WordBool read Get_RegisterAsBrowser write Set_RegisterAsBrowser; + property RegisterAsDropTarget: WordBool read Get_RegisterAsDropTarget write Set_RegisterAsDropTarget; + property TheaterMode: WordBool read Get_TheaterMode write Set_TheaterMode; + property AddressBar: WordBool read Get_AddressBar write Set_AddressBar; + property Resizable: WordBool read Get_Resizable write Set_Resizable; + end; + +// *********************************************************************// +// DispIntf: IWebBrowser2Disp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E} +// *********************************************************************// + IWebBrowser2Disp = dispinterface + ['{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}'] + procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant; + var Headers: OleVariant); dispid 500; + function QueryStatusWB(cmdID: OLECMDID): OLECMDF; dispid 501; + procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; + var pvaOut: OleVariant); dispid 502; + procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant; + var pvarSize: OleVariant); dispid 503; + property ReadyState: tagREADYSTATE readonly dispid -525; + property Offline: WordBool dispid 550; + property Silent: WordBool dispid 551; + property RegisterAsBrowser: WordBool dispid 552; + property RegisterAsDropTarget: WordBool dispid 553; + property TheaterMode: WordBool dispid 554; + property AddressBar: WordBool dispid 555; + property Resizable: WordBool dispid 556; + procedure Quit; dispid 300; + procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); dispid 301; + procedure PutProperty(const Property_: WideString; vtValue: OleVariant); dispid 302; + function GetProperty(const Property_: WideString): OleVariant; dispid 303; + property Name: WideString readonly dispid 0; + property HWND: Integer readonly dispid -515; + property FullName: WideString readonly dispid 400; + property Path: WideString readonly dispid 401; + property Visible: WordBool dispid 402; + property StatusBar: WordBool dispid 403; + property StatusText: WideString dispid 404; + property ToolBar: SYSINT dispid 405; + property MenuBar: WordBool dispid 406; + property FullScreen: WordBool dispid 407; + procedure GoBack; dispid 100; + procedure GoForward; dispid 101; + procedure GoHome; dispid 102; + procedure GoSearch; dispid 103; + procedure Navigate(const URL: WideString; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant; + var Headers: OleVariant); dispid 104; + procedure Refresh; dispid -550; + procedure Refresh2(var Level: OleVariant); dispid 105; + procedure Stop; dispid 106; + property Application: IDispatch readonly dispid 200; + property Parent: IDispatch readonly dispid 201; + property Container: IDispatch readonly dispid 202; + property Document: IDispatch readonly dispid 203; + property TopLevelContainer: WordBool readonly dispid 204; + property Type_: WideString readonly dispid 205; + property Left: Integer dispid 206; + property Top: Integer dispid 207; + property Width: Integer dispid 208; + property Height: Integer dispid 209; + property LocationName: WideString readonly dispid 210; + property LocationURL: WideString readonly dispid 211; + property Busy: WordBool readonly dispid 212; + end; + +// *********************************************************************// +// DispIntf: DWebBrowserEvents2 +// Flags: (4112) Hidden Dispatchable +// GUID: {34A715A0-6587-11D0-924A-0020AFC7AC4D} +// *********************************************************************// + DWebBrowserEvents2 = dispinterface + ['{34A715A0-6587-11D0-924A-0020AFC7AC4D}'] + procedure StatusTextChange(const Text: WideString); dispid 102; + procedure ProgressChange(Progress: Integer; ProgressMax: Integer); dispid 108; + procedure CommandStateChange(Command: Integer; Enable: WordBool); dispid 105; + procedure DownloadBegin; dispid 106; + procedure DownloadComplete; dispid 104; + procedure TitleChange(const Text: WideString); dispid 113; + procedure PropertyChange(const szProperty: WideString); dispid 112; + procedure BeforeNavigate2(const pDisp: IDispatch; var URL: OleVariant; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant; + var Headers: OleVariant; var Cancel: WordBool); dispid 250; + procedure NewWindow2(var ppDisp: IDispatch; var Cancel: WordBool); dispid 251; + procedure NavigateComplete2(const pDisp: IDispatch; var URL: OleVariant); dispid 252; + procedure DocumentComplete(const pDisp: IDispatch; var URL: OleVariant); dispid 259; + procedure OnQuit; dispid 253; + procedure OnVisible(Visible: WordBool); dispid 254; + procedure OnToolBar(ToolBar: WordBool); dispid 255; + procedure OnMenuBar(MenuBar: WordBool); dispid 256; + procedure OnStatusBar(StatusBar: WordBool); dispid 257; + procedure OnFullScreen(FullScreen: WordBool); dispid 258; + procedure OnTheaterMode(TheaterMode: WordBool); dispid 260; + procedure WindowSetResizable(Resizable: WordBool); dispid 262; + procedure WindowSetLeft(Left: Integer); dispid 264; + procedure WindowSetTop(Top: Integer); dispid 265; + procedure WindowSetWidth(Width: Integer); dispid 266; + procedure WindowSetHeight(Height: Integer); dispid 267; + procedure WindowClosing(IsChildWindow: WordBool; var Cancel: WordBool); dispid 263; + procedure ClientToHostWindow(var CX: Integer; var CY: Integer); dispid 268; + procedure SetSecureLockIcon(SecureLockIcon: Integer); dispid 269; + procedure FileDownload(var Cancel: WordBool); dispid 270; + end; + +// *********************************************************************// +// DispIntf: DShellWindowsEvents +// Flags: (4096) Dispatchable +// GUID: {FE4106E0-399A-11D0-A48C-00A0C90A8F39} +// *********************************************************************// + DShellWindowsEvents = dispinterface + ['{FE4106E0-399A-11D0-A48C-00A0C90A8F39}'] + procedure WindowRegistered(lCookie: Integer); dispid 200; + procedure WindowRevoked(lCookie: Integer); dispid 201; + end; + +// *********************************************************************// +// Interface: IShellWindows +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {85CB6900-4D95-11CF-960C-0080C7F4EE85} +// *********************************************************************// + IShellWindows = interface(IDispatch) + ['{85CB6900-4D95-11CF-960C-0080C7F4EE85}'] + function Get_Count: Integer; safecall; + function Item(index: OleVariant): IDispatch; safecall; + function _NewEnum: IUnknown; safecall; + procedure Register(const pid: IDispatch; HWND: Integer; swClass: SYSINT; out plCookie: Integer); safecall; + procedure RegisterPending(lThreadId: Integer; var pvarloc: OleVariant; + var pvarlocRoot: OleVariant; swClass: SYSINT; out plCookie: Integer); safecall; + procedure Revoke(lCookie: Integer); safecall; + procedure OnNavigate(lCookie: Integer; var pvarloc: OleVariant); safecall; + procedure OnActivated(lCookie: Integer; fActive: WordBool); safecall; + function FindWindowSW(var pvarloc: OleVariant; var pvarlocRoot: OleVariant; swClass: SYSINT; + out pHWND: Integer; swfwOptions: SYSINT): IDispatch; safecall; + procedure OnCreated(lCookie: Integer; const punk: IUnknown); safecall; + procedure ProcessAttachDetach(fAttach: WordBool); safecall; + property Count: Integer read Get_Count; + end; + +// *********************************************************************// +// DispIntf: IShellWindowsDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {85CB6900-4D95-11CF-960C-0080C7F4EE85} +// *********************************************************************// + IShellWindowsDisp = dispinterface + ['{85CB6900-4D95-11CF-960C-0080C7F4EE85}'] + property Count: Integer readonly dispid 1610743808; + function Item(index: OleVariant): IDispatch; dispid 0; + function _NewEnum: IUnknown; dispid -4; + procedure Register(const pid: IDispatch; HWND: Integer; swClass: SYSINT; out plCookie: Integer); dispid 1610743811; + procedure RegisterPending(lThreadId: Integer; var pvarloc: OleVariant; + var pvarlocRoot: OleVariant; swClass: SYSINT; out plCookie: Integer); dispid 1610743812; + procedure Revoke(lCookie: Integer); dispid 1610743813; + procedure OnNavigate(lCookie: Integer; var pvarloc: OleVariant); dispid 1610743814; + procedure OnActivated(lCookie: Integer; fActive: WordBool); dispid 1610743815; + function FindWindowSW(var pvarloc: OleVariant; var pvarlocRoot: OleVariant; swClass: SYSINT; + out pHWND: Integer; swfwOptions: SYSINT): IDispatch; dispid 1610743816; + procedure OnCreated(lCookie: Integer; const punk: IUnknown); dispid 1610743817; + procedure ProcessAttachDetach(fAttach: WordBool); dispid 1610743818; + end; + +// *********************************************************************// +// Interface: IShellUIHelper +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1} +// *********************************************************************// + IShellUIHelper = interface(IDispatch) + ['{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}'] + procedure ResetFirstBootMode; safecall; + procedure ResetSafeMode; safecall; + procedure RefreshOfflineDesktop; safecall; + procedure AddFavorite(const URL: WideString; var Title: OleVariant); safecall; + procedure AddChannel(const URL: WideString); safecall; + procedure AddDesktopComponent(const URL: WideString; const Type_: WideString; + var Left: OleVariant; var Top: OleVariant; var Width: OleVariant; + var Height: OleVariant); safecall; + function IsSubscribed(const URL: WideString): WordBool; safecall; + procedure NavigateAndFind(const URL: WideString; const strQuery: WideString; + var varTargetFrame: OleVariant); safecall; + procedure ImportExportFavorites(fImport: WordBool; const strImpExpPath: WideString); safecall; + procedure AutoCompleteSaveForm(var Form: OleVariant); safecall; + procedure AutoScan(const strSearch: WideString; const strFailureUrl: WideString; + var pvarTargetFrame: OleVariant); safecall; + procedure AutoCompleteAttach(var Reserved: OleVariant); safecall; + function ShowBrowserUI(const bstrName: WideString; var pvarIn: OleVariant): OleVariant; safecall; + end; + +// *********************************************************************// +// DispIntf: IShellUIHelperDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1} +// *********************************************************************// + IShellUIHelperDisp = dispinterface + ['{729FE2F8-1EA8-11D1-8F85-00C04FC2FBE1}'] + procedure ResetFirstBootMode; dispid 1; + procedure ResetSafeMode; dispid 2; + procedure RefreshOfflineDesktop; dispid 3; + procedure AddFavorite(const URL: WideString; var Title: OleVariant); dispid 4; + procedure AddChannel(const URL: WideString); dispid 5; + procedure AddDesktopComponent(const URL: WideString; const Type_: WideString; + var Left: OleVariant; var Top: OleVariant; var Width: OleVariant; + var Height: OleVariant); dispid 6; + function IsSubscribed(const URL: WideString): WordBool; dispid 7; + procedure NavigateAndFind(const URL: WideString; const strQuery: WideString; + var varTargetFrame: OleVariant); dispid 8; + procedure ImportExportFavorites(fImport: WordBool; const strImpExpPath: WideString); dispid 9; + procedure AutoCompleteSaveForm(var Form: OleVariant); dispid 10; + procedure AutoScan(const strSearch: WideString; const strFailureUrl: WideString; + var pvarTargetFrame: OleVariant); dispid 11; + procedure AutoCompleteAttach(var Reserved: OleVariant); dispid 12; + function ShowBrowserUI(const bstrName: WideString; var pvarIn: OleVariant): OleVariant; dispid 13; + end; + +// *********************************************************************// +// DispIntf: DShellNameSpaceEvents +// Flags: (4096) Dispatchable +// GUID: {55136806-B2DE-11D1-B9F2-00A0C98BC547} +// *********************************************************************// + DShellNameSpaceEvents = dispinterface + ['{55136806-B2DE-11D1-B9F2-00A0C98BC547}'] + procedure FavoritesSelectionChange(cItems: Integer; hItem: Integer; const strName: WideString; + const strUrl: WideString; cVisits: Integer; + const strDate: WideString; fAvailableOffline: Integer); dispid 1; + procedure SelectionChange; dispid 2; + procedure DoubleClick; dispid 3; + procedure Initialized; dispid 4; + end; + +// *********************************************************************// +// Interface: IShellFavoritesNameSpace +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {55136804-B2DE-11D1-B9F2-00A0C98BC547} +// *********************************************************************// + IShellFavoritesNameSpace = interface(IDispatch) + ['{55136804-B2DE-11D1-B9F2-00A0C98BC547}'] + procedure MoveSelectionUp; safecall; + procedure MoveSelectionDown; safecall; + procedure ResetSort; safecall; + procedure NewFolder; safecall; + procedure Synchronize; safecall; + procedure Import; safecall; + procedure Export; safecall; + procedure InvokeContextMenuCommand(const strCommand: WideString); safecall; + procedure MoveSelectionTo; safecall; + function Get_SubscriptionsEnabled: WordBool; safecall; + function CreateSubscriptionForSelection: WordBool; safecall; + function DeleteSubscriptionForSelection: WordBool; safecall; + procedure SetRoot(const bstrFullPath: WideString); safecall; + property SubscriptionsEnabled: WordBool read Get_SubscriptionsEnabled; + end; + +// *********************************************************************// +// DispIntf: IShellFavoritesNameSpaceDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {55136804-B2DE-11D1-B9F2-00A0C98BC547} +// *********************************************************************// + IShellFavoritesNameSpaceDisp = dispinterface + ['{55136804-B2DE-11D1-B9F2-00A0C98BC547}'] + procedure MoveSelectionUp; dispid 1; + procedure MoveSelectionDown; dispid 2; + procedure ResetSort; dispid 3; + procedure NewFolder; dispid 4; + procedure Synchronize; dispid 5; + procedure Import; dispid 6; + procedure Export; dispid 7; + procedure InvokeContextMenuCommand(const strCommand: WideString); dispid 8; + procedure MoveSelectionTo; dispid 9; + property SubscriptionsEnabled: WordBool readonly dispid 10; + function CreateSubscriptionForSelection: WordBool; dispid 11; + function DeleteSubscriptionForSelection: WordBool; dispid 12; + procedure SetRoot(const bstrFullPath: WideString); dispid 13; + end; + +// *********************************************************************// +// Interface: IShellNameSpace +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {E572D3C9-37BE-4AE2-825D-D521763E3108} +// *********************************************************************// + IShellNameSpace = interface(IShellFavoritesNameSpace) + ['{E572D3C9-37BE-4AE2-825D-D521763E3108}'] + function Get_EnumOptions: Integer; safecall; + procedure Set_EnumOptions(pgrfEnumFlags: Integer); safecall; + function Get_SelectedItem: IDispatch; safecall; + procedure Set_SelectedItem(const pItem: IDispatch); safecall; + function Get_Root: OleVariant; safecall; + procedure Set_Root(pvar: OleVariant); safecall; + function Get_Depth: SYSINT; safecall; + procedure Set_Depth(piDepth: SYSINT); safecall; + function Get_Mode: SYSUINT; safecall; + procedure Set_Mode(puMode: SYSUINT); safecall; + function Get_Flags: LongWord; safecall; + procedure Set_Flags(pdwFlags: LongWord); safecall; + procedure Set_TVFlags(dwFlags: LongWord); safecall; + function Get_TVFlags: LongWord; safecall; + function Get_Columns: WideString; safecall; + procedure Set_Columns(const bstrColumns: WideString); safecall; + function Get_CountViewTypes: SYSINT; safecall; + procedure SetViewType(iType: SYSINT); safecall; + function SelectedItems: IDispatch; safecall; + procedure Expand(var_: OleVariant; iDepth: SYSINT); safecall; + procedure UnselectAll; safecall; + property EnumOptions: Integer read Get_EnumOptions write Set_EnumOptions; + property SelectedItem: IDispatch read Get_SelectedItem write Set_SelectedItem; + property Root: OleVariant read Get_Root write Set_Root; + property Depth: SYSINT read Get_Depth write Set_Depth; + property Mode: SYSUINT read Get_Mode write Set_Mode; + property Flags: LongWord read Get_Flags write Set_Flags; + property TVFlags: LongWord read Get_TVFlags write Set_TVFlags; + property Columns: WideString read Get_Columns write Set_Columns; + property CountViewTypes: SYSINT read Get_CountViewTypes; + end; + +// *********************************************************************// +// DispIntf: IShellNameSpaceDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {E572D3C9-37BE-4AE2-825D-D521763E3108} +// *********************************************************************// + IShellNameSpaceDisp = dispinterface + ['{E572D3C9-37BE-4AE2-825D-D521763E3108}'] + property EnumOptions: Integer dispid 14; + property SelectedItem: IDispatch dispid 15; + property Root: OleVariant dispid 16; + property Depth: SYSINT dispid 17; + property Mode: SYSUINT dispid 18; + property Flags: LongWord dispid 19; + property TVFlags: LongWord dispid 20; + property Columns: WideString dispid 21; + property CountViewTypes: SYSINT readonly dispid 22; + procedure SetViewType(iType: SYSINT); dispid 23; + function SelectedItems: IDispatch; dispid 24; + procedure Expand(var_: OleVariant; iDepth: SYSINT); dispid 25; + procedure UnselectAll; dispid 26; + procedure MoveSelectionUp; dispid 1; + procedure MoveSelectionDown; dispid 2; + procedure ResetSort; dispid 3; + procedure NewFolder; dispid 4; + procedure Synchronize; dispid 5; + procedure Import; dispid 6; + procedure Export; dispid 7; + procedure InvokeContextMenuCommand(const strCommand: WideString); dispid 8; + procedure MoveSelectionTo; dispid 9; + property SubscriptionsEnabled: WordBool readonly dispid 10; + function CreateSubscriptionForSelection: WordBool; dispid 11; + function DeleteSubscriptionForSelection: WordBool; dispid 12; + procedure SetRoot(const bstrFullPath: WideString); dispid 13; + end; + +// *********************************************************************// +// Interface: IScriptErrorList +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {F3470F24-15FD-11D2-BB2E-00805FF7EFCA} +// *********************************************************************// + IScriptErrorList = interface(IDispatch) + ['{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}'] + procedure advanceError; safecall; + procedure retreatError; safecall; + function canAdvanceError: Integer; safecall; + function canRetreatError: Integer; safecall; + function getErrorLine: Integer; safecall; + function getErrorChar: Integer; safecall; + function getErrorCode: Integer; safecall; + function getErrorMsg: WideString; safecall; + function getErrorUrl: WideString; safecall; + function getAlwaysShowLockState: Integer; safecall; + function getDetailsPaneOpen: Integer; safecall; + procedure setDetailsPaneOpen(fDetailsPaneOpen: Integer); safecall; + function getPerErrorDisplay: Integer; safecall; + procedure setPerErrorDisplay(fPerErrorDisplay: Integer); safecall; + end; + +// *********************************************************************// +// DispIntf: IScriptErrorListDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {F3470F24-15FD-11D2-BB2E-00805FF7EFCA} +// *********************************************************************// + IScriptErrorListDisp = dispinterface + ['{F3470F24-15FD-11D2-BB2E-00805FF7EFCA}'] + procedure advanceError; dispid 10; + procedure retreatError; dispid 11; + function canAdvanceError: Integer; dispid 12; + function canRetreatError: Integer; dispid 13; + function getErrorLine: Integer; dispid 14; + function getErrorChar: Integer; dispid 15; + function getErrorCode: Integer; dispid 16; + function getErrorMsg: WideString; dispid 17; + function getErrorUrl: WideString; dispid 18; + function getAlwaysShowLockState: Integer; dispid 23; + function getDetailsPaneOpen: Integer; dispid 19; + procedure setDetailsPaneOpen(fDetailsPaneOpen: Integer); dispid 20; + function getPerErrorDisplay: Integer; dispid 21; + procedure setPerErrorDisplay(fPerErrorDisplay: Integer); dispid 22; + end; + +// *********************************************************************// +// Interface: ISearch +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {BA9239A4-3DD5-11D2-BF8B-00C04FB93661} +// *********************************************************************// + ISearch = interface(IDispatch) + ['{BA9239A4-3DD5-11D2-BF8B-00C04FB93661}'] + function Get_Title: WideString; safecall; + function Get_Id: WideString; safecall; + function Get_URL: WideString; safecall; + property Title: WideString read Get_Title; + property Id: WideString read Get_Id; + property URL: WideString read Get_URL; + end; + +// *********************************************************************// +// DispIntf: ISearchDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {BA9239A4-3DD5-11D2-BF8B-00C04FB93661} +// *********************************************************************// + ISearchDisp = dispinterface + ['{BA9239A4-3DD5-11D2-BF8B-00C04FB93661}'] + property Title: WideString readonly dispid 1610743808; + property Id: WideString readonly dispid 1610743809; + property URL: WideString readonly dispid 1610743810; + end; + +// *********************************************************************// +// Interface: ISearches +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {47C922A2-3DD5-11D2-BF8B-00C04FB93661} +// *********************************************************************// + ISearches = interface(IDispatch) + ['{47C922A2-3DD5-11D2-BF8B-00C04FB93661}'] + function Get_Count: Integer; safecall; + function Get_Default: WideString; safecall; + function Item(index: OleVariant): ISearch; safecall; + function _NewEnum: IUnknown; safecall; + property Count: Integer read Get_Count; + property Default: WideString read Get_Default; + end; + +// *********************************************************************// +// DispIntf: ISearchesDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {47C922A2-3DD5-11D2-BF8B-00C04FB93661} +// *********************************************************************// + ISearchesDisp = dispinterface + ['{47C922A2-3DD5-11D2-BF8B-00C04FB93661}'] + property Count: Integer readonly dispid 1610743808; + property Default: WideString readonly dispid 1610743809; + function Item(index: OleVariant): ISearch; dispid 1610743810; + function _NewEnum: IUnknown; dispid -4; + end; + +// *********************************************************************// +// Interface: ISearchAssistantOC +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {72423E8F-8011-11D2-BE79-00A0C9A83DA1} +// *********************************************************************// + ISearchAssistantOC = interface(IDispatch) + ['{72423E8F-8011-11D2-BE79-00A0C9A83DA1}'] + procedure AddNextMenuItem(const bstrText: WideString; idItem: Integer); safecall; + procedure SetDefaultSearchUrl(const bstrUrl: WideString); safecall; + procedure NavigateToDefaultSearch; safecall; + function IsRestricted(const bstrGuid: WideString): WordBool; safecall; + function Get_ShellFeaturesEnabled: WordBool; safecall; + function Get_SearchAssistantDefault: WordBool; safecall; + function Get_Searches: ISearches; safecall; + function Get_InWebFolder: WordBool; safecall; + procedure PutProperty(bPerLocale: WordBool; const bstrName: WideString; + const bstrValue: WideString); safecall; + function GetProperty(bPerLocale: WordBool; const bstrName: WideString): WideString; safecall; + procedure Set_EventHandled(Param1: WordBool); safecall; + procedure ResetNextMenu; safecall; + procedure FindOnWeb; safecall; + procedure FindFilesOrFolders; safecall; + procedure FindComputer; safecall; + procedure FindPrinter; safecall; + procedure FindPeople; safecall; + function GetSearchAssistantURL(bSubstitute: WordBool; bCustomize: WordBool): WideString; safecall; + procedure NotifySearchSettingsChanged; safecall; + procedure Set_ASProvider(const pProvider: WideString); safecall; + function Get_ASProvider: WideString; safecall; + procedure Set_ASSetting(pSetting: SYSINT); safecall; + function Get_ASSetting: SYSINT; safecall; + procedure NETDetectNextNavigate; safecall; + procedure PutFindText(const FindText: WideString); safecall; + function Get_Version: SYSINT; safecall; + function EncodeString(const bstrValue: WideString; const bstrCharSet: WideString; + bUseUTF8: WordBool): WideString; safecall; + property ShellFeaturesEnabled: WordBool read Get_ShellFeaturesEnabled; + property SearchAssistantDefault: WordBool read Get_SearchAssistantDefault; + property Searches: ISearches read Get_Searches; + property InWebFolder: WordBool read Get_InWebFolder; + property EventHandled: WordBool write Set_EventHandled; + property ASProvider: WideString read Get_ASProvider write Set_ASProvider; + property ASSetting: SYSINT read Get_ASSetting write Set_ASSetting; + property Version: SYSINT read Get_Version; + end; + +// *********************************************************************// +// DispIntf: ISearchAssistantOCDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {72423E8F-8011-11D2-BE79-00A0C9A83DA1} +// *********************************************************************// + ISearchAssistantOCDisp = dispinterface + ['{72423E8F-8011-11D2-BE79-00A0C9A83DA1}'] + procedure AddNextMenuItem(const bstrText: WideString; idItem: Integer); dispid 1; + procedure SetDefaultSearchUrl(const bstrUrl: WideString); dispid 2; + procedure NavigateToDefaultSearch; dispid 3; + function IsRestricted(const bstrGuid: WideString): WordBool; dispid 4; + property ShellFeaturesEnabled: WordBool readonly dispid 5; + property SearchAssistantDefault: WordBool readonly dispid 6; + property Searches: ISearches readonly dispid 7; + property InWebFolder: WordBool readonly dispid 8; + procedure PutProperty(bPerLocale: WordBool; const bstrName: WideString; + const bstrValue: WideString); dispid 9; + function GetProperty(bPerLocale: WordBool; const bstrName: WideString): WideString; dispid 10; + property EventHandled: WordBool writeonly dispid 11; + procedure ResetNextMenu; dispid 12; + procedure FindOnWeb; dispid 13; + procedure FindFilesOrFolders; dispid 14; + procedure FindComputer; dispid 15; + procedure FindPrinter; dispid 16; + procedure FindPeople; dispid 17; + function GetSearchAssistantURL(bSubstitute: WordBool; bCustomize: WordBool): WideString; dispid 18; + procedure NotifySearchSettingsChanged; dispid 19; + property ASProvider: WideString dispid 20; + property ASSetting: SYSINT dispid 21; + procedure NETDetectNextNavigate; dispid 22; + procedure PutFindText(const FindText: WideString); dispid 23; + property Version: SYSINT readonly dispid 24; + function EncodeString(const bstrValue: WideString; const bstrCharSet: WideString; + bUseUTF8: WordBool): WideString; dispid 25; + end; + +// *********************************************************************// +// Interface: ISearchAssistantOC2 +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {72423E8F-8011-11D2-BE79-00A0C9A83DA2} +// *********************************************************************// + ISearchAssistantOC2 = interface(ISearchAssistantOC) + ['{72423E8F-8011-11D2-BE79-00A0C9A83DA2}'] + function Get_ShowFindPrinter: WordBool; safecall; + property ShowFindPrinter: WordBool read Get_ShowFindPrinter; + end; + +// *********************************************************************// +// DispIntf: ISearchAssistantOC2Disp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {72423E8F-8011-11D2-BE79-00A0C9A83DA2} +// *********************************************************************// + ISearchAssistantOC2Disp = dispinterface + ['{72423E8F-8011-11D2-BE79-00A0C9A83DA2}'] + property ShowFindPrinter: WordBool readonly dispid 26; + procedure AddNextMenuItem(const bstrText: WideString; idItem: Integer); dispid 1; + procedure SetDefaultSearchUrl(const bstrUrl: WideString); dispid 2; + procedure NavigateToDefaultSearch; dispid 3; + function IsRestricted(const bstrGuid: WideString): WordBool; dispid 4; + property ShellFeaturesEnabled: WordBool readonly dispid 5; + property SearchAssistantDefault: WordBool readonly dispid 6; + property Searches: ISearches readonly dispid 7; + property InWebFolder: WordBool readonly dispid 8; + procedure PutProperty(bPerLocale: WordBool; const bstrName: WideString; + const bstrValue: WideString); dispid 9; + function GetProperty(bPerLocale: WordBool; const bstrName: WideString): WideString; dispid 10; + property EventHandled: WordBool writeonly dispid 11; + procedure ResetNextMenu; dispid 12; + procedure FindOnWeb; dispid 13; + procedure FindFilesOrFolders; dispid 14; + procedure FindComputer; dispid 15; + procedure FindPrinter; dispid 16; + procedure FindPeople; dispid 17; + function GetSearchAssistantURL(bSubstitute: WordBool; bCustomize: WordBool): WideString; dispid 18; + procedure NotifySearchSettingsChanged; dispid 19; + property ASProvider: WideString dispid 20; + property ASSetting: SYSINT dispid 21; + procedure NETDetectNextNavigate; dispid 22; + procedure PutFindText(const FindText: WideString); dispid 23; + property Version: SYSINT readonly dispid 24; + function EncodeString(const bstrValue: WideString; const bstrCharSet: WideString; + bUseUTF8: WordBool): WideString; dispid 25; + end; + +// *********************************************************************// +// DispIntf: _SearchAssistantEvents +// Flags: (4112) Hidden Dispatchable +// GUID: {1611FDDA-445B-11D2-85DE-00C04FA35C89} +// *********************************************************************// + _SearchAssistantEvents = dispinterface + ['{1611FDDA-445B-11D2-85DE-00C04FA35C89}'] + procedure OnNextMenuSelect(idItem: Integer); dispid 1; + procedure OnNewSearch; dispid 2; + end; + + +// *********************************************************************// +// OLE Control Proxy class declaration +// Control Name : TWebBrowser_V1 +// Help String : WebBrowser Control +// Default Interface: IWebBrowser +// Def. Intf. DISP? : No +// Event Interface: DWebBrowserEvents +// TypeFlags : (34) CanCreate Control +// *********************************************************************// + TWebBrowser_V1BeforeNavigate = procedure(Sender: TObject; const URL: WideString; Flags: Integer; + const TargetFrameName: WideString; + var PostData: OleVariant; + const Headers: WideString; + var Cancel: WordBool) of object; + TWebBrowser_V1NavigateComplete = procedure(Sender: TObject; const URL: WideString) of object; + TWebBrowser_V1StatusTextChange = procedure(Sender: TObject; const Text: WideString) of object; + TWebBrowser_V1ProgressChange = procedure(Sender: TObject; Progress: Integer; ProgressMax: Integer) of object; + TWebBrowser_V1CommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object; + TWebBrowser_V1NewWindow = procedure(Sender: TObject; const URL: WideString; Flags: Integer; + const TargetFrameName: WideString; + var PostData: OleVariant; + const Headers: WideString; + var Processed: WordBool) of object; + TWebBrowser_V1TitleChange = procedure(Sender: TObject; const Text: WideString) of object; + TWebBrowser_V1FrameBeforeNavigate = procedure(Sender: TObject; const URL: WideString; + Flags: Integer; + const TargetFrameName: WideString; + var PostData: OleVariant; + const Headers: WideString; + var Cancel: WordBool) of object; + TWebBrowser_V1FrameNavigateComplete = procedure(Sender: TObject; const URL: WideString) of object; + TWebBrowser_V1FrameNewWindow = procedure(Sender: TObject; const URL: WideString; Flags: Integer; + const TargetFrameName: WideString; + var PostData: OleVariant; + const Headers: WideString; + var Processed: WordBool) of object; + TWebBrowser_V1Quit = procedure(Sender: TObject; var Cancel: WordBool) of object; + TWebBrowser_V1PropertyChange = procedure(Sender: TObject; const Property_: WideString) of object; + + TWebBrowser_V1 = class(TOleControl) + private + FOnBeforeNavigate: TWebBrowser_V1BeforeNavigate; + FOnNavigateComplete: TWebBrowser_V1NavigateComplete; + FOnStatusTextChange: TWebBrowser_V1StatusTextChange; + FOnProgressChange: TWebBrowser_V1ProgressChange; + FOnDownloadComplete: TNotifyEvent; + FOnCommandStateChange: TWebBrowser_V1CommandStateChange; + FOnDownloadBegin: TNotifyEvent; + FOnNewWindow: TWebBrowser_V1NewWindow; + FOnTitleChange: TWebBrowser_V1TitleChange; + FOnFrameBeforeNavigate: TWebBrowser_V1FrameBeforeNavigate; + FOnFrameNavigateComplete: TWebBrowser_V1FrameNavigateComplete; + FOnFrameNewWindow: TWebBrowser_V1FrameNewWindow; + FOnQuit: TWebBrowser_V1Quit; + FOnWindowMove: TNotifyEvent; + FOnWindowResize: TNotifyEvent; + FOnWindowActivate: TNotifyEvent; + FOnPropertyChange: TWebBrowser_V1PropertyChange; + FIntf: IWebBrowser; + function GetControlInterface: IWebBrowser; + protected + procedure CreateControl; + procedure InitControlData; override; + function Get_Application: IDispatch; + function Get_Parent: IDispatch; + function Get_Container: IDispatch; + function Get_Document: IDispatch; + public + procedure GoBack; + procedure GoForward; + procedure GoHome; + procedure GoSearch; + procedure Navigate(const URL: WideString); overload; + procedure Navigate(const URL: WideString; var Flags: OleVariant); overload; + procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload; + procedure Navigate(const URL: WideString; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant); overload; + procedure Navigate(const URL: WideString; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant; + var Headers: OleVariant); overload; + procedure Refresh; + procedure Refresh2; overload; + procedure Refresh2(var Level: OleVariant); overload; + procedure Stop; + property ControlInterface: IWebBrowser read GetControlInterface; + property DefaultInterface: IWebBrowser read GetControlInterface; + property Application: IDispatch index 200 read GetIDispatchProp; + property Parent: IDispatch index 201 read GetIDispatchProp; + property Container: IDispatch index 202 read GetIDispatchProp; + property Document: IDispatch index 203 read GetIDispatchProp; + property TopLevelContainer: WordBool index 204 read GetWordBoolProp; + property Type_: WideString index 205 read GetWideStringProp; + property LocationName: WideString index 210 read GetWideStringProp; + property LocationURL: WideString index 211 read GetWideStringProp; + property Busy: WordBool index 212 read GetWordBoolProp; + published + property TabStop; + property Align; + property DragCursor; + property DragMode; + property ParentShowHint; + property PopupMenu; + property ShowHint; + property TabOrder; + property Visible; + property OnDragDrop; + property OnDragOver; + property OnEndDrag; + property OnEnter; + property OnExit; + property OnStartDrag; + property OnBeforeNavigate: TWebBrowser_V1BeforeNavigate read FOnBeforeNavigate write FOnBeforeNavigate; + property OnNavigateComplete: TWebBrowser_V1NavigateComplete read FOnNavigateComplete write FOnNavigateComplete; + property OnStatusTextChange: TWebBrowser_V1StatusTextChange read FOnStatusTextChange write FOnStatusTextChange; + property OnProgressChange: TWebBrowser_V1ProgressChange read FOnProgressChange write FOnProgressChange; + property OnDownloadComplete: TNotifyEvent read FOnDownloadComplete write FOnDownloadComplete; + property OnCommandStateChange: TWebBrowser_V1CommandStateChange read FOnCommandStateChange write FOnCommandStateChange; + property OnDownloadBegin: TNotifyEvent read FOnDownloadBegin write FOnDownloadBegin; + property OnNewWindow: TWebBrowser_V1NewWindow read FOnNewWindow write FOnNewWindow; + property OnTitleChange: TWebBrowser_V1TitleChange read FOnTitleChange write FOnTitleChange; + property OnFrameBeforeNavigate: TWebBrowser_V1FrameBeforeNavigate read FOnFrameBeforeNavigate write FOnFrameBeforeNavigate; + property OnFrameNavigateComplete: TWebBrowser_V1FrameNavigateComplete read FOnFrameNavigateComplete write FOnFrameNavigateComplete; + property OnFrameNewWindow: TWebBrowser_V1FrameNewWindow read FOnFrameNewWindow write FOnFrameNewWindow; + property OnQuit: TWebBrowser_V1Quit read FOnQuit write FOnQuit; + property OnWindowMove: TNotifyEvent read FOnWindowMove write FOnWindowMove; + property OnWindowResize: TNotifyEvent read FOnWindowResize write FOnWindowResize; + property OnWindowActivate: TNotifyEvent read FOnWindowActivate write FOnWindowActivate; + property OnPropertyChange: TWebBrowser_V1PropertyChange read FOnPropertyChange write FOnPropertyChange; + end; + + +// *********************************************************************// +// OLE Control Proxy class declaration +// Control Name : TWebBrowser +// Help String : WebBrowser Control +// Default Interface: IWebBrowser2 +// Def. Intf. DISP? : No +// Event Interface: DWebBrowserEvents2 +// TypeFlags : (34) CanCreate Control +// *********************************************************************// + TWebBrowserStatusTextChange = procedure(Sender: TObject; const Text: WideString) of object; + TWebBrowserProgressChange = procedure(Sender: TObject; Progress: Integer; ProgressMax: Integer) of object; + TWebBrowserCommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object; + TWebBrowserTitleChange = procedure(Sender: TObject; const Text: WideString) of object; + TWebBrowserPropertyChange = procedure(Sender: TObject; const szProperty: WideString) of object; + TWebBrowserBeforeNavigate2 = procedure(Sender: TObject; const pDisp: IDispatch; + var URL: OleVariant; + var Flags: OleVariant; + var TargetFrameName: OleVariant; + var PostData: OleVariant; + var Headers: OleVariant; + var Cancel: WordBool) of object; + TWebBrowserNewWindow2 = procedure(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool) of object; + TWebBrowserNavigateComplete2 = procedure(Sender: TObject; const pDisp: IDispatch; + var URL: OleVariant) of object; + TWebBrowserDocumentComplete = procedure(Sender: TObject; const pDisp: IDispatch; + var URL: OleVariant) of object; + TWebBrowserOnVisible = procedure(Sender: TObject; Visible: WordBool) of object; + TWebBrowserOnToolBar = procedure(Sender: TObject; ToolBar: WordBool) of object; + TWebBrowserOnMenuBar = procedure(Sender: TObject; MenuBar: WordBool) of object; + TWebBrowserOnStatusBar = procedure(Sender: TObject; StatusBar: WordBool) of object; + TWebBrowserOnFullScreen = procedure(Sender: TObject; FullScreen: WordBool) of object; + TWebBrowserOnTheaterMode = procedure(Sender: TObject; TheaterMode: WordBool) of object; + TWebBrowserWindowSetResizable = procedure(Sender: TObject; Resizable: WordBool) of object; + TWebBrowserWindowSetLeft = procedure(Sender: TObject; Left: Integer) of object; + TWebBrowserWindowSetTop = procedure(Sender: TObject; Top: Integer) of object; + TWebBrowserWindowSetWidth = procedure(Sender: TObject; Width: Integer) of object; + TWebBrowserWindowSetHeight = procedure(Sender: TObject; Height: Integer) of object; + TWebBrowserWindowClosing = procedure(Sender: TObject; IsChildWindow: WordBool; + var Cancel: WordBool) of object; + TWebBrowserClientToHostWindow = procedure(Sender: TObject; var CX: Integer; var CY: Integer) of object; + TWebBrowserSetSecureLockIcon = procedure(Sender: TObject; SecureLockIcon: Integer) of object; + TWebBrowserFileDownload = procedure(Sender: TObject; var Cancel: WordBool) of object; + + TWebBrowser = class(TOleControl) + private + FOnStatusTextChange: TWebBrowserStatusTextChange; + FOnProgressChange: TWebBrowserProgressChange; + FOnCommandStateChange: TWebBrowserCommandStateChange; + FOnDownloadBegin: TNotifyEvent; + FOnDownloadComplete: TNotifyEvent; + FOnTitleChange: TWebBrowserTitleChange; + FOnPropertyChange: TWebBrowserPropertyChange; + FOnBeforeNavigate2: TWebBrowserBeforeNavigate2; + FOnNewWindow2: TWebBrowserNewWindow2; + FOnNavigateComplete2: TWebBrowserNavigateComplete2; + FOnDocumentComplete: TWebBrowserDocumentComplete; + FOnQuit: TNotifyEvent; + FOnVisible: TWebBrowserOnVisible; + FOnToolBar: TWebBrowserOnToolBar; + FOnMenuBar: TWebBrowserOnMenuBar; + FOnStatusBar: TWebBrowserOnStatusBar; + FOnFullScreen: TWebBrowserOnFullScreen; + FOnTheaterMode: TWebBrowserOnTheaterMode; + FOnWindowSetResizable: TWebBrowserWindowSetResizable; + FOnWindowSetLeft: TWebBrowserWindowSetLeft; + FOnWindowSetTop: TWebBrowserWindowSetTop; + FOnWindowSetWidth: TWebBrowserWindowSetWidth; + FOnWindowSetHeight: TWebBrowserWindowSetHeight; + FOnWindowClosing: TWebBrowserWindowClosing; + FOnClientToHostWindow: TWebBrowserClientToHostWindow; + FOnSetSecureLockIcon: TWebBrowserSetSecureLockIcon; + FOnFileDownload: TWebBrowserFileDownload; + FIntf: IWebBrowser2; + function GetControlInterface: IWebBrowser2; + protected + procedure CreateControl; + procedure InitControlData; override; + function Get_Application: IDispatch; + function Get_Parent: IDispatch; + function Get_Container: IDispatch; + function Get_Document: IDispatch; + public + procedure GoBack; + procedure GoForward; + procedure GoHome; + procedure GoSearch; + procedure Navigate(const URL: WideString); overload; + procedure Navigate(const URL: WideString; var Flags: OleVariant); overload; + procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload; + procedure Navigate(const URL: WideString; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant); overload; + procedure Navigate(const URL: WideString; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant; + var Headers: OleVariant); overload; + procedure Refresh; + procedure Refresh2; overload; + procedure Refresh2(var Level: OleVariant); overload; + procedure Stop; + procedure Quit; + procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); + procedure PutProperty(const Property_: WideString; vtValue: OleVariant); + function GetProperty(const Property_: WideString): OleVariant; + procedure Navigate2(var URL: OleVariant); overload; + procedure Navigate2(var URL: OleVariant; var Flags: OleVariant); overload; + procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant); overload; + procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant); overload; + procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant; + var Headers: OleVariant); overload; + function QueryStatusWB(cmdID: OLECMDID): OLECMDF; + procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload; + procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant); overload; + procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; + var pvaOut: OleVariant); overload; + procedure ShowBrowserBar(var pvaClsid: OleVariant); overload; + procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant); overload; + procedure ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant; + var pvarSize: OleVariant); overload; + property ControlInterface: IWebBrowser2 read GetControlInterface; + property DefaultInterface: IWebBrowser2 read GetControlInterface; + property Application: IDispatch index 200 read GetIDispatchProp; + property Parent: IDispatch index 201 read GetIDispatchProp; + property Container: IDispatch index 202 read GetIDispatchProp; + property Document: IDispatch index 203 read GetIDispatchProp; + property TopLevelContainer: WordBool index 204 read GetWordBoolProp; + property Type_: WideString index 205 read GetWideStringProp; + property LocationName: WideString index 210 read GetWideStringProp; + property LocationURL: WideString index 211 read GetWideStringProp; + property Busy: WordBool index 212 read GetWordBoolProp; + property Name: WideString index 0 read GetWideStringProp; + property HWND: Integer index -515 read GetIntegerProp; + property FullName: WideString index 400 read GetWideStringProp; + property Path: WideString index 401 read GetWideStringProp; + property ReadyState: TOleEnum index -525 read GetTOleEnumProp; + published + property TabStop; + property Align; + property DragCursor; + property DragMode; + property ParentShowHint; + property PopupMenu; + property ShowHint; + property TabOrder; + property OnDragDrop; + property OnDragOver; + property OnEndDrag; + property OnEnter; + property OnExit; + property OnStartDrag; + property Visible: WordBool index 402 read GetWordBoolProp write SetWordBoolProp stored False; + property StatusBar: WordBool index 403 read GetWordBoolProp write SetWordBoolProp stored False; + property StatusText: WideString index 404 read GetWideStringProp write SetWideStringProp stored False; + property ToolBar: Integer index 405 read GetIntegerProp write SetIntegerProp stored False; + property MenuBar: WordBool index 406 read GetWordBoolProp write SetWordBoolProp stored False; + property FullScreen: WordBool index 407 read GetWordBoolProp write SetWordBoolProp stored False; + property Offline: WordBool index 550 read GetWordBoolProp write SetWordBoolProp stored False; + property Silent: WordBool index 551 read GetWordBoolProp write SetWordBoolProp stored False; + property RegisterAsBrowser: WordBool index 552 read GetWordBoolProp write SetWordBoolProp stored False; + property RegisterAsDropTarget: WordBool index 553 read GetWordBoolProp write SetWordBoolProp stored False; + property TheaterMode: WordBool index 554 read GetWordBoolProp write SetWordBoolProp stored False; + property AddressBar: WordBool index 555 read GetWordBoolProp write SetWordBoolProp stored False; + property Resizable: WordBool index 556 read GetWordBoolProp write SetWordBoolProp stored False; + property OnStatusTextChange: TWebBrowserStatusTextChange read FOnStatusTextChange write FOnStatusTextChange; + property OnProgressChange: TWebBrowserProgressChange read FOnProgressChange write FOnProgressChange; + property OnCommandStateChange: TWebBrowserCommandStateChange read FOnCommandStateChange write FOnCommandStateChange; + property OnDownloadBegin: TNotifyEvent read FOnDownloadBegin write FOnDownloadBegin; + property OnDownloadComplete: TNotifyEvent read FOnDownloadComplete write FOnDownloadComplete; + property OnTitleChange: TWebBrowserTitleChange read FOnTitleChange write FOnTitleChange; + property OnPropertyChange: TWebBrowserPropertyChange read FOnPropertyChange write FOnPropertyChange; + property OnBeforeNavigate2: TWebBrowserBeforeNavigate2 read FOnBeforeNavigate2 write FOnBeforeNavigate2; + property OnNewWindow2: TWebBrowserNewWindow2 read FOnNewWindow2 write FOnNewWindow2; + property OnNavigateComplete2: TWebBrowserNavigateComplete2 read FOnNavigateComplete2 write FOnNavigateComplete2; + property OnDocumentComplete: TWebBrowserDocumentComplete read FOnDocumentComplete write FOnDocumentComplete; + property OnQuit: TNotifyEvent read FOnQuit write FOnQuit; + property OnVisible: TWebBrowserOnVisible read FOnVisible write FOnVisible; + property OnToolBar: TWebBrowserOnToolBar read FOnToolBar write FOnToolBar; + property OnMenuBar: TWebBrowserOnMenuBar read FOnMenuBar write FOnMenuBar; + property OnStatusBar: TWebBrowserOnStatusBar read FOnStatusBar write FOnStatusBar; + property OnFullScreen: TWebBrowserOnFullScreen read FOnFullScreen write FOnFullScreen; + property OnTheaterMode: TWebBrowserOnTheaterMode read FOnTheaterMode write FOnTheaterMode; + property OnWindowSetResizable: TWebBrowserWindowSetResizable read FOnWindowSetResizable write FOnWindowSetResizable; + property OnWindowSetLeft: TWebBrowserWindowSetLeft read FOnWindowSetLeft write FOnWindowSetLeft; + property OnWindowSetTop: TWebBrowserWindowSetTop read FOnWindowSetTop write FOnWindowSetTop; + property OnWindowSetWidth: TWebBrowserWindowSetWidth read FOnWindowSetWidth write FOnWindowSetWidth; + property OnWindowSetHeight: TWebBrowserWindowSetHeight read FOnWindowSetHeight write FOnWindowSetHeight; + property OnWindowClosing: TWebBrowserWindowClosing read FOnWindowClosing write FOnWindowClosing; + property OnClientToHostWindow: TWebBrowserClientToHostWindow read FOnClientToHostWindow write FOnClientToHostWindow; + property OnSetSecureLockIcon: TWebBrowserSetSecureLockIcon read FOnSetSecureLockIcon write FOnSetSecureLockIcon; + property OnFileDownload: TWebBrowserFileDownload read FOnFileDownload write FOnFileDownload; + end; + +// *********************************************************************// +// The Class CoInternetExplorer provides a Create and CreateRemote method to +// create instances of the default interface IWebBrowser2 exposed by +// the CoClass InternetExplorer. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoInternetExplorer = class + class function Create: IWebBrowser2; + class function CreateRemote(const MachineName: string): IWebBrowser2; + end; + +// *********************************************************************// +// The Class CoShellBrowserWindow provides a Create and CreateRemote method to +// create instances of the default interface IWebBrowser2 exposed by +// the CoClass ShellBrowserWindow. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoShellBrowserWindow = class + class function Create: IWebBrowser2; + class function CreateRemote(const MachineName: string): IWebBrowser2; + end; + +// *********************************************************************// +// The Class CoShellWindows provides a Create and CreateRemote method to +// create instances of the default interface IShellWindows exposed by +// the CoClass ShellWindows. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoShellWindows = class + class function Create: IShellWindows; + class function CreateRemote(const MachineName: string): IShellWindows; + end; + +// *********************************************************************// +// The Class CoShellUIHelper provides a Create and CreateRemote method to +// create instances of the default interface IShellUIHelper exposed by +// the CoClass ShellUIHelper. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoShellUIHelper = class + class function Create: IShellUIHelper; + class function CreateRemote(const MachineName: string): IShellUIHelper; + end; + +// *********************************************************************// +// The Class CoShellNameSpace provides a Create and CreateRemote method to +// create instances of the default interface IShellNameSpace exposed by +// the CoClass ShellNameSpace. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoShellNameSpace = class + class function Create: IShellNameSpace; + class function CreateRemote(const MachineName: string): IShellNameSpace; + end; + +// *********************************************************************// +// The Class CoCScriptErrorList provides a Create and CreateRemote method to +// create instances of the default interface IScriptErrorList exposed by +// the CoClass CScriptErrorList. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoCScriptErrorList = class + class function Create: IScriptErrorList; + class function CreateRemote(const MachineName: string): IScriptErrorList; + end; + +// *********************************************************************// +// The Class CoSearchAssistantOC provides a Create and CreateRemote method to +// create instances of the default interface ISearchAssistantOC2 exposed by +// the CoClass SearchAssistantOC. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoSearchAssistantOC = class + class function Create: ISearchAssistantOC2; + class function CreateRemote(const MachineName: string): ISearchAssistantOC2; + end; + +procedure Register; + +resourcestring + dtlServerPage = 'ActiveX'; + +implementation + +uses ComObj; + +procedure TWebBrowser_V1.InitControlData; +const + CEventDispIDs: array [0..16] of DWORD = ( + $00000064, $00000065, $00000066, $0000006C, $00000068, $00000069, + $0000006A, $0000006B, $00000071, $000000C8, $000000C9, $000000CC, + $00000067, $0000006D, $0000006E, $0000006F, $00000070); + CControlData: TControlData2 = ( + ClassID: '{EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}'; + EventIID: '{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}'; + EventCount: 17; + EventDispIDs: @CEventDispIDs; + LicenseKey: nil (*HR:$80040154*); + Flags: $00000000; + Version: 401); +begin + ControlData := @CControlData; + TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnBeforeNavigate) - Cardinal(Self); +end; + +procedure TWebBrowser_V1.CreateControl; + + procedure DoCreate; + begin + FIntf := IUnknown(OleObject) as IWebBrowser; + end; + +begin + if FIntf = nil then DoCreate; +end; + +function TWebBrowser_V1.GetControlInterface: IWebBrowser; +begin + CreateControl; + Result := FIntf; +end; + +function TWebBrowser_V1.Get_Application: IDispatch; +begin + Result := DefaultInterface.Application; +end; + +function TWebBrowser_V1.Get_Parent: IDispatch; +begin + Result := DefaultInterface.Parent; +end; + +function TWebBrowser_V1.Get_Container: IDispatch; +begin + Result := DefaultInterface.Container; +end; + +function TWebBrowser_V1.Get_Document: IDispatch; +begin + Result := DefaultInterface.Document; +end; + +procedure TWebBrowser_V1.GoBack; +begin + DefaultInterface.GoBack; +end; + +procedure TWebBrowser_V1.GoForward; +begin + DefaultInterface.GoForward; +end; + +procedure TWebBrowser_V1.GoHome; +begin + DefaultInterface.GoHome; +end; + +procedure TWebBrowser_V1.GoSearch; +begin + DefaultInterface.GoSearch; +end; + +procedure TWebBrowser_V1.Navigate(const URL: WideString); +begin + DefaultInterface.Navigate(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam); +end; + +procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant); +begin + DefaultInterface.Navigate(URL, Flags, EmptyParam, EmptyParam, EmptyParam); +end; + +procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant; + var TargetFrameName: OleVariant); +begin + DefaultInterface.Navigate(URL, Flags, TargetFrameName, EmptyParam, EmptyParam); +end; + +procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant); +begin + DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, EmptyParam); +end; + +procedure TWebBrowser_V1.Navigate(const URL: WideString; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant; + var Headers: OleVariant); +begin + DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, Headers); +end; + +procedure TWebBrowser_V1.Refresh; +begin + DefaultInterface.Refresh; +end; + +procedure TWebBrowser_V1.Refresh2; +begin + DefaultInterface.Refresh2(EmptyParam); +end; + +procedure TWebBrowser_V1.Refresh2(var Level: OleVariant); +begin + DefaultInterface.Refresh2(Level); +end; + +procedure TWebBrowser_V1.Stop; +begin + DefaultInterface.Stop; +end; + +procedure TWebBrowser.InitControlData; +const + CEventDispIDs: array [0..26] of DWORD = ( + $00000066, $0000006C, $00000069, $0000006A, $00000068, $00000071, + $00000070, $000000FA, $000000FB, $000000FC, $00000103, $000000FD, + $000000FE, $000000FF, $00000100, $00000101, $00000102, $00000104, + $00000106, $00000108, $00000109, $0000010A, $0000010B, $00000107, + $0000010C, $0000010D, $0000010E); + CControlData: TControlData2 = ( + ClassID: '{8856F961-340A-11D0-A96B-00C04FD705A2}'; + EventIID: '{34A715A0-6587-11D0-924A-0020AFC7AC4D}'; + EventCount: 27; + EventDispIDs: @CEventDispIDs; + LicenseKey: nil (*HR:$80040154*); + Flags: $00000000; + Version: 401); +begin + ControlData := @CControlData; + TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnStatusTextChange) - Cardinal(Self); +end; + +procedure TWebBrowser.CreateControl; + + procedure DoCreate; + begin + FIntf := IUnknown(OleObject) as IWebBrowser2; + end; + +begin + if FIntf = nil then DoCreate; +end; + +function TWebBrowser.GetControlInterface: IWebBrowser2; +begin + CreateControl; + Result := FIntf; +end; + +function TWebBrowser.Get_Application: IDispatch; +begin + Result := DefaultInterface.Application; +end; + +function TWebBrowser.Get_Parent: IDispatch; +begin + Result := DefaultInterface.Parent; +end; + +function TWebBrowser.Get_Container: IDispatch; +begin + Result := DefaultInterface.Container; +end; + +function TWebBrowser.Get_Document: IDispatch; +begin + Result := DefaultInterface.Document; +end; + +procedure TWebBrowser.GoBack; +begin + DefaultInterface.GoBack; +end; + +procedure TWebBrowser.GoForward; +begin + DefaultInterface.GoForward; +end; + +procedure TWebBrowser.GoHome; +begin + DefaultInterface.GoHome; +end; + +procedure TWebBrowser.GoSearch; +begin + DefaultInterface.GoSearch; +end; + +procedure TWebBrowser.Navigate(const URL: WideString); +begin + DefaultInterface.Navigate(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam); +end; + +procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant); +begin + DefaultInterface.Navigate(URL, Flags, EmptyParam, EmptyParam, EmptyParam); +end; + +procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant; + var TargetFrameName: OleVariant); +begin + DefaultInterface.Navigate(URL, Flags, TargetFrameName, EmptyParam, EmptyParam); +end; + +procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant); +begin + DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, EmptyParam); +end; + +procedure TWebBrowser.Navigate(const URL: WideString; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant; + var Headers: OleVariant); +begin + DefaultInterface.Navigate(URL, Flags, TargetFrameName, PostData, Headers); +end; + +procedure TWebBrowser.Refresh; +begin + DefaultInterface.Refresh; +end; + +procedure TWebBrowser.Refresh2; +begin + DefaultInterface.Refresh2(EmptyParam); +end; + +procedure TWebBrowser.Refresh2(var Level: OleVariant); +begin + DefaultInterface.Refresh2(Level); +end; + +procedure TWebBrowser.Stop; +begin + DefaultInterface.Stop; +end; + +procedure TWebBrowser.Quit; +begin + DefaultInterface.Quit; +end; + +procedure TWebBrowser.ClientToWindow(var pcx: SYSINT; var pcy: SYSINT); +begin + DefaultInterface.ClientToWindow(pcx, pcy); +end; + +procedure TWebBrowser.PutProperty(const Property_: WideString; vtValue: OleVariant); +begin + DefaultInterface.PutProperty(Property_, vtValue); +end; + +function TWebBrowser.GetProperty(const Property_: WideString): OleVariant; +begin + Result := DefaultInterface.GetProperty(Property_); +end; + +procedure TWebBrowser.Navigate2(var URL: OleVariant); +begin + DefaultInterface.Navigate2(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam); +end; + +procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant); +begin + DefaultInterface.Navigate2(URL, Flags, EmptyParam, EmptyParam, EmptyParam); +end; + +procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant; + var TargetFrameName: OleVariant); +begin + DefaultInterface.Navigate2(URL, Flags, TargetFrameName, EmptyParam, EmptyParam); +end; + +procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant); +begin + DefaultInterface.Navigate2(URL, Flags, TargetFrameName, PostData, EmptyParam); +end; + +procedure TWebBrowser.Navigate2(var URL: OleVariant; var Flags: OleVariant; + var TargetFrameName: OleVariant; var PostData: OleVariant; + var Headers: OleVariant); +begin + DefaultInterface.Navigate2(URL, Flags, TargetFrameName, PostData, Headers); +end; + +function TWebBrowser.QueryStatusWB(cmdID: OLECMDID): OLECMDF; +begin + Result := DefaultInterface.QueryStatusWB(cmdID); +end; + +procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); +begin + DefaultInterface.ExecWB(cmdID, cmdexecopt, EmptyParam, EmptyParam); +end; + +procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant); +begin + DefaultInterface.ExecWB(cmdID, cmdexecopt, pvaIn, EmptyParam); +end; + +procedure TWebBrowser.ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant; + var pvaOut: OleVariant); +begin + DefaultInterface.ExecWB(cmdID, cmdexecopt, pvaIn, pvaOut); +end; + +procedure TWebBrowser.ShowBrowserBar(var pvaClsid: OleVariant); +begin + DefaultInterface.ShowBrowserBar(pvaClsid, EmptyParam, EmptyParam); +end; + +procedure TWebBrowser.ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant); +begin + DefaultInterface.ShowBrowserBar(pvaClsid, pvarShow, EmptyParam); +end; + +procedure TWebBrowser.ShowBrowserBar(var pvaClsid: OleVariant; var pvarShow: OleVariant; + var pvarSize: OleVariant); +begin + DefaultInterface.ShowBrowserBar(pvaClsid, pvarShow, pvarSize); +end; + +class function CoInternetExplorer.Create: IWebBrowser2; +begin + Result := CreateComObject(CLASS_InternetExplorer) as IWebBrowser2; +end; + +class function CoInternetExplorer.CreateRemote(const MachineName: string): IWebBrowser2; +begin + Result := CreateRemoteComObject(MachineName, CLASS_InternetExplorer) as IWebBrowser2; +end; + +class function CoShellBrowserWindow.Create: IWebBrowser2; +begin + Result := CreateComObject(CLASS_ShellBrowserWindow) as IWebBrowser2; +end; + +class function CoShellBrowserWindow.CreateRemote(const MachineName: string): IWebBrowser2; +begin + Result := CreateRemoteComObject(MachineName, CLASS_ShellBrowserWindow) as IWebBrowser2; +end; + +class function CoShellWindows.Create: IShellWindows; +begin + Result := CreateComObject(CLASS_ShellWindows) as IShellWindows; +end; + +class function CoShellWindows.CreateRemote(const MachineName: string): IShellWindows; +begin + Result := CreateRemoteComObject(MachineName, CLASS_ShellWindows) as IShellWindows; +end; + +class function CoShellUIHelper.Create: IShellUIHelper; +begin + Result := CreateComObject(CLASS_ShellUIHelper) as IShellUIHelper; +end; + +class function CoShellUIHelper.CreateRemote(const MachineName: string): IShellUIHelper; +begin + Result := CreateRemoteComObject(MachineName, CLASS_ShellUIHelper) as IShellUIHelper; +end; + +class function CoShellNameSpace.Create: IShellNameSpace; +begin + Result := CreateComObject(CLASS_ShellNameSpace) as IShellNameSpace; +end; + +class function CoShellNameSpace.CreateRemote(const MachineName: string): IShellNameSpace; +begin + Result := CreateRemoteComObject(MachineName, CLASS_ShellNameSpace) as IShellNameSpace; +end; + +class function CoCScriptErrorList.Create: IScriptErrorList; +begin + Result := CreateComObject(CLASS_CScriptErrorList) as IScriptErrorList; +end; + +class function CoCScriptErrorList.CreateRemote(const MachineName: string): IScriptErrorList; +begin + Result := CreateRemoteComObject(MachineName, CLASS_CScriptErrorList) as IScriptErrorList; +end; + +class function CoSearchAssistantOC.Create: ISearchAssistantOC2; +begin + Result := CreateComObject(CLASS_SearchAssistantOC) as ISearchAssistantOC2; +end; + +class function CoSearchAssistantOC.CreateRemote(const MachineName: string): ISearchAssistantOC2; +begin + Result := CreateRemoteComObject(MachineName, CLASS_SearchAssistantOC) as ISearchAssistantOC2; +end; + +procedure Register; +begin + RegisterComponents('ActiveX',[TWebBrowser_V1, TWebBrowser]); +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/common/ToolsUtils.pas b/official/2.1.1/examples/windows/delphitools/common/ToolsUtils.pas new file mode 100644 index 0000000..4eac6df --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/common/ToolsUtils.pas @@ -0,0 +1,380 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is ToolsUtils.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2008-09-09 21:32:17 +0200 (mar., 09 sept. 2008) $ } +{ } +{**************************************************************************************************} + +unit ToolsUtils; + +{$I JCL.INC} + +interface + +uses + Windows, Classes, SysUtils, ComCtrls, Math, ComObj, ActiveX, Controls, Forms, + ImageHlp, JclFileUtils, JclStrings, JclSysInfo, JclRegistry, JclShell; + +const + PeViewerClassName = 'PeViewer.PeViewerControl'; + +function CreateOrGetOleObject(const ClassName: string): IDispatch; + +function FmtStrToInt(S: string): Integer; + +function GetImageBase(const FileName: TFileName): DWORD; + +function IntToExtended(I: Integer): Extended; + +function InfoTipVersionString(const FileName: TFileName): string; + +function IsPeViewerRegistred: Boolean; + +procedure LVColumnClick(Column: TListColumn); + +procedure LVCompare(ListView: TListView; Item1, Item2: TListItem; var Compare: Integer); + +procedure ListViewFocusFirstItem(ListView: TListView); + +procedure ListViewSelectAll(ListView: TListView; Deselect: Boolean = False); + +procedure ListViewToStrings(ListView: TListView; Strings: TStrings; + SelectedOnly: Boolean = False; Headers: Boolean = True); + +function MessBox(const Text: string; Flags: Word): Integer; + +function MessBoxFmt(const Fmt: string; const Args: array of const; Flags: Word): Integer; + +function SafeSubItemString(Item: TListItem; SubItemIndex: Integer): string; + +procedure SendEmail; + +procedure ShowToolsAboutBox; + +function Win32HelpFileName: TFileName; + +procedure Fix_ListViewBeforeClose(Form: TForm); + +procedure D4FixCoolBarResizePaint(CoolBar: TObject); + +implementation + +uses + About, CommCtrl, JclPeImage, JclWin32; + +resourcestring + RsJCLLink = 'JEDI Code Library;http://delphi-jedi.org/Jedi:CODELIBJCL'; + RsEmailAddress = 'mailto:petr.v@mujmail.cz?subject=[Delphi Tools]'; + +function StrEmpty(const S: string): Boolean; +begin + Result := Length(Trim(S)) = 0; +end; + +function CreateOrGetOleObject(const ClassName: string): IDispatch; +var + ClassID: TCLSID; + Res: HResult; + Unknown: IUnknown; +begin + ClassID := ProgIDToClassID(ClassName); + Res := GetActiveObject(ClassID, nil, Unknown); + if Succeeded(Res) then + OleCheck(Unknown.QueryInterface(IDispatch, Result)) + else + begin + if Res <> MK_E_UNAVAILABLE then OleError(Res); + OleCheck(CoCreateInstance(ClassID, nil, CLSCTX_INPROC_SERVER or + CLSCTX_LOCAL_SERVER, IDispatch, Result)); + end; +end; + +function FmtStrToInt(S: string): Integer; +var + I: Integer; +begin + I := 1; + while I <= Length(S) do + if (not CharIsDigit(S[I])) and (S[I] <> '-') then + Delete(S, I, 1) + else + Inc(I); + Result := StrToIntDef(S, 0); +end; + +function GetImageBase(const FileName: TFileName): DWORD; +var + NtHeaders32: TImageNtHeaders32; + NtHeaders64: TImageNtHeaders64; + ImageStream: TMemoryStream; + PETarget: TJclPeTarget; +begin + ImageStream := TMemoryStream.Create; + try + ImageStream.LoadFromFile(FileName); + PETarget := PeMapImgTarget(ImageStream.Memory); + finally + ImageStream.Free; + end; + if (PETarget = taWin32) and PeGetNtHeaders32(FileName, NtHeaders32) then + Result := NtHeaders32.OptionalHeader.ImageBase + else + if (PETarget = taWin64) and PeGetNtHeaders64(FileName, NtHeaders64) then + Result := NtHeaders64.OptionalHeader.ImageBase + else + Result := 0; +end; + +function IntToExtended(I: Integer): Extended; +begin + Result := I; +end; + +function InfoTipVersionString(const FileName: TFileName): string; +begin + Result := ''; + if VersionResourceAvailable(FileName) then + try + with TJclFileVersionInfo.Create(FileName) do + try + if not StrEmpty(FileVersion) then Result := FileVersion; + if not StrEmpty(FileDescription) then + Result := Format('%s'#13#10'%s', [Result, FileDescription]) + finally + Free; + end; + except + end; +end; + +function IsPeViewerRegistred: Boolean; +begin + Result := RegReadStringDef(HKEY_CLASSES_ROOT, PeViewerClassName, '', '') <> ''; +end; + +procedure LVColumnClick(Column: TListColumn); +var + ColIndex: Integer; + ListView: TListView; +begin + ListView := TListColumns(Column.Collection).Owner as TListView; + ColIndex := Column.Index; + with ListView do + begin + if Tag and $FF = ColIndex then + Tag := Tag xor $100 + else + Tag := ColIndex; + AlphaSort; + if Selected <> nil then Selected.MakeVisible(False); + end; +end; + +procedure LVCompare(ListView: TListView; Item1, Item2: TListItem; var Compare: Integer); +var + ColIndex: Integer; +begin + with ListView do + begin + ColIndex := Tag and $FF - 1; + if Columns[ColIndex + 1].Alignment = taLeftJustify then + begin + if ColIndex = -1 then + Compare := AnsiCompareText(Item1.Caption, Item2.Caption) + else + Compare := AnsiCompareText(Item1.SubItems[ColIndex], Item2.SubItems[ColIndex]); + end else + begin + if ColIndex = -1 then + Compare := FmtStrToInt(Item1.Caption) - FmtStrToInt(Item2.Caption) + else + Compare := FmtStrToInt(Item1.SubItems[ColIndex]) - FmtStrToInt(Item2.SubItems[ColIndex]); + end; + if Tag and $100 <> 0 then Compare := -Compare; + end; +end; + +procedure ListViewFocusFirstItem(ListView: TListView); +begin + with ListView do + if Items.Count > 0 then + begin + ItemFocused := Items[0]; + ItemFocused.Selected := True; + ItemFocused.MakeVisible(False); + end; +end; + +procedure ListViewSelectAll(ListView: TListView; Deselect: Boolean); +var + I: Integer; + H: THandle; + Data: Integer; + SaveOnSelectItem: TLVSelectItemEvent; +begin + with ListView do if MultiSelect then + begin + Items.BeginUpdate; + SaveOnSelectItem := OnSelectItem; + Screen.Cursor := crHourGlass; + try + H := Handle; + OnSelectItem := nil; + if Deselect then Data := 0 else Data := LVIS_SELECTED; + for I := 0 to Items.Count - 1 do + ListView_SetItemState(H, I, Data, LVIS_SELECTED); + finally + OnSelectItem := SaveOnSelectItem; + Items.EndUpdate; + Screen.Cursor := crDefault; + end; + end; +end; + +procedure ListViewToStrings(ListView: TListView; Strings: TStrings; + SelectedOnly: Boolean = False; Headers: Boolean = True); +var + R, C: Integer; + ColWidths: array of Word; + S: String; + + procedure AddLine; +begin + Strings.Add(TrimRight(S)); +end; + + function MakeCellStr(const Text: String; Index: Integer): String; +begin + with ListView.Columns[Index] do + if Alignment = taLeftJustify then + Result := StrPadRight(Text, ColWidths[Index] + 1) + else + Result := StrPadLeft(Text, ColWidths[Index]) + ' '; +end; + +begin + SetLength(S, 256); + with ListView do + begin + SetLength(ColWidths, Columns.Count); + if Headers then + for C := 0 to Columns.Count - 1 do + ColWidths[C] := Length(Trim(Columns[C].Caption)); + for R := 0 to Items.Count - 1 do + if not SelectedOnly or Items[R].Selected then + begin + ColWidths[0] := Max(ColWidths[0], Length(Trim(Items[R].Caption))); + for C := 0 to Items[R].SubItems.Count - 1 do + ColWidths[C + 1] := Max(ColWidths[C + 1], Length(Trim(Items[R].SubItems[C]))); + end; + Strings.BeginUpdate; + try + if Headers then + with Columns do + begin + S := ''; + for C := 0 to Count - 1 do + S := S + MakeCellStr(Items[C].Caption, C); + AddLine; + S := ''; + for C := 0 to Count - 1 do + S := S + StringOfChar('-', ColWidths[C]) + ' '; + AddLine; + end; + for R := 0 to Items.Count - 1 do + if not SelectedOnly or Items[R].Selected then + with Items[R] do + begin + S := MakeCellStr(Caption, 0); + for C := 0 to Min(SubItems.Count, Columns.Count - 1) - 1 do + S := S + MakeCellStr(SubItems[C], C + 1); + AddLine; + end; + finally + Strings.EndUpdate; + end; + end; +end; + +function MessBox(const Text: string; Flags: Word): Integer; +begin + with Application do Result := MessageBox(PChar(Text), PChar(Title), Flags); +end; + +function MessBoxFmt(const Fmt: string; const Args: array of const; Flags: Word): Integer; +begin + Result := MessBox(Format(Fmt, Args), Flags); +end; + +function SafeSubItemString(Item: TListItem; SubItemIndex: Integer): string; +begin + if Item.SubItems.Count > SubItemIndex then + Result := Item.SubItems[SubItemIndex] + else + Result := '' +end; + +procedure SendEmail; +begin + ShellExecEx(RsEmailAddress); +end; + +procedure ShowToolsAboutBox; +begin + ShowAbout([RsJCLLink], 18); +end; + +function Win32HelpFileName: TFileName; +begin + Result := RegReadStringDef(HKEY_LOCAL_MACHINE, + 'SOFTWARE\Borland\Borland Shared\MSHelp', 'RootDir', '') + '\Win32.hlp'; + if not FileExists(Result) then Result := ''; +end; + +procedure Fix_ListViewBeforeClose(Form: TForm); +var + I: Integer; +begin + with Form do + for I := 0 to ComponentCount - 1 do + if Components[I] is TListView then + with TListView(Components[I]) do + if OwnerData then Items.Count := 0; +end; + +procedure D4FixCoolBarResizePaint(CoolBar: TObject); +{$IFDEF DELPHI4} +var + R: TRect; +begin + with CoolBar as TCoolBar do + begin + R := ClientRect; + R.Left := R.Right - 8; + InvalidateRect(Handle, @R, True); + end; +end; +{$ELSE} +begin +end; +{$ENDIF} + +end. diff --git a/official/2.1.1/examples/windows/delphitools/dependencyviewer/DependView.dof b/official/2.1.1/examples/windows/delphitools/dependencyviewer/DependView.dof new file mode 100644 index 0000000..3b9e1ca --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/dependencyviewer/DependView.dof @@ -0,0 +1,134 @@ +[FileVersion] +Version=7.0 +[Compiler] +A=8 +B=0 +C=1 +D=1 +E=0 +F=0 +G=1 +H=1 +I=1 +J=0 +K=0 +L=1 +M=0 +N=1 +O=1 +P=1 +Q=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=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription= +[Directories] +OutputDir=..\..\..\..\bin +UnitOutputDir= +PackageDLLOutputDir= +PackageDCPOutputDir= +SearchPath=..\..\..\..\source\include;..\..\..\..\source\common;..\..\..\..\source\windows;..\..\..\..\source\vcl +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication= +Launcher= +UseLauncher=0 +DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir= +[Version Info] +IncludeVerInfo=1 +AutoIncBuild=0 +MajorVer=0 +MinorVer=5 +Release=4 +Build=9 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=1033 +CodePage=1252 +[Version Info Keys] +CompanyName=Petr Vones +FileDescription=Dependency Viewer +FileVersion=0.5.4.9 +InternalName=DEPENDVIEW +LegalCopyright=(c) 2002 Petr Vones +LegalTrademarks= +OriginalFilename=DEPENDVIEW.EXE +ProductName=Dependency Viewer +ProductVersion=0.5.4 diff --git a/official/2.1.1/examples/windows/delphitools/dependencyviewer/DependView.dpr b/official/2.1.1/examples/windows/delphitools/dependencyviewer/DependView.dpr new file mode 100644 index 0000000..a4fe8a4 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/dependencyviewer/DependView.dpr @@ -0,0 +1,24 @@ +program DependView; + +{$I jcl.inc} + +uses + Forms, + SysUtils, + D6MdiMsgFix in '..\Common\D6MdiMsgFix.pas', + DependViewMain in 'DependViewMain.pas' {MainForm}, + FileViewer in 'FileViewer.pas' {FileViewerChild}, + ToolsUtils in '..\Common\ToolsUtils.pas', + About in '..\Common\About.pas' {AboutBox}, + FindDlg in '..\Common\FindDlg.pas' {FindTextForm}, + ExceptDlg in '..\..\..\..\experts\debug\dialog\ExceptDlg.pas' {ExceptionDialog}; + +{$R *.RES} +{$R ..\..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.Title := 'Dependency Viewer'; + Application.CreateForm(TMainForm, MainForm); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/delphitools/dependencyviewer/DependView.res b/official/2.1.1/examples/windows/delphitools/dependencyviewer/DependView.res new file mode 100644 index 0000000000000000000000000000000000000000..e3af7732026673895239e9ef31b2ad54e6db1b08 GIT binary patch literal 1672 zcmd^;!EX{#5XL|1*4o%uVtRKE9;%0i7&P`&O({teY>74K!K5LGNNj;njPb_*MNPPO z{|FBryy?*c5q~qwb{FN)lNTqbBf(V?ktv}#81Ovys>gbhZ>K^1dN1j(|BWzd71NXiDoj3MA2w8a+f>SqS1MD z;f}F6)-KKoy2I@#wIhpj+vA2x?btiBE##;x*>UX@&*i!M|E0|*Vv0V$cp5lHsU6S6 zZNsEu|BQ*W^HaL>Ls~ceBCY%@-H=p3r_)<{rl;E10lKS0_C&Jp!d^p8VVL(m$hXWr6sklddv6*<;)q+`}SJ?FIV6^^}LnX}2~;QKGjx6FA}!R5Z=QQ@)Zyu9`| zd8C2*YOAA`%IqgH>f4n1YIQx{Vg$V2mE=Ci!;3oT{ff_)m0Q$7*_!D!b(k zVcjL#)S3G$y3M_$PRacZuipdTcB}y{(nC9X<7RJ)nAx8SLq$QBg%3)TwZ% + Color = clBtnFace + ParentColor = False + OnResize = CoolBar1Resize + object ToolBar1: TToolBar + Left = 9 + Top = 0 + Width = 519 + Height = 22 + AutoSize = True + Caption = 'ToolBar1' + EdgeBorders = [] + Flat = True + Images = ToolbarImagesList + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + Action = Open1 + end + object ToolButton10: TToolButton + Left = 23 + Top = 0 + Width = 8 + Caption = 'ToolButton10' + ImageIndex = 18 + Style = tbsSeparator + end + object ToolButton8: TToolButton + Left = 31 + Top = 0 + Action = Copy1 + end + object ToolButton9: TToolButton + Left = 54 + Top = 0 + Action = Save1 + end + object ToolButton6: TToolButton + Left = 77 + Top = 0 + Action = Find1 + end + object ToolButton7: TToolButton + Left = 100 + Top = 0 + Width = 8 + Caption = 'ToolButton7' + ImageIndex = 19 + Style = tbsSeparator + end + object ToolButton2: TToolButton + Left = 108 + Top = 0 + Action = DumpPe1 + end + object ToolButton12: TToolButton + Left = 131 + Top = 0 + Action = Win32Help1 + end + object ToolButton11: TToolButton + Left = 154 + Top = 0 + Width = 8 + Caption = 'ToolButton11' + ImageIndex = 18 + Style = tbsSeparator + end + object ToolButton3: TToolButton + Left = 162 + Top = 0 + Action = WindowCascade1 + end + object ToolButton4: TToolButton + Left = 185 + Top = 0 + Action = WindowTileHorizontal1 + end + object ToolButton5: TToolButton + Left = 208 + Top = 0 + Action = WindowTileVertical1 + end + end + end + object StatusBar: TStatusBar + Left = 0 + Top = 302 + Width = 536 + Height = 19 + Panels = < + item + Width = 50 + end> + end + object MainMenu: TMainMenu + Images = ToolbarImagesList + Left = 8 + Top = 272 + object File1: TMenuItem + Caption = 'File' + object Open2: TMenuItem + Action = Open1 + end + object Save2: TMenuItem + Action = Save1 + end + object N3: TMenuItem + Caption = '-' + end + object DumpPEfile1: TMenuItem + Action = DumpPe1 + end + object N1: TMenuItem + Caption = '-' + end + object Exit2: TMenuItem + Action = Exit1 + end + end + object Edit1: TMenuItem + Caption = 'Edit' + object Copy2: TMenuItem + Action = Copy1 + end + object Selectall2: TMenuItem + Action = SelectAll1 + end + object N4: TMenuItem + Caption = '-' + end + object Findtext1: TMenuItem + Action = Find1 + end + end + object Window1: TMenuItem + Caption = 'Window' + object Cascade1: TMenuItem + Action = WindowCascade1 + end + object TileHorizontally1: TMenuItem + Action = WindowTileHorizontal1 + end + object TileVertically1: TMenuItem + Action = WindowTileVertical1 + end + end + object Help1: TMenuItem + Caption = 'Help' + object Win32helpkeyword1: TMenuItem + Action = Win32Help1 + end + object N2: TMenuItem + Caption = '-' + end + object Sendamessage1: TMenuItem + Action = SendMail1 + end + object About2: TMenuItem + Action = About1 + end + end + end + object ActionList1: TActionList + Images = ToolbarImagesList + Left = 40 + Top = 272 + object Exit1: TAction + Caption = 'Exit' + Hint = 'Exit application' + ImageIndex = 2 + OnExecute = Exit1Execute + end + object Open1: TAction + Caption = 'Open...' + Hint = 'Open a file' + ImageIndex = 0 + ShortCut = 16463 + OnExecute = Open1Execute + end + object WindowCascade1: TWindowCascade + Category = 'Window' + Caption = 'Cascade' + Hint = 'Cascade' + ImageIndex = 5 + end + object WindowTileHorizontal1: TWindowTileHorizontal + Category = 'Window' + Caption = 'Tile Horizontally' + Hint = 'Tile Horizontally' + ImageIndex = 6 + end + object WindowTileVertical1: TWindowTileVertical + Category = 'Window' + Caption = 'Tile Vertically' + Hint = 'Tile Vertically' + ImageIndex = 7 + end + object Copy1: TAction + Caption = 'Copy' + Hint = 'Copy to clipboard' + ImageIndex = 4 + ShortCut = 16451 + OnExecute = Copy1Execute + OnUpdate = Copy1Update + end + object Save1: TAction + Tag = 1 + Caption = 'Save...' + Hint = 'Save to text file' + ImageIndex = 3 + ShortCut = 16467 + OnExecute = Copy1Execute + OnUpdate = Copy1Update + end + object SelectAll1: TAction + Caption = 'Select all' + Hint = 'Select all rows' + ImageIndex = 8 + ShortCut = 16449 + OnExecute = SelectAll1Execute + OnUpdate = SelectAll1Update + end + object Win32Help1: TAction + Caption = 'Find in Win32 API help' + Hint = 'Find in Win32 API help' + ImageIndex = 1 + ShortCut = 112 + OnExecute = Win32Help1Execute + OnUpdate = Win32Help1Update + end + object DumpPe1: TAction + Caption = 'Dump PE file' + Hint = 'Dump PE file' + ImageIndex = 9 + ShortCut = 16452 + OnExecute = DumpPe1Execute + OnUpdate = DumpPe1Update + end + object About1: TAction + Caption = 'About...' + Hint = 'About' + OnExecute = About1Execute + end + object SendMail1: TAction + Caption = 'Support' + ImageIndex = 10 + OnExecute = SendMail1Execute + end + object Find1: TAction + Caption = 'Find text' + Hint = 'Find text' + ImageIndex = 11 + ShortCut = 16454 + OnExecute = Find1Execute + OnUpdate = Find1Update + end + end + object ToolbarImagesList: TImageList + ShareImages = True + Left = 72 + Top = 272 + Bitmap = { + 494C01010C000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 000000000000000000000000000000000000FFFFFF40FFFFFF4000FFFF400000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF408000004080000040800000408000004080000040800000408000 + 004080000040800000408000004080000040FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF408000004080000040800000408000004080000040800000408000 + 004080000040800000408000004080000040FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF400000004000FF + FF407F7F7F40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4000FFFF400000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4000FFFF400000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4000FFFF400000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40000000400000004000000040000000400000004000000040000000400000 + 004000000040000000407F7F7F407F7F7F4000000040000000407F7F7F400000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF408000004000000040000000407F7F7F400000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40800000407F7F7F407F7F7F4000FFFF400000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFFFF40800000408000 + 0040800000408000004080000040800000408000004080000040FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF408000004080000040800000408000004080000040800000408000 + 004080000040800000408000004080000040FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF408000004080000040800000408000004080000040800000408000 + 004080000040800000408000004080000040FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF408000004080000040800000408000004080000040800000408000 + 004080000040800000408000004080000040FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF4000000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF400000004000000040000000407F7F7F4000FFFF4000FFFF400000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40800000407F7F7F4000FFFF4000FFFF400000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40800000400000FF4000000040000000407F7F + 7F40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF408000004080000040800000408000004080000040800000408000 + 004080000040800000408000004080000040FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF408000004080000040800000408000004080000040800000408000 + 004080000040800000408000004080000040FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF4000000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4000000040FFFFFF400000FF400000FF400000FF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF408000004080000040800000400000FF400000FF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF408000004080000040800000400000FF400000FF400000FF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40800000408000004080000040800000408000 + 0040800000408000004080000040FFFFFF4080000040FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408000004080000040800000408000 + 0040800000408000004080000040800000408000004080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF4000000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF400000FF400000FF400000FF400000FF400000FF400000FF400000 + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40800000400000FF400000FF400000FF400000 + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF4080000040000000400000FF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF408000004080000040800000408000004080000040800000408000 + 004080000040800000408000004080000040FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF408000004080000040800000408000004080000040800000408000 + 0040800000408000004080000040800000400000008000000000000000800000 + 0000000000800000000000000080000000000000008000000000000000000000 + 0000000000000000000000000080000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF0000000000000000000000 + 000000000000000000000000000000FFFF0000000080000000000000000000FF + FF00008080000000000000000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000008000000000000000800000 + 00000000008000000000000000000000000000000080000000000000000000FF + FF0000FFFF0000FFFF0000000080000000000000000000FFFF0000FFFF000000 + 00007F7F7F3F7F7F7F007F7F7F0000FFFF0000FFFF3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F0000FFFF0000FFFF000000000000000080000000000000000000FF + FF0000808000000000000000008000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBF00000000000000000000000000000000000000 + 0000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF00000000000000000000000000000000000000 + 00000000000000000000FFFF00BFFFFF0000FFFF000000000000000000000000 + 00007F7F7F3F7F7F7F007F7F7F0000000000000000000000000000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF00000000000000000000000080000000000000000000FF + FF0000808000000000000000000000000000BFBFBFBFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF0000000080000000000000000000000000000000000000 + 0000000000BFFFFFFF000000000000000000000000BFFFFFFF00000000BFFFFF + FF000000000000000000FFFFFF0000000000000000000000FF000000FF000000 + FF000000003F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F0000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF000000003F7F7F7F00000000000000000000000080000000000000000000FF + FF00008080000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000080000000000000000000000000000000000000 + 0000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF0000000000000000000000FF000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF000000003F7F7F7F0000000000000000000000008000000000000000000080 + 8000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000080000000000000000000000000000000000000 + 0000000000BFFFFFFF000000000000000000FFFFFF0000000000000000BFFFFF + FF000000000000000000FFFFFF0000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF0000000000000000BFFFFFFF000000000000000000000000BFFFFF + FF000000003F7F7F7F0000000000000000000000008000000000000000000000 + 00007F7F7FBFBFBFBF0000000000000000000000000000000000000000000000 + 00007F7F7F000000000000000080000000000000000000000000000000000000 + 0000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF0000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF000000003F7F7F7F00000000000000000000000000000000007F7F7FBFBFBF + BF00BFBFBFBFBFBFBF00000000000000000000000000000000007F7F7F3F7F7F + 7F007F7F7F000000000000000080000000000000000000000000000000000000 + 00000000000000000000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000000000 + 0000FFFFFF0000000000FFFFFF0000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF000000000000FFFF0000FFFF0000FFFF000000 + 0000FFFFFF00000000000000000000000000000000BFFFFFFF00000000BFFFFF + FF000000000000FFFF0000FFFF0000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF0000000000000000007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F000000000000000080000000000000000000000000000000000000 + 0000FFFFFF0000FFFF000000000000000000FFFFFF0000000000FFFFFF000000 + 0000FFFFFFBFFFFFFF00FFFFFF0000000000000000BFFFFFFF007F7F7F3F7F7F + 7F00FFFFFF3F7F7F7F007F7F7FBFFFFFFF007F7F7FBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000FFFF0000FFFF000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF000000000000FFFF0000FFFF0000FFFF00000000BFBFBFBF00BFBFBFBFBFBF + BF00000000BFBFBFBF000000003F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F000000000000000080000000000000000000000000000000BFFFFF + FF0000FFFF000000000000FFFFBFFFFFFF00000000BFFFFFFF0000FFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF0000000000000000BFFFFFFF000000000000000000000000000000 + 000000000000000000000000000000000000000000000000FF00BFBFBF000000 + FF00BFBFBFBFBFBFBF000000003F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F000000000000000080000000000000000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF0000FFFF00000000BFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF0000000000000000BFFFFFFF007F7F7F3F7F7F + 7F00FFFFFF3F7F7F7F007F7F7F3F7F7F7F00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000FF000000FF000000FFBFBFBF + BF00BFBFBFBFBFBFBF000000003F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F00000000000000008000000000000000000000000000FFFFBFFFFF + FF0000FFFFBFFFFFFF00000000BFFFFFFF0000FFFF0000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF0000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF0000000000BFBFBFBFFFFFFF00000000BFFFFFFF000000000000FF + FF0000000000000000000000000000000000000000000000FF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBF00000000007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F00000000800000000000000080000000000000000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000BFFFFFFF00FFFFFFBFFFFF + FF00000000000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000 + 0000FFFFFF000000000000000080000000000000000000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF0000000000000000000000000000FF + FF0000FFFF00000000000000000000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBFBFBFBFBF00BFBFBF0000000000000000000000 + 000000000080000000000000008000000000FFFF00000000000000FFFFBFFFFF + FF0000FFFFBFFFFFFF0000FFFF00000000000000000000000000FFFFFFBFFFFF + FF00000000BFFFFFFF00FFFFFF000000000000000000000000007F7F7F000000 + 00007F7F7F00000000007F7F7F00000000007F7F7F00000000007F7F7F000000 + 000000000000000000000000008000000000000000000000000000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF000000000000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBFBFBFBFBF000000003F7F7F7F00000000800000 + 000000000080000000000000008000000000FFFF00BFFFFF00000000000000FF + FF00FFFFFF0000FFFF000000000000FFFF00FFFFFF0000FFFF00000000BFFFFF + FF00000000BFFFFFFF0000000000000000007F7F7F00000000007F7F7F000000 + 00007F7F7F00000000007F7F7F00000000007F7F7F00000000007F7F7F000000 + 0000000000800000000000000080000000000000000000FFFF0000FFFF000000 + 000000000000000000000000000000FFFF0000FFFF0000000000000000000000 + 00000000000000FFFF0000FFFF00000000000000000000000000BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF000000003F7F7F7F000000008000000000000000800000 + 000000000080000000000000008000000000FFFF00BFFFFF0000FFFF00000000 + 000000FFFFBFFFFFFF0000FFFFBFFFFFFF000000000000000000FFFFFFBFFFFF + FF00000000000000000000000000000000000000008000000000000000800000 + 0000000000800000000000000080000000000000008000000000000000800000 + 00000000000000000000000000800000000000FFFF0000000000000000000000 + 000000000000000000000000000000FFFF000000000000000000000000000000 + 000000000000000000000000000000FFFF000000008000000000000000000000 + 00000000003F7F7F7F0000000080000000000000008000000000000000800000 + 000000000080000000000000008000000000FFFF00BFFFFF0000FFFF00BFFFFF + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000080000000800000008000000080000000800000008000 + 0000800000008000000080000000800000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00800000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00800000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00800000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F007F7F + 7F0000000000000000007F7F7F00000000000000000000000000000000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000080000000800000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0080000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 00007F7F7F007F7F7F0000FFFF00000000000000000000000000000000008000 + 0000FFFFFF00FFFFFF0080000000800000008000000080000000800000008000 + 00008000000080000000FFFFFF00800000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0080000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 00007F7F7F0000FFFF0000FFFF00000000000000000000000000000000008000 + 0000FFFFFF00FFFFFF0080000000800000008000000080000000800000008000 + 0000800000008000000080000000800000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0080000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF00000000000000000000000000FFFFFF0000000000000000000000 + 00000000FF0000000000000000007F7F7F000000000000000000000000008000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00800000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0080000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + FF000000FF000000FF0000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000000000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0080000000000000000000000000000000FFFFFF00000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF00000000000000FF000000 + FF000000FF000000FF000000FF00000000000000000080000000FFFFFF008000 + 000080000000800000008000000080000000800000008000000080000000FFFF + FF00800000000000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0080000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF000000000080000000FFFFFF008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000000000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0080000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00800000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 00008000000080000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000FFFFFF008000000000000000000000000000000080000000800000008000 + 00008000000080000000FFFFFF00800000008000000080000000800000008000 + 0000FFFFFF0080000000000000000000000000000000FFFFFF0000000000BFBF + BF00FFFFFF0000000000FFFFFF000000000000000000000000007F7F7F000000 + FF000000FF000000FF0000000000000000000000000080000000800000008000 + 00008000000080000000800000008000000080000000FFFFFF00800000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 00008000000080000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000FF000000FF000000FF000000 + FF000000FF000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F000000 + 00007F7F7F007F7F7F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF007F7F7F000000FF007F7F7F00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF000000 + 0000BFBFBF00BFBFBF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF000000FF000000FF000000FF0000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 7F0000007F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF00BFBF + BF00BFBFBF00BFBFBF0000000000000000000000000000000000008080000080 + 8000008080000080800000808000008080000080800000808000008080000000 + 000000000000000000000000000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF007F7F7F000000FF007F7F7F00FFFFFF0000FFFF00FFFF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF00000000000080 + 8000008080000080800000808000008080000080800000808000008080000080 + 8000000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF0000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF0000FFFF000000 + 0000008080000080800000808000008080000080800000808000008080000080 + 80000080800000000000000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF000000FF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000FFFF00FFFFFF0000FF + FF00000000000080800000808000008080000080800000808000008080000080 + 800000808000008080000000000000000000FFFFFF0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF000000FF007F7F7F0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF00000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF00FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF000000FF000000FF00FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF000000000000000000BFBFBF0000000000FF000000FF000000FF00 + 00000000FF00FF000000FF000000000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000 + 000000000000000000000000000000000000FFFFFF0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF000000FF000000FF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF00000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + FF000000FF000000FF00000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 00000000000000000000000000000000000000FFFF00FFFFFF0000FFFF00FFFF + FF007F7F7F007F7F7F0000FFFF00FFFFFF007F7F7F000000FF000000FF00FFFF + FF0000FFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF00000000000000FF000000 + FF000000FF000000FF000000FF00000000000000000000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0000FFFF00FFFFFF0000FF + FF000000FF000000FF00FFFFFF0000FFFF007F7F7F000000FF000000FF0000FF + FF00FFFFFF0000FFFF00FFFFFF00000000000000000000000000000000000000 + 7F0000007F0000007F0000FFFF000000000000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF0000FFFF00FFFF + FF000000FF000000FF007F7F7F00FFFFFF007F7F7F000000FF000000FF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF000000FF000000FF000000FF000000FF000000FF00FFFFFF0000FF + FF00FFFFFF0000FFFF0000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF000000FF000000FF000000FF00FFFFFF0000FFFF00FFFF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 7F00FFFF000000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF0000000000BFBF + BF00FFFFFF0000000000FFFFFF000000000000000000000000007F7F7F000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 7F00FFFF0000FFFF00000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000FF000000FF000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 + FFFFFF00FFFFFF00000000000000000000000000000000000000000000000000 + 0000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 + FFFFFFBFFFFFFF00FFFFFFBFFFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFF00 + FFFFFFBFFFFFFF00FFFFFFBFFFFFFFBFFFE3FF7EC380F000FC419001C300F000 + 8800C003C201F0000000E003C003F0000000E003C003F0000000E003C003F000 + 0000E0030003F000000000010003E000000080000003C0000000E00700038000 + 0000E00F000380000000E00F000700000001E027000F00000001C073003F0001 + 000D9E7980FF0003D5537EFEC3FF0007FC00FC00FFFFFFFFFC00FC0080038003 + FC00FC0080038003FC00FC00800380030000E000800380030000E00080038003 + 0000E000800380030000E0078003800300238007800380030001800780038003 + 00008007800380030023801F800380030063801F8003800300C3801F80038003 + 0107801FFFFFFFFF03FFFFFFFFFFFFFFFFFFFFFFC007FF00FFFFF83FC007FF00 + 001FE00FC007FF00000FC007C007FF0000078003C007000000038003C0070000 + 00010001C007000000000001C0070000001F0001C0070023001F0001C0070001 + 001F0001C00700008FF18003C0070023FFF98003C0070063FF75C007C00700C3 + FF8FE00FC0070107FFFFF83FC00703FF00000000000000000000000000000000 + 000000000000} + end + object OpenFileDialog: TOpenDialog + Filter = + 'PE Exe files (*.exe;*.dll;*.bpl)|*.exe;*.dll;*.bpl|All files (*.' + + '*)|*.*' + Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 136 + Top = 272 + end + object ViewImageList: TImageList + ShareImages = True + Left = 104 + Top = 272 + Bitmap = { + 494C01010D000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000004000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000080808000FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008080800080808000FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000808080000000000000000000FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000080808000808080000000000000000000FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008080800000000000000000000000000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000808080008080800000000000000000000000000000000000FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000808080008080800080808000808080008080800080808000808080008080 + 8000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFBFBF00BFBFBF007F7F7F007F7F7F007F7F7F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFBFBF00BFBFBF007F7F7F007F7F7F007F7F7F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFBF + BF00BFBFBF007F7F7F000000000000000000000000007F7F7F007F7F7F007F7F + 7F0000000000000000000000000000000000000000000000000000000000BFBF + BF00BFBFBF007F7F7F000000000000000000000000007F7F7F007F7F7F007F7F + 7F000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF00BFBF + BF0000000000FFFFFF0000FF0000FFFFFF0000FF0000FFFFFF00000000007F7F + 7F007F7F7F000000000000000000000000000000000000000000BFBFBF00BFBF + BF0000000000FFFFFF000000FF00FFFFFF000000FF00FFFFFF00000000007F7F + 7F007F7F7F0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF000000FF000000FF00000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 00007F7F7F000000000000000000000000000000000000000000BFBFBF000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 00007F7F7F0000000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF00000000000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF000000FF00000000000000 + 00000000000000000000000000000000000000000000BFBFBF007F7F7F00FFFF + FF00000000000000000000FF0000007F0000007F00000000000000000000FFFF + FF007F7F7F007F7F7F00000000000000000000000000BFBFBF007F7F7F00FFFF + FF0000000000000000000000FF0000007F0000007F000000000000000000FFFF + FF007F7F7F007F7F7F00000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF000000FF000000FF000000 + FF000000000000000000000000000000000000000000BFBFBF000000000000FF + 00000000000000FF0000007F000000FF0000007F0000007F00000000000000FF + 0000000000007F7F7F00000000000000000000000000BFBFBF00000000000000 + FF00000000000000FF0000007F000000FF0000007F0000007F00000000000000 + FF00000000007F7F7F00000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000FF000000 + FF0000000000000000000000000000000000000000000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF000000FF00000000000000000000000000FFFFFF0000000000FFFF + FF000000000000FF000000FF000000FF000000FF0000007F000000000000FFFF + FF00000000007F7F7F00000000000000000000000000FFFFFF0000000000FFFF + FF00000000000000FF000000FF000000FF000000FF0000007F0000000000FFFF + FF00000000007F7F7F00000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF000000FF000000FF000000 + FF000000000000000000000000000000000000000000FFFFFF000000000000FF + 000000000000FFFFFF0000FF000000FF0000007F000000FF00000000000000FF + 000000000000BFBFBF00000000000000000000000000FFFFFF00000000000000 + FF0000000000FFFFFF000000FF000000FF0000007F000000FF00000000000000 + FF0000000000BFBFBF00000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF000000FF00000000000000 + 00000000000000000000000000000000000000000000FFFFFF007F7F7F00FFFF + FF000000000000000000FFFFFF00FFFFFF0000FF00000000000000000000FFFF + FF007F7F7F00BFBFBF00000000000000000000000000FFFFFF007F7F7F00FFFF + FF000000000000000000FFFFFF00FFFFFF000000FF000000000000000000FFFF + FF007F7F7F00BFBFBF00000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 0000BFBFBF000000000000000000000000000000000000000000BFBFBF000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 0000BFBFBF0000000000000000000000000000000000FFFFFF0000000000BFBF + BF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00BFBF + BF0000000000FFFFFF0000FF0000FFFFFF0000FF0000FFFFFF0000000000BFBF + BF00BFBFBF000000000000000000000000000000000000000000FFFFFF00BFBF + BF0000000000FFFFFF000000FF00FFFFFF000000FF00FFFFFF0000000000BFBF + BF00BFBFBF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00BFBFBF007F7F7F000000000000000000000000007F7F7F00BFBFBF00BFBF + BF0000000000000000000000000000000000000000000000000000000000FFFF + FF00BFBFBF007F7F7F000000000000000000000000007F7F7F00BFBFBF00BFBF + BF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00BFBFBF00BFBFBF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00BFBFBF00BFBFBF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000FF000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + FF000000FF0000000000000000007F7F7F00000000007F7F7F00000000000000 + 00000000FF000000FF000000FF00000000000000000000000000000000000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF00BFBF + BF0000FFFF00BFBFBF0000FFFF00BFBFBF0000FFFF00BFBFBF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + FF000000FF000000FF00000000000000000000000000000000000000FF000000 + FF0000000000000000007F7F7F00000000007F7F7F00000000000000FF000000 + FF000000FF000000000000000000000000000000000000FFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF000000000000FF + FF00BFBFBF0000FFFF00BFBFBF0000FFFF00BFBFBF0000FFFF00BFBFBF0000FF + FF0000000000FFFFFF00FFFFFF00000000000000000000000000000000000000 + 00000000FF000000FF000000FF007F7F7F00000000007F7F7F000000FF000000 + FF000000FF00000000000000000000000000000000000000FF000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF000000000000000000000000000000000000000000FFFF + 0000000000000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000 + 00000000000000000000000000000000000000000000FFFFFF0000FFFF000000 + 000000FFFF00BFBFBF0000FFFF00BFBFBF0000FFFF00BFBFBF0000FFFF00BFBF + BF0000FFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000FF000000FF000000FF00000000000000FF000000FF000000 + FF0000000000000000000000000000000000000000000000FF00000000000000 + FF000000FF000000FF007F7F7F00000000007F7F7F0000000000000000000000 + 00000000FF000000FF000000000000000000000000000000000000000000FFFF + 00000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + 000000000000000000000000FF000000FF00000000000000FF000000FF000000 + 0000000000000000000000000000000000000000FF000000FF00000000000000 + 00000000FF000000FF000000FF00000000000000000000000000000000000000 + 0000000000000000FF000000FF0000000000000000000000000000000000FFFF + 000000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF000000000000000000000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 000000000000000000000000000000007F000000000000007F00000000000000 + 0000000000000000000000000000000000000000FF000000FF00000000000000 + 0000000000000000FF000000FF00000000000000000000000000000000000000 + 0000000000000000FF000000FF0000000000000000000000000000000000FFFF + 00000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + 000000000000000000000000FF0000007F000000000000007F000000FF000000 + 0000000000000000000000000000000000000000FF000000FF00000000000000 + 000000000000000000007F7F7F00000000007F7F7F0000000000000000000000 + 0000000000000000FF000000FF0000000000000000000000000000000000FFFF + 000000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000FF000000FF000000000000000000000000000000FF000000 + FF00000000000000000000000000000000000000FF000000FF00000000000000 + 0000000000000000000000007F000000000000007F000000FF00000000000000 + 0000000000000000FF000000FF0000000000000000000000000000000000FFFF + 00000000000000FFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + 00000000FF000000FF000000FF000000000000000000000000000000FF000000 + FF000000FF000000000000000000000000000000FF000000FF00000000000000 + 000000000000000000000000000000000000000000000000FF000000FF000000 + 0000000000000000FF000000FF00000000000000000000000000000000000000 + 0000000000000000000000FFFF00FFFFFF0000FFFF0000000000000000000000 + 000000000000000000000000000000000000000000007F7F7F00000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + FF000000FF000000FF000000000000000000000000000000FF000000FF000000 + 000000000000000000000000000000000000000000000000FF000000FF000000 + FF00000000000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF000000000000000000FFFFFF00FFFF + FF000000000000000000000000000000000000000000000000000000FF000000 + FF000000FF0000000000000000007F7F7F00000000007F7F7F00000000000000 + 00000000FF000000FF000000FF0000000000000000000000FF000000FF000000 + FF000000000000000000000000000000000000000000000000000000FF000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + FF000000FF00000000007F7F7F00000000007F7F7F0000000000000000000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000FF000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF007F7F7F007F7F7F007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF007F7F7F007F7F7F007F7F7F007F7F7F0000FFFF0000FFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FFFF000000FF0000FFFF00FFFF + FF0000007F00FF000000FF000000000000000000000000000000000000000000 + 0000808080008080800000000000000000000000000000000000FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF007F7F7F007F7F + 7F007F7F7F00FFFFFF00FFFFFF00FFFFFF0000FFFF000000FF000000FF0000FF + FF00FF00000000007F00FF000000000000000000000000000000000000000000 + 0000000000008080800000000000000000000000000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000FFFF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FFFF000000FF0000FFFF0000FF + FF00FF00000000007F00FF000000000000000000000000000000000000000000 + 00000000000080808000808080000000000000000000FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000000000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007F7F7F007F7F7F0000FFFF000000FF000000FF000000 + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 00000000000000000000808080000000000000000000FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF0000000000FFFFFF0000000000FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F00000000007F7F7F007F7F7F0000FFFF000000FF000000FF000000 + FF000000FF0000FFFF0000000000000000000000000000000000000000000000 + 000000000000000000008080800080808000FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF000000000000FFFF000000000000FFFF00000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F007F7F + 7F00000000007F7F7F007F7F7F0000FFFF000000FF000000FF0000FFFF0000FF + FF000000FF0000FFFF0000FFFF00000000000000000000000000000000000000 + 000000000000000000000000000080808000FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF000000000000000000FFFFFF00FFFFFF0000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF0000000000FFFFFF00000000000000 + 000000000000000000000000000000000000000000007F7F7F00000000007F7F + 7F00000000007F7F7F007F7F7F0000FFFF000000FF0000FFFF007F7F7F000000 + FF0000FFFF000000FF0000FFFF007F7F7F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF00000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F000000 + 0000000000007F7F7F007F7F7F007F7F7F0000FFFF0000FFFF007F7F7F0000FF + FF0000FFFF0000FFFF0000FFFF007F7F7F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00000000000000 + 000000000000000000000000000000000000000000007F7F7F00000000000000 + 0000000000007F7F7F007F7F7F007F7F7F0000FFFF0000FFFF007F7F7F007F7F + 7F007F7F7F0000FFFF000000FF0000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007F7F7F007F7F7F007F7F7F0000FFFF007F7F7F007F7F + 7F007F7F7F007F7F7F0000FFFF0000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007F7F7F007F7F7F007F7F + 7F0000000000000000007F7F7F0000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000400000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF00FFFF000000000000FFFF000000000000 + FFFF000000000000FFFF000000000000FE7F000000000000FC3F000000000000 + FDBF000000000000F99F000000000000FBDF000000000000F3CF000000000000 + F00F000000000000FFFF000000000000FFFF000000000000FFFF000000000000 + FFFF000000000000FFFF000000000000FFDFFFFFFFFFFFFFFFCFFFFFF83FF83F + FFC7FFFFE00FE00F0003FFFFC007C0070001FCFF800380030000FC3F80038003 + 0001FC0F0001000100030003000100010007000000010001000F000300010001 + 001FFC0F00010001007FFC3F8003800300FFFCFF8003800301FFFFFFC007C007 + 03FFFFFFE00FE00FFFFFFFFFF83FF83FFFFFFFFFFFFFFFFFFFFFF83FFFFF801F + C631E00F1FFF0000E223CC47041F0000F0078463000F0000F88FA073000F0000 + FC1F31F900070000FE3F38F900010000FC1F3C7900000000F80F3C3900018000 + F0073C19003F8000E2239C0BFC7FFC00C6318C43FFFFFC01FFFFC467FFFFFC03 + FFFFE00FFFFFFC07FFFFF83FFFFFFFFFFFFFE00F8000FFFFE007E00F0000FFFF + E007E00F0000FFFFE007F00F0000FFFFE007F00F0000F00FE007F80F0000F3CF + E007F0070000FBDFE007F0070000F99FE007F0070000FDBFE007F00FF403FC3F + E007F01FC801FE7FE00FF81FA800FFFFE01FFE1FD800FFFFE03FFF1FB800FFFF + FFFFFF1FFC00FFFFFFFFFFBFFF8CFFFF00000000000000000000000000000000 + 000000000000} + end + object SaveDialog: TSaveDialog + DefaultExt = 'txt' + Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*' + Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing] + Left = 168 + Top = 272 + end +end diff --git a/official/2.1.1/examples/windows/delphitools/dependencyviewer/DependViewMain.pas b/official/2.1.1/examples/windows/delphitools/dependencyviewer/DependViewMain.pas new file mode 100644 index 0000000..69ed70a --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/dependencyviewer/DependViewMain.pas @@ -0,0 +1,346 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is DependView.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2008-09-09 21:32:17 +0200 (mar., 09 sept. 2008) $ } +{ } +{**************************************************************************************************} + +unit DependViewMain; + +{$I JCL.INC} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + Menus, ToolWin, ComCtrls, ImgList, ActnList, StdActns, ClipBrd, Registry, + ShellAPI; + +const + UM_CHECKPARAMSTR = WM_USER + $100; + +type + TMainForm = class(TForm) + MainMenu: TMainMenu; + CoolBar1: TCoolBar; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + ActionList1: TActionList; + ToolbarImagesList: TImageList; + OpenFileDialog: TOpenDialog; + File1: TMenuItem; + Exit1: TAction; + Exit2: TMenuItem; + Open1: TAction; + Open2: TMenuItem; + N1: TMenuItem; + Window1: TMenuItem; + WindowCascade1: TWindowCascade; + WindowTileHorizontal1: TWindowTileHorizontal; + WindowTileVertical1: TWindowTileVertical; + Cascade1: TMenuItem; + TileHorizontally1: TMenuItem; + TileVertically1: TMenuItem; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ViewImageList: TImageList; + ToolButton7: TToolButton; + Copy1: TAction; + Save1: TAction; + Edit1: TMenuItem; + Copy2: TMenuItem; + Save2: TMenuItem; + ToolButton8: TToolButton; + ToolButton9: TToolButton; + ToolButton10: TToolButton; + SelectAll1: TAction; + Selectall2: TMenuItem; + SaveDialog: TSaveDialog; + Win32Help1: TAction; + ToolButton11: TToolButton; + ToolButton12: TToolButton; + Help1: TMenuItem; + Win32helpkeyword1: TMenuItem; + N2: TMenuItem; + About1: TAction; + About2: TMenuItem; + StatusBar: TStatusBar; + DumpPe1: TAction; + ToolButton2: TToolButton; + N3: TMenuItem; + DumpPEfile1: TMenuItem; + SendMail1: TAction; + Sendamessage1: TMenuItem; + Find1: TAction; + ToolButton6: TToolButton; + N4: TMenuItem; + Findtext1: TMenuItem; + procedure Exit1Execute(Sender: TObject); + procedure Open1Execute(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure SelectAll1Update(Sender: TObject); + procedure SelectAll1Execute(Sender: TObject); + procedure Copy1Update(Sender: TObject); + procedure Copy1Execute(Sender: TObject); + procedure Win32Help1Update(Sender: TObject); + procedure Win32Help1Execute(Sender: TObject); + procedure About1Execute(Sender: TObject); + procedure DumpPe1Update(Sender: TObject); + procedure DumpPe1Execute(Sender: TObject); + procedure SendMail1Execute(Sender: TObject); + procedure Find1Update(Sender: TObject); + procedure Find1Execute(Sender: TObject); + procedure CoolBar1Resize(Sender: TObject); + procedure FormShow(Sender: TObject); + private + FPeViewer: Variant; + FPeViewerRegistred: Boolean; + FWin32Help: string; + procedure InvokeWin32Help(const Name: string); + function IsFileViewerChildActive: Boolean; + function IsWin32Help: Boolean; + procedure OnActiveFormChange(Sender: TObject); + procedure UMCheckParamStr(var Message: TMessage); message UM_CHECKPARAMSTR; + procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES; + public + procedure OpenFile(const FileName: TFileName; CheckIfOpen: Boolean); + end; + +var + MainForm: TMainForm; + +implementation + +uses ToolsUtils, FileViewer, JclPeImage, JclRegistry, FindDlg, JclFileUtils; + +{$R *.DFM} + +resourcestring + sNotValidFile = 'This is not a valid PE EXE file'; + +procedure TMainForm.InvokeWin32Help(const Name: string); +var + S: string; +begin + S := PeStripFunctionAW(Name); + WinHelp(Application.Handle, PChar(FWin32Help), HELP_KEY, DWORD(S)); +end; + +procedure TMainForm.OpenFile(const FileName: TFileName; CheckIfOpen: Boolean); +var + I: Integer; +begin + if CheckIfOpen then + begin + for I := 0 to MDIChildCount - 1 do + if MDIChildren[I] is TFileViewerChild and (TFileViewerChild(MDIChildren[I]).FileName = FileName) then + begin + MDIChildren[I].BringToFront; + Exit; + end; + end; + Screen.Cursor := crHourGlass; + try +{ if IsPeExe(FileName) then + begin} + TFileViewerChild.Create(Self).FileName := FileName; + OnActiveFormChange(nil); +{ end else + MessBox(sNotValidFile, MB_ICONINFORMATION);} + finally + Screen.Cursor := crDefault; + end; +end; + +procedure TMainForm.Exit1Execute(Sender: TObject); +begin + Close; +end; + +procedure TMainForm.Open1Execute(Sender: TObject); +var + I: Integer; +begin + with OpenFileDialog do + begin + FileName := ''; + if Execute then + for I := 0 to Files.Count - 1 do OpenFile(Files[I], True); + end; +end; + +procedure TMainForm.FormCreate(Sender: TObject); +begin + FWin32Help := Win32HelpFileName; + FPeViewerRegistred := IsPeViewerRegistred; + Screen.OnActiveFormChange := OnActiveFormChange; + DragAcceptFiles(Handle, True); +end; + +procedure TMainForm.FormDestroy(Sender: TObject); +begin + DragAcceptFiles(Handle, False); + Screen.OnActiveFormChange := nil; +end; + +procedure TMainForm.OnActiveFormChange(Sender: TObject); +begin + if IsFileViewerChildActive then + StatusBar.Panels[0].Text := TFileViewerChild(ActiveMDIChild).FileName + else + StatusBar.Panels[0].Text := ''; +end; + +procedure TMainForm.SelectAll1Update(Sender: TObject); +begin + TAction(Sender).Enabled := Screen.ActiveControl is TListView; +end; + +procedure TMainForm.SelectAll1Execute(Sender: TObject); +begin + ListViewSelectAll(Screen.ActiveControl as TListView); +end; + +procedure TMainForm.Copy1Update(Sender: TObject); +begin + TAction(Sender).Enabled := Screen.ActiveControl is TListView; +end; + +procedure TMainForm.Copy1Execute(Sender: TObject); +var + SL: TStringList; +begin + SL := TStringList.Create; + Screen.Cursor := crHourGlass; + try + SL.Capacity := 256; + ListViewToStrings(Screen.ActiveControl as TListView, SL, True); + case TAction(Sender).Tag of + 0: Clipboard.AsText := SL.Text; + 1: with SaveDialog do + begin + FileName := ''; + if Execute then SL.SaveToFile(FileName); + end; + end; + finally + Screen.Cursor := crDefault; + SL.Free; + end; +end; + +procedure TMainForm.Win32Help1Update(Sender: TObject); +begin + Win32Help1.Enabled := IsWin32Help and IsFileViewerChildActive and + (TFileViewerChild(ActiveMDIChild).GetWin32Function <> ''); +end; + +procedure TMainForm.Win32Help1Execute(Sender: TObject); +begin + InvokeWin32Help((ActiveMDIChild as TFileViewerChild).GetWin32Function); +end; + +procedure TMainForm.About1Execute(Sender: TObject); +begin + ShowToolsAboutBox; +end; + +function TMainForm.IsFileViewerChildActive: Boolean; +begin + Result := (ActiveMDIChild is TFileViewerChild); +end; + +function TMainForm.IsWin32Help: Boolean; +begin + Result := Length(FWin32Help) > 0; +end; + +procedure TMainForm.DumpPe1Update(Sender: TObject); +begin + DumpPe1.Enabled := FPeViewerRegistred and IsFileViewerChildActive and + (TFileViewerChild(ActiveMDIChild).SelectedFileName <> ''); +end; + +procedure TMainForm.DumpPe1Execute(Sender: TObject); +begin + FPeViewer := CreateOrGetOleObject(PeViewerClassName); + FPeViewer.OpenFile((ActiveMDIChild as TFileViewerChild).SelectedFileName); + FPeViewer.BringToFront; +end; + +procedure TMainForm.SendMail1Execute(Sender: TObject); +begin + SendEmail; +end; + +procedure TMainForm.Find1Update(Sender: TObject); +begin + TAction(Sender).Enabled := TFindTextForm.CanExecuteFind; +end; + +procedure TMainForm.Find1Execute(Sender: TObject); +begin + ShowFindDialog(Screen.ActiveControl as TListView); +end; + +procedure TMainForm.CoolBar1Resize(Sender: TObject); +begin + D4FixCoolBarResizePaint(Sender); +end; + +procedure TMainForm.FormShow(Sender: TObject); +begin + PostMessage(Handle, UM_CHECKPARAMSTR, 0, 0); +end; + +procedure TMainForm.UMCheckParamStr(var Message: TMessage); +var + I: Integer; + FileName: TFileName; +begin + for I := 1 to ParamCount do + begin + FileName := PathGetLongName(ParamStr(I)); + if (FileName <> '') and (FileName[1] <> '-') and (FileName[1] <> '/') then + OpenFile(FileName, False); + end; +end; + +procedure TMainForm.WMDropFiles(var Message: TWMDropFiles); +var + FilesCount, I: Integer; + FileName: array[0..MAX_PATH] of Char; +begin + FilesCount := DragQueryFile(Message.Drop, MAXDWORD, nil, 0); + for I := 0 to FilesCount - 1 do + begin + if (DragQueryFile(Message.Drop, I, @FileName, SizeOf(FileName)) > 0) and + IsValidPeFile(FileName) then + OpenFile(FileName, True); + end; + DragFinish(Message.Drop); + Message.Result := 0; + Application.BringToFront; +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/dependencyviewer/FileViewer.dfm b/official/2.1.1/examples/windows/delphitools/dependencyviewer/FileViewer.dfm new file mode 100644 index 0000000..1b9932a --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/dependencyviewer/FileViewer.dfm @@ -0,0 +1,239 @@ +object FileViewerChild: TFileViewerChild + Left = 205 + Top = 131 + ActiveControl = DependencyTreeView + AutoScroll = False + Caption = 'FileViewerChild' + ClientHeight = 354 + ClientWidth = 576 + Color = clBtnFace + Constraints.MinHeight = 100 + Constraints.MinWidth = 200 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsMDIChild + OldCreateOrder = False + PopupMenu = PopupMenu1 + Position = poDefault + ShowHint = True + Visible = True + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object Splitter1: TSplitter + Left = 134 + Top = 0 + Width = 3 + Height = 277 + Cursor = crHSplit + ResizeStyle = rsUpdate + end + object Splitter3: TSplitter + Left = 0 + Top = 277 + Width = 576 + Height = 3 + Cursor = crVSplit + Align = alBottom + ResizeStyle = rsUpdate + end + object DependencyTreeView: TTreeView + Left = 0 + Top = 0 + Width = 134 + Height = 277 + Align = alLeft + ChangeDelay = 50 + HideSelection = False + HotTrack = True + Images = MainForm.ViewImageList + Indent = 19 + ReadOnly = True + ShowRoot = False + StateImages = MainForm.ViewImageList + TabOrder = 0 + OnChange = DependencyTreeViewChange + OnDeletion = DependencyTreeViewDeletion + end + object ListViewsPanel: TPanel + Left = 137 + Top = 0 + Width = 439 + Height = 277 + Align = alClient + BevelOuter = bvNone + FullRepaint = False + TabOrder = 1 + object Splitter2: TSplitter + Left = 0 + Top = 150 + Width = 439 + Height = 3 + Cursor = crVSplit + Align = alTop + ResizeStyle = rsUpdate + end + object ImportListView: TListView + Left = 0 + Top = 153 + Width = 439 + Height = 124 + Align = alClient + Columns = < + item + Caption = 'Name' + Width = 250 + end + item + Alignment = taRightJustify + Caption = 'Ordinal' + Width = 60 + end + item + Alignment = taRightJustify + Caption = 'Hint' + end + item + Caption = 'Module' + end> + HideSelection = False + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.ViewImageList + TabOrder = 0 + ViewStyle = vsReport + OnColumnClick = ImportListViewColumnClick + OnData = ImportListViewData + OnDblClick = ExportListViewDblClick + end + object ExportListView: TListView + Left = 0 + Top = 0 + Width = 439 + Height = 150 + Align = alTop + Columns = < + item + Caption = 'Name' + Width = 250 + end + item + Alignment = taRightJustify + Caption = 'Ordinal' + end + item + Alignment = taRightJustify + Caption = 'Hint' + end + item + Caption = 'Address' + Width = 70 + end> + HideSelection = False + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.ViewImageList + TabOrder = 1 + ViewStyle = vsReport + OnColumnClick = ExportListViewColumnClick + OnData = ExportListViewData + OnDblClick = ExportListViewDblClick + end + end + object ModulesListView: TListView + Left = 0 + Top = 280 + Width = 576 + Height = 74 + Align = alBottom + Columns = < + item + Caption = 'Module' + Width = 100 + end + item + Caption = 'Date and time' + Width = 120 + end + item + Alignment = taRightJustify + Caption = 'Size' + Width = 70 + end + item + Caption = 'Subsystem' + Width = 65 + end + item + Caption = 'Base address' + Width = 80 + end + item + Caption = 'File version' + Width = 80 + end + item + Caption = 'Product version' + Width = 90 + end + item + Caption = 'Img ver.' + end + item + Caption = 'Linker' + end + item + Caption = 'OS' + end + item + Caption = 'Subsys ver.' + end + item + Caption = 'Description' + Width = 250 + end> + ColumnClick = False + GridLines = True + HideSelection = False + MultiSelect = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.ViewImageList + TabOrder = 2 + ViewStyle = vsReport + OnDblClick = ModulesListViewDblClick + OnInfoTip = ModulesListViewInfoTip + end + object PopupMenu1: TPopupMenu + Images = MainForm.ToolbarImagesList + Left = 8 + Top = 312 + object Copy1: TMenuItem + Action = MainForm.Copy1 + end + object Save1: TMenuItem + Action = MainForm.Save1 + end + object N1: TMenuItem + Caption = '-' + end + object Selectall1: TMenuItem + Action = MainForm.SelectAll1 + end + object DumpPEfile1: TMenuItem + Action = MainForm.DumpPe1 + end + object Win32helpkeyword1: TMenuItem + Action = MainForm.Win32Help1 + end + end +end diff --git a/official/2.1.1/examples/windows/delphitools/dependencyviewer/FileViewer.pas b/official/2.1.1/examples/windows/delphitools/dependencyviewer/FileViewer.pas new file mode 100644 index 0000000..1f46411 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/dependencyviewer/FileViewer.pas @@ -0,0 +1,667 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is FileViewer.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2008-08-07 23:54:09 +0200 (jeu., 07 août 2008) $ } +{ } +{**************************************************************************************************} + +unit FileViewer; + +{$I JCL.INC} + +{.$DEFINE UsePeImagesCache} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ComCtrls, ExtCtrls, Menus, JclPeImage; + +type + TFileViewerChild = class(TForm) + DependencyTreeView: TTreeView; + Splitter1: TSplitter; + ListViewsPanel: TPanel; + Splitter2: TSplitter; + ImportListView: TListView; + ExportListView: TListView; + PopupMenu1: TPopupMenu; + Copy1: TMenuItem; + Save1: TMenuItem; + N1: TMenuItem; + Selectall1: TMenuItem; + Win32helpkeyword1: TMenuItem; + ModulesListView: TListView; + Splitter3: TSplitter; + DumpPEfile1: TMenuItem; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure ExportListViewData(Sender: TObject; Item: TListItem); + procedure ImportListViewData(Sender: TObject; Item: TListItem); + procedure ExportListViewColumnClick(Sender: TObject; + Column: TListColumn); + procedure ImportListViewColumnClick(Sender: TObject; + Column: TListColumn); + procedure FormDestroy(Sender: TObject); + procedure DependencyTreeViewChange(Sender: TObject; Node: TTreeNode); + procedure DependencyTreeViewDeletion(Sender: TObject; Node: TTreeNode); + procedure ModulesListViewInfoTip(Sender: TObject; Item: TListItem; + var InfoTip: String); + procedure ExportListViewDblClick(Sender: TObject); + procedure ModulesListViewDblClick(Sender: TObject); + private + FAnyRootError: Boolean; + FBasePath: string; + FCurrentImportDirIndex: Integer; + FFileName: TFileName; + FModulesList: TStringList; + FExportViewImage, FParentImportViewImage: TJclPeImage; + FPeImagesCache: TJclPeImagesCache; + function GetModuleName: string; + procedure SetFileName(const Value: TFileName); + procedure ExportListViewSort; + function ModuleToFileName(const ModuleName: string): TFileName; + procedure ImportListViewSort; + procedure InitTree; + function IsListViewActiveAndFocused( ListView: TListView): Boolean; + procedure UpdateExportView(Node: TTreeNode); + procedure UpdateModulesView; + procedure UpdateParentImportView(Node: TTreeNode); + class procedure UpdateSortData(Column: TListColumn); + function GetSelectedFileName: TFileName; + public + function GetWin32Function: string; + property FileName: TFileName read FFileName write SetFileName; + property ModuleName: string read GetModuleName; + property SelectedFileName: TFileName read GetSelectedFileName; + end; + +var + FileViewerChild: TFileViewerChild; + +implementation + +uses + DependViewMain, ToolsUtils, + JclBase, JclSysInfo, JclStrings, JclFileUtils; + +{$R *.DFM} + +type + TPeModuleState = ( + modNoErrors, // Normal module with no errors. + modFwdNoErrors, // Forwarded module with no errors. + modDupNoErrors, // Duplicate module with no errors. + modDupFwdNoErrors, // Forwarded duplicate module with no errors. + modExportMissing, // Module with one or more missing export functions + modFwdExportMissing, // Forwarded module with one or more missing export functions + modDupExportMissing, // Duplicate module with one or more missing export functions + modDupFwdExportMissing, // Forwarded duplicate module with one or more missing export functions + modMissing, // Missing module. + modFwdMissing, // Missing forwarded module. + modInvalid, // Invalid module. + modFwdInvalid, // Invalid forwarded module. + modRoot // Root node. + ); + + TPeModuleImageInfo = record + ImageIndex, StateIndex: Integer; + end; + + PPeModuleNodeData = ^TPeModuleNodeData; + TPeModuleNodeData = record + State: TPeModuleState; + ImportDirectoryIndex: Integer; + end; + +const + imgModule = 0; + imgDupModule = 1; + imgModExportMissing = 2; + imgDupExportMissing = 3; + imgMissingModule = 4; + imgInvalidModule = 5; + imgForwardFlag = 6; + imgRoot = 7; + imgExport = 8; + imgFwdExport = 9; + imgImport = 10; + imgUnresolvedImport = 11; + imgSortAsceding = 12; + imgSortDesceding = 3; + + ErrorModules = [modMissing, modFwdMissing, modInvalid, modFwdInvalid]; + MissingExportModules = [modExportMissing, modFwdExportMissing, modDupExportMissing, + modDupFwdExportMissing, modMissing, modFwdMissing, modInvalid, modFwdInvalid]; + ForwardedModules = [modFwdNoErrors, modDupFwdNoErrors, modFwdExportMissing, + modDupFwdExportMissing]; + + ModuleImages: array[TPeModuleState] of TPeModuleImageInfo = ( + (ImageIndex: imgModule; StateIndex: -1), + (ImageIndex: imgModule; StateIndex: imgForwardFlag), + (ImageIndex: imgDupModule; StateIndex: -1), + (ImageIndex: imgDupModule; StateIndex: imgForwardFlag), + (ImageIndex: imgModExportMissing; StateIndex: -1), + (ImageIndex: imgModExportMissing; StateIndex: imgForwardFlag), + (ImageIndex: imgDupExportMissing; StateIndex: -1), + (ImageIndex: imgDupExportMissing; StateIndex: imgForwardFlag), + (ImageIndex: imgMissingModule; StateIndex: -1), + (ImageIndex: imgMissingModule; StateIndex: imgForwardFlag), + (ImageIndex: imgInvalidModule; StateIndex: -1), + (ImageIndex: imgInvalidModule; StateIndex: imgForwardFlag), + (ImageIndex: imgRoot; StateIndex: -1) + ); + +{ TFileViewerChild } + +procedure TFileViewerChild.FormCreate(Sender: TObject); +begin + FModulesList := TStringList.Create; + FModulesList.Sorted := True; + FModulesList.Duplicates := dupIgnore; + FExportViewImage := TJclPeImage.Create; + FPeImagesCache := TJclPeImagesCache.Create; +{$IFNDEF UsePeImagesCache} + FParentImportViewImage := TJclPeImage.Create; +{$ENDIF} + FCurrentImportDirIndex := -1; + ExportListView.Height := ListViewsPanel.ClientHeight div 2; + ImportListView.Tag := $100; + UpdateSortData(ImportListView.Columns[0]); + ExportListView.Tag := $100; + UpdateSortData(ExportListView.Columns[0]); + ModulesListView.Columns[0].Width := ColumnTextWidth; +end; + +procedure TFileViewerChild.FormDestroy(Sender: TObject); +begin + FModulesList.Free; + FExportViewImage.Free; + FPeImagesCache.Free; +{$IFNDEF UsePeImagesCache} + FParentImportViewImage.Free; +{$ENDIF} +end; + +procedure TFileViewerChild.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Fix_ListViewBeforeClose(Self); + Action := caFree; +end; + +function TFileViewerChild.GetModuleName: string; +begin + Result := ExtractFileName(FFileName); +end; + +procedure TFileViewerChild.InitTree; +var + RootNode: TTreeNode; + + procedure SetNodeState(Node: TTreeNode; State: TPeModuleState); +var + I: Integer; +begin + PPeModuleNodeData(Node.Data)^.State := State; + Node.ImageIndex := ModuleImages[State].ImageIndex; + Node.SelectedIndex := ModuleImages[State].ImageIndex; + Node.StateIndex := ModuleImages[State].StateIndex; + if State in (MissingExportModules + ErrorModules) then + begin + if Node.Parent = RootNode then FAnyRootError := True; + I := FModulesList.IndexOf(Node.Text); + Assert(I >= 0); + FModulesList.Objects[I] := Pointer(State); + end; +end; + + function AddNode(Node: TTreeNode; const Text: string; State: TPeModuleState): TTreeNode; +var + Data: PPeModuleNodeData; +begin + Result := DependencyTreeView.Items.AddChild(Node, Text); + New(Data); + Result.Data := Data; + SetNodeState(Result, State); +end; + + procedure ScanModule(const ModuleName: string; Node: TTreeNode; Forwarded, ErrorsOnly: Boolean); +var + ExeImage: TJclPeImage; + I, Found: Integer; + S: string; + TempNode: TTreeNode; + AddedNodes: array of TTreeNode; + AddedNodesCount: Integer; +begin + ExeImage := FPeImagesCache[ModuleToFilename(ModuleName)]; + case ExeImage.Status of + stOk: + if not ErrorsOnly then + begin + with ExeImage.ImportList do + begin + SetLength(AddedNodes, Count); + AddedNodesCount := 0; + CheckImports(FPeImagesCache); + SortList(ilName); + for I := 0 to Count - 1 do + begin + S := Items[I].Name; + Found := FModulesList.IndexOf(S); + if Found = -1 then + begin + Found := FModulesList.Add(S); + FModulesList.Objects[Found] := Pointer(modNoErrors); + if Items[I].TotalResolveCheck = icUnresolved then + TempNode := AddNode(Node, S, modExportMissing) + else + TempNode := AddNode(Node, S, modNoErrors); + AddedNodes[AddedNodesCount] := TempNode; + Inc(AddedNodesCount); + end else + begin + if Items[I].TotalResolveCheck = icUnresolved then + TempNode := AddNode(Node, S, modDupExportMissing) + else + TempNode := AddNode(Node, S, modDupNoErrors); + ScanModule(TempNode.Text, TempNode, False, True); // ! + end; + PPeModuleNodeData(TempNode.Data)^.ImportDirectoryIndex := Items[I].ImportDirectoryIndex; + end; + end; + for I := 0 to AddedNodesCount - 1 do + ScanModule(AddedNodes[I].Text, AddedNodes[I], False, False); + with ExeImage.ExportList do + begin + CheckForwards(FPeImagesCache); + for I := 0 to ForwardedLibsList.Count - 1 do + begin + S := ForwardedLibsList[I]; + Found := FModulesList.IndexOf(S); + if Found = -1 then + begin + Found := FModulesList.Add(S); + FModulesList.Objects[Found] := Pointer(modNoErrors); + if TJclPeResolveCheck(ForwardedLibsList.Objects[I]) = icUnresolved then + AddNode(Node, S, modFwdExportMissing) + else + AddNode(Node, S, modFwdNoErrors); + end else + begin + if TJclPeResolveCheck(ForwardedLibsList.Objects[I]) = icUnresolved then + TempNode := AddNode(Node, S, modDupFwdExportMissing) + else + TempNode := AddNode(Node, S, modDupFwdNoErrors); + ScanModule(TempNode.Text, TempNode, True, True); // ! + end; + end; + end; + end; + stNotFound: + if Forwarded then SetNodeState(Node, modFwdMissing) else SetNodeState(Node, modMissing); + else + if Forwarded then SetNodeState(Node, modFwdInvalid) else SetNodeState(Node, modInvalid); + end; +end; + +begin + with DependencyTreeView do + begin + Items.BeginUpdate; + try + Items.Clear; + Screen.Cursor := crHourGlass; + RootNode := AddNode(nil, ModuleName, modRoot); + FModulesList.AddObject(ModuleName, Pointer(modRoot)); + ScanModule(FFileName, RootNode, False, False); + RootNode.Expand(False); + Selected := RootNode; + finally + Items.EndUpdate; + Screen.Cursor := crDefault; + end; + end; + UpdateModulesView; +{$IFNDEF UsePeImagesCache} + FPeImagesCache.Clear; +{$ENDIF} +end; + +procedure TFileViewerChild.SetFileName(const Value: TFileName); +begin + FAnyRootError := False; + FFileName := Value; + FBasePath := ExtractFilePath(FFileName); + Caption := ModuleName; + InitTree; +end; + +class procedure TFileViewerChild.UpdateSortData(Column: TListColumn); +var + ListView: TListView; + I: Integer; +begin + ListView := TListView(TListColumns(Column.Collection).Owner); + ListView.Columns.BeginUpdate; + with ListView.Columns do + for I := 0 to Count - 1 do + Items[I].ImageIndex := -1; + if ListView.Tag and $FF = Column.Index then + ListView.Tag := ListView.Tag xor $100 + else + ListView.Tag := Column.Index; + if ListView.Tag and $100 = 0 then + Column.ImageIndex := imgSortAsceding + else + Column.ImageIndex := imgSortDesceding; + ListView.Columns.EndUpdate; +end; + +function TFileViewerChild.IsListViewActiveAndFocused( ListView: TListView): Boolean; +begin + Result := (ActiveControl = ListView) and (ListView.ItemFocused <> nil); +end; + +function TFileViewerChild.GetWin32Function: String; +const + BracketChars: array [0..1] of Char = ( '[', ']' ); +begin + Result := ''; + if IsListViewActiveAndFocused(ImportListView) then + Result := ImportListView.ItemFocused.Caption + else + if IsListViewActiveAndFocused(ExportListView) then + Result := ExportListView.ItemFocused.Caption + else + Result := ''; + if Pos('@', Result) > 0 then + Result := '' + else + Result := StrRemoveChars(Result, BracketChars); +end; + +procedure TFileViewerChild.ExportListViewData(Sender: TObject; + Item: TListItem); +begin + with Item, FExportViewImage.ExportList[Item.Index] do + begin + Caption := Name; + SubItems.Add(Format('%d', [Ordinal])); + SubItems.Add(Format('%d', [Hint])); + SubItems.Add(AddressOrForwardStr); + if IsForwarded then ImageIndex := imgFwdExport else ImageIndex := imgExport; + end; +end; + +procedure TFileViewerChild.ImportListViewData(Sender: TObject; Item: TListItem); +var + ViewItem: TJclPeImportFuncItem; +begin + if FCurrentImportDirIndex = -1 then + ViewItem := FParentImportViewImage.ImportList.AllItems[Item.Index] + else + ViewItem := FParentImportViewImage.ImportList[FCurrentImportDirIndex][Item.Index]; + with Item, ViewItem do + begin + if IndirectImportName then + Caption := Format('[%s]', [Name]) + else + Caption := Name; + if Ordinal <> 0 then + begin + SubItems.Add(Format('%d', [Ordinal])); + SubItems.Add(''); + end else + begin + SubItems.Add(''); + SubItems.Add(Format('%d', [Hint])); + end; + if FCurrentImportDirIndex = -1 then SubItems.Add(ImportLib.Name); + case ResolveCheck of + icUnresolved: ImageIndex := imgUnresolvedImport; + icResolved, icNotChecked: ImageIndex := imgImport; + end; + end; +end; + +procedure TFileViewerChild.ExportListViewColumnClick(Sender: TObject; Column: TListColumn); +begin + UpdateSortData(Column); + ExportListViewSort; +end; + +procedure TFileViewerChild.ImportListViewColumnClick(Sender: TObject; Column: TListColumn); +begin + UpdateSortData(Column); + ImportListViewSort; +end; + +procedure TFileViewerChild.UpdateExportView(Node: TTreeNode); +begin + with ExportListView.Items do + begin + BeginUpdate; + if PPeModuleNodeData(Node.Data)^.State in ErrorModules then + FExportViewImage.FileName := '' + else + FExportViewImage.FileName := ModuleToFilename(Node.Text); + Count := FExportViewImage.ExportList.Count; + ExportListViewSort; + EndUpdate; + end; +end; + +procedure TFileViewerChild.UpdateParentImportView(Node: TTreeNode); +var + ParentFileName: TFileName; + NodeState: TPeModuleState; + + procedure ShowModuleColumn(B: Boolean); +begin + with ImportListView do + if (B xor (Columns.Count <> 3)) then + begin + Columns.BeginUpdate; + if B then Columns.Add.Caption := 'Module' else + begin + Columns[3].Free; + if Tag and $FF = 3 then + begin + Tag := $100; + UpdateSortData(Columns[0]); + ImportListViewSort; + end; + end; + Columns.EndUpdate; + end; +end; + +begin + with ImportListView.Items do + begin + BeginUpdate; + if Node.Parent = nil then + ParentFileName := Node.Text + else + ParentFileName := Node.Parent.Text; + ParentFileName := ModuleToFilename(ParentFileName); + NodeState := PPeModuleNodeData(Node.Data)^.State; +{$IFDEF UsePeImagesCache} + FParentImportViewImage := FPeImagesCache[ParentFileName]; + FParentImportViewImage.ImportList.SortList(ilIndex); +{$ELSE} + FParentImportViewImage.FileName := ParentFileName; +{$ENDIF} + if (NodeState in MissingExportModules + ErrorModules) or FAnyRootError then + FParentImportViewImage.ImportList.CheckImports; + FParentImportViewImage.TryGetNamesForOrdinalImports; + if NodeState in ForwardedModules then + begin + ShowModuleColumn(False); + FCurrentImportDirIndex := -1; + FParentImportViewImage.ImportList.FilterModuleName := Node.Text; + Count := FParentImportViewImage.ImportList.AllItemCount; + end else + if Node.Parent = nil then + begin + ShowModuleColumn(True); + FCurrentImportDirIndex := -1; + FParentImportViewImage.ImportList.FilterModuleName := ''; + Count := FParentImportViewImage.ImportList.AllItemCount; + end else + begin + ShowModuleColumn(False); + FCurrentImportDirIndex := PPeModuleNodeData(Node.Data)^.ImportDirectoryIndex; + Count := FParentImportViewImage.ImportList[FCurrentImportDirIndex].Count; + end; + ImportListViewSort; + EndUpdate; + end; +end; + +procedure TFileViewerChild.DependencyTreeViewChange(Sender: TObject; Node: TTreeNode); +begin + UpdateExportView(Node); + UpdateParentImportView(Node); +end; + +procedure TFileViewerChild.DependencyTreeViewDeletion(Sender: TObject; Node: TTreeNode); +begin + Dispose(Node.Data); // PPeModuleNodeData +end; + +procedure TFileViewerChild.ImportListViewSort; +const + MapIndexToSortType: array[0..3] of TJclPeImportSort = (isName, isOrdinal, isHint, isLibImport); +begin + with ImportListView do + begin + if FCurrentImportDirIndex = -1 then + FParentImportViewImage.ImportList.SortAllItemsList(MapIndexToSortType[Tag and $FF], Tag and $100 <> 0) + else + FParentImportViewImage.ImportList[FCurrentImportDirIndex].SortList(MapIndexToSortType[Tag and $FF], Tag and $100 <> 0); + Invalidate; + end; +end; + +procedure TFileViewerChild.ExportListViewSort; +const + MapIndexToSortType: array[0..3] of TJclPeExportSort = + (esName, esOrdinal, esHint, esAddrOrFwd); +begin + with ExportListView do + begin + FExportViewImage.ExportList.SortList(MapIndexToSortType[Tag and $FF], Tag and $100 <> 0); + Invalidate; + end; +end; + +procedure TFileViewerChild.UpdateModulesView; +var + I: Integer; + ExeImage: TJclPeImage; + VI: TJclFileVersionInfo; +begin + with ModulesListView.Items do + begin + BeginUpdate; + try + Clear; + for I := 0 to FModulesList.Count - 1 do + with Add, FModulesList do + begin + ExeImage := FPeImagesCache.Images[ModuleToFilename(Strings[I])]; + Caption := ExtractFileName(ExeImage.FileName); + Data := Objects[I]; + if ExeImage.Status = stOk then + begin + VI := ExeImage.VersionInfo; + with ExeImage.FileProperties, SubItems do + begin + Add(FormatDateTime('ddddd tt', LastWriteTime)); + Add(Format('%.0n', [IntToExtended(Size)])); + end; + with ExeImage, SubItems do + begin + Add(HeaderValues[JclPeHeader_Subsystem]); + Add(HeaderValues[JclPeHeader_ImageBase]); + if Assigned(VI) then Add(VI.FileVersion) else Add(''); + if Assigned(VI) then Add(VI.ProductVersion) else Add(''); + Add(HeaderValues[JclPeHeader_ImageVersion]); + Add(HeaderValues[JclPeHeader_LinkerVersion]); + Add(HeaderValues[JclPeHeader_OperatingSystemVersion]); + Add(HeaderValues[JclPeHeader_SubsystemVersion]); + if Assigned(VI) then Add(VI.FileDescription) else Add(''); + end; + end; + ImageIndex := ModuleImages[TPeModuleState(Objects[I])].ImageIndex; + end; + finally + EndUpdate; + end; + end; +end; + +procedure TFileViewerChild.ModulesListViewInfoTip(Sender: TObject; Item: TListItem; var InfoTip: String); +begin + with Item.SubItems do + if Count > 10 then + InfoTip := Strings[5] + #13#10 + Strings[10] + else + InfoTip := ''; +end; + +function TFileViewerChild.ModuleToFileName(const ModuleName: string): TFileName; +begin + Result := TJclPeImage.ExpandBySearchPath(ModuleName, FBasePath); +end; + +function TFileViewerChild.GetSelectedFileName: TFileName; +var + S: string; +begin + S := ''; + if ActiveControl = DependencyTreeView then + begin + with DependencyTreeView do + if Selected <> nil then + if Selected.Level = 0 then S := FFileName else + S := Selected.Text; + end else + if Activecontrol = ModulesListView then + with ModulesListView do + if Selected <> nil then + S := Selected.Caption; + Result := ModuleToFileName(S); +end; + +procedure TFileViewerChild.ExportListViewDblClick(Sender: TObject); +begin + MainForm.Win32Help1.Execute; +end; + +procedure TFileViewerChild.ModulesListViewDblClick(Sender: TObject); +begin + MainForm.DumpPe1.Execute; +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeDump.dfm b/official/2.1.1/examples/windows/delphitools/peviewer/PeDump.dfm new file mode 100644 index 0000000..54f3017 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeDump.dfm @@ -0,0 +1,499 @@ +object PeDumpChild: TPeDumpChild + Left = 195 + Top = 152 + AutoScroll = False + Caption = 'PeDumpChild' + ClientHeight = 347 + ClientWidth = 592 + Color = clBtnFace + Constraints.MinHeight = 200 + Constraints.MinWidth = 250 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsMDIChild + OldCreateOrder = False + PopupMenu = PopupMenu1 + Position = poDefault + ShowHint = True + Visible = True + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object Splitter1: TSplitter + Left = 121 + Top = 0 + Width = 3 + Height = 347 + Cursor = crHSplit + ResizeStyle = rsUpdate + end + object SectionTreeView: TTreeView + Left = 0 + Top = 0 + Width = 121 + Height = 347 + Align = alLeft + HideSelection = False + HotTrack = True + Images = MainForm.IconImageList + Indent = 19 + ReadOnly = True + TabOrder = 0 + OnChange = SectionTreeViewChange + OnDblClick = SectionTreeViewDblClick + OnExpanding = SectionTreeViewExpanding + end + object PageControl1: TPageControl + Left = 124 + Top = 0 + Width = 468 + Height = 347 + ActivePage = ItemsTab + Align = alClient + TabOrder = 1 + TabStop = False + object ItemsTab: TTabSheet + Caption = 'ItemsTab' + object ItemsListView: TListView + Left = 0 + Top = 0 + Width = 460 + Height = 319 + Align = alClient + Columns = < + item + Caption = 'Item' + Width = 200 + end + item + Caption = 'Value' + Width = 100 + end> + ColumnClick = False + GridLines = True + HideSelection = False + HotTrackStyles = [] + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.IconImageList + TabOrder = 0 + ViewStyle = vsReport + OnData = ItemsListViewData + end + end + object DirectoryTab: TTabSheet + Caption = 'DirectoryTab' + ImageIndex = 1 + object DirectoryListView: TListView + Left = 0 + Top = 0 + Width = 460 + Height = 319 + Align = alClient + Columns = < + item + Caption = 'Directory' + Width = 120 + end + item + Caption = 'RVA' + Width = 80 + end + item + Alignment = taRightJustify + Caption = 'Size' + Width = 80 + end + item + Alignment = taRightJustify + Caption = 'Percent of file' + Width = 80 + end + item + Caption = 'Section' + Width = 70 + end> + ColumnClick = False + GridLines = True + HideSelection = False + HotTrackStyles = [] + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.IconImageList + TabOrder = 0 + ViewStyle = vsReport + OnCustomDrawItem = DirectoryListViewCustomDrawItem + OnData = DirectoryListViewData + end + end + object ImportTab: TTabSheet + Caption = 'ImportTab' + ImageIndex = 2 + object ImportListView: TListView + Left = 0 + Top = 0 + Width = 460 + Height = 300 + Align = alClient + Columns = < + item + Caption = 'Name' + Width = 230 + end + item + Caption = 'Ordinal' + Width = 60 + end + item + Caption = 'Hint' + end + item + Caption = 'Module' + Width = 90 + end> + HideSelection = False + HotTrackStyles = [] + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.IconImageList + TabOrder = 0 + ViewStyle = vsReport + OnColumnClick = ImportListViewColumnClick + OnData = ImportListViewData + OnDblClick = ImportListViewDblClick + end + object ImportStatusBar: TStatusBar + Left = 0 + Top = 300 + Width = 460 + Height = 19 + Panels = < + item + Width = 90 + end + item + Width = 90 + end + item + Width = 50 + end> + SimplePanel = False + end + end + object ExportTab: TTabSheet + Caption = 'ExportTab' + ImageIndex = 3 + object ExportListView: TListView + Left = 0 + Top = 0 + Width = 460 + Height = 300 + Align = alClient + Columns = < + item + Caption = 'Name' + Width = 250 + end + item + Alignment = taRightJustify + Caption = 'Ordinal' + end + item + Alignment = taRightJustify + Caption = 'Hint' + end + item + Caption = 'Address' + Width = 70 + end + item + Caption = 'Forwarded' + Width = 100 + end + item + Caption = 'Section' + end> + HideSelection = False + HotTrackStyles = [] + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.IconImageList + TabOrder = 0 + ViewStyle = vsReport + OnColumnClick = ExportListViewColumnClick + OnData = ExportListViewData + OnDblClick = ImportListViewDblClick + end + object ExportStatusBar: TStatusBar + Left = 0 + Top = 300 + Width = 460 + Height = 19 + Panels = < + item + Width = 90 + end + item + Width = 90 + end + item + Width = 100 + end + item + Width = 50 + end> + SimplePanel = False + end + end + object ResourceTab: TTabSheet + Caption = 'ResourceTab' + ImageIndex = 4 + object ResourceListView: TListView + Left = 0 + Top = 0 + Width = 460 + Height = 319 + Align = alClient + Columns = < + item + Caption = 'Names' + Width = 200 + end + item + Caption = 'Offset' + Width = 100 + end + item + Caption = 'Size' + end + item + Caption = 'Languages' + Width = 70 + end> + ColumnClick = False + GridLines = True + HideSelection = False + HotTrackStyles = [] + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.IconImageList + TabOrder = 0 + ViewStyle = vsReport + OnData = ResourceListViewData + end + end + object SectionTab: TTabSheet + Caption = 'SectionTab' + ImageIndex = 5 + object SectionListView: TListView + Left = 0 + Top = 0 + Width = 460 + Height = 319 + Align = alClient + Columns = < + item + Caption = 'Section' + Width = 70 + end + item + Caption = 'VirtSize' + Width = 70 + end + item + Caption = 'RVA' + Width = 70 + end + item + Caption = 'PhysSize' + Width = 70 + end + item + Caption = 'PhysOfs' + Width = 70 + end + item + Caption = 'Flags' + Width = 70 + end + item + Caption = 'Info' + end + item + Alignment = taRightJustify + Caption = 'Percent of file' + Width = 79 + end> + ColumnClick = False + GridLines = True + HideSelection = False + HotTrackStyles = [] + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.IconImageList + TabOrder = 0 + ViewStyle = vsReport + OnData = SectionListViewData + end + end + object ResourceDirTab: TTabSheet + Caption = 'ResourceDirTab' + ImageIndex = 6 + object ResourceDirListView: TListView + Left = 0 + Top = 0 + Width = 460 + Height = 319 + Align = alClient + Columns = < + item + Caption = 'Type' + Width = 200 + end + item + Caption = 'Count' + Width = 100 + end> + ColumnClick = False + GridLines = True + HideSelection = False + HotTrackStyles = [] + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.IconImageList + TabOrder = 0 + ViewStyle = vsReport + OnData = ResourceDirListViewData + end + end + object RelocTab: TTabSheet + Caption = 'RelocTab' + ImageIndex = 7 + object RelocListView: TListView + Left = 0 + Top = 0 + Width = 460 + Height = 300 + Align = alClient + Columns = < + item + Caption = 'Address' + Width = 200 + end + item + Caption = 'Type' + Width = 100 + end> + ColumnClick = False + GridLines = True + HideSelection = False + HotTrackStyles = [] + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.IconImageList + TabOrder = 0 + ViewStyle = vsReport + OnData = RelocListViewData + end + object RelocStatusBar: TStatusBar + Left = 0 + Top = 300 + Width = 460 + Height = 19 + Panels = < + item + Width = 100 + end + item + Width = 50 + end> + SimplePanel = False + end + end + object DebugTab: TTabSheet + Caption = 'DebugTab' + ImageIndex = 8 + object DebugListView: TListView + Left = 0 + Top = 0 + Width = 460 + Height = 319 + Align = alClient + Columns = < + item + Caption = 'Type' + Width = 100 + end + item + Caption = 'Size' + Width = 70 + end + item + Caption = 'RVA' + Width = 70 + end + item + Caption = 'FilePtr' + Width = 70 + end + item + Caption = 'Version' + end> + ColumnClick = False + GridLines = True + HideSelection = False + HotTrackStyles = [] + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.IconImageList + TabOrder = 0 + ViewStyle = vsReport + OnData = DebugListViewData + end + end + end + object PopupMenu1: TPopupMenu + Images = MainForm.ToolbarImagesList + Left = 16 + Top = 312 + object Copytoclipboard1: TMenuItem + Action = MainForm.Copy1 + end + object Selectall1: TMenuItem + Action = MainForm.SelectAll1 + end + object N1: TMenuItem + Caption = '-' + end + object Openlibrary1: TMenuItem + Action = MainForm.OpenLibrary1 + end + object FindinWin32APIhelp1: TMenuItem + Action = MainForm.InvokeHelp1 + Default = True + end + end +end diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeDump.pas b/official/2.1.1/examples/windows/delphitools/peviewer/PeDump.pas new file mode 100644 index 0000000..ad6f776 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeDump.pas @@ -0,0 +1,943 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is PeDump.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2007-02-04 19:37:27 +0100 (dim., 04 févr. 2007) $ } +{ } +{**************************************************************************************************} + +unit PeDump; + +{$I jcl.inc} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + JclPeImage, ComCtrls, ExtCtrls, Menus; + +type + TPeDumpViewCategory = (vcHeader, vcDirectory, vcSection, vcLoadConfig, + vcImport, vcExport, vcResource, vcRelocation, vcDebug); + + TPeDumpChild = class(TForm) + SectionTreeView: TTreeView; + Splitter1: TSplitter; + PageControl1: TPageControl; + ItemsTab: TTabSheet; + DirectoryTab: TTabSheet; + ItemsListView: TListView; + DirectoryListView: TListView; + ImportTab: TTabSheet; + ImportListView: TListView; + ExportTab: TTabSheet; + ExportListView: TListView; + PopupMenu1: TPopupMenu; + Copytoclipboard1: TMenuItem; + Selectall1: TMenuItem; + N1: TMenuItem; + Openlibrary1: TMenuItem; + FindinWin32APIhelp1: TMenuItem; + ResourceTab: TTabSheet; + ResourceListView: TListView; + SectionTab: TTabSheet; + SectionListView: TListView; + ResourceDirTab: TTabSheet; + ResourceDirListView: TListView; + ExportStatusBar: TStatusBar; + ImportStatusBar: TStatusBar; + RelocTab: TTabSheet; + RelocListView: TListView; + RelocStatusBar: TStatusBar; + DebugTab: TTabSheet; + DebugListView: TListView; + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure ItemsListViewData(Sender: TObject; Item: TListItem); + procedure SectionTreeViewChange(Sender: TObject; Node: TTreeNode); + procedure DirectoryListViewData(Sender: TObject; Item: TListItem); + procedure ImportListViewColumnClick(Sender: TObject; + Column: TListColumn); + procedure ImportListViewData(Sender: TObject; Item: TListItem); + procedure FormDestroy(Sender: TObject); + procedure ExportListViewData(Sender: TObject; Item: TListItem); + procedure ExportListViewColumnClick(Sender: TObject; + Column: TListColumn); + procedure SectionTreeViewDblClick(Sender: TObject); + procedure SectionListViewData(Sender: TObject; Item: TListItem); + procedure ResourceListViewData(Sender: TObject; Item: TListItem); + procedure ResourceDirListViewData(Sender: TObject; Item: TListItem); + procedure ImportListViewDblClick(Sender: TObject); + procedure DirectoryListViewCustomDrawItem(Sender: TCustomListView; + Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); + procedure SectionTreeViewExpanding(Sender: TObject; Node: TTreeNode; + var AllowExpansion: Boolean); + procedure RelocListViewData(Sender: TObject; Item: TListItem); + procedure DebugListViewData(Sender: TObject; Item: TListItem); + procedure ItemsListViewInfoTip(Sender: TObject; Item: TListItem; + var InfoTip: String); + private + FCurrentResourceDirectory: TJclPeResourceItem; + FCurrentImportIndex: Integer; + FCurrentRelocationIndex: Integer; + FOriginalPageControlWndProc: TWndMethod; + FPeImage: TJclPeImage; + FGroupImports: Boolean; + FUpdatingView: Boolean; + FUnmangleNames: Boolean; + function GetFileName: TFileName; + function GetHasDirectory(const Directory: DWORD): Boolean; + function GetNodeCategory(Node: TTreeNode): TPeDumpViewCategory; + procedure ExportListViewSort; + procedure ImportListViewSort; + function IsListViewActiveAndFocused(ListView: TListView): Boolean; + procedure PageControlWndProc(var Message: TMessage); + procedure UpdateView; + procedure UpdateImportView(Node: TTreeNode); + procedure UpdateRelocationView(Node: TTreeNode); + procedure UpdateResourceDir; + procedure UpdateResourceView(Directory: TJclPeResourceItem); + class procedure UpdateSortData(Column: TListColumn); + procedure SetGroupImports(const Value: Boolean); + procedure SetUnmangleNames(const Value: Boolean); + function FunctionName(const Name: string): string; + function HeadersRemark(HeaderItem: TJclPeHeader): string; + public + constructor CreateEx(AOwner: TComponent; APeImage: TJclPeImage); + function ActiveLibName: string; + function ActiveWin32Function: string; + property FileName: TFileName read GetFileName; + property HasDirectory[const Directory: DWORD]: Boolean read GetHasDirectory; + property GroupImports: Boolean read FGroupImports write SetGroupImports; + property PeImage: TJclPeImage read FPeImage; + property UnmangleNames: Boolean read FUnmangleNames write SetUnmangleNames; + end; + +var + PeDumpChild: TPeDumpChild; + +implementation + +{$R *.DFM} + +uses + CommCtrl, PeViewerMain, ToolsUtils, PeResource, JclStrings, JclWin32; + +resourcestring + RsHeader = 'Header'; + RsDirectory = 'Directory'; + RsSection = 'Sections'; + RsLoadConfig = 'Load config'; + RsImport = 'Imports'; + RsExport = 'Exports'; + RsRelocation = 'Relocations'; + RsResource = 'Resources'; + RsDebug = 'Debug'; + RsNumberOfNames = 'Names: %d'; + RsNumberOfFunctions = 'Functions: %d'; + RsLinkerProducer = 'Linker: %s'; + RsOrdinalBase = 'Ordinal base: %d'; + RsAddresses = 'Addresses: %d'; + +function GetCategoryName(Category: TPeDumpViewCategory): string; +begin + case Category of + vcHeader: Result := RsHeader; + vcDirectory: Result := RsDirectory; + vcSection: Result := RsSection; + vcLoadConfig: Result := RsLoadConfig; + vcImport: Result := RsImport; + vcExport: Result := RsExport; + vcResource: Result := RsResource; + vcRelocation: Result := RsRelocation; + vcDebug: Result := RsDebug; + end; +end; + +function ImageIndexFromImportKind(Kind: TJclPeImportKind): Integer; +begin + case Kind of + ikImport: + Result := icoImports; + ikDelayImport: + Result := icoDelayImport; + ikBoundImport: + Result := icoBoundImport; + else + Result := 0; + end; +end; + +{ TPeDumpChild } + +function TPeDumpChild.ActiveLibName: string; +begin + with SectionTreeView do + if (Selected <> nil) and (Selected.Level = 1) and + (TPeDumpViewCategory(Selected.Parent.Data) = vcImport) then + Result := FPeImage.ExpandBySearchPath(Selected.Text, ExtractFilePath(FileName)) + else + Result := ''; +end; + +function TPeDumpChild.ActiveWin32Function: string; +begin + Result := ''; + if IsListViewActiveAndFocused(ImportListView) then + Result := ImportListView.ItemFocused.Caption + else + if IsListViewActiveAndFocused(ExportListView) then + Result := ExportListView.ItemFocused.Caption + else + Result := ''; + if Pos('@', Result) > 0 then + Result := '' + else + Result := StrRemoveChars(Result, ['[', ']']); +end; + +constructor TPeDumpChild.CreateEx(AOwner: TComponent; APeImage: TJclPeImage); +begin + inherited Create(AOwner); + FPeImage := APeImage; + Caption := ExtractFileName(FileName); + {$IFDEF COMPILER5_UP} + ItemsListView.OnInfoTip := ItemsListViewInfoTip; + {$ENDIF COMPILER5_UP} +end; + +function TPeDumpChild.GetFileName: TFileName; +begin + if FPeImage = nil then Result := '' else Result := FPeImage.FileName; +end; + +function TPeDumpChild.GetHasDirectory(const Directory: DWORD): Boolean; +begin + if FPeImage = nil then + Result := False + else + Result := FPeImage.DirectoryExists[Directory]; +end; + +procedure TPeDumpChild.PageControlWndProc(var Message: TMessage); +begin +// remove PageControl's border + FOriginalPageControlWndProc(Message); + with Message do + if (Msg = TCM_ADJUSTRECT) and (Message.WParam = 0) then + InflateRect(PRect(LParam)^, 4, 4); +end; + +procedure TPeDumpChild.FormCreate(Sender: TObject); +var + I: Integer; +begin + with PageControl1 do + begin + for I := 0 to PageCount - 1 do Pages[I].TabVisible := False; + FOriginalPageControlWndProc := WindowProc; + WindowProc := PageControlWndProc; + ActivePage := ItemsTab; + Realign; + end; + + ImportListView.Tag := $100; + UpdateSortData(ImportListView.Columns[0]); + ExportListView.Tag := $100; + UpdateSortData(ExportListView.Columns[0]); + + UpdateView; +end; + +procedure TPeDumpChild.FormClose(Sender: TObject; var Action: TCloseAction); +var + F: TForm; +begin + Fix_ListViewBeforeClose(Self); + F := MainForm.FindPeResourceView(FPeImage); + if F <> nil then F.Close; + Action := caFree; +end; + +procedure TPeDumpChild.UpdateView; + + procedure BuildImageTree; +var + Category: TPeDumpViewCategory; + TempNode: TTreeNode; + + function AddCategoryNode(ImageIndex: Integer): TTreeNode; +begin + Result := SectionTreeView.Items.AddChildObject(nil, GetCategoryName(Category), + Pointer(Category)); + Result.ImageIndex := ImageIndex; + Result.SelectedIndex := ImageIndex; +end; + +begin + FPeImage.TryGetNamesForOrdinalImports; + with SectionTreeView do + begin + Items.BeginUpdate; + try + Items.Clear; + for Category := Low(Category) to High(Category) do + case Category of + vcHeader: + AddCategoryNode(icoHeader); + vcDirectory: + AddCategoryNode(icoDirectory); + vcSection: + AddCategoryNode(icoSection); + vcLoadConfig: + if FPeImage.DirectoryExists[IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG] then + AddCategoryNode(icoLoadConfig); + vcImport: + if FPeImage.DirectoryExists[IMAGE_DIRECTORY_ENTRY_IMPORT] then + begin + TempNode := AddCategoryNode(icoImports); + TempNode.HasChildren := True; + end; + vcExport: + if FPeImage.DirectoryExists[IMAGE_DIRECTORY_ENTRY_EXPORT] then + AddCategoryNode(icoExports); + vcRelocation: + if FPeImage.DirectoryExists[IMAGE_DIRECTORY_ENTRY_BASERELOC] then + begin + TempNode := AddCategoryNode(icoRelocation); + TempNode.HasChildren := True; + end; + vcResource: + if FPeImage.DirectoryExists[IMAGE_DIRECTORY_ENTRY_RESOURCE] then + begin + TempNode := AddCategoryNode(icoResources); + TempNode.HasChildren := True; + end; + vcDebug: + if FPeImage.DirectoryExists[IMAGE_DIRECTORY_ENTRY_DEBUG] then + AddCategoryNode(icoDebug); + end; + Selected := Items.GetFirstNode; + finally + Items.EndUpdate; + end; + end; +end; + +begin + BuildImageTree; + + with DirectoryListView do + begin + Items.Count := IMAGE_NUMBEROF_DIRECTORY_ENTRIES; + ItemFocused := Items[0]; + end; + with SectionListView do + begin + Items.Count := FPeImage.ImageSectionCount; + if Items.Count > 0 then ItemFocused := Items[0]; + end; + ExportListView.Items.Count := FPeImage.ExportList.Count; + UpdateResourceDir; + with ExportStatusBar, FPeImage.ExportList do + begin + Panels[0].Text := Format(RsNumberOfNames, [Count]); + Panels[1].Text := Format(RsNumberOfFunctions, [FunctionCount]); + Panels[2].Text := Format(RsOrdinalBase, [Base]); + end; +end; + +procedure TPeDumpChild.ItemsListViewData(Sender: TObject; Item: TListItem); +begin + with Item, FPeImage do + case TListView(Sender).Tag of + 0: begin + Caption := HeaderNames(TJclPeHeader(Index)); + SubItems.Add(HeaderValues[TJclPeHeader(Index)]); + end; + 1: begin + Caption := LoadConfigNames(TJclLoadConfig(Index)); + SubItems.Add(LoadConfigValues[TJclLoadConfig(Index)]); + end; + end; +end; + +procedure TPeDumpChild.SectionTreeViewExpanding(Sender: TObject; + Node: TTreeNode; var AllowExpansion: Boolean); +var + I: Integer; + TempNode: TTreeNode; + ResItem: TJclPeResourceItem; +begin + if Node.GetFirstChild = nil then with SectionTreeView do + begin + Items.BeginUpdate; + case GetNodeCategory(Node) of + vcImport: + if GroupImports then + begin + for I := 0 to FPeImage.ImportList.UniqueLibItemCount - 1 do + with Items.AddChild(Node, FPeImage.ImportList.UniqueLibNames[I]) do + begin + Data := Pointer(-1); + ImageIndex := ImageIndexFromImportKind(FPeImage.ImportList.UniqueLibItems[I].ImportKind); + SelectedIndex := ImageIndex; + end; + end else + begin +// FPeImage.ImportList.SortList(ilName); + for I := 0 to FPeImage.ImportList.Count - 1 do + with Items.AddChild(Node, FPeImage.ImportList[I].Name) do + begin + Data := Pointer(FPeImage.ImportList[I].ImportDirectoryIndex); + ImageIndex := ImageIndexFromImportKind(FPeImage.ImportList[I].ImportKind); + SelectedIndex := ImageIndex; + end; + end; + vcResource: + if Node.Level = 0 then + for I := 0 to FPeImage.ResourceList.Count - 1 do + begin + ResItem := FPeImage.ResourceList[I]; + TempNode := Items.AddChildObject(Node, ResItem.ResourceTypeStr, ResItem); + TempNode.ImageIndex := icoResources; + TempNode.SelectedIndex := TempNode.ImageIndex; + TempNode.HasChildren := True; + end + else + begin + ResItem := TJclPeResourceItem(Node.Data); + for I := 0 to ResItem.List.Count - 1 do + with Items.AddChildObject(Node, ResItem.List[I].Name, ResItem.List[I]) do + begin + ImageIndex := icoResources; + SelectedIndex := ImageIndex; + end; + end; + vcRelocation: + for I := 0 to FPeImage.RelocationList.Count - 1 do + with Items.AddChildObject(Node, + Format('%.8x', [FPeImage.RelocationList[I].VirtualAddress]), Pointer(I)) do + begin + ImageIndex := icoRelocation; + SelectedIndex := ImageIndex; + end; + end; + Items.EndUpdate; + end; +end; + +procedure TPeDumpChild.SectionTreeViewChange(Sender: TObject; Node: TTreeNode); +begin + if FUpdatingView then Exit; + case GetNodeCategory(Node) of + vcHeader: + begin + ItemsListView.Items.Count := Integer(High(TJclPeHeader)) + 1; + ItemsListView.Tag := 0; // Header items + ItemsListView.Invalidate; + PageControl1.ActivePage := ItemsTab; + end; + vcDirectory: PageControl1.ActivePage := DirectoryTab; + vcSection: PageControl1.ActivePage := SectionTab; + vcLoadConfig: + begin + ItemsListView.Items.Count := Integer(High(TJclLoadConfig)) + 1; + ItemsListView.Tag := 1; // Load config items + ItemsListView.Invalidate; + PageControl1.ActivePage := ItemsTab; + end; + vcImport: + begin + if Node.Level = 0 then UpdateImportView(nil) else UpdateImportView(Node); + PageControl1.ActivePage := ImportTab; + end; + vcExport: + PageControl1.ActivePage := ExportTab; + vcRelocation: + begin + UpdateRelocationView(Node); + PageControl1.ActivePage := RelocTab; + end; + vcResource: + if Node.Level = 0 then + begin + UpdateResourceDir; + PageControl1.ActivePage := ResourceDirTab; + end else + begin + UpdateResourceView(TJclPeResourceItem(Node.Data)); + PageControl1.ActivePage := ResourceTab; + end; + vcDebug: + begin + DebugListView.Items.Count := FPeImage.DebugList.Count; + PageControl1.ActivePage := DebugTab; + end; + end; +end; + +procedure TPeDumpChild.DirectoryListViewData(Sender: TObject; Item: TListItem); +const + DirectoryIcons: array[0..15] of Integer = + (icoExports, icoImports, icoResources, -1, -1, icoRelocation, icoDebug, + -1, -1, -1, icoLoadConfig, icoBoundImport, -1, icoDelayImport, -1, -1); +var + Percent: Single; +begin + if FPeImage.Target = taWin64 then + begin + with Item, FPeImage.OptionalHeader64 do + begin + Percent := DataDirectory[Index].Size * 100 / SizeOfImage; + Caption := FPeImage.DirectoryNames(Index); + Data := Pointer(DataDirectory[Index].Size); + if Integer(Data) <> 0 then ImageIndex := DirectoryIcons[Index]; + SubItems.Add(Format('%.8x', [DataDirectory[Index].VirtualAddress])); + SubItems.Add(Format('%.8x', [DataDirectory[Index].Size])); + SubItems.Add(Format('%3.1f%%', [Percent])); + SubItems.Add(FPeImage.ImageSectionNameFromRva[DataDirectory[Index].VirtualAddress]); + end; + end + else + begin + with Item, FPeImage.OptionalHeader32 do + begin + Percent := DataDirectory[Index].Size * 100 / SizeOfImage; + Caption := FPeImage.DirectoryNames(Index); + Data := Pointer(DataDirectory[Index].Size); + if Integer(Data) <> 0 then ImageIndex := DirectoryIcons[Index]; + SubItems.Add(Format('%.8x', [DataDirectory[Index].VirtualAddress])); + SubItems.Add(Format('%.8x', [DataDirectory[Index].Size])); + SubItems.Add(Format('%3.1f%%', [Percent])); + SubItems.Add(FPeImage.ImageSectionNameFromRva[DataDirectory[Index].VirtualAddress]); + end; + end; +end; + +class procedure TPeDumpChild.UpdateSortData(Column: TListColumn); +var + ListView: TListView; + I: Integer; +begin + ListView := TListView(TListColumns(Column.Collection).Owner); + ListView.Columns.BeginUpdate; + with ListView.Columns do + for I := 0 to Count - 1 do + Items[I].ImageIndex := -1; + if ListView.Tag and $FF = Column.Index then + ListView.Tag := ListView.Tag xor $100 + else + ListView.Tag := Column.Index; + if ListView.Tag and $100 = 0 then + Column.ImageIndex := icoSortDesc + else + Column.ImageIndex := icoSortAsc; + ListView.Columns.EndUpdate; +end; + +procedure TPeDumpChild.ImportListViewColumnClick(Sender: TObject; Column: TListColumn); +begin + UpdateSortData(Column); + ImportListViewSort; +end; + +procedure TPeDumpChild.UpdateImportView(Node: TTreeNode); +const + LinkerProducers: array[TJclPeLinkerProducer] of string = + ('Borland', 'Microsoft'); +begin + FCurrentImportIndex := -1; + if Node = nil then + begin + FPeImage.ImportList.FilterModuleName := ''; + ImportListView.Items.Count := FPeImage.ImportList.AllItemCount; + end else + if Integer(Node.Data) = -1 then + begin + FPeImage.ImportList.FilterModuleName := Node.Text; + ImportListView.Items.Count := FPeImage.ImportList.AllItemCount; + end else + begin + FCurrentImportIndex := Integer(Node.Data); + ImportListView.Items.Count := FPeImage.ImportList[FCurrentImportIndex].Count; + end; + ImportListViewSort; + ImportListView.Invalidate; + with ImportStatusBar, FPeImage.ImportList do + begin + Panels[0].Text := Format(RsNumberOfFunctions, [ImportListView.Items.Count]); + Panels[1].Text := Format(RsLinkerProducer, [LinkerProducers[LinkerProducer]]); + end; +end; + +procedure TPeDumpChild.ImportListViewData(Sender: TObject; Item: TListItem); +var + ViewItem: TJclPeImportFuncItem; +begin + if FCurrentImportIndex = -1 then + ViewItem := FPeImage.ImportList.AllItems[Item.Index] + else + ViewItem := FPeImage.ImportList[FCurrentImportIndex][Item.Index]; + with Item, ViewItem do + begin + if IndirectImportName then + Caption := Format('[%s]', [Name]) + else + Caption := FunctionName(Name); + if IsByOrdinal then + begin + SubItems.Add(Format('%d', [Ordinal])); + SubItems.Add(''); + end else + begin + SubItems.Add(''); + SubItems.Add(Format('%d', [Hint])); + end; + SubItems.Add(ImportLib.Name); + ImageIndex := ImageIndexFromImportKind(ImportLib.ImportKind); + end; +end; + +procedure TPeDumpChild.FormDestroy(Sender: TObject); +begin + FPeImage.Free; +end; + +procedure TPeDumpChild.ExportListViewData(Sender: TObject; Item: TListItem); +begin + with Item, FPeImage.ExportList[Item.Index] do + begin + Caption := FunctionName(Name); + SubItems.Add(Format('%d', [Ordinal])); + SubItems.Add(Format('%d', [Hint])); + SubItems.Add(Format('%.8x', [Address])); + SubItems.Add(ForwardedName); + SubItems.Add(SectionName); + ImageIndex := 3; + end; +end; + +procedure TPeDumpChild.ExportListViewColumnClick(Sender: TObject; + Column: TListColumn); +begin + UpdateSortData(Column); + ExportListViewSort; +end; + +function TPeDumpChild.IsListViewActiveAndFocused(ListView: TListView): Boolean; +begin + Result := (ActiveControl = ListView) and (ListView.ItemFocused <> nil); +end; + +procedure TPeDumpChild.SectionTreeViewDblClick(Sender: TObject); +begin + MainForm.OpenLibrary1.Execute; +end; + +procedure TPeDumpChild.SectionListViewData(Sender: TObject; Item: TListItem); +var + Percent: Single; +begin + with FPeImage, Item do + begin + Caption := ImageSectionNames[Item.Index]; + with ImageSectionHeaders[Item.Index] do + begin + if FPeImage.Target = taWin64 then + Percent := SizeOfRawData * 100 / OptionalHeader64.SizeOfImage + else + Percent := SizeOfRawData * 100 / OptionalHeader32.SizeOfImage; + SubItems.Add(Format('%.8x', [Misc.VirtualSize])); + SubItems.Add(Format('%.8x', [VirtualAddress])); + SubItems.Add(Format('%.8x', [SizeOfRawData])); + SubItems.Add(Format('%.8x', [PointerToRawData])); + SubItems.Add(Format('%.8x', [Characteristics])); + SubItems.Add(ShortSectionInfo(Characteristics)); + SubItems.Add(Format('%3.1f%%', [Percent])); + end; + end; +end; + +procedure TPeDumpChild.UpdateResourceView(Directory: TJclPeResourceItem); +begin + ResourceListView.Items.Count := 0; + FCurrentResourceDirectory := Directory; + ResourceListView.Items.Count := Directory.List.Count; + ResourceListView.Invalidate; +end; + +procedure TPeDumpChild.ResourceListViewData(Sender: TObject; Item: TListItem); +var + DirSize, I: Integer; +begin + with Item, FCurrentResourceDirectory.List[Item.Index] do + begin + if IsDirectory then + begin + Caption := Name; + if (List.Count = 1) and (StrToIntDef(List[0].Name, 0) = LANG_NEUTRAL) then + begin // only neutral language + DirSize := List[0].DataEntry^.Size; + SubItems.Add(Format('(%x)', [List[0].DataEntry^.OffsetToData])); + end else + begin + DirSize := 0; + for I := 0 to List.Count - 1 do + Inc(DirSize, List[I].DataEntry^.Size); + SubItems.Add(''); + end; + SubItems.Add(Format('%x', [DirSize])); + SubItems.Add(Format('%d', [List.Count])); + end else + begin + Caption := Format('%s (%s)', [ParentItem.Name, Name]); + SubItems.Add(Format('%x', [DataEntry^.OffsetToData])); + SubItems.Add(Format('%x', [DataEntry^.Size])); + SubItems.Add(LangNameFromName(Name)); + end; + end; +end; + +procedure TPeDumpChild.UpdateResourceDir; +begin + ResourceDirListView.Items.Count := FPeImage.ResourceList.Count; + ResourceDirListView.Invalidate; +end; + +procedure TPeDumpChild.ResourceDirListViewData(Sender: TObject; Item: TListItem); +begin + with Item, FPeImage.ResourceList[Item.Index] do + begin + Caption := ResourceTypeStr; + SubItems.Add(Format('%d', [List.Count])); + end; +end; + +procedure TPeDumpChild.UpdateRelocationView(Node: TTreeNode); +begin + if Node.Level = 0 then + begin + FCurrentRelocationIndex := -1; + RelocListView.Items.Count := FPeImage.RelocationList.AllItemCount; + end else + begin + FCurrentRelocationIndex := Integer(Node.Data); + RelocListView.Items.Count := FPeImage.RelocationList[FCurrentRelocationIndex].Count; + end; + RelocStatusBar.Panels[0].Text := Format(RsAddresses, [RelocListView.Items.Count]); + RelocListView.Invalidate; +end; + +procedure TPeDumpChild.RelocListViewData(Sender: TObject; Item: TListItem); +var + ViewItem: TJclPeRelocation; + + function RelocationTypeStr(RelocType: Byte): string; +begin + case RelocType of + IMAGE_REL_BASED_ABSOLUTE: Result := 'ABSOLUTE'; + IMAGE_REL_BASED_HIGHLOW: Result := 'HIGHLOW'; + else + Result := IntToStr(RelocType); + end; +end; + +begin + if FCurrentRelocationIndex = -1 then + ViewItem := FPeImage.RelocationList.AllItems[Item.Index] + else + ViewItem := FPeImage.RelocationList[FCurrentRelocationIndex][Item.Index]; + with Item, ViewItem do + begin + Caption := Format('%.8x', [VirtualAddress]); + SubItems.Add(RelocationTypeStr(RelocType)); + end; +end; + +procedure TPeDumpChild.DebugListViewData(Sender: TObject; Item: TListItem); +begin + with Item, FPeImage.DebugList[Item.Index] do + begin + Caption := FPeImage.DebugTypeNames(_Type); + SubItems.Add(Format('%.8x', [SizeOfData])); + SubItems.Add(Format('%.8x', [AddressOfRawData])); + SubItems.Add(Format('%.8x', [PointerToRawData])); + SubItems.Add(Format('%d.%.2d', [MajorVersion, MinorVersion])); + end; +end; + +procedure TPeDumpChild.ImportListViewDblClick(Sender: TObject); +begin + MainForm.InvokeHelp1.Execute; +end; + +procedure TPeDumpChild.DirectoryListViewCustomDrawItem(Sender: TCustomListView; + Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); +begin + if Integer(Item.Data) = 0 then Sender.Canvas.Font.Color := clGrayText; +end; + +procedure TPeDumpChild.SetGroupImports(const Value: Boolean); +var + NodeIndex: Integer; + TempNode: TTreeNode; + WasExpanded: Boolean; +begin + if FGroupImports <> Value then + begin + FGroupImports := Value; + with SectionTreeView do + begin + Items.BeginUpdate; + FUpdatingView := True; + try + if Assigned(Selected) then + begin + if Selected.Level > 0 then + begin + NodeIndex := Selected.Parent.Index; + WasExpanded := True; + end else + begin + NodeIndex := Selected.Index; + WasExpanded := Selected.Expanded; + end; + end else + begin + NodeIndex := 0; + WasExpanded := False; + end; + Self.UpdateView; + TempNode := Items.GetFirstNode; + while NodeIndex > 0 do + begin + TempNode := TempNode.GetNextSibling; + Dec(NodeIndex); + end; + FUpdatingView := False; + Selected := TempNode; + if WasExpanded then Selected.Expand(False); + finally + Items.EndUpdate; + end; + end; + end; +end; + +procedure TPeDumpChild.ImportListViewSort; +const + MapIndexToSortType: array[0..3] of TJclPeImportSort = (isName, isOrdinal, isHint, isLibImport); +begin + with ImportListView do + begin + if FCurrentImportIndex = -1 then + FPeImage.ImportList.SortAllItemsList(MapIndexToSortType[Tag and $FF], Tag and $100 <> 0) + else + FPeImage.ImportList[FCurrentImportIndex].SortList(MapIndexToSortType[Tag and $FF], Tag and $100 <> 0); + Invalidate; + end; +end; + +procedure TPeDumpChild.ExportListViewSort; +const + MapIndexToSortType: array[0..5] of TJclPeExportSort = + (esName, esOrdinal, esHint, esAddress, esForwarded, esSection); +begin + with ExportListView do + begin + FPeImage.ExportList.SortList(MapIndexToSortType[Tag and $FF], Tag and $100 <> 0); + Invalidate; + end; +end; + +function TPeDumpChild.GetNodeCategory(Node: TTreeNode): TPeDumpViewCategory; +begin + while Node.Parent <> nil do Node := Node.Parent; + Result := TPeDumpViewCategory(Node.Data); +end; + +procedure TPeDumpChild.SetUnmangleNames(const Value: Boolean); +begin + if FUnmangleNames <> Value then + begin + FUnmangleNames := Value; + ImportListView.Invalidate; + ExportListView.Invalidate; + end; +end; + +function TPeDumpChild.FunctionName(const Name: string): string; +begin + if FUnmangleNames then + PeUnmangleName(Name, Result) + else + Result := Name; +end; + +function TPeDumpChild.HeadersRemark(HeaderItem: TJclPeHeader): string; +const + ImageCharacteristicValues: array [1..14] of packed record + Value: Word; + Name: PChar; + end = ( + (Value: IMAGE_FILE_RELOCS_STRIPPED; Name: 'RELOCS_STRIPPED'), + (Value: IMAGE_FILE_EXECUTABLE_IMAGE; Name: 'EXECUTABLE_IMAGE'), + (Value: IMAGE_FILE_LINE_NUMS_STRIPPED; Name: 'LINE_NUMS_STRIPPED'), + (Value: IMAGE_FILE_LOCAL_SYMS_STRIPPED; Name: 'LOCAL_SYMS_STRIPPED'), + (Value: IMAGE_FILE_AGGRESIVE_WS_TRIM; Name: 'AGGRESIVE_WS_TRIM'), + (Value: IMAGE_FILE_BYTES_REVERSED_LO; Name: 'BYTES_REVERSED_LO'), + (Value: IMAGE_FILE_32BIT_MACHINE; Name: '32BIT_MACHINE'), + (Value: IMAGE_FILE_DEBUG_STRIPPED; Name: 'DEBUG_STRIPPED'), + (Value: IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP; Name: 'REMOVABLE_RUN_FROM_SWAP'), + (Value: IMAGE_FILE_NET_RUN_FROM_SWAP; Name: 'NET_RUN_FROM_SWAP'), + (Value: IMAGE_FILE_SYSTEM; Name: 'SYSTEM'), + (Value: IMAGE_FILE_DLL; Name: 'DLL'), + (Value: IMAGE_FILE_UP_SYSTEM_ONLY; Name: 'UP_SYSTEM_ONLY'), + (Value: IMAGE_FILE_BYTES_REVERSED_HI; Name: 'BYTES_REVERSED_HI') + ); +var + C: Word; + I: Integer; +begin + case HeaderItem of + JclPeHeader_Characteristics: + begin + Result := ''; + C := FPeImage.LoadedImage.FileHeader.FileHeader.Characteristics; + for I := Low(ImageCharacteristicValues) to High(ImageCharacteristicValues) do + if C and ImageCharacteristicValues[I].Value <> 0 then + Result := Result + #13#10 + ImageCharacteristicValues[I].Name; + Delete(Result, 1, 2); + end; + else + Result := ''; + end; +end; + +procedure TPeDumpChild.ItemsListViewInfoTip(Sender: TObject; + Item: TListItem; var InfoTip: String); +begin + case TListView(Sender).Tag of + 0: InfoTip := HeadersRemark(TJclPeHeader(Item.Index)); + end; +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeGenDef.dfm b/official/2.1.1/examples/windows/delphitools/peviewer/PeGenDef.dfm new file mode 100644 index 0000000..a157874 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeGenDef.dfm @@ -0,0 +1,144 @@ +object PeGenDefChild: TPeGenDefChild + Left = 278 + Top = 149 + ClientWidth = 401 + ClientHeight = 312 + Caption = 'Pascal unit generator' + Color = clBtnFace + Constraints.MinHeight = 230 + Constraints.MinWidth = 270 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsMDIChild + OldCreateOrder = False + Position = poDefaultPosOnly + Visible = True + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object PageControl1: TPageControl + Left = 0 + Top = 0 + Width = 401 + Height = 311 + ActivePage = TabSheet1 + Align = alClient + Style = tsFlatButtons + TabOrder = 0 + OnChange = PageControl1Change + object TabSheet1: TTabSheet + Caption = '&Options' + object FunctionsListView: TListView + Left = 0 + Top = 96 + Width = 393 + Height = 184 + Anchors = [akLeft, akTop, akRight, akBottom] + Columns = < + item + Caption = 'Original name' + Width = 140 + end + item + Caption = 'Function name' + Width = 140 + end + item + Caption = 'Address' + Width = 70 + end> + ColumnClick = False + HotTrackStyles = [] + OwnerData = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.IconImageList + TabOrder = 0 + ViewStyle = vsReport + OnCustomDrawItem = FunctionsListViewCustomDrawItem + OnData = FunctionsListViewData + end + object GroupBox1: TGroupBox + Left = 0 + Top = 0 + Width = 392 + Height = 81 + Anchors = [akLeft, akTop, akRight] + Caption = 'Code generation options' + TabOrder = 1 + object Label1: TLabel + Left = 8 + Top = 20 + Width = 107 + Height = 13 + Caption = '&Library constant name:' + FocusControl = LibConstNameEdit + end + object LibConstNameEdit: TEdit + Left = 132 + Top = 16 + Width = 116 + Height = 21 + MaxLength = 32 + TabOrder = 0 + end + object WrapSpinEdit: TSpinEdit + Left = 132 + Top = 47 + Width = 57 + Height = 22 + Enabled = False + MaxLength = 3 + MaxValue = 999 + MinValue = 1 + TabOrder = 1 + Value = 80 + end + object WrapCheckBox: TCheckBox + Left = 8 + Top = 48 + Width = 118 + Height = 17 + Caption = '&Wrap text at column:' + TabOrder = 2 + OnClick = WrapCheckBoxClick + end + end + end + object TabSheet2: TTabSheet + Caption = '&Unit source' + ImageIndex = 1 + object UnitRichEdit: TRichEdit + Left = 0 + Top = 0 + Width = 393 + Height = 280 + Align = alClient + Font.Charset = EASTEUROPE_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + HideScrollBars = False + ParentFont = False + PlainText = True + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 0 + WordWrap = False + end + end + end + object SaveDialog: TSaveDialog + DefaultExt = 'pas' + Filter = 'Pascal unit (*.pas)|*.pas|All files (*.*)|*.*' + Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing] + Left = 12 + Top = 195 + end +end diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeGenDef.pas b/official/2.1.1/examples/windows/delphitools/peviewer/PeGenDef.pas new file mode 100644 index 0000000..eb9ce0e --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeGenDef.pas @@ -0,0 +1,365 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is PeGenDef.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2008-09-09 21:32:17 +0200 (mar., 09 sept. 2008) $ } +{ } +{**************************************************************************************************} + +unit PeGenDef; + +{$I JCL.INC} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + JclPeImage, ComCtrls, StdCtrls, Spin; + +type + TPeUnitGenFlags = set of (ufDecorated, ufDuplicate, ufVariable); + + TPeUnitGenerator = class(TJclPeImage) + private + FUnitGenFlags: array of TPeUnitGenFlags; + function GetUnitGenFlags(Index: Integer): TPeUnitGenFlags; + public + procedure GenerateUnit(Strings: TStrings; const LibConst: string; WrapPos: Integer); + procedure ScanExports; + property UnitGenFlags[Index: Integer]: TPeUnitGenFlags read GetUnitGenFlags; + end; + + TPeGenDefChild = class(TForm) + PageControl1: TPageControl; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; + FunctionsListView: TListView; + UnitRichEdit: TRichEdit; + GroupBox1: TGroupBox; + Label1: TLabel; + LibConstNameEdit: TEdit; + WrapSpinEdit: TSpinEdit; + WrapCheckBox: TCheckBox; + SaveDialog: TSaveDialog; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FunctionsListViewData(Sender: TObject; Item: TListItem); + procedure FunctionsListViewCustomDrawItem(Sender: TCustomListView; + Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); + procedure PageControl1Change(Sender: TObject); + procedure WrapCheckBoxClick(Sender: TObject); + private + FPeUnitGenerator: TPeUnitGenerator; + procedure SetFileName(const Value: TFileName); + function GetFileName: TFileName; + procedure GenerateUnit; + public + function CanSave: Boolean; + procedure SaveUnit; + property FileName: TFileName read GetFileName write SetFileName; + end; + +var + PeGenDefChild: TPeGenDefChild; + +implementation + +uses PeViewerMain, JclFileUtils, ToolsUtils, JclSysUtils; + +{$R *.DFM} + +const + nfDecoratedName = $01; + nfAnsiUnicodePair = $02; + +function PascalizeName(const Name: string): string; + function CharIsValidLeadingChar(const C: Char): Boolean; + begin + case C of + 'A'..'Z', + 'a'..'z': + Result := True; + else + Result := False; + end; + end; + function CharIsStripLeadingChar(const C: Char): Boolean; + begin + Result := C = '_'; + end; + function CharIsValid(const C: Char): Boolean; + begin + case C of + 'A'..'Z', + 'a'..'z', + '0'..'9': + Result := True; + else + Result := False; + end; + end; +const + InvalidCharReplacement = '_'; + StopChar = '@'; +var + I: Integer; + C: Char; +begin + SetLength(Result, Length(Name)); + Result := ''; + for I := 1 to Length(Name) do + begin + C := Name[I]; + if I = 1 then + begin + if CharIsValidLeadingChar(C) then + Result := Result + C + else + if not CharIsStripLeadingChar(C) then + Break; // probably MS C++ or Borland name decoration + end else + begin + if CharIsValid(C) then + Result := Result + C + else + if C = StopChar then + Break + else + Result := Result + InvalidCharReplacement; + end; + end; + I := Length(Result); + while I > 0 do + if Result[I] = InvalidCharReplacement then + begin + Delete(Result, I, 1); + Dec(I); + end + else + Break; +end; + +function PossiblyAnsiUnicodePair(const Name1, Name2: AnsiString): Boolean; +const + AnsiUnicodeSuffixes = ['A', 'W']; +var + L1, L2: Integer; + Suffix1, Suffix2: AnsiChar; +begin + Result := False; + L1 := Length(Name1); + L2 := Length(Name2); + if (L1 = L2) and (L1 > 1) then + begin + Suffix1 := Name1[L1]; + Suffix2 := Name2[L2]; + Result := (Suffix1 in AnsiUnicodeSuffixes) and (Suffix2 in AnsiUnicodeSuffixes) and + (Suffix1 <> Suffix2) and (Copy(Name1, 1, L1 - 1) = Copy(Name2, 1, L2 - 1)); + end; +end; + +function IsDecoratedName(const Name: string): Boolean; +begin + Result := (Length(Name) > 1) and (Name[1] = '?') and (Name[1] = '@'); +end; + + +{ TPeUnitGenerator } + +procedure TPeUnitGenerator.GenerateUnit(Strings: TStrings; const LibConst: string; + WrapPos: Integer); +var + I: Integer; + S: string; +begin + Strings.Add('implementation'); + Strings.Add(''); + Strings.Add('const'); + Strings.Add(Format(' %s = ''%s'';', [LibConst, ExtractFileName(FileName)])); + Strings.Add(''); + for I := 0 to ExportList.Count - 1 do + with ExportList[I] do + if FUnitGenFlags[I] = [] then + begin + S := Format('function %s; external %s name ''%s'';', [PascalizeName(Name), LibConst, Name]); + if WrapPos > 0 then + S := WrapText(S, #13#10' ', [' '], WrapPos); + Strings.Add(S); + end; + Strings.Add(''); + Strings.Add('end.'); +end; + +function TPeUnitGenerator.GetUnitGenFlags(Index: Integer): TPeUnitGenFlags; +begin + Result := FUnitGenFlags[Index]; +end; + +procedure TPeUnitGenerator.ScanExports; +var + I: Integer; + PascalName, LastName, FirstSectionName: string; + LastAddress: DWORD; + Flags: TPeUnitGenFlags; +begin + SetLength(FUnitGenFlags, ExportList.Count); + ExportList.SortList(esName); + LastName := ''; + LastAddress := 0; + FirstSectionName := ImageSectionNames[0]; // The first section is code section + for I := 0 to ExportList.Count - 1 do + with ExportList[I] do + begin + Flags := []; + if SectionName <> FirstSectionName then + Include(Flags, ufVariable) + else + if IsDecoratedName(Name) then + Include(Flags, ufDecorated) + else + begin + PascalName := PascalizeName(Name); + if (LastAddress = Address) and (LastName = PascalName) then + Include(Flags, ufDuplicate); + LastName := PascalName; + LastAddress := Address; + end; + FUnitGenFlags[I] := Flags; + end; +end; + +{ TPeGenDefChild } + +procedure TPeGenDefChild.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Fix_ListViewBeforeClose(Self); + Action := caFree; +end; + +procedure TPeGenDefChild.FormCreate(Sender: TObject); +begin + FPeUnitGenerator := TPeUnitGenerator.Create; +end; + +procedure TPeGenDefChild.FormDestroy(Sender: TObject); +begin + FreeAndNil(FPeUnitGenerator); +end; + +function TPeGenDefChild.GetFileName: TFileName; +begin + Result := FPeUnitGenerator.FileName; +end; + +procedure TPeGenDefChild.SetFileName(const Value: TFileName); +begin + Screen.Cursor := crHourGlass; + try + FPeUnitGenerator.FileName := Value; + FPeUnitGenerator.ScanExports; + LibConstNameEdit.Text := PathExtractFileNameNoExt(Value) + 'Lib'; + FunctionsListView.Items.Count := FPeUnitGenerator.ExportList.Count; + FunctionsListView.Invalidate; + finally + Screen.Cursor := crDefault; + end; +end; + +procedure TPeGenDefChild.FunctionsListViewData(Sender: TObject; Item: TListItem); +var + Flags: TPeUnitGenFlags; +begin + Flags := FPeUnitGenerator.UnitGenFlags[Item.Index]; + with Item, FPeUnitGenerator.ExportList[Item.Index] do + begin + Caption := Name; + SubItems.Add(PascalizeName(Name)); + SubItems.Add(AddressOrForwardStr); + if ufDuplicate in Flags then + ImageIndex := icoWarning + else + if Flags * [ufDecorated, ufVariable] = [] then + ImageIndex := icoExports + else + ImageIndex := -1; + end; +end; + +procedure TPeGenDefChild.FunctionsListViewCustomDrawItem(Sender: TCustomListView; + Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); +var + Flags: TPeUnitGenFlags; +begin + Flags := FPeUnitGenerator.UnitGenFlags[Item.Index]; + if Flags * [ufDecorated, ufVariable] <> [] then + Sender.Canvas.Font.Style := [fsStrikeOut]; +end; + +procedure TPeGenDefChild.GenerateUnit; +var + SL: TStringList; + WrapColumn: Integer; +begin + Screen.Cursor := crHourGlass; + SL := TStringList.Create; + try + if WrapCheckBox.Checked then + WrapColumn := WrapSpinEdit.Value + else + WrapColumn := 0; + FPeUnitGenerator.GenerateUnit(SL, LibConstNameEdit.Text, WrapColumn); + UnitRichEdit.Text := SL.Text; + finally + SL.Free; + Screen.Cursor := crDefault; + end; +end; + +procedure TPeGenDefChild.PageControl1Change(Sender: TObject); +begin + if PageControl1.ActivePage = TabSheet1 then + LibConstNameEdit.SetFocus + else + if PageControl1.ActivePage = TabSheet2 then + GenerateUnit; +end; + +procedure TPeGenDefChild.WrapCheckBoxClick(Sender: TObject); +begin + WrapSpinEdit.Enabled := WrapCheckBox.Checked; +end; + +function TPeGenDefChild.CanSave: Boolean; +begin + Result := PageControl1.ActivePage = TabSheet2; +end; + +procedure TPeGenDefChild.SaveUnit; +begin + with SaveDialog do + begin + FileName := PathExtractFileNameNoExt(FPeUnitGenerator.FileName); + if Execute then + UnitRichEdit.Lines.SaveToFile(FileName); + end; +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeResView.dfm b/official/2.1.1/examples/windows/delphitools/peviewer/PeResView.dfm new file mode 100644 index 0000000..edb8b7c --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeResView.dfm @@ -0,0 +1,420 @@ +object PeResViewChild: TPeResViewChild + Left = 380 + Top = 203 + AutoScroll = False + Caption = 'PeResViewChild' + ClientHeight = 407 + ClientWidth = 597 + Color = clBtnFace + Constraints.MinHeight = 200 + Constraints.MinWidth = 250 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsMDIChild + OldCreateOrder = False + PopupMenu = PopupMenu1 + Position = poDefault + Visible = True + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object Splitter1: TSplitter + Left = 121 + Top = 0 + Width = 3 + Height = 407 + Cursor = crHSplit + ResizeStyle = rsUpdate + end + object ResourceTreeView: TTreeView + Left = 0 + Top = 0 + Width = 121 + Height = 407 + Align = alLeft + HideSelection = False + Images = MainForm.IconImageList + Indent = 19 + ReadOnly = True + TabOrder = 0 + OnChange = ResourceTreeViewChange + OnExpanding = ResourceTreeViewExpanding + end + object PageControl1: TPageControl + Left = 124 + Top = 0 + Width = 473 + Height = 407 + ActivePage = DirTab + Align = alClient + TabOrder = 1 + TabStop = False + object DirTab: TTabSheet + Caption = 'DirTab' + object DirListView: TListView + Left = 0 + Top = 0 + Width = 465 + Height = 379 + Align = alClient + Columns = < + item + Caption = 'Name' + Width = 150 + end + item + Caption = 'Offset' + Width = 70 + end + item + Caption = 'Size' + Width = 70 + end> + ColumnClick = False + GridLines = True + HideSelection = False + HotTrackStyles = [] + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.IconImageList + TabOrder = 0 + ViewStyle = vsReport + OnData = DirListViewData + end + end + object HexDumpTab: TTabSheet + Caption = 'HexDumpTab' + ImageIndex = 1 + object HexDumpListView: TListView + Left = 0 + Top = 0 + Width = 465 + Height = 379 + Align = alClient + Columns = < + item + Caption = 'Offset' + Width = 70 + end + item + Caption = 'Data' + Width = 250 + end + item + Caption = 'ASCII' + Width = 70 + end> + ColumnClick = False + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + GridLines = True + HideSelection = False + HotTrackStyles = [] + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + ParentFont = False + SmallImages = MainForm.IconImageList + TabOrder = 0 + ViewStyle = vsReport + OnData = HexDumpListViewData + end + end + object StringsTab: TTabSheet + Caption = 'StringsTab' + ImageIndex = 2 + object Splitter2: TSplitter + Left = 0 + Top = 341 + Width = 465 + Height = 3 + Cursor = crVSplit + Align = alBottom + ResizeStyle = rsUpdate + end + object StringsListView: TListView + Left = 0 + Top = 0 + Width = 465 + Height = 341 + Align = alClient + Columns = < + item + Caption = 'ID' + Width = 70 + end + item + Caption = 'Text' + Width = 300 + end> + ColumnClick = False + GridLines = True + HideSelection = False + HotTrackStyles = [] + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + SmallImages = MainForm.IconImageList + TabOrder = 0 + ViewStyle = vsReport + OnData = StringsListViewData + OnSelectItem = StringsListViewSelectItem + end + object DetailedStringMemo: TMemo + Left = 0 + Top = 344 + Width = 465 + Height = 35 + Align = alBottom + Color = clBtnFace + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 1 + end + end + object GraphDirTab: TTabSheet + Caption = 'GraphDirTab' + ImageIndex = 3 + object GraphDrawGrid: TDrawGrid + Left = 0 + Top = 0 + Width = 465 + Height = 379 + Align = alClient + ColCount = 2 + DefaultDrawing = False + FixedCols = 0 + Options = [goVertLine, goHorzLine, goColSizing, goRowSelect, goThumbTracking] + TabOrder = 0 + OnDrawCell = GraphDrawGridDrawCell + ColWidths = ( + 147 + 277) + end + end + object TextTab: TTabSheet + Caption = 'TextTab' + ImageIndex = 4 + object TextRichEdit: TRichEdit + Left = 0 + Top = 0 + Width = 465 + Height = 379 + Align = alClient + Font.Charset = EASTEUROPE_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + HideScrollBars = False + ParentFont = False + PlainText = True + ReadOnly = True + ScrollBars = ssBoth + TabOrder = 0 + WordWrap = False + end + end + object AviTab: TTabSheet + Caption = 'AviTab' + ImageIndex = 5 + PopupMenu = AviPopupMenu + object Bevel2: TBevel + Left = 0 + Top = 26 + Width = 465 + Height = 334 + Align = alClient + end + object Animate1: TAnimate + Left = 8 + Top = 40 + Width = 100 + Height = 80 + Active = False + Color = clBtnFace + ParentColor = False + OnOpen = Animate1Open + OnClose = Animate1Close + OnStop = Animate1Stop + end + object AviToolBar: TToolBar + Left = 0 + Top = 0 + Width = 465 + Height = 26 + AutoSize = True + ButtonWidth = 51 + Caption = 'AviToolBar' + EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom] + Flat = True + Images = MainForm.ToolbarImagesList + List = True + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + Action = AviPlay1 + end + object ToolButton2: TToolButton + Left = 51 + Top = 0 + Action = AviStop1 + end + object ToolButton3: TToolButton + Left = 102 + Top = 0 + Action = AviBkColor1 + end + end + object AviStatusBar: TStatusBar + Left = 0 + Top = 360 + Width = 465 + Height = 19 + Panels = < + item + Width = 150 + end> + SimplePanel = False + end + end + object HTMLTab: TTabSheet + Caption = 'HTMLTab' + ImageIndex = 6 + end + object GraphTab: TTabSheet + Caption = 'GraphTab' + ImageIndex = 7 + object GraphImage: TImage + Left = 0 + Top = 0 + Width = 465 + Height = 360 + Align = alClient + AutoSize = True + Center = True + end + object Bevel1: TBevel + Left = 0 + Top = 0 + Width = 465 + Height = 360 + Align = alClient + end + object GraphStatusBar: TStatusBar + Left = 0 + Top = 360 + Width = 465 + Height = 19 + Panels = < + item + Width = 50 + end> + SimplePanel = False + end + end + object DialogTab: TTabSheet + Caption = 'DialogTab' + ImageIndex = 8 + object Bevel3: TBevel + Left = 0 + Top = 0 + Width = 465 + Height = 379 + Align = alClient + end + object DialogTestBtn: TButton + Left = 8 + Top = 8 + Width = 75 + Height = 25 + Caption = '&Show dialog' + TabOrder = 0 + OnClick = DialogTestBtnClick + end + end + end + object ActionList1: TActionList + Images = MainForm.ToolbarImagesList + Left = 136 + Top = 352 + object AviPlay1: TAction + Caption = 'Play' + ImageIndex = 16 + OnExecute = AviPlay1Execute + end + object AviStop1: TAction + Caption = 'Stop' + Enabled = False + ImageIndex = 17 + OnExecute = AviStop1Execute + end + object AviBkColor1: TAction + Caption = 'Color' + ImageIndex = 18 + OnExecute = AviBkColor1Execute + end + end + object ColorDialog1: TColorDialog + Ctl3D = True + Options = [cdPreventFullOpen, cdSolidColor] + Left = 168 + Top = 352 + end + object AviPopupMenu: TPopupMenu + Images = MainForm.ToolbarImagesList + Left = 200 + Top = 352 + object Play1: TMenuItem + Action = AviPlay1 + end + object Stop1: TMenuItem + Action = AviStop1 + end + object Color1: TMenuItem + Action = AviBkColor1 + end + end + object SaveDialog1: TSaveDialog + Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 232 + Top = 352 + end + object PopupMenu1: TPopupMenu + Images = MainForm.ToolbarImagesList + Left = 264 + Top = 352 + object Copytoclipboard1: TMenuItem + Action = MainForm.Copy1 + end + object Savetofile1: TMenuItem + Action = MainForm.Save1 + end + object Selectall1: TMenuItem + Action = MainForm.SelectAll1 + end + object N1: TMenuItem + Caption = '-' + end + object Viewdetails1: TMenuItem + Action = MainForm.ViewResDetails1 + end + object Viewashex1: TMenuItem + Action = MainForm.ViewResHex1 + end + end +end diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeResView.pas b/official/2.1.1/examples/windows/delphitools/peviewer/PeResView.pas new file mode 100644 index 0000000..c327618 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeResView.pas @@ -0,0 +1,710 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is PeResView.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2008-08-11 14:23:08 +0200 (lun., 11 août 2008) $ } +{ } +{**************************************************************************************************} + +unit PeResView; + +{$I JCL.INC} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + JclPeImage, PeResource, JclLogic, JclGraphUtils, ComCtrls, StdCtrls, + ExtCtrls, Grids, ToolWin, ActnList, OleCtrls, Menus, SHDocVw_TLB; + +type + TPeResViewChild = class(TForm) + ResourceTreeView: TTreeView; + PageControl1: TPageControl; + Splitter1: TSplitter; + DirTab: TTabSheet; + HexDumpTab: TTabSheet; + DirListView: TListView; + HexDumpListView: TListView; + StringsTab: TTabSheet; + StringsListView: TListView; + GraphDirTab: TTabSheet; + GraphDrawGrid: TDrawGrid; + TextTab: TTabSheet; + TextRichEdit: TRichEdit; + AviTab: TTabSheet; + Animate1: TAnimate; + AviToolBar: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ActionList1: TActionList; + AviPlay1: TAction; + AviStop1: TAction; + HTMLTab: TTabSheet; + GraphTab: TTabSheet; + GraphImage: TImage; + Bevel1: TBevel; + GraphStatusBar: TStatusBar; + DetailedStringMemo: TMemo; + Splitter2: TSplitter; + Bevel2: TBevel; + AviStatusBar: TStatusBar; + AviBkColor1: TAction; + ColorDialog1: TColorDialog; + ToolButton3: TToolButton; + AviPopupMenu: TPopupMenu; + Play1: TMenuItem; + Stop1: TMenuItem; + Color1: TMenuItem; + DialogTab: TTabSheet; + SaveDialog1: TSaveDialog; + DialogTestBtn: TButton; + Bevel3: TBevel; + PopupMenu1: TPopupMenu; + Copytoclipboard1: TMenuItem; + Savetofile1: TMenuItem; + N1: TMenuItem; + Viewdetails1: TMenuItem; + Viewashex1: TMenuItem; + Selectall1: TMenuItem; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure ResourceTreeViewChange(Sender: TObject; Node: TTreeNode); + procedure DirListViewData(Sender: TObject; Item: TListItem); + procedure HexDumpListViewData(Sender: TObject; Item: TListItem); + procedure StringsListViewData(Sender: TObject; Item: TListItem); + procedure GraphDrawGridDrawCell(Sender: TObject; ACol, ARow: Integer; + Rect: TRect; State: TGridDrawState); + procedure AviPlay1Execute(Sender: TObject); + procedure AviStop1Execute(Sender: TObject); + procedure Animate1Stop(Sender: TObject); + procedure StringsListViewSelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); + procedure Animate1Open(Sender: TObject); + procedure Animate1Close(Sender: TObject); + procedure AviBkColor1Execute(Sender: TObject); + procedure ResourceTreeViewExpanding(Sender: TObject; Node: TTreeNode; + var AllowExpansion: Boolean); + procedure DialogTestBtnClick(Sender: TObject); + private + FCurrentDir: TPeResItem; + FOriginalPageControlWndProc: TWndMethod; + FResourceImage: TPeResImage; + FSelectedItem: TPeResItem; + FSelectedNode: TTreeNode; + FShowAsHexView: Boolean; + FStringsList: TStringList; + FShowSpecialDirView: Boolean; + FTempGraphic: TPicture; + WebBrowser1: TWebBrowser; + procedure CreateStringsList(Item: TPeResUnkStrings); + procedure CreateGraphicList(Item: TPeResItem); + function GetPeImage: TJclPeImage; + procedure PageControlWndProc(var Message: TMessage); + procedure UpdateSelected; + procedure UpdateView; + procedure SetShowAsHexView(const Value: Boolean); + procedure SetShowSpecialDirView(const Value: Boolean); + public + constructor CreateEx(AOwner: TComponent; APeImage: TJclPeImage); + function CanSaveResource: Boolean; + procedure SaveResource; + property PeImage: TJclPeImage read GetPeImage; + property ShowAsHexView: Boolean read FShowAsHexView write SetShowAsHexView; + property ShowSpecialDirView: Boolean read FShowSpecialDirView write SetShowSpecialDirView; + end; + +var + PeResViewChild: TPeResViewChild; + +implementation + +{$R *.DFM} + +uses + CommCtrl, PeViewerMain, ToolsUtils, JclStrings, JclSysUtils; + +resourcestring + RsAviStatus = 'Width: %u, Height: %u, Frames: %u'; + RsGraphicStatus = 'Width: %u, Height: %u, Bits per pixel: %u'; + RsTitle = 'Resources - %s'; + +const + MinGraphRowHeight = 18; + MaxGraphRowHeight = 150; + +{ TPeResViewChild } + +constructor TPeResViewChild.CreateEx(AOwner: TComponent; APeImage: TJclPeImage); +begin + inherited Create(AOwner); + FShowSpecialDirView := True; + FStringsList := TStringList.Create; + FTempGraphic := TPicture.Create; + FResourceImage := TPeResImage.Create; + FResourceImage.PeImage := APeImage; + Caption := Format(RsTitle, [ExtractFileName(FResourceImage.FileName)]); + WebBrowser1 := TWebBrowser.Create(Self); + TWinControl(WebBrowser1).Parent := HTMLTab; + WebBrowser1.Align := alClient; +end; + +procedure TPeResViewChild.PageControlWndProc(var Message: TMessage); +begin +// remove PageControl's border + FOriginalPageControlWndProc(Message); + with Message do + if (Msg = TCM_ADJUSTRECT) and (Message.WParam = 0) then + InflateRect(PRect(LParam)^, 4, 4); +end; + +procedure TPeResViewChild.FormCreate(Sender: TObject); +var + I: Integer; +begin + with PageControl1 do + begin + for I := 0 to PageCount - 1 do Pages[I].TabVisible := False; + FOriginalPageControlWndProc := WindowProc; + WindowProc := PageControlWndProc; + ActivePage := DirTab; + Realign; + end; + UpdateView; +end; + +procedure TPeResViewChild.FormDestroy(Sender: TObject); +begin + FreeAndNil(FTempGraphic); + FreeAndNil(FStringsList); + FreeAndNil(FResourceImage); +end; + +procedure TPeResViewChild.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Fix_ListViewBeforeClose(Self); + Action := caFree; +end; + +procedure TPeResViewChild.UpdateView; +var + I: Integer; +begin + with ResourceTreeView do + begin + Items.BeginUpdate; + try + Items.Clear; + for I := 0 to FResourceImage.Count - 1 do + with Items.AddObject(nil, FResourceImage[I].ResName, FResourceImage[I]) do + begin + ImageIndex := icoFolderShut; + SelectedIndex := icoFolderOpen; + HasChildren := True; + end; + finally + Items.EndUpdate; + end; + end; +end; + +function TPeResViewChild.GetPeImage: TJclPeImage; +begin + Result := FResourceImage.PeImage; +end; + +procedure TPeResViewChild.ResourceTreeViewChange(Sender: TObject; + Node: TTreeNode); +begin + DirListView.Items.Count := 0; + HexDumpListView.Items.Count := 0; + StringsListView.Items.Count := 0; + GraphDrawGrid.RowCount := 2; + FSelectedNode := Node; + UpdateSelected; +end; + +procedure TPeResViewChild.DirListViewData(Sender: TObject; + Item: TListItem); +begin + with Item, FCurrentDir[Item.Index] do + begin + Caption := ResName; + SubItems.Add(Format('%x', [Offset])); + SubItems.Add(Format('%x', [Size])); + end; +end; + +procedure TPeResViewChild.HexDumpListViewData(Sender: TObject; + Item: TListItem); +var + DumpData: PByte; + Address, EndAddress: Integer; + Hex, Ascii: string; + I: Integer; +begin + with Item do + begin + DumpData := PByte(DWORD(FSelectedItem.RawData) + DWORD(Index * 16)); + Address := FSelectedItem.Offset + Index * 16; + EndAddress := FSelectedItem.Offset + FSelectedItem.Size - 1; + SetLength(Hex, 3 * 16); + SetLength(Ascii, 3 * 16); + Hex := ''; + Ascii := ''; + for I := 0 to 15 do + begin + Hex := Hex + Format('%.2x ', [DumpData^]); + if DumpData^ >= 32 then + Ascii := Ascii + Chr(DumpData^) + else + Ascii := Ascii + '.'; + Inc(DumpData); + if Address + I >= EndAddress then Break; + end; + Item.Caption := Format('%x', [Address]); + Item.SubItems.Add(Hex); + Item.SubItems.Add(Ascii); + end; +end; + +procedure TPeResViewChild.SetShowAsHexView(const Value: Boolean); +begin + if FShowAsHexView <> Value then + begin + FShowAsHexView := Value; + UpdateSelected; + end; +end; + +procedure TPeResViewChild.SetShowSpecialDirView(const Value: Boolean); +begin + if FShowSpecialDirView <> Value then + begin + FShowSpecialDirView := Value; + UpdateSelected; + end; +end; + +procedure TPeResViewChild.CreateStringsList(Item: TPeResUnkStrings); +var + I: Integer; +begin + FStringsList.Clear; + DetailedStringMemo.Lines.Clear; + if not Item.IsList then + TPeResUnkStrings(Item).FillStrings(FStringsList) + else + for I := 0 to Item.ItemCount - 1 do + TPeResUnkStrings(Item[I]).FillStrings(FStringsList); + StringsListView.Items.Count := FStringsList.Count; + StringsListView.Invalidate; +end; + +procedure TPeResViewChild.StringsListViewData(Sender: TObject; Item: TListItem); +begin + with Item do + begin + Caption := Format('%u', [DWORD(FStringsList.Objects[Index])]); + SubItems.Add(StrRemoveChars(FStringsList[Index], CharIsReturn)); + end; +end; + +procedure TPeResViewChild.CreateGraphicList(Item: TPeResItem); +var + I, J, MaxRowHeight, TotalMaxRowHeight: Integer; + + procedure CalculateHeight(Item: TPeResItem); + var + H: Integer; + begin + case Item.Kind of + rkCursor: + H := GetSystemMetrics(SM_CYCURSOR); + rkIcon: + H := GetSystemMetrics(SM_CYICON); + rkBitmap: + H := TPeResUnkGraphic(Item).GraphicProperties.Height; + else + FTempGraphic.Assign(Item); + H := FTempGraphic.Height; + end; + MaxRowHeight := Max(MaxRowHeight, H); + end; + +begin + TotalMaxRowHeight := 0; + with GraphDrawGrid do + begin + SendMessage(Handle, WM_SETREDRAW, 0, 0); + try + RowCount := Item.ItemCount + 1; + RowHeights[0] := MinGraphRowHeight; + for I := 0 to Item.ItemCount - 1 do + begin + MaxRowHeight := 0; + if Item[I].IsList then + for J := 0 to Item[I].ItemCount - 1 do + CalculateHeight(Item[I][J]) + else + CalculateHeight(Item[I]); + RowHeights[I + 1] := Min(Max(MinGraphRowHeight, MaxRowHeight + 4), MaxGraphRowHeight); + TotalMaxRowHeight := Max(TotalMaxRowHeight, MaxRowHeight); + end; + finally + SendMessage(Handle, WM_SETREDRAW, 1, 0); + Invalidate; + end; + end; +end; + +procedure TPeResViewChild.GraphDrawGridDrawCell(Sender: TObject; ACol, + ARow: Integer; Rect: TRect; State: TGridDrawState); +var + Text: string; + Item: TPeResItem; + I, W: Integer; + DrawRect: TRect; +begin + with GraphDrawGrid do + begin + if ARow = 0 then + with Canvas do + begin + case ACol of + 0: Text := 'Name'; + 1: Text := 'Graphic'; + end; + Brush.Color := clBtnFace; + Font.Color := clBtnText; + Dec(Rect.Bottom, 2); + Dec(Rect.Right); + FillRect(Rect); + TextRect(Rect, Rect.Left + 6, Rect.Top + 2, Text); + DrawEdge(Handle, Rect, EDGE_ETCHED, BF_BOTTOMRIGHT or BF_FLAT); + Pen.Color := Color; + Polyline([Point(Rect.Right, Rect.Top), Point(Rect.Right, Rect.Bottom), + Point(Rect.Left, Rect.Bottom)]); + Inc(Rect.Bottom); + MoveTo(Rect.Left, Rect.Bottom); + LineTo(Rect.Right, Rect.Bottom); + Pen.Color := clBtnFace; + Inc(Rect.Bottom); + MoveTo(Rect.Left, Rect.Bottom); + LineTo(Rect.Right, Rect.Bottom); + end else + begin + if (gdSelected in State) and Focused then + begin + Canvas.Brush.Color := clHighlight; + Canvas.Font.Color := clHighlightText; + Canvas.FillRect(Rect); + DrawFocusRect(Canvas.Handle, Rect); + end else + begin + Canvas.Brush.Color := Color; + Canvas.Font.Color := Font.Color; + Canvas.FillRect(Rect); + end; + InflateRect(Rect, -1, -1); + Item := FCurrentDir[ARow - 1]; + case ACol of + 0:Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Item.ResName); + 1:begin + W := 0; + if not Item.IsList then + begin + FTempGraphic.Assign(Item); + with FTempGraphic do + SetRect(DrawRect, Rect.Left, Rect.Top, Rect.Left + Width, Rect.Top + Height); + if not RectIncludesRect(DrawRect, Rect) then + begin + DrawRect.Right := Min(DrawRect.Right, Rect.Right); + DrawRect.Bottom := Min(DrawRect.Bottom, Rect.Bottom); + Canvas.StretchDraw(DrawRect, FTempGraphic.Graphic); + end + else + Canvas.Draw(Rect.Left + 2, Rect.Top + 2, FTempGraphic.Graphic); + end else + for I := 0 to Item.ItemCount - 1 do + begin + FTempGraphic.Assign(Item[I]); + Canvas.Draw(Rect.Left + 2 + W, Rect.Top + 2, FTempGraphic.Graphic); + Inc(W, FTempGraphic.Width + 5); + end; + end; + end; + end; + end; +end; + +procedure TPeResViewChild.AviPlay1Execute(Sender: TObject); +begin + with Animate1 do + Play(1, FrameCount, 1); + AviStop1.Enabled := True; + AviPlay1.Enabled := False; +end; + +procedure TPeResViewChild.AviStop1Execute(Sender: TObject); +begin + Animate1.Stop; + AviStop1.Enabled := False; +end; + +procedure TPeResViewChild.Animate1Stop(Sender: TObject); +begin + AviPlay1.Enabled := True; + AviStop1.Enabled := False; +end; + +procedure TPeResViewChild.StringsListViewSelectItem(Sender: TObject; + Item: TListItem; Selected: Boolean); +begin + if Selected then DetailedStringMemo.Text := Item.SubItems[0]; +end; + +procedure TPeResViewChild.Animate1Open(Sender: TObject); +begin + with Animate1 do + AviStatusBar.Panels[0].Text := Format(RsAviStatus, [FrameWidth, FrameHeight, + FrameCount]); +end; + +procedure TPeResViewChild.Animate1Close(Sender: TObject); +begin + AviStatusBar.Panels[0].Text := ''; +end; + +procedure TPeResViewChild.AviBkColor1Execute(Sender: TObject); +begin + with ColorDialog1 do + begin + CustomColors.Values['ColorA'] := Format('%.6x', [ColorToRGB(clBtnFace)]); + Color := Animate1.Color; + if Execute then Animate1.Color := Color; + end; +end; + +procedure TPeResViewChild.UpdateSelected; + + function SpecialDirectoryView: Boolean; + begin + Result := True; + case FCurrentDir.Kind of + rkBitmap, rkCursor, rkIcon: + begin + CreateGraphicList(FCurrentDir); + PageControl1.ActivePage := GraphDirTab; + end; + rkString: + begin + CreateStringsList(TPeResString(FCurrentDir)); + PageControl1.ActivePage := StringsTab; + end; + else + Result := False; + end; + end; + + procedure DefaultDirectoryView; + begin + DirListView.Items.Count := FCurrentDir.ItemCount; + DirListView.Invalidate; + PageControl1.ActivePage := DirTab; + end; + + function SpecialDetailView: Boolean; + begin + Result := True; + case FSelectedItem.Kind of + rkAccelerator: + begin + TextRichEdit.Lines.Assign(TPeResAccelerator(FSelectedItem)); + PageControl1.ActivePage := TextTab; + end; + rkAvi: + begin + Animate1.Assign(FSelectedItem); + PageControl1.ActivePage := AviTab; + end; + rkBitmap, rkIcon, rkCursor: + begin + GraphImage.Picture.Assign(FSelectedItem); + if GraphImage.Picture.Graphic is TBitmap then + GraphImage.Picture.Bitmap.Transparent := True; + with TPeResUnkGraphic(FSelectedItem).GraphicProperties do + GraphStatusBar.Panels[0].Text := Format(RsGraphicStatus, [Width, Height, BitsPerPixel]); + PageControl1.ActivePage := GraphTab; + end; + rkString: + begin + CreateStringsList(TPeResString(FSelectedItem)); + PageControl1.ActivePage := StringsTab; + end; + rkHTML: + begin + WebBrowser1.Navigate(TPeResHTML(FSelectedItem).ResPath); + PageControl1.ActivePage := HTMLTab; + end; + rkData: + if TPeResRCData(FSelectedItem).DataKind <> dkUnknown then + begin + TextRichEdit.Lines.Assign(TPeResRCData(FSelectedItem)); + PageControl1.ActivePage := TextTab; + end else + Result := False; +{ rkDialog: + begin + DialogTestBtn.Enabled := TPeResDialog(FSelectedItem).CanShowDialog; + PageControl1.ActivePage := DialogTab; + end;} { TODO : Check for dialog templates } + rkMessageTable: + begin + CreateStringsList(TPeResUnkStrings(FSelectedItem)); + PageControl1.ActivePage := StringsTab; + end; + rkVersion: + begin + TextRichEdit.Lines.Assign(TPeResVersion(FSelectedItem)); + PageControl1.ActivePage := TextTab; + end; + else + Result := False; + end; + end; + + procedure DefaultDetailView; + begin + HexDumpListView.Items.Count := (FSelectedItem.Size - 1) div 16 + 1; + HexDumpListView.Invalidate; + PageControl1.ActivePage := HexDumpTab; + end; + +begin + FSelectedItem := TPeResItem(FSelectedNode.Data); + FCurrentDir := FSelectedItem; + if FSelectedNode.Level = 0 then + begin +// FCurrentDir := FSelectedItem; + if (not FShowSpecialDirView) or (not SpecialDirectoryView) then + DefaultDirectoryView; + end else + begin + if FSelectedItem.IsList then + begin +// FCurrentDir := FSelectedItem; + DefaultDirectoryView; + end else + begin + if FShowAsHexView or (not SpecialDetailView) then + DefaultDetailView; + end; + end; +end; + +function TPeResViewChild.CanSaveResource: Boolean; +begin + Result := Assigned(FSelectedItem) and not FSelectedItem.IsList and + ResourceTreeView.Focused; +end; + +procedure TPeResViewChild.ResourceTreeViewExpanding(Sender: TObject; + Node: TTreeNode; var AllowExpansion: Boolean); +var + N, L: Integer; + ListNode, ItemNode: TTreeNode; + Item, RootItem: TPeResItem; +begin + if Node.GetFirstChild = nil then with ResourceTreeView do + begin + Items.BeginUpdate; + try + RootItem := TPeResItem(Node.Data); + for N := 0 to RootItem.ItemCount - 1 do + begin + Item := RootItem[N]; + ListNode := Items.AddChildObject(Node, Item.ResName, Item); + if Item.IsList then + begin + ListNode.ImageIndex := icoFolderShut; + ListNode.SelectedIndex := icoFolderOpen; + for L := 0 to Item.ItemCount - 1 do + begin + ItemNode := Items.AddChildObject(ListNode, Item[L].ResName, Item[L]); + ItemNode.ImageIndex := icoResItem; + ItemNode.SelectedIndex := icoResItem; + end; + end else + begin + ListNode.ImageIndex := icoResItem; + ListNode.SelectedIndex := icoResItem; + end; + end; + finally + Items.EndUpdate; + end; + end; +end; + +procedure TPeResViewChild.SaveResource; +var + FileStream: TFileStream; +begin + with SaveDialog1, (FSelectedItem as TPeResUnknown) do + begin + Filter := Format('*.%s files|*.%s', [FileExt, FileExt]); + FileName := ResName + '.' + FileExt; + if Execute then + begin + FileStream := TFileStream.Create(FileName, fmCreate); + try + SaveToStream(FileStream); + finally + FileStream.Free; + end; + end; + end; +end; + +procedure TPeResViewChild.DialogTestBtnClick(Sender: TObject); +var + Res: Integer; +begin + with ResourceTreeView do + while True do + begin + with TPeResDialog(FSelectedItem) do + if CanShowDialog then + Res := ShowDialog(Application.Handle) + else + Res := 1; + if (Res = 1) and (Selected.GetNextSibling <> nil) then + begin + Selected := Selected.GetNextSibling; + Selected.MakeVisible; + ResourceTreeView.Update; + end else + Break; + end; +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeResource.pas b/official/2.1.1/examples/windows/delphitools/peviewer/PeResource.pas new file mode 100644 index 0000000..d967dd2 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeResource.pas @@ -0,0 +1,1541 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is PeResource.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2008-09-09 21:32:17 +0200 (mar., 09 sept. 2008) $ } +{ } +{**************************************************************************************************} + +unit PeResource; + +{$I JCL.INC} + +interface + +uses + Windows, Messages, Classes, SysUtils, Graphics, ComCtrls, Contnrs, + JclBase, JclFileUtils, JclPeImage, JclStrings; + +type + PAccelTableEntry = ^TAccelTableEntry; + ACCELTABLEENTRY = packed record + fFlags: Word; + wAnsi: Word; + wId: Word; + padding: Word; + end; + {$EXTERNALSYM ACCELTABLEENTRY} + TAccelTableEntry = ACCELTABLEENTRY; + + PCursorDir = ^TCursorDir; + CURSORDIR = packed record + Width: Word; + Height: Word; + end; + {$EXTERNALSYM CURSORDIR} + TCursorDir = CURSORDIR; + + PCursorShape = ^TCursorShape; + _CURSORSHAPE = packed record + xHotSpot: Integer; + yHotSpot: Integer; + cx: Integer; + cy: Integer; + cbWidth: Integer; + Planes: Byte; + BitsPixel: Byte; + end; + {$EXTERNALSYM _CURSORSHAPE} + TCursorShape = _CURSORSHAPE; + CURSORSHAPE = _CURSORSHAPE; + {$EXTERNALSYM CURSORSHAPE} + + PLocalHeader = ^TLocalHeader; + _LOCALHEADER = packed record + xHotSpot: Word; + yHotSpot: Word; + end; + {$EXTERNALSYM _LOCALHEADER} + TLocalHeader = _LOCALHEADER; + LOCALHEADER = _LOCALHEADER; + {$EXTERNALSYM LOCALHEADER} + + PNewHeader = ^TNewHeader; + _NEWHEADER = packed record + Reserved: Word; + ResType: Word; + ResCount: Word; + end; + {$EXTERNALSYM _NEWHEADER} + TNewHeader = _NEWHEADER; + NEWHEADER = _NEWHEADER; + {$EXTERNALSYM NEWHEADER} + + PIconResdir = ^TIconResdir; + ICONRESDIR = packed record + Width: Byte; + Height: Byte; + ColorCount: Byte; + Reserved: Byte; + end; + {$EXTERNALSYM ICONRESDIR} + TIconResdir = ICONRESDIR; + + TResInfo = packed record + case Integer of + 0: (Icon: TIconResdir); + 1: (Cursor: TCursorDir); + end; + {$NODEFINE TResInfo} + + PResDir = ^TResDir; + _RESDIR = packed record + ResInfo: TResInfo; + Planes: Word; + BitCount: Word; + BytesInRes: DWORD; + IconCursorId: Word; + end; + {$EXTERNALSYM _RESDIR} + TResDir = _RESDIR; + RESDIR = _RESDIR; + {$EXTERNALSYM RESDIR} + + PDlgTemplate = ^TDlgTemplate; + DLGTEMPLATE = packed record + style: DWORD; + dwExtendedStyle: DWORD; + cdit: Word; + x: ShortInt; // short + y: ShortInt; + cx: ShortInt; + cy: ShortInt; + end; + {$EXTERNALSYM DLGTEMPLATE} + TDlgTemplate = DLGTEMPLATE; + + PDlgItemTemplate = ^TDlgItemTemplate; + DLGITEMTEMPLATE = packed record + style: DWORD; + dwExtendedStyle: DWORD; + x: ShortInt; + y: ShortInt; + cx: ShortInt; + cy: ShortInt; + id: Word; + end; + {$EXTERNALSYM DLGITEMTEMPLATE} + TDlgItemTemplate = DLGITEMTEMPLATE; + + PMenuHeader = ^TMenuHeader; + MENUHEADER = packed record + wVersion: Word; + cbHeaderSize: Word; + end; + {$EXTERNALSYM MENUHEADER} + TMenuHeader = MENUHEADER; + + PMenuHelpID = ^TMenuHelpID; + MENUHELPID = packed record + helpID: DWORD; + end; + {$EXTERNALSYM MENUHELPID} + TMenuHelpID = MENUHELPID; + + PNormalMenuItem = ^TNormalMenuItem; + NORMALMENUITEM = packed record + resInfo: WORD; + menuText: Pointer; // szOrOrd + end; + {$EXTERNALSYM NORMALMENUITEM} + TNormalMenuItem = NORMALMENUITEM; + + PPopupMenuItem = ^TPopupMenuItem; + POPUPMENUITEM = packed record + type_: DWORD; + state: DWORD; + id: DWORD; + resInfo: Word; + menuText: Pointer; // szOrOrd + end; + {$EXTERNALSYM POPUPMENUITEM} + TPopupMenuItem = POPUPMENUITEM; + + PMenuExTemplateHeader = ^TMenuExTemplateHeader; + MENUEX_TEMPLATE_HEADER = packed record + wVersion: Word; + wOffset: Word; + dwHelpId: DWORD; + end; + {$EXTERNALSYM MENUEX_TEMPLATE_HEADER} + TMenuExTemplateHeader = MENUEX_TEMPLATE_HEADER; + + PMenuExTemplateItem = ^TMenuExTemplateItem; + MENUEX_TEMPLATE_ITEM = packed record + dwType: DWORD; + dwState: DWORD; + uId: UINT; + bResInfo: Word; + szText: array[0..0] of WideChar; + dwHelpId: DWORD; + end; + {$EXTERNALSYM MENUEX_TEMPLATE_ITEM} + TMenuExTemplateItem = MENUEX_TEMPLATE_ITEM; + + PMessageResourceBlock = ^TMessageResourceBlock; + _MESSAGE_RESOURCE_BLOCK = packed record + LowId: ULONG; + HighId: ULONG; + OffsetToEntries: ULONG; + end; + {$EXTERNALSYM _MESSAGE_RESOURCE_BLOCK} + TMessageResourceBlock = _MESSAGE_RESOURCE_BLOCK; + MESSAGE_RESOURCE_BLOCK = _MESSAGE_RESOURCE_BLOCK; + {$EXTERNALSYM MESSAGE_RESOURCE_BLOCK} + + PMessageResourceData = ^TMessageResourceData; + _MESSAGE_RESOURCE_DATA = packed record + NumberOfBlocks: ULONG; + // Blocks: array[0..0] of TMessageResourceBlock; + end; + {$EXTERNALSYM _MESSAGE_RESOURCE_DATA} + TMessageResourceData = _MESSAGE_RESOURCE_DATA; + MESSAGE_RESOURCE_DATA = _MESSAGE_RESOURCE_DATA; + {$EXTERNALSYM MESSAGE_RESOURCE_DATA} + + PMessageResourceEntry = ^TMessageResourceEntry; + _MESSAGE_RESOURCE_ENTRY = packed record + Length: Word; + Flags: Word; + // Text: array[0..0] of Char; + end; + {$EXTERNALSYM _MESSAGE_RESOURCE_ENTRY} + TMessageResourceEntry = _MESSAGE_RESOURCE_ENTRY; + MESSAGE_RESOURCE_ENTRY = _MESSAGE_RESOURCE_ENTRY; + {$EXTERNALSYM MESSAGE_RESOURCE_ENTRY} + +(* + +Value Meaning +0x0080 Button +0x0081 Edit +0x0082 Static +0x0083 List box +0x0084 Scroll bar +0x0085 Combo box} + + PDlgTemplateEx = ^TDlgTemplateEx; + DLGTEMPLATEEX = packed record + dlgVer: WORD; + signature: WORD; + helpID: DWORD; + exStyle: DWORD; + style: DWORD; + cDlgItems: WORD; + x: short; + y: short; + cx: short; + cy: short; + sz_Or_Ord menu; // name or ordinal of a menu resource + sz_Or_Ord windowClass; // name or ordinal of a window class + WCHAR title[titleLen]; // title string of the dialog box + short pointsize; // if DS_SETFONT or DS_SHELLFONT is set + short weight; // if DS_SETFONT or DS_SHELLFONT is set + short bItalic; // if DS_SETFONT or DS_SHELLFONT is set + WCHAR font[fontLen]; // if DS_SETFONT or DS_SHELLFONT is set +} DLGTEMPLATEEX; + + + typedef struct { + DWORD helpID; + DWORD exStyle; + DWORD style; + short x; + short y; + short cx; + short cy; + WORD id; + sz_Or_Ord windowClass; // name or ordinal of a window class + sz_Or_Ord title; // title string or ordinal of a resource + WORD extraCount; // bytes of following creation data +} DLGITEMTEMPLATEEX; + +struct FONTDIRENTRY { + WORD dfVersion; + DWORD dfSize; + char dfCopyright[60]; + WORD dfType; + WORD dfPoints; + WORD dfVertRes; + WORD dfHorizRes; + WORD dfAscent; + WORD dfInternalLeading; + WORD dfExternalLeading; + BYTE dfItalic; + BYTE dfUnderline; + BYTE dfStrikeOut; + WORD dfWeight; + BYTE dfCharSet; + WORD dfPixWidth; + WORD dfPixHeight; + BYTE dfPitchAndFamily; + WORD dfAvgWidth; + WORD dfMaxWidth; + BYTE dfFirstChar; + BYTE dfLastChar; + BYTE dfDefaultChar; + BYTE dfBreakChar; + WORD dfWidthBytes; + DWORD dfDevice; + DWORD dfFace; + DWORD dfReserved; + char szDeviceName[]; + char szFaceName[]; +}; + +struct FONTGROUPHDR { + WORD NumberOfFonts; + DIRENTRY DE [1]; +}; + +*) + +type + TPeResKind = (rkAccelerator, rkAvi, rkBitmap, rkCursor, rkData, rkDialog, + rkHTML, rkIcon, rkMenu, rkMessageTable, rkString, rkVersion, rkUnknown); + + TPeResImage = class; + + TPeResItem = class; + + TPeResItem = class(TPersistent) + private + FKind: TPeResKind; + FList: TObjectList; + FResImage: TPeResImage; + FResourceItem: TJclPeResourceItem; + FStream: TJclPeResourceRawStream; + function GetItems(Index: Integer): TPeResItem; + function GetItemCount: Integer; + function GetStream: TJclPeResourceRawStream; + protected + procedure CreateList; virtual; + public + constructor Create(AResImage: TPeResImage; AResourceItem: TJclPeResourceItem); virtual; + destructor Destroy; override; + function IsList: Boolean; virtual; + function Offset: Integer; + function RawData: Pointer; + function ResName: string; virtual; + function ResType: TJclPeResourceKind; + procedure SaveToStream(Stream: TStream); virtual; + function Size: Integer; + property ItemCount: Integer read GetItemCount; + property Items[Index: Integer]: TPeResItem read GetItems; default; + property Kind: TPeResKind read FKind; + property ResourceItem: TJclPeResourceItem read FResourceItem; + property Stream: TJclPeResourceRawStream read GetStream; + end; + + TJclReResItemClass = class of TPeResItem; + + TPeResUnknown = class(TPeResItem) + public + function FileExt: string; dynamic; + function IsList: Boolean; override; + function ResName: string; override; + end; + + TPeGraphicProperties = record + Width, Height, BitsPerPixel: Integer; + end; + + TPeResUnkGraphic = class(TPeResUnknown) + public + function GraphicProperties: TPeGraphicProperties; virtual; abstract; + end; + + TPeResUnkStrings = class(TPeResUnknown) + protected + procedure AssignTo(Dest: TPersistent); override; + public + function FileExt: string; override; + procedure FillStrings(Strings: TStrings; StripCrLf: Boolean = False); virtual; abstract; + end; + + TPeResAccelerator = class(TPeResUnkStrings) + public + procedure FillStrings(Strings: TStrings; StripCrLf: Boolean = False); override; + end; + + TPeResAvi = class(TPeResUnknown) + protected + procedure AssignTo(Dest: TPersistent); override; + public + function FileExt: string; override; + end; + + TPeResBitmap = class(TPeResUnkGraphic) + protected + procedure AssignTo(Dest: TPersistent); override; + public + function GraphicProperties: TPeGraphicProperties; override; + function FileExt: string; override; + procedure SaveToStream(Stream: TStream); override; + end; + + TPeResCursorItem = class(TPeResUnkGraphic) + private + FResInfo: PResDir; + protected + procedure AssignTo(Dest: TPersistent); override; + public + function FileExt: string; override; + function GraphicProperties: TPeGraphicProperties; override; + function ResName: string; override; + procedure SaveToStream(Stream: TStream); override; + end; + + TPeResCursor = class(TPeResUnknown) + private + function GetItems(Index: Integer): TPeResCursorItem; + protected + procedure CreateList; override; + public + function IsList: Boolean; override; + property Items[Index: Integer]: TPeResCursorItem read GetItems; default; + end; + + TPeResDialog = class(TPeResUnknown) + public + function CanShowDialog: Boolean; + function ShowDialog(ParentWnd: HWND): Integer; + end; + + TPeResDataKind = (dkUnknown, dkDFM, dkPackageDescription, dkPackageInfo); + + TPeResRCData = class(TPeResUnknown) + private + FDataKind: TPeResDataKind; + protected + procedure AssignTo(Dest: TPersistent); override; + procedure CheckFormat; + procedure DFMToStrings(Strings: TStrings); + procedure PackageInfoToStrings(Strings: TStrings); + public + constructor Create(AResImage: TPeResImage; AResourceItem: TJclPeResourceItem); override; + function FileExt: string; override; + property DataKind: TPeResDataKind read FDataKind; + end; + + TPeResHTML = class(TPeResUnknown) + public + function FileExt: string; override; + function ResPath: string; + end; + + TPeResIconItem = class(TPeResCursorItem) + public + function FileExt: string; override; + function GraphicProperties: TPeGraphicProperties; override; + end; + + TPeResIcon = class(TPeResCursor) + private + function GetItems(Index: Integer): TPeResIconItem; + public + property Items[Index: Integer]: TPeResIconItem read GetItems; default; + end; + + TPeResMenu = class(TPeResUnknown) + end; + + TPeMessageTable = class(TPeResUnkStrings) + public + procedure FillStrings(Strings: TStrings; StripCrLf: Boolean = False); override; + end; + + TPeResString = class(TPeResUnkStrings) + public + procedure FillStrings(Strings: TStrings; StripCrLf: Boolean = False); override; + end; + + TPeResVersion = class(TPeResUnkStrings) + public + procedure FillStrings(Strings: TStrings; StripCrLf: Boolean = False); override; + end; + + TPeResImage = class(TObjectList) + private + FCursorEntry: TJclPeResourceList; + FIconEntry: TJclPeResourceList; + FImageAttached: Boolean; + FLibHandle: THandle; + FPeImage: TJclPeImage; + function GetFileName: TFileName; + procedure SetFileName(const Value: TFileName); + procedure SetPeImage(const Value: TJclPeImage); + function GetItems(Index: Integer): TPeResItem; + function GetLibHandle: THandle; + protected + procedure CreateList; + procedure UnloadLib; + public + constructor Create; + destructor Destroy; override; + procedure Clear; override; + property ImageAttached: Boolean read FImageAttached; + property Items[Index: Integer]: TPeResItem read GetItems; default; + property LibHandle: THandle read GetLibHandle; + property FileName: TFileName read GetFileName write SetFileName; + property PeImage: TJclPeImage read FPeImage write SetPeImage; + end; + + function LangNameFromName(const Name: string; ShortName: Boolean = False): string; + +implementation + +uses + Consts, JclLocales, JclSysUtils, JclWin32; + +resourcestring + RsPeResAccelerator = 'Accel table'; + RsPeResAVI = 'AVI'; + RsPeResBitmap = 'Bitmap'; + RsPeResCursor = 'Cursor'; + RsPeResData = 'RCData'; + RsPeResDialog = 'Dialog'; + RsPeResHTML = 'HTML'; + RsPeResIcon = 'Icon'; + RsPeResMenu = 'Menu'; + RsPeResMessageTable = 'Message table'; + RsPeResString = 'String'; + RsPeResVersion = 'Version'; + RsNeutralLang = '[Neutral]'; + RsUnknownLang = '[Unknown]'; + + RsTranslations = 'Translations:'; + +var + JclLocalesList: TJclLocalesList; + +function VirtualKeyNameFromCode(KeyCode: Byte): string; +const + KN002F: array[$00..$2F] of PChar = ( + nil, + 'LBUTTON', + 'RBUTTON', + 'CANCEL', + 'MBUTTON', + nil, nil, nil, // 05..07 + 'BACK', + 'TAB', + nil, nil, // 0A..0B + 'CLEAR', + 'RETURN', + nil, nil, // 0E..0F + 'SHIFT ', + 'CONTROL', + 'MENU', + 'PAUSE', + 'CAPITAL', + 'KANA', + 'HANGUL', + 'JUNJA', + 'FINAL', + 'HANJA', + 'KANJI', + 'ESCAPE', + 'CONVERT', + 'NONCONVERT', + 'ACCEPT', + 'MODECHANGE', + 'SPACE', + 'PRIOR', + 'NEXT', + 'END', + 'HOME', + 'LEFT', + 'UP', + 'RIGHT', + 'DOWN', + 'SELECT', + 'PRINT', + 'EXECUTE', + 'SNAPSHOT', + 'INSERT', + 'DELETE', + 'HELP' + ); + KN5B5D: array[$5B..$5D] of PChar = ( + 'LWIN', + 'RWIN', + 'APPS' + ); + KN6A6F: array[$6A..$6F] of PChar = ( + 'MULTIPLY', + 'ADD', + 'SEPARATOR', + 'SUBTRACT', + 'DECIMAL', + 'DIVIDE' + ); + KNA0A5: array[$A0..$A5] of PChar = ( + 'LSHIFT', + 'RSHIFT', + 'LCONTROL', + 'RCONTROL', + 'LMENU', + 'RMENU' + ); + KNF6FE: array[$F6..$FE] of PChar = ( + 'ATTN', + 'CRSEL', + 'EXSEL', + 'EREOF', + 'PLAY', + 'ZOOM', + 'NONAME', + 'PA1', + 'OEM_CLEAR' + ); +begin + case KeyCode of + $00..$2F: + Result := KN002F[KeyCode]; + $30..$39, $41..$5A: + Result := Chr(KeyCode); + $5B..$5D: + Result := KN5B5D[KeyCode]; + $60..$69: + Result := Format('NUMPAD%d', [KeyCode - $60]); + $6A..$6F: + Result := KN6A6F[KeyCode]; + $70..$87: + Result := Format('F%d', [KeyCode - $6F]); + $90: + Result := 'NUMLOCK'; + $91: + Result := 'SCROLL'; + $A0..$A5: + Result := KNA0A5[KeyCode]; + $E5: + Result := 'PROCESSKEY'; + $F6..$FE: + Result := KNF6FE[KeyCode]; + else + Result := ''; + end; + if Result <> '' then Result := 'VK_' + Result; +end; + +function LangNameFromName(const Name: string; ShortName: Boolean): string; +var + LangID: Word; + Locale: TJclLocaleInfo; +begin + LangID := PRIMARYLANGID(StrToIntDef(Name, 0)); + if LangID = LANG_NEUTRAL then + if ShortName then Result := '' else Result := RsNeutralLang + else + begin + Locale := JclLocalesList.ItemFromLangIDPrimary[LangID]; + if Locale <> nil then + with Locale do if ShortName then + Result := AbbreviatedLangName else Result := EnglishLangName + else + Result := RsUnknownLang; + end; +end; + + +function GetResItemKind(Item: TJclPeResourceItem; var Kind: TPeResKind): Boolean; +begin + Result := True; + Kind := rkUnknown; + with Item do + case ResourceType of + rtAccelerators: + Kind := rkAccelerator; + rtCursorEntry, rtIconEntry, rtFont: + Result := False; + rtUserDefined: + begin + if Name = 'AVI' then Kind := rkAvi; + if Name = '2110' then Kind := rkHTML; + end; + rtBitmap: + Kind := rkBitmap; + rtMenu: + Kind := rkMenu; + rtDialog: + Kind := rkDialog; + rtString: + Kind := rkString; + rtRCData: + Kind := rkData; + rtMessageTable: + Kind := rkMessageTable; + rtCursor: + Kind := rkCursor; + rtIcon: + Kind := rkIcon; + rtVersion: + Kind := rkVersion; + rtHmtl: + Kind := rkHTML; + end; +end; + +const + ResItemClasses: array [TPeResKind] of TJclReResItemClass = ( + TPeResAccelerator, + TPeResAvi, + TPeResBitmap, + TPeResCursor, + TPeResRCData, + TPeResDialog, + TPeResHTML, + TPeResIcon, + TPeResMenu, + TPeMessageTable, + TPeResString, + TPeResVersion, + TPeResUnknown + ); + +function WideCharToStr(WStr: PWChar; Len: Integer): string; +begin + {$IFDEF SUPPORTS_UNICODE} + SetLength(Result, Len); + if Len > 0 then + Move(WStr^, Result[1], Len * SizeOf(WideChar)); + {$ELSE SUPPORTS_UNICODE} + if Len = 0 then Len := -1; + Len := WideCharToMultiByte(CP_ACP, 0, WStr, Len, nil, 0, nil, nil); + SetLength(Result, Len); + WideCharToMultiByte(CP_ACP, 0, WStr, Len, PChar(Result), Len, nil, nil); + {$ENDIF ~SUPPORTS_UNICODE} +end; + +{ TPeResItem } + +constructor TPeResItem.Create(AResImage: TPeResImage; AResourceItem: TJclPeResourceItem); +begin + FList := TObjectList.Create(True); + FResImage := AResImage; + FResourceItem := AResourceItem; +end; + +procedure TPeResItem.CreateList; +var + I, J: Integer; + Item: TPeResItem; + ResItem: TJclPeResourceItem; +begin + with FResourceItem.List do + for I := 0 to Count - 1 do + begin + ResItem := Items[I]; + for J := 0 to ResItem.List.Count - 1 do + begin + Item := ResItemClasses[Self.FKind].Create(FResImage, ResItem.List[J]); + Item.FKind := Self.FKind; + FList.Add(Item); + end; + end; +end; + +destructor TPeResItem.Destroy; +begin + FreeAndNil(FList); + FreeAndNil(FStream); + inherited; +end; + +function TPeResItem.GetItemCount: Integer; +begin + if IsList then + begin + if FList.Count = 0 then CreateList; + Result := FList.Count; + end else + Result := -1; +end; + +function TPeResItem.GetItems(Index: Integer): TPeResItem; +begin + Result := TPeResItem(FList[Index]); +end; + +function TPeResItem.GetStream: TJclPeResourceRawStream; +begin + if not Assigned(FStream) then + FStream := TJclPeResourceRawStream.Create(FResourceItem); + Result := FStream; +end; + +function TPeResItem.IsList: Boolean; +begin + Result := FResourceItem.IsDirectory; +end; + +function TPeResItem.Offset: Integer; +begin + if IsList then + Result := FResourceItem.Entry^.OffsetToData and not (IMAGE_RESOURCE_DATA_IS_DIRECTORY) + else + Result := FResourceItem.DataEntry^.OffsetToData +end; + +function TPeResItem.RawData: Pointer; +begin + Result := FResourceItem.RawEntryData; +end; + +function TPeResItem.ResName: string; +const + ResNames: array [TPeResKind] of PResStringRec = ( + @RsPeResAccelerator, + @RsPeResAVI, + @RsPeResBitmap, + @RsPeResCursor, + @RsPeResData, + @RsPeResDialog, + @RsPeResHTML, + @RsPeResIcon, + @RsPeResMenu, + @RsPeResMessageTable, + @RsPeResString, + @RsPeResVersion, + nil + ); +begin + if FKind = rkUnknown then + Result := FResourceItem.ResourceTypeStr + else + Result := LoadResString(ResNames[FKind]); +end; + +function TPeResItem.ResType: TJclPeResourceKind; +begin + Result := FResourceItem.ResourceType; +end; + +procedure TPeResItem.SaveToStream(Stream: TStream); +begin + if not IsList then + Stream.WriteBuffer(RawData^, Size); +end; + +function TPeResItem.Size: Integer; +begin + if IsList then + Result := 0 + else + Result := FResourceItem.DataEntry^.Size; +end; + +{ TPeResUnknown } + +function TPeResUnknown.FileExt: string; +begin + Result := 'bin'; +end; + +function TPeResUnknown.IsList: Boolean; +begin + Result := False; +end; + +function TPeResUnknown.ResName: string; +begin + if StrToIntDef(FResourceItem.Name, 0) = LANG_NEUTRAL then + Result := FResourceItem.ParentItem.Name + else + Result := Format('%s > %s', [FResourceItem.ParentItem.Name, LangNameFromName(FResourceItem.Name)]); +end; + +{ TPeResUnkStrings } + +procedure TPeResUnkStrings.AssignTo(Dest: TPersistent); +begin + if (Dest is TStrings) then + with TStrings(Dest) do + begin + BeginUpdate; + try + Clear; + FillStrings(TStrings(Dest)); + finally + EndUpdate; + end; + end + else + inherited; +end; + +function TPeResUnkStrings.FileExt: string; +begin + Result := 'txt'; +end; + +{ TPeResAccelTable } + +procedure TPeResAccelerator.FillStrings(Strings: TStrings; StripCrLf: Boolean); +var + TableEntry: PAccelTableEntry; + IsLast: Boolean; + S: string; + + function AnsiToChar(A: Word): string; + begin + if A >= 32 then Result := Chr(A) else Result := ''; + end; + +begin + Strings.BeginUpdate; + try + TableEntry := RawData; + repeat + with TableEntry^ do + begin + IsLast := fFlags and $80 <> 0; + if fFlags and FVIRTKEY <> 0 then + begin + S := Format('Virtual Key: %.2u "%s" ', [wAnsi, VirtualKeyNameFromCode(wAnsi)]); + if fFlags and FSHIFT <> 0 then S := S + 'SHIFT '; + if fFlags and FCONTROL <> 0 then S := S + 'CTRL '; + if fFlags and FALT <> 0 then S := S + 'ALT '; + end else + S := Format('ANSI character: %.2u "%s" ', [wAnsi, AnsiToChar(wAnsi)]); + if fFlags and FNOINVERT <> 0 then S := S + 'NOINVERT'; + end; + Strings.Add(TrimRight(S)); + Inc(TableEntry); + until IsLast; + finally + Strings.EndUpdate; + end; +end; + +{ TPeResAvi } + +{$HINTS OFF} +type + TDirtyComponent = class(TPersistent) + private + FOwner: TComponent; + FName: TComponentName; + FTag: Longint; + FComponents: TList; + FFreeNotifies: TList; + FDesignInfo: Longint; + FVCLComObject: Pointer; + FComponentState: TComponentState; + end; +{$HINTS ON} + +procedure TPeResAvi.AssignTo(Dest: TPersistent); +begin + if Dest is TAnimate then + begin + Include(TDirtyComponent(Dest).FComponentState, csLoading); + TAnimate(Dest).ResHandle := FResImage.LibHandle; + TAnimate(Dest).ResName := FResourceItem.ParentItem.ParameterName; + Exclude(TDirtyComponent(Dest).FComponentState, csLoading); + TAnimate(Dest).Reset; + end + else + inherited; +end; + +function TPeResAvi.FileExt: string; +begin + Result := 'avi'; +end; + +{ TPeResBitmap } + +procedure TPeResBitmap.AssignTo(Dest: TPersistent); +var + MemStream: TMemoryStream; + BitMap: TBitMap; +begin + if Dest is TPicture then + begin + BitMap := TPicture(Dest).Bitmap; + MemStream := TMemoryStream.Create; + try + SaveToStream(MemStream); + MemStream.Seek(0, soFromBeginning); + BitMap.LoadFromStream(MemStream); + finally + MemStream.Free; + end + end + else + inherited; +end; + +function TPeResBitmap.FileExt: string; +begin + Result := 'bmp'; +end; + +function TPeResBitmap.GraphicProperties: TPeGraphicProperties; +var + BI: PBitmapInfoHeader; + BC: PBitmapCoreHeader; +begin + BI := PBitmapInfoHeader(RawData); + if BI.biSize = SizeOf(TBitmapInfoHeader) then + begin + Result.Width := BI.biWidth; + Result.Height := BI.biHeight; + Result.BitsPerPixel := BI.biPlanes * BI.biBitCount; + end else + begin + BC := PBitmapCoreHeader(RawData); + Result.Width := BC.bcWidth; + Result.Height := BC.bcHeight; + Result.BitsPerPixel := BC.bcPlanes * BC.bcBitCount; + end; +end; + +procedure TPeResBitmap.SaveToStream(Stream: TStream); + + function GetDInColors(BitCount: Word): Integer; + begin + case BitCount of + 1, 4, 8: Result := 1 shl BitCount; + else + Result := 0; + end; + end; + +var + BH: TBitmapFileHeader; + BI: PBitmapInfoHeader; + BC: PBitmapCoreHeader; + ClrUsed: Integer; +begin + FillChar(BH, sizeof(BH), #0); + BH.bfType := $4D42; + BH.bfSize := Size + SizeOf(BH); + BI := PBitmapInfoHeader(RawData); + if BI.biSize = SizeOf(TBitmapInfoHeader) then + begin + ClrUsed := BI.biClrUsed; + if ClrUsed = 0 then ClrUsed := GetDInColors(BI.biBitCount); + BH.bfOffBits := ClrUsed * SizeOf(TRgbQuad) + SizeOf(TBitmapInfoHeader) + SizeOf(BH); + end + else + begin + BC := PBitmapCoreHeader(RawData); + ClrUsed := GetDInColors(BC.bcBitCount); + BH.bfOffBits := ClrUsed * SizeOf(TRGBTriple) + SizeOf(TBitmapCoreHeader) + SizeOf(BH); + end; + Stream.Write(BH, SizeOf(BH)); + Stream.Write(RawData^, Size); +end; + +{ TPeResCursorItem } + +procedure TPeResCursorItem.AssignTo(Dest: TPersistent); +begin + if Dest is TPicture then + TPicture(Dest).Icon.Handle := CreateIconFromResource(RawData, Size, ResType = rtIconEntry, $30000) + else + inherited; +end; + +function TPeResCursorItem.FileExt: string; +begin + Result := 'cur'; +end; + +function TPeResCursorItem.GraphicProperties: TPeGraphicProperties; +begin + with FResInfo^ do + begin + Result.Width := ResInfo.Cursor.Width; + Result.Height := ResInfo.Cursor.Height; + Result.BitsPerPixel := BitCount * Planes; + end; +end; + +function TPeResCursorItem.ResName: string; +begin + if FResInfo <> nil then + with GraphicProperties do + Result := Format('%d X %d %d bpp', [Width, Height, BitsPerPixel]) + else + Result := ''; +end; + +procedure TPeResCursorItem.SaveToStream(Stream: TStream); +begin + with TIcon.Create do + try + Handle := CreateIconFromResource(RawData, Self.Size, ResType = rtIconEntry, $30000); + SaveToStream(Stream); + finally + Free; + end; +end; +{ TODO : Saving monochrome icons and cursors doesn't work } + +{ TPeResCursor } + +procedure TPeResCursor.CreateList; +var + Item: TPeResItem; + I, J, Cnt: Integer; + ResData: PResDir; + ResOrd: DWORD; + ResList: TJclPeResourceList; + ItemClass: TJclReResItemClass; +begin + if ResType = rtCursor then + begin + ResList := FResImage.FCursorEntry; + ItemClass := TPeResCursorItem; + end else + begin + ResList := FResImage.FIconEntry; + ItemClass := TPeResIconItem; + end; + ResData := RawData; + Cnt := PNewHeader(ResData)^.ResCount; + Inc(PNewHeader(ResData)); + for I := 1 to Cnt do + begin + ResOrd := ResData^.IconCursorId; + for J := 0 to ResList.Count - 1 do + if ResOrd = ResList[J].Entry^.Name then + begin + Item := ItemClass.Create(FResImage, ResList[J].List[0]); + Item.FKind := Self.FKind; + TPeResCursorItem(Item).FResInfo := ResData; + FList.Add(Item); + end; + Inc(ResData); + end; +end; + +function TPeResCursor.GetItems(Index: Integer): TPeResCursorItem; +begin + Result := TPeResCursorItem(FList[Index]); +end; + +function TPeResCursor.IsList: Boolean; +begin + Result := True; +end; + +{ TPeResRCData } + +procedure TPeResRCData.AssignTo(Dest: TPersistent); +begin + if Dest is TStrings then + with TStrings(Dest) do + begin + BeginUpdate; + try + Clear; + case FDataKind of + dkDFM: + DFMToStrings(TStrings(Dest)); + dkPackageDescription: + Add(PWideChar(RawData)); + dkPackageInfo: + PackageInfoToStrings(TStrings(Dest)); + end; + finally + EndUpdate; + end; + end else + inherited; +end; + +procedure TPeResRCData.CheckFormat; +{$IFNDEF DELPHI5_UP} +const + FilerSignature: array[1..4] of Char = 'TPF0'; +var + Signature: Integer; +{$ENDIF DELPHI5_UP} +begin + FDataKind := dkUnknown; + if ResName = 'DESCRIPTION' then + FDataKind := dkPackageDescription + else + if ResName = 'PACKAGEINFO' then + FDataKind := dkPackageInfo + else + begin + Stream.Seek(0, soFromBeginning); + {$IFDEF DELPHI5_UP} + if TestStreamFormat(Stream) = sofBinary then + FDataKind := dkDFM; + {$ELSE DELPHI5_UP} + Signature := 0; + Stream.Read(Signature, SizeOf(Signature)); + if (Byte(Signature) = $FF) or (Signature = Integer(FilerSignature)) then + FDataKind := dkDFM; + {$ENDIF DELPHI5_UP} + end; +end; + +constructor TPeResRCData.Create(AResImage: TPeResImage; + AResourceItem: TJclPeResourceItem); +begin + inherited; + CheckFormat; +end; + +procedure TPeResRCData.DFMToStrings(Strings: TStrings); +var + MemStream: TMemoryStream; +begin + MemStream := TMemoryStream.Create; + try + Stream.Seek(0, soFromBeginning); + ObjectBinaryToText(Stream, MemStream); + MemStream.Seek(0, soFromBeginning); + Strings.LoadFromStream(MemStream); + finally + MemStream.Free; + end; +end; + +function TPeResRCData.FileExt: string; +begin + if DataKind = dkDFM then + Result := 'dfm' + else + Result := inherited FileExt; +end; + +procedure TPeResRCData.PackageInfoToStrings(Strings: TStrings); +var + I: Integer; +begin + with TJclPePackageInfo.Create(FResImage.LibHandle) do + try + Strings.Add('Contains'); + Strings.Add(StringOfChar('-', 80)); + for I := 0 to ContainsCount - 1 do + Strings.Add(Format(' %s [%s]', [ContainsNames[I], UnitInfoFlagsToString(ContainsFlags[I])])); + if RequiresCount > 0 then + begin + Strings.Add(''); + Strings.Add('Requires'); + Strings.Add(StringOfChar('-', 80)); + for I := 0 to RequiresCount - 1 do + Strings.Add(Format(' %s', [RequiresNames[I]])); + end; + Strings.Add(''); + Strings.Add('Package Info flags'); + Strings.Add(StringOfChar('-', 80)); + Strings.Add(Format('Options : %s', [PackageOptionsToString(Flags)])); + Strings.Add(Format('Module type: %s', [PackageModuleTypeToString(Flags)])); + Strings.Add(Format('Producer : %s', [ProducerToString(Flags)])); + finally + Free; + end; +end; + +{ TPeResDialog } + +function TPeResDialog.CanShowDialog: Boolean; +begin + Result := Windows.PDlgTemplate(RawData)^.style and DS_CONTROL = 0; +end; + +function TPeResDialog.ShowDialog(ParentWnd: HWND): Integer; +var + LastFocus: HWND; + MemHandle: THandle; + P: Windows.PDlgTemplate; + + function DialogProc(hwndDlg: HWND; uMsg: UINT; W: WPARAM; L: LPARAM): BOOL; stdcall; + begin + Result := False; + case uMsg of + WM_INITDIALOG: + Result := True; + WM_LBUTTONDBLCLK: + EndDialog(hwndDlg, 0); + WM_RBUTTONUP: + EndDialog(hwndDlg, 1); + WM_SYSCOMMAND: + if W and $FFF0 = SC_CLOSE then + EndDialog(hwndDlg, 0); + end; + end; + +begin + LastFocus := GetFocus; + MemHandle := GlobalAlloc(GMEM_ZEROINIT, Size); + P := GlobalLock(MemHandle); + Move(RawData^, P^, Size); + GlobalUnlock(MemHandle); + Result := DialogBoxIndirect(hinstance, Windows.PDlgTemplate(MemHandle)^, + ParentWnd, @DialogProc); + GlobalFree(MemHandle); + SetFocus(LastFocus); +end; + +{ TPeResHTML } + +function TPeResHTML.FileExt: string; +begin + Result := Copy(ExtractFileExt(FResourceItem.ParentItem.ParameterName), 2, 20); +end; + +function TPeResHTML.ResPath: string; +begin + Result := Format('res://%s/%s', [FResImage.FileName, FResourceItem.ParentItem.ParameterName]); +end; + +{ TPeResIconItem } + +function TPeResIconItem.FileExt: string; +begin + Result := 'ico'; +end; + +function TPeResIconItem.GraphicProperties: TPeGraphicProperties; +begin + with FResInfo^ do + begin + Result.Width := ResInfo.Icon.Width; + Result.Height := ResInfo.Icon.Height; + Result.BitsPerPixel := BitCount * Planes; + end; +end; + +{ TPeResIcon } + +function TPeResIcon.GetItems(Index: Integer): TPeResIconItem; +begin + Result := TPeResIconItem(FList[Index]); +end; + +{ TPeMessageTable } + +procedure TPeMessageTable.FillStrings(Strings: TStrings; StripCrLf: Boolean); +var + Count, I: Integer; + E: DWORD; + Block: PMessageResourceBlock; + Entry: PMessageResourceEntry; + S: string; + Text: PChar; + Data: Pointer; +begin + Data := RawData; + Count := PMessageResourceData(Data)^.NumberOfBlocks; + Block := Data; + Inc(PMessageResourceData(Block)); + for I := 1 to Count do + begin + Entry := PMessageResourceEntry(DWORD(Data) + Block^.OffsetToEntries); + for E := Block^.LowId to Block^.HighId do + begin + with Entry^ do + begin + Text := PChar(Entry) + Sizeof(TMessageResourceEntry); + if Flags = 1 then + S := WideCharToStr(PWideChar(Text), lstrlenW(PWideChar(Text))) + else + SetString(S, PAnsiChar(Text), StrLen(Text)); + if StripCrLf then S := StrRemoveChars(S, CharIsReturn); + Strings.AddObject(S, Pointer(E)); + end; + Entry := Pointer(PChar(Entry) + Entry^.Length); + end; + Inc(Block); + end; +end; + +{ TPeResString } + +procedure TPeResString.FillStrings(Strings: TStrings; StripCrLf: Boolean); +var + P: PWChar; + ID: Integer; + Cnt: Cardinal; + Len: Word; + S: string; +begin + P := RawData; + Cnt := 0; + while Cnt < 16 do + begin + Len := Word(P^); + if Len > 0 then + begin + Inc(P); + ID := ((FResourceItem.ParentItem.Entry^.Name - 1) shl 4) + Cnt; + S := WideCharToStr(P, Len); + if StripCrLf then S := StrRemoveChars(S, CharIsReturn); + Strings.AddObject(S, Pointer(ID)); + Inc(P, Len); + end else + Inc(P); + Inc(Cnt); + end; +end; + +{ TPeResVersion } + +procedure TPeResVersion.FillStrings(Strings: TStrings; StripCrLf: Boolean); +var + I: Integer; +begin + Strings.Clear; + with TJclFileVersionInfo.Attach(RawData, Size) do + try + for I := 0 to LanguageCount - 1 do + begin + LanguageIndex := I; + Strings.Add(Format('[%s] %s', [LanguageIds[I], LanguageNames[I]])); + Strings.Add(StringOfChar('-', 80)); + Strings.AddStrings(Items); + Strings.Add(BinFileVersion); + Strings.Add(OSIdentToString(FileOS)); + Strings.Add(OSFileTypeToString(FileType, FileSubType)); + Strings.Add(''); + end; + Strings.Add(RsTranslations); + for I := 0 to TranslationCount - 1 do + Strings.Add(VersionLanguageId(Translations[I])); + finally + Free; + end; +end; + +{ TPeResImage } + +procedure TPeResImage.Clear; +begin + inherited; + if Assigned(FPeImage) then + begin + if not FImageAttached then FreeAndNil(FPeImage) else FPeImage := nil; + end; +end; + +constructor TPeResImage.Create; +begin + inherited Create(True); +end; + +procedure TPeResImage.CreateList; +var + I: Integer; + Kind: TPeResKind; + Item: TJclPeResourceItem; + ResItem: TPeResItem; +begin + with FPeImage.ResourceList do + for I := 0 to Count - 1 do + begin + Item := Items[I]; + if GetResItemKind(Item, Kind) then + begin + ResItem := TPeResItem.Create(Self, Item); + ResItem.FKind := Kind; + Self.Add(ResItem); + end else + case Item.ResourceType of + rtCursorEntry: + FCursorEntry := Item.List; + rtIconEntry: + FIconEntry := Item.List; + end; + end; +end; + +destructor TPeResImage.Destroy; +begin + UnloadLib; + inherited; +end; + +function TPeResImage.GetFileName: TFileName; +begin + if Assigned(FPeImage) then Result := FPeImage.FileName else Result := ''; +end; + +function TPeResImage.GetItems(Index: Integer): TPeResItem; +begin + Result := TPeResItem(inherited Items[Index]); +end; + +function TPeResImage.GetLibHandle: THandle; +begin + if FLibHandle = 0 then + begin + FLibHandle := LoadLibraryEx(PChar(FileName), 0, LOAD_LIBRARY_AS_DATAFILE); + if FLibHandle = 0 then RaiseLastOSError; + end; + Result := FLibHandle; +end; + +procedure TPeResImage.SetFileName(const Value: TFileName); +begin + if FileName <> Value then + begin + Clear; + FImageAttached := False; + FPeImage := TJclPeImage.Create; + FPeImage.FileName := Value; + CreateList; + end; +end; + +procedure TPeResImage.SetPeImage(const Value: TJclPeImage); +begin + Clear; + FPeImage := Value; + FImageAttached := True; + CreateList; +end; + +procedure TPeResImage.UnloadLib; +begin + if FLibHandle <> 0 then + begin + FreeLibrary(FLibHandle); + FLibHandle := 0; + end; +end; + +initialization + JclLocalesList := TJclLocalesList.Create; + +finalization + FreeAndNil(JclLocalesList); + +end. diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeSearch.dfm b/official/2.1.1/examples/windows/delphitools/peviewer/PeSearch.dfm new file mode 100644 index 0000000..272339e --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeSearch.dfm @@ -0,0 +1,162 @@ +object PeSearchChild: TPeSearchChild + Left = 259 + Top = 176 + AutoScroll = False + Caption = 'Search function' + ClientHeight = 265 + ClientWidth = 397 + Color = clBtnFace + Constraints.MinHeight = 200 + Constraints.MinWidth = 300 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsMDIChild + OldCreateOrder = False + Position = poDefaultPosOnly + Visible = True + OnClose = FormClose + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object ProcessLabel: TLabel + Left = 8 + Top = 80 + Width = 64 + Height = 13 + Caption = 'ProcessLabel' + end + object Bevel1: TBevel + Left = 0 + Top = 56 + Width = 398 + Height = 18 + Anchors = [akLeft, akTop, akRight] + Shape = bsBottomLine + end + object CountLabel: TLabel + Left = 334 + Top = 81 + Width = 54 + Height = 13 + Alignment = taRightJustify + Anchors = [akTop, akRight] + Caption = 'CountLabel' + end + object Label1: TLabel + Left = 6 + Top = 12 + Width = 31 + Height = 13 + Caption = '&Name:' + FocusControl = FuncNameEdit + end + object Label2: TLabel + Left = 6 + Top = 44 + Width = 25 + Height = 13 + Caption = '&Path:' + FocusControl = PathEdit + end + object FuncNameEdit: TEdit + Left = 40 + Top = 8 + Width = 155 + Height = 21 + Anchors = [akLeft, akTop, akRight] + AutoSize = False + CharCase = ecUpperCase + TabOrder = 0 + OnChange = FuncNameEditChange + end + object ResultListView: TListView + Left = 0 + Top = 104 + Width = 397 + Height = 161 + Anchors = [akLeft, akTop, akRight, akBottom] + Columns = < + item + Caption = 'Name' + Width = 90 + end + item + Caption = 'Filename' + Width = 300 + end> + ColumnClick = False + MultiSelect = True + ReadOnly = True + RowSelect = True + TabOrder = 1 + ViewStyle = vsReport + OnDblClick = ResultListViewDblClick + end + object StartBtn: TButton + Left = 318 + Top = 8 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Caption = 'Start' + Default = True + TabOrder = 2 + OnClick = StartBtnClick + end + object StopBtn: TButton + Left = 318 + Top = 40 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Cancel = True + Caption = 'Stop' + Enabled = False + TabOrder = 3 + OnClick = StopBtnClick + end + object PathEdit: TEdit + Left = 40 + Top = 40 + Width = 251 + Height = 21 + Anchors = [akLeft, akTop, akRight] + AutoSize = False + CharCase = ecUpperCase + TabOrder = 4 + OnChange = FuncNameEditChange + end + object SelectDirBtn: TButton + Left = 295 + Top = 40 + Width = 13 + Height = 21 + Anchors = [akTop, akRight] + Caption = '...' + TabOrder = 5 + OnClick = SelectDirBtnClick + end + object ExportCheckBox: TCheckBox + Left = 203 + Top = 8 + Width = 49 + Height = 17 + Anchors = [akTop, akRight] + Caption = '&Export' + TabOrder = 6 + OnClick = FuncNameEditChange + end + object ImportCheckBox: TCheckBox + Left = 260 + Top = 8 + Width = 49 + Height = 17 + Anchors = [akTop, akRight] + Caption = '&Import' + TabOrder = 7 + OnClick = FuncNameEditChange + end +end diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeSearch.pas b/official/2.1.1/examples/windows/delphitools/peviewer/PeSearch.pas new file mode 100644 index 0000000..56cc4d0 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeSearch.pas @@ -0,0 +1,226 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is PeSearch.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2006-05-30 00:02:45 +0200 (mar., 30 mai 2006) $ } +{ } +{**************************************************************************************************} + +unit PeSearch; + +{$I JCL.INC} + +{$IFDEF COMPILER6_UP} + {$WARN UNIT_PLATFORM OFF} +{$ENDIF COMPILER6_UP} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, ComCtrls, JclPeImage, ExtCtrls; + +type + TPeSearchChild = class(TForm) + FuncNameEdit: TEdit; + ResultListView: TListView; + StartBtn: TButton; + ProcessLabel: TLabel; + StopBtn: TButton; + Bevel1: TBevel; + PathEdit: TEdit; + CountLabel: TLabel; + SelectDirBtn: TButton; + Label1: TLabel; + Label2: TLabel; + ExportCheckBox: TCheckBox; + ImportCheckBox: TCheckBox; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure StartBtnClick(Sender: TObject); + procedure StopBtnClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure SelectDirBtnClick(Sender: TObject); + procedure FuncNameEditChange(Sender: TObject); + procedure ResultListViewDblClick(Sender: TObject); + private + FSearchThread: TJclPeNameSearch; + procedure SearchDone(Sender: TObject); + procedure SearchFound(Sender: TObject; const FileName: TFileName; + const FunctionName: string; Option: TJclPeNameSearchOption); + procedure SearchProcessFile(Sender: TObject; PeImage: TJclPeImage; var Process: Boolean); + procedure UpdateCounter; + procedure UpdateButtons; + public + function ActiveLibName: string; + procedure ClearResults; + procedure StartSearch; + procedure StopSearch; + end; + +var + PeSearchChild: TPeSearchChild; + +implementation + +{$R *.DFM} + +uses + FileCtrl, JclSysInfo, PeViewerMain; + +procedure TPeSearchChild.FormClose(Sender: TObject; var Action: TCloseAction); +begin + if Assigned(FSearchThread) then + begin + FSearchThread.OnFound := nil; + FSearchThread.OnProcessFile := nil; + FSearchThread.OnTerminate := nil; + FSearchThread.Terminate; + end; + Action := caFree; +end; + +procedure TPeSearchChild.SearchDone(Sender: TObject); +begin + FSearchThread := nil; + UpdateButtons; + ProcessLabel.Caption := ''; +end; + +procedure TPeSearchChild.SearchFound(Sender: TObject; const FileName: TFileName; + const FunctionName: string; Option: TJclPeNameSearchOption); +begin + with ResultListView.Items.Add do + begin + Caption := FunctionName; + SubItems.Add(FileName); + case Option of + seImports: ImageIndex := icoImports; + seDelayImports: ImageIndex := icoDelayImport; + seBoundImports: ImageIndex := icoBoundImport; + seExports: ImageIndex := icoExports; + end; + end; + UpdateCounter; +end; + +procedure TPeSearchChild.SearchProcessFile(Sender: TObject; PeImage: TJclPeImage; var Process: Boolean); +begin + ProcessLabel.Caption := PeImage.FileName; +end; + +procedure TPeSearchChild.StartSearch; +var + Options: TJclPeNameSearchOptions; +begin + Options := []; + if ExportCheckBox.Checked then Include(Options, seExports); + if ImportCheckBox.Checked then Options := Options + [seImports, seDelayImports, seBoundImports]; + FSearchThread := TJclPeNameSearch.Create(Trim(FuncNameEdit.Text), + PathEdit.Text, Options); + FSearchThread.OnTerminate := SearchDone; + FSearchThread.OnFound := SearchFound; + FSearchThread.OnProcessFile := SearchProcessFile; + UpdateButtons; + ClearResults; + FSearchThread.Resume; +end; + +procedure TPeSearchChild.StopSearch; +begin + FSearchThread.Terminate; +end; + +procedure TPeSearchChild.StartBtnClick(Sender: TObject); +begin + StartSearch; +end; + +procedure TPeSearchChild.StopBtnClick(Sender: TObject); +begin + StopSearch; +end; + +procedure TPeSearchChild.FormCreate(Sender: TObject); +begin + ProcessLabel.Caption := ''; + PathEdit.Text := GetWindowsSystemFolder; + UpdateButtons; + UpdateCounter; +end; + +procedure TPeSearchChild.SelectDirBtnClick(Sender: TObject); +var + S: string; +begin + if SelectDirectory('', '', S) then PathEdit.Text := S; +end; + +procedure TPeSearchChild.ClearResults; +begin + with ResultListView.Items do + begin + BeginUpdate; + Clear; + EndUpdate; + end; + UpdateCounter; +end; + +procedure TPeSearchChild.UpdateCounter; +begin + with ResultListView.Items do + if Count = 0 then + CountLabel.Caption := '' + else + CountLabel.Caption := Format('%d', [Count]); +end; + +procedure TPeSearchChild.UpdateButtons; +begin + StartBtn.Enabled := (FuncNameEdit.Text <> '') and (PathEdit.Text <> '') and + (ImportCheckBox.Checked or ExportCheckBox.Checked) and + not Assigned(FSearchThread); + StopBtn.Enabled := Assigned(FSearchThread); + FuncNameEdit.Enabled := not Assigned(FSearchThread); + PathEdit.Enabled := not Assigned(FSearchThread); + SelectDirBtn.Enabled := not Assigned(FSearchThread); + ExportCheckBox.Enabled := not Assigned(FSearchThread); + ImportCheckBox.Enabled := not Assigned(FSearchThread); +end; + +procedure TPeSearchChild.FuncNameEditChange(Sender: TObject); +begin + UpdateButtons; +end; + +function TPeSearchChild.ActiveLibName: string; +begin + if ResultListView.Selected <> nil then + Result := ResultListView.Selected.SubItems[0] + else + Result := ''; +end; + +procedure TPeSearchChild.ResultListViewDblClick(Sender: TObject); +begin + MainForm.OpenLibrary1.Execute; +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeViewer.dof b/official/2.1.1/examples/windows/delphitools/peviewer/PeViewer.dof new file mode 100644 index 0000000..cbce52f --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeViewer.dof @@ -0,0 +1,134 @@ +[FileVersion] +Version=7.0 +[Compiler] +A=8 +B=0 +C=1 +D=1 +E=0 +F=0 +G=1 +H=1 +I=1 +J=0 +K=0 +L=1 +M=0 +N=1 +O=1 +P=1 +Q=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=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription= +[Directories] +OutputDir=..\..\..\..\bin +UnitOutputDir= +PackageDLLOutputDir= +PackageDCPOutputDir= +SearchPath=..\..\..\..\source\ignore;..\..\..\..\source\common;..\..\..\..\source\windows;..\..\..\..\source\vcl +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication= +Launcher= +UseLauncher=0 +DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir= +[Version Info] +IncludeVerInfo=1 +AutoIncBuild=0 +MajorVer=0 +MinorVer=5 +Release=4 +Build=129 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=1033 +CodePage=1252 +[Version Info Keys] +CompanyName=Petr Vones +FileDescription=PE Viewer +FileVersion=0.5.4.129 +InternalName=PEVIEWER +LegalCopyright=(c) 2002 Petr Vones +LegalTrademarks= +OriginalFilename=PEVIEWER.EXE +ProductName=PE Viewer +ProductVersion=0.5.4 diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeViewer.dpr b/official/2.1.1/examples/windows/delphitools/peviewer/PeViewer.dpr new file mode 100644 index 0000000..7a9b5a8 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeViewer.dpr @@ -0,0 +1,33 @@ +program PeViewer; + +{$I jcl.inc} + +uses + Forms, + SysUtils, + D6MdiMsgFix in '..\Common\D6MdiMsgFix.pas', + PeViewerMain in 'PeViewerMain.pas' {MainForm}, + PeDump in 'PeDump.pas' {PeDumpChild}, + PeSearch in 'PeSearch.pas' {PeSearchChild}, + PeViewer_TLB in 'PeViewer_TLB.pas', + PeViewerControl in 'PeViewerControl.pas' {PeViewerControl: CoClass}, + PeResource in 'PeResource.pas', + PeResView in 'PeResView.pas' {PeResViewChild}, + ToolsUtils in '..\Common\ToolsUtils.pas', + About in '..\Common\About.pas' {AboutBox}, + PeGenDef in 'PeGenDef.pas' {PeGenDefChild}, + FindDlg in '..\Common\FindDlg.pas' {FindTextForm}, + ExceptDlg in '..\..\..\..\experts\debug\dialog\ExceptDlg.pas' {ExceptionDialog}, + SHDocVw_TLB in '..\Common\SHDocVw_TLB.pas'; + +{$R *.TLB} + +{$R *.RES} +{$R ..\..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.Title := 'PE Viewer'; + Application.CreateForm(TMainForm, MainForm); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeViewer.res b/official/2.1.1/examples/windows/delphitools/peviewer/PeViewer.res new file mode 100644 index 0000000000000000000000000000000000000000..26d12ee208fe5fd938fc6c0275c25dd389f3bc7a GIT binary patch literal 1636 zcmd^;yKWOv5QcvThbR!hg?qN32o#Zt3?dRzfLx?VfmjJLbdeQ|iEwPoF+z0axf~?- z*#}5TK|u#41;TtY$D3UT7gRKiJZH|#{BvC&Ns8dnC@|Lv`Z|;NFM-LquTYrFC!j?x z5&Q_wDVY1jOsBrYPyK!noLu3)hQlEaYr@1R2+q)#8ULhsOk+^aQ6HT#r*dHb2qsH&m(z>sU9Jqy9<{wNpI76Y>A0&L?7vzQ3>y41-h;J8|7G zDcL{cr?mP*y7^tYVfw2ok+R`(4O*_bhvhTuPLrzgt@K<54D5taY zw^YcyrP+KEe>PL*TGgKRIXAS+ZObd{d%aEWMxXNEep$X*?jMyum#gj-7V}Qh1Amiy z>Zz+kwbalivZ*?mTY9ZF@S=)SI!Zw<_mI;w&Hz|=Lgx)-S+EpJ5E zZM=0IyZxcA5SP?hcl&|Y?|?satN|<3vDiZp@8K@C@)o0(3nP8I)#UckFnTH7iTvkkuCXq&Rbe72>A-jGRJ)PZi(;W9fZaYl4J zZQ?s*%I11bmYQCHJwkT%cDxs>`$X5k?u_f$7qMQGU6~fPd$H#wI)4cpg&kGM(Wc5f xy6k19oxazSE>m|h=HhnK-Ae0Tsp|bF-KGB+>6ZW7!lW(cYl6&v+xh&L{BOou!B_wQ literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeViewer.tlb b/official/2.1.1/examples/windows/delphitools/peviewer/PeViewer.tlb new file mode 100644 index 0000000000000000000000000000000000000000..bd17d10457d6587bd3440c1af58d87d47bcb289e GIT binary patch literal 1672 zcmd^AO>5Lp6umQ!nnI;h5SdCBDULfUgA`iCh1fDop|vAcvk{rh%xg^@ladD1g^-QX zMZ0d7{sjL(K@h~f{U5q^p`MfEmNW>a;LZy-_nmXUUhaFDS$)`EuS!KIW3|M{1HhCK zsixG)^8!|j8Tyrp4ID$6LnRF(LuePomyDZ$wadFC zJBa5d*^~7<=SB8%{$t=LIjnor_|UJ5asKl73~$TAG+ad$C;HSZ)e+$2G4BIk4(7X4vf7Kgtmre z`?A;iTV@bBS59i2cHBYJCUi=sV)mcLFAD!R_{~^i#XVTA8+dArEpvz=oBH_uaE`p! H6xRC<_fvV# literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeViewerControl.pas b/official/2.1.1/examples/windows/delphitools/peviewer/PeViewerControl.pas new file mode 100644 index 0000000..3c252cf --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeViewerControl.pas @@ -0,0 +1,83 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is PeViewerControl.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2006-05-30 00:02:45 +0200 (mar., 30 mai 2006) $ } +{ } +{**************************************************************************************************} + +unit PeViewerControl; + +{$I JCL.INC} + +interface + +uses + ComObj, ActiveX, PeViewer_TLB, Forms, Windows, StdVcl; + +type + TPeViewerControl = class(TAutoObject, IPeViewerControl) + private + FROTHandle: Integer; + protected + procedure OpenFile(const FileName: WideString); safecall; + procedure BringToFront; safecall; + { Protected declarations } + public + destructor Destroy; override; + procedure Initialize; override; + end; + +implementation + +uses ComServ, PeViewerMain; + +procedure TPeViewerControl.OpenFile(const FileName: WideString); +begin + if Length(FileName) > 0 then MainForm.OpenFile(FileName, True); +end; + +procedure TPeViewerControl.BringToFront; +begin + Application.Restore; + SetForegroundWindow(Application.Handle); +end; + +procedure TPeViewerControl.Initialize; +begin + inherited; + OleCheck(RegisterActiveObject(Self as IUnknown, Class_PeViewerControl, + ACTIVEOBJECT_WEAK, FROTHandle)); + {$IFDEF COMPILER5_UP} + ComServer.UIInteractive := False; + {$ENDIF} +end; + +destructor TPeViewerControl.Destroy; +begin + OleCheck(RevokeActiveObject(FROTHandle, nil)); + inherited; +end; + +initialization + TAutoObjectFactory.Create(ComServer, TPeViewerControl, Class_PeViewerControl, + ciMultiInstance, tmApartment); + +end. diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeViewerMain.dfm b/official/2.1.1/examples/windows/delphitools/peviewer/PeViewerMain.dfm new file mode 100644 index 0000000..e5aa53f --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeViewerMain.dfm @@ -0,0 +1,2179 @@ +object MainForm: TMainForm + Left = 193 + Top = 108 + Width = 576 + Height = 403 + Caption = 'PE Viewer' + Color = clAppWorkSpace + Constraints.MinHeight = 150 + Constraints.MinWidth = 370 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + FormStyle = fsMDIForm + Menu = MainMenu1 + OldCreateOrder = False + Position = poDefault + ShowHint = True + Visible = True + WindowMenu = Window1 + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object StatusBar1: TStatusBar + Left = 0 + Top = 330 + Width = 568 + Height = 19 + Panels = < + item + Width = 50 + end> + end + object CoolBar1: TCoolBar + Left = 0 + Top = 0 + Width = 568 + Height = 26 + AutoSize = True + Bands = < + item + Break = False + Control = ToolBar1 + ImageIndex = -1 + MinHeight = 22 + Width = 564 + end> + Color = clBtnFace + ParentColor = False + OnResize = CoolBar1Resize + object ToolBar1: TToolBar + Left = 9 + Top = 0 + Width = 551 + Height = 22 + AutoSize = True + Caption = 'ToolBar1' + Color = clBtnFace + EdgeBorders = [] + Flat = True + Images = ToolbarImagesList + ParentColor = False + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + Action = FileOpen1 + end + object ToolButton3: TToolButton + Left = 23 + Top = 0 + Action = Copy1 + end + object ToolButton4: TToolButton + Left = 46 + Top = 0 + Action = Save1 + end + object ToolButton20: TToolButton + Left = 69 + Top = 0 + Action = Find1 + end + object ToolButton5: TToolButton + Left = 92 + Top = 0 + Width = 8 + Caption = 'ToolButton5' + ImageIndex = 3 + Style = tbsSeparator + end + object ToolButton7: TToolButton + Left = 100 + Top = 0 + Action = GroupImports1 + Style = tbsCheck + end + object ToolButton19: TToolButton + Left = 123 + Top = 0 + Action = UnmangleNames1 + Style = tbsCheck + end + object ToolButton2: TToolButton + Left = 146 + Top = 0 + Action = OpenLibrary1 + end + object ToolButton18: TToolButton + Left = 169 + Top = 0 + Action = ShowUnitGen1 + end + object ToolButton11: TToolButton + Left = 192 + Top = 0 + Action = InvokeHelp1 + end + object ToolButton15: TToolButton + Left = 215 + Top = 0 + Width = 8 + Caption = 'ToolButton15' + ImageIndex = 10 + Style = tbsSeparator + end + object ToolButton14: TToolButton + Left = 223 + Top = 0 + Action = ViewResources1 + end + object ToolButton16: TToolButton + Left = 246 + Top = 0 + Action = ViewResDetails1 + Style = tbsCheck + end + object ToolButton17: TToolButton + Left = 269 + Top = 0 + Action = ViewResHex1 + Style = tbsCheck + end + object ToolButton8: TToolButton + Left = 292 + Top = 0 + Width = 8 + Caption = 'ToolButton8' + ImageIndex = 4 + Style = tbsSeparator + end + object ToolButton6: TToolButton + Left = 300 + Top = 0 + Action = Search1 + end + object ToolButton10: TToolButton + Left = 323 + Top = 0 + Width = 8 + Caption = 'ToolButton10' + ImageIndex = 14 + Style = tbsSeparator + end + object ToolButton9: TToolButton + Left = 331 + Top = 0 + Action = WindowCascade1 + end + object ToolButton12: TToolButton + Left = 354 + Top = 0 + Action = WindowTileHorizontal1 + end + object ToolButton13: TToolButton + Left = 377 + Top = 0 + Action = WindowTileVertical1 + end + end + end + object MainMenu1: TMainMenu + Images = ToolbarImagesList + Left = 8 + Top = 304 + object File1: TMenuItem + Caption = 'File' + object Open1: TMenuItem + Action = FileOpen1 + end + object Savetofile1: TMenuItem + Action = Save1 + end + object N3: TMenuItem + Caption = '-' + end + object Exit2: TMenuItem + Action = Exit1 + end + end + object Edit1: TMenuItem + Caption = 'Edit' + object Copytoclipboard1: TMenuItem + Action = Copy1 + end + object Selectall2: TMenuItem + Action = SelectAll1 + end + object N4: TMenuItem + Caption = '-' + end + object Findtext1: TMenuItem + Action = Find1 + end + end + object View1: TMenuItem + Caption = 'View' + object Search2: TMenuItem + Action = Search1 + end + object Openlibrary2: TMenuItem + Action = OpenLibrary1 + end + object Groupimports2: TMenuItem + Action = GroupImports1 + end + object Pascalunitgenerator1: TMenuItem + Action = ShowUnitGen1 + end + object N2: TMenuItem + Caption = '-' + end + object Unmanglenames2: TMenuItem + Action = UnmangleNames1 + end + object Viewresources2: TMenuItem + Action = ViewResources1 + end + object Viewdetails1: TMenuItem + Action = ViewResDetails1 + end + object Viewashex1: TMenuItem + Action = ViewResHex1 + end + end + object Window1: TMenuItem + Caption = 'Window' + object Cascade1: TMenuItem + Action = WindowCascade1 + end + object TileHorizontally1: TMenuItem + Action = WindowTileHorizontal1 + end + object TileVertically1: TMenuItem + Action = WindowTileVertical1 + end + end + object Help1: TMenuItem + Caption = 'Help' + object FindinWin32APIhelp1: TMenuItem + Action = InvokeHelp1 + end + object N1: TMenuItem + Caption = '-' + end + object Support1: TMenuItem + Action = SendMail1 + end + object About2: TMenuItem + Action = About1 + end + end + end + object ActionList: TActionList + Images = ToolbarImagesList + Left = 40 + Top = 304 + object Exit1: TAction + Caption = 'Exit' + Hint = 'Exit' + ImageIndex = 0 + OnExecute = Exit1Execute + end + object FileOpen1: TAction + Caption = 'Open...' + Hint = 'Open' + ImageIndex = 6 + ShortCut = 16463 + OnExecute = FileOpen1Execute + end + object InvokeHelp1: TAction + Caption = 'Find in Win32 API help' + Hint = 'Win32API help' + ImageIndex = 5 + ShortCut = 112 + OnExecute = InvokeHelp1Execute + OnUpdate = InvokeHelp1Update + end + object Copy1: TAction + Caption = 'Copy to clipboard' + Hint = 'Copy to clipboard' + ImageIndex = 2 + ShortCut = 16451 + OnExecute = Copy1Execute + OnUpdate = Copy1Update + end + object Save1: TAction + Caption = 'Save to file...' + Hint = 'Save to file' + ImageIndex = 2 + ShortCut = 16468 + OnExecute = Save1Execute + OnUpdate = Save1Update + end + object WindowCascade1: TWindowCascade + Category = 'Window' + Caption = 'Cascade' + Hint = 'Cascade' + ImageIndex = 7 + end + object WindowTileHorizontal1: TWindowTileHorizontal + Category = 'Window' + Caption = 'Tile Horizontally' + Hint = 'Tile Horizontally' + ImageIndex = 8 + end + object WindowTileVertical1: TWindowTileVertical + Category = 'Window' + Caption = 'Tile Vertically' + Hint = 'Tile Vertically' + ImageIndex = 9 + end + object About1: TAction + Caption = 'About...' + Hint = 'About' + OnExecute = About1Execute + end + object OpenLibrary1: TAction + Caption = 'Open library' + Hint = 'Open library' + ImageIndex = 4 + ShortCut = 16460 + OnExecute = OpenLibrary1Execute + OnUpdate = OpenLibrary1Update + end + object SelectAll1: TAction + Caption = 'Select all' + Hint = 'Select all' + ImageIndex = 14 + ShortCut = 16449 + OnExecute = SelectAll1Execute + OnUpdate = SelectAll1Update + end + object GroupImports1: TAction + Caption = 'Group imports' + Hint = 'Group imports' + ImageIndex = 13 + ShortCut = 16455 + OnExecute = GroupImports1Execute + OnUpdate = GroupImports1Update + end + object Search1: TAction + Caption = 'Search' + Hint = 'Search' + ImageIndex = 12 + OnExecute = Search1Execute + end + object ViewResources1: TAction + Caption = 'View resources' + Hint = 'View resources' + ImageIndex = 15 + ShortCut = 16466 + OnExecute = ViewResources1Execute + OnUpdate = ViewResources1Update + end + object ViewResDetails1: TAction + Caption = 'View details' + ImageIndex = 19 + ShortCut = 16452 + OnExecute = ViewResDetails1Execute + OnUpdate = ViewResDetails1Update + end + object ViewResHex1: TAction + Caption = 'View as hex' + Hint = 'View as hex' + ImageIndex = 20 + ShortCut = 16456 + OnExecute = ViewResHex1Execute + OnUpdate = ViewResHex1Update + end + object SendMail1: TAction + Caption = 'Support' + Hint = 'Support' + ImageIndex = 21 + OnExecute = SendMail1Execute + end + object ShowUnitGen1: TAction + Caption = 'Pascal unit generator' + Hint = 'Pascal unit generator' + ImageIndex = 22 + OnExecute = ShowUnitGen1Execute + OnUpdate = ShowUnitGen1Update + end + object UnmangleNames1: TAction + Caption = 'Unmangle names' + Hint = 'Unmangle names' + ImageIndex = 23 + ShortCut = 16469 + OnExecute = UnmangleNames1Execute + OnUpdate = UnmangleNames1Update + end + object Find1: TAction + Caption = 'Find text' + Hint = 'Find text' + ImageIndex = 24 + ShortCut = 16454 + OnExecute = Find1Execute + OnUpdate = Find1Update + end + end + object OpenFileDialog: TOpenDialog + Filter = + 'PE Exe files (*.exe;*.dll;*.bpl)|*.exe;*.dll;*.bpl|All files (*.' + + '*)|*.*' + Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 104 + Top = 304 + end + object ToolbarImagesList: TImageList + ShareImages = True + Left = 72 + Top = 304 + Bitmap = { + 494C010119001D00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000008000000001002000000000000080 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000FFFFFF000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF0000FFFF0000FFFF0000000000000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + FF000000FF000000FF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFF0000FFFF0000FFFF000000000000000000000000 + 00007F7F7F007F7F7F007F7F7F00000000000000003F7F7F7F0000FFFF3F7F7F + 7F000000000000000000000000BFFFFFFF000000000000000000FFFFFF000000 + 0000000000BFFFFFFF000000000000000000FFFF0000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + FF000000FF000000FF0000000000FFFFFF00000000000000FF000000FF000000 + FF00000000007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F + 7F007F7F7F0000000000FFFFFF00000000000000000000FFFF0000FFFF0000FF + FF000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF000000000000000000FFFF00000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + FF000000FF000000FF0000000000FFFFFF00000000000000FF000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF00000000000000003F7F7F7F0000FFFF3F7F7F + 7F000000000000000000000000BFFFFFFF000000000000000000000000000000 + 0000FFFFFFBFFFFFFF000000000000000000FFFF000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF000000000000000000FFFF00000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF000000000000000000FFFFFF000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF0000000000000000000000FF000000FF000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFFBFFFFFFF000000000000000000FFFF00000000000000FFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF0000000000FFFF0000FFFF0000FFFF + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 00000000000000000000FFFFFF00FFFFFF0000000000FFFFFF007F7F7F007F7F + 7F00FFFFFF007F7F7F007F7F7F00FFFFFF007F7F7F00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF00000000BFBFBFBF00FFFFFF000000 + 0000FFFFFF0000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFF0000FFFF0000FFFF + 00000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000000000000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000000000FF000000FF000000 + FF000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFF0000FFFF0000FFFF + 000000000000FFFF000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF007F7F7F007F7F + 7F00FFFFFF007F7F7F007F7F7F007F7F7F00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + 0000FFFF0000FFFF000000000000FFFF00000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF000000000000000000FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFF00000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF0000000000000000007F7F7F000000 + 00007F7F7F00000000007F7F7F00000000007F7F7F00000000007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFFF000000FF0000BFFF00 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF00000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF007F7F7F00000000007F7F7F000000 + 00007F7F7F00000000007F7F7F00000000007F7F7F00000000007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FF0000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF00000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00000000000000000000000000000000000000 + 0000000000BFFFFFFF000000000000000000000000BFFFFFFF00000000BFFFFF + FF000000000000000000FFFFFF00000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00000000000000000000000000000000000000 + 0000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF00000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000BFFFFFFF000000000000000000FFFFFF0000000000000000BFFFFF + FF000000000000000000FFFFFF00000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF0000FFFF0000FFFF00000000000000 + 00000000000000000000000000000000000000000000FFFFFF00BFBFBF00FFFF + FF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFF + FF00BFBFBF00FFFFFF00BFBFBF00000000000000000000000000000000000000 + 0000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF00000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080008080800080808000000000000000 + 00000000000000000000000000000000000000000000BFBFBF00FFFFFF00BFBF + BF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBF + BF00FFFFFF000000FF00FFFFFF00000000000000000000000000000000000000 + 00000000000000000000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000000000 + 0000FFFFFF0000000000FFFFFF00000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00BFBFBF00FFFF + FF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFF + FF00BFBFBF00FFFFFF00BFBFBF00000000000000000000000000000000000000 + 0000FFFFFF0000FFFF000000000000000000FFFFFF0000000000FFFFFF000000 + 0000FFFFFFBFFFFFFF00FFFFFF00000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000BFFFFF + FF0000FFFF000000000000FFFFBFFFFFFF00000000BFFFFFFF0000FFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF0000FFFF00000000BFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF00000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00800000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000000000000000000000000000FFFFFF0000000000FFFF + FF0000000000000000000000000000000000000000000000000000FFFFBFFFFF + FF0000FFFFBFFFFFFF00000000BFFFFFFF0000FFFF0000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF00000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000BFFFFFFF00FFFFFFBFFFFF + FF00000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF000000000000000000FFFFFF000000000000000000000000000000 + 000000000000000000000000000000000000FFFF00000000000000FFFFBFFFFF + FF0000FFFFBFFFFFFF0000FFFF00000000000000000000000000FFFFFFBFFFFF + FF00000000BFFFFFFF00FFFFFF00000000000000000080000000800000008000 + 00008000000080000000FFFFFF00800000008000000080000000800000008000 + 0000FFFFFF008000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF000000000000000000000000000000000000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000 + 000000000000000000000000000000000000FFFF00BFFFFF00000000000000FF + FF00FFFFFF0000FFFF000000000000FFFF00FFFFFF0000FFFF00000000BFFFFF + FF00000000BFFFFFFF0000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000BFBFBF00FFFFFF0000000000FFFFFF00000000000000 + 000000000000000000000000000000000000FFFF00BFFFFF0000FFFF00000000 + 000000FFFFBFFFFFFF0000FFFFBFFFFFFF000000000000000000FFFFFFBFFFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 000000000000000000000000000000000000FFFF00BFFFFF0000FFFF00BFFFFF + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000080000000000000000000FF + FF00008080000000000000000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000800000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFF0000000000000000000000000000000080000000000000000000FF + FF0000808000000000000000008000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBF0000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBFBFBFBFBF00BFBFBFBFBFBFBF00BFBFBFBFBFBF + BF00BFBFBF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFFBFFFFF + FF00000000BFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFF0000000000000000000000000000000080000000000000000000FF + FF0000808000000000000000000000000000BFBFBFBFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF000000008000000000000000BFBFBFBF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFBFBFBFBFBFBF0000000080000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000003F7F7F + 7F007F7F7F000000000000000000000000000000000000000000FFFFFFBFFFFF + FF00000000BFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFF0000000000000000000000000000000080000000000000000000FF + FF00008080000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000080000000000000000000000000BFBFBF000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000800000 + 0000000000BFBFBFBF00BFBFBF000000000000000000FF000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F3F7F7F + 7F00000000000000000000000000000000000000000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000BFFFFF + FF00FFFFFF000000000000000000000000000000008000000000000000000080 + 8000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF0000000000BFBFBF0000000000FF00000000000000FF0000BFFF00 + 0000000000000000000000000000000000000000003F7F7F7F007F7F7F000000 + 0000000000000000000000000000000000000000000000000000FFFFFFBFFFFF + FF00FFFFFF0000000000FFFFFFBFFFFFFF00FFFFFF0000000000FFFFFFBFFFFF + FF00FFFFFF000000000000000000000000000000008000000000000000000000 + 00007F7F7FBFBFBFBF0000000000000000000000000000000000000000000000 + 00007F7F7F00000000000000008000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFF + FF000000000000000000BFBFBF0000000000FF00000000000000000000000000 + 0000FF0000000000000000000000000000007F7F7F3F7F7F7F00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF00000000000000000000000000FFFFFFBFFFFF + FF00FFFFFF0000000000FFFFFFBFFFFFFF00FFFFFF0000000000FFFFFFBFFFFF + FF00FFFFFF0000000000000000000000000000000000000000007F7F7FBFBFBF + BF00BFBFBFBFBFBFBF00000000000000000000000000000000007F7F7F3F7F7F + 7F007F7F7F000000000000000080000000000000000000000000FFFFFF000000 + 0000000000BFFFFFFF000000000000000000FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000BFBFBF0000000000FF0000BFFF000000000000000000 + 00000000000000000000000000BFFFFFFF007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F3F7F7F7F007F7F7F00000000000000000000000000FFFFFFBFFFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00000000000000000000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF0000000000000000007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F000000000000000080000000000000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000BFBFBF000000000000000000FF000000FF0000BFFF00 + 0000FF0000BFFF00000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00000000BFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFF + FF00FFFFFF00000000000000000000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00000000BFBFBFBF000000003F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F000000000000000080000000000000000000000000000000BFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF00000000000000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00000000BFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFF + FF00FFFFFF00000000000000000000000000000000000000FF00BFBFBF000000 + FF00BFBFBFBFBFBFBF000000003F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F00000000000000008000000000000000000000FF00000000000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 000000000000000000000000FF0000000000000000000000000000000000FF00 + 0000000000BFFF0000000000000000000000000000BFFFFFFF00000000000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFF000000000000000000000000000000FF000000FF000000FFBFBFBF + BF00BFBFBFBFBFBFBF000000003F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F00000000000000008000000000000000000000FF00000000BFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF0000000000000000000000FF00000000000000000000000000FF0000000000 + 000000000000FF0000000000000000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF00000000000000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000000000 + 000000000000000000000000000000000000000000000000FF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBF00000000007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F00000000800000000000000080000000000000000000000000000000BFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00000000BFFFFFFF0000000000000000000000000000000000FF0000000000 + 000000000000FF0000000000000000000000000000BFFFFFFF00000000BFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF00000000000000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFF + FF00FFFFFF00000000000000000000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBFBFBFBFBF00BFBFBF0000000000000000000000 + 0000000000800000000000000080000000000000000000000000000000BFFFFF + FF000000000000000000000000BFFFFFFF000000000000000000FFFFFFBFFFFF + FF00000000BFFFFFFF0000000080000000000000000000000000FF0000000000 + 000000000000000000000000000000000000000000BFFFFFFF00FFFFFFBFFFFF + FF000000000000000000000000000000000000000000000000000000FF000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF00000000BFFFFF + FF0000000000000000000000000000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBFBFBFBFBF000000003F7F7F7F00000000800000 + 0000000000800000000000000080000000000000000000000000000000BFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF0000000000000000000000008000000000000000000000000000000000FF00 + 0000FF0000BFFF0000000000000000000000000000BFFFFFFF00000000BFFFFF + FF00000000BFFFFFFF00FFFFFF00000000000000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF000000003F7F7F7F000000008000000000000000800000 + 0000000000800000000000000080000000000000000000000000000000BFFFFF + FF00FFFFFFBFFFFFFF0000000000000000000000000000000000000000000000 + 0000000000800000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00000000BFFFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000008000000000000000000000 + 00000000003F7F7F7F0000000080000000000000008000000000000000800000 + 0000000000800000000000000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF000000000000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF0000000000000000000000000000000000000000 + 00000000003F7F7F7F0000000000000000000000003F7F7F7F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFF000000000000FFFF000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFF0000000000000000000000000000000000000000 + 0000000000000000FF000000FF000000000000FFFF0000FFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF3F7F7F + 7F007F7F7F3F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF3F7F7F + 7F007F7F7F3F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F0000000000FFFF0000000000000000000000000000000000000000 + 00000000FF000000FF000000FF000000000000FFFF0000FFFF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF0000000000000000000000000000000000000000 + FF000000FF000000FF000000FF000000000000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF00000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF0000000000000000003F7F7F7F000000FF000000 + FF000000FF000000FF000000FF000000000000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF3F7F7F7F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF00000000000000000000000000000000FF000000 + FF000000FF000000FF000000FF000000000000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF00000000000000000000000000000000FF000000 + FF000000FF000000FF000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF00000000000000000000000000000000FF000000 + FF000000FF000000FF000000000000FF0000000000BFFF000000FF0000BFFF00 + 0000FF0000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF0000000000000000003F7F7F7F000000FF000000 + FF000000FF000000000000FF000000FF000000FF000000000000FF0000BFFF00 + 0000FF00003F7F7F7F0000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF00000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF0000000000000000000000000000000000000000 + FF000000000000FF000000FF000000FF000000FF000000FF0000000000BFFF00 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF0000000000000000000000000000000000000000 + 000000FF000000FF000000FF000000FF000000FF000000FF000000FF00000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF0000000000000000000000000000000000000000 + 00000000000000FF000000FF000000FF000000FF000000FF0000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFF0000000000FFFF000000000000FFFF000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFF0000000000FFFF0000000000000000000000000000000000000000 + 00000000003F7F7F7F0000000000000000000000003F7F7F7F00000000000000 + 0000000000000000000000000000000000000000000000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFF000000000000FFFF000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFF0000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF000000000000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF0000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000FFFFFF000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF0000FFFF0000FFFF0000000000000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + FF000000FF000000FF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFF0000FFFF0000FFFF000000000000000000000000 + 00007F7F7F007F7F7F007F7F7F00000000000000003F7F7F7F0000FFFF3F7F7F + 7F000000000000000000000000BFFFFFFF000000000000000000FFFFFF000000 + 0000000000BFFFFFFF000000000000000000FFFF0000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + FF000000FF000000FF0000000000FFFFFF00000000000000FF000000FF000000 + FF00000000007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F + 7F007F7F7F0000000000FFFFFF00000000000000000000FFFF0000FFFF0000FF + FF000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF000000000000000000FFFF00000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + FF000000FF000000FF0000000000FFFFFF00000000000000FF000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF00000000000000003F7F7F7F0000FFFF3F7F7F + 7F000000000000000000000000BFFFFFFF000000000000000000000000000000 + 0000FFFFFFBFFFFFFF000000000000000000FFFF000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF000000000000000000FFFF00000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF000000000000000000FFFFFF000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF0000000000000000000000FF000000FF000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFFBFFFFFFF000000000000000000FFFF00000000000000FFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF0000000000FFFF0000FFFF0000FFFF + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 00000000000000000000FFFFFF00FFFFFF0000000000FFFFFF007F7F7F007F7F + 7F00FFFFFF007F7F7F007F7F7F00FFFFFF007F7F7F00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF00000000BFBFBFBF00FFFFFF000000 + 0000FFFFFF0000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFF0000FFFF0000FFFF + 00000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000000000000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000000000FF000000FF000000 + FF000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFF0000FFFF0000FFFF + 000000000000FFFF000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF007F7F7F007F7F + 7F00FFFFFF007F7F7F007F7F7F007F7F7F00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + 0000FFFF0000FFFF000000000000FFFF00000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF000000000000000000FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFF00000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF0000000000000000007F7F7F000000 + 00007F7F7F00000000007F7F7F00000000007F7F7F00000000007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFFF000000FF0000BFFF00 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF00000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF007F7F7F00000000007F7F7F000000 + 00007F7F7F00000000007F7F7F00000000007F7F7F00000000007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FF0000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF0000FFFF0000FFFF00000000000000 + 00000000000000000000000000000000000000000000FFFFFF00BFBFBF00FFFF + FF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFF + FF00BFBFBF00FFFFFF00BFBFBF00000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080008080800080808000000000000000 + 00000000000000000000000000000000000000000000BFBFBF00FFFFFF00BFBF + BF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBF + BF00FFFFFF000000FF00FFFFFF00000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00BFBFBF00FFFF + FF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFF + FF00BFBFBF00FFFFFF00BFBFBF00000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00800000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000000000000000000000000000FFFFFF0000000000FFFF + FF00000000000000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF000000000000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000FFFFFF008000000000000000000000000000000080000000800000008000 + 00008000000080000000FFFFFF00800000008000000080000000800000008000 + 0000FFFFFF008000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF000000000000000000000000000000000000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000BFBFBF00FFFFFF0000000000FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000080000000800000008000000080000000800000008000 + 0000800000008000000080000000800000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF007F7F7F000000FF007F7F7F00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00800000000000000000000000000000000000 + 000000000000FF000000FF000000FF000000FF000000FF000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF000000FF000000FF000000FF0000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FF000000FF000000FF000000FF00 + 0000FF000000FF000000BFBFBF0000000000BFBFBF00FF000000FF000000FF00 + 0000FF000000FF000000FF00000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF007F7F7F000000FF007F7F7F00FFFFFF0000FFFF00FFFF + FF0000FFFF000000000000000000000000000000000000000000008080000080 + 8000008080000080800000808000008080000080800000808000008080000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00800000000000000000000000BFBFBF00BFBF + BF00BFBFBF00BFBFBF00000000007F7F7F0000000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF0000000000000000000000000000FFFF00000000000080 + 8000008080000080800000808000008080000080800000808000008080000080 + 8000000000000000000000000000000000000000000000000000000000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 00008000000080000000800000008000000000000000FFFFFF00000000007F7F + 7F007F7F7F0000000000FFFFFF007F7F7F00FFFFFF00000000007F7F7F007F7F + 7F0000000000FFFFFF00000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF000000FF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF00000000000000000000000000FFFFFF0000FFFF000000 + 0000008080000080800000808000008080000080800000808000008080000080 + 8000008080000000000000000000000000000000000000000000000000008000 + 0000FFFFFF00FFFFFF0080000000800000008000000080000000800000008000 + 00008000000080000000FFFFFF00800000007F7F7F0000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000007F7F7F0000000000FFFFFF0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF000000FF007F7F7F0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF00000000000000000000FFFF00FFFFFF0000FF + FF00000000000080800000808000008080000080800000808000008080000080 + 8000008080000080800000000000000000000000000000000000000000008000 + 0000FFFFFF00FFFFFF0080000000800000008000000080000000800000008000 + 0000800000008000000080000000800000007F7F7F0000000000FFFFFF000000 + 00000000000000000000FFFFFF007F7F7F00FFFFFF0000000000000000000000 + 0000FFFFFF00000000007F7F7F000000000000FFFF00FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF000000FF000000FF00FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00800000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000000000000000000000FFFFFF0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF000000FF000000FF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF00000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 000080000000000000000000000000000000000000007F7F7F0000000000FFFF + FF000000000000000000FFFFFF007F7F7F00FFFFFF000000000000000000FFFF + FF00000000007F7F7F00000000000000000000FFFF00FFFFFF0000FFFF00FFFF + FF007F7F7F007F7F7F0000FFFF00FFFFFF007F7F7F000000FF000000FF00FFFF + FF0000FFFF00FFFFFF0000FFFF000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000080000000FFFFFF008000 + 000080000000800000008000000080000000800000008000000080000000FFFF + FF0080000000000000000000000000000000000000007F7F7F0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000007F7F7F000000000000000000FFFFFF0000FFFF00FFFFFF0000FF + FF000000FF000000FF00FFFFFF0000FFFF007F7F7F000000FF000000FF0000FF + FF00FFFFFF0000FFFF00FFFFFF00000000000000000000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000FFFFFF008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 000080000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000000000FFFFFF0000FFFF00FFFF + FF000000FF000000FF007F7F7F00FFFFFF007F7F7F000000FF000000FF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00800000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF000000FF000000FF000000FF000000FF000000FF00FFFFFF0000FF + FF00FFFFFF0000FFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF000000FF000000FF000000FF00FFFFFF0000FFFF00FFFF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 00008000000080000000800000008000000080000000FFFFFF00800000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F000000 + 00007F7F7F007F7F7F0000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF000000 + 0000BFBFBF00BFBFBF0000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F0000007F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF00BFBF + BF00BFBFBF00BFBFBF0000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F007F7F + 7F0000000000000000007F7F7F00000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00BFBFBF00000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 00007F7F7F007F7F7F0000FFFF00000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 00007F7F7F0000FFFF0000FFFF00000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF000000000000000000BFBFBF0000000000FF000000FF000000FF00 + 00000000FF00FF000000FF0000000000000000000000FFFFFF00000000000000 + 0000FFFFFF00000000000000000000000000FFFFFF0000000000000000000000 + 00000000FF0000000000000000007F7F7F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + FF000000FF000000FF00000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + FF000000FF000000FF00000000000000000000000000FF000000FF000000FF00 + 0000FF000000FF00000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF0000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF00000000000000FF000000 + FF000000FF000000FF000000FF000000000000000000FFFFFF00000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF00000000000000FF000000 + FF000000FF000000FF000000FF00000000000000000000000000FF000000FF00 + 0000FF0000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F0000FFFF000000000000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF00000000000000000000000000FF00 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF00000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 000000000000000000007F7F7F0000FFFF007F7F7F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000000000000000 + FF000000FF000000FF00000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000000000000000 + FF000000FF000000FF000000000000000000000000000000FF000000FF000000 + FF00000000000000000000FFFF0000FFFF0000FFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F00FFFF000000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF0000000000BFBF + BF00FFFFFF0000000000FFFFFF000000000000000000000000007F7F7F000000 + FF000000FF000000FF00000000000000000000000000FFFFFF0000000000BFBF + BF00FFFFFF0000000000FFFFFF000000000000000000000000007F7F7F000000 + FF000000FF000000FF000000000000000000000000000000FF000000FF000000 + FF0000000000000000007F7F7F0000FFFF007F7F7F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F00FFFF0000FFFF00000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000FF000000FF000000FF000000 + FF000000FF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000FF000000FF000000FF000000 + FF000000FF00000000000000000000000000000000000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000800000000100010000000000000400000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000F000000000000000F000000000000000 + F000000000000000F000000000000000F000000000000000F000000000000000 + F000000000000000E000000000000000C0000000000000008000000000000000 + 8000000000000000000000000000000000000000000000000001000000000000 + 000300000000000000070000000000008003C3808007FFFF8003C3000003FFE7 + 8003C2010001FFC78003C00380108F8F8003C003000007008003C00300003200 + 80030003800000008003000380008000800300030000F900800300030000E100 + 800300030000C900800300070000C9008003000FC001C3008007003FC001E300 + 800F80FFC007FF01801FC3FFE3FFFF03FFFFFFFFFFFFBFFF00010001F83FBFFF + 000100011010B04900010001E00F807F1FF11FF1C007B07F1DF11FF18003B9FF + 1CF118318003BFFF1C7118318003B0491C3118318003807F1C7118318003B07F + 1CF11831C007B9FF1DF11FF1E00FBFFF1FF11FF13018048F00010001F83F07FF + 00010001FFFF07FF00010001FFFF9FFFFFFF8000FFE3FC01FFF88000FC418C01 + 20F8C00088000401007FE00000000401007CF00000000401003CF80000008C01 + 000FFC000000FC01000406000000FC01000C07000000040301FF018000000407 + E3FC01800000040FFFFC0060000007FFFFFFC06000010603FFF8C0600001FF07 + FFF8F044000DFF8FFFFFF07ED553FFDFFFFFFFFFFFFF800180038003C0070000 + 80038003BFEB00008003800300050000800380037E310000800380037E350000 + 8003800300060000800380037FEA0000800380038014E00780038003C00AE007 + 80038003E001E00780038003E007E00780038003F007E00F80038003F003E01F + FFFFFFFFF803E03FFFFFFFFFFFFFE07FFFFFFFFFFFFFFC00FFFFF83FFFFFFC00 + F83FE00F001FFC000001C007000FFC00000180030007E000000180030003E000 + 000100010001E000000100010000E00780030001001F800780030001001F8007 + 80030001001F8007C10780038FF1801FE38F8003FFF9801FFFFFC007FF75801F + FFFFE00FFF8F801FFFFFF83FFFFFFFFFC007FF00FC00FE7FC007FF00FC00FE1F + C007FF00FC00FC07C007FF00FC00FC01C00700000000F800C00700000000F800 + C007000000000000C007000000000000C007002300230001C007000100010032 + C00700000000003EC00700230023003EC00700630063003EC00700C300C3001D + C007010701070023C00703FF03FF003F00000000000000000000000000000000 + 000000000000} + end + object SaveDialog: TSaveDialog + DefaultExt = 'txt' + Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*' + Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing] + Left = 136 + Top = 304 + end + object IconImageList: TImageList + ShareImages = True + Left = 168 + Top = 304 + Bitmap = { + 494C010111001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000005000000001002000000000000050 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + FF000000FF00000000000000003F7F7F7F000000003F7F7F7F00000000000000 + 00000000FF000000FF000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FF000000FF000000FF3F7F7F7F000000003F7F7F7F000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000FF000000FF000000FF00000000000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF00000000000000FF000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000080000000000000008000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000800000000000000080000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000FF000000FF000000000000000000000000000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FF000000FF000000FF000000000000000000000000000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + FF000000FF00000000000000003F7F7F7F000000003F7F7F7F00000000000000 + 00000000FF000000FF000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000008000000000000000800000 + 00000000000000000000FFFFFFBFFFFFFF000000008000000000000000000000 + FF00000080000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000003F7F7F7F00000000000000 + 0000000000BFFFFFFF00FFFFFF00000000000000008000000000000000000000 + FF00000080000000FF0000000000008080000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000008080808000C0C0C080C0C0 + C000C0C0C080C0C0C000C0C0C080C0C0C000C0C0C080C0C0C000C0C0C080C0C0 + C000C0C0C0000000000000000000000000007F7F7F0000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF0000000080000000000000008000000000000000000000 + FF00000080000000FF0000808000008080000000008080808000808080808080 + 8000808080808080800080808080808080008080808080808000808080808080 + 8000808080808080800080808000000000000000000000000000808080808080 + 8000808080808080800080808080808080008080808080808000808080808080 + 8000808080808080800000000000000000000000008080808000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00C0C0C000000000000000000000000000000000BFFFFFFF00000000000000 + 0000FFFFFFBFFFFFFF0000000080000000000000008000000000000000000000 + FF00000080000000FF0000808000008080000000008080808000FFFFFF0000FF + FF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FF + FF00C0C0C00000FFFF0080808000000000000000000000000000808080BFFFFF + FF0000FFFF80C0C0C00000FFFF80C0C0C00000FFFF80C0C0C00000FFFF80C0C0 + C00000FFFF808080800000000000000000000000008080808000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00C0C0C0000000000000000000000000000000000000000000000000800000 + 0000000000BFFFFFFF0000000080000000000000008000000000000000000000 + FF00000080000000FF0000808080000000000000008080808000FFFFFF80C0C0 + C00000FFFF80C0C0C00000FFFF80C0C0C00000FFFF80C0C0C00000FFFF80C0C0 + C00000FFFF80C0C0C00080808000000000000000008080808000FFFFFF0000FF + FF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FF + FF00C0C0C0000000000080808000000000000000008080808000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFF0000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00C0C0C0000000000000000000000000000000003F7F7F7F00000000800000 + 0000000000BFFFFFFF00000000800000000000000080000000000000FF000000 + FF000000FF000000FF000000FF80000000000000008080808000FFFFFF0000FF + FF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FF + FF00C0C0C00000FFFF0080808000000000000000008080808000FFFFFF80C0C0 + C00000FFFF80C0C0C00000FFFF80C0C0C00000FFFF80C0C0C00000FFFF80C0C0 + C000808080000000000080808000000000000000008080808000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF0000000080C0C0C000C0C0C00000000000FFFFFFBFFFFF + FF00C0C0C00000000000000000000000000000000080000000007F7F7F000000 + 0000FFFFFF00000000007F7F7F80000000000000000000000000000080000000 + 8000000080000000800000008080000000000000008080808000FFFFFF80C0C0 + C00000FFFF80C0C0C00000FFFF80C0C0C00000FFFF80C0C0C00000FFFF80C0C0 + C00000FFFF80C0C0C0008080800000000000808080BFFFFFFF00C0C0C00000FF + FF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FF + FF00000000808080800080808000000000000000008080808000FFFFFFBFFFFF + FF00FFFFFF8080808000FFFFFF00000000008080808080808000000000BFFFFF + FF00C0C0C0000000000000000000000000000000008000000000000000000000 + 00000000003F7F7F7F0000000080000000000000000000808000008080000080 + 8000000000800000000000000080000000000000008080808000FFFFFF0000FF + FF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FF + FF00C0C0C00000FFFF008080800000000000808080BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFF808080 + 800000000080C0C0C00080808000000000000000008080808000FFFFFFBFFFFF + FF0000000080C0C0C000000000BFFFFFFF008080800000000000FFFFFFBFFFFF + FF00C0C0C0000000000000000000000000000000008000000000000000800000 + 0000000000800000000000000000000000000080800000808000008080800000 + 0000000000800000000000000080000000000000008080808000FFFFFF80C0C0 + C00000FFFF80C0C0C00000FFFF80C0C0C00000FFFF80C0C0C00000FFFF80C0C0 + C00000FFFF80C0C0C00080808000000000008080808080808000808080808080 + 8000808080808080800080808080808080008080808080808000808080808080 + 80008080800000FFFF0080808000000000000000008080808000FFFFFF000000 + 000000FFFF00000000008080808080808000000000BFFFFFFF00FFFFFFBFFFFF + FF00C0C0C0000000000000000000000000000000008000000000000000000000 + 0000000000800000000000000000008080000080800000808000000000800000 + 0000000000800000000000000080000000000000008080808000FFFFFF0000FF + FF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C00000FF + FF00C0C0C00000FFFF0080808000000000000000008080808000FFFFFF80C0C0 + C00000FFFF80C0C0C00000FFFF80C0C0C00000FFFF80C0C0C00000FFFF80C0C0 + C00000FFFF80C0C0C00080808000000000000000008080808000FFFFFFBFFFFF + FF000000000000FFFF000000000000000000FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00C0C0C0000000000000000000000000000000000000000000000000000000 + 0000000000000000000000808000008080000080808000000000000000800000 + 0000000000800000000000000080000000000000008080808000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF0080808000000000000000008080808000FFFFFF0000FF + FF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C0BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF0080808000000000000000008080808000FFFFFFBFFFFF + FF000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00C0C0C0000000000000000000000000000000008000000000000000000000 + 0000000000000080800000808000008080000000008000000000000000800000 + 0000000000800000000000000080000000000000008080808000C0C0C00000FF + FF00C0C0C00000FFFF00C0C0C00000FFFF00C0C0C08080808000808080808080 + 8000808080808080800080808000000000000000008080808000FFFFFF80C0C0 + C00000FFFF80C0C0C00000FFFF80C0C0C000FFFFFF8080808000808080808080 + 8000808080808080800080808000000000000000008080808000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000008080800000000000000080000000000000003F7F7F + 7F000000003F7F7F7F000000008000000000000000000000000080808080C0C0 + C00000FFFF80C0C0C00000FFFF80C0C0C0008080800000000000000000000000 + 0000000000000000000000000000000000000000000000000000808080BFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF008080800000000000000000000000 + 0000000000000000000000000000000000000000008080808000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00C0C0C0BFFFFF + FF00808080000000000000000000000000000000008000000000000000000000 + 00000000000000000000000000800000000000000080000000000000003F7F7F + 7F000000003F7F7F7F0000000080000000000000000000000000000000808080 + 8000808080808080800080808080808080000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000808080 + 8000808080808080800080808080808080000000000000000000000000000000 + 0000000000000000000000000000000000000000008080808000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00C0C0C0808080 + 8000000000000000000000000000000000000000008000000000008080000000 + 000000000000000000000000003F7F7F7F0000000080000000000000003F7F7F + 7F000000003F7F7F7F0000000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000008080808000808080808080 + 8000808080808080800080808080808080008080808080808000808080000000 + 0000000000000000000000000000000000000000008000000000008080000080 + 8000000000000000000000000000000000000000000000000000000000800000 + 0000000000800000000000000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF007F0000007F0000007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000000000 + 00000000000000000000000000BFFFFFFF007F7F7F007F0000007F0000007F00 + 00007F7F7F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFBFBF00BFBFBF007F7F7F007F7F7F007F7F7F00000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000000000 + FF000000FF000000FF00000000BFFFFFFF00000000007F0000007F0000007F00 + 00007F0000007F0000007F7F7F00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000BFBF + BF00BFBFBF007F7F7F000000000000000000000000007F7F7F007F7F7F007F7F + 7F00000000000000000000000000000000000000000000000000000000BFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000000000 + FF000000FF000000FF00000000BFFFFFFF0000000000000000007F0000007F00 + 00007F0000007F0000007F0000007F0000007F7F7F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF00BFBF + BF0000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000007F7F + 7F007F7F7F000000000000000000000000000000000000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000000000 + FF000000FF000000FF00000000BFFFFFFF0000000000000000007F7F7F007F00 + 00007F0000007F0000007F0000007F0000007F0000007F0000007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 00007F7F7F000000000000000000000000000000000000000000000000000000 + 0000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000000000 + 00000000000000000000000000BFFFFFFF000000000000000000000000007F00 + 00007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F00 + 00007F7F7F000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF000000FF00000000000000 + 00000000000000000000000000000000000000000000BFBFBF007F7F7F00FFFF + FF00000000000000000000FFFF00007F7F00007F7F000000000000000000FFFF + FF007F7F7F007F7F7F0000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF000000000000000000000000000000 + 00007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F00 + 00007F0000007F0000007F7F7F00000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF000000FF000000FF000000 + FF000000000000000000000000000000000000000000BFBFBF000000000000FF + FF000000000000FFFF00007F7F0000FFFF00007F7F00007F7F000000000000FF + FF00000000007F7F7F0000000000000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00000000BFFFFFFF00FFFFFFBFFFFFFF000000FF000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF00000000000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF000000FF00000000000000000000000000FFFFFF0000000000FFFF + FF000000000000FFFF0000FFFF0000FFFF0000FFFF00007F7F0000000000FFFF + FF00000000007F7F7F0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFFBFFFFFFF00FFFFFF000000 + 00000000000000000000FFFFFFBFFFFFFF000000000000000000000000000000 + 0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF000000FF00000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF000000FF000000FF000000 + FF000000000000000000000000000000000000000000FFFFFF000000000000FF + FF0000000000FFFFFF0000FFFF0000FFFF00007F7F0000FFFF000000000000FF + FF0000000000BFBFBF0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFFFFFFF00000000000000 + 00000000000000000000000000BFFFFFFF00000000000000000000000000FF00 + 0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF000000FF00000000000000 + 00000000000000000000000000000000000000000000FFFFFF007F7F7F00FFFF + FF000000000000000000FFFFFF00FFFFFF0000FFFF000000000000000000FFFF + FF007F7F7F00BFBFBF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FF00 + 0000FF000000FF000000FF000000FF000000FF000000FF000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 0000BFBFBF000000000000000000000000000000000000000000FFFF00BFFFFF + 0000FFFF00000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFFBFFFFFFF000000000000000000FF000000FF00 + 0000FF000000FF000000FF000000FF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00BFBF + BF0000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000BFBF + BF00BFBFBF000000000000000000000000000000000000000000FFFF00BFFFFF + 0000FFFF00000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFFBFFFFFFF0000000000FF000000FF000000FF00 + 0000FF000000FF00000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00BFBFBF007F7F7F000000000000000000000000007F7F7F00BFBFBF00BFBF + BF00000000000000000000000000000000000000000000000000FFFF00BFFFFF + 0000FFFF00000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFFBFFFFFFF0000000000FF000000FF000000FF00 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00BFBFBF00BFBFBF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFFBFFFFFFF00FF000000FF000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF000000FF000000FF000000FF000000FF000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FF000000FF000000FF000000FF00 + 0000FF000000FF000000BFBFBF0000000000BFBFBF00FF000000FF000000FF00 + 0000FF000000FF000000FF000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + 0000000000000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000BFBFBF00BFBF + BF00BFBFBF00BFBFBF00000000007F7F7F0000000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000080808000FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000000000000000FFFF + 00000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00000000007F7F + 7F007F7F7F0000000000FFFFFF007F7F7F00FFFFFF00000000007F7F7F007F7F + 7F0000000000FFFFFF0000000000000000000000000000000000000000000000 + 000000000000000000008080800080808000FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000808080008080800000000000000000000000000000000000FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000000000000000FFFF + 000000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF00000000000000000000000000000000007F7F7F0000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000007F7F7F00000000000000000000000000000000000000 + 00000000000000000000808080000000000000000000FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008080800000000000000000000000000000000000FFFFFF000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + 00000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000007F7F7F0000000000FFFFFF000000 + 00000000000000000000FFFFFF007F7F7F00FFFFFF0000000000000000000000 + 0000FFFFFF00000000007F7F7F00000000000000000000000000000000000000 + 00000000000080808000808080000000000000000000FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000080808000808080000000000000000000FFFFFF00FFFFFF000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + 000000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000008080800000000000000000000000000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000808080000000000000000000FFFFFF00000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + 00000000000000FFFF00FFFFFF00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007F7F7F0000000000FFFF + FF000000000000000000FFFFFF007F7F7F00FFFFFF000000000000000000FFFF + FF00000000007F7F7F0000000000000000000000000000000000000000000000 + 0000808080008080800000000000000000000000000000000000FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000008080800080808000FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF00FFFFFF0000FFFF0000000000000000000000 + 000000000000000000000000000000000000000000007F7F7F0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000007F7F7F0000000000000000000000000000000000000000000000 + 0000808080008080800080808000808080008080800080808000808080008080 + 8000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000080808000FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF000000 + 00007F7F7F007F7F7F000000000000000000000000000000000000000000007F + 7F00007F7F00007F7F00007F7F00000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + 000000000000000000000000000000000000000000000000000000FFFF000000 + 00007F7F7F0000000000BFBFBF00BFBFBF00BFBFBF00BFBFBF0000000000007F + 7F0000FFFF00007F7F0000FFFF00000000000000000000000000000000000000 + 000000000000FFFFFF0000000000FFFFFF000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + FF0000000000000000000000000000000000000000000000000000FFFF000000 + 00007F7F7F007F7F7F00000000000000000000000000000000000000000000FF + FF00007F7F0000FFFF00007F7F0000000000000000000000000000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF00000000000000000000000000000000000000000000FFFF000000 + 00007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F000000000000FF + FF0000FFFF00007F7F0000FFFF000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF000000000000000000FFFFFF000000 + 00000000000000000000FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF000000FF000000000000000000000000000000000000FFFF000000 + 00007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F000000000000FF + FF0000FFFF0000FFFF00007F7F000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF000000FF000000FF0000000000000000000000000000FFFF000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF0000FFFF0000FFFF0000FFFF000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + FF00000000000000000000000000FFFFFF0000000000BFBFBF00000000000000 + 0000FFFFFF0000000000FFFFFF000000000000000000FFFFFF00000000000000 + 0000FFFFFF00000000000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF000000FF000000000000000000000000000000000000FFFF000000 + 000000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000FF + FF0000FFFF0000FFFF0000FFFF000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + FF000000FF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000000000FF000000FF000000FF000000FF000000FF000000 + FF000000FF00000000000000000000000000000000000000000000FFFF000000 + 000000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000FF + FF0000FFFF0000FFFF0000FFFF000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF00000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000FF000000FF000000 + FF000000FF000000FF0000000000FFFFFF000000000000000000FFFFFF000000 + 00000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000FF000000 + FF0000000000000000000000000000000000000000000000000000FFFF000000 + 000000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000FF + FF0000FFFF0000FFFF0000FFFF000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000FF000000FF000000 + FF000000FF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000FF000000 + 000000000000000000000000000000000000000000000000000000FFFF000000 + 00007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F000000000000FF + FF0000FFFF0000FFFF0000FFFF000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF000000000000000000FFFFFF00FFFF + FF0000000000FFFFFF000000000000000000000000000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF0000000000BFBFBF00FFFFFF000000 + 0000FFFFFF0000000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF000000 + 000000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000FF + FF0000FFFF0000FFFF0000FFFF000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000FF000000FF000000 + FF000000FF000000FF000000FF0000000000FFFFFF00FFFFFF00FFFFFF000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000007F + 7F0000FFFF0000FFFF0000FFFF000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000FF000000FF000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF0000000000BFBF + BF00FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00007F7F0000FFFF0000FFFF000000000000000000FFFFFF0000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000007F + 7F0000FFFF00007F7F0000FFFF000000000000000000FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000500000000100010000000000800200000000000000000000 + 000000000000000000000000FFFFFF00FFFF000000000000FFFF000000000000 + C631000000000000E223000000000000F007000000000000F88F000000000000 + FC1F000000000000FE3F000000000000FC1F000000000000F80F000000000000 + F007000000000000E223000000000000C631000000000000FFFF000000000000 + FFFF000000000000FFFF000000000000F862FFFFFFFF800380E0C000E0008003 + 01E08000C000800301E08000C000800331E180008000800331C1800080008003 + C181800000008003C307800000008003FE17800000009003CC37800080008203 + A877800080008C0340F780018001800301E3C07FC07F8007C1E3E0FFE0FF800F + C0E3FFFFFFFF801FC83FFFFFFFFFFFFFFFFFFFFFFFFF80001FFFFFFFF83F8000 + 07FFFFFFE00FC00081FFFFFFC007E000C07FFCFF8003F000C01FFC3F8003F800 + E007FC0F0001FC00F00100030001FE00000000000001FF00F00300030001FF80 + E00FFC0F00018380E03FFC3F800383E0C0FFFCFF800383E083FFFFFFC00783E0 + 8FFFFFFFE00F83843FFFFFFFF83FFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + 1FFFF83FFFFFFFFF041F0001FFFFFFFF000F0001FE7FF00F000F0001FC3FF3CF + 00070001FDBFFBDF00010001F99FF99F00008003FBDFFDBF00018003F3CFFC3F + 003F8003F00FFE7FFC7FC107FFFFFFFFFFFFE38FFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8FC0FC00FFFFFFDF8000F000FC00FFCF + 8000C000FC00FFC700000000FC00000380000000FC00000180000000EC000000 + 80000000E40000018A800000E00000038A800000000000078A8000000001000F + 800000010003001F8A8000030007007F8FC00007000F00FFFFC0001FE3FF01FF + FFC0007FE7FF03FFFFC001FFEFFFFFFF00000000000000000000000000000000 + 000000000000} + end +end diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeViewerMain.pas b/official/2.1.1/examples/windows/delphitools/peviewer/PeViewerMain.pas new file mode 100644 index 0000000..c67de68 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeViewerMain.pas @@ -0,0 +1,631 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is PeViewerMain.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2008-09-09 21:32:17 +0200 (mar., 09 sept. 2008) $ } +{ } +{**************************************************************************************************} + +unit PeViewerMain; + +{$I JCL.INC} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + Menus, ActnList, ToolWin, ComCtrls, StdActns, ImgList, ShellAPI, JclPeImage; + +const + UM_CHECKPARAMSTR = WM_USER + $100; + +type + TMainForm = class(TForm) + MainMenu1: TMainMenu; + ActionList: TActionList; + File1: TMenuItem; + StatusBar1: TStatusBar; + FileOpen1: TAction; + Edit1: TMenuItem; + Window1: TMenuItem; + Exit1: TAction; + Exit2: TMenuItem; + InvokeHelp1: TAction; + Copy1: TAction; + Save1: TAction; + Copytoclipboard1: TMenuItem; + OpenFileDialog: TOpenDialog; + WindowCascade1: TWindowCascade; + WindowTileHorizontal1: TWindowTileHorizontal; + WindowTileVertical1: TWindowTileVertical; + Cascade1: TMenuItem; + TileHorizontally1: TMenuItem; + TileVertically1: TMenuItem; + ToolbarImagesList: TImageList; + Savetofile1: TMenuItem; + Open1: TMenuItem; + Help1: TMenuItem; + About1: TAction; + About2: TMenuItem; + CoolBar1: TCoolBar; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton11: TToolButton; + N3: TMenuItem; + SaveDialog: TSaveDialog; + OpenLibrary1: TAction; + ToolButton2: TToolButton; + SelectAll1: TAction; + Selectall2: TMenuItem; + IconImageList: TImageList; + GroupImports1: TAction; + View1: TMenuItem; + Openlibrary2: TMenuItem; + FindinWin32APIhelp1: TMenuItem; + N1: TMenuItem; + Search1: TAction; + ToolButton6: TToolButton; + N2: TMenuItem; + Search2: TMenuItem; + ToolButton7: TToolButton; + ToolButton8: TToolButton; + Groupimports2: TMenuItem; + ToolButton9: TToolButton; + ToolButton10: TToolButton; + ToolButton12: TToolButton; + ToolButton13: TToolButton; + ViewResources1: TAction; + Viewresources2: TMenuItem; + ToolButton14: TToolButton; + ToolButton15: TToolButton; + ViewResDetails1: TAction; + ViewResHex1: TAction; + ToolButton16: TToolButton; + ToolButton17: TToolButton; + Viewdetails1: TMenuItem; + Viewashex1: TMenuItem; + SendMail1: TAction; + Support1: TMenuItem; + ShowUnitGen1: TAction; + ToolButton18: TToolButton; + Pascalunitgenerator1: TMenuItem; + UnmangleNames1: TAction; + ToolButton19: TToolButton; + Unmanglenames2: TMenuItem; + Find1: TAction; + ToolButton20: TToolButton; + N4: TMenuItem; + Findtext1: TMenuItem; + procedure Exit1Execute(Sender: TObject); + procedure InvokeHelp1Update(Sender: TObject); + procedure FileOpen1Execute(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure InvokeHelp1Execute(Sender: TObject); + procedure Save1Execute(Sender: TObject); + procedure OpenLibrary1Execute(Sender: TObject); + procedure Copy1Update(Sender: TObject); + procedure OpenLibrary1Update(Sender: TObject); + procedure Copy1Execute(Sender: TObject); + procedure SelectAll1Execute(Sender: TObject); + procedure GroupImports1Update(Sender: TObject); + procedure GroupImports1Execute(Sender: TObject); + procedure Search1Execute(Sender: TObject); + procedure ViewResources1Update(Sender: TObject); + procedure ViewResources1Execute(Sender: TObject); + procedure ViewResDetails1Update(Sender: TObject); + procedure ViewResDetails1Execute(Sender: TObject); + procedure ViewResHex1Update(Sender: TObject); + procedure ViewResHex1Execute(Sender: TObject); + procedure Save1Update(Sender: TObject); + procedure About1Execute(Sender: TObject); + procedure SendMail1Execute(Sender: TObject); + procedure ShowUnitGen1Update(Sender: TObject); + procedure ShowUnitGen1Execute(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure UnmangleNames1Update(Sender: TObject); + procedure UnmangleNames1Execute(Sender: TObject); + procedure SelectAll1Update(Sender: TObject); + procedure Find1Update(Sender: TObject); + procedure Find1Execute(Sender: TObject); + procedure CoolBar1Resize(Sender: TObject); + private + FWin32Help: string; + function ActiveListViewToStrings: TStrings; + function IsWin32Help: Boolean; + function IsPeDumpChildActive: Boolean; + function IsPeResChildActive: Boolean; + function IsSearchChildActive: Boolean; + function IsGenDefChildActive: Boolean; + procedure OnActiveFormChange(Sender: TObject); + procedure UMCheckParamStr(var Message: TMessage); message UM_CHECKPARAMSTR; + procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES; + public + function FindPeResourceView(APeImage: TJclPeImage): TForm; + procedure InvokeWin32Help(const Name: string); + procedure OpenFile(const FileName: TFileName; CheckIfOpen: Boolean); + end; + +var + MainForm: TMainForm; + +const + icoHeader = 0; + icoDirectory = 1; + icoImports = 2; + icoExports = 3; + icoResources = 4; + icoSection = 5; + icoSortAsc = 6; + icoSortDesc = 7; + icoDelayImport = 8; + icoBoundImport = 9; + icoLoadConfig = 10; + icoRelocation = 11; + icoDebug = 12; + icoFolderShut = 13; + icoFolderOpen = 14; + icoResItem = 15; + icoWarning = 16; + +implementation + +uses ActiveX, ClipBrd, ToolsUtils, JclFileUtils, JclSysUtils, + About, PeDump, PeSearch, PeResView, PeGenDef, FindDlg; + +{$R *.DFM} + +{ TMainForm } + +procedure TMainForm.Exit1Execute(Sender: TObject); +begin + Close; +end; + +function TMainForm.IsPeDumpChildActive: Boolean; +begin + Result := ActiveMDIChild is TPeDumpChild; +end; + +procedure TMainForm.InvokeHelp1Update(Sender: TObject); +begin + TAction(Sender).Enabled := IsWin32Help and IsPeDumpChildActive and + (TPeDumpChild(ActiveMDIChild).ActiveWin32Function <> ''); +end; + +procedure TMainForm.FileOpen1Execute(Sender: TObject); +var + I: Integer; +begin + with OpenFileDialog do + begin + FileName := ''; + if Execute then + for I := 0 to Files.Count - 1 do OpenFile(Files[I], False); + end; +end; + +procedure TMainForm.FormCreate(Sender: TObject); +begin + FWin32Help := Win32HelpFileName; + Screen.OnActiveFormChange := OnActiveFormChange; + DragAcceptFiles(Handle, True); +end; + +procedure TMainForm.FormDestroy(Sender: TObject); +begin + Screen.OnActiveFormChange := nil; + WinHelp(Application.Handle, PChar(FWin32Help), HELP_QUIT, 0); + DragAcceptFiles(Handle, False); +end; + +procedure TMainForm.OnActiveFormChange(Sender: TObject); +begin + if IsPeDumpChildActive then + begin +// GroupImports1.Checked := TPeDumpChild(ActiveMDIChild).GroupImports; + StatusBar1.Panels[0].Text := TPeDumpChild(ActiveMDIChild).FileName; + end else + if IsPeResChildActive then + begin + StatusBar1.Panels[0].Text := TPeResViewChild(ActiveMDIChild).PeImage.FileName; + end else + if IsGenDefChildActive then + begin + StatusBar1.Panels[0].Text := TPeGenDefChild(ActiveMDIChild).FileName; + end else + StatusBar1.Panels[0].Text := ''; +end; + +procedure TMainForm.OpenFile(const FileName: TFileName; CheckIfOpen: Boolean); +var + EI: TJclPeImage; + I: Integer; +begin + if CheckIfOpen then + begin + for I := 0 to MDIChildCount - 1 do + if MDIChildren[I] is TPeDumpChild and (TPeDumpChild(MDIChildren[I]).FileName = FileName) then + begin + MDIChildren[I].BringToFront; + Exit; + end; + end; + Screen.Cursor := crHourGlass; + EI := TJclPeImage.Create; + try + try + EI.FileName := FileName; + TPeDumpChild.CreateEx(Self, EI); + except + EI.Free; + raise; + end; + finally + Screen.Cursor := crDefault; + end; +end; + +procedure TMainForm.InvokeHelp1Execute(Sender: TObject); +begin + InvokeWin32Help(TPeDumpChild(ActiveMDIChild).ActiveWin32Function); +end; + +procedure TMainForm.Save1Execute(Sender: TObject); +var + SL: TStrings; +begin + if IsPeResChildActive and TPeResViewChild(ActiveMDIChild).CanSaveResource then + TPeResViewChild(ActiveMDIChild).SaveResource + else + if IsGenDefChildActive then + TPeGenDefChild(ActiveMDIChild).SaveUnit + else + with SaveDialog do + begin + if IsPeDumpChildActive then + FileName := ChangeFileExt(TPeDumpChild(ActiveMDIChild).FileName, '.txt') + else + FileName := ''; + if Execute then + begin + SL := ActiveListViewToStrings; + try + SL.SaveToFile(FileName); + finally + SL.Free; + end; + end; + end; +end; + +function TMainForm.IsWin32Help: Boolean; +begin + Result := FWin32Help <> ''; +end; + +procedure TMainForm.InvokeWin32Help(const Name: string); +var + S: string; +begin + S := PeStripFunctionAW(Name); + WinHelp(Application.Handle, PChar(FWin32Help), HELP_KEY, DWORD(S)); +end; + +procedure TMainForm.OpenLibrary1Execute(Sender: TObject); +begin + if IsPeDumpChildActive then + OpenFile(TPeDumpChild(ActiveMDIChild).ActiveLibName, False) + else + OpenFile(TPeSearchChild(ActiveMDIChild).ActiveLibName, False); +end; + +procedure TMainForm.Copy1Update(Sender: TObject); +begin + TAction(Sender).Enabled := (Screen.ActiveControl is TListView) or + ((Screen.ActiveControl is TRichEdit) and ((Screen.ActiveControl as TRichEdit).SelLength > 0)); +end; + +procedure TMainForm.OpenLibrary1Update(Sender: TObject); +begin + OpenLibrary1.Enabled := + (IsPeDumpChildActive and (TPeDumpChild(ActiveMDIChild).ActiveLibName <> '')) or + (IsSearchChildActive and (TPeSearchChild(ActiveMDIChild).ActiveLibName <> '')); +end; + +function TMainForm.ActiveListViewToStrings: TStrings; +begin + Screen.Cursor := crHourGlass; + try + Result := TStringList.Create; + try + Result.Capacity := 256; + ListViewToStrings(Screen.ActiveControl as TListView, Result, True); + except + FreeAndNil(Result); + raise; + end; + finally + Screen.Cursor := crDefault; + end; +end; + +procedure TMainForm.Copy1Execute(Sender: TObject); +var + SL: TStrings; +begin + if Screen.ActiveControl is TRichEdit then + (Screen.ActiveControl as TRichEdit).CopyToClipboard + else + if Screen.ActiveControl is TListView then + begin + SL := ActiveListViewToStrings; + try + Clipboard.AsText := SL.Text; + finally + SL.Free; + end; + end; +end; + +procedure TMainForm.SelectAll1Execute(Sender: TObject); +begin + if Screen.ActiveControl is TRichEdit then + TRichEdit(Screen.ActiveControl).SelectAll + else + if Screen.ActiveControl is TListView then + ListViewSelectAll(TListView(Screen.ActiveControl)); +end; + +procedure TMainForm.GroupImports1Update(Sender: TObject); +begin + with TAction(Sender) do + begin + Enabled := IsPeDumpChildActive; + if Enabled then + Checked := TPeDumpChild(ActiveMDIChild).GroupImports + else + Checked := False; + end; +end; + +procedure TMainForm.GroupImports1Execute(Sender: TObject); +begin + with TPeDumpChild(ActiveMDIChild) do + begin + GroupImports := not GroupImports; + GroupImports1.Checked := GroupImports; + end; +end; + +procedure TMainForm.Search1Execute(Sender: TObject); +begin + TPeSearchChild.Create(Self); +end; + +function TMainForm.IsSearchChildActive: Boolean; +begin + Result := ActiveMDIChild is TPeSearchChild; +end; + +procedure TMainForm.ViewResources1Update(Sender: TObject); +begin + TAction(Sender).Enabled := IsPeDumpChildActive and + TPeDumpChild(ActiveMDIChild).HasDirectory[IMAGE_DIRECTORY_ENTRY_RESOURCE]; +end; + +procedure TMainForm.ViewResources1Execute(Sender: TObject); +var + F: TForm; +begin + with ActiveMDIChild as TPeDumpChild do + begin + F := FindPeResourceView(PeImage); + if F = nil then + TPeResViewChild.CreateEx(Self, PeImage) + else + F.BringToFront; + end; +end; + +function TMainForm.FindPeResourceView(APeImage: TJclPeImage): TForm; +var + I: Integer; +begin + Result := nil; + for I := 0 to MDIChildCount - 1 do + if (MDIChildren[I] is TPeResViewChild) and (TPeResViewChild(MDIChildren[I]).PeImage = APeImage) then + begin + Result := MDIChildren[I]; + Break; + end; +end; + +function TMainForm.IsPeResChildActive: Boolean; +begin + Result := ActiveMDIChild is TPeResViewChild; +end; + +procedure TMainForm.ViewResDetails1Update(Sender: TObject); +begin + with TAction(Sender) do + begin + Enabled := IsPeResChildActive; + if Enabled then + Checked := TPeResViewChild(ActiveMDIChild).ShowSpecialDirView + else + Checked := False; + end; +end; + +procedure TMainForm.ViewResDetails1Execute(Sender: TObject); +begin + with ViewResDetails1 do + begin + Checked := not Checked; + TPeResViewChild(ActiveMDIChild).ShowSpecialDirView := Checked; + end; +end; + +procedure TMainForm.ViewResHex1Update(Sender: TObject); +begin + with TAction(Sender) do + begin + Enabled := IsPeResChildActive; + if Enabled then + Checked := TPeResViewChild(ActiveMDIChild).ShowAsHexView + else + Checked := False; + end; +end; + +procedure TMainForm.ViewResHex1Execute(Sender: TObject); +begin + with ViewResHex1 do + begin + Checked := not Checked; + TPeResViewChild(ActiveMDIChild).ShowAsHexView := Checked; + end; +end; + +procedure TMainForm.Save1Update(Sender: TObject); +begin + TAction(Sender).Enabled := (Screen.ActiveControl is TListView) or + (IsPeResChildActive and TPeResViewChild(ActiveMDIChild).CanSaveResource) or + (IsGenDefChildActive and TPeGenDefChild(ActiveMDIChild).CanSave); +end; + +procedure TMainForm.About1Execute(Sender: TObject); +begin + ShowToolsAboutBox; +end; + +procedure TMainForm.SendMail1Execute(Sender: TObject); +begin + SendEmail; +end; + +procedure TMainForm.ShowUnitGen1Update(Sender: TObject); +begin + TAction(Sender).Enabled := IsPeDumpChildActive and + TPeDumpChild(ActiveMDIChild).HasDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT]; +end; + +procedure TMainForm.ShowUnitGen1Execute(Sender: TObject); +var + CurrFileName: TFileName; +begin + CurrFileName := (ActiveMDIChild as TPeDumpChild).FileName; + with TPeGenDefChild.Create(Self) do + FileName := CurrFileName; +end; + +function TMainForm.IsGenDefChildActive: Boolean; +begin + Result := ActiveMDIChild is TPeGenDefChild; +end; + +procedure TMainForm.FormShow(Sender: TObject); +begin + PostMessage(Handle, UM_CHECKPARAMSTR, 0, 0); +end; + +procedure TMainForm.UMCheckParamStr(var Message: TMessage); +var + I: Integer; + FileName: TFileName; +begin + for I := 1 to ParamCount do + begin + FileName := PathGetLongName(ParamStr(I)); + if (FileName <> '') and (FileName[1] <> '-') and (FileName[1] <> '/') then + OpenFile(FileName, False); + end; +end; + +procedure TMainForm.WMDropFiles(var Message: TWMDropFiles); +var + FilesCount, I: Integer; + FileName: array[0..MAX_PATH] of Char; +begin + FilesCount := DragQueryFile(Message.Drop, MAXDWORD, nil, 0); + for I := 0 to FilesCount - 1 do + begin + if (DragQueryFile(Message.Drop, I, @FileName, SizeOf(FileName)) > 0) and + IsValidPeFile(FileName) then + OpenFile(FileName, True); + end; + DragFinish(Message.Drop); + Message.Result := 0; + Application.BringToFront; +end; + +procedure TMainForm.UnmangleNames1Update(Sender: TObject); +begin + with TAction(Sender) do + begin + Enabled := IsPeDumpChildActive; + if Enabled then + Checked := TPeDumpChild(ActiveMDIChild).UnmangleNames + else + Checked := False; + end; +end; + +procedure TMainForm.UnmangleNames1Execute(Sender: TObject); +begin + with TPeDumpChild(ActiveMDIChild) do + begin + UnmangleNames := not UnmangleNames; + UnmangleNames1.Checked := UnmangleNames; + end; +end; + +procedure TMainForm.SelectAll1Update(Sender: TObject); +begin + TAction(Sender).Enabled := (Screen.ActiveControl is TListView) or + (Screen.ActiveControl is TRichEdit); +end; + +procedure TMainForm.Find1Update(Sender: TObject); +begin + TAction(Sender).Enabled := TFindTextForm.CanExecuteFind; +end; + +procedure TMainForm.Find1Execute(Sender: TObject); +begin + ShowFindDialog(Screen.ActiveControl as TListView); +end; + +procedure TMainForm.CoolBar1Resize(Sender: TObject); +begin + D4FixCoolBarResizePaint(Sender); +end; + +initialization + OleInitialize(nil); + +finalization + OleUninitialize; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/peviewer/PeViewer_TLB.pas b/official/2.1.1/examples/windows/delphitools/peviewer/PeViewer_TLB.pas new file mode 100644 index 0000000..0175573 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/peviewer/PeViewer_TLB.pas @@ -0,0 +1,117 @@ +unit PeViewer_TLB; + +// ************************************************************************ // +// WARNING +// ------- +// The types declared in this file were generated from data read from a +// Type Library. If this type library is explicitly or indirectly (via +// another type library referring to this type library) re-imported, or the +// 'Refresh' command of the Type Library Editor activated while editing the +// Type Library, the contents of this file will be regenerated and all +// manual modifications will be lost. +// ************************************************************************ // + +// PASTLWTR : $Revision: 1658 $ +// File generated on 4.6.2000 18:23:08 from Type Library described below. + +// ************************************************************************ // +// Type Lib: C:\Program Files\Borland\Delphi5\Projects\Tools\PeViewer\PeViewer.tlb (1) +// IID\LCID: {7DD35085-3A37-11D4-B06E-C61ABD372324}\0 +// Helpfile: +// DepndLst: +// (1) v2.0 stdole, (C:\WINDOWS\SYSTEM\StdOle2.Tlb) +// ************************************************************************ // + +{$I jcl.inc} + +{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. + +interface + +uses + Windows, ActiveX, Classes, Graphics, + {$IFDEF DELPHI5_UP} + OleServer, + {$ENDIF DELPHI5_UP} + OleCtrls, StdVCL; + +// *********************************************************************// +// GUIDS declared in the TypeLibrary. Following prefixes are used: +// Type Libraries : LIBID_xxxx +// CoClasses : CLASS_xxxx +// DISPInterfaces : DIID_xxxx +// Non-DISP interfaces: IID_xxxx +// *********************************************************************// +const + // TypeLibrary Major and minor versions + PeViewerMajorVersion = 1; + PeViewerMinorVersion = 0; + + LIBID_PeViewer: TGUID = '{7DD35085-3A37-11D4-B06E-C61ABD372324}'; + + IID_IPeViewerControl: TGUID = '{7DD35086-3A37-11D4-B06E-C61ABD372324}'; + CLASS_PeViewerControl: TGUID = '{7DD35088-3A37-11D4-B06E-C61ABD372324}'; +type + +// *********************************************************************// +// Forward declaration of types defined in TypeLibrary +// *********************************************************************// + IPeViewerControl = interface; + IPeViewerControlDisp = dispinterface; + +// *********************************************************************// +// Declaration of CoClasses defined in Type Library +// (NOTE: Here we map each CoClass to its Default Interface) +// *********************************************************************// + PeViewerControl = IPeViewerControl; + + +// *********************************************************************// +// Interface: IPeViewerControl +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {7DD35086-3A37-11D4-B06E-C61ABD372324} +// *********************************************************************// + IPeViewerControl = interface(IDispatch) + ['{7DD35086-3A37-11D4-B06E-C61ABD372324}'] + procedure OpenFile(const FileName: WideString); safecall; + procedure BringToFront; safecall; + end; + +// *********************************************************************// +// DispIntf: IPeViewerControlDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {7DD35086-3A37-11D4-B06E-C61ABD372324} +// *********************************************************************// + IPeViewerControlDisp = dispinterface + ['{7DD35086-3A37-11D4-B06E-C61ABD372324}'] + procedure OpenFile(const FileName: WideString); dispid 1; + procedure BringToFront; dispid 2; + end; + +// *********************************************************************// +// The Class CoPeViewerControl provides a Create and CreateRemote method to +// create instances of the default interface IPeViewerControl exposed by +// the CoClass PeViewerControl. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoPeViewerControl = class + class function Create: IPeViewerControl; + class function CreateRemote(const MachineName: string): IPeViewerControl; + end; + +implementation + +uses ComObj; + +class function CoPeViewerControl.Create: IPeViewerControl; +begin + Result := CreateComObject(CLASS_PeViewerControl) as IPeViewerControl; +end; + +class function CoPeViewerControl.CreateRemote(const MachineName: string): IPeViewerControl; +begin + Result := CreateRemoteComObject(MachineName, CLASS_PeViewerControl) as IPeViewerControl; +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/resfix/ResFix.dof b/official/2.1.1/examples/windows/delphitools/resfix/ResFix.dof new file mode 100644 index 0000000..559f470 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/resfix/ResFix.dof @@ -0,0 +1,137 @@ +[FileVersion] +Version=7.0 +[Compiler] +A=8 +B=0 +C=1 +D=1 +E=0 +F=0 +G=1 +H=1 +I=1 +J=0 +K=0 +L=1 +M=0 +N=1 +O=1 +P=1 +Q=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=1 +UnsafeCode=1 +UnsafeCast=1 +[Linker] +MapFile=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription= +[Directories] +OutputDir=..\..\..\..\bin +UnitOutputDir= +PackageDLLOutputDir= +PackageDCPOutputDir= +SearchPath=..\..\..\..\source\include;..\..\..\..\source\common;..\..\..\..\source\windows;..\..\..\..\source\vcl +Packages=vcl;rtl;Jcl +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication= +Launcher= +UseLauncher=0 +DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir= +[Version Info] +IncludeVerInfo=1 +AutoIncBuild=0 +MajorVer=0 +MinorVer=5 +Release=4 +Build=15 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=1033 +CodePage=1252 +[Version Info Keys] +CompanyName=Petr Vones +FileDescription=ResFix utility +FileVersion=0.5.4.15 +InternalName=RESFIX +LegalCopyright=(c) 2002 Petr Vones +LegalTrademarks= +OriginalFilename=RESFIX.EXE +ProductName=ResFix utility for Win95 +ProductVersion=0.5.4 +Comments= + diff --git a/official/2.1.1/examples/windows/delphitools/resfix/ResFix.dpr b/official/2.1.1/examples/windows/delphitools/resfix/ResFix.dpr new file mode 100644 index 0000000..c829783 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/resfix/ResFix.dpr @@ -0,0 +1,20 @@ +program ResFix; + +{$I jcl.inc} + +uses + Forms, + ResFixMain in 'ResFixMain.pas' {MainForm}, + About in '..\Common\About.pas' {AboutBox}, + ToolsUtils in '..\Common\ToolsUtils.pas', + ExceptDlg in '..\..\..\..\experts\debug\dialog\ExceptDlg.pas' {ExceptionDialog}; + +{$R *.RES} +{$R ..\..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.Title := 'ResFix'; + Application.CreateForm(TMainForm, MainForm); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/delphitools/resfix/ResFix.res b/official/2.1.1/examples/windows/delphitools/resfix/ResFix.res new file mode 100644 index 0000000000000000000000000000000000000000..ef1acfc479f99f346dd04f179ddd5546f3a459db GIT binary patch literal 1700 zcmd^8zfapx5dKUIQB+hiFhG}j=l~3nL7`HY(h7(ai2`y^%7!AE2Grn0X+Z7f|H~j{ z$A3fz2DWzWP}O{Q&&Cd*suK$*pWnN??|#1b0Kg%~v0-k<=z1cx7l^UcRxTIq6tuvN zLw-lLVAKJ99;N``hafNu|J;%Tj7B3GqzGAJv+!@~66Jl05=tyl6o#RyR52Ze=h3Aq zMxvO$Jf~3=Do2?diJjhR7gQ!2Z6b?FQU4{I+!>zEWByN4<`Hp^krOC>w?pDR?kZK8n#{x{)qSJw;&ny<#a(1rc;uf&_=eg^jKx~5i8Bi3;`(>K|` z5Ca^;M+Y^oU9=h5$7l2i_Y~uz%1+;qtE@pPdW~m{w@%Cn`e+gVon5ymwKd5uSBdMe z>K?6ad{upo)mgWBHdKG8`TN8lD^`G>TBM$DjB%>AE~O#!2(6%$i_;`}zzmtciwaiB zRq`@-LKPJ0BfSk3@3Y=+u4<3HHCS66`- + OnResize = CoolBar1Resize + object ToolBar1: TToolBar + Left = 9 + Top = 0 + Width = 408 + Height = 22 + AutoSize = True + Caption = 'ToolBar1' + EdgeBorders = [] + Flat = True + Images = ImageList1 + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + Action = Open1 + end + object ToolButton2: TToolButton + Left = 23 + Top = 0 + Width = 8 + Caption = 'ToolButton2' + ImageIndex = 2 + Style = tbsSeparator + end + object ToolButton3: TToolButton + Left = 31 + Top = 0 + Action = Description1 + end + end + end + object StatusBar: TStatusBar + Left = 0 + Top = 338 + Width = 425 + Height = 19 + Panels = < + item + Width = 90 + end + item + Width = 50 + end> + SimplePanel = False + end + object ResListView: TListView + Left = 0 + Top = 26 + Width = 425 + Height = 255 + Align = alClient + Columns = < + item + Caption = 'Resource type' + Width = 100 + end + item + Caption = 'Resource name' + Width = 100 + end + item + Alignment = taRightJustify + Caption = 'Size' + Width = 60 + end + item + Alignment = taRightJustify + Caption = 'Fixed size' + Width = 70 + end> + ColumnClick = False + HotTrackStyles = [] + ReadOnly = True + RowSelect = True + TabOrder = 2 + ViewStyle = vsReport + OnCustomDrawItem = ResListViewCustomDrawItem + end + object MainMenu1: TMainMenu + Images = ImageList1 + Left = 8 + Top = 248 + object File1: TMenuItem + Caption = 'File' + object Open2: TMenuItem + Action = Open1 + end + object N1: TMenuItem + Caption = '-' + end + object Exit2: TMenuItem + Action = Exit1 + end + end + object Help1: TMenuItem + Caption = 'Help' + object Descriptionofbug1: TMenuItem + Action = Description1 + end + object N2: TMenuItem + Caption = '-' + end + object Support1: TMenuItem + Action = SendMail1 + end + object About11: TMenuItem + Action = About1 + end + end + end + object ActionList1: TActionList + Images = ImageList1 + Left = 40 + Top = 248 + object Open1: TAction + Caption = 'Open ...' + Hint = 'Open a PE file' + ImageIndex = 1 + ShortCut = 16463 + OnExecute = Open1Execute + end + object Exit1: TAction + Caption = 'Exit' + ImageIndex = 0 + OnExecute = Exit1Execute + end + object About1: TAction + Caption = 'About ...' + Hint = 'About' + OnExecute = About1Execute + end + object Description1: TAction + Caption = 'More about the bug' + Hint = 'Learn more about the bug in MSDN article' + ImageIndex = 2 + OnExecute = Description1Execute + end + object SendMail1: TAction + Caption = 'Support' + ImageIndex = 21 + OnExecute = SendMail1Execute + end + end + object ImageList1: TImageList + Left = 72 + Top = 248 + Bitmap = { + 494C010116001800040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000006000000001002000000000000060 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000080000000000000000000FF + FF00008080000000000000000080000000000000000000000000000000000000 + 000000000000000000000000000000000000BFBFBF40FFFFFF40BFBFBF40FFFF + FF40BFBFBF40FFFFFF40BFBFBF40FFFFFF40BFBFBF40FFFFFF40BFBFBF400000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40BFBFBF40FFFFFF40BFBFBF40FFFF + FF40BFBFBF40FFFFFF40BFBFBF40FFFFFF40BFBFBF40FFFFFF40BFBFBF400000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF400000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFF0000000000000000000000000000000080000000000000000000FF + FF0000808000000000000000008000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBF0000000000FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF400000000000000000FFFFFFBFFFFF + FF00000000BFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFF0000000000000000000000000000000080000000000000000000FF + FF0000808000000000000000000000000000BFBFBFBFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF000000008000000000FFFFFF40FFFFFF40FFFFFF40FFFF + FF4000000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408080 + 80408080804080808040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF4000000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF408080 + 80408080804080808040FFFFFF40FFFFFF400000000000000000FFFFFFBFFFFF + FF00000000BFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFF0000000000000000000000000000000080000000000000000000FF + FF00008080000000000000000000000000000000000000000000000000000000 + 000000000000000000000000008000000000BFBFBF40FFFFFF40BFBFBF40FFFF + FF40BFBFBF40FFFFFF40BFBFBF40FFFFFF40BFBFBF40FFFFFF40BFBFBF400000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF40BFBFBF40FFFFFF40BFBFBF40FFFF + FF40BFBFBF40FFFFFF40BFBFBF40FFFFFF40BFBFBF40FFFFFF40BFBFBF400000 + 0040FFFFFF40FFFFFF40FFFFFF40FFFFFF400000000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000BFFFFF + FF00FFFFFF000000000000000000000000000000008000000000000000000080 + 8000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000008000000000FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF400000000000000000FFFFFFBFFFFF + FF00FFFFFF0000000000FFFFFFBFFFFFFF00FFFFFF0000000000FFFFFFBFFFFF + FF00FFFFFF000000000000000000000000000000008000000000000000000000 + 00007F7F7FBFBFBFBF0000000000000000000000000000000000000000000000 + 00007F7F7F00000000000000008000000000FFFFFF40FFFFFF40FFFFFF40FFFF + FF4000000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF4000000040FFFFFF40FFFFFF40FFFFFF40FFFF + FF4000000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40000000400000000000000000FFFFFFBFFFFF + FF00FFFFFF0000000000FFFFFFBFFFFFFF00FFFFFF0000000000FFFFFFBFFFFF + FF00FFFFFF0000000000000000000000000000000000000000007F7F7FBFBFBF + BF00BFBFBFBFBFBFBF00000000000000000000000000000000007F7F7F3F7F7F + 7F007F7F7F00000000000000008000000000FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4000000040FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4000000040FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF400000000000000000FFFFFFBFFFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00000000000000000000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF0000000000000000007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F00000000000000008000000000FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF400000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00000000BFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFF + FF00FFFFFF00000000000000000000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00000000BFBFBFBF000000003F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F00000000000000008000000000FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF4000000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF4000000040FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF4000000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40000000400000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00000000BFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFF + FF00FFFFFF00000000000000000000000000000000000000FF00BFBFBF000000 + FF00BFBFBFBFBFBFBF000000003F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F00000000000000008000000000FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4000000040FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4000000040FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF400000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFF000000000000000000000000000000FF000000FF000000FFBFBFBF + BF00BFBFBFBFBFBFBF000000003F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F00000000000000008000000000FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF40FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF4080000040FFFFFF40FFFFFF400000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000000000 + 000000000000000000000000000000000000000000000000FF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBF00000000007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F0000000080000000000000008000000000FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF4000000040FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF4000000040FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF400000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFF + FF00FFFFFF00000000000000000000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBFBFBFBFBF00BFBFBF0000000000000000000000 + 000000000080000000000000008000000000FFFFFF40FFFFFF40FFFFFF40FFFF + FF4000000040FFFFFF40FFFFFF4000000040FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF4000000040FFFFFF40FFFFFF4000000040FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4000000000000000000000FF000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF00000000BFFFFF + FF0000000000000000000000000000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBFBFBFBFBF000000003F7F7F7F00000000800000 + 000000000080000000000000008000000000FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40800000408000004080000040FFFFFF4080000040FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF408000004080000040800000400000000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF000000003F7F7F7F000000008000000000000000800000 + 000000000080000000000000008000000000FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4000000040FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF4000000040FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF400000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000008000000000000000000000 + 00000000003F7F7F7F0000000080000000000000008000000000000000800000 + 00000000008000000000000000800000000000000040FFFFFF40FFFFFF40FFFF + FF400000004000000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF400000004000000040FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFFFF40FFFF + FF40FFFFFF40FFFFFF40FFFFFF40FFFFFF400000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF000000000000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF0000000000000000000000000000000000000000 + 00000000003F7F7F7F0000000000000000000000003F7F7F7F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFF000000000000FFFF000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFF0000000000000000000000000000000000000000 + 0000000000000000FF000000FF000000000000FFFF0000FFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF3F7F7F + 7F007F7F7F3F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF3F7F7F + 7F007F7F7F3F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F0000000000FFFF0000000000000000000000000000000000000000 + 00000000FF000000FF000000FF000000000000FFFF0000FFFF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF0000000000000000000000000000000000000000 + FF000000FF000000FF000000FF000000000000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF00000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF0000000000000000003F7F7F7F000000FF000000 + FF000000FF000000FF000000FF000000000000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF3F7F7F7F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF00000000000000000000000000000000FF000000 + FF000000FF000000FF000000FF000000000000FFFF0000FFFF0000FFFF0000FF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF00000000000000000000000000000000FF000000 + FF000000FF000000FF000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF00000000000000000000000000000000FF000000 + FF000000FF000000FF000000000000FF0000000000BFFF000000FF0000BFFF00 + 0000FF0000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF0000000000000000003F7F7F7F000000FF000000 + FF000000FF000000000000FF000000FF000000FF000000000000FF0000BFFF00 + 0000FF00003F7F7F7F0000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF00000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF0000000000000000000000000000000000000000 + FF000000000000FF000000FF000000FF000000FF000000FF0000000000BFFF00 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF0000000000000000000000000000000000000000 + 000000FF000000FF000000FF000000FF000000FF000000FF000000FF00000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF000000000000FFFF000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F0000000000FFFF0000000000000000000000000000000000000000 + 00000000000000FF000000FF000000FF000000FF000000FF0000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFF0000000000FFFF000000000000FFFF000000000000FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFF0000000000FFFF0000000000000000000000000000000000000000 + 00000000003F7F7F7F0000000000000000000000003F7F7F7F00000000000000 + 0000000000000000000000000000000000000000000000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFF000000000000FFFF000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFF0000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF0000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF000000000000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF0000FFFF00BFFFFF + 0000FFFF00BFFFFF0000FFFF0000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000FFFFFF000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF0000FFFF0000FFFF0000000000000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + FF000000FF000000FF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFF0000FFFF0000FFFF000000000000000000000000 + 00007F7F7F007F7F7F007F7F7F00000000000000003F7F7F7F0000FFFF3F7F7F + 7F000000000000000000000000BFFFFFFF000000000000000000FFFFFF000000 + 0000000000BFFFFFFF000000000000000000FFFF0000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + FF000000FF000000FF0000000000FFFFFF00000000000000FF000000FF000000 + FF00000000007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F + 7F007F7F7F0000000000FFFFFF00000000000000000000FFFF0000FFFF0000FF + FF000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF000000000000000000FFFF00000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + FF000000FF000000FF0000000000FFFFFF00000000000000FF000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF00000000000000003F7F7F7F0000FFFF3F7F7F + 7F000000000000000000000000BFFFFFFF000000000000000000000000000000 + 0000FFFFFFBFFFFFFF000000000000000000FFFF000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF000000000000000000FFFF00000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF000000000000000000FFFFFF000000 + 000000000000000000000000000000000000FFFF000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF0000000000000000000000FF000000FF000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFFBFFFFFFF000000000000000000FFFF00000000000000FFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF0000000000FFFF0000FFFF0000FFFF + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000 + 00000000000000000000FFFFFF00FFFFFF0000000000FFFFFF007F7F7F007F7F + 7F00FFFFFF007F7F7F007F7F7F00FFFFFF007F7F7F00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 00000000000000000000000000BFFFFFFF00000000BFBFBFBF00FFFFFF000000 + 0000FFFFFF0000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFF0000FFFF0000FFFF + 00000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000000000000000000000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000000000FF000000FF000000 + FF000000000000000000000000BFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFF0000FFFF0000FFFF + 000000000000FFFF000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF007F7F7F007F7F + 7F00FFFFFF007F7F7F007F7F7F007F7F7F00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + 0000FFFF0000FFFF000000000000FFFF00000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF000000000000000000FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFF00000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF0000000000000000007F7F7F000000 + 00007F7F7F00000000007F7F7F00000000007F7F7F00000000007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFFF000000FF0000BFFF00 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF00000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF007F7F7F00000000007F7F7F000000 + 00007F7F7F00000000007F7F7F00000000007F7F7F00000000007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FF0000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF0000FFFF0000FFFF00000000000000 + 00000000000000000000000000000000000000000000FFFFFF00BFBFBF00FFFF + FF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFF + FF00BFBFBF00FFFFFF00BFBFBF00000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000808080008080800080808000000000000000 + 00000000000000000000000000000000000000000000BFBFBF00FFFFFF00BFBF + BF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBF + BF00FFFFFF000000FF00FFFFFF00000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00BFBFBF00FFFF + FF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFFFF00BFBFBF00FFFF + FF00BFBFBF00FFFFFF00BFBFBF00000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00800000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000000000000000000000000000FFFFFF0000000000FFFF + FF00000000000000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF008000000000000000000000000000000000000000000000000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF000000000000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000FFFFFF008000000000000000000000000000000080000000800000008000 + 00008000000080000000FFFFFF00800000008000000080000000800000008000 + 0000FFFFFF008000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF000000000000000000000000000000000000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 0000800000008000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000BFBFBF00FFFFFF0000000000FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000080000000800000008000000080000000800000008000 + 0000800000008000000080000000800000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF007F7F7F000000FF007F7F7F00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00800000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF000000FF000000FF000000FF0000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00800000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000000000000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF007F7F7F000000FF007F7F7F00FFFFFF0000FFFF00FFFF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00800000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F007F7F + 7F0000000000000000007F7F7F00000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00BFBFBF00000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF0000000000000000000000000000000000000000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 00008000000080000000800000008000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 00007F7F7F007F7F7F0000FFFF00000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF000000FF0000FFFF00FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000000000000000008000 + 0000FFFFFF00FFFFFF0080000000800000008000000080000000800000008000 + 00008000000080000000FFFFFF008000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 00007F7F7F0000FFFF0000FFFF00000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF0000000000FFFFFF0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF000000FF007F7F7F0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF00000000000000000000000000000000008000 + 0000FFFFFF00FFFFFF0080000000800000008000000080000000800000008000 + 00008000000080000000800000008000000000000000FFFFFF00000000000000 + 0000FFFFFF00000000000000000000000000FFFFFF0000000000000000000000 + 00000000FF0000000000000000007F7F7F000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF000000FF000000FF00FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00000000000000000000000000000000008000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF008000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + FF000000FF000000FF00000000000000000000000000FF000000FF000000FF00 + 0000FF000000FF00000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF000000000000000000FFFFFF0000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF000000FF000000FF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF00000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 00008000000000000000000000000000000000000000FFFFFF00000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF00000000000000FF000000 + FF000000FF000000FF000000FF00000000000000000000000000FF000000FF00 + 0000FF0000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF00FFFFFF0000FFFF00FFFF + FF007F7F7F007F7F7F0000FFFF00FFFFFF007F7F7F000000FF000000FF00FFFF + FF0000FFFF00FFFFFF0000FFFF00000000000000000080000000FFFFFF008000 + 000080000000800000008000000080000000800000008000000080000000FFFF + FF008000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF00000000000000000000000000FF00 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0000FFFF00FFFFFF0000FF + FF000000FF000000FF00FFFFFF0000FFFF007F7F7F000000FF000000FF0000FF + FF00FFFFFF0000FFFF00FFFFFF00000000000000000080000000FFFFFF008000 + 0000800000008000000080000000800000008000000080000000800000008000 + 00008000000000000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 000000000000000000007F7F7F0000FFFF007F7F7F0000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF0000FFFF00FFFF + FF000000FF000000FF007F7F7F00FFFFFF007F7F7F000000FF000000FF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000080000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00800000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000000000000000 + FF000000FF000000FF000000000000000000000000000000FF000000FF000000 + FF00000000000000000000FFFF0000FFFF0000FFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF000000FF000000FF000000FF000000FF000000FF00FFFFFF0000FF + FF00FFFFFF0000FFFF0000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000000000 + 00000000000000000000000000000000000000000000FFFFFF0000000000BFBF + BF00FFFFFF0000000000FFFFFF000000000000000000000000007F7F7F000000 + FF000000FF000000FF000000000000000000000000000000FF000000FF000000 + FF0000000000000000007F7F7F0000FFFF007F7F7F0000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF000000FF000000FF000000FF00FFFFFF0000FFFF00FFFF + FF0000FFFF000000000000000000000000000000000080000000800000008000 + 00008000000080000000800000008000000080000000FFFFFF00800000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000FF000000FF000000FF000000 + FF000000FF00000000000000000000000000000000000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000080000000800000008000 + 0000800000008000000080000000800000008000000080000000800000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F000000 + 00007F7F7F007F7F7F0000000000000000000000000000000000000000000000 + 7F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF000000 + 0000BFBFBF00BFBFBF0000000000000000000000000000000000000000000000 + 7F0000007F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF000000FF000000FF000000FF000000FF000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF00BFBF + BF00BFBFBF00BFBFBF0000000000000000000000000000000000000000000000 + 7F0000007F0000007F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000008080000080 + 8000008080000080800000808000008080000080800000808000008080000000 + 000000000000000000000000000000000000FF000000FF000000FF000000FF00 + 0000FF000000FF000000BFBFBF0000000000BFBFBF00FF000000FF000000FF00 + 0000FF000000FF000000FF000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000FFFF00000000000080 + 8000008080000080800000808000008080000080800000808000008080000080 + 8000000000000000000000000000000000000000000000000000BFBFBF00BFBF + BF00BFBFBF00BFBFBF00000000007F7F7F0000000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF0000FFFF000000 + 0000008080000080800000808000008080000080800000808000008080000080 + 80000080800000000000000000000000000000000000FFFFFF00000000007F7F + 7F007F7F7F0000000000FFFFFF007F7F7F00FFFFFF00000000007F7F7F007F7F + 7F0000000000FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00000000000080800000808000008080000080800000808000008080000080 + 8000008080000080800000000000000000007F7F7F0000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000007F7F7F000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007F7F7F0000000000FFFFFF000000 + 00000000000000000000FFFFFF007F7F7F00FFFFFF0000000000000000000000 + 0000FFFFFF00000000007F7F7F000000000000000000FFFFFF00000000000000 + 0000FFFFFF000000000000000000BFBFBF0000000000FF000000FF000000FF00 + 00000000FF00FF000000FF000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 000000000000000000000000000000000000000000007F7F7F0000000000FFFF + FF000000000000000000FFFFFF007F7F7F00FFFFFF000000000000000000FFFF + FF00000000007F7F7F00000000000000000000000000FFFFFF00000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF00000000000000FF000000 + FF000000FF000000FF000000FF00000000000000000000000000000000000000 + 7F0000007F0000007F0000FFFF000000000000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007F7F7F0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000007F7F7F00000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 7F00FFFF000000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF0000000000BFBF + BF00FFFFFF0000000000FFFFFF000000000000000000000000007F7F7F000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 7F00FFFF0000FFFF00000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000FF000000FF000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000600000000100010000000000000300000000000000000000 + 000000000000000000000000FFFFFF008003C3807F7F7F008003C3007F7F7F00 + 8003C2010000003F8003C0030000003F8003C003BFBFBF008003C003BFBFBF00 + 80030003BFBFBFBF80030003BFBFBFBF800300030000FF00800300030000FF00 + 80030003BFBFBF0080030007BFBFBF008003000F0000FF008007003F00000000 + 800F80FF00000000801FC3FF00000000FFFFFFFFFFFFBFFF00010001F83FBFFF + 000100011010B04900010001E00F807F1FF11FF1C007B07F1DF11FF18003B9FF + 1CF118318003BFFF1C7118318003B0491C3118318003807F1C7118318003B07F + 1CF11831C007B9FF1DF11FF1E00FBFFF1FF11FF13018048F00010001F83F07FF + 00010001FFFF07FF00010001FFFF9FFFFFFF8000FFE3FC01FFF88000FC418C01 + 20F8C00088000401007FE00000000401007CF00000000401003CF80000008C01 + 000FFC000000FC01000406000000FC01000C07000000040301FF018000000407 + E3FC01800000040FFFFC0060000007FFFFFFC06000010603FFF8C0600001FF07 + FFF8F044000DFF8FFFFFF07ED553FFDFFFFFFFFFFFFF800180038003C0070000 + 80038003BFEB00008003800300050000800380037E310000800380037E350000 + 8003800300060000800380037FEA0000800380038014E00780038003C00AE007 + 80038003E001E00780038003E007E00780038003F007E00F80038003F003E01F + FFFFFFFFF803E03FFFFFFFFFFFFFE07FFC00FE7FFFFFFC00FC00FE1FF83FFC00 + FC00FC07E00FFC00FC00FC01C007FC000000F8008003E0000000F8008003E000 + 000000000001E000000000000001E00700230001000180070001003200018007 + 0000003E000180070023003E8003801F0063003E8003801F00C3001DC007801F + 01070023E00F801F03FF003FF83FFFFFC007FFFFFFFFFF00C007FFFFFFFFFF00 + C007001FF83FFF00C007000F0001FF00C007000700010000C007000300010000 + C007000100010000C007000000010000C007001F80030023C007001F80030001 + C007001F80030000C0078FF1C1070023C007FFF9E38F0063C007FF75FFFF00C3 + C007FF8FFFFF0107C007FFFFFFFF03FF00000000000000000000000000000000 + 000000000000} + end + object OpenFileDialog: TOpenDialog + Filter = + 'PE Exe files (*.exe;*.dll;*.bpl)|*.exe;*.dll;*.bpl|All files (*.' + + '*)|*.*' + Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 104 + Top = 248 + end +end diff --git a/official/2.1.1/examples/windows/delphitools/resfix/ResFixMain.pas b/official/2.1.1/examples/windows/delphitools/resfix/ResFixMain.pas new file mode 100644 index 0000000..d825f2d --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/resfix/ResFixMain.pas @@ -0,0 +1,263 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is ResFixMain.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2006-05-30 00:02:45 +0200 (mar., 30 mai 2006) $ } +{ } +{**************************************************************************************************} + +unit ResFixMain; + +{$I jcl.inc} +{$IFDEF SUPPORTS_PLATFORM_WARNINGS} + {$WARN SYMBOL_PLATFORM OFF} +{$ENDIF SUPPORTS_PLATFORM_WARNINGS} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ComCtrls, ToolWin, ImgList, ActnList, Menus, JclPeImage, StdCtrls, + ExtCtrls; + +type + TMainForm = class(TForm) + CoolBar1: TCoolBar; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + MainMenu1: TMainMenu; + ActionList1: TActionList; + ImageList1: TImageList; + StatusBar: TStatusBar; + Open1: TAction; + Exit1: TAction; + About1: TAction; + File1: TMenuItem; + Open2: TMenuItem; + N1: TMenuItem; + Exit2: TMenuItem; + Help1: TMenuItem; + About11: TMenuItem; + Description1: TAction; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Descriptionofbug1: TMenuItem; + N2: TMenuItem; + OpenFileDialog: TOpenDialog; + ResListView: TListView; + Bevel1: TBevel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + MinResLabel: TLabel; + MaxResLabel: TLabel; + FactorLabel: TLabel; + SendMail1: TAction; + Support1: TMenuItem; + procedure Exit1Execute(Sender: TObject); + procedure Description1Execute(Sender: TObject); + procedure About1Execute(Sender: TObject); + procedure Open1Execute(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure ResListViewCustomDrawItem(Sender: TCustomListView; + Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); + procedure SendMail1Execute(Sender: TObject); + procedure CoolBar1Resize(Sender: TObject); + private + FPeImage: TJclPeImage; + procedure OpenFile(const FileName: TFileName); + procedure ProcessFile; + public + { Public declarations } + end; + +var + MainForm: TMainForm; + +implementation + +uses About, ToolsUtils, JclLogic, JclShell, JclSysUtils; + +{$R *.DFM} + +resourcestring + RsCheckApp = 'It is recommended to check the application. Would you like to start it ?'; + RsDescriptionURL = 'http://support.microsoft.com/support/kb/articles/Q182/8/19.asp'; + RsFixed = 'File was fixed'; + RsNoFixes = 'Not fixes needed'; + +type + TJclPeImageHack = class(TJclPeImage); + +{ TMainForm } + +procedure TMainForm.FormCreate(Sender: TObject); +begin + FPeImage := TJclPeImage.Create; + TJclPeImageHack(FPeImage).ReadOnlyAccess := False; +end; + +procedure TMainForm.FormDestroy(Sender: TObject); +begin + FreeAndNil(FPeImage); +end; + +procedure TMainForm.Exit1Execute(Sender: TObject); +begin + Close; +end; + +procedure TMainForm.Description1Execute(Sender: TObject); +begin + Win32Check(ShellExecEx(RsDescriptionURL)); +end; + +procedure TMainForm.About1Execute(Sender: TObject); +begin + ShowToolsAboutBox; +end; + +procedure TMainForm.Open1Execute(Sender: TObject); +begin + with OpenFileDialog do + begin + FileName := ''; + if Execute then OpenFile(FileName); + end; +end; + +procedure TMainForm.OpenFile(const FileName: TFileName); +begin + FPeImage.FileName := FileName; + StatusBar.Panels[0].Text := ''; + StatusBar.Panels[1].Text := FileName; + ProcessFile; +end; + +procedure TMainForm.ProcessFile; +var + MinResSize, MaxResSize: Integer; + ScalingFactor: Integer; + NeedFix, AnyFixes: Boolean; + FileName: TFileName; + + procedure ScanResources(List: TJclPeResourceList); + var + I, Size: Integer; + Item: TJclPeResourceItem; + begin + for I := 0 to List.Count - 1 do + begin + Item := List[I]; + if Item.IsDirectory then + ScanResources(Item.List) + else + begin + Size := Item.DataEntry^.Size; + MinResSize := Min(MinResSize, Size); + MaxResSize := Max(MaxResSize, Size); + with ResListView.Items.Add do + begin + Caption := Item.ResourceTypeStr; + Data := Item; + SubItems.Add(Item.ParentItem.Name); + SubItems.Add(Format('%u', [Size])); + SubItems.Add(''); + end; + end; + end; + end; + + procedure FixResources(List: TJclPeResourceList); + var + I, Size: Integer; + Item: TJclPeResourceItem; + begin + for I := 0 to List.Count - 1 do + begin + Item := List[I]; + if Item.IsDirectory then + FixResources(Item.List) + else + if Item.ResourceType in [rtCursor, rtIcon, rtCursorEntry, rtIconEntry] then + begin + Size := Item.DataEntry^.Size; + if (Size mod ScalingFactor <> 0) or (Size < ScalingFactor * 2) then + begin + Size := Max((Size div ScalingFactor + 1) * ScalingFactor, ScalingFactor * 2); + Item.DataEntry^.Size := Size; + AnyFixes := True; + ResListView.FindData(0, Item, True, False).SubItems[2] := Format('%u', [Size]); + end; + end; + end; + end; + +begin + MinResSize := MaxInt; + MaxResSize := 0; + FileName := FPeImage.FileName; + ResListView.Items.BeginUpdate; + try + ResListView.Items.Clear; + ScanResources(FPeImage.ResourceList); + + ScalingFactor := ((MaxResSize div 65536) div 2 + 1) * 2; + MinResLabel.Caption := Format('%d', [MinResSize]); + MaxResLabel.Caption := Format('%d', [MaxResSize]); + FactorLabel.Caption := Format('%d', [ScalingFactor]); + + NeedFix := (MaxResSize >= 65536) and (MinResSize mod ScalingFactor <> 0); + AnyFixes := False; + if NeedFix then FixResources(FPeImage.ResourceList); + FPeImage.FileName := ''; + ListViewFocusFirstItem(ResListView); + finally + ResListView.Items.EndUpdate; + end; + with StatusBar.Panels[0] do + if AnyFixes then + begin + Text := RsFixed; + if MessBox(RsCheckApp, MB_YESNO or MB_ICONQUESTION) = ID_YES then + ShellExecEx(FileName); + end else + Text := RsNoFixes; +end; + +procedure TMainForm.ResListViewCustomDrawItem(Sender: TCustomListView; + Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); +begin + if Item.SubItems[2] <> '' then + Sender.Canvas.Font.Color := clRed; +end; + +procedure TMainForm.SendMail1Execute(Sender: TObject); +begin + SendEmail; +end; + +procedure TMainForm.CoolBar1Resize(Sender: TObject); +begin + D4FixCoolBarResizePaint(Sender); +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/screenjpg/Main.dfm b/official/2.1.1/examples/windows/delphitools/screenjpg/Main.dfm new file mode 100644 index 0000000..071988c --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/screenjpg/Main.dfm @@ -0,0 +1,901 @@ +object MainForm: TMainForm + Left = 192 + Top = 107 + Width = 561 + Height = 447 + Caption = 'ScreenJPG' + Color = clBtnFace + Constraints.MinHeight = 200 + Constraints.MinWidth = 300 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Menu = MainMenu1 + OldCreateOrder = False + Position = poDefaultPosOnly + ShowHint = True + OnCloseQuery = FormCloseQuery + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object CoolBar1: TCoolBar + Left = 0 + Top = 0 + Width = 553 + Height = 26 + AutoSize = True + Bands = < + item + Control = ToolBar1 + ImageIndex = -1 + MinHeight = 22 + Width = 549 + end> + OnResize = CoolBar1Resize + object ToolBar1: TToolBar + Left = 9 + Top = 0 + Width = 536 + Height = 22 + AutoSize = True + Caption = 'ToolBar1' + EdgeBorders = [] + Flat = True + Images = ImageList1 + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + Action = OpenFile1 + end + object ToolButton3: TToolButton + Left = 23 + Top = 0 + Action = SaveFile1 + end + object ToolButton4: TToolButton + Left = 46 + Top = 0 + Width = 8 + Caption = 'ToolButton4' + ImageIndex = 1 + Style = tbsSeparator + end + object ToolButton5: TToolButton + Left = 54 + Top = 0 + Action = Paste1 + end + object ToolButton6: TToolButton + Left = 77 + Top = 0 + Width = 8 + Caption = 'ToolButton6' + ImageIndex = 2 + Style = tbsSeparator + end + object RatioComboBox: TComboBox + Left = 85 + Top = 0 + Width = 58 + Height = 21 + Hint = 'Quality' + TabStop = False + Style = csDropDownList + Color = clBtnFace + Ctl3D = True + DropDownCount = 10 + Enabled = False + ItemHeight = 13 + ParentCtl3D = False + TabOrder = 0 + OnChange = RatioComboBoxChange + end + object ColorComboBox: TComboBox + Left = 143 + Top = 0 + Width = 58 + Height = 21 + Hint = 'Color' + TabStop = False + Style = csDropDownList + Color = clBtnFace + Ctl3D = True + Enabled = False + ItemHeight = 13 + Items.Strings = ( + 'B/W' + 'Color') + ParentCtl3D = False + TabOrder = 1 + OnChange = RatioComboBoxChange + end + end + end + object StatusBar1: TStatusBar + Left = 0 + Top = 382 + Width = 553 + Height = 19 + Panels = < + item + Width = 120 + end + item + Width = 50 + end> + SimplePanel = False + end + object ScrollBox: TScrollBox + Left = 0 + Top = 26 + Width = 553 + Height = 356 + HorzScrollBar.Tracking = True + VertScrollBar.Tracking = True + Align = alClient + TabOrder = 2 + object Image1: TImage + Left = 0 + Top = 0 + Width = 549 + Height = 352 + Align = alClient + AutoSize = True + end + end + object MainMenu1: TMainMenu + Images = ImageList1 + Left = 8 + Top = 344 + object File1: TMenuItem + Caption = 'File' + object Open1: TMenuItem + Action = OpenFile1 + end + object SaveAs1: TMenuItem + Action = SaveFile1 + end + object N1: TMenuItem + Caption = '-' + end + object Exit2: TMenuItem + Action = Exit1 + end + end + object Edit1: TMenuItem + Caption = 'Edit' + object Paste11: TMenuItem + Action = Paste1 + end + end + object Help1: TMenuItem + Caption = 'Help' + object About2: TMenuItem + Action = About1 + end + end + end + object ImageList1: TImageList + Left = 40 + Top = 344 + Bitmap = { + 494C010111001300040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000005000000001002000000000000050 + 00000000000000000000000000000000000000000000000000007F7F7F007F7F + 7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F + 7F007F7F7F00FFFFFF00000000000000000010C0000040AF60004FEF6000408F + 70001F8060000FC0100040EF6F00904F7F009F6F600090EF6F00608F6F00102F + 600090CF2F00A04F70000F6F60005F2F6F0070EF60004FC01000B0AF6000908F + 70009F6F600090EF6F00608F6F00102F600090CF2F00A04F70000F6F60005F2F + 6F0070EF60004FA000000F8F6F004FEF600070EF000040206000606F4000602F + 6F002FCF6F00A00F0F00A02F600010EF4F00804F5000000F0000000F00000010 + 00000F0010008000000030204F000010000000000000000000007F7F7F007F7F + 7F0000000000FFFFFF0000000000000000000000000000000000000000000000 + 00007F7F7F00FFFFFF0000000000000000009F8F70000F8F7000AF6F7000102F + 6000902F300020804F002FCF6000A04F000000600000A0EF6F00806F0000F02F + 00002FE050004F8F6000A00F6F001F202F0010C0000040AF60004FEF6000408F + 700010601000300050000FCF6F002F8F6F009FCF0F000FA00000BF2F6F00208F + 7000404F0000900000000FA00000BF2F6F00208F7000404F0000900000000060 + 0F009F2F6F006F0F700060AF6000802F600070AF6000600F0F00000000005080 + 50009F6F600090EF6F00608F6F0010EF6F0000000000000000007F7F7F00FFFF + FF007F7F7F0000000000FFFFFF00000000000000000000000000000000000000 + 00007F7F7F00FFFFFF0000000000000000002FAF00001F8F7000606F3000202F + 0F003FA04000702F6000108F6F002F8F600040400F004F8F70002FAF6F0040AF + 60004FEF6000408F700010A00F005F0050000F4F70002FCF6F00A06F4000A08F + 6F009F80400040000F00A02F600010EF4F00908F60002F4F70001020000040E0 + 4F00706F4000402F600070EF60002FEF00009F4050000F8F70004FEF6F001FEF + 6F006F4F60007F4F40007F0F7F001F0F6F000FCF6F003FAF60006F204F00A0AF + 60006F6F700070605000A04F70004FCF6F0000000000000000007F7F7F00FFFF + FF00000000007F7F7F0000000000FFFFFF000000000000000000000000000000 + 00007F7F7F00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007F0F7F001F0F6F000FCF6F003FAF + 6000000000004F8050001FEF6F006F4F60007F4F40007F0F7F006F6040007F8F + 6F007F4F70001FEF6F006F4F60007F4F40007F0F7F0020804F002FCF6000A06F + 0000BF1000001F8050007F0F7000100000002FE050004F8F6000A00F6F001040 + 3F0030004F002F2F6F003F0F6F00A04F0000AFE00000A02F6000106F5000A0EF + 6F00800F0F002F605000A02F7F0060AF600000000000000000007F7F7F00FFFF + FF0000000000000000007F7F7F00FFFFFF000000000000000000000000000000 + 00007F7F7F00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F00FFFF + FF0000000000000000007F7F7F00FFFFFF000000000000000000000000000000 + 00007F7F7F00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F00FFFF + FF0000000000000000007F7F7F00FFFFFF000000000000000000000000000000 + 00007F7F7F00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F00FFFF + FF0000000000000000007F7F7F00FFFFFF000000000000000000000000000000 + 00007F7F7F00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F00FFFF + FF0000000000000000007F7F7F00FFFFFF000000000000000000000000000000 + 00007F7F7F00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F00FFFF + FF0000000000000000007F7F7F00FFFFFF00FFFFFF0000000000000000000000 + 00007F7F7F00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F00FFFF + FF0000000000000000007F7F7F007F7F7F000000000000000000000000000000 + 00007F7F7F00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F00FFFF + FF0000000000000000007F7F7F00FFFFFF000000000000000000000000000000 + 00007F7F7F00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F00FFFF + FF0000000000FFFFFF007F7F7F00FFFFFF000000000000000000000000000000 + 00007F7F7F00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F00FFFF + FF007F7F7F00FFFFFF007F7F7F00FFFFFF000000000000000000000000000000 + 00007F7F7F00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F00FFFF + FF007F7F7F007F7F7F007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF007F7F7F00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F007F7F + 7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F + 7F007F7F7F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080000000800000008000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008000000080000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000800000000000000000000000800000000000000000000000800000008000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000800000000000000000000000800000000000000080000000000000000000 + 0000800000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000800000000000000000000000800000000000000080000000000000000000 + 0000800000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000008000000080000000800000000000000080000000000000000000 + 0000800000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000800000000000000080000000800000008000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000800000000000000080000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000800000008000000080000000800000008000 + 0000800000008000000080000000800000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00800000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000080000000FFFFFF0000000000000000000000 + 00000000000000000000FFFFFF00800000000000000000000000000000000000 + 000000000000000000000000000000FFFF0000FFFF0000FFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00800000000000000000000000000000000000 + 0000000000000000000000000000808080008080800080808000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000080000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF0000000000000000000000 + 00000000000000000000FFFFFF00800000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000800000008000 + 0000800000008000000080000000000000000000000000000000000000000000 + 000080000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000FFFFFF000000 + 000000000000000000000000000080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00800000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000800000008000 + 0000800000008000000000000000000000000000000000000000000000000000 + 000000000000800000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF000000000000000000FFFF + FF00800000008000000080000000800000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000800000008000 + 0000800000000000000000000000000000000000000000000000000000000000 + 000000000000800000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000FFFFFF000000 + 000000000000000000000000000080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF0080000000FFFFFF008000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000800000008000 + 0000000000008000000000000000000000000000000000000000000000000000 + 000000000000800000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0080000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF00800000008000000000000000000000000000000000000000000000000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000800000000000 + 0000000000000000000080000000800000000000000000000000000000000000 + 000080000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000FFFFFF000000 + 000000000000FFFFFF0000000000800000008000000080000000800000008000 + 0000800000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000008000000080000000800000008000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000FFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF000000000000000000000000000000000000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000080000000800000008000000080000000800000008000 + 0000800000008000000080000000800000000000000000000000000000000000 + 7F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000008080000080 + 8000000000000000000000000000000000000000000000000000000000000000 + 0000000000000080800000000000000000000000000000000000000000000000 + 0000000000000000000080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00800000000000000000000000000000000000 + 7F0000007F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000008080000080 + 8000008080000080800000808000008080000080800000808000008080000000 + 0000000000000000000000000000000000000000000000000000008080000080 + 8000000000000000000000000000000000000000000000000000000000000000 + 0000000000000080800000000000000000000000000080808000008080008080 + 8000008080008080800080000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF00800000000000000000000000000000000000 + 7F0000007F0000007F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000FFFF00000000000080 + 8000008080000080800000808000008080000080800000808000008080000080 + 8000000000000000000000000000000000000000000000000000008080000080 + 8000000000000000000000000000000000000000000000000000000000000000 + 0000000000000080800000000000000000000000000000808000808080000080 + 8000808080000080800080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00800000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF0000FFFF000000 + 0000008080000080800000808000008080000080800000808000008080000080 + 8000008080000000000000000000000000000000000000000000008080000080 + 8000000000000000000000000000000000000000000000000000000000000000 + 0000000000000080800000000000000000000000000080808000008080008080 + 8000008080008080800080000000FFFFFF00000000000000000000000000FFFF + FF00800000008000000080000000800000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00000000000080800000808000008080000080800000808000008080000080 + 8000008080000080800000000000000000000000000000000000008080000080 + 8000008080000080800000808000008080000080800000808000008080000080 + 8000008080000080800000000000000000000000000000808000808080000080 + 8000808080000080800080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0080000000FFFFFF0080000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000008080000080 + 8000000000000000000000000000000000000000000000000000000000000000 + 0000008080000080800000000000000000000000000080808000008080008080 + 8000008080008080800080000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00800000008000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000 + 0000000000000000000000000000000000000000000000000000008080000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000080800000000000000000000000000000808000808080000080 + 8000808080000080800080000000800000008000000080000000800000008000 + 0000800000000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF000000000000000000000000000000000000000000FFFFFF0000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000008080000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000080800000000000000000000000000080808000008080008080 + 8000008080008080800000808000808080000080800080808000008080008080 + 8000008080000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000FFFF00FFFFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000008080000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000080800000000000000000000000000000808000808080000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000808080000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F0000FFFF000000000000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000008080000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000080800000000000000000000000000080808000808080000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000008080000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000008080000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000808000808080000080 + 80000000000000FFFF00000000000000000000FFFF0000000000808080000080 + 8000808080000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000008080000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF0000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F00FFFF000000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F00FFFF0000FFFF00000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000500000000100010000000000800200000000000000000000 + 000000000000000000000000FFFFFF00C00300780000E0FFCBF3000000000078 + C5F3000000000000CAF3000000001084CCF3000000000000CCF3108410840000 + CCF3008400000000CCF3000000000000CCF3000000000000CC73000000840000 + CCF3000000000000CCF3000000000000C8F3000000000000C0F3000000000000 + C003000000000000C007E0FFE0FFE0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFF8FFFC007C007C0078C03FFFFFFFFFFFF8FFFC03FF83FF807FFFF + FFFFFFFFFFFFFFFFC007C007C0078FFFFFFFFFFFFFFF8C03C03FF01FF8078FFF + FFFFFFFFFFFFFFFFC007C007C007FFFFFFFFFFFFFFFF8FFFC03FF83FF8078C03 + FFFFFFFFFFFF8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9FFFFFFFFFFFFFF + F6CFFFFFFFFFE00FF6B7FFFFFFFFFFFFF6B7F00F81FFF83FF8B7F8C7E3FFF39F + FE8FF8C7F1FFF39FFE3FF8C7F8FFF39FFF7FF80FFC7FF39FFE3FF8C7FE3FF39F + FEBFF8C7FF1FF39FFC9FF8C7FF8FF39FFDDFF00FFF03E10FFDDFFFFFFFFFFFFF + FDDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC007FFFFFFFF + FE00BFEBFFFFC007FE000005FFFFC007FE007E31FFFFC00780007E35FFF7C007 + 80000006C1F7C00780007FEAC3FBC00780008014C7FBC0078001C00ACBFBC007 + 8003E001DCF7C0078007E007FF0FC007807FF007FFFFC00F80FFF003FFFFC01F + 81FFF803FFFFC03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFC007FFFFC001FC00C007 + 001F80318000C007000F80310000C007000780310000C007000380010000C007 + 000180010001C007000080010003C007001F8FF10003C007001F8FF10003C007 + 001F8FF10003C0078FF18FF10FC3C007FFF98FF10003C007FF758FF58007C007 + FF8F8001F87FC007FFFFFFFFFFFFC00700000000000000000000000000000000 + 000000000000} + end + object ActionList1: TActionList + Images = ImageList1 + Left = 72 + Top = 344 + object OpenFile1: TAction + Caption = 'Open ...' + Hint = 'Open a file' + ImageIndex = 0 + ShortCut = 16463 + OnExecute = OpenFile1Execute + end + object Exit1: TAction + Caption = 'Exit' + ImageIndex = 3 + OnExecute = Exit1Execute + end + object SaveFile1: TAction + Caption = 'Save As ...' + ImageIndex = 1 + ShortCut = 16467 + OnExecute = SaveFile1Execute + OnUpdate = SaveFile1Update + end + object Paste1: TAction + Caption = 'Paste picture' + Hint = 'Paste picture' + ImageIndex = 2 + ShortCut = 16470 + OnExecute = Paste1Execute + OnUpdate = Paste1Update + end + object About1: TAction + Caption = 'About...' + OnExecute = About1Execute + end + end + object SaveDialog1: TSaveDialog + DefaultExt = 'jpeg' + Filter = 'JPEG images|*.jpg;*.jpeg' + Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing] + Left = 138 + Top = 348 + end + object OpenDialog1: TOpenPictureDialog + Filter = 'Bitmaps (*.bmp)|*.bmp||*.emf' + Left = 106 + Top = 348 + end +end diff --git a/official/2.1.1/examples/windows/delphitools/screenjpg/Main.pas b/official/2.1.1/examples/windows/delphitools/screenjpg/Main.pas new file mode 100644 index 0000000..bb8532c --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/screenjpg/Main.pas @@ -0,0 +1,285 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is Main.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2006-05-30 00:02:45 +0200 (mar., 30 mai 2006) $ } +{ } +{**************************************************************************************************} + +unit Main; + +{$I JCL.INC} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ComCtrls, ToolWin, ActnList, ImgList, Menus, ExtCtrls, StdCtrls, Jpeg, + ClipBrd, ExtDlgs; + +type + TMainForm = class(TForm) + CoolBar1: TCoolBar; + ToolBar1: TToolBar; + StatusBar1: TStatusBar; + MainMenu1: TMainMenu; + ImageList1: TImageList; + ActionList1: TActionList; + OpenFile1: TAction; + Exit1: TAction; + File1: TMenuItem; + Open1: TMenuItem; + N1: TMenuItem; + Exit2: TMenuItem; + ToolButton1: TToolButton; + ScrollBox: TScrollBox; + Image1: TImage; + RatioComboBox: TComboBox; + SaveFile1: TAction; + SaveAs1: TMenuItem; + ToolButton3: TToolButton; + SaveDialog1: TSaveDialog; + ColorComboBox: TComboBox; + Paste1: TAction; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + Edit1: TMenuItem; + Paste11: TMenuItem; + Help1: TMenuItem; + OpenDialog1: TOpenPictureDialog; + About1: TAction; + About2: TMenuItem; + procedure Exit1Execute(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure OpenFile1Execute(Sender: TObject); + procedure RatioComboBoxChange(Sender: TObject); + procedure SaveFile1Execute(Sender: TObject); + procedure Paste1Execute(Sender: TObject); + procedure Paste1Update(Sender: TObject); + procedure SaveFile1Update(Sender: TObject); + procedure About1Execute(Sender: TObject); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure CoolBar1Resize(Sender: TObject); + private + FJpegImage: TJPEGImage; + FFileName: TFileName; + FModified: Boolean; + FOriginalPicture: TPicture; + procedure CompressPicture; + procedure FillCombos; + procedure EnableCombos; + public + function CheckSaved: Boolean; + procedure OpenFile; + function SaveFile: Boolean; + procedure UpdatePicture; + property Modified: Boolean read FModified; + end; + +var + MainForm: TMainForm; + +implementation + +{$R *.DFM} + +uses + ToolsUtils, JclSysUtils; + +resourcestring + RsSaveImage = 'Save current image ?'; + RsJpegSize = 'JPEG Size: %.0n'; + +function TMainForm.CheckSaved: Boolean; +begin + Result := not Modified; + if not Result then + case MessBox(RsSaveImage, MB_ICONEXCLAMATION or MB_YESNOCANCEL) of + ID_YES: Result := SaveFile; + ID_NO: Result := True; + else + Result := False; + end; +end; + +procedure TMainForm.CompressPicture; +var + Ratio: Integer; +begin + with RatioComboBox do Ratio := Integer(Items.Objects[ItemIndex]); + FJpegImage.Grayscale := (ColorComboBox.ItemIndex = 0); + FJpegImage.CompressionQuality := Ratio; + FJpegImage.Assign(FOriginalPicture.Graphic); +end; + +procedure TMainForm.EnableCombos; +begin + RatioComboBox.Enabled := True; + RatioComboBox.Color := clWindow; + ColorComboBox.Enabled := True; + ColorComboBox.Color := clWindow; +end; + +procedure TMainForm.Exit1Execute(Sender: TObject); +begin + Close; +end; + +procedure TMainForm.OpenFile; +begin + if CheckSaved then + begin + with OpenDialog1 do + begin + FileName := ''; + if Execute then + begin + FFileName := FileName; + FOriginalPicture.LoadFromFile(FileName); + UpdatePicture; + end; + end; + end; +end; + +procedure TMainForm.FormCreate(Sender: TObject); +begin + FJpegImage := TJPEGImage.Create; + FOriginalPicture := TPicture.Create; + Image1.Align := alNone; + FillCombos; +end; + +procedure TMainForm.FormDestroy(Sender: TObject); +begin + FreeAndNil(FOriginalPicture); + FreeAndNil(FJpegImage); +end; + +procedure TMainForm.UpdatePicture; +var + MemStream : TMemoryStream; +begin + Screen.Cursor := crHourGlass; + try + EnableCombos; + CompressPicture; + MemStream := TMemoryStream.Create; + try + FJpegImage.SaveToStream(MemStream); + StatusBar1.Panels[0].Text := Format(RsJpegSize, [IntToExtended(MemStream.Size)]); + MemStream.Position := 0; + FJpegImage.LoadFromStream(MemStream); + Image1.Picture.Assign(FJpegImage); + Image1.Update; + finally + MemStream.Free; + end; + finally + Screen.Cursor := crDefault; + end; +end; + +procedure TMainForm.OpenFile1Execute(Sender: TObject); +begin + OpenFile; +end; + +procedure TMainForm.FillCombos; +const + QualityTable: array [0..10] of TJPEGQualityRange = + (10, 20, 30, 40, 50, 60, 70, 80, 90, 95, 100); +var + I: Integer; +begin + with RatioComboBox do + begin + for I := Low(QualityTable) to High(QualityTable) do + Items.AddObject(Format('%d%%', [QualityTable[I]]), Pointer(QualityTable[I])); + ItemIndex := 8; + end; + ColorComboBox.ItemIndex := 1; +end; + +procedure TMainForm.RatioComboBoxChange(Sender: TObject); +begin + UpdatePicture; + FModified := True; +end; + +procedure TMainForm.SaveFile1Execute(Sender: TObject); +begin + SaveFile; +end; + +procedure TMainForm.Paste1Execute(Sender: TObject); +begin + if CheckSaved then + begin + FOriginalPicture.Assign(Clipboard); + FFileName := ''; + UpdatePicture; + FModified := True; + end; +end; + +procedure TMainForm.Paste1Update(Sender: TObject); +begin + Paste1.Enabled := Clipboard.HasFormat(CF_BITMAP); +end; + +procedure TMainForm.SaveFile1Update(Sender: TObject); +begin + SaveFile1.Enabled := Assigned(Image1.Picture.Graphic); +end; + +function TMainForm.SaveFile: Boolean; +begin + Result := False; + with SaveDialog1 do + begin + FileName := ChangeFileExt(FFileName, '.jpeg'); + if Execute then + begin + FJpegImage.SaveToFile(FileName); + Result := True; + FModified := False; + end; + end; +end; + +procedure TMainForm.About1Execute(Sender: TObject); +begin + ShowToolsAboutBox; +end; + +procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +begin + CanClose := CheckSaved; +end; + +procedure TMainForm.CoolBar1Resize(Sender: TObject); +begin + D4FixCoolBarResizePaint(Sender); +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/screenjpg/ScreenJPG.dof b/official/2.1.1/examples/windows/delphitools/screenjpg/ScreenJPG.dof new file mode 100644 index 0000000..8f9e4b1 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/screenjpg/ScreenJPG.dof @@ -0,0 +1,134 @@ +[FileVersion] +Version=7.0 +[Compiler] +A=8 +B=0 +C=1 +D=1 +E=0 +F=0 +G=1 +H=1 +I=1 +J=0 +K=0 +L=1 +M=0 +N=1 +O=1 +P=1 +Q=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=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription= +[Directories] +OutputDir=..\..\..\..\bin +UnitOutputDir= +PackageDLLOutputDir= +PackageDCPOutputDir= +SearchPath=..\..\..\..\source\include;..\..\..\..\source\common;..\..\..\..\source\windows;..\..\..\..\source\vcl +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication= +Launcher= +UseLauncher=0 +DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir= +[Version Info] +IncludeVerInfo=1 +AutoIncBuild=0 +MajorVer=0 +MinorVer=5 +Release=4 +Build=3 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=1033 +CodePage=1252 +[Version Info Keys] +CompanyName=Petr Vones +FileDescription=Screen to JPEG convertor +FileVersion=0.5.4.3 +InternalName=PEVIEWER +LegalCopyright=(c) 2002 Petr Vones +LegalTrademarks= +OriginalFilename=SCREENJPG.EXE +ProductName=Screen to JPEG convertor +ProductVersion=0.5.4 diff --git a/official/2.1.1/examples/windows/delphitools/screenjpg/ScreenJPG.dpr b/official/2.1.1/examples/windows/delphitools/screenjpg/ScreenJPG.dpr new file mode 100644 index 0000000..ef7a5f8 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/screenjpg/ScreenJPG.dpr @@ -0,0 +1,20 @@ +program ScreenJPG; + +{$I jcl.inc} + +uses + Forms, + Main in 'Main.pas' {MainForm}, + About in '..\Common\About.pas' {AboutBox}, + ToolsUtils in '..\Common\ToolsUtils.pas', + ExceptDlg in '..\..\..\..\experts\debug\dialog\ExceptDlg.pas' {ExceptionDialog}; + +{$R *.RES} +{$R ..\..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.Title := 'ScreenJPG'; + Application.CreateForm(TMainForm, MainForm); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/delphitools/screenjpg/ScreenJPG.res b/official/2.1.1/examples/windows/delphitools/screenjpg/ScreenJPG.res new file mode 100644 index 0000000000000000000000000000000000000000..0a04ff159d338f0cde01081cd55830003164c4f2 GIT binary patch literal 1696 zcmd^;y>1gx5QUHNh7b`27jCH7f+A2LD;OlI1SL)s6o_RbgJ>cv7!%>xmSd3U{9X={ z`|LwdP|!h1fiU09df7EefhcGgd-mR$Id^`}?v^V|lK5*hiWi=2(UB&T2?1-umTA23jQcX@d5LB+i$u|QJa(5mmZR}$ zbmoqUIhM~(3A)4WD77PtbK2vEO6}M?vn}MPKeFT6DW1b~=l@HaR|JdBU(5!Macak$ zxNVqJ?92Ert$&kle3h=5ev}sfl@=wH(CKtVkM&TydV+3hpEZ%}y|CMmQy3QfR@g1d zshHR7t`#zOX(33?7xQJd4b^qPv!WWiU9WK9^|slYdmC&zi_Xi? z?_^y=4RoZg+S+FAs72X?$sO!@#V(}Q(%UsuVu3FcURHNn4U>Lympi&R-H zZ%EfYqAi`c|Anq|E~&HS{zI?d2Y=*P1J-5U7QZezhWJB0QkCjE><%6Gj_AN+1J7O3 zl}zr2M^7?2OS+?bXc@iBi8U>Ow^@gd?b3fIGlf-a5U=PNTJsuvDspBIeB05+K%d!- z!M0wLNm`}9TXeYwUnQO)eP6`JZ8BwZJta$1FTozO4)kWmnHApB3fTQw9eZ2WYr>;h zG4plaNsVqR%wc@(Fl$B6QQSp=a 0 then + begin + Priority := GetPriorityClass(Handle); + CloseHandle(Handle); + end else Priority := 0; + I := PriorityRadioGroup.Items.IndexOfObject(Pointer(Priority)); + if I = -1 then I := 1; + PriorityRadioGroup.ItemIndex := I; +end; + +procedure TChangePriorityDlg.FormCreate(Sender: TObject); +begin + with PriorityRadioGroup.Items do + begin + BeginUpdate; + AddObject('&Idle', Pointer(IDLE_PRIORITY_CLASS)); + AddObject('&Normal', Pointer(NORMAL_PRIORITY_CLASS)); + AddObject('&High', Pointer(HIGH_PRIORITY_CLASS)); + AddObject('&Realtime', Pointer(REALTIME_PRIORITY_CLASS)); + EndUpdate; + end; +end; + +procedure TChangePriorityDlg.OKBtnClick(Sender: TObject); +var + Handle: THandle; + Priority: DWORD; + Res: Boolean; +begin + with PriorityRadioGroup do Priority := DWORD(Items.Objects[ItemIndex]); + Handle := OpenProcess(PROCESS_ALL_ACCESS{PROCESS_SET_INFORMATION}, False, FProcessID); + if Handle <> 0 then + begin + Res := SetPriorityClass(Handle, Priority); + CloseHandle(Handle); + end else Res := False; + if Res then + ModalResult := mrOk + else + MessBox(sCantChange, MB_ICONERROR); +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/Global.dfm b/official/2.1.1/examples/windows/delphitools/toolhelpview/Global.dfm new file mode 100644 index 0000000..7933378 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/toolhelpview/Global.dfm @@ -0,0 +1,1081 @@ +object GlobalModule: TGlobalModule + OldCreateOrder = False + OnCreate = DataModuleCreate + Left = 240 + Top = 203 + Height = 324 + Width = 481 + object ToolbarImagesList: TImageList + ShareImages = True + Left = 112 + Top = 8 + Bitmap = { + 494C01011A001D00040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000008000000001002000000000000080 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFFFF00000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF000000003F7F7F7F0000000000000000000000000000000000000000000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + FF00FFFFFFFFFFFFFFFFFFFFFFF7F8EBC9CD72A0A7099DA4009DA4009DA4009D + A4009DA4009DA4009DA4009DA4009DA4009DA4009DA4009DA4009DA4009DA400 + 9DA4009DA4009DA400A3A90FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF000000FF00000000000000 + 00000000000000000000000000000000000000FFFF0000FFFF0000FFFF000000 + 0000FFFFFF00000000000000000000000000000000BFFFFFFF00000000BFFFFF + FF000000000000FFFF0000FFFF00000000000000000000000000000000000000 + FF00000000000000FF007F7F7F00000000000000003F7F7F7F000000FF000000 + 00000000FF00000000000000000000000000000000BFBFBFBF007F7F7FBFFFFF + FF00000000000000000000FF0000008000000080000000000000000000BFFFFF + FF007F7F7F3F7F7F7F00000000000000000000000000000000000000003F7F7F + 7F00000000000000FF0000000000000000000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000000000FFFF0000FFFF000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF000000FF00000000000000 + 000000000000000000000000000000000000000000BFBFBFBF000000000000FF + 00000000000000FF00000080000000FF000000800000008000000000000000FF + 00000000003F7F7F7F0000000000000000000000000000000000000000000000 + 00007F7F7F00000000000000FF000000FF000000FF000000FF000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000000000BFFFFFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFFFFFFF00000000BFFFFF + FF000000000000FF000000FF000000FF000000FF000000800000000000BFFFFF + FF000000003F7F7F7F0000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF000000FF000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFFFFFFF000000000000FF + 0000000000BFFFFFFF0000FF000000FF00000080000000FF00000000000000FF + 0000000000BFBFBFBF0000000000000000000000000000000000000000000000 + 0000000000000000FF000000FF000000FF000000FF000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000BFBFBFBFFFFFFF00000000BFFFFFFF000000000000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000BFBFBFBF00BFBFBF3F7F7F7F007F7F7F3F7F7F7F00000000000000 + 000000000000000000000000000000000000000000BFFFFFFF007F7F7FBFFFFF + FF000000000000000000FFFFFFBFFFFFFF0000FF000000000000000000BFFFFF + FF007F7F7FBFBFBFBF00000000000000000000000000000000000000003F7F7F + 7F0000000000000000000000FF000000FF0000000000000000000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF0000000000000000000000000000FF + FF0000FFFF000000000000000000000000000000000000000000000000BFBFBF + BF00BFBFBF3F7F7F7F0000000000000000000000003F7F7F7F007F7F7F3F7F7F + 7F00000000000000000000000000000000000000000000000000BFBFBF000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 0000BFBFBF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FF00000000000000000000000000000000000000000000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000000000000000000000000000000000BFBFBFBFBFBF + BF00000000BFFFFFFF000000FFBFFFFFFF000000FFBFFFFFFF000000003F7F7F + 7F007F7F7F000000000000000000000000000000000000000000FFFFFFBFBFBF + BF00000000BFFFFFFF0000FF00BFFFFFFF0000FF00BFFFFFFF00000000BFBFBF + BF00BFBFBF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF0000FFFF000000 + 000000000000000000000000000000FFFF0000FFFF0000000000000000000000 + 00000000000000FFFF0000FFFF00000000000000000000000000BFBFBF000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 00007F7F7F000000000000000000000000000000000000000000000000BFFFFF + FF00BFBFBF3F7F7F7F0000000000000000000000003F7F7F7F00BFBFBFBFBFBF + BF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF0000000000000000000000 + 000000000000000000000000000000FFFF000000000000000000000000000000 + 000000000000000000000000000000FFFF00000000BFBFBFBF007F7F7FBFFFFF + FF0000000000000000000000FF00000080000000800000000000000000BFFFFF + FF007F7F7F3F7F7F7F0000000000000000000000000000000000000000000000 + 0000000000BFFFFFFF00FFFFFFBFFFFFFF00BFBFBFBFBFBFBF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000080000000000000000000FF + FF00008080000000000000000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000008000000000000000800000 + 0000000000800000000000000080000000000000008000000000000000800000 + 0000000000800000000000000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000080000000000000000000FF + FF0000808000000000000000008000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBF00000000000000008000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000800000 + 0000000000800000000000000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000008000000000000000800000 + 00000000008000000000000000800000000000000080000000000000000000FF + FF0000808000000000000000000000000000BFBFBFBFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF0000000080000000000000008000000000000000000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF00000000000000 + 0000000000800000000000000080000000007F7F7F3F7F7F7F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000008000000000000000800000 + 00000000008000000000000000000000000000000080000000000000000000FF + FF00008080000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000800000000000000000000000000000FF000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF00000000000000 + 8000000000800000000000000080000000000000003F7F7F7F007F7F7F3F7F7F + 7F00000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF0000000000FFFFFF000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 00000000000000000000FFFF00BFFFFF00000000008000000000000000000080 + 8000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000080000000000000000000000000000080000000 + 8000000080000000800000008000000080000000800000008000000000000000 + 8000000080000000000000000080000000000000FFBFFFFFFF000000003F7F7F + 7F007F7F7F00000000000000000000000000000000000000000000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000FF000000FF000000 + FF000000003F7F7F7F007F7F7F3F7F7F7F000000008000000000000000000000 + 00007F7F7FBFBFBFBF0000000000000000000000000000000000000000000000 + 00007F7F7F000000000000000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000080000000800000000080000000000000000000000000FFFFFF000000 + 00007F7F7F0000000000000000000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF0000000000000000000000FF000000FF000000 + FF000000FF0000000000000000000000000000000000000000007F7F7FBFBFBF + BF00BFBFBFBFBFBFBF00000000000000000000000000000000007F7F7F3F7F7F + 7F007F7F7F0000000000000000800000000000000000000000007F7F7F000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFF + FF00000000000000800000008000000000000000003F7F7F7F00BFBFBFBFBFBF + BF007F7F7F3F7F7F7F00000000000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF0000000000000000007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F000000000000000080000000000000008000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFF + FF00FFFFFF00000000000000800000000000BFBFBFBFBFBFBF00000000000000 + 00000000000000000000000000000000000000000000FFFFFF0000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F000000 + 00007F7F7F00000000007F7F7F0000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00000000BFBFBFBF000000003F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F000000000000000080000000000000008000000000000000000000 + 0000FFFFFFBFFFFFFF007F7F7F00000000000000000000000000000000BFBFBF + BF00BFBFBFBFFFFFFF0000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007F7F7F00000000007F7F7F000000 + 00007F7F7F00000000007F7F7F0000000000000000000000FF00BFBFBF000000 + FF00BFBFBFBFBFBFBF000000003F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F000000000000000080000000000000008000000000000000800000 + 00000000000000000000000000BFBFBFBF00BFBFBFBFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFFFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000008000000000000000800000 + 0000000000800000000000000080000000000000FF000000FF000000FFBFBFBF + BF00BFBFBFBFBFBFBF000000003F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F000000000000000080000000000000008000000000000000800000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000BFFFFFFF000000008000000000000000000000000000000000007F + 7F00007F7F00007F7F00007F7F00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000FF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBF00000000007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F00000000800000000000000080000000000000008000000000000000800000 + 00000000000000000000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00000000BFFFFFFF000000008000000000BFBFBF00BFBFBF0000000000007F + 7F0000FFFF00007F7F0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF0000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBFBFBFBFBF00BFBFBF0000000000000000000000 + 0000000000800000000000000080000000000000008000000000000000800000 + 00000000000000000000FFFFFF00000000000000000000000000FFFFFFBFFFFF + FF000000000000000000000000800000000000000000000000000000000000FF + FF00007F7F0000FFFF00007F7F00000000000000000000000000000000000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF0000000000000000BFBFBFBF00BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF00BFBFBFBFBFBFBF000000003F7F7F7F00000000800000 + 0000000000800000000000000080000000000000008000000000000000800000 + 00000000000000000000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF00000000800000000000000080000000007F7F7F007F7F7F000000000000FF + FF0000FFFF00007F7F0000FFFF000000000000000000000000000000FF000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF00000000000000 + 7F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF00000000000000000000000000BFBFBFBFBFBF + BF00BFBFBFBFBFBFBF000000003F7F7F7F000000008000000000000000800000 + 0000000000800000000000000080000000000000008000000000000000800000 + 00000000000000000000FFFFFFBFFFFFFF007F7F7F0000000000000000000000 + 0000000000800000000000000080000000007F7F7F007F7F7F000000000000FF + FF0000FFFF0000FFFF00007F7F0000000000000000000000000000007F000000 + 7F0000007F0000007F0000007F0000007F0000007F0000007F00000000000000 + 7F0000007F000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00000000000000008000000000000000000000 + 00000000003F7F7F7F0000000080000000000000008000000000000000800000 + 0000000000800000000000000080000000000000008000000000000000800000 + 0000000000800000000000000000000000000000008000000000000000800000 + 00000000008000000000000000800000000000000000000000000000000000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000007F0000007F0000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF0000000000000000000000 + 000000000000000000000000000000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF0000FFFF000000 + 00007F7F7F3F7F7F7F007F7F7F0000FFFF0000FFFF3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F0000FFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000BFBFBFBF00BFBFBF3F7F7F7F007F7F7F3F7F7F7F00000000000000 + 0000000000000000000000000000000000000000003F7F7F7F000000003F7F7F + 7F00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000BFBFBF + BF00BFBFBF3F7F7F7F0000000000000000000000003F7F7F7F007F7F7F3F7F7F + 7F000000000000000000000000000000000000000000000000000000FF000000 + 00007F7F7F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF000000003F7F7F7F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBFBFBFBF + BF00000000BFFFFFFF0000FF00BFFFFFFF0000FF00BFFFFFFF000000003F7F7F + 7F007F7F7F000000000000000000000000000000003F7F7F7F00000000000000 + FF000000003F7F7F7F0000000000000000000000003F7F7F7F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF000000003F7F7F7F0000000000000000007F7F7F0000000000000000000000 + 00000000003F7F7F7F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 00007F7F7F0000000000000000000000000000000000000000007F7F7F000000 + 00000000FF00000000007F7F7F00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000000000BFFFFFFF000000000000000000000000BFFFFF + FF000000003F7F7F7F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFBFBFBF007F7F7FBFFFFF + FF00000000000000000000FF0000008000000080000000000000000000BFFFFF + FF007F7F7F3F7F7F7F00000000000000000000000000000000000000003F7F7F + 7F00000000000000FF0000000000000000000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF000000003F7F7F7F0000000000000000000000000000000000000000000000 + 00007F7F7F000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFBFBFBF000000000000FF + 00000000000000FF00000080000000FF000000800000008000000000000000FF + 00000000003F7F7F7F0000000000000000000000000000000000000000000000 + 00007F7F7F00000000000000FF000000FF000000FF000000FF00000000000000 + 00000000000000000000000000000000000000FFFF0000FFFF0000FFFF000000 + 0000FFFFFF00000000000000000000000000000000BFFFFFFF00000000BFFFFF + FF000000000000FFFF0000FFFF00000000000000003F7F7F7F00000000000000 + 00007F7F7F000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFFFFFFF00000000BFFFFF + FF000000000000FF000000FF000000FF000000FF000000800000000000BFFFFF + FF000000003F7F7F7F0000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000000000FFFF0000FFFF000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFF + FF000000000000FFFF0000FFFF0000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFFFFFFF000000000000FF + 0000000000BFFFFFFF0000FF000000FF00000080000000FF00000000000000FF + 0000000000BFBFBFBF0000000000000000000000000000000000000000000000 + 0000000000000000FF000000FF000000FF000000FF000000FF000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000000000BFFFFFFF000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000003F7F7F + 7F00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000BFFFFFFF007F7F7FBFFFFF + FF000000000000000000FFFFFFBFFFFFFF0000FF000000000000000000BFFFFF + FF007F7F7FBFBFBFBF00000000000000000000000000000000000000003F7F7F + 7F0000000000000000000000FF000000FF000000FF000000FF000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00000000BFFFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 0000BFBFBF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000FF000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000BFBFBFBFFFFFFF00000000BFFFFFFF000000000000FF + FF00000000000000000000000000000000000000000000000000000000000000 + FF007F7F7F0000000000000000000000000000000000000000000000003F7F7F + 7F000000FF000000000000000000000000000000000000000000FFFFFFBFBFBF + BF00000000BFFFFFFF0000FF00BFFFFFFF0000FF00BFFFFFFF00000000BFBFBF + BF00BFBFBF000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFFBFFFFFFF00FFFFFFBFFFFFFF0000000000000000000000000000FF + FF0000FFFF000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF00000000000000000000000000000000000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000BFFFFF + FF00BFBFBF3F7F7F7F0000000000000000000000003F7F7F7F00BFBFBFBFBFBF + BF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FF00000000000000000000000000000000000000000000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF0000000000000000000000000000000000000000000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000000000BFFFFFFF00FFFFFFBFFFFFFF00BFBFBFBFBFBFBF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000FFFF0000FFFF000000 + 000000000000000000000000000000FFFF0000FFFF0000000000000000000000 + 00000000000000FFFF0000FFFF00000000000000000000000000000000000000 + FF00000000000000FF007F7F7F00000000000000003F7F7F7F000000FF000000 + 00000000FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000FFFF0000000000000000000000 + 000000000000000000000000000000FFFF000000000000000000000000000000 + 000000000000000000000000000000FFFF000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000008000000000000000800000 + 0000000000800000000000000080000000000000008000000000000000000000 + 0000000000000000000000000080000000000000008000000000000000800000 + 0000000000800000000000000080000000000000008000000000000000800000 + 0000000000800000000000000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000008000000000000000800000 + 00000000008000000000000000000000000000000080000000000000000000FF + FF0000FFFF0000FFFF0000000080000000000000008000000000000000800000 + 0000000000000000000000000000000000000000000000000000000000800000 + 0000000000800000000000000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF0000000000FFFFFF000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 00000000000000000000FFFF00BFFFFF0000FFFF000000000000000000000000 + 00007F7F7F3F7F7F7F007F7F7F00000000000000008000000000000000000000 + 0000000000BFBFBFBF00BFBFBF3F7F7F7F007F7F7F3F7F7F7F00000000000000 + 0000000000800000000000000080000000000000000000000000000000000000 + 0000000000BFBFBFBF00BFBFBF3F7F7F7F007F7F7F3F7F7F7F00000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000FF000000FF000000 + FF000000003F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F7F007F7F7F3F7F7F + 7F007F7F7F0000000000FFFFFF00000000000000008000000000000000BFBFBF + BF00BFBFBF3F7F7F7F0000000000000000000000003F7F7F7F007F7F7F3F7F7F + 7F00000000800000000000000080000000000000000000000000000000BFBFBF + BF00BFBFBF3F7F7F7F0000000000000000000000003F7F7F7F007F7F7F3F7F7F + 7F000000000000000000000000000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF0000000000000000000000FF000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000BFBFBFBFBFBF + BF00000000BFFFFFFF0000FFFFBFFFFFFF0000FFFFBFFFFFFF000000003F7F7F + 7F007F7F7F000000000000000080000000000000000000000000BFBFBFBFBFBF + BF00000000BFFFFFFF000000FFBFFFFFFF000000FFBFFFFFFF000000003F7F7F + 7F007F7F7F0000000000000000000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000BFBFBF000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 00007F7F7F000000000000000080000000000000000000000000BFBFBF000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 00007F7F7F0000000000000000000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF000000000000000000000000000000 + 00000000000000000000FFFFFF0000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000BFBFBFBF007F7F7FBFFFFF + FF00000000000000000000FFFF00008080000080800000000000000000BFFFFF + FF007F7F7F3F7F7F7F000000008000000000000000BFBFBFBF007F7F7FBFFFFF + FF0000000000000000000000FF00000080000000800000000000000000BFFFFF + FF007F7F7F3F7F7F7F00000000000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000BFBFBFBF000000000000FF + FF000000000000FFFF000080800000FFFF0000808000008080000000000000FF + FF000000003F7F7F7F000000008000000000000000BFBFBFBF00000000000000 + FF00000000000000FF00000080000000FF000000800000008000000000000000 + FF000000003F7F7F7F00000000000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF00000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000000000BFFFFFFF007F7F7F3F7F7F + 7F00FFFFFF3F7F7F7F007F7F7FBFFFFFFF007F7F7FBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000BFFFFFFF00000000BFFFFF + FF000000000000FFFF0000FFFF0000FFFF0000FFFF0000808000000000BFFFFF + FF000000003F7F7F7F000000008000000000000000BFFFFFFF00000000BFFFFF + FF00000000000000FF000000FF000000FF000000FF0000008000000000BFFFFF + FF000000003F7F7F7F00000000000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000BFFFFFFF000000000000FF + FF00000000BFFFFFFF0000FFFF0000FFFF000080800000FFFF000000000000FF + FF00000000BFBFBFBF000000008000000000000000BFFFFFFF00000000000000 + FF00000000BFFFFFFF000000FF000000FF00000080000000FF00000000000000 + FF00000000BFBFBFBF00000000000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF000000000000000000FFFFFF00FFFF + FF0000000000FFFFFF000000000000000000000000BFFFFFFF007F7F7F3F7F7F + 7F00FFFFFF3F7F7F7F007F7F7F3F7F7F7F00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000000000BFFFFFFF007F7F7FBFFFFF + FF000000000000000000FFFFFFBFFFFFFF0000FFFF0000000000000000BFFFFF + FF007F7F7FBFBFBFBF000000008000000000000000BFFFFFFF007F7F7FBFFFFF + FF000000000000000000FFFFFFBFFFFFFF000000FF0000000000000000BFFFFF + FF007F7F7FBFBFBFBF00000000000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000BFFFFFFF00FFFFFFBFFFFF + FF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFFBFFFFFFF00FFFFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000BFBFBF000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 0000BFBFBF000000000000000080000000000000000000000000BFBFBF000000 + 0000FFFFFF000000000000000000000000000000000000000000FFFFFF000000 + 0000BFBFBF0000000000000000000000000000000000FFFFFF0000000000FFFF + FF0000000000FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF000000 + 0000FFFFFF0000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000 + 0000FFFFFF000000000000000080000000000000000000000000FFFFFFBFBFBF + BF00000000BFFFFFFF0000FFFFBFFFFFFF0000FFFFBFFFFFFF00000000BFBFBF + BF00BFBFBF000000000000000080000000000000000000000000FFFFFFBFBFBF + BF00000000BFFFFFFF000000FFBFFFFFFF000000FFBFFFFFFF00000000BFBFBF + BF00BFBFBF0000000000000000000000000000000000FFFFFF0000000000FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F000000 + 00007F7F7F00000000007F7F7F00000000007F7F7F00000000007F7F7F000000 + 0000000000000000000000000080000000000000008000000000000000BFFFFF + FF00BFBFBF3F7F7F7F0000000000000000000000003F7F7F7F00BFBFBFBFBFBF + BF00000000800000000000000080000000000000000000000000000000BFFFFF + FF00BFBFBF3F7F7F7F0000000000000000000000003F7F7F7F00BFBFBFBFBFBF + BF000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007F7F7F00000000007F7F7F000000 + 00007F7F7F00000000007F7F7F00000000007F7F7F00000000007F7F7F000000 + 0000000000800000000000000080000000000000008000000000000000000000 + 0000000000BFFFFFFF00FFFFFFBFFFFFFF00BFBFBFBFBFBFBF00000000000000 + 0000000000800000000000000080000000000000000000000000000000000000 + 0000000000BFFFFFFF00FFFFFFBFFFFFFF00BFBFBFBFBFBFBF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000008000000000000000800000 + 0000000000800000000000000080000000000000008000000000000000800000 + 0000000000000000000000000080000000000000008000000000000000800000 + 0000000000000000000000000000000000000000000000000000000000800000 + 0000000000800000000000000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000FF000000000000000000000000000000000000FFFF000000 + 00007F7F7F007F7F7F000000000000000000000000000000000000000000007F + 7F00007F7F00007F7F00007F7F00000000000000000000000000000000000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFBFBF0000000000000000000000 + 00000000FF00000000000000000000000000000000000000000000FFFF000000 + 00007F7F7F0000000000BFBFBF00BFBFBF00BFBFBF00BFBFBF0000000000007F + 7F0000FFFF00007F7F0000FFFF000000000000000000000000000000FF000000 + FF000000FF000000FF000000FF000000FF000000FF000000FF00000000000000 + 7F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007F7F7F00000000007F7F7F00BFBFBF007F7F7F00000000000000 + 00000000000000000000000000000000FF00000000000000000000FFFF000000 + 00007F7F7F007F7F7F00000000000000000000000000000000000000000000FF + FF00007F7F0000FFFF00007F7F0000000000000000000000000000007F000000 + 7F0000007F0000007F0000007F0000007F0000007F0000007F00000000000000 + 7F0000007F000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F007F7F7F0000000000BFBFBF00BFBFBF00BFBFBF00000000000000 + 000000000000000000000000FF0000000000000000000000000000FFFF000000 + 00007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F000000000000FF + FF0000FFFF00007F7F0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000007F0000007F0000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF000000000000FFFF000000000000FFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F007F7F7F0000000000BFBFBF00BFBFBF00BFBFBF00000000000000 + 0000000000000000FF000000000000000000000000000000000000FFFF000000 + 00007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F000000000000FF + FF0000FFFF0000FFFF00007F7F000000000000000000000000007F7F7F000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF + FF000000000000007F0000007F00000000000000000000000000000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000007F7F + 7F007F7F7F007F7F7F000000000000000000BFBFBF00BFBFBF00000000000000 + 00000000FF00000000000000000000000000000000000000000000FFFF000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF + FF00000000000000000000007F00000000000000000000000000000000000000 + 000000FFFF000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000 + 000000000000000000000000000000000000000000007F7F7F0000000000BFBF + BF00BFBFBF00BFBFBF0000000000BFBFBF0000000000BFBFBF007F7F7F000000 + 000000000000000000000000000000000000000000000000000000FFFF000000 + 000000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF007F7F7F0000000000000000000000000000000000FFFF + FF0000000000FFFFFF0000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF000000 + 000000000000000000000000000000000000000000007F7F7F00000000007F7F + 7F007F7F7F007F7F7F0000000000BFBFBF0000000000BFBFBF007F7F7F000000 + 00000000FF000000FF000000FF000000FF00000000000000000000FFFF000000 + 000000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF0000000000000000000000000000000000000000000000 + 000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF000000 + 00000000000000000000000000000000000000000000BFBFBF0000000000BFBF + BF00BFBFBF00BFBFBF0000000000BFBFBF0000000000BFBFBF007F7F7F000000 + 000000000000000000000000000000000000000000000000000000FFFF000000 + 000000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF007F7F7F0000000000000000000000 + 000000000000FFFFFF0000000000000000000000000000000000000000000000 + 00000000000000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00000000000000 + 000000000000000000000000000000000000000000000000000000000000BFBF + BF00BFBFBF00BFBFBF000000000000000000BFBFBF00BFBFBF00000000000000 + 00000000FF00000000000000000000000000000000000000000000FFFF000000 + 00007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F000000000000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFBFBF00BFBFBF00000000007F7F7F00BFBFBF00BFBFBF00000000000000 + 0000000000000000FF000000000000000000000000000000000000FFFF000000 + 000000000000FFFFFF0000000000FFFFFF0000000000FFFFFF000000000000FF + FF0000FFFF0000FFFF0000FFFF00000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFBFBF00BFBFBF00000000007F7F7F007F7F7F00BFBFBF00000000000000 + 000000000000000000000000FF00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000007F + 7F0000FFFF0000FFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFBFBF007F7F7F007F7F7F007F7F7F007F7F7F00000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00007F7F0000FFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000000000000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BFBFBF00000000007F7F7F0000000000000000000000 + 00000000FF000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000007F + 7F0000FFFF00007F7F0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007F0000007F0000007F00 + 00007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F00 + 00007F0000007F00000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007F000000FF000000FF00 + 0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF0000007F00000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007F0000007F0000007F00 + 0000BFBFBF00BFBFBF0000007F0000FFFF0000007F00BFBFBF00BFBFBF007F00 + 00007F0000007F00000000000000000000000000000000000000000000000000 + 000000000000000000000000000000FFFF007F7F7F00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF0000FFFF0000000000FFFF0000000000000000000000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFBFBF00BFBFBF00BFBFBF0000007F00FFFFFF00FFFFFF007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F007F7F + 7F0000000000000000007F7F7F0000000000FFFF00000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFBFBF00BFBFBF00BFBFBF0000FFFF00FFFFFF007F7F7F007F7F7F000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 00007F7F7F007F7F7F0000FFFF0000000000FFFF000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FF000000FF000000FF00000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000BFBFBF00BFBFBF0000007F00FFFFFF007F7F7F00000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 00007F7F7F0000FFFF0000FFFF0000000000FFFF00000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000BFBFBF0000FFFF007F7F7F0000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF00000000000000000000000000FFFFFF0000000000000000000000 + 00000000FF0000000000000000007F7F7F00FFFF000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FF + FF0000000000000000000000FF000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000BFBFBF000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + FF000000FF000000FF000000000000000000FFFF00000000000000FFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000000000000000000000000000 + 000000000000000000000000000000000000000000007F7F7F0000FFFF007F7F + 7F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000007F00FFFFFF0000007F0000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF00000000000000FF000000 + FF000000FF000000FF000000FF000000000000000000000000000000000000FF + FF00FFFFFF0000FFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 00000000000000007F0000FFFF0000007F00FFFFFF0000007F00000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF000000000000000000000000007F7F7F0000FFFF007F7F + 7F00000000000000000000000000000000000000000000000000000000000000 + 0000BFBFBF00BFBFBF0000007F0000FFFF00FFFFFF0000FFFF007F7F7F000000 + 00000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000BFBFBF00BFBFBF00BFBFBF00BFBFBF0000007F00FFFFFF007F7F7F000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007F0000007F0000007F00 + 0000BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF007F00 + 00007F0000007F000000000000000000000000000000FFFFFF0000000000BFBF + BF00FFFFFF0000000000FFFFFF000000000000000000000000007F7F7F000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007F000000FF000000FF00 + 0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00 + 0000FF0000007F000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000FF000000FF000000FF000000 + FF000000FF000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007F0000007F0000007F00 + 00007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F00 + 00007F0000007F00000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FF000000FF000000FF000000FF000000FF000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00000000000000000000000000FFFFFF0000000000FFFF + FF000000000000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 000000000000000000000000000000000000FF000000FF000000FF000000FF00 + 0000FF000000FF000000BFBFBF0000000000BFBFBF00FF000000FF000000FF00 + 0000FF000000FF000000FF000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00BFBFBF00000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF00BFBF + BF00BFBFBF00BFBFBF00000000007F7F7F0000000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF000000000000000000000000000000000000000000000000000000 + 000000000000FFFFFF000000000000000000FFFFFF000000000000000000FFFF + FF000000000000000000FFFFFF00000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 0000000000007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F00000000000000 + 00000000000000000000000000000000000000000000FFFFFF00000000007F7F + 7F007F7F7F0000000000FFFFFF007F7F7F00FFFFFF00000000007F7F7F007F7F + 7F0000000000FFFFFF0000000000000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF00000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000007F7F7F0000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000007F7F7F00000000000000000000000000000000000000 + 00000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 000000000000FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00000000000000 + 0000000000000000000000000000000000007F7F7F0000000000FFFFFF000000 + 00000000000000000000FFFFFF007F7F7F00FFFFFF0000000000000000000000 + 0000FFFFFF00000000007F7F7F00000000000000000000000000000000000000 + 0000FFFFFF0000FFFF000000000000000000FFFFFF0000000000FFFFFF000000 + 0000FFFFFF00FFFFFF00FFFFFF000000000000000000FF000000FF000000FF00 + 0000FF000000FF00000000000000000000000000000000000000000000000000 + 0000FFFFFF00FFFFFF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00000000000000000000000000000000000000000000000000FFFF + FF0000FFFF000000000000FFFF00FFFFFF0000000000FFFFFF0000FFFF000000 + 0000FFFFFF0000000000FFFFFF00000000000000000000000000FF000000FF00 + 0000FF0000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007F7F7F000000000000000000000000007F7F7F0000000000FFFF + FF000000000000000000FFFFFF007F7F7F00FFFFFF000000000000000000FFFF + FF00000000007F7F7F0000000000000000000000000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000000000FFFFFF0000FFFF0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000000000000000FF00 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007F7F7F0000000000000000007F7F7F0000000000FFFF + FF00FFFFFF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000007F7F7F000000000000000000000000000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000000000FFFFFF0000FFFF0000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 000000000000000000007F7F7F0000FFFF007F7F7F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000FFFFFF0000FF + FF00FFFFFF0000FFFF00FFFFFF0000FFFF0000000000FFFFFF00FFFFFF00FFFF + FF0000000000000000000000000000000000000000000000FF000000FF000000 + FF00000000000000000000FFFF0000FFFF0000FFFF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000007F7F7F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF00000000000000FFFF00FFFF + FF0000FFFF00FFFFFF0000FFFF00000000000000000000000000FFFFFF00FFFF + FF0000000000FFFFFF00FFFFFF0000000000000000000000FF000000FF000000 + FF0000000000000000007F7F7F0000FFFF007F7F7F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007F7F7F000000000000000000000000007F7F7F000000 + 000000000000000000007F7F7F00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF0000FFFF00000000000000FF + FF00FFFFFF0000FFFF000000000000FFFF00FFFFFF0000FFFF0000000000FFFF + FF0000000000FFFFFF000000000000000000000000000000FF000000FF000000 + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000007F7F7F0000000000000000000000000000000000000000000000 + 0000000000007F7F7F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF0000FFFF0000FFFF00000000 + 000000FFFF00FFFFFF0000FFFF00FFFFFF000000000000000000FFFFFF00FFFF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F000000 + 00007F7F7F007F7F7F0000000000000000000000000000000000000000000000 + 7F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF000000 + 0000BFBFBF00BFBFBF0000000000000000000000000000000000000000000000 + 7F0000007F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000BFBFBF0000000000BFBFBF00000000007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000FF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF00BFBF + BF00BFBFBF00BFBFBF0000000000000000000000000000000000000000000000 + 7F0000007F0000007F0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000BFBFBF00000000007F7F7F00000000007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FF000000FF000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000BFBFBF0000000000BFBFBF00000000007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FF000000FF000000FF00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000BFBFBF00000000007F7F7F00000000007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF000000FF000000FF000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000BFBFBF0000000000BFBFBF00000000007F7F7F000000 + 00000000000000000000000000000000000000000000000000000000FF000000 + FF000000FF000000FF000000FF000000FF000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000BFBFBF00000000007F7F7F00000000007F7F7F000000 + 000000000000000000000000000000000000000000007F7F7F000000FF000000 + FF0000000000000000000000FF000000FF000000FF0000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF000000000000000000BFBFBF0000000000FF000000FF000000FF00 + 00000000FF00FF000000FF000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000BFBFBF0000000000BFBFBF00000000007F7F7F000000 + 0000000000000000000000000000000000007F7F7F000000FF00000000000000 + 00000000000000000000000000000000FF000000FF0000000000000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF0000000000BFBFBF00000000007F7F7F00000000007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000FF000000FF00000000000000 + 00000000000000000000000000000000000000000000FFFFFF00000000000000 + 00000000000000000000FFFFFF0000000000FFFFFF00000000000000FF000000 + FF000000FF000000FF000000FF00000000000000000000000000000000000000 + 7F0000007F0000007F0000FFFF000000000000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 00007F7F7F00000000007F7F7F00000000007F7F7F00000000007F7F7F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000FF000000FF00000000000000 + 00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF000000 + FF000000FF000000FF000000FF000000FF000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000FF000000FF000000 + 00000000000000000000000000000000000000000000FFFFFF00000000000000 + 0000FFFFFF000000000000000000000000000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 7F0000007F0000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF0000000000000000000000000000000000000000000000000000000000FFFF + FF00BFBFBF00BFBFBF00BFBFBF007F7F7F007F7F7F007F7F7F007F7F7F007F7F + 7F00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000007F7F7F000000 + FF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF0000000000FFFFFF00FFFFFF000000000000000000000000000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 7F00FFFF000000007F000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007F7F + 7F000000FF0000000000000000000000000000000000FFFFFF0000000000BFBF + BF00FFFFFF0000000000FFFFFF000000000000000000000000007F7F7F000000 + FF000000FF000000FF0000000000000000000000000000000000000000000000 + 7F00FFFF0000FFFF00000000000000FFFF0000FFFF0000FFFF0000FFFF0000FF + FF00000000000000000000000000000000000000000000000000000000000000 + 000000000000000000007F7F7F007F7F7F007F7F7F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000FF000000FF000000000000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF000000000000000000000000000000FF000000FF000000FF000000 + FF000000FF000000000000000000000000000000004000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000800000000100010000000000000400000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF00 + 0000000000FFFF0000007F0000007F000000000000007F000000000000000000 + FFFFFF40FFFFFF40FFFFFF40FFFFFF4000000040FFFFFF400000FF400000FF40 + FFFFFF400000FF40FFFFFF40FFFFFF40C380FFFFFFFFFF40C300E01FFFFFFF40 + C201C00F00000000C003800700000000C003000300000000C00300010000FF00 + 00038000000000000003C000000000000003E000000000000003F00000000000 + 0003F801000000000007F80100000000000FF80100000000003FF80700000000 + 80FFF80700000000C3FFFC7F00000000FFFFFFFFFF7EFFFFF83FFFFF9001FFFF + E00F8FFFC0032020C00787FFE0037271800383BFE00303038003C13FE003A723 + 0001E03FE003A7A70001F01F000187870001F81F8000CF8F0001F00FE007CFCF + 0001E00FE00FFFFF8003FC07E00FE7E78003FF07E027E3C7C007FFC3C073E7E7 + E00FFFF39E79E997F83FFFFF7EFEFC3FFC00FFE3FFFFFFFFF000FC41F83FF83F + C0008800E00FE00F00000000C007C00700000000800380030000000080038003 + 0000000000010001000000000001000100000000000100010000000000010001 + 000100000001000100030000800380030007000180038003001F0001C007C007 + 007F000DE00FE00F01FFD553F83FF83FFFFFFDFFFFFF8FC0E01FF8FFFC7B8000 + C00FF8FFF83780008007F87FF03E00000003F81FE01D80000001F80FE01B8000 + 8000F00F80178000C000E00F001F8A80E000E00F00108A80F000E00F001F8A80 + F801F01F80178000FC01F00FE01B8A80FE01F00FE01D8FC0FF1FF007F03EFFC0 + FFFFF007F837FFC0FFFFF007FC7BFFC0FFFFFC00FFFFFFFF8003FC00FFF8F83F + 8003FC0020F8E7CF8003FC00007FDFF7E00F0000007CB01BE00F0000003CB83B + F01F0000000F7C7DF83F000000047E8DFC7F0023000C4105F83F000101FF4105 + F01F0000E3FC4105E00F0023FFFC818BE00F0063FFFF81FB800300C3FFF8DFF7 + 80030107FFF8E7CF800303FFFFFFF83FFE7FFC7FFFFFF000FE1FF83FFFFFF000 + FC07F01FF83FF000FC01F01F0001F000F800F01F0001F000F800F01F0001F000 + 0000F01F0001F0000000F01F0001E0000001F83F8003C0000032FEC380038000 + 003EFEB980038000003EFF7DC1070000003EFF3DE38F0000001DFC99FFFF0001 + 0023F9C3FFFF0003003FF3FFFFFF0007C007E00FFFFFFF00C007E00FFFFFFF00 + C007E00FF9FFFF00C007E00FF0FFFF00C007E00FF0FF0000C007E00FE07F0000 + C007E00FC07F0000C007A00B843F0000C007C0071E3F0023C007E00FFE1F0001 + C007E00FFF1F0000C007C007FF8F0023C007C007FFC70063C007C007FFE300C3 + C007F83FFFF80107C007F83FFFFF03FF} + end + object SaveDialog: TSaveDialog + DefaultExt = 'txt' + Filter = 'Text file (*.txt)|*.txt' + Left = 24 + Top = 8 + end +end diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/Global.pas b/official/2.1.1/examples/windows/delphitools/toolhelpview/Global.pas new file mode 100644 index 0000000..2495496 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/toolhelpview/Global.pas @@ -0,0 +1,132 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is Global.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2006-05-30 00:02:45 +0200 (mar., 30 mai 2006) $ } +{ } +{**************************************************************************************************} + +unit Global; + +{$I JCL.INC} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ComCtrls, ImgList; + +type + TGlobalModule = class(TDataModule) + ToolbarImagesList: TImageList; + SaveDialog: TSaveDialog; + procedure DataModuleCreate(Sender: TObject); + private + FPeViewer: Variant; + FPeViewerRegistred: Boolean; + public + function ExecuteSaveDialog(var FileName: TFileName): Boolean; + procedure ListViewToClipboard(ListView: TListView); + procedure ListViewToFile(ListView: TListView; const FileName: TFileName); + procedure ViewPE(const FileName: TFileName); + property PeViewerRegistred: Boolean read FPeViewerRegistred; + end; + +var + GlobalModule: TGlobalModule; + +implementation + +{$R *.DFM} + +uses + ClipBrd, ToolsUtils, JclSysInfo; + +resourcestring + sWrongWindowsVersion = 'This application is intended for Windows 95/98/2000 only'; + +procedure CheckWindowsVersion; +begin + if IsWinNT4 then + begin + MessageBox(0, PChar(sWrongWindowsVersion), nil, MB_OK or MB_ICONERROR); + Halt(0); + end; +end; + +{ TGlobalModule } + +procedure TGlobalModule.ListViewToClipboard(ListView: TListView); +var + S: TStringList; +begin + S := TStringList.Create; + Screen.Cursor := crHourGlass; + try + ListViewToStrings(ListView, S, ListView.MultiSelect); + Clipboard.AsText := S.Text; + finally + S.Free; + Screen.Cursor := crDefault; + end; +end; + +procedure TGlobalModule.ListViewToFile(ListView: TListView; const FileName: TFileName); +var + S: TStringList; +begin + SaveDialog.FileName := ChangeFileExt(FileName, ''); + if SaveDialog.Execute then + begin + S := TStringList.Create; + Screen.Cursor := crHourGlass; + try + ListViewToStrings(ListView, S, ListView.MultiSelect); + S.SaveToFile(SaveDialog.FileName); + finally + S.Free; + Screen.Cursor := crDefault; + end; + end; +end; + +function TGlobalModule.ExecuteSaveDialog(var FileName: TFileName): Boolean; +begin + SaveDialog.FileName := ChangeFileExt(FileName, ''); + Result := SaveDialog.Execute; + if Result then FileName := SaveDialog.FileName; +end; + +procedure TGlobalModule.DataModuleCreate(Sender: TObject); +begin + FPeViewerRegistred := IsPeViewerRegistred; +end; + +procedure TGlobalModule.ViewPE(const FileName: TFileName); +begin + FPeViewer := CreateOrGetOleObject(PeViewerClassName); + FPeViewer.OpenFile(FileName); + FPeViewer.BringToFront; +end; + +initialization + CheckWindowsVersion; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/HeapDump.dfm b/official/2.1.1/examples/windows/delphitools/toolhelpview/HeapDump.dfm new file mode 100644 index 0000000..8707fd7 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/toolhelpview/HeapDump.dfm @@ -0,0 +1,235 @@ +inherited HeapDumpForm: THeapDumpForm + Left = 239 + Top = 152 + Width = 482 + Height = 380 + Caption = 'HeapDumpForm' + OldCreateOrder = True + PixelsPerInch = 96 + TextHeight = 13 + object Splitter2: TSplitter [0] + Left = 0 + Top = 281 + Width = 474 + Height = 3 + Cursor = crVSplit + Align = alBottom + AutoSnap = False + ResizeStyle = rsUpdate + end + object StatusBar: TStatusBar [1] + Left = 0 + Top = 334 + Width = 474 + Height = 19 + Panels = < + item + Width = 90 + end + item + Width = 90 + end + item + Width = 90 + end + item + Width = 90 + end> + SimplePanel = False + OnResize = StatusBarResize + end + object Panel1: TPanel [2] + Left = 0 + Top = 26 + Width = 474 + Height = 255 + Align = alClient + BevelOuter = bvNone + FullRepaint = False + TabOrder = 1 + object Splitter1: TSplitter + Left = 137 + Top = 0 + Width = 3 + Height = 255 + Cursor = crHSplit + AutoSnap = False + ResizeStyle = rsUpdate + end + object HeapListView: TListView + Tag = 1 + Left = 0 + Top = 0 + Width = 137 + Height = 255 + Align = alLeft + AllocBy = 16 + Columns = < + item + Caption = 'HID' + Width = 70 + end + item + Caption = 'Flags' + Width = 60 + end> + HideSelection = False + ReadOnly = True + RowSelect = True + PopupMenu = PopupMenu + TabOrder = 0 + ViewStyle = vsReport + OnColumnClick = HeapListViewColumnClick + OnCompare = HeapListViewCompare + OnSelectItem = HeapListViewSelectItem + end + object HeapEntryListView: TListView + Left = 140 + Top = 0 + Width = 334 + Height = 255 + Align = alClient + AllocBy = 128 + Columns = < + item + Caption = 'Handle' + Width = 70 + end + item + Caption = 'Start Adress' + Width = 70 + end + item + Alignment = taRightJustify + Caption = 'BlockSize' + Width = 70 + end + item + Caption = 'End Adress' + Width = 70 + end + item + Caption = 'Flags' + Width = 65 + end + item + Alignment = taRightJustify + Caption = 'Lock Count' + Width = 70 + end> + ColumnClick = False + HideSelection = False + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + PopupMenu = PopupMenu + TabOrder = 1 + ViewStyle = vsReport + OnData = HeapEntryListViewData + OnSelectItem = HeapEntryListViewSelectItem + end + end + object HeapEntryMemo: TMemo [3] + Left = 0 + Top = 284 + Width = 474 + Height = 50 + Align = alBottom + PopupMenu = PopupMenu + ReadOnly = True + ScrollBars = ssVertical + TabOrder = 2 + end + inherited CoolBar: TCoolBar + Width = 474 + Bands = < + item + Control = ToolBar + ImageIndex = -1 + MinHeight = 22 + Width = 470 + end> + inherited ToolBar: TToolBar + Width = 457 + object ToolButton5: TToolButton + Left = 0 + Top = 0 + Action = Refresh1 + end + object ToolButton6: TToolButton + Left = 23 + Top = 0 + Width = 8 + Caption = 'ToolButton6' + ImageIndex = 1 + Style = tbsSeparator + end + object ToolButton7: TToolButton + Left = 31 + Top = 0 + Action = Copy1 + end + object ToolButton8: TToolButton + Left = 54 + Top = 0 + Action = SaveToFile1 + end + object ToolButton3: TToolButton + Left = 77 + Top = 0 + Action = Find1 + end + object ToolButton1: TToolButton + Left = 100 + Top = 0 + Width = 8 + Caption = 'ToolButton1' + ImageIndex = 4 + Style = tbsSeparator + end + object ToolButton2: TToolButton + Left = 108 + Top = 0 + Action = SelectAll1 + end + end + end + inherited ActionList: TActionList + Top = 296 + inherited Refresh1: TAction + OnExecute = Refresh1Execute + end + end + inherited PopupMenu: TPopupMenu + Top = 296 + object Refresh2: TMenuItem + Caption = 'Refresh' + Hint = 'Refresh HeapList' + ImageIndex = 2 + ShortCut = 116 + OnClick = Refresh1Execute + end + object N1: TMenuItem + Caption = '-' + end + object Copy2: TMenuItem + Caption = 'Copy' + Hint = 'Copy to clipboard' + ImageIndex = 9 + ShortCut = 16451 + end + object Save1: TMenuItem + Caption = 'Save' + Hint = 'Save to text file' + ImageIndex = 3 + ShortCut = 16467 + end + object N2: TMenuItem + Caption = '-' + end + object Selectall2: TMenuItem + Action = SelectAll1 + end + end +end diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/HeapDump.pas b/official/2.1.1/examples/windows/delphitools/toolhelpview/HeapDump.pas new file mode 100644 index 0000000..88f6be3 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/toolhelpview/HeapDump.pas @@ -0,0 +1,334 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is HeadDump.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2006-05-30 00:02:45 +0200 (mar., 30 mai 2006) $ } +{ } +{**************************************************************************************************} + +unit HeapDump; + +{$I JCL.INC} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ComCtrls, ExtCtrls, StdCtrls, ToolWin, ActnList, ClipBrd, Menus, + TLHelp32, ViewTemplate; + +type + THeapDumpForm = class(TViewForm) + StatusBar: TStatusBar; + Panel1: TPanel; + HeapListView: TListView; + Splitter1: TSplitter; + HeapEntryListView: TListView; + Splitter2: TSplitter; + HeapEntryMemo: TMemo; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + ToolButton8: TToolButton; + Refresh2: TMenuItem; + N1: TMenuItem; + Copy2: TMenuItem; + Save1: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + N2: TMenuItem; + Selectall2: TMenuItem; + ToolButton3: TToolButton; + procedure HeapListViewColumnClick(Sender: TObject; + Column: TListColumn); + procedure HeapListViewCompare(Sender: TObject; Item1, Item2: TListItem; + Data: Integer; var Compare: Integer); + procedure StatusBarResize(Sender: TObject); + procedure Refresh1Execute(Sender: TObject); + procedure HeapEntryListViewData(Sender: TObject; Item: TListItem); + procedure HeapEntryListViewSelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); + procedure HeapListViewSelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); + private + FProcessID: DWORD; + FFileName: TFileName; + FreeSum, FixedSum, MoveableSum: Integer; + FHeapEntries: array of THeapEntry32; + procedure BuildHeapList; + procedure BuildHeapEntriesList(HeapID: DWORD); + procedure UpdateStatusLine; + procedure ReadHeapEntry(Item: TListItem); + public + procedure BuildContent; override; + procedure SetParams(ProcessID: DWORD; const FileName: TFileName); + end; + +var + HeapDumpForm: THeapDumpForm; + +implementation + +{$R *.DFM} + +uses + Global, Main, ToolsUtils; + +resourcestring + sCaption = 'HeapList - %s'; + sCountStatus = 'Heap Entries: %d'; + sFixedStatus = 'Fixed: %0.n'; + sFreeStatus = 'Free: %0.n'; + sMoveableStatus = 'Moveable: %0.n'; + sPressEscape = 'Press to cancel enumerating heap items ...'; + +{ THeapDumpForm } + +procedure THeapDumpForm.BuildHeapEntriesList(HeapID: DWORD); +var + Next: Boolean; + HeapEntry: THeapEntry32; + EntriesCount: Integer; +begin + with HeapEntryListView do + begin + Items.BeginUpdate; + Screen.Cursor := crHourGlass; + try + HeapEntryMemo.Font.Style := [fsBold]; + HeapEntryMemo.Text := sPressEscape; + Items.Count := 0; + EntriesCount := 0; + SetLength(FHeapEntries, 0); + FreeSum := 0; + FixedSum := 0; + MoveableSum := 0; + HeapEntry.dwSize := Sizeof(HeapEntry); + Next := Heap32First(HeapEntry, FProcessID, HeapID); + while Next do + begin + SetLength(FHeapEntries, EntriesCount + 1); + FHeapEntries[EntriesCount] := HeapEntry; + with HeapEntry do + case dwFlags of + LF32_FIXED: + Inc(FixedSum, dwBlockSize); + LF32_FREE: + Inc(FreeSum, dwBlockSize); + LF32_MOVEABLE: + Inc(MoveableSum, dwBlockSize); + end; + Inc(EntriesCount); + if EntriesCount mod 200 = 0 then + begin + UpdateStatusLine; + if GetAsyncKeyState(VK_ESCAPE) and $8000 <> 0 then Break; + end; + Next := Heap32Next(HeapEntry); + end; + Items.Count := EntriesCount; + if Items.Count > 0 then + begin + AlphaSort; + ItemFocused := Items[0]; + ItemFocused.Selected := True; + end; + UpdateStatusLine; + HeapEntryMemo.ParentFont := True; + finally + Items.EndUpdate; + Screen.Cursor := crDefault; + end; + end; +end; + +procedure THeapDumpForm.BuildHeapList; +var + SnapProcHandle: THandle; + HeapList: THeapList32; + Next: Boolean; +begin + with HeapListView do + begin + Items.BeginUpdate; + try + Items.Clear; + SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPHEAPLIST, FProcessID); + if SnapProcHandle <> THandle(-1) then + begin + HeapList.dwSize := Sizeof(HeapList); + Next := Heap32ListFirst(SnapProcHandle, HeapList); + while Next do + begin + with Items.Add do + begin + Caption := Format('%.8x', [HeapList.th32HeapID]); + Data := Pointer(HeapList.th32HeapID); + case HeapList.dwFlags of + HF32_DEFAULT: + SubItems.Add('Default'); + HF32_SHARED: + SubItems.Add('Shared'); + else + SubItems.Add('Normal'); + end; + end; + Next := Heap32ListNext(SnapProcHandle, HeapList); + end; + CloseHandle(SnapProcHandle); + end; + if Items.Count > 0 then + begin + AlphaSort; + ItemFocused := Items[0]; + ItemFocused.Selected := True; + end else + begin + BuildHeapEntriesList(0); + HeapEntryMemo.Lines.Clear; + end; + finally + Items.EndUpdate; + end; + end; +end; + +procedure THeapDumpForm.SetParams(ProcessID: DWORD; const FileName: TFileName); +begin + FProcessID := ProcessID; + FFileName := FileName; + Caption := Format(sCaption, [FFileName]); + PostBuildContentMessage; +end; + +procedure THeapDumpForm.HeapListViewColumnClick(Sender: TObject; + Column: TListColumn); +begin + LVColumnClick(Column); +end; + +procedure THeapDumpForm.HeapListViewCompare(Sender: TObject; Item1, + Item2: TListItem; Data: Integer; var Compare: Integer); +begin + LVCompare(TListView(Sender), Item1, Item2, Compare); +end; + +procedure THeapDumpForm.UpdateStatusLine; +begin + with StatusBar.Panels do + begin + BeginUpdate; + Items[0].Text := Format(sCountStatus, [High(FHeapEntries) + 1]); + Items[1].Text := Format(sFixedStatus, [IntToExtended(FixedSum)]); + Items[2].Text := Format(sMoveableStatus, [IntToExtended(MoveableSum)]); + Items[3].Text := Format(sFreeStatus, [IntToExtended(FreeSum)]); + EndUpdate; + Update; + end; +end; + +procedure THeapDumpForm.StatusBarResize(Sender: TObject); +var + I: Integer; +begin + with StatusBar do + for I := 0 to Panels.Count - 1 do Panels[I].Width := Width div 4; +end; + +procedure THeapDumpForm.ReadHeapEntry(Item: TListItem); +var + BlockSize, BytesRead: DWORD; + Buffer, BufferEnd, P: PChar; +begin + with HeapEntryMemo do {if DWORD(Item.SubItems.Objects[2]) <> LF32_FREE then} + begin + BlockSize := DWORD(Item.SubItems.Objects[1]); + if BlockSize > 32768 then BlockSize := 32768; + GetMem(Buffer, BlockSize); + Lines.BeginUpdate; + try + Lines.Clear; + if Toolhelp32ReadProcessMemory(FProcessID, Item.SubItems.Objects[0], + Buffer^, BlockSize - 1, BytesRead) then + begin + P := Buffer; + BufferEnd := Buffer + BytesRead - 1; + while P < BufferEnd do + begin + case P^ of + #0: P^ := '|'; + #1..#31: P^ := '.'; + end; + Inc(P); + end; + Buffer[BytesRead] := #0; + SetTextBuf(Buffer); + end; + finally + FreeMem(Buffer); + Lines.EndUpdate; + end; + end; +end; + +procedure THeapDumpForm.Refresh1Execute(Sender: TObject); +begin + BuildHeapList; +end; + +procedure THeapDumpForm.HeapEntryListViewData(Sender: TObject; + Item: TListItem); +begin + with Item, FHeapEntries[Item.Index] do + begin + Caption := Format('%.8x', [hHandle]); + SubItems.AddObject(Format('%.8x', [dwAddress]), Pointer(dwAddress)); + SubItems.AddObject(Format('%.0n', [IntToExtended(dwBlockSize)]), Pointer(dwBlockSize)); + SubItems.AddObject(Format('%.8x', [dwAddress + dwBlockSize]), Pointer(dwAddress + dwBlockSize)); + case dwFlags of + LF32_FIXED: + SubItems.AddObject('Fixed', Pointer(dwFlags)); + LF32_FREE: + SubItems.AddObject('Free', Pointer(dwFlags)); + LF32_MOVEABLE: + SubItems.AddObject('Moveable', Pointer(dwFlags)); + end; + SubItems.AddObject(Format('%d', [dwLockCount]), Pointer(dwLockCount)); + end; +end; + +procedure THeapDumpForm.HeapEntryListViewSelectItem(Sender: TObject; + Item: TListItem; Selected: Boolean); +begin + if Selected then ReadHeapEntry(Item); +end; + +procedure THeapDumpForm.HeapListViewSelectItem(Sender: TObject; + Item: TListItem; Selected: Boolean); +begin + if Selected then BuildHeapEntriesList(DWORD(Item.Data)); +end; + +procedure THeapDumpForm.BuildContent; +begin + BuildHeapList; +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/Main.dfm b/official/2.1.1/examples/windows/delphitools/toolhelpview/Main.dfm new file mode 100644 index 0000000..02526b3 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/toolhelpview/Main.dfm @@ -0,0 +1,876 @@ +object MainForm: TMainForm + Left = 191 + Top = 107 + ActiveControl = ProcessListView + AutoScroll = False + Caption = 'ToolHelp Viewer' + ClientHeight = 404 + ClientWidth = 587 + Color = clBtnFace + Constraints.MinHeight = 300 + Constraints.MinWidth = 400 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Menu = MainMenu + OldCreateOrder = False + Position = poDefault + ShowHint = True + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object Splitter1: TSplitter + Left = 0 + Top = 234 + Width = 587 + Height = 3 + Cursor = crVSplit + Align = alBottom + MinSize = 70 + ResizeStyle = rsUpdate + end + object ProcessListView: TListView + Left = 0 + Top = 26 + Width = 587 + Height = 208 + Align = alClient + AllocBy = 32 + Columns = < + item + Caption = 'Process' + Width = 110 + end + item + Caption = 'PID' + MaxWidth = 65 + Width = 65 + end + item + Alignment = taRightJustify + Caption = 'Priority' + MaxWidth = 50 + end + item + Alignment = taRightJustify + Caption = 'Threads' + MaxWidth = 51 + Width = 51 + end + item + Caption = 'ExeType' + MaxWidth = 55 + Width = 55 + end + item + Caption = 'FileName' + Width = 250 + end + item + Caption = 'Parent Process' + Width = 90 + end> + GridLines = True + HideSelection = False + HotTrackStyles = [] + ReadOnly = True + RowSelect = True + PopupMenu = PopupMenu + StateImages = PriorityImagesList + TabOrder = 0 + ViewStyle = vsReport + OnColumnClick = ProcessListViewColumnClick + OnCompare = ProcessListViewCompare + OnDblClick = ProcessListViewDblClick + OnEnter = ProcessListViewEnter + OnSelectItem = ProcessListViewSelectItem + end + object StatusBar: TStatusBar + Left = 0 + Top = 385 + Width = 587 + Height = 19 + Panels = < + item + Width = 85 + end + item + Width = 400 + end + item + Width = 165 + end> + SimplePanel = False + OnResize = StatusBarResize + end + object BottomPanel: TPanel + Left = 0 + Top = 237 + Width = 587 + Height = 148 + Align = alBottom + BevelOuter = bvNone + FullRepaint = False + TabOrder = 2 + object Splitter2: TSplitter + Left = 470 + Top = 0 + Width = 3 + Height = 148 + Cursor = crHSplit + Align = alRight + MinSize = 70 + ResizeStyle = rsUpdate + end + object ModulesListView: TListView + Left = 0 + Top = 0 + Width = 470 + Height = 148 + Align = alClient + AllocBy = 32 + Columns = < + item + Caption = 'Module' + Width = 70 + end + item + Caption = 'MID' + MaxWidth = 65 + Width = 65 + end + item + Caption = 'ImageBase' + Width = 70 + end + item + Caption = 'Base' + Width = 70 + end + item + Alignment = taRightJustify + Caption = 'Size' + MaxWidth = 80 + Width = 70 + end + item + Alignment = taRightJustify + Caption = 'Global #' + MaxWidth = 55 + Width = 55 + end + item + Alignment = taRightJustify + Caption = 'Process #' + MaxWidth = 60 + Width = 60 + end + item + Caption = 'Handle' + MaxWidth = 70 + Width = 70 + end + item + Caption = 'FileName' + Width = 200 + end> + HotTrackStyles = [] + ReadOnly = True + RowSelect = True + PopupMenu = PopupMenu + TabOrder = 0 + ViewStyle = vsReport + OnColumnClick = ProcessListViewColumnClick + OnCompare = ProcessListViewCompare + OnCustomDrawItem = ModulesListViewCustomDrawItem + OnDblClick = ProcessListViewDblClick + OnEnter = ProcessListViewEnter + OnSelectItem = ModulesListViewSelectItem + end + object ThreadsListView: TListView + Left = 473 + Top = 0 + Width = 114 + Height = 148 + Align = alRight + AllocBy = 4 + Columns = < + item + Caption = 'TID' + Width = 65 + end + item + Caption = 'Priority' + Width = 45 + end> + HotTrackStyles = [] + ReadOnly = True + RowSelect = True + TabOrder = 1 + ViewStyle = vsReport + OnColumnClick = ProcessListViewColumnClick + OnCompare = ProcessListViewCompare + OnEnter = ProcessListViewEnter + end + end + object CoolBar1: TCoolBar + Left = 0 + Top = 0 + Width = 587 + Height = 26 + AutoSize = True + BandMaximize = bmNone + Bands = < + item + Control = ToolBar1 + ImageIndex = -1 + MinHeight = 22 + Width = 583 + end> + FixedSize = True + OnResize = CoolBar1Resize + object ToolBar1: TToolBar + Left = 9 + Top = 0 + Width = 570 + Height = 22 + AutoSize = True + Caption = 'ToolBar1' + EdgeBorders = [] + Flat = True + Images = GlobalModule.ToolbarImagesList + TabOrder = 0 + Wrapable = False + object RefreshButton: TToolButton + Left = 0 + Top = 0 + Action = Refresh1 + end + object ToolButton7: TToolButton + Left = 23 + Top = 0 + Width = 8 + Caption = 'ToolButton7' + ImageIndex = 6 + Style = tbsSeparator + end + object CopyButton: TToolButton + Left = 31 + Top = 0 + Action = Copy1 + end + object SaveButton: TToolButton + Left = 54 + Top = 0 + Action = SaveToFile1 + end + object ToolButton3: TToolButton + Left = 77 + Top = 0 + Width = 8 + Caption = 'ToolButton3' + ImageIndex = 5 + Style = tbsSeparator + end + object ToolButton1: TToolButton + Left = 85 + Top = 0 + Action = DumpHeap1 + end + object ToolButton2: TToolButton + Left = 108 + Top = 0 + Action = DumpMemory1 + end + object ToolButton6: TToolButton + Left = 131 + Top = 0 + Action = DumpModules1 + end + object ToolButton10: TToolButton + Left = 154 + Top = 0 + Action = DumpPE1 + end + object ToolButton4: TToolButton + Left = 177 + Top = 0 + Width = 8 + Caption = 'ToolButton4' + ImageIndex = 5 + Style = tbsSeparator + end + object ChangePriButton: TToolButton + Left = 185 + Top = 0 + Action = ChangePriority1 + end + object KillButton: TToolButton + Left = 208 + Top = 0 + Action = Terminate1 + end + object PropertyButton: TToolButton + Left = 231 + Top = 0 + Action = FileProperties1 + end + object ToolButton5: TToolButton + Left = 254 + Top = 0 + Width = 8 + Caption = 'ToolButton5' + ImageIndex = 5 + Style = tbsSeparator + end + object HottrackButton: TToolButton + Left = 262 + Top = 0 + Action = HotTrack1 + Style = tbsCheck + end + object ToolButton8: TToolButton + Left = 285 + Top = 0 + Action = InfoTip1 + Style = tbsCheck + end + object ToolButton9: TToolButton + Left = 308 + Top = 0 + Action = BeepOnChange1 + Style = tbsCheck + end + object ToolButton11: TToolButton + Left = 331 + Top = 0 + Action = CheckImageBase1 + Style = tbsCheck + end + end + end + object PriorityImagesList: TImageList + Left = 104 + Top = 312 + Bitmap = { + 494C010103000500040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000002000000001002000000000000020 + 000000000000000000000000000000000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF007F00 + 00007F0000007F0000007F000000BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F0000007F0000007F0000007F00 + 00007F0000007F0000007F0000007F0000007F000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF007F0000007F00 + 0000BFBFBF00BFBFBF007F0000007F000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF0000007F0000007F0000007F00BFBFBF007F000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F000000BFBFBF00BFBFBF00BFBF + BF0000007F0000007F0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF0000007F0000007F0000007F00BFBFBF000000000000000000000000000000 + 000000000000000000000000000000000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF0000007F0000007F0000007F00BFBFBF00BFBFBF00BFBFBF007F0000007F00 + 0000BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF000000 + 7F0000007F0000007F0000007F0000007F007F000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F000000BFBFBF00BFBFBF000000 + 7F0000007F0000007F0000007F0000007F00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF000000 + 7F0000007F0000007F0000007F0000007F0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000BFBFBF00BFBFBF00BFBFBF000000 + 7F0000007F0000007F0000007F0000007F00BFBFBF00BFBFBF007F0000007F00 + 00007F0000007F0000007F0000007F000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF007F0000007F00 + 0000BFBFBF00BFBFBF007F0000007F000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F0000007F0000007F0000007F00 + 00007F0000007F0000007F0000007F0000007F00000000000000BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00000000007F0000007F0000007F000000BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF007F00 + 00007F0000007F0000007F000000BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F000000FFFFFF00BFBFBF00FFFF + FF00BFBFBF00FFFFFF00BFBFBF00BFBFBF007F00000000000000BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF000000000000FFFF00FFFFFF007F000000BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F000000BFBFBF00FFFFFF000000 + 7F00FFFFFF0000007F0000007F00BFBFBF007F00000000000000BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF0000000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF0000FFFF007F000000BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F000000FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007F000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F000000FFFFFF00BFBFBF000000 + 7F00BFBFBF0000007F00BFBFBF00FFFFFF007F00000000000000BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF0000000000FFFFFF00FFFFFF00FFFF + FF000000000000000000000000000000000000FFFF00FFFFFF007F000000BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF007F00 + 00007F0000007F0000007F0000007F000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F0000007F0000007F0000007F00 + 00007F0000007F0000007F0000007F0000007F000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F000000BFBFBF0000007F000000 + 7F00FFFFFF00BFBFBF0000007F00BFBFBF007F00000000000000BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF0000000000FFFFFF00FFFFFF00FFFF + FF0000000000FFFFFF000000000000FFFF00FFFFFF0000FFFF007F000000BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF007F0000007F00 + 0000BFBFBF00BFBFBF007F0000007F000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F000000FFFFFF00BFBFBF000000 + 7F00BFBFBF0000007F0000007F00FFFFFF007F00000000000000BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF0000000000FFFFFF00FFFFFF00FFFF + FF00000000000000000000FFFF00FFFFFF0000FFFF00FFFFFF007F000000BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF007F0000007F00 + 0000BFBFBF00BFBFBF007F0000007F000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF007F0000007F0000007F0000007F000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F000000BFBFBF00FFFFFF00BFBF + BF00FFFFFF00BFBFBF00FFFFFF00BFBFBF007F00000000000000BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF000000000000000000000000000000 + 00000000000000FFFF00FFFFFF007F0000007F0000007F0000007F000000BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF007F00 + 00007F0000007F0000007F0000007F000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF007F000000FFFFFF00FFFFFF007F000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F0000007F0000007F0000007F00 + 00007F0000007F0000007F0000007F0000007F00000000000000BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF007F00 + 000000FFFF00FFFFFF0000FFFF007F00000000FFFF007F000000BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF007F0000007F000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF007F000000FFFFFF00FFFFFF007F000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F0000007F0000007F0000007F00 + 00007F0000007F0000007F0000007F0000007F00000000000000BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF007F00 + 0000FFFFFF0000FFFF00FFFFFF007F0000007F000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF007F00 + 00007F0000007F0000007F000000BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF007F0000007F0000007F0000007F000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF007F0000007F0000007F0000007F00 + 00007F0000007F0000007F0000007F0000007F000000BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF007F00 + 00007F0000007F0000007F0000007F000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF0000007F00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF0000FFFF0000FFFF0000000000000000000000 + 0000000000000000000000000000000000007F000000BFBFBF00BFBFBF000000 + 0000000000000000000000000000BFBFBF00000000000000000000000000BFBF + BF00000000000000000000000000BFBFBF000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF0000FFFF0000FFFF0000000000000000000000 + 0000000000000000000000000000000000007F000000BFBFBF00BFBFBF000000 + 0000000000000000000000000000BFBFBF00000000000000000000000000BFBF + BF00000000000000000000000000BFBFBF000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00000000000000 + 0000000000000000000000000000000000007F000000BFBFBF00BFBFBF000000 + 0000000000000000000000000000BFBFBF00000000000000000000000000BFBF + BF00000000000000000000000000BFBFBF000000000000000000000000000000 + 0000000000000000FF000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF00FFFFFF00FFFFFF00FFFFFF0000FFFF0000FFFF000000 + 000000000000000000000000000000000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF000000000000000000000000000000 + 0000000000000000FF000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000FFFF000000 + 0000000000000000000000000000000000007F000000BFBFBF00BFBFBF000000 + 0000000000000000000000000000BFBFBF00000000000000000000000000BFBF + BF00000000000000000000000000BFBFBF000000000000000000000000000000 + 00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000FF000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF00FFFFFF00FFFFFF00000000007F7F7F007F7F7F0000FFFF000000 + 000000000000000000000000000000000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000FF000000FF000000FF000000FF000000FF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF00FFFFFF00FFFFFF007F7F7F00FFFFFF00FFFFFF0000FFFF000000 + 0000000000000000000000000000000000007F000000BFBFBF00BFBFBF000000 + 0000000000000000000000000000BFBFBF00000000000000000000000000BFBF + BF00000000000000000000000000BFBFBF000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000FFFF0000FFFF00FFFFFF007F7F7F00FFFFFF0000FFFF0000FFFF000000 + 000000000000000000000000000000000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000FF000000FF000000FF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000FFFF0000FFFF007F7F7F0000FFFF0000FFFF00000000000000 + 0000000000000000000000000000000000007F0000007F0000007F0000007F00 + 00007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F00 + 00007F0000007F0000007F0000007F0000000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF0000FFFF0000FFFF0000000000000000000000 + 000000000000000000000000000000000000BFBFBF00BFBFBF00BFBFBF000000 + 0000000000000000000000000000BFBFBF00000000000000000000000000BFBF + BF00000000000000000000000000BFBFBF000000000000000000000000000000 + 00000000000000000000000000000000FF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000FFFF0000FFFF0000FFFF0000000000000000000000 + 000000000000000000000000000000000000BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00BFBF + BF00BFBFBF00BFBFBF00BFBFBF00BFBFBF00424D3E000000000000003E000000 + 2800000040000000200000000100010000000000000100000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FF000000000000FF0000FF0000FF + 000000000000FF0000FFBFBFBF00000000FF0000FFFFFF00FF0000FF0000FF00 + 000000000000000000000000FF0000FFFEFFFC7FF83F0000FEFFFC7FF83FBFBF + FC7FFC7FF83FFFFFFC7FFC7FF83F0000F83FFC7FF01F0000F83FFC7FE00F0000 + F01FE00FE00FBFBFF01FE00FC007FFFFE00FF01FC00B0000E00FF01FC00700FF + FC7FF83FE00FFF00FC7FF83FE00F0000FC7FFC7FF01FFF00FC7FFC7FF83FFF00 + FC7FFEFFF83F0000FC7FFEFFF83F00FF00000000000000000000000000000000 + 000000000000} + end + object MainMenu: TMainMenu + Images = GlobalModule.ToolbarImagesList + Left = 8 + Top = 312 + object File1: TMenuItem + Caption = '&File' + object CopyItem: TMenuItem + Action = Copy1 + end + object SaveItem: TMenuItem + Action = SaveToFile1 + end + object N2: TMenuItem + Caption = '-' + end + object ExitItem: TMenuItem + Action = Exit1 + end + end + object Tools1: TMenuItem + Caption = '&Tools' + object RefreshItem: TMenuItem + Action = Refresh1 + end + object N1: TMenuItem + Caption = '-' + end + object ChangePriorityItem: TMenuItem + Action = ChangePriority1 + end + object DumpHeapItem: TMenuItem + Action = DumpHeap1 + end + object DumpMemory11: TMenuItem + Action = DumpMemory1 + end + object Moduleslist1: TMenuItem + Action = DumpModules1 + end + object DumpPEfile1: TMenuItem + Action = DumpPE1 + end + object N4: TMenuItem + Caption = '-' + end + object FilePropItem: TMenuItem + Action = FileProperties1 + end + object TerminateItem: TMenuItem + Action = Terminate1 + end + end + object Options1: TMenuItem + Caption = '&Options' + object Beeponchange2: TMenuItem + Action = BeepOnChange1 + end + object CheckImageBase2: TMenuItem + Action = CheckImageBase1 + end + object HotTrackItem: TMenuItem + Action = HotTrack1 + end + object InfoTip2: TMenuItem + Action = InfoTip1 + end + end + object Views1: TMenuItem + Caption = '&Views' + Visible = False + end + object Help1: TMenuItem + Caption = '&Help' + object Support1: TMenuItem + Action = SendMail1 + end + object AboutItem: TMenuItem + Action = About1 + end + end + end + object ActionList1: TActionList + Images = GlobalModule.ToolbarImagesList + Left = 40 + Top = 312 + object Exit1: TAction + Caption = 'Exit' + Hint = 'Exit application' + ImageIndex = 0 + OnExecute = Exit1Execute + end + object Terminate1: TAction + Caption = 'Terminate Process' + Hint = 'Terminate process' + ImageIndex = 1 + ShortCut = 16468 + OnExecute = Terminate1Execute + OnUpdate = Terminate1Update + end + object Refresh1: TAction + Caption = 'Refresh' + Hint = 'Refresh' + ImageIndex = 2 + ShortCut = 116 + OnExecute = Refresh1Execute + end + object About1: TAction + Caption = 'About...' + Hint = 'About' + OnExecute = About1Execute + end + object HotTrack1: TAction + Caption = 'HotTrack' + Hint = 'ListView hottrack' + ImageIndex = 5 + OnExecute = HotTrack1Execute + end + object SaveToFile1: TAction + Caption = 'Save as ...' + Hint = 'Save to text file' + ImageIndex = 3 + ShortCut = 16467 + OnExecute = SaveToFile1Execute + OnUpdate = SaveToFile1Update + end + object FileProperties1: TAction + Caption = 'File Properties' + Hint = 'File properties' + ImageIndex = 4 + ShortCut = 32781 + OnExecute = FileProperties1Execute + OnUpdate = FileProperties1Update + end + object ChangePriority1: TAction + Caption = 'Change Process Priority' + Hint = 'Change process priority' + ImageIndex = 8 + ShortCut = 16464 + OnExecute = ChangePriority1Execute + OnUpdate = Terminate1Update + end + object Copy1: TAction + Caption = 'Copy' + Hint = 'Copy to clipboard' + ImageIndex = 9 + ShortCut = 16451 + OnExecute = Copy1Execute + OnUpdate = SaveToFile1Update + end + object DumpHeap1: TAction + Caption = 'Heap List' + Hint = 'Heap list ' + ImageIndex = 11 + ShortCut = 16456 + OnExecute = DumpHeap1Execute + OnUpdate = Terminate1Update + end + object DumpMemory1: TAction + Caption = 'Memory List' + Hint = 'Virtual Memory list' + ImageIndex = 12 + ShortCut = 16461 + OnExecute = DumpMemory1Execute + OnUpdate = Terminate1Update + end + object DumpModules1: TAction + Caption = 'Modules list' + Hint = 'Lists all mapped modules' + ImageIndex = 7 + ShortCut = 16460 + OnExecute = DumpModules1Execute + end + object InfoTip1: TAction + Caption = 'InfoTip' + Hint = 'Listview infotips' + ImageIndex = 13 + OnExecute = InfoTip1Execute + end + object BeepOnChange1: TAction + Caption = 'Beep on change' + Hint = 'Beep on change in process list' + ImageIndex = 14 + OnExecute = BeepOnChange1Execute + end + object CheckImageBase1: TAction + Caption = 'Check ImageBase' + Hint = 'Check ImageBase' + ImageIndex = 16 + OnExecute = CheckImageBase1Execute + end + object DumpPE1: TAction + Caption = 'Dump PE file' + Hint = 'Dump PE file' + ImageIndex = 22 + ShortCut = 16452 + OnExecute = DumpPE1Execute + OnUpdate = DumpPE1Update + end + object SendMail1: TAction + Caption = 'Support' + ImageIndex = 24 + OnExecute = SendMail1Execute + end + end + object PopupMenu: TPopupMenu + Images = GlobalModule.ToolbarImagesList + Left = 72 + Top = 312 + object RefreshItemP: TMenuItem + Action = Refresh1 + end + object N5: TMenuItem + Caption = '-' + end + object CopyItemP: TMenuItem + Action = Copy1 + end + object SaveItemP: TMenuItem + Action = SaveToFile1 + end + object ChangePriorityItemP: TMenuItem + Action = ChangePriority1 + end + object DumpHeapItemP: TMenuItem + Action = DumpHeap1 + end + object MemoryList1: TMenuItem + Action = DumpMemory1 + end + object Moduleslist2: TMenuItem + Action = DumpModules1 + end + object DumpPEfile2: TMenuItem + Action = DumpPE1 + Default = True + end + object TerminateItemP: TMenuItem + Action = Terminate1 + end + object N3: TMenuItem + Caption = '-' + end + object PropertyItemP: TMenuItem + Action = FileProperties1 + end + end +end diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/Main.pas b/official/2.1.1/examples/windows/delphitools/toolhelpview/Main.pas new file mode 100644 index 0000000..b8cf640 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/toolhelpview/Main.pas @@ -0,0 +1,936 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is Main.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2006-05-30 00:02:45 +0200 (mar., 30 mai 2006) $ } +{ } +{**************************************************************************************************} + +unit Main; + +{$I jcl.inc} +{$IFDEF SUPPORTS_PLATFORM_WARNINGS} + {$WARN SYMBOL_PLATFORM OFF} +{$ENDIF SUPPORTS_PLATFORM_WARNINGS} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ComCtrls, ImgList, StdCtrls, ToolWin, Menus, ActnList, ExtCtrls, IniFiles; + +const + UM_ACTIVATEMAINFORM = WM_USER + $100; + +type + TMainForm = class(TForm) + ProcessListView: TListView; + PriorityImagesList: TImageList; + MainMenu: TMainMenu; + ActionList1: TActionList; + Exit1: TAction; + ExitItem: TMenuItem; + File1: TMenuItem; + StatusBar: TStatusBar; + Tools1: TMenuItem; + Terminate1: TAction; + TerminateItem: TMenuItem; + Refresh1: TAction; + RefreshItem: TMenuItem; + About1: TAction; + Help1: TMenuItem; + AboutItem: TMenuItem; + HotTrack1: TAction; + HotTrackItem: TMenuItem; + SaveToFile1: TAction; + SaveItem: TMenuItem; + N2: TMenuItem; + FileProperties1: TAction; + FilePropItem: TMenuItem; + PopupMenu: TPopupMenu; + RefreshItemP: TMenuItem; + SaveItemP: TMenuItem; + TerminateItemP: TMenuItem; + PropertyItemP: TMenuItem; + N3: TMenuItem; + ChangePriority1: TAction; + ChangePriorityItem: TMenuItem; + N5: TMenuItem; + ChangePriorityItemP: TMenuItem; + BottomPanel: TPanel; + ModulesListView: TListView; + ThreadsListView: TListView; + Splitter2: TSplitter; + Splitter1: TSplitter; + Views1: TMenuItem; + N1: TMenuItem; + Copy1: TAction; + CopyItem: TMenuItem; + CopyItemP: TMenuItem; + DumpHeap1: TAction; + DumpHeapItem: TMenuItem; + DumpHeapItemP: TMenuItem; + DumpMemory1: TAction; + DumpMemory11: TMenuItem; + MemoryList1: TMenuItem; + Options1: TMenuItem; + CoolBar1: TCoolBar; + ToolBar1: TToolBar; + RefreshButton: TToolButton; + HottrackButton: TToolButton; + ToolButton7: TToolButton; + CopyButton: TToolButton; + SaveButton: TToolButton; + ToolButton3: TToolButton; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton4: TToolButton; + ChangePriButton: TToolButton; + KillButton: TToolButton; + PropertyButton: TToolButton; + ToolButton5: TToolButton; + InfoTip1: TAction; + ToolButton8: TToolButton; + InfoTip2: TMenuItem; + BeepOnChange1: TAction; + ToolButton9: TToolButton; + Beeponchange2: TMenuItem; + CheckImageBase1: TAction; + ToolButton11: TToolButton; + CheckImageBase2: TMenuItem; + DumpModules1: TAction; + ToolButton6: TToolButton; + Moduleslist1: TMenuItem; + N4: TMenuItem; + Moduleslist2: TMenuItem; + DumpPE1: TAction; + DumpPEfile1: TMenuItem; + ToolButton10: TToolButton; + DumpPEfile2: TMenuItem; + SendMail1: TAction; + Support1: TMenuItem; + procedure FormCreate(Sender: TObject); + procedure ProcessListViewCompare(Sender: TObject; Item1, + Item2: TListItem; Data: Integer; var Compare: Integer); + procedure ProcessListViewColumnClick(Sender: TObject; + Column: TListColumn); + procedure Exit1Execute(Sender: TObject); + procedure Terminate1Execute(Sender: TObject); + procedure Refresh1Execute(Sender: TObject); + procedure About1Execute(Sender: TObject); + procedure Terminate1Update(Sender: TObject); + procedure HotTrack1Execute(Sender: TObject); + procedure SaveToFile1Update(Sender: TObject); + procedure SaveToFile1Execute(Sender: TObject); + procedure FileProperties1Update(Sender: TObject); + procedure FileProperties1Execute(Sender: TObject); + procedure ProcessListViewEnter(Sender: TObject); + procedure ChangePriority1Execute(Sender: TObject); + procedure Copy1Execute(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure StatusBarResize(Sender: TObject); + procedure DumpHeap1Execute(Sender: TObject); + procedure DumpMemory1Execute(Sender: TObject); + procedure ProcessListViewSelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); + procedure ModulesListViewSelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); + procedure ProcessListViewInfoTip(Sender: TObject; Item: TListItem; + var InfoTip: string); + procedure ModulesListViewInfoTip(Sender: TObject; Item: TListItem; + var InfoTip: string); + procedure InfoTip1Execute(Sender: TObject); + procedure BeepOnChange1Execute(Sender: TObject); + procedure CheckImageBase1Execute(Sender: TObject); + procedure ModulesListViewCustomDrawItem(Sender: TCustomListView; + Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); + procedure DumpModules1Execute(Sender: TObject); + procedure DumpPE1Update(Sender: TObject); + procedure ProcessListViewDblClick(Sender: TObject); + procedure DumpPE1Execute(Sender: TObject); + procedure SendMail1Execute(Sender: TObject); + procedure CoolBar1Resize(Sender: TObject); + private + FDisableUpdate: Boolean; + FProcess_Cnt, FThreads_Cnt, FModules_Cnt, FModules_Size: LongWord; + FIniFile: TIniFile; + procedure BuildModulesList(ProcessID: DWORD); + procedure BuildProcessList(Rebuild: Boolean = False); + procedure BuildThreadsList(ProcessID: DWORD); + function CheckProcessesChange: Boolean; + function FocusedFileName: TFileName; + procedure KillProcess(ProcessID: DWORD); + procedure LoadSettings; + procedure RebuildViewsMenuHotKeys; + procedure SaveSettings; + function SummaryInfo: string; + procedure TimerRefresh; + procedure UpdateListViewsOptions; + procedure UpdateStatusLine(SummaryOnly: Boolean = False); + procedure ViewsMenuClick(Sender: TObject); + procedure WMTimer(var Msg: TWMTimer); message WM_TIMER; + procedure WMMenuChar(var Msg: TWMMenuChar); message WM_MENUCHAR; + procedure UMActivateMainForm(var Msg: TMessage); message UM_ACTIVATEMAINFORM; + public + procedure AddToViewsMenu(AForm: TForm; const ACaption: string); + procedure DeleteFromViewsMenu(AForm: TForm); + end; + +var + MainForm: TMainForm; + +implementation + +{$R *.DFM} + +uses + TLHelp32, About, ShellAPI, ChangePriority, HeapDump, MemoryDump, Global, + CommCtrl, JclShell, JclSysInfo, JclFileUtils, JclAppInst, ModulesDump, + ToolsUtils, FindDlg, PsApi; + +resourcestring + sCantOpenForTerminate = 'Can''t open this process for terminate.'; + sKill = 'Do you really want to kill process "%s" ?'; + sNotFound = 'Not found'; + sSaveProcessesList = 'ToolHelp process list'; + sSaveModulesList = 'Modules used by process %s'; + sSaveThreadsList = 'Threads created by process %s'; + sWaitTimeout = 'Timeout.'; + sProcessesSummary = 'Processes: %d, Threads: %d'; + sModulesSummary = 'Cnt: %d, Tot.Size: %.0n'; + sNotRelocated = '[base]'; + +const + PROCESS_CLASS_IDLE = 4; + PROCESS_CLASS_NORMAL = 8; + PROCESS_CLASS_HIGH = 13; + PROCESS_CLASS_TIMECRITICAL = 24; + +function GetPriorityIconIndex(Priority: DWORD): Integer; +begin + case Priority of + PROCESS_CLASS_IDLE: Result := 0; + PROCESS_CLASS_HIGH: Result := 1; + PROCESS_CLASS_TIMECRITICAL: Result := 2; + else + Result := -1; + end; +end; + +function GetProcessVersion(Version: DWORD): string; +var + C: array[0..2] of Char; +begin + C[0] := Chr(Lo(LOWORD(Version))); + C[1] := Chr(Hi(LOWORD(Version))); + if C[0] < #32 then C[0] := '_'; + if C[1] < #32 then C[1] := '_'; + C[2] := #0; + Result := Format('%s %d.%d', [C, Hi(HIWORD(Version)), Lo(HIWORD(Version))]); +end; + +{ TMainForm } + +procedure TMainForm.FormCreate(Sender: TObject); +var + FileInfo: TSHFileInfo; + ImageListHandle: THandle; +begin + {$IFDEF COMPILER5_UP} + ProcessListView.OnInfoTip := ProcessListViewInfoTip; + ModulesListView.OnInfoTip := ModulesListViewInfoTip; + {$ELSE COMPILER5_UP} + InfoTip1.Visible := False; + {$ENDIF COMPILER5_UP} + FIniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')); + LoadSettings; + ImageListHandle := SHGetFileInfo('', 0, FileInfo, SizeOf(FileInfo), + SHGFI_SYSICONINDEX or SHGFI_SMALLICON); + SendMessage(ProcessListView.Handle, LVM_SETIMAGELIST, LVSIL_SMALL, ImageListHandle); + SetTimer(Handle, 1, 500, nil); + BuildProcessList; +end; + +procedure TMainForm.FormDestroy(Sender: TObject); +begin + SaveSettings; + FIniFile.UpdateFile; + FIniFile.Free; + Win32Check(KillTimer(Handle, 1)); +end; + +procedure TMainForm.BuildProcessList(Rebuild: Boolean = False); +var + SnapProcHandle, ProcessHandle: THandle; + ProcessEntry: TProcessEntry32; + Next: Boolean; + FileInfo: TSHFileInfo; + ProcessVersion: DWORD; + FindItem: TListItem; + I: Integer; + ProcList: TList; + Added, Changed: Boolean; + + procedure CheckChanged; +begin + if ProcessListView.ItemFocused = FindItem then Changed := True; +end; + +begin + if FDisableUpdate then Exit; + ProcList := TList.Create; + Added := False; + Changed := False; + with ProcessListView do + try + FDisableUpdate := True; + try + if Rebuild then + begin + Screen.Cursor := crHourGlass; + Items.BeginUpdate; + Items.Clear; + FProcess_Cnt := 0; + FThreads_Cnt := 0; + end else + SendMessage(Handle, WM_SETREDRAW, 0, 0); + SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); + if SnapProcHandle <> THandle(-1) then + begin + ProcessEntry.dwSize := Sizeof(ProcessEntry); + Next := Process32First(SnapProcHandle, ProcessEntry); + while Next do + begin + ProcList.Add(Pointer(ProcessEntry.th32ProcessID)); + FindItem := FindData(0, Pointer(ProcessEntry.th32ProcessID), True, False); + with ProcessEntry do if FindItem = nil then + begin // New Process + Added := True; + if IsWin2k then + begin + ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, th32ProcessID); + if Handle <> 0 then + begin + if GetModuleFileNameEx(ProcessHandle, 0, szExeFile, SizeOf(szExeFile)) = 0 then + StrPCopy(szExeFile, '[Idle]'); + CloseHandle(ProcessHandle); + end; + end; + ProcessVersion := SHGetFileInfo(szExeFile, 0, FileInfo, Sizeof(FileInfo), SHGFI_EXETYPE); + SHGetFileInfo(szExeFile, 0, FileInfo, Sizeof(FileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON); + with Items.Add, ProcessEntry do + begin + Caption := AnsiLowerCase(ExtractFileName(szExeFile)); + Data := Pointer(th32ProcessID); + ImageIndex := FileInfo.iIcon; + StateIndex := GetPriorityIconIndex(pcPriClassBase); + SubItems.AddObject(Format('%.8x', [th32ProcessID]), Pointer(th32ProcessID)); + SubItems.AddObject(Format('%d', [pcPriClassBase]), Pointer(pcPriClassBase)); + SubItems.AddObject(Format('%d', [cntThreads]), Pointer(cntThreads)); + SubItems.AddObject(GetProcessVersion(ProcessVersion), Pointer(ProcessVersion)); + SubItems.Add(szExeFile); + SubItems.AddObject(Format('(%.8x)', [th32ParentProcessID]), Pointer(th32ParentProcessID)); + Inc(FProcess_Cnt); + Inc(FThreads_Cnt, cntThreads); + end; + end else + with FindItem do + begin // Any changes in existing process ? + if SubItems.Objects[1] <> Pointer(pcPriClassBase) then + begin + SubItems.Objects[1] := Pointer(pcPriClassBase); + SubItems.Strings[1] := Format('%d', [pcPriClassBase]); + StateIndex := GetPriorityIconIndex(pcPriClassBase); + end; + if SubItems.Objects[2] <> Pointer(cntThreads) then + begin + Inc(FThreads_Cnt, cntThreads - DWORD(SubItems.Objects[2])); + SubItems.Objects[2] := Pointer(cntThreads); + SubItems.Strings[2] := Format('%d', [cntThreads]); + CheckChanged; + end; + end; + Next := Process32Next(SnapProcHandle, ProcessEntry); + end; + CloseHandle(SnapProcHandle); + end; + if Added then // find the names of parent processes + begin + for I := 0 to Items.Count - 1 do + begin + FindItem := FindData(0, Items[I].SubItems.Objects[5], True, False); + if FindItem <> nil then Items[I].SubItems[5] := FindItem.Caption; + end; + AlphaSort; + end; + for I := Items.Count - 1 downto 0 do // delete non-existing processes + if ProcList.IndexOf(Items[I].Data) = -1 then + begin + Dec(FProcess_Cnt); + Dec(FThreads_Cnt, DWORD(Items[I].SubItems.Objects[2])); + Items.Delete(I); + end; + if GetNextItem(nil, sdAll, [isSelected]) = nil then + begin + if ItemFocused = nil then ItemFocused := Items[0]; + ItemFocused.Selected := True; + end else + if Changed then BuildThreadsList(DWORD(ItemFocused.Data)); + UpdateStatusLine(True); + finally + if Rebuild then + Items.EndUpdate + else + SendMessage(Handle, WM_SETREDRAW, 1, 0); + end; + finally + FDisableUpdate := False; + ProcList.Free; + Screen.Cursor := crDefault; + end; +end; + +procedure TMainForm.BuildThreadsList(ProcessID: DWORD); +var + SnapProcHandle: THandle; + ThreadEntry: TThreadEntry32; + Next: Boolean; +begin + with ThreadsListView do + try + Items.BeginUpdate; + Items.Clear; + SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0); + if SnapProcHandle <> THandle(-1) then + begin + ThreadEntry.dwSize := Sizeof(ThreadEntry); + Next := Thread32First(SnapProcHandle, ThreadEntry); + while Next do + begin + if ThreadEntry.th32OwnerProcessID = ProcessID then + with Items.Add, ThreadEntry do + begin + Caption := Format('%.8x', [th32ThreadID]); + Data := Pointer(th32ThreadID); + SubItems.AddObject(Format('%d', [tpDeltaPri]), Pointer(tpDeltaPri)); + end; + Next := Thread32Next(SnapProcHandle, ThreadEntry); + end; + CloseHandle(SnapProcHandle); + end; + AlphaSort; + ListViewFocusFirstItem(ThreadsListView); + finally + Items.EndUpdate; + end; +end; + +procedure TMainForm.BuildModulesList(ProcessID: DWORD); +var + SnapProcHandle: THandle; + ModuleEntry: TModuleEntry32; + Next: Boolean; + ImageBase: DWORD; +begin + with ModulesListView do + try + Items.BeginUpdate; + Items.Clear; + FModules_Cnt := 0; + FModules_Size := 0; + SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, ProcessID); + if SnapProcHandle <> THandle(-1) then + begin + ModuleEntry.dwSize := Sizeof(ModuleEntry); + Next := Module32First(SnapProcHandle, ModuleEntry); + while Next do + begin + with Items.Add, ModuleEntry do + begin + Caption := AnsiLowerCase(szModule); + SubItems.AddObject(Format('%.8x', [th32ModuleID]), Pointer(th32ModuleID)); + if CheckImageBase1.Checked then + begin + ImageBase := GetImageBase(szExePath); + if ImageBase = DWORD(modBaseAddr) then + SubItems.AddObject(sNotRelocated, Pointer(0)) + else + SubItems.AddObject(Format('%.8x', [ImageBase]), Pointer(ImageBase)); + end else + SubItems.Add(''); + SubItems.AddObject(Format('%p', [modBaseAddr]), Pointer(modBaseAddr)); + SubItems.AddObject(Format('%.0n', [IntToExtended(modBaseSize)]), Pointer(modBaseSize)); + SubItems.AddObject(Format('%d', [GlblcntUsage]), Pointer(GlblcntUsage)); + SubItems.AddObject(Format('%d', [ProccntUsage]), Pointer(ProccntUsage)); + SubItems.AddObject(Format('%.8x', [hModule]), Pointer(hModule)); + SubItems.Add(szExePath); + Inc(FModules_Cnt); + Inc(FModules_Size, modBaseSize); + end; + Next := Module32Next(SnapProcHandle, ModuleEntry); + end; + CloseHandle(SnapProcHandle); + end; + AlphaSort; + ListViewFocusFirstItem(ModulesListView); + finally + Items.EndUpdate; + end; +end; + +function TMainForm.CheckProcessesChange: Boolean; +var + SnapProcHandle: THandle; + ProcessEntry: TProcessEntry32; + Next: Boolean; + ProcessCount: Integer; + FindItem: TListItem; +begin + Result := False; + ProcessCount := 0; + SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); + if SnapProcHandle <> THandle(-1) then + begin + ProcessEntry.dwSize := Sizeof(ProcessEntry); + Next := Process32First(SnapProcHandle, ProcessEntry); + while Next and (not Result) do + begin + Inc(ProcessCount); + FindItem := ProcessListView.FindData(0, Pointer(ProcessEntry.th32ProcessID), True, False); + if FindItem = nil then + Result := True + else + with FindItem do + Result := (SubItems.Objects[1] <> Pointer(ProcessEntry.pcPriClassBase)) or + (SubItems.Objects[2] <> Pointer(ProcessEntry.cntThreads)); + Next := Process32Next(SnapProcHandle, ProcessEntry); + end; + CloseHandle(SnapProcHandle); + end; + Result := Result or (ProcessCount <> ProcessListView.Items.Count); +end; + +function TMainForm.FocusedFileName: TFileName; +begin + if (ActiveControl = ProcessListView) and (ProcessListView.ItemFocused <> nil) then + Result := ProcessListView.ItemFocused.SubItems[4] else + if (ActiveControl = ModulesListView) and (ModulesListView.ItemFocused <> nil) then + Result := ModulesListView.ItemFocused.SubItems[7] else + Result := ''; +end; + +procedure TMainForm.KillProcess(ProcessID: DWORD); +var + ProcessHandle: THandle; +begin + ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS{PROCESS_TERMINATE}, False, ProcessID); + if ProcessHandle <> 0 then + begin + TerminateProcess(ProcessHandle, 0); + if WaitForSingleObject(ProcessHandle, 10000) = WAIT_TIMEOUT then + MessBox(sWaitTimeout, MB_ICONWARNING); + CloseHandle(ProcessHandle); + BuildProcessList; + end else + MessBox(sCantOpenForTerminate, MB_ICONERROR); +end; + +function TMainForm.SummaryInfo: string; +begin + if (ActiveControl = ProcessListView) then + Result := Format(sProcessesSummary , [FProcess_Cnt, FThreads_Cnt]) else + if (ActiveControl = ModulesListView) then + Result := Format(sModulesSummary , [FModules_Cnt, IntToExtended(FModules_Size)]) else + Result := ''; +end; + +procedure TMainForm.TimerRefresh; +begin + if not Application.Terminated and IsWindowEnabled(Handle) and CheckProcessesChange then + begin + BuildProcessList; + if BeepOnChange1.Checked then MessageBeep(MB_OK); + end; +end; + +procedure TMainForm.UpdateStatusLine(SummaryOnly: Boolean = False); +var + FileName: TFileName; +begin + FileName := FocusedFileName; + with StatusBar.Panels do + begin + BeginUpdate; + if not SummaryOnly then + begin + Items[0].Text := ''; + Items[1].Text := ''; + if VersionResourceAvailable(FileName) then + try + with TJclFileVersionInfo.Create(FileName) do + try + StatusBar.Panels.Items[0].Text := FileVersion; + StatusBar.Panels.Items[1].Text := FileDescription; + finally + Free; + end; + except + end else + Items[0].Text := sNotFound; + end; + Items[2].Text := SummaryInfo; + EndUpdate; + end; +end; + +procedure TMainForm.ProcessListViewCompare(Sender: TObject; Item1, + Item2: TListItem; Data: Integer; var Compare: Integer); +begin + LVCompare(TListView(Sender), Item1, Item2, Compare); +end; + +procedure TMainForm.ProcessListViewColumnClick(Sender: TObject; + Column: TListColumn); +begin + LVColumnClick(Column); +end; + +procedure TMainForm.ProcessListViewEnter(Sender: TObject); +begin + UpdateStatusLine; +end; + +procedure TMainForm.Exit1Execute(Sender: TObject); +begin + Close; +end; + +procedure TMainForm.BeepOnChange1Execute(Sender: TObject); +begin + with BeepOnChange1 do + Checked := not Checked; +end; + +procedure TMainForm.HotTrack1Execute(Sender: TObject); +begin + with HotTrack1 do + begin + Checked := not Checked; + UpdateListViewsOptions; + end; +end; + +procedure TMainForm.InfoTip1Execute(Sender: TObject); +begin + with InfoTip1 do + begin + Checked := not Checked; + UpdateListViewsOptions; + end; +end; + +procedure TMainForm.CheckImageBase1Execute(Sender: TObject); +begin + with CheckImageBase1 do + begin + Checked := not Checked; + ProcessListViewSelectItem(nil, ProcessListView.Selected, Assigned(ProcessListView.Selected)); + end; +end; + +procedure TMainForm.Terminate1Execute(Sender: TObject); +begin + with ProcessListView do if (ItemFocused <> nil) and + (MessBoxFmt(sKill, [ItemFocused.Caption], MB_ICONEXCLAMATION or MB_YESNO or MB_DEFBUTTON2) = ID_YES) then + KillProcess(DWORD(ItemFocused.Data)); +end; + +procedure TMainForm.Refresh1Execute(Sender: TObject); +begin + BuildProcessList(True); +end; + +procedure TMainForm.About1Execute(Sender: TObject); +begin + ShowToolsAboutBox; +end; + +procedure TMainForm.ChangePriority1Execute(Sender: TObject); +begin + with TChangePriorityDlg.Create(Application) do + try + ProcessID := DWORD(ProcessListView.ItemFocused.Data); + ShowModal; + finally + Free; + end; +end; + +procedure TMainForm.Terminate1Update(Sender: TObject); +begin + TAction(Sender).Enabled := (ActiveControl = ProcessListView) and + (ProcessListView.ItemFocused <> nil); +end; + +procedure TMainForm.SaveToFile1Update(Sender: TObject); +begin + TAction(Sender).Enabled := ActiveControl is TListView; +end; + +procedure TMainForm.SaveToFile1Execute(Sender: TObject); +var + FileName: string; +begin + if ActiveControl = ProcessListView then + FileName := sSaveProcessesList else + if ActiveControl = ThreadsListView then + FileName := Format(sSaveThreadsList, [ProcessListView.ItemFocused.Caption]) else + if ActiveControl = ModulesListView then + FileName := Format(sSaveModulesList, [ProcessListView.ItemFocused.Caption]); + GlobalModule.ListViewToFile(ActiveControl as TListView, FileName); +end; + +procedure TMainForm.FileProperties1Update(Sender: TObject); +begin + FileProperties1.Enabled := + (ActiveControl = ProcessListView) or (ActiveControl = ModulesListView); +end; + +procedure TMainForm.FileProperties1Execute(Sender: TObject); +begin + DisplayPropDialog(Application.Handle, FocusedFileName); +end; + +procedure TMainForm.AddToViewsMenu(AForm: TForm; const ACaption: string); +var + Item: TMenuItem; +begin + Item := TMenuItem.Create(Views1); + Item.Caption := ACaption; + Item.Tag := Integer(AForm); + Item.OnClick := ViewsMenuClick; + Views1.Add(Item); + RebuildViewsMenuHotKeys; +end; + +procedure TMainForm.DeleteFromViewsMenu(AForm: TForm); +var + I: Integer; +begin + with Views1 do + for I := 0 to Count - 1 do + if Pointer(Items[I].Tag) = AForm then + begin + Items[I].Free; + System.Break; + end; + RebuildViewsMenuHotKeys; +end; + +procedure TMainForm.ViewsMenuClick(Sender: TObject); +begin + TForm(TMenuItem(Sender).Tag).BringToFront; +end; + +procedure TMainForm.RebuildViewsMenuHotKeys; +var + I: Integer; +begin + for I := 0 to Views1.Count - 1 do + if I < 9 then + Views1.Items[I].ShortCut := ShortCut(I + 49, [ssAlt]) + else + Views1.Items[I].ShortCut := 0; + Views1.Visible := Views1.Count > 0; +end; + +procedure TMainForm.Copy1Execute(Sender: TObject); +begin + GlobalModule.ListViewToClipboard(ActiveControl as TListView); +end; + +procedure TMainForm.WMTimer(var Msg: TWMTimer); +begin + if Msg.TimerID = 1 then + begin + TimerRefresh; + Msg.Result := 0; + end else inherited; +end; + +procedure TMainForm.WMMenuChar(var Msg: TWMMenuChar); +begin + inherited; + if Msg.Result = MNC_IGNORE then + PostMessage(Handle, UM_ACTIVATEMAINFORM, 0, 0); +end; + +procedure TMainForm.UMActivateMainForm(var Msg: TMessage); +begin + BringToFront; +end; + +procedure TMainForm.StatusBarResize(Sender: TObject); +begin + with StatusBar do + Panels[1].Width := Width - Panels[0].Width - Panels[2].Width; +end; + +procedure TMainForm.DumpHeap1Execute(Sender: TObject); +begin + FDisableUpdate := True; + try + with THeapDumpForm.Create(Application) do + begin + with ProcessListView.ItemFocused do SetParams(DWORD(Data), Caption); + Show; + end; + finally + FDisableUpdate := False; + end; +end; + +procedure TMainForm.DumpMemory1Execute(Sender: TObject); +begin + FDisableUpdate := True; + try + with TMemoryDumpForm.Create(Application) do + try + with ProcessListView.ItemFocused do SetParams(DWORD(Data), Caption); + Show; + except + Free; + raise + end; + finally + FDisableUpdate := False; + end; +end; + +procedure TMainForm.ProcessListViewSelectItem(Sender: TObject; + Item: TListItem; Selected: Boolean); +begin + if Selected then + begin + BuildThreadsList(DWORD(Item.Data)); + BuildModulesList(DWORD(Item.Data)); + UpdateStatusLine; + end; +end; + +procedure TMainForm.ModulesListViewSelectItem(Sender: TObject; + Item: TListItem; Selected: Boolean); +begin + if Selected and TWinControl(Sender).Focused then UpdateStatusLine; +end; + +procedure TMainForm.ProcessListViewInfoTip(Sender: TObject; + Item: TListItem; var InfoTip: string); +begin + InfoTip := InfoTipVersionString(Item.SubItems[4]); +end; + +procedure TMainForm.ModulesListViewInfoTip(Sender: TObject; + Item: TListItem; var InfoTip: string); +begin + InfoTip := InfoTipVersionString(Item.SubItems[7]); +end; + +procedure TMainForm.LoadSettings; +begin + with FIniFile do + begin + Left := ReadInteger(Name, 'Left', Left); + Top := ReadInteger(Name, 'Top', Top); + Width := ReadInteger(Name, 'Width', Width); + Height := ReadInteger(Name, 'Height', Height); + HotTrack1.Checked := ReadBool('Options', HotTrack1.Name, HotTrack1.Checked); + InfoTip1.Checked := ReadBool('Options', InfoTip1.Name, InfoTip1.Checked); + BeepOnChange1.Checked := ReadBool('Options', BeepOnChange1.Name, BeepOnChange1.Checked); + CheckImageBase1.Checked := ReadBool('Options', CheckImageBase1.Name, CheckImageBase1.Checked); + end; + UpdateListViewsOptions; +end; + +procedure TMainForm.SaveSettings; +begin + with FIniFile do + begin + WriteInteger(Name, 'Left', Left); + WriteInteger(Name, 'Top', Top); + WriteInteger(Name, 'Width', Width); + WriteInteger(Name, 'Height', Height); + WriteBool('Options', HotTrack1.Name, HotTrack1.Checked); + WriteBool('Options', InfoTip1.Name, InfoTip1.Checked); + WriteBool('Options', BeepOnChange1.Name, BeepOnChange1.Checked); + WriteBool('Options', CheckImageBase1.Name, CheckImageBase1.Checked); + end; +end; + +procedure TMainForm.UpdateListViewsOptions; +begin + ProcessListView.HotTrack := HotTrack1.Checked; + ThreadsListView.HotTrack := HotTrack1.Checked; + ModulesListView.HotTrack := HotTrack1.Checked; + ProcessListView.ShowHint := InfoTip1.Checked; + ThreadsListView.ShowHint := InfoTip1.Checked; + ModulesListView.ShowHint := InfoTip1.Checked; +end; + +procedure TMainForm.ModulesListViewCustomDrawItem(Sender: TCustomListView; + Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); +begin + if Item.SubItems.Objects[1] <> nil then + Sender.Canvas.Font.Style := [fsunderline]; +end; + +procedure TMainForm.DumpModules1Execute(Sender: TObject); +begin + if not Assigned(ModulesDumpForm) then + ModulesDumpForm := TModulesDumpForm.Create(Application); + ModulesDumpForm.Show; +end; + +procedure TMainForm.DumpPE1Update(Sender: TObject); +begin + DumpPE1.Enabled := GlobalModule.PeViewerRegistred and (Length(FocusedFileName) > 0); +end; + +procedure TMainForm.ProcessListViewDblClick(Sender: TObject); +begin + DumpPE1.Execute; +end; + +procedure TMainForm.DumpPE1Execute(Sender: TObject); +begin + GlobalModule.ViewPE(FocusedFileName); +end; + +procedure TMainForm.SendMail1Execute(Sender: TObject); +begin + SendEmail; +end; + +procedure TMainForm.CoolBar1Resize(Sender: TObject); +begin + D4FixCoolBarResizePaint(Sender); +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/MemoryDump.dfm b/official/2.1.1/examples/windows/delphitools/toolhelpview/MemoryDump.dfm new file mode 100644 index 0000000..5b14849 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/toolhelpview/MemoryDump.dfm @@ -0,0 +1,282 @@ +inherited MemoryDumpForm: TMemoryDumpForm + Left = 206 + Top = 116 + Width = 654 + Height = 423 + Caption = 'MemoryDumpForm' + OldCreateOrder = True + OnCreate = FormCreate + OnDestroy = FormDestroy + PixelsPerInch = 96 + TextHeight = 13 + object Splitter1: TSplitter [0] + Left = 0 + Top = 191 + Width = 646 + Height = 3 + Cursor = crVSplit + Align = alBottom + AutoSnap = False + ResizeStyle = rsUpdate + end + object Splitter2: TSplitter [1] + Left = 105 + Top = 26 + Width = 3 + Height = 165 + Cursor = crHSplit + AutoSnap = False + ResizeStyle = rsUpdate + end + inherited CoolBar: TCoolBar + Width = 646 + Bands = < + item + Control = ToolBar + ImageIndex = -1 + MinHeight = 22 + Width = 642 + end> + inherited ToolBar: TToolBar + Width = 629 + object ToolButton5: TToolButton + Left = 0 + Top = 0 + Action = Refresh1 + end + object ToolButton6: TToolButton + Left = 23 + Top = 0 + Width = 8 + Caption = 'ToolButton6' + ImageIndex = 1 + Style = tbsSeparator + end + object ToolButton1: TToolButton + Left = 31 + Top = 0 + Action = Copy1 + end + object ToolButton2: TToolButton + Left = 54 + Top = 0 + Action = SaveToFile1 + end + object ToolButton10: TToolButton + Left = 77 + Top = 0 + Action = Find1 + end + object ToolButton9: TToolButton + Left = 100 + Top = 0 + Action = SaveData1 + end + object ToolButton3: TToolButton + Left = 123 + Top = 0 + Width = 8 + Caption = 'ToolButton3' + ImageIndex = 4 + Style = tbsSeparator + end + object ToolButton4: TToolButton + Left = 131 + Top = 0 + Action = SelectAll1 + end + object ToolButton7: TToolButton + Left = 154 + Top = 0 + Width = 8 + Caption = 'ToolButton7' + ImageIndex = 18 + Style = tbsSeparator + end + object ToolButton8: TToolButton + Left = 162 + Top = 0 + Action = ViewAsText1 + Style = tbsCheck + end + end + end + object StatusBar: TStatusBar [3] + Left = 0 + Top = 377 + Width = 646 + Height = 19 + Panels = < + item + Width = 65 + end + item + Width = 130 + end + item + Width = 130 + end + item + Width = 50 + end> + SimplePanel = False + end + object PagesListView: TListView [4] + Left = 108 + Top = 26 + Width = 538 + Height = 165 + Align = alClient + AllocBy = 64 + Columns = < + item + Caption = 'Base' + Width = 80 + end + item + Caption = 'Protect' + Width = 75 + end + item + Caption = 'Allocation' + Width = 65 + end + item + Caption = 'Alloc.protect' + Width = 75 + end + item + Alignment = taRightJustify + Caption = 'Region size' + Width = 90 + end + item + Caption = 'State' + Width = 60 + end + item + Caption = 'ModuleName' + Width = 100 + end + item + Caption = 'Type' + end> + ColumnClick = False + HideSelection = False + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + PopupMenu = PopupMenu + SmallImages = GlobalModule.ToolbarImagesList + TabOrder = 1 + ViewStyle = vsReport + OnCustomDrawItem = PagesListViewCustomDrawItem + OnData = PagesListViewData + OnSelectItem = PagesListViewSelectItem + end + object DumpListView: TListView [5] + Left = 0 + Top = 194 + Width = 646 + Height = 183 + Align = alBottom + Columns = < + item + Caption = 'Address' + Width = 80 + end + item + Caption = 'Data' + Width = 350 + end + item + Caption = 'ASCII' + Width = 130 + end> + ColumnClick = False + Font.Charset = EASTEUROPE_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Courier New' + Font.Style = [] + MultiSelect = True + OwnerData = True + ReadOnly = True + RowSelect = True + ParentFont = False + PopupMenu = PopupMenu + TabOrder = 2 + ViewStyle = vsReport + OnData = DumpListViewData + end + object MemoryTreeView: TTreeView [6] + Left = 0 + Top = 26 + Width = 105 + Height = 165 + Align = alLeft + Images = GlobalModule.ToolbarImagesList + Indent = 19 + ReadOnly = True + TabOrder = 4 + OnChange = MemoryTreeViewChange + OnGetSelectedIndex = MemoryTreeViewGetSelectedIndex + end + inherited ActionList: TActionList + inherited Refresh1: TAction + OnExecute = Refresh1Execute + end + object ViewAsText1: TAction + Caption = 'View as text' + Hint = 'View as text' + ImageIndex = 23 + ShortCut = 16468 + OnExecute = ViewAsText1Execute + end + object SaveData1: TAction + Caption = 'Save data' + Hint = 'Save region data' + ImageIndex = 25 + ShortCut = 16452 + OnExecute = SaveData1Execute + OnUpdate = SaveData1Update + end + end + inherited PopupMenu: TPopupMenu + object Refresh2: TMenuItem + Action = Refresh1 + end + object N1: TMenuItem + Caption = '-' + end + object Copy2: TMenuItem + Action = Copy1 + end + object Save1: TMenuItem + Action = SaveToFile1 + end + object Savedata2: TMenuItem + Action = SaveData1 + end + object N2: TMenuItem + Caption = '-' + end + object Selectall2: TMenuItem + Action = SelectAll1 + end + object N3: TMenuItem + Caption = '-' + end + object Viewastext2: TMenuItem + Action = ViewAsText1 + end + end + object SaveDataDialog: TSaveDialog + DefaultExt = 'bin' + Filter = 'Binary files (*.bin)|*.bin|All files (*.*)|*.*' + Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing] + Left = 104 + Top = 224 + end +end diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/MemoryDump.pas b/official/2.1.1/examples/windows/delphitools/toolhelpview/MemoryDump.pas new file mode 100644 index 0000000..3dafc32 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/toolhelpview/MemoryDump.pas @@ -0,0 +1,518 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is MemoryDump.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2008-09-09 21:32:17 +0200 (mar., 09 sept. 2008) $ } +{ } +{**************************************************************************************************} + +unit MemoryDump; + +{$I JCL.INC} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ComCtrls, ToolWin, ActnList, ExtCtrls, ViewTemplate, Menus; + +type + TMemoryInfo = packed record + MemInfo: TMemoryBasicInformation; + RepeatedItem, MappedFile: Boolean; + end; + + TMemoryDumpForm = class(TViewForm) + StatusBar: TStatusBar; + PagesListView: TListView; + Splitter1: TSplitter; + DumpListView: TListView; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + MemoryTreeView: TTreeView; + Splitter2: TSplitter; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + Refresh2: TMenuItem; + N1: TMenuItem; + Copy2: TMenuItem; + Save1: TMenuItem; + N2: TMenuItem; + Selectall2: TMenuItem; + ViewAsText1: TAction; + ToolButton7: TToolButton; + ToolButton8: TToolButton; + N3: TMenuItem; + Viewastext2: TMenuItem; + SaveData1: TAction; + ToolButton9: TToolButton; + Savedata2: TMenuItem; + SaveDataDialog: TSaveDialog; + ToolButton10: TToolButton; + procedure Refresh1Execute(Sender: TObject); + procedure DumpListViewData(Sender: TObject; Item: TListItem); + procedure PagesListViewSelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); + procedure FormDestroy(Sender: TObject); + procedure PagesListViewCustomDrawItem(Sender: TCustomListView; + Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); + procedure FormCreate(Sender: TObject); + procedure PagesListViewData(Sender: TObject; Item: TListItem); + procedure MemoryTreeViewChange(Sender: TObject; Node: TTreeNode); + procedure MemoryTreeViewGetSelectedIndex(Sender: TObject; + Node: TTreeNode); + procedure ViewAsText1Execute(Sender: TObject); + procedure SaveData1Update(Sender: TObject); + procedure SaveData1Execute(Sender: TObject); + private + FDumpBytesPerLine: Integer; + FProcessID: DWORD; + FProcess: THandle; + FFileName: TFileName; + FMemoryInfo: array of TMemoryInfo; + FModulesList: TStringList; + procedure BuildPagesList; + procedure BuildModulesList; + procedure UpdateDumpList; + public + procedure SetParams(ProcessID: DWORD; const FileName: TFileName); + end; + +var + MemoryDumpForm: TMemoryDumpForm; + +implementation + +uses Global, TLHelp32, ToolsUtils, FindDlg, JclBase; + +{$R *.DFM} + +resourcestring + sAllocations = 'Allocations'; + sCaption = 'Virtual Memory list - %s'; + sCommited = 'Comitted: %.0n'; + sCount = 'Count: %d'; + sModules = 'Modules'; + sReserved = 'Reserved: %.0n'; + +function AllocationProtectStr(P: DWORD): string; +begin + case P of + PAGE_NOACCESS: + Result := 'NoAccess'; + PAGE_READONLY: + Result := 'ReadOnly'; + PAGE_READWRITE: + Result := 'ReadWrite'; + PAGE_WRITECOPY: + Result := 'WriteCopy'; + PAGE_EXECUTE: + Result := 'Exec'; + PAGE_EXECUTE_READ: + Result := 'ExecRead'; + PAGE_EXECUTE_READWRITE: + Result := 'ExecReadWrite'; + PAGE_EXECUTE_WRITECOPY: + Result := 'ExecWriteCopy'; + PAGE_GUARD: + Result := 'Guard'; + PAGE_NOCACHE: + Result := 'NoCache'; + else + Result := ''; + end; +end; + +function StateStr(P: DWORD): string; +begin + case P of + MEM_COMMIT: + Result := 'Commit'; + MEM_FREE: + Result := 'Free'; + MEM_RESERVE: + Result := 'Reserve'; + else + Result := Format('%x', [P]); + end; +end; + +function TypeStr(P: DWORD): string; +begin + case P of + MEM_IMAGE: + Result := 'Image'; + MEM_MAPPED: + Result := 'Mapped'; + MEM_PRIVATE: + Result := 'Private'; + else + Result := Format('%x', [P]); + end; +end; + +function ImageIndexFromInfo(MemInfo: TMemoryInfo): Integer; +begin + with MemInfo do + if MappedFile then Result := 6 else + if RepeatedItem then Result := 21 else + Result := 19; +end; + +{ TMemoryDumpForm } + +procedure TMemoryDumpForm.FormCreate(Sender: TObject); +begin + inherited; + FModulesList := TStringList.Create; +end; + +procedure TMemoryDumpForm.FormDestroy(Sender: TObject); +begin + FModulesList.Free; + if FProcess <> 0 then CloseHandle(FProcess); +end; + +procedure TMemoryDumpForm.BuildPagesList; +var + AllocationsNode, ModulesNode, TempNode: TTreeNode; + LastAllocationBase: Pointer; + LastMappedFile: Boolean; + I, N, TotalCommit, TotalReserve: Integer; + + procedure EnumAllocations; +var + P: PChar; + MI: TMemoryBasicInformation; + Res: DWORD; + Count: Integer; +begin + FMemoryInfo := nil; + Count := 0; + P := Pointer(0); + Res := VirtualQueryEx(FProcess, P, MI, SizeOf(MI)); + if Res <> SizeOf(MI) then RaiseLastOSError; + while Res = SizeOf(MI) do + begin + if MI.AllocationBase <> nil then + begin + SetLength(FMemoryInfo, Count + 1); + FMemoryInfo[Count].MemInfo := MI; + Inc(Count); + end; + Inc(P, MI.RegionSize); + Res := VirtualQueryEx(FProcess, P, MI, SizeOf(MI)); + end; +end; + +begin + Screen.Cursor := crHourGlass; + try + PagesListView.Items.BeginUpdate; + PagesListView.Items.Count := 0; + MemoryTreeView.Items.BeginUpdate; + StatusBar.Panels.BeginUpdate; + try + EnumAllocations; + PagesListView.Items.Count := Length(FMemoryInfo); + + with MemoryTreeView.Items do + begin + Clear; + AllocationsNode := AddFirst(nil, sAllocations); + AllocationsNode.ImageIndex := 19; + ModulesNode := Add(nil, sModules); + ModulesNode.ImageIndex := 6; + LastAllocationBase := nil; + LastMappedFile := False; + for I := 0 to Length(FMemoryInfo) - 1 do + with FMemoryInfo[I] do + if LastAllocationBase <> MemInfo.AllocationBase then + begin + TempNode := AddChildObject(AllocationsNode, Format('%p', [MemInfo.AllocationBase]), Pointer(I)); + with TempNode do ImageIndex := Parent.ImageIndex; + LastAllocationBase := MemInfo.AllocationBase; + RepeatedItem := False; + N := FModulesList.IndexOfObject(LastAllocationBase); + if N <> -1 then + begin + TempNode := AddChildObject(ModulesNode, FModulesList[N], Pointer(I)); + with TempNode do ImageIndex := Parent.ImageIndex; + MappedFile := True; + end else + MappedFile := False; + LastMappedFile := MappedFile; + end else + begin + RepeatedItem := True; + MappedFile := LastMappedFile; + end; + end; + AllocationsNode.AlphaSort; + ModulesNode.AlphaSort; + + TotalCommit := 0; + TotalReserve := 0; + for I := 0 to Length(FMemoryInfo) - 1 do with FMemoryInfo[I].MemInfo do + case State of + MEM_COMMIT: Inc(TotalCommit, RegionSize); + MEM_RESERVE: Inc(TotalReserve, RegionSize); + end; + with StatusBar do + begin + Panels[0].Text := Format(sCount, [Length(FMemoryInfo)]); + Panels[1].Text := Format(sCommited, [IntToExtended(TotalCommit)]); + Panels[2].Text := Format(sReserved, [IntToExtended(TotalReserve)]); + end; + + ListViewFocusFirstItem(PagesListView); + finally + PagesListView.Items.EndUpdate; + MemoryTreeView.Items.EndUpdate; + StatusBar.Panels.EndUpdate; + end; + finally + Screen.Cursor := crDefault; + end; +end; + +procedure TMemoryDumpForm.BuildModulesList; +var + SnapProcHandle: THandle; + ModuleEntry: TModuleEntry32; + Next: Boolean; +begin + FModulesList.Clear; + SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, FProcessID); + if SnapProcHandle <> THandle(-1) then + begin + ModuleEntry.dwSize := SizeOf(ModuleEntry); + Next := Module32First(SnapProcHandle, ModuleEntry); + while Next do + begin + FModulesList.AddObject(ModuleEntry.szModule, Pointer(ModuleEntry.modBaseAddr)); + Next := Module32Next(SnapProcHandle, ModuleEntry); + end; + CloseHandle(SnapProcHandle); + end; +end; + +procedure TMemoryDumpForm.SetParams(ProcessID: DWORD; const FileName: TFileName); +begin + FProcessID := ProcessID; + FFileName := FileName; + Caption := Format(sCaption, [FFileName]); + Refresh1.Execute; +end; + +procedure TMemoryDumpForm.UpdateDumpList; +begin + with DumpListView do + begin + if ViewAsText1.Checked then + begin + FDumpBytesPerLine := 64; + Columns[1].Caption := 'Ansi text'; + Columns[2].Caption := 'Unicode text'; + end else + begin + FDumpBytesPerLine := 16; + Columns[1].Caption := 'Data'; + Columns[2].Caption := 'ASCII'; + end; + Items.Count := Integer(PagesListView.Selected.SubItems.Objects[3]) div FDumpBytesPerLine; + Invalidate; + end; +end; + +procedure TMemoryDumpForm.Refresh1Execute(Sender: TObject); +begin + if FProcess <> 0 then CloseHandle(FProcess); + FProcess := OpenProcess(PROCESS_ALL_ACCESS, False, FProcessID); + if FProcess = 0 then + begin + Close; + RaiseLastOSError; + end; + BuildModulesList; + BuildPagesList; +end; + +procedure TMemoryDumpForm.DumpListViewData(Sender: TObject; Item: TListItem); +var + Address: Pointer; + LineData: packed array[0..63] of Byte; + NR: DWORD; + Hex, Ascii, S: string; + I: Integer; + W: PWideChar; +begin + with TListView(Sender) do + if PagesListView.Selected <> nil then + begin + Address := Pointer(DWORD(FMemoryInfo[PagesListView.Selected.Index].MemInfo.BaseAddress) + DWORD(Item.Index * FDumpBytesPerLine)); + SetLength(Hex, 3 * SizeOf(LineData)); + SetLength(Ascii, 3 * SizeOf(LineData)); + Hex := ''; + Ascii := ''; + if ReadProcessMemory(FProcess, Address, @LineData, SizeOf(LineData), NR) and (NR = SizeOf(LineData)) then + begin + if ViewAsText1.Checked then + begin + for I := 0 to FDumpBytesPerLine - 1 do + begin + if LineData[I] >= 32 then + Hex := Hex + Chr(LineData[I]) + else + Hex := Hex + '.'; + end; + W := PWideChar(@LineData); + for I := 0 to FDumpBytesPerLine div 2 - 1 do + begin + SetLength(S, 1); + {$IFDEF SUPPORTS_UNICODE} + S := WideString(W^); + {$ELSE ~SUPPORTS_UNICODE} + WideCharToMultiByte(CP_ACP, 0, W, 1, PAnsiChar(S), 1, nil, nil); + {$ENDIF ~SUPPORTS_UNICODE} + S := PChar(S); + if Length(S) = 0 then S := '.'; + Ascii := Ascii + S; + Inc(W); + end; + end else + begin + for I := 0 to FDumpBytesPerLine - 1 do + begin + Hex := Hex + Format('%.2x ', [LineData[I]]); + if LineData[I] >= 32 then + Ascii := Ascii + Chr(LineData[I]) + else + Ascii := Ascii + '.'; + end; + end; + end; + Item.Caption := Format('%p', [Address]); + Item.SubItems.Add(Hex); + Item.SubItems.Add(Ascii); + end; +end; + +procedure TMemoryDumpForm.PagesListViewSelectItem(Sender: TObject; + Item: TListItem; Selected: Boolean); +begin + if Selected then + begin + if (DWORD(Item.SubItems.Objects[0]) = PAGE_NOACCESS) or + (DWORD(Item.SubItems.Objects[2]) = 0) then + begin + DumpListView.Items.Count := 0; + DumpListView.Invalidate; + end else + UpdateDumpList; + end; +end; + +procedure TMemoryDumpForm.PagesListViewData(Sender: TObject; Item: TListItem); +var + I: Integer; +begin + with Item, FMemoryInfo[Item.Index].MemInfo do + begin + Caption := Format('%p', [BaseAddress]); + SubItems.AddObject(AllocationProtectStr(Protect), Pointer(Protect)); + SubItems.AddObject(Format('%p', [AllocationBase]), AllocationBase); + SubItems.AddObject(AllocationProtectStr(AllocationProtect), Pointer(AllocationProtect)); + SubItems.AddObject(Format('%.0n', [IntToExtended(RegionSize)]), Pointer(RegionSize)); + SubItems.AddObject(StateStr(State), Pointer(State)); + I := FModulesList.IndexOfObject(AllocationBase); + if I <> - 1 then SubItems.Add(FModulesList[I]) else SubItems.Add(''); + SubItems.AddObject(TypeStr(Type_9), Pointer(Type_9)); + end; + Item.ImageIndex := ImageIndexFromInfo(FMemoryInfo[Item.Index]); +end; + +procedure TMemoryDumpForm.PagesListViewCustomDrawItem(Sender: TCustomListView; + Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); +begin + if DWORD(Item.SubItems.Objects[0]) = PAGE_NOACCESS then + Sender.Canvas.Font.Color := clBtnFace; +end; + +procedure TMemoryDumpForm.MemoryTreeViewChange(Sender: TObject; Node: TTreeNode); +begin + if Node.Level = 1 then + with PagesListView do + begin + while Assigned(Selected) do Selected.Selected := False; + ItemFocused := PagesListView.Items[Integer(Node.Data)]; + ItemFocused.Selected := True; + ItemFocused.MakeVisible(False); + end; +end; + +procedure TMemoryDumpForm.MemoryTreeViewGetSelectedIndex(Sender: TObject; + Node: TTreeNode); +begin + Node.SelectedIndex := Node.ImageIndex; +end; + +procedure TMemoryDumpForm.ViewAsText1Execute(Sender: TObject); +begin + with ViewAsText1 do + Checked := not Checked; + UpdateDumpList; +end; + +procedure TMemoryDumpForm.SaveData1Update(Sender: TObject); +begin + TAction(Sender).Enabled := (ActiveControl = PagesListView) and + (PagesListView.Selected <> nil) and + (DWORD(PagesListView.Selected.SubItems.Objects[0]) <> PAGE_NOACCESS); +end; + +procedure TMemoryDumpForm.SaveData1Execute(Sender: TObject); +var + MS: TMemoryStream; + NR: DWORD; +begin + with SaveDataDialog, FMemoryInfo[PagesListView.Selected.Index].MemInfo do + begin + FileName := ''; + if Execute then + begin + MS := TMemoryStream.Create; + try + MS.Size := RegionSize; + if ReadProcessMemory(FProcess, BaseAddress, MS.Memory, RegionSize, NR) and + (NR = RegionSize) then + MS.SaveToFile(FileName) + else + RaiseLastOSError; + finally + MS.Free; + end; + end; + end; +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/ModulesDump.dfm b/official/2.1.1/examples/windows/delphitools/toolhelpview/ModulesDump.dfm new file mode 100644 index 0000000..71750ff --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/toolhelpview/ModulesDump.dfm @@ -0,0 +1,180 @@ +inherited ModulesDumpForm: TModulesDumpForm + Left = 235 + Top = 159 + Width = 469 + Height = 336 + ActiveControl = ModulesListView + Caption = 'Modules list' + OldCreateOrder = True + PixelsPerInch = 96 + TextHeight = 13 + inherited CoolBar: TCoolBar + Width = 461 + Bands = < + item + Control = ToolBar + ImageIndex = -1 + MinHeight = 22 + Width = 457 + end> + inherited ToolBar: TToolBar + Width = 444 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + Action = Refresh1 + end + object ToolButton2: TToolButton + Left = 23 + Top = 0 + Width = 8 + Caption = 'ToolButton2' + ImageIndex = 3 + Style = tbsSeparator + end + object ToolButton3: TToolButton + Left = 31 + Top = 0 + Action = Copy1 + end + object ToolButton4: TToolButton + Left = 54 + Top = 0 + Action = SaveToFile1 + end + object ToolButton10: TToolButton + Left = 77 + Top = 0 + Action = Find1 + end + object ToolButton5: TToolButton + Left = 100 + Top = 0 + Width = 8 + Caption = 'ToolButton5' + ImageIndex = 4 + Style = tbsSeparator + end + object ToolButton6: TToolButton + Left = 108 + Top = 0 + Action = SelectAll1 + end + object ToolButton7: TToolButton + Left = 131 + Top = 0 + Width = 8 + Caption = 'ToolButton7' + ImageIndex = 18 + Style = tbsSeparator + end + object ToolButton8: TToolButton + Left = 139 + Top = 0 + Action = FileProp1 + end + object ToolButton9: TToolButton + Left = 162 + Top = 0 + Action = DumpPe1 + end + end + end + object StatusBar: TStatusBar [1] + Left = 0 + Top = 290 + Width = 461 + Height = 19 + Panels = < + item + Width = 90 + end + item + Width = 50 + end> + SimplePanel = False + end + object ModulesListView: TListView [2] + Left = 0 + Top = 26 + Width = 461 + Height = 264 + Align = alClient + Columns = < + item + Caption = 'Module' + Width = 80 + end + item + Alignment = taRightJustify + Caption = 'Usage' + end + item + Alignment = taRightJustify + Caption = 'Relocated' + Width = 70 + end + item + Caption = 'Filename' + Width = 300 + end> + HideSelection = False + MultiSelect = True + ReadOnly = True + RowSelect = True + PopupMenu = PopupMenu + SmallImages = GlobalModule.ToolbarImagesList + TabOrder = 2 + ViewStyle = vsReport + OnColumnClick = ModulesListViewColumnClick + OnCompare = ModulesListViewCompare + OnInfoTip = ModulesListViewInfoTip + end + inherited ActionList: TActionList + inherited Refresh1: TAction + OnExecute = Refresh1Execute + end + object FileProp1: TAction + Caption = 'Properties' + Hint = 'File properties' + ImageIndex = 4 + ShortCut = 32781 + OnExecute = FileProp1Execute + OnUpdate = FileProp1Update + end + object DumpPe1: TAction + Caption = 'Dump PE' + Hint = 'Dump PE' + ImageIndex = 22 + ShortCut = 16452 + OnExecute = DumpPe1Execute + OnUpdate = DumpPe1Update + end + end + inherited PopupMenu: TPopupMenu + object Refresh2: TMenuItem + Action = Refresh1 + end + object N1: TMenuItem + Caption = '-' + end + object Copy2: TMenuItem + Action = Copy1 + end + object Selectall2: TMenuItem + Action = SaveToFile1 + end + object N2: TMenuItem + Caption = '-' + end + object Selectall3: TMenuItem + Action = SelectAll1 + end + object DumpPE2: TMenuItem + Action = DumpPe1 + end + object Properties1: TMenuItem + Action = FileProp1 + end + end +end diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/ModulesDump.pas b/official/2.1.1/examples/windows/delphitools/toolhelpview/ModulesDump.pas new file mode 100644 index 0000000..1cda690 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/toolhelpview/ModulesDump.pas @@ -0,0 +1,245 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is ModulesDump.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2006-05-30 00:02:45 +0200 (mar., 30 mai 2006) $ } +{ } +{**************************************************************************************************} + +unit ModulesDump; + +{$I JCL.INC} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ViewTemplate, Menus, ActnList, ComCtrls, ToolWin; + +type + TModulesDumpForm = class(TViewForm) + StatusBar: TStatusBar; + ModulesListView: TListView; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + Refresh2: TMenuItem; + N1: TMenuItem; + Copy2: TMenuItem; + Selectall2: TMenuItem; + N2: TMenuItem; + Selectall3: TMenuItem; + FileProp1: TAction; + ToolButton7: TToolButton; + ToolButton8: TToolButton; + Properties1: TMenuItem; + DumpPe1: TAction; + ToolButton9: TToolButton; + DumpPE2: TMenuItem; + ToolButton10: TToolButton; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure Refresh1Execute(Sender: TObject); + procedure ModulesListViewColumnClick(Sender: TObject; + Column: TListColumn); + procedure ModulesListViewCompare(Sender: TObject; Item1, + Item2: TListItem; Data: Integer; var Compare: Integer); + procedure FileProp1Update(Sender: TObject); + procedure FileProp1Execute(Sender: TObject); + procedure ModulesListViewInfoTip(Sender: TObject; Item: TListItem; + var InfoTip: String); + procedure DumpPe1Execute(Sender: TObject); + procedure DumpPe1Update(Sender: TObject); + private + function SelectedFileName: TFileName; + public + procedure BuildContent; override; + procedure BuildModulesList; + end; + +var + ModulesDumpForm: TModulesDumpForm; + +implementation + +{$R *.DFM} + +uses + ToolsUtils, TLHelp32, JclShell, Global; + +resourcestring + sModulesCount = 'Modules: %d'; + +procedure TModulesDumpForm.BuildContent; +begin + BuildModulesList; +end; + +procedure TModulesDumpForm.BuildModulesList; +type + TProcessData = packed record + UsageCnt: Word; + RelocateCnt: Word; + end; +var + ML: TStringList; + SnapProcHandle, SnapModuleHandle: THandle; + ProcessEntry: TProcessEntry32; + ModuleEntry: TModuleEntry32; + ProcessNext, ModuleNext: Boolean; + I: Integer; + PD: TProcessData; +begin + ML := TStringList.Create; + Screen.Cursor := crHourGlass; + try + ML.Sorted := True; + ML.Duplicates := dupIgnore; + + SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); + if SnapProcHandle <> THandle(-1) then + begin + ProcessEntry.dwSize := Sizeof(ProcessEntry); + ProcessNext := Process32First(SnapProcHandle, ProcessEntry); + while ProcessNext do + begin + SnapModuleHandle := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, ProcessEntry.th32ProcessID); + if SnapModuleHandle <> THandle(-1) then + begin + ModuleEntry.dwSize := Sizeof(ModuleEntry); + ModuleNext := Module32First(SnapModuleHandle, ModuleEntry); + while ModuleNext do + begin + I := ML.Add(ModuleEntry.szExePath); + PD := TProcessData(ML.Objects[I]); + Inc(PD.UsageCnt); + if GetImageBase(ModuleEntry.szExePath) <> DWORD(ModuleEntry.modBaseAddr) then + Inc(PD.RelocateCnt); + ML.Objects[I] := Pointer(PD); + ModuleNext := Module32Next(SnapModuleHandle, ModuleEntry); + end; + CloseHandle(SnapModuleHandle); + end; + ProcessNext := Process32Next(SnapProcHandle, ProcessEntry); + end; + CloseHandle(SnapProcHandle); + end; + + with ModulesListView do + begin + Items.BeginUpdate; + Items.Clear; + for I := 0 to ML.Count - 1 do + with Items.Add do + begin + Caption := AnsiLowerCase(ExtractFileName(ML[I])); + PD := TProcessData(ML.Objects[I]); + if PD.RelocateCnt = 0 then + ImageIndex := 20 + else + ImageIndex := 19; + with SubItems do + begin + Add(IntToStr(PD.UsageCnt)); + if PD.RelocateCnt = 0 then Add('-') else Add(IntToStr(PD.RelocateCnt)); + Add(ML[I]); + end; + end; + AlphaSort; + Items.EndUpdate; + end; + + with StatusBar do + begin + Panels.BeginUpdate; + Panels[0].Text := Format(sModulesCount, [ML.Count]); + Panels.EndUpdate; + end; + + finally + ML.Free; + Screen.Cursor := crDefault; + end; +end; + +procedure TModulesDumpForm.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + ModulesDumpForm := nil; +end; + +procedure TModulesDumpForm.FormShow(Sender: TObject); +begin + inherited; + PostBuildContentMessage; +end; + +function TModulesDumpForm.SelectedFileName: TFileName; +begin + Result := ModulesListView.Selected.SubItems[2]; +end; + +procedure TModulesDumpForm.Refresh1Execute(Sender: TObject); +begin + BuildModulesList; +end; + +procedure TModulesDumpForm.ModulesListViewColumnClick(Sender: TObject; + Column: TListColumn); +begin + LVColumnClick(Column); +end; + +procedure TModulesDumpForm.ModulesListViewCompare(Sender: TObject; Item1, + Item2: TListItem; Data: Integer; var Compare: Integer); +begin + LVCompare(ModulesListView, Item1, Item2, Compare); +end; + +procedure TModulesDumpForm.FileProp1Update(Sender: TObject); +begin + FileProp1.Enabled := Assigned(ModulesListView.Selected); +end; + +procedure TModulesDumpForm.FileProp1Execute(Sender: TObject); +begin + DisplayPropDialog(Application.Handle, SelectedFileName); +end; + +procedure TModulesDumpForm.ModulesListViewInfoTip(Sender: TObject; + Item: TListItem; var InfoTip: String); +begin + InfoTip := InfoTipVersionString(Item.SubItems[2]); +end; + +procedure TModulesDumpForm.DumpPe1Execute(Sender: TObject); +begin + GlobalModule.ViewPE(ModulesListView.Selected.SubItems[2]); +end; + +procedure TModulesDumpForm.DumpPe1Update(Sender: TObject); +begin + DumpPe1.Enabled := GlobalModule.PeViewerRegistred and Assigned(ModulesListView.Selected) +end; + +end. diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/ToolHelpViewer.dof b/official/2.1.1/examples/windows/delphitools/toolhelpview/ToolHelpViewer.dof new file mode 100644 index 0000000..c2f51c3 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/toolhelpview/ToolHelpViewer.dof @@ -0,0 +1,134 @@ +[FileVersion] +Version=7.0 +[Compiler] +A=8 +B=0 +C=1 +D=1 +E=0 +F=0 +G=1 +H=1 +I=1 +J=0 +K=0 +L=1 +M=0 +N=1 +O=1 +P=1 +Q=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=0 +OutputObjs=0 +ConsoleApp=1 +DebugInfo=0 +RemoteSymbols=0 +MinStackSize=16384 +MaxStackSize=1048576 +ImageBase=4194304 +ExeDescription= +[Directories] +OutputDir=..\..\..\..\bin +UnitOutputDir= +PackageDLLOutputDir= +PackageDCPOutputDir= +SearchPath=..\..\..\..\source\include;..\..\..\..\source\common;..\..\..\..\source\windows;..\..\..\..\source\vcl +Conditionals= +DebugSourceDirs= +UsePackages=0 +[Parameters] +RunParams= +HostApplication= +Launcher= +UseLauncher=0 +DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir= +[Version Info] +IncludeVerInfo=1 +AutoIncBuild=0 +MajorVer=0 +MinorVer=5 +Release=4 +Build=65 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=1033 +CodePage=1252 +[Version Info Keys] +CompanyName=Petr Vones +FileDescription=ToolHelp Viewer for Win95/98/2000 +FileVersion=0.5.4.65 +InternalName=TOOLHELPVIEWER +LegalCopyright=(c) 2002 Petr Vones +LegalTrademarks= +OriginalFilename=TOOLHELPVIEWER.EXE +ProductName=ToolHelp Viewer +ProductVersion=0.5.4 diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/ToolHelpViewer.dpr b/official/2.1.1/examples/windows/delphitools/toolhelpview/ToolHelpViewer.dpr new file mode 100644 index 0000000..d220e93 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/toolhelpview/ToolHelpViewer.dpr @@ -0,0 +1,35 @@ +program ToolHelpViewer; + +{$I jcl.inc} + +uses + Forms, + SysUtils, + JclAppInst, + Main in 'Main.pas' {MainForm}, + ChangePriority in 'ChangePriority.pas' {ChangePriorityDlg}, + HeapDump in 'HeapDump.pas' {HeapDumpForm}, + MemoryDump in 'MemoryDump.pas' {MemoryDumpForm}, + Global in 'Global.pas' {GlobalModule: TDataModule}, + ViewTemplate in 'ViewTemplate.pas' {ViewForm}, + ModulesDump in 'ModulesDump.pas' {ModulesDumpForm}, + ToolsUtils in '..\Common\ToolsUtils.pas', + About in '..\Common\About.pas' {AboutBox}, + FindDlg in '..\Common\FindDlg.pas' {FindForm}, + ExceptDlg in '..\..\..\..\experts\debug\dialog\ExceptDlg.pas' {ExceptionDialog}; + +{$R *.RES} +{$R ..\..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + try + JclAppInstances.CheckSingleInstance; + Application.Initialize; + Application.Title := 'ToolHelp Viewer'; + Application.CreateForm(TGlobalModule, GlobalModule); + Application.CreateForm(TMainForm, MainForm); + Application.Run; + except // fix for Delphi 5's RTL bug + SysUtils.ShowException(ExceptObject, ExceptAddr); + end; +end. diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/ToolHelpViewer.res b/official/2.1.1/examples/windows/delphitools/toolhelpview/ToolHelpViewer.res new file mode 100644 index 0000000000000000000000000000000000000000..12a2ffd1fb9eacbc0d88cdb679d1c64aaf8d0168 GIT binary patch literal 1720 zcmd^;O;1x%5Qg8{A|VoKB6}O-0u8ARDMmH|;UhMwK!kuhLJ*;`v<=i4cl`nWqhiuM z_eZ#J;ZBz>jP;p0_j)fv)Rh}gJNL}@yffz(jNwp2sKWwqkL#kT^}j zl%NGDr=ac;bM@*;{MGA)jV~bU?6N8hK+B)Wy;GdidSrjqJF>cDp!n0{j=!Y z6$4X@pPylLh09SYM`kD5?dFxrK^x0va<9LVL+#X`;0y8prOXjAMW0`o28w2waNg250y)D7}2;d88x_V9m8*Lz3@USxya z@|Hl|#(JPr*Ee;CxTMaq>-W8W2mglqn&TE+8!S)oXi~xQG~nMrmetVNzT?Q}G^+>T zd&GAJl=c(cSf@=c1t(N*QVlY5O*_E_|y5=ySRQS{?`*o h=PxaL)ot%9L7m=0>8{`4Fo70*H}TBgm$Aaf!Vgnm&F}yK literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/ViewTemplate.dfm b/official/2.1.1/examples/windows/delphitools/toolhelpview/ViewTemplate.dfm new file mode 100644 index 0000000..9496ff8 --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/toolhelpview/ViewTemplate.dfm @@ -0,0 +1,109 @@ +object ViewForm: TViewForm + Left = 288 + Top = 168 + ClientWidth = 340 + ClientHeight = 284 + BorderStyle = bsSizeToolWin + Caption = 'ViewForm' + Color = clBtnFace + Constraints.MinHeight = 200 + Constraints.MinWidth = 300 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poDefaultPosOnly + ShowHint = True + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object CoolBar: TCoolBar + Left = 0 + Top = 0 + Width = 340 + Height = 26 + AutoSize = True + Bands = < + item + Control = ToolBar + ImageIndex = -1 + MinHeight = 22 + Width = 336 + end> + PopupMenu = ToolBarPopupMenu + object ToolBar: TToolBar + Left = 9 + Top = 0 + Width = 323 + Height = 22 + AutoSize = True + Caption = 'ToolBar' + EdgeBorders = [] + Flat = True + Images = GlobalModule.ToolbarImagesList + TabOrder = 0 + end + end + object ActionList: TActionList + Images = GlobalModule.ToolbarImagesList + Left = 8 + Top = 224 + object TextLabels1: TAction + Caption = 'Text labels' + OnExecute = TextLabels1Execute + end + object Copy1: TAction + Caption = 'Copy' + Hint = 'Copy to clipboard' + ImageIndex = 9 + ShortCut = 16451 + OnExecute = Copy1Execute + OnUpdate = Copy1Update + end + object SaveToFile1: TAction + Caption = 'Save' + Hint = 'Save to text file' + ImageIndex = 3 + ShortCut = 16467 + OnExecute = SaveToFile1Execute + OnUpdate = Copy1Update + end + object Refresh1: TAction + Caption = 'Refresh' + Hint = 'Refresh the list' + ImageIndex = 2 + ShortCut = 116 + end + object SelectAll1: TAction + Caption = 'Select all' + Hint = 'Select all listview items' + ImageIndex = 17 + ShortCut = 16449 + OnExecute = SelectAll1Execute + OnUpdate = SelectAll1Update + end + object Find1: TAction + Caption = 'Find text' + Hint = 'Find text' + ImageIndex = 7 + ShortCut = 16454 + OnExecute = Find1Execute + OnUpdate = Find1Update + end + end + object PopupMenu: TPopupMenu + Images = GlobalModule.ToolbarImagesList + Left = 40 + Top = 224 + end + object ToolBarPopupMenu: TPopupMenu + Left = 72 + Top = 224 + object Textlabels2: TMenuItem + Action = TextLabels1 + end + end +end diff --git a/official/2.1.1/examples/windows/delphitools/toolhelpview/ViewTemplate.pas b/official/2.1.1/examples/windows/delphitools/toolhelpview/ViewTemplate.pas new file mode 100644 index 0000000..d9a10df --- /dev/null +++ b/official/2.1.1/examples/windows/delphitools/toolhelpview/ViewTemplate.pas @@ -0,0 +1,155 @@ +{**************************************************************************************************} +{ } +{ Project JEDI Code Library (JCL) - Delphi Tools } +{ } +{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); } +{ you may not use this file except in compliance with the License. You may obtain a copy of the } +{ License at http://www.mozilla.org/MPL/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF } +{ ANY KIND, either express or implied. See the License for the specific language governing rights } +{ and limitations under the License. } +{ } +{ The Original Code is ViewTemplate.pas. } +{ } +{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are } +{ Copyright (C) of Petr Vones. All Rights Reserved. } +{ } +{ Contributor(s): } +{ } +{**************************************************************************************************} +{ } +{ Last modified: $Date: 2006-05-30 00:02:45 +0200 (mar., 30 mai 2006) $ } +{ } +{**************************************************************************************************} + +unit ViewTemplate; + +{$I JCL.INC} + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + ToolWin, ComCtrls, ActnList, Menus; + +const + UM_BUILD = WM_USER + $100; + +type + TViewForm = class(TForm) + CoolBar: TCoolBar; + ToolBar: TToolBar; + ActionList: TActionList; + PopupMenu: TPopupMenu; + TextLabels1: TAction; + ToolBarPopupMenu: TPopupMenu; + Textlabels2: TMenuItem; + Copy1: TAction; + SaveToFile1: TAction; + Refresh1: TAction; + SelectAll1: TAction; + Find1: TAction; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure TextLabels1Execute(Sender: TObject); + procedure SelectAll1Update(Sender: TObject); + procedure SelectAll1Execute(Sender: TObject); + procedure Copy1Update(Sender: TObject); + procedure Copy1Execute(Sender: TObject); + procedure SaveToFile1Execute(Sender: TObject); + procedure Find1Update(Sender: TObject); + procedure Find1Execute(Sender: TObject); + private + procedure UpdateTextLabels; + procedure UMBuild(var Msg: TMessage); message UM_BUILD; + public + procedure BuildContent; dynamic; abstract; + procedure PostBuildContentMessage; + end; + +var + ViewForm: TViewForm; + +implementation + +uses Main, Global, ToolsUtils, About, FindDlg; + +{$R *.DFM} + +procedure TViewForm.FormClose(Sender: TObject; var Action: TCloseAction); +begin + MainForm.DeleteFromViewsMenu(Self); + Action := caFree; +end; + +procedure TViewForm.FormShow(Sender: TObject); +begin + MainForm.AddToViewsMenu(Self, Caption); +end; + +procedure TViewForm.TextLabels1Execute(Sender: TObject); +begin + with TextLabels1 do Checked := not Checked; + UpdateTextLabels; +end; + +procedure TViewForm.UpdateTextLabels; +begin + ToolBar.ShowCaptions := TextLabels1.Checked; + if not ToolBar.ShowCaptions then + begin + ToolBar.ButtonHeight := 0; + ToolBar.ButtonWidth := 0; + end; +end; + +procedure TViewForm.Copy1Update(Sender: TObject); +begin + TAction(Sender).Enabled := ActiveControl is TListView; +end; + +procedure TViewForm.SelectAll1Update(Sender: TObject); +begin + TAction(Sender).Enabled := + (ActiveControl is TListView) and TListView(ActiveControl).MultiSelect; +end; + +procedure TViewForm.SelectAll1Execute(Sender: TObject); +begin + ListViewSelectAll(ActiveControl as TListView); +end; + +procedure TViewForm.Copy1Execute(Sender: TObject); +begin + GlobalModule.ListViewToClipboard(ActiveControl as TListView); +end; + +procedure TViewForm.SaveToFile1Execute(Sender: TObject); +begin + GlobalModule.ListViewToFile(ActiveControl as TListView, Caption); +end; + +procedure TViewForm.UMBuild(var Msg: TMessage); +begin + Update; + BuildContent; +end; + +procedure TViewForm.PostBuildContentMessage; +begin + PostMessage(Handle, UM_BUILD, 0, 0); +end; + +procedure TViewForm.Find1Update(Sender: TObject); +begin + TAction(Sender).Enabled := + (ActiveControl is TListView) and not TListView(ActiveControl).HideSelection; +end; + +procedure TViewForm.Find1Execute(Sender: TObject); +begin + ShowFindDialog(ActiveControl as TListView); +end; + +end. diff --git a/official/2.1.1/examples/windows/edisdk/Clean.bat b/official/2.1.1/examples/windows/edisdk/Clean.bat new file mode 100644 index 0000000..2bca898 --- /dev/null +++ b/official/2.1.1/examples/windows/edisdk/Clean.bat @@ -0,0 +1,18 @@ +@echo off +if exist *.~* del *.~* +if exist *.dcu del *.dcu +if exist *.dpl del *.dpl +if exist *.bpl del *.bpl +if exist *.bpi del *.bpi +if exist *.lsp del *.lsp +if exist *.dcp del *.dcp +if exist *.dpc del *.dpc +if exist *.bak del *.bak +if exist *.obj del *.obj +if exist *.hpp del *.hpp +if exist *.lib del *.lib +if exist *.exe del *.exe +if exist *.dsk del *.dsk + + + diff --git a/official/2.1.1/examples/windows/edisdk/EDICOMExample.dof b/official/2.1.1/examples/windows/edisdk/EDICOMExample.dof new file mode 100644 index 0000000..abe45c2 --- /dev/null +++ b/official/2.1.1/examples/windows/edisdk/EDICOMExample.dof @@ -0,0 +1,2 @@ +[Directories] +OutputDir=..\..\..\bin diff --git a/official/2.1.1/examples/windows/edisdk/EDICOMExample.dpr b/official/2.1.1/examples/windows/edisdk/EDICOMExample.dpr new file mode 100644 index 0000000..0ba1c24 --- /dev/null +++ b/official/2.1.1/examples/windows/edisdk/EDICOMExample.dpr @@ -0,0 +1,16 @@ +program EDICOMExample; + +{$I jcl.inc} + +uses + Forms, + EDICOMExampleMain in 'EDICOMExampleMain.pas' {Form1}; + +{$R *.RES} +{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res} + +begin + Application.Initialize; + Application.CreateForm(TForm1, Form1); + Application.Run; +end. diff --git a/official/2.1.1/examples/windows/edisdk/EDICOMExample.res b/official/2.1.1/examples/windows/edisdk/EDICOMExample.res new file mode 100644 index 0000000000000000000000000000000000000000..55f874204136d6cde31b105890029f4503c878e3 GIT binary patch literal 876 zcmaJ=Jxc>Y5Pj=~TWm~%7FH&uWyHcFg^CccPz(RS*=&<05J-d+UUf~tKNE-t+g#=E zNNH(l5wgCWy~_uF40${AX5Q>hmRkU56V3%N+_8_nsvc3Jq}FKc*DBE|gEnzRD3odT z{B9}0AJQ~9t_+D3MNzQehw#n?$2H95lfjzJMiq+xpGS}RU|YW7TGAUn=>TJR9vbuv zQKv^fLP$_BH=di&s%NpygeRq7WOL!AU~H`oJdv~Xnj7J9-%dk4aAV5-jBGG4rXS8T z#&1Awg!ePy@tV(f_@tlj=qJ`@+x_IZ=P3K1ZEocskt@zKp3bKiEbG`L>hS!nd7PP< z*YiLohG%h>ba`1aP@aA!Bu=2+E0lZZSF-?KK7q>;Epm@~@dtdZ0(&$OeF0BP;A;i7bZNA5i@Ni6 j1fWAWcYr%w;}-YC4Ibz#+kO}RH7K;(HF*{O6)AiJ<8sA5 literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/edisdk/EDICOMExampleMain.dfm b/official/2.1.1/examples/windows/edisdk/EDICOMExampleMain.dfm new file mode 100644 index 0000000..ac5e7df --- /dev/null +++ b/official/2.1.1/examples/windows/edisdk/EDICOMExampleMain.dfm @@ -0,0 +1,50 @@ +object Form1: TForm1 + Left = 192 + Top = 107 + ClientWidth = 688 + ClientHeight = 454 + 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 + object Button1: TButton + Left = 32 + Top = 4 + Width = 75 + Height = 25 + Caption = 'Button1' + TabOrder = 0 + OnClick = Button1Click + end + object Memo1: TMemo + Left = 0 + Top = 36 + Width = 688 + Height = 417 + Anchors = [akLeft, akTop, akRight, akBottom] + Lines.Strings = ( + 'Memo1') + TabOrder = 1 + end + object Button2: TButton + Left = 120 + Top = 4 + Width = 75 + Height = 25 + Caption = 'Button2' + TabOrder = 2 + OnClick = Button2Click + end + object F: TEDICOMFile + AutoConnect = False + ConnectKind = ckRunningOrNew + Left = 64 + Top = 32 + end +end diff --git a/official/2.1.1/examples/windows/edisdk/EDICOMExampleMain.pas b/official/2.1.1/examples/windows/edisdk/EDICOMExampleMain.pas new file mode 100644 index 0000000..48cfdec --- /dev/null +++ b/official/2.1.1/examples/windows/edisdk/EDICOMExampleMain.pas @@ -0,0 +1,157 @@ +unit EDICOMExampleMain; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls, OleServer, EDISDK_TLB; + +type + TForm1 = class(TForm) + F: TEDICOMFile; + Button1: TButton; + Memo1: TMemo; + Button2: TButton; + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + Form1: TForm1; + +implementation + +{$R *.DFM} + +procedure TForm1.Button1Click(Sender: TObject); +var + I: Integer; +begin + F.Options := 0; + F.Options := F.Options or foVariableDelimiterDetection; + F.Options := F.Options or foUseAltDelimiterDetection; + F.Options := F.Options or foRemoveCrLf; + F.Options := F.Options or foRemoveCr; + F.Options := F.Options or foRemoveLf; + F.Options := F.Options or foIgnoreGarbageAtEndOfFile; + F.LoadFromFile(ExtractFileDir(Application.ExeName) + '\sample.edi'); + Memo1.Lines.Add( F.Data ); + F.Disassemble; + Memo1.Lines.Add(F.Interchange[0].SegmentISA.SegmentId); + Memo1.Lines.Add(F.Interchange[0].FunctionalGroup[0].SegmentGS.SegmentId); + Memo1.Lines.Add(F.Interchange[0].FunctionalGroup[0].TransactionSet[0].SegmentST.SegmentId); + for I := 0 to F.Interchange[0].FunctionalGroup[0].TransactionSet[0].SegmentCount - 1 do + begin + F.Interchange[0].FunctionalGroup[0].TransactionSet[0].Segment[I].Assemble; + Memo1.Lines.Add( F.Interchange[0].FunctionalGroup[0].TransactionSet[0].Segment[I].Data ); + end; + Memo1.Lines.Add(F.Interchange[0].FunctionalGroup[0].TransactionSet[0].Segment[0].Data); + Memo1.Lines.Add(F.Interchange[0].FunctionalGroup[0].TransactionSet[0].SegmentSE.SegmentId); + Memo1.Lines.Add(F.Interchange[0].FunctionalGroup[0].SegmentGE.SegmentId); + Memo1.Lines.Add(F.Interchange[0].SegmentIEA.SegmentId); +end; + +procedure TForm1.Button2Click(Sender: TObject); +var + C: IEDICOMFile; + I, F, T, S: Integer; +begin + Memo1.Lines.Clear; + + C := CoEDICOMFile.Create; + I := C.AddInterchange; + C.Interchange[I].SetDelimiters('~' + #13#10, '*', '>'); + with C.Interchange[I].SegmentISA do + begin + SegmentId := 'ISA'; + DeleteElements; + AddElements(17); + Element[0].Data := 'data'; + Element[1].Data := 'data'; + Element[2].Data := 'data'; + Element[3].Data := 'data'; + Element[4].Data := 'data'; + Element[5].Data := 'data'; + Element[6].Data := 'data'; + Element[7].Data := 'data'; + Element[8].Data := 'data'; + Element[9].Data := 'data'; + Element[10].Data := 'data'; + Element[11].Data := 'data'; + Element[12].Data := 'data'; + Element[13].Data := 'data'; + Element[14].Data := 'data'; + Element[15].Data := 'data'; + Element[16].Data := C.Interchange[I].Delimiters.SS; + end; + + F := C.Interchange[I].AddFunctionalGroup; + with C.Interchange[I].FunctionalGroup[F].SegmentGS do + begin + SegmentId := 'GS'; + DeleteElements; + AddElements(8); + Element[0].Data := 'data'; + Element[1].Data := 'data'; + Element[2].Data := 'data'; + Element[3].Data := 'data'; + Element[4].Data := 'data'; + Element[5].Data := 'data'; + Element[6].Data := 'data'; + Element[7].Data := 'data'; + end; + + T := C.Interchange[I].FunctionalGroup[F].AddTransactionSet; + with C.Interchange[I].FunctionalGroup[F].TransactionSet[T].SegmentST do + begin + SegmentId := 'ST'; + DeleteElements; + AddElements(2); + Element[0].Data := 'data'; + Element[1].Data := 'data'; + end; + + S := C.Interchange[I].FunctionalGroup[F].TransactionSet[T].AddSegment; + with C.Interchange[I].FunctionalGroup[F].TransactionSet[T].Segment[S] do + begin + SegmentId := 'TST'; + AddElements(2); + Element[0].Data := 'data 1'; + Element[1].Data := 'data 2'; + end; + + with C.Interchange[I].FunctionalGroup[F].TransactionSet[T].SegmentSE do + begin + SegmentId := 'SE'; + DeleteElements; + AddElements(2); + Element[0].Data := 'data'; + Element[1].Data := 'data'; + end; + + with C.Interchange[I].FunctionalGroup[F].SegmentGE do + begin + SegmentId := 'GE'; + DeleteElements; + AddElements(2); + Element[0].Data := 'data'; + Element[1].Data := 'data'; + end; + + with C.Interchange[I].SegmentIEA do + begin + SegmentId := 'IEA'; + DeleteElements; + AddElements(2); + Element[0].Data := 'data'; + Element[1].Data := 'data'; + end; + + Memo1.Lines.Add( C.Assemble ); +end; + +end. diff --git a/official/2.1.1/examples/windows/edisdk/EDISDK_TLB.dcr b/official/2.1.1/examples/windows/edisdk/EDISDK_TLB.dcr new file mode 100644 index 0000000000000000000000000000000000000000..4961f7d1c6912782561e3d71e9f346f29de7f8e1 GIT binary patch literal 3338 zcmbuBeN5F=7{|W}F3fx@H5&iOpg zbDrn?egN<))zf2%-Cm#Ho(Cp!q^D;95-=4X;3G^y9A;t~dowsqT$;#XN&8AsGGZF;PR-k2QYZW3LraMjrCWg0Kr1@o{m>hRfVNHb{M@|Q30%9@6Y;ztd9keu|J@- zweyMmvSV?%xfuzYH~R^D_Q0!k?1!yIMMdpXv6R`>)rCu!E}?M$e$33z_X;H?=%tu7 zUf!*nH&K$B+Dpx~k7vtYXU^cg!-s)$=PaE*4Xj!P6#Rjtj2$RFbPmnU9Vm*6!zTS!%HqsMvw%-rE80edWDLm z1|UOb;Tw6$8ebHQA7f$yVy51^*W17Qy!rEYBIV~4q)D2oYprcz-z83@%6N=p`ld+& z$3_`H^FMSVko{cN+KNe6uNpCtfWkuKUsRNMIm)sXFY&A$>zGKBapcXW-r#;R)tFCq z4fNMuyLJuVGG9K^oY6hJas~KYFlLeRvtYH+`0uYfBNz= zB@;7bhGB+FIOfSbjF1s{nat6YGr)K%PwW5S!Gjp0^}ydaaRP7)LMARjUS2U;T3U>c z%A79K5zKs@BXbZcpp&Jt#|6U0sblp5tGiJZbr;F`X=!Ia@F`>oufEis2zoMA`wp_bi_%kOPUuk}G?syTD zmzO`X25md;GB)~tV0iQw#l^s|d0ZhkLZ4mcRd{-4D|SUBjNM zJk1;COhm+HKj!PUU-$3NVy?B5Z~I}^*~FaEHTqLQf%OijYwX@_Jrfs`H_M-=>w0a| zKI8x0#*JvB&E9K_8MbYEFfTXPdZ)1KP}kVI*W4RHUv0a6+qr#w#M-s+tXyg0nSS=H zWzY5N;34L(W5>+(a9&SmzJ+p+jQz~p{&=nArS)ZQ*}`2hH{{RhZmCpbG literal 0 HcmV?d00001 diff --git a/official/2.1.1/examples/windows/edisdk/EDISDK_TLB.pas b/official/2.1.1/examples/windows/edisdk/EDISDK_TLB.pas new file mode 100644 index 0000000..b2ea6d5 --- /dev/null +++ b/official/2.1.1/examples/windows/edisdk/EDISDK_TLB.pas @@ -0,0 +1,1021 @@ +unit EDISDK_TLB; + +// ************************************************************************ // +// WARNING +// ------- +// The types declared in this file were generated from data read from a +// Type Library. If this type library is explicitly or indirectly (via +// another type library referring to this type library) re-imported, or the +// 'Refresh' command of the Type Library Editor activated while editing the +// Type Library, the contents of this file will be regenerated and all +// manual modifications will be lost. +// ************************************************************************ // + +// PASTLWTR : $Revision: 1658 $ +// File generated on 17.7.2004 03:10:43 from Type Library described below. + +// *************************************************************************// +// NOTE: +// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties +// which return objects that may need to be explicitly created via a function +// call prior to any access via the property. These items have been disabled +// in order to prevent accidental use from within the object inspector. You +// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively +// removing them from the $IFDEF blocks. However, such items must still be +// programmatically created via a method of the appropriate CoClass before +// they can be used. +// ************************************************************************ // +// Type Lib: I:\Quellen\jedi\jcl\examples\vcl\edisdk\comserver\EDISDK.dll (1) +// IID\LCID: {AF3BB992-62DF-41B7-92C7-FA41BDBB427E}\0 +// Helpfile: +// DepndLst: +// (1) v2.0 stdole, (F:\WINNT\system32\STDOLE2.TLB) +// (2) v4.0 StdVCL, (F:\WINNT\system32\STDVCL40.DLL) +// ************************************************************************ // +{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. +interface + +uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL; + +// *********************************************************************// +// GUIDS declared in the TypeLibrary. Following prefixes are used: +// Type Libraries : LIBID_xxxx +// CoClasses : CLASS_xxxx +// DISPInterfaces : DIID_xxxx +// Non-DISP interfaces: IID_xxxx +// *********************************************************************// +const + // TypeLibrary Major and minor versions + EDISDKMajorVersion = 1; + EDISDKMinorVersion = 0; + + LIBID_EDISDK: TGUID = '{AF3BB992-62DF-41B7-92C7-FA41BDBB427E}'; + + IID_IEDICOMDelimiters: TGUID = '{A0181BBD-2F88-4FDC-9752-8303519D2D62}'; + CLASS_EDICOMDelimiters: TGUID = '{30B8A020-5D35-4ED8-B889-C13F309AE308}'; + IID_IEDICOMDataObject: TGUID = '{C7037767-05C8-4C6F-8201-655A6B5A4CF4}'; + IID_IEDICOMDataObjectGroup: TGUID = '{AEADBE04-6D1C-493E-BE6B-51E96BAD3680}'; + IID_IEDICOMElement: TGUID = '{E4ED3376-38AA-423C-9160-AAD190ACCB35}'; + CLASS_EDICOMElement: TGUID = '{4EFCADAA-60D0-4D61-875C-A27D6BCE932B}'; + IID_IEDICOMSegment: TGUID = '{467C692E-C22F-44B5-ACDB-C7A337B68675}'; + CLASS_EDICOMSegment: TGUID = '{63946EB6-DBDF-44FB-AAA4-123E7C2275B6}'; + IID_IEDICOMTransactionSet: TGUID = '{B2300104-4FF0-40A3-ABED-29E2A36C1844}'; + CLASS_EDICOMTransactionSet: TGUID = '{B540FDFC-B0D0-4E74-A7F4-B09DC260E656}'; + IID_IEDICOMFunctionalGroup: TGUID = '{C2FDB4EF-6252-4E67-BAD4-E7200B9CEA31}'; + CLASS_EDICOMFunctionalGroup: TGUID = '{C69EA833-88BF-4D55-AFC0-264F1B7ED54C}'; + IID_IEDICOMInterchangeControl: TGUID = '{B7FF3E84-8D1E-44F5-BC6A-578881CF7B5A}'; + CLASS_EDICOMInterchangeControl: TGUID = '{EF07065C-6E35-41B6-9564-D2D5714600A8}'; + IID_IEDICOMFile: TGUID = '{DEA6D2C3-98EE-4276-AA08-0AB4F1AEAC0F}'; + CLASS_EDICOMFile: TGUID = '{E8400822-5701-4226-8F78-A784B3777CB9}'; + +// *********************************************************************// +// Declaration of Enumerations defined in Type Library +// *********************************************************************// +// Constants for enum EDICOMDataObjectDataState +type + EDICOMDataObjectDataState = TOleEnum; +const + ediCreated = $00000000; + ediAssembled = $00000001; + ediDisassembled = $00000002; + +// Constants for enum EDIFileOptions +type + EDIFileOptions = TOleEnum; +const + foNone = $00000000; + foVariableDelimiterDetection = $00000001; + foUseAltDelimiterDetection = $00000002; + foRemoveCrLf = $00000004; + foRemoveCr = $00000008; + foRemoveLf = $00000010; + foIgnoreGarbageAtEndOfFile = $00000020; + +type + +// *********************************************************************// +// Forward declaration of types defined in TypeLibrary +// *********************************************************************// + IEDICOMDelimiters = interface; + IEDICOMDelimitersDisp = dispinterface; + IEDICOMDataObject = interface; + IEDICOMDataObjectDisp = dispinterface; + IEDICOMDataObjectGroup = interface; + IEDICOMDataObjectGroupDisp = dispinterface; + IEDICOMElement = interface; + IEDICOMElementDisp = dispinterface; + IEDICOMSegment = interface; + IEDICOMSegmentDisp = dispinterface; + IEDICOMTransactionSet = interface; + IEDICOMTransactionSetDisp = dispinterface; + IEDICOMFunctionalGroup = interface; + IEDICOMFunctionalGroupDisp = dispinterface; + IEDICOMInterchangeControl = interface; + IEDICOMInterchangeControlDisp = dispinterface; + IEDICOMFile = interface; + IEDICOMFileDisp = dispinterface; + +// *********************************************************************// +// Declaration of CoClasses defined in Type Library +// (NOTE: Here we map each CoClass to its Default Interface) +// *********************************************************************// + EDICOMDelimiters = IEDICOMDelimiters; + EDICOMElement = IEDICOMElement; + EDICOMSegment = IEDICOMSegment; + EDICOMTransactionSet = IEDICOMTransactionSet; + EDICOMFunctionalGroup = IEDICOMFunctionalGroup; + EDICOMInterchangeControl = IEDICOMInterchangeControl; + EDICOMFile = IEDICOMFile; + + +// *********************************************************************// +// Interface: IEDICOMDelimiters +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {A0181BBD-2F88-4FDC-9752-8303519D2D62} +// *********************************************************************// + IEDICOMDelimiters = interface(IDispatch) + ['{A0181BBD-2F88-4FDC-9752-8303519D2D62}'] + function Get_SD: WideString; safecall; + procedure Set_SD(const Value: WideString); safecall; + function Get_ED: WideString; safecall; + procedure Set_ED(const Value: WideString); safecall; + function Get_SS: WideString; safecall; + procedure Set_SS(const Value: WideString); safecall; + function Get_SDLen: Integer; safecall; + function Get_EDLen: Integer; safecall; + function Get_SSLen: Integer; safecall; + property SD: WideString read Get_SD write Set_SD; + property ED: WideString read Get_ED write Set_ED; + property SS: WideString read Get_SS write Set_SS; + property SDLen: Integer read Get_SDLen; + property EDLen: Integer read Get_EDLen; + property SSLen: Integer read Get_SSLen; + end; + +// *********************************************************************// +// DispIntf: IEDICOMDelimitersDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {A0181BBD-2F88-4FDC-9752-8303519D2D62} +// *********************************************************************// + IEDICOMDelimitersDisp = dispinterface + ['{A0181BBD-2F88-4FDC-9752-8303519D2D62}'] + property SD: WideString dispid 201; + property ED: WideString dispid 202; + property SS: WideString dispid 203; + property SDLen: Integer readonly dispid 204; + property EDLen: Integer readonly dispid 205; + property SSLen: Integer readonly dispid 206; + end; + +// *********************************************************************// +// Interface: IEDICOMDataObject +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {C7037767-05C8-4C6F-8201-655A6B5A4CF4} +// *********************************************************************// + IEDICOMDataObject = interface(IDispatch) + ['{C7037767-05C8-4C6F-8201-655A6B5A4CF4}'] + function Assemble: WideString; safecall; + procedure Disassemble; safecall; + function Get_State: Integer; safecall; + function Get_Data: WideString; safecall; + procedure Set_Data(const Value: WideString); safecall; + function Get_DataLength: Integer; safecall; + function Get_Delimiters: IEDICOMDelimiters; safecall; + property State: Integer read Get_State; + property Data: WideString read Get_Data write Set_Data; + property DataLength: Integer read Get_DataLength; + property Delimiters: IEDICOMDelimiters read Get_Delimiters; + end; + +// *********************************************************************// +// DispIntf: IEDICOMDataObjectDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {C7037767-05C8-4C6F-8201-655A6B5A4CF4} +// *********************************************************************// + IEDICOMDataObjectDisp = dispinterface + ['{C7037767-05C8-4C6F-8201-655A6B5A4CF4}'] + function Assemble: WideString; dispid 201; + procedure Disassemble; dispid 202; + property State: Integer readonly dispid 203; + property Data: WideString dispid 205; + property DataLength: Integer readonly dispid 204; + property Delimiters: IEDICOMDelimiters readonly dispid 206; + end; + +// *********************************************************************// +// Interface: IEDICOMDataObjectGroup +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {AEADBE04-6D1C-493E-BE6B-51E96BAD3680} +// *********************************************************************// + IEDICOMDataObjectGroup = interface(IEDICOMDataObject) + ['{AEADBE04-6D1C-493E-BE6B-51E96BAD3680}'] + end; + +// *********************************************************************// +// DispIntf: IEDICOMDataObjectGroupDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {AEADBE04-6D1C-493E-BE6B-51E96BAD3680} +// *********************************************************************// + IEDICOMDataObjectGroupDisp = dispinterface + ['{AEADBE04-6D1C-493E-BE6B-51E96BAD3680}'] + function Assemble: WideString; dispid 201; + procedure Disassemble; dispid 202; + property State: Integer readonly dispid 203; + property Data: WideString dispid 205; + property DataLength: Integer readonly dispid 204; + property Delimiters: IEDICOMDelimiters readonly dispid 206; + end; + +// *********************************************************************// +// Interface: IEDICOMElement +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {E4ED3376-38AA-423C-9160-AAD190ACCB35} +// *********************************************************************// + IEDICOMElement = interface(IEDICOMDataObject) + ['{E4ED3376-38AA-423C-9160-AAD190ACCB35}'] + end; + +// *********************************************************************// +// DispIntf: IEDICOMElementDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {E4ED3376-38AA-423C-9160-AAD190ACCB35} +// *********************************************************************// + IEDICOMElementDisp = dispinterface + ['{E4ED3376-38AA-423C-9160-AAD190ACCB35}'] + function Assemble: WideString; dispid 201; + procedure Disassemble; dispid 202; + property State: Integer readonly dispid 203; + property Data: WideString dispid 205; + property DataLength: Integer readonly dispid 204; + property Delimiters: IEDICOMDelimiters readonly dispid 206; + end; + +// *********************************************************************// +// Interface: IEDICOMSegment +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {467C692E-C22F-44B5-ACDB-C7A337B68675} +// *********************************************************************// + IEDICOMSegment = interface(IEDICOMDataObjectGroup) + ['{467C692E-C22F-44B5-ACDB-C7A337B68675}'] + function Get_Element(Index: Integer): IEDICOMElement; safecall; + function Get_SegmentId: WideString; safecall; + procedure Set_SegmentId(const Value: WideString); safecall; + function AddElement: Integer; safecall; + function InsertElement(InsertIndex: Integer): Integer; safecall; + procedure DeleteElement(Index: Integer); safecall; + function AddElements(Count: Integer): Integer; safecall; + function InsertElements(InsertIndex: Integer; Count: Integer): Integer; safecall; + procedure DeleteElements; safecall; + function Get_ElementCount: Integer; safecall; + property Element[Index: Integer]: IEDICOMElement read Get_Element; + property SegmentId: WideString read Get_SegmentId write Set_SegmentId; + property ElementCount: Integer read Get_ElementCount; + end; + +// *********************************************************************// +// DispIntf: IEDICOMSegmentDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {467C692E-C22F-44B5-ACDB-C7A337B68675} +// *********************************************************************// + IEDICOMSegmentDisp = dispinterface + ['{467C692E-C22F-44B5-ACDB-C7A337B68675}'] + property Element[Index: Integer]: IEDICOMElement readonly dispid 401; + property SegmentId: WideString dispid 402; + function AddElement: Integer; dispid 403; + function InsertElement(InsertIndex: Integer): Integer; dispid 404; + procedure DeleteElement(Index: Integer); dispid 405; + function AddElements(Count: Integer): Integer; dispid 406; + function InsertElements(InsertIndex: Integer; Count: Integer): Integer; dispid 407; + procedure DeleteElements; dispid 408; + property ElementCount: Integer readonly dispid 409; + function Assemble: WideString; dispid 201; + procedure Disassemble; dispid 202; + property State: Integer readonly dispid 203; + property Data: WideString dispid 205; + property DataLength: Integer readonly dispid 204; + property Delimiters: IEDICOMDelimiters readonly dispid 206; + end; + +// *********************************************************************// +// Interface: IEDICOMTransactionSet +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {B2300104-4FF0-40A3-ABED-29E2A36C1844} +// *********************************************************************// + IEDICOMTransactionSet = interface(IEDICOMDataObjectGroup) + ['{B2300104-4FF0-40A3-ABED-29E2A36C1844}'] + function Get_SegmentST: IEDICOMSegment; safecall; + function Get_SegmentSE: IEDICOMSegment; safecall; + function Get_Segment(Index: Integer): IEDICOMSegment; safecall; + function AddSegment: Integer; safecall; + function InsertSegment(InsertIndex: Integer): Integer; safecall; + procedure DeleteSegment(Index: Integer); safecall; + function AddSegments(Count: Integer): Integer; safecall; + function InsertSegments(InsertIndex: Integer; Count: Integer): Integer; safecall; + procedure DeleteSegments; safecall; + function Get_SegmentCount: Integer; safecall; + property SegmentST: IEDICOMSegment read Get_SegmentST; + property SegmentSE: IEDICOMSegment read Get_SegmentSE; + property Segment[Index: Integer]: IEDICOMSegment read Get_Segment; + property SegmentCount: Integer read Get_SegmentCount; + end; + +// *********************************************************************// +// DispIntf: IEDICOMTransactionSetDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {B2300104-4FF0-40A3-ABED-29E2A36C1844} +// *********************************************************************// + IEDICOMTransactionSetDisp = dispinterface + ['{B2300104-4FF0-40A3-ABED-29E2A36C1844}'] + property SegmentST: IEDICOMSegment readonly dispid 401; + property SegmentSE: IEDICOMSegment readonly dispid 402; + property Segment[Index: Integer]: IEDICOMSegment readonly dispid 403; + function AddSegment: Integer; dispid 404; + function InsertSegment(InsertIndex: Integer): Integer; dispid 405; + procedure DeleteSegment(Index: Integer); dispid 406; + function AddSegments(Count: Integer): Integer; dispid 407; + function InsertSegments(InsertIndex: Integer; Count: Integer): Integer; dispid 408; + procedure DeleteSegments; dispid 409; + property SegmentCount: Integer readonly dispid 410; + function Assemble: WideString; dispid 201; + procedure Disassemble; dispid 202; + property State: Integer readonly dispid 203; + property Data: WideString dispid 205; + property DataLength: Integer readonly dispid 204; + property Delimiters: IEDICOMDelimiters readonly dispid 206; + end; + +// *********************************************************************// +// Interface: IEDICOMFunctionalGroup +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {C2FDB4EF-6252-4E67-BAD4-E7200B9CEA31} +// *********************************************************************// + IEDICOMFunctionalGroup = interface(IEDICOMDataObjectGroup) + ['{C2FDB4EF-6252-4E67-BAD4-E7200B9CEA31}'] + function Get_SegmentGS: IEDICOMSegment; safecall; + function Get_SegmentGE: IEDICOMSegment; safecall; + function Get_TransactionSet(Index: Integer): IEDICOMTransactionSet; safecall; + function AddTransactionSet: Integer; safecall; + function InsertTransactionSet(InsertIndex: Integer): Integer; safecall; + procedure DeleteTransactionSet(Index: Integer); safecall; + function AddTransactionSets(Count: Integer): Integer; safecall; + function InsertTransactionSets(InsertIndex: Integer; Count: Integer): Integer; safecall; + procedure DeleteTransactionSets; safecall; + function Get_TransactionSetCount: Integer; safecall; + property SegmentGS: IEDICOMSegment read Get_SegmentGS; + property SegmentGE: IEDICOMSegment read Get_SegmentGE; + property TransactionSet[Index: Integer]: IEDICOMTransactionSet read Get_TransactionSet; + property TransactionSetCount: Integer read Get_TransactionSetCount; + end; + +// *********************************************************************// +// DispIntf: IEDICOMFunctionalGroupDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {C2FDB4EF-6252-4E67-BAD4-E7200B9CEA31} +// *********************************************************************// + IEDICOMFunctionalGroupDisp = dispinterface + ['{C2FDB4EF-6252-4E67-BAD4-E7200B9CEA31}'] + property SegmentGS: IEDICOMSegment readonly dispid 401; + property SegmentGE: IEDICOMSegment readonly dispid 402; + property TransactionSet[Index: Integer]: IEDICOMTransactionSet readonly dispid 403; + function AddTransactionSet: Integer; dispid 404; + function InsertTransactionSet(InsertIndex: Integer): Integer; dispid 405; + procedure DeleteTransactionSet(Index: Integer); dispid 406; + function AddTransactionSets(Count: Integer): Integer; dispid 407; + function InsertTransactionSets(InsertIndex: Integer; Count: Integer): Integer; dispid 408; + procedure DeleteTransactionSets; dispid 409; + property TransactionSetCount: Integer readonly dispid 410; + function Assemble: WideString; dispid 201; + procedure Disassemble; dispid 202; + property State: Integer readonly dispid 203; + property Data: WideString dispid 205; + property DataLength: Integer readonly dispid 204; + property Delimiters: IEDICOMDelimiters readonly dispid 206; + end; + +// *********************************************************************// +// Interface: IEDICOMInterchangeControl +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {B7FF3E84-8D1E-44F5-BC6A-578881CF7B5A} +// *********************************************************************// + IEDICOMInterchangeControl = interface(IEDICOMDataObjectGroup) + ['{B7FF3E84-8D1E-44F5-BC6A-578881CF7B5A}'] + function Get_SegmentISA: IEDICOMSegment; safecall; + function Get_SegmentIEA: IEDICOMSegment; safecall; + function Get_FunctionalGroup(Index: Integer): IEDICOMFunctionalGroup; safecall; + function AddFunctionalGroup: Integer; safecall; + function InsertFunctionalGroup(InsertIndex: Integer): Integer; safecall; + procedure DeleteFunctionalGroup(Index: Integer); safecall; + function AddFunctionalGroups(InsertIndex: Integer): Integer; safecall; + function InsertFunctionalGroups(InsertIndex: Integer; Count: Integer): Integer; safecall; + procedure DeleteFunctionalGroups; safecall; + procedure SetDelimiters(const SD: WideString; const ED: WideString; const SS: WideString); safecall; + function Get_FunctionalGroupCount: Integer; safecall; + property SegmentISA: IEDICOMSegment read Get_SegmentISA; + property SegmentIEA: IEDICOMSegment read Get_SegmentIEA; + property FunctionalGroup[Index: Integer]: IEDICOMFunctionalGroup read Get_FunctionalGroup; + property FunctionalGroupCount: Integer read Get_FunctionalGroupCount; + end; + +// *********************************************************************// +// DispIntf: IEDICOMInterchangeControlDisp +// Flags: (4432) Hidden Dual OleAutomation Dispatchable +// GUID: {B7FF3E84-8D1E-44F5-BC6A-578881CF7B5A} +// *********************************************************************// + IEDICOMInterchangeControlDisp = dispinterface + ['{B7FF3E84-8D1E-44F5-BC6A-578881CF7B5A}'] + property SegmentISA: IEDICOMSegment readonly dispid 401; + property SegmentIEA: IEDICOMSegment readonly dispid 402; + property FunctionalGroup[Index: Integer]: IEDICOMFunctionalGroup readonly dispid 403; + function AddFunctionalGroup: Integer; dispid 404; + function InsertFunctionalGroup(InsertIndex: Integer): Integer; dispid 405; + procedure DeleteFunctionalGroup(Index: Integer); dispid 406; + function AddFunctionalGroups(InsertIndex: Integer): Integer; dispid 407; + function InsertFunctionalGroups(InsertIndex: Integer; Count: Integer): Integer; dispid 408; + procedure DeleteFunctionalGroups; dispid 409; + procedure SetDelimiters(const SD: WideString; const ED: WideString; const SS: WideString); dispid 410; + property FunctionalGroupCount: Integer readonly dispid 411; + function Assemble: WideString; dispid 201; + procedure Disassemble; dispid 202; + property State: Integer readonly dispid 203; + property Data: WideString dispid 205; + property DataLength: Integer readonly dispid 204; + property Delimiters: IEDICOMDelimiters readonly dispid 206; + end; + +// *********************************************************************// +// Interface: IEDICOMFile +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {DEA6D2C3-98EE-4276-AA08-0AB4F1AEAC0F} +// *********************************************************************// + IEDICOMFile = interface(IEDICOMDataObjectGroup) + ['{DEA6D2C3-98EE-4276-AA08-0AB4F1AEAC0F}'] + procedure LoadFromFile(const FileName: WideString); safecall; + procedure ReLoadFromFile; safecall; + procedure SaveToFile; safecall; + procedure SaveAsToFile(const FileName: WideString); safecall; + function Get_FileName: WideString; safecall; + procedure Set_FileName(const Value: WideString); safecall; + function Get_Interchange(Index: Integer): IEDICOMInterchangeControl; safecall; + function Get_Options: Byte; safecall; + procedure Set_Options(Value: Byte); safecall; + function AddInterchange: Integer; safecall; + function InsertInterchange(InsertIndex: Integer): Integer; safecall; + procedure DeleteInterchange(Index: Integer); safecall; + function AddInterchanges(Count: Integer): Integer; safecall; + function InsertInterchanges(InsertIndex: Integer; Count: Integer): Integer; safecall; + procedure DeleteInterchanges; safecall; + function Get_InterchangeCount: Integer; safecall; + property FileName: WideString read Get_FileName write Set_FileName; + property Interchange[Index: Integer]: IEDICOMInterchangeControl read Get_Interchange; + property Options: Byte read Get_Options write Set_Options; + property InterchangeCount: Integer read Get_InterchangeCount; + end; + +// *********************************************************************// +// DispIntf: IEDICOMFileDisp +// Flags: (4416) Dual OleAutomation Dispatchable +// GUID: {DEA6D2C3-98EE-4276-AA08-0AB4F1AEAC0F} +// *********************************************************************// + IEDICOMFileDisp = dispinterface + ['{DEA6D2C3-98EE-4276-AA08-0AB4F1AEAC0F}'] + procedure LoadFromFile(const FileName: WideString); dispid 401; + procedure ReLoadFromFile; dispid 402; + procedure SaveToFile; dispid 403; + procedure SaveAsToFile(const FileName: WideString); dispid 404; + property FileName: WideString dispid 405; + property Interchange[Index: Integer]: IEDICOMInterchangeControl readonly dispid 406; + property Options: Byte dispid 407; + function AddInterchange: Integer; dispid 408; + function InsertInterchange(InsertIndex: Integer): Integer; dispid 409; + procedure DeleteInterchange(Index: Integer); dispid 410; + function AddInterchanges(Count: Integer): Integer; dispid 411; + function InsertInterchanges(InsertIndex: Integer; Count: Integer): Integer; dispid 412; + procedure DeleteInterchanges; dispid 413; + property InterchangeCount: Integer readonly dispid 414; + function Assemble: WideString; dispid 201; + procedure Disassemble; dispid 202; + property State: Integer readonly dispid 203; + property Data: WideString dispid 205; + property DataLength: Integer readonly dispid 204; + property Delimiters: IEDICOMDelimiters readonly dispid 206; + end; + +// *********************************************************************// +// The Class CoEDICOMDelimiters provides a Create and CreateRemote method to +// create instances of the default interface IEDICOMDelimiters exposed by +// the CoClass EDICOMDelimiters. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoEDICOMDelimiters = class + class function Create: IEDICOMDelimiters; + class function CreateRemote(const MachineName: string): IEDICOMDelimiters; + end; + +// *********************************************************************// +// The Class CoEDICOMElement provides a Create and CreateRemote method to +// create instances of the default interface IEDICOMElement exposed by +// the CoClass EDICOMElement. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoEDICOMElement = class + class function Create: IEDICOMElement; + class function CreateRemote(const MachineName: string): IEDICOMElement; + end; + +// *********************************************************************// +// The Class CoEDICOMSegment provides a Create and CreateRemote method to +// create instances of the default interface IEDICOMSegment exposed by +// the CoClass EDICOMSegment. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoEDICOMSegment = class + class function Create: IEDICOMSegment; + class function CreateRemote(const MachineName: string): IEDICOMSegment; + end; + +// *********************************************************************// +// The Class CoEDICOMTransactionSet provides a Create and CreateRemote method to +// create instances of the default interface IEDICOMTransactionSet exposed by +// the CoClass EDICOMTransactionSet. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoEDICOMTransactionSet = class + class function Create: IEDICOMTransactionSet; + class function CreateRemote(const MachineName: string): IEDICOMTransactionSet; + end; + +// *********************************************************************// +// The Class CoEDICOMFunctionalGroup provides a Create and CreateRemote method to +// create instances of the default interface IEDICOMFunctionalGroup exposed by +// the CoClass EDICOMFunctionalGroup. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoEDICOMFunctionalGroup = class + class function Create: IEDICOMFunctionalGroup; + class function CreateRemote(const MachineName: string): IEDICOMFunctionalGroup; + end; + +// *********************************************************************// +// The Class CoEDICOMInterchangeControl provides a Create and CreateRemote method to +// create instances of the default interface IEDICOMInterchangeControl exposed by +// the CoClass EDICOMInterchangeControl. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoEDICOMInterchangeControl = class + class function Create: IEDICOMInterchangeControl; + class function CreateRemote(const MachineName: string): IEDICOMInterchangeControl; + end; + +// *********************************************************************// +// The Class CoEDICOMFile provides a Create and CreateRemote method to +// create instances of the default interface IEDICOMFile exposed by +// the CoClass EDICOMFile. The functions are intended to be used by +// clients wishing to automate the CoClass objects exposed by the +// server of this typelibrary. +// *********************************************************************// + CoEDICOMFile = class + class function Create: IEDICOMFile; + class function CreateRemote(const MachineName: string): IEDICOMFile; + end; + + +// *********************************************************************// +// OLE Server Proxy class declaration +// Server Object : TEDICOMFile +// Help String : +// Default Interface: IEDICOMFile +// Def. Intf. DISP? : No +// Event Interface: +// TypeFlags : (2) CanCreate +// *********************************************************************// +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + TEDICOMFileProperties= class; +{$ENDIF} + TEDICOMFile = class(TOleServer) + private + FIntf: IEDICOMFile; +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps: TEDICOMFileProperties; + function GetServerProperties: TEDICOMFileProperties; +{$ENDIF} + function GetDefaultInterface: IEDICOMFile; + protected + procedure InitServerData; override; + function Get_State: Integer; + function Get_Data: WideString; + procedure Set_Data(const Value: WideString); + function Get_DataLength: Integer; + function Get_Delimiters: IEDICOMDelimiters; + function Get_FileName: WideString; + procedure Set_FileName(const Value: WideString); + function Get_Interchange(Index: Integer): IEDICOMInterchangeControl; + function Get_Options: Byte; + procedure Set_Options(Value: Byte); + function Get_InterchangeCount: Integer; + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure Connect; override; + procedure ConnectTo(svrIntf: IEDICOMFile); + procedure Disconnect; override; + function Assemble: WideString; + procedure Disassemble; + procedure LoadFromFile(const FileName: WideString); + procedure ReLoadFromFile; + procedure SaveToFile; + procedure SaveAsToFile(const FileName: WideString); + function AddInterchange: Integer; + function InsertInterchange(InsertIndex: Integer): Integer; + procedure DeleteInterchange(Index: Integer); + function AddInterchanges(Count: Integer): Integer; + function InsertInterchanges(InsertIndex: Integer; Count: Integer): Integer; + procedure DeleteInterchanges; + property DefaultInterface: IEDICOMFile read GetDefaultInterface; + property State: Integer read Get_State; + property DataLength: Integer read Get_DataLength; + property Delimiters: IEDICOMDelimiters read Get_Delimiters; + property Interchange[Index: Integer]: IEDICOMInterchangeControl read Get_Interchange; + property InterchangeCount: Integer read Get_InterchangeCount; + property Data: WideString read Get_Data write Set_Data; + property FileName: WideString read Get_FileName write Set_FileName; + property Options: Byte read Get_Options write Set_Options; + published +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + property Server: TEDICOMFileProperties read GetServerProperties; +{$ENDIF} + end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +// *********************************************************************// +// OLE Server Properties Proxy Class +// Server Object : TEDICOMFile +// (This object is used by the IDE's Property Inspector to allow editing +// of the properties of this server) +// *********************************************************************// + TEDICOMFileProperties = class(TPersistent) + private + FServer: TEDICOMFile; + function GetDefaultInterface: IEDICOMFile; + constructor Create(AServer: TEDICOMFile); + protected + function Get_State: Integer; + function Get_Data: WideString; + procedure Set_Data(const Value: WideString); + function Get_DataLength: Integer; + function Get_Delimiters: IEDICOMDelimiters; + function Get_FileName: WideString; + procedure Set_FileName(const Value: WideString); + function Get_Interchange(Index: Integer): IEDICOMInterchangeControl; + function Get_Options: Byte; + procedure Set_Options(Value: Byte); + function Get_InterchangeCount: Integer; + public + property DefaultInterface: IEDICOMFile read GetDefaultInterface; + published + property Data: WideString read Get_Data write Set_Data; + property FileName: WideString read Get_FileName write Set_FileName; + property Options: Byte read Get_Options write Set_Options; + end; +{$ENDIF} + + +procedure Register; + +implementation + +uses ComObj; + +class function CoEDICOMDelimiters.Create: IEDICOMDelimiters; +begin + Result := CreateComObject(CLASS_EDICOMDelimiters) as IEDICOMDelimiters; +end; + +class function CoEDICOMDelimiters.CreateRemote(const MachineName: string): IEDICOMDelimiters; +begin + Result := CreateRemoteComObject(MachineName, CLASS_EDICOMDelimiters) as IEDICOMDelimiters; +end; + +class function CoEDICOMElement.Create: IEDICOMElement; +begin + Result := CreateComObject(CLASS_EDICOMElement) as IEDICOMElement; +end; + +class function CoEDICOMElement.CreateRemote(const MachineName: string): IEDICOMElement; +begin + Result := CreateRemoteComObject(MachineName, CLASS_EDICOMElement) as IEDICOMElement; +end; + +class function CoEDICOMSegment.Create: IEDICOMSegment; +begin + Result := CreateComObject(CLASS_EDICOMSegment) as IEDICOMSegment; +end; + +class function CoEDICOMSegment.CreateRemote(const MachineName: string): IEDICOMSegment; +begin + Result := CreateRemoteComObject(MachineName, CLASS_EDICOMSegment) as IEDICOMSegment; +end; + +class function CoEDICOMTransactionSet.Create: IEDICOMTransactionSet; +begin + Result := CreateComObject(CLASS_EDICOMTransactionSet) as IEDICOMTransactionSet; +end; + +class function CoEDICOMTransactionSet.CreateRemote(const MachineName: string): IEDICOMTransactionSet; +begin + Result := CreateRemoteComObject(MachineName, CLASS_EDICOMTransactionSet) as IEDICOMTransactionSet; +end; + +class function CoEDICOMFunctionalGroup.Create: IEDICOMFunctionalGroup; +begin + Result := CreateComObject(CLASS_EDICOMFunctionalGroup) as IEDICOMFunctionalGroup; +end; + +class function CoEDICOMFunctionalGroup.CreateRemote(const MachineName: string): IEDICOMFunctionalGroup; +begin + Result := CreateRemoteComObject(MachineName, CLASS_EDICOMFunctionalGroup) as IEDICOMFunctionalGroup; +end; + +class function CoEDICOMInterchangeControl.Create: IEDICOMInterchangeControl; +begin + Result := CreateComObject(CLASS_EDICOMInterchangeControl) as IEDICOMInterchangeControl; +end; + +class function CoEDICOMInterchangeControl.CreateRemote(const MachineName: string): IEDICOMInterchangeControl; +begin + Result := CreateRemoteComObject(MachineName, CLASS_EDICOMInterchangeControl) as IEDICOMInterchangeControl; +end; + +class function CoEDICOMFile.Create: IEDICOMFile; +begin + Result := CreateComObject(CLASS_EDICOMFile) as IEDICOMFile; +end; + +class function CoEDICOMFile.CreateRemote(const MachineName: string): IEDICOMFile; +begin + Result := CreateRemoteComObject(MachineName, CLASS_EDICOMFile) as IEDICOMFile; +end; + +procedure TEDICOMFile.InitServerData; +const + CServerData: TServerData = ( + ClassID: '{E8400822-5701-4226-8F78-A784B3777CB9}'; + IntfIID: '{DEA6D2C3-98EE-4276-AA08-0AB4F1AEAC0F}'; + EventIID: ''; + LicenseKey: nil; + Version: 500); +begin + ServerData := @CServerData; +end; + +procedure TEDICOMFile.Connect; +var + punk: IUnknown; +begin + if FIntf = nil then + begin + punk := GetServer; + Fintf:= punk as IEDICOMFile; + end; +end; + +procedure TEDICOMFile.ConnectTo(svrIntf: IEDICOMFile); +begin + Disconnect; + FIntf := svrIntf; +end; + +procedure TEDICOMFile.DisConnect; +begin + if Fintf <> nil then + begin + FIntf := nil; + end; +end; + +function TEDICOMFile.GetDefaultInterface: IEDICOMFile; +begin + if FIntf = nil then + Connect; + Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); + Result := FIntf; +end; + +constructor TEDICOMFile.Create(AOwner: TComponent); +begin + inherited Create(AOwner); +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps := TEDICOMFileProperties.Create(Self); +{$ENDIF} +end; + +destructor TEDICOMFile.Destroy; +begin +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} + FProps.Free; +{$ENDIF} + inherited Destroy; +end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +function TEDICOMFile.GetServerProperties: TEDICOMFileProperties; +begin + Result := FProps; +end; +{$ENDIF} + +function TEDICOMFile.Get_State: Integer; +begin + Result := DefaultInterface.Get_State; +end; + +function TEDICOMFile.Get_Data: WideString; +begin + Result := DefaultInterface.Get_Data; +end; + +procedure TEDICOMFile.Set_Data(const Value: WideString); +begin + DefaultInterface.Set_Data(Value); +end; + +function TEDICOMFile.Get_DataLength: Integer; +begin + Result := DefaultInterface.Get_DataLength; +end; + +function TEDICOMFile.Get_Delimiters: IEDICOMDelimiters; +begin + Result := DefaultInterface.Get_Delimiters; +end; + +function TEDICOMFile.Get_FileName: WideString; +begin + Result := DefaultInterface.Get_FileName; +end; + +procedure TEDICOMFile.Set_FileName(const Value: WideString); +begin + DefaultInterface.Set_FileName(Value); +end; + +function TEDICOMFile.Get_Interchange(Index: Integer): IEDICOMInterchangeControl; +begin + Result := DefaultInterface.Get_Interchange(Index); +end; + +function TEDICOMFile.Get_Options: Byte; +begin + Result := DefaultInterface.Get_Options; +end; + +procedure TEDICOMFile.Set_Options(Value: Byte); +begin + DefaultInterface.Set_Options(Value); +end; + +function TEDICOMFile.Get_InterchangeCount: Integer; +begin + Result := DefaultInterface.Get_InterchangeCount; +end; + +function TEDICOMFile.Assemble: WideString; +begin + Result := DefaultInterface.Assemble; +end; + +procedure TEDICOMFile.Disassemble; +begin + DefaultInterface.Disassemble; +end; + +procedure TEDICOMFile.LoadFromFile(const FileName: WideString); +begin + DefaultInterface.LoadFromFile(FileName); +end; + +procedure TEDICOMFile.ReLoadFromFile; +begin + DefaultInterface.ReLoadFromFile; +end; + +procedure TEDICOMFile.SaveToFile; +begin + DefaultInterface.SaveToFile; +end; + +procedure TEDICOMFile.SaveAsToFile(const FileName: WideString); +begin + DefaultInterface.SaveAsToFile(FileName); +end; + +function TEDICOMFile.AddInterchange: Integer; +begin + Result := DefaultInterface.AddInterchange; +end; + +function TEDICOMFile.InsertInterchange(InsertIndex: Integer): Integer; +begin + Result := DefaultInterface.InsertInterchange(InsertIndex); +end; + +procedure TEDICOMFile.DeleteInterchange(Index: Integer); +begin + DefaultInterface.DeleteInterchange(Index); +end; + +function TEDICOMFile.AddInterchanges(Count: Integer): Integer; +begin + Result := DefaultInterface.AddInterchanges(Count); +end; + +function TEDICOMFile.InsertInterchanges(InsertIndex: Integer; Count: Integer): Integer; +begin + Result := DefaultInterface.InsertInterchanges(InsertIndex, Count); +end; + +procedure TEDICOMFile.DeleteInterchanges; +begin + DefaultInterface.DeleteInterchanges; +end; + +{$IFDEF LIVE_SERVER_AT_DESIGN_TIME} +constructor TEDICOMFileProperties.Create(AServer: TEDICOMFile); +begin + inherited Create; + FServer := AServer; +end; + +function TEDICOMFileProperties.GetDefaultInterface: IEDICOMFile; +begin + Result := FServer.DefaultInterface; +end; + +function TEDICOMFileProperties.Get_State: Integer; +begin + Result := DefaultInterface.Get_State; +end; + +function TEDICOMFileProperties.Get_Data: WideString; +begin + Result := DefaultInterface.Get_Data; +end; + +procedure TEDICOMFileProperties.Set_Data(const Value: WideString); +begin + DefaultInterface.Set_Data(Value); +end; + +function TEDICOMFileProperties.Get_DataLength: Integer; +begin + Result := DefaultInterface.Get_DataLength; +end; + +function TEDICOMFileProperties.Get_Delimiters: IEDICOMDelimiters; +begin + Result := DefaultInterface.Get_Delimiters; +end; + +function TEDICOMFileProperties.Get_FileName: WideString; +begin + Result := DefaultInterface.Get_FileName; +end; + +procedure TEDICOMFileProperties.Set_FileName(const Value: WideString); +begin + DefaultInterface.Set_FileName(Value); +end; + +function TEDICOMFileProperties.Get_Interchange(Index: Integer): IEDICOMInterchangeControl; +begin + Result := DefaultInterface.Get_Interchange(Index); +end; + +function TEDICOMFileProperties.Get_Options: Byte; +begin + Result := DefaultInterface.Get_Options; +end; + +procedure TEDICOMFileProperties.Set_Options(Value: Byte); +begin + DefaultInterface.Set_Options(Value); +end; + +function TEDICOMFileProperties.Get_InterchangeCount: Integer; +begin + Result := DefaultInterface.Get_InterchangeCount; +end; + +{$ENDIF} + +procedure Register; +begin + RegisterComponents('ActiveX',[TEDICOMFile]); +end; + +end. diff --git a/official/2.1.1/examples/windows/edisdk/comserver/Clean.bat b/official/2.1.1/examples/windows/edisdk/comserver/Clean.bat new file mode 100644 index 0000000..2bca898 --- /dev/null +++ b/official/2.1.1/examples/windows/edisdk/comserver/Clean.bat @@ -0,0 +1,18 @@ +@echo off +if exist *.~* del *.~* +if exist *.dcu del *.dcu +if exist *.dpl del *.dpl +if exist *.bpl del *.bpl +if exist *.bpi del *.bpi +if exist *.lsp del *.lsp +if exist *.dcp del *.dcp +if exist *.dpc del *.dpc +if exist *.bak del *.bak +if exist *.obj del *.obj +if exist *.hpp del *.hpp +if exist *.lib del *.lib +if exist *.exe del *.exe +if exist *.dsk del *.dsk + + + diff --git a/official/2.1.1/examples/windows/edisdk/comserver/EDISDK.dof b/official/2.1.1/examples/windows/edisdk/comserver/EDISDK.dof new file mode 100644 index 0000000..4575b9a --- /dev/null +++ b/official/2.1.1/examples/windows/edisdk/comserver/EDISDK.dof @@ -0,0 +1,13 @@ +[Directories] +OutputDir=..\..\..\..\bin +[Version Info Keys] +CompanyName=Ray's JEDI Projects +FileDescription=EDI SDK COM Object Library +FileVersion=1.0.0.24 +InternalName= +LegalCopyright=Raymond Alexander +LegalTrademarks= +OriginalFilename=EDISDK.dll +ProductName=EDI SDK COM Object Library +ProductVersion=1.0.0.0 +Comments=Beta version for testing only! diff --git a/official/2.1.1/examples/windows/edisdk/comserver/EDISDK.dpr b/official/2.1.1/examples/windows/edisdk/comserver/EDISDK.dpr new file mode 100644 index 0000000..4a71302 --- /dev/null +++ b/official/2.1.1/examples/windows/edisdk/comserver/EDISDK.dpr @@ -0,0 +1,23 @@ +library EDISDK; + +{$I jcl.inc} + +uses + ComServ, + EDISDK_TLB in 'EDISDK_TLB.pas', + JclEDICOM_ANSIX12 in 'JclEDICOM_ANSIX12.pas'; + +{$R *.TLB} + +{$E dll} + +exports + DllGetClassObject, + DllCanUnloadNow, + DllRegisterServer, + DllUnregisterServer; + +{$R *.RES} + +begin +end. diff --git a/official/2.1.1/examples/windows/edisdk/comserver/EDISDK.res b/official/2.1.1/examples/windows/edisdk/comserver/EDISDK.res new file mode 100644 index 0000000000000000000000000000000000000000..2aff2bdd3ed65c94d0112f0ef33d6d139bb5a19a GIT binary patch literal 1792 zcmbVLO=}ZD7=E@1m=e(_g%&(?U5XVC+L&BK=!eGoSu0j@w4}COt7%%&nAM9$JQ&Eq ze#fZd8;;4$g|T6lss#YimqXVnJ&|2 z6Wb`!{u#S25v@@R)>-1tBzD-{4eqTnvWq*+w1r2+514g_cK30DapJrMYIdlTdbVk? zLFqgy z13Y>-%0W%-D~wm(*PZl#oHnlcn zS3k}@?v_-$$+?Qh%96H%X{2er80C-?le%K=1cmH}T!l=XWvnuPGK$J|cm}I@qGvF8 zX8+4^9x2wfKkh-M2YHq^Q^YuZ!uumtSEBoHiR&6WaZy)>;U_yv?LxaVNy49##P3;CYn2aHbY-EwfF$=p1fsjp;1<|5S zYqW8sBWkQ*qtZevQc&6=qM}Bj6+ddx!5OAzDpRo{Ef_jjZAIztckjDz-^*?c9j6`t z@Xnmvz2}~LzV5l_p7&m62WB;1GyS-9563ch@Aj;nh?E!Lx5Vy-3llK-xYu%fG<;s4FIllWGSBGz^f-) zh#d5k!SO1LODyAjj5{skH4delrY~{|@ez3H@kY=K=wps^h3I$1#}!3({_`;2XyMOw z7@F%p@3_1a%q9WggFfg5_s9md6B<+z4F&KUdYB}2&_vWDMfe2VD(6xKoQOvJ)Y25O ztym7_Sj$it``=~^83W~j{!1@dVf<)7pG*d)X$Sf8 zHyeMKm!^rL$=F}`=@1rb&dO3nr~j_T5BiF-lF3LB-lV=NFHINC3@|jx)G`#t{+Dq< z8EepgmJFVUG?6D4D?2hyS;n9tW9NSs@bxLJgHj` zfa_Odj=0epeZ{#!&~b09bi8W43#4JbW{zvHta0OaGjMl3ap|LPEqJ{0t{47Y z`SepWZu-<<`t;uKTj_@U7RSy|5=ETKmJ4$owVq zYmYPEkbn9!TOKJ{dRfggORjux$(D9y6HU%rsF7wI=` zIZ?N_IW+r6O+UYJ$*Xst&3cUZbK6$VI`8?%{F~o=Vg1G1Z(YV3%>zE$JNg&C_2$R^ zO&i8vwsOj{?QU!~>C;m@zZtGy@B7t}v;MNay~xj6j`$Ow_#WH4HCFe~@vZki-~89P ztnY|_f7>U|&soq~_vF5J-Pr?&zrmW1_zN~Z@cU=`uA2Sm;F zVJ{n|B~S9D->hT$#X6?l)-mm}j;XhGO!?L^M&O`i)8A~2opVH>(O+L%b^f`HwKIaj zAa&7g5XE4%19pH{g;5*pIo5)^!I63n8ooRZ+RXsga53OX>o?|xz>8xhiXqU*-=Jgv zcjz9*yaRIbq4YeXE}mx4xgpzwb(;+y>7YN3F>^21^SrTVYck|*1}~0FK+B%~YXTpy z!MoAGcN+A%_RoRLeBkzB-U}Eu_>hNgCk#C}W_`rIAGnRMxy0aqz|f6zY^*=nufTjC z_?AGQ0RVB{NgY7j3maCU@4=b|LvEkNj_M?G zo3MtdMeC9&CVx=nuL=0C2nNAI;tRa4qcuRzte@?Vw6`s7i$%J+5i?<9KHq!iJ0qv} z7;}@nv6IGJC>E+;usE_X=Etul(X49o?aYv9@SOAOf*LotFx|x89)E+evhOn&^F4^O&`)Lox`p8+Pej zHNkuRa>XNoB&hS&B=6bp8oJbUV1E`a3U#zbW=1<=UD0;vqw`picg{}5E0K&jP5I;G zV$jTLYmd}-(j;s)^9uJW+k5*-Lk{PI%xhfZ^0qEAbR^o0om5eDZNMMTFB#(C6>~%F z%eePCzEZ{bYpOsKAAjxIKp;NO5V`LJ{I!t|%bE;Pf4C|EmvciPpy(KXyn9`qiAy5k zwwYZK#9KHR)Nz^PS-2AT%I@yS(gp32F!2qDhjE^w%YgT{b%*qn8KVv{KSwXnahom9 ztg{eH+J5*cL;Ne#8sn@1(naQ_jD5YVF*I(CEsCE7m$*n+51NkCEb*PM=;)=- z*)qhjXKOmbkrnU_=~!zy#qEcTXsvkzpr#Prz~?b|D<%a&rL%<&K8#(j`Qm_*W`(>R@wN$KCN$_xY}XkXPL_pi_bEo zNZWNTaf$}L@0SN)V;n!j#M5?-&l9H~v1cVUHv~TvhzFNJ=aJLq+Cp)}t#r4OXx@e5 z7vEC)C!ZfLZs|+l4;%IR3F4oxCF2hgNz)D;Cy4X+B$J_Os*#&c6H_;28-`u2f;23T9MA7nSQaJ|AZqyLD!nYQ;8OY*yKG(Mc3dQ== z5gJOz>N_OUlRl{>S{Lm=q9<-Y&OwRiQ*TRjZm6p*gp_Nt^&^SMi;r|$;m2anv0W|E ztGXkV?Q!8ImEy zy^xV59=cm!(3&<+q`iXJu#!vqy`V1;6St_iuuYrx6^IuntC&cf-w8X%iM<1M-reTf z@nT0_0&m2U)@!`@*}(+f#{6yvYHzXsh()T5rDB1K!i`eYjmp!lYDaf%+k&o8*Y(B1 z;d2N_Pq9ezrHQnj)5Xc}W9vmR`h273b1Lzy4~d^<;Q1UxJntFeeFnbTz%vIEKhMB7 z8+hg>;yVre3IoqGL42QqUoHCry!t5U@k4eQ#*@UP9(4GYP%8?61X?!M`FJz{O^Qk5 z7Jh-(!jgtIG6qOrh9@`8r%dumOTs73q?so9sIM<}KItaSbjc?p37-s;#v}QpC($R< zq$!ttG7TE_{G#m2GHJY$CMyYz!=$N@G>!zC7hyl)B?DeYPk06J2f(WU)^7wpgA#Z~ z2&@bEjK=+D<9=|j+X39GZGioN696|HU4fp@xr{4x@H(Gt#i~MRWyOIMxKtYsB36Oc zhdCd9`*`k{4?rXv`7#cN0VCtW=~sJB!e*?Y|B4_}@3|X#IMW#k$znn8b9`+XgzB}^ zq+it@a=qqXhN@K4OqcttV#*#b)>vTts(5kO_*i415i}|m+!h+Wf800j8G-x9z2kE+ zpY{2S%Da@nJDz8ejlSZ(Gy{488v$I)_i-Nd(gytY;;Uc*{HR=>*2DXR9`gd?HphLc z;!S^{w9>@Snos&gomsnI;{Nr+zfQmQU7U}{;@@h~1e$bHH@G>r$I)v@K1v6X82TJMLI z-g@S~jET`>;*9c(!$#-e2z1YeC)qpQjOe}&vI)=WC z303=yl_$oE3D%(d0DN!EcgB4G$!EMpfIa}<{qh-&?Nnl7-~TyJ^gypKa!lyEzE7j?18l`&QpOW5v@?!I1Cy z`3=Ag;I|HbE9e36d5q7%eE-gG1N(vK-J{%)Hp85E#hu;DC{ea(b_&mmMHT`8?Ao<*H|ubv7Dn%|yBCnTOAV@n<=E z{p9o~-jyC(th07>!DIHijawAgE!*6Su-uDm>3@6em}Al`lC@)w$un8~SAn-cdVkwx z?U;+$vgW* zjo;DueUabC7&nA|0KX>^_?>eIa00;Zcl<`kZ;<>}$Hv%Z%v