jcl-checkins-diff Mailing List for JEDI Code Library (Page 43)

Brought to you by: mthoma, obones, outchy, rrossmair

jcl-checkins-diff — SVN file check-in notifications with file differences included

You can subscribe to this list here.

2006	Jan	Feb	Mar	Apr (20)	May (48)	Jun (8)	Jul (23)	Aug (41)	Sep (42)	Oct (22)	Nov (17)	Dec (36)
2007	Jan (43)	Feb (42)	Mar (17)	Apr (39)	May (16)	Jun (35)	Jul (37)	Aug (47)	Sep (49)	Oct (9)	Nov (52)	Dec (37)
2008	Jan (48)	Feb (21)	Mar (7)	Apr (2)	May (5)	Jun (17)	Jul (17)	Aug (40)	Sep (58)	Oct (38)	Nov (19)	Dec (32)
2009	Jan (67)	Feb (46)	Mar (54)	Apr (34)	May (37)	Jun (52)	Jul (67)	Aug (72)	Sep (48)	Oct (35)	Nov (27)	Dec (12)
2010	Jan (56)	Feb (46)	Mar (19)	Apr (14)	May (21)	Jun (3)	Jul (13)	Aug (48)	Sep (34)	Oct (51)	Nov (16)	Dec (32)
2011	Jan (36)	Feb (14)	Mar (12)	Apr (3)	May (5)	Jun (24)	Jul (15)	Aug (30)	Sep (21)	Oct (4)	Nov (25)	Dec (23)
2012	Jan (45)	Feb (42)	Mar (19)	Apr (14)	May (13)	Jun (7)	Jul (3)	Aug (46)	Sep (21)	Oct (10)	Nov (2)	Dec
2013	Jan (5)	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec

Flat | Threaded

<< < 1 .. 41 42 43 44 45 .. 92 > >> (Page 43 of 92)

[Jcl-checkins-diff] SF.net SVN: jcl:[2842] trunk/jcl/lib/d9.net/

From: <ou...@us...> - 2009-07-02 14:22:16

Revision: 2842
          http://jcl.svn.sourceforge.net/jcl/?rev=2842&view=rev
Author:   outchy
Date:     2009-07-02 13:30:11 +0000 (Thu, 02 Jul 2009)

Log Message:
-----------
Delphi.net support removal.

Removed Paths:
-------------
    trunk/jcl/lib/d9.net/


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2841] trunk

From: <ou...@us...> - 2009-07-02 13:24:26

Revision: 2841
          http://jcl.svn.sourceforge.net/jcl/?rev=2841&view=rev
Author:   outchy
Date:     2009-07-02 13:24:19 +0000 (Thu, 02 Jul 2009)

Log Message:
-----------
Delphi.net support removal

Modified Paths:
--------------
    trunk/jcl/devtools/included_files.bat
    trunk/jcl/devtools/included_files.sh
    trunk/jcl/devtools/pgEdit.xml
    trunk/jcl/install/JclInstall.pas
    trunk/jcl/packages/xml/Jcl-R.xml
    trunk/jcl/packages/xml/JclContainers-R.xml
    trunk/jcl/source/common/JclAbstractContainers.pas
    trunk/jcl/source/common/JclAlgorithms.pas
    trunk/jcl/source/common/JclAnsiStrings.pas
    trunk/jcl/source/common/JclArrayLists.pas
    trunk/jcl/source/common/JclArraySets.pas
    trunk/jcl/source/common/JclBase.pas
    trunk/jcl/source/common/JclBinaryTrees.pas
    trunk/jcl/source/common/JclCharsets.pas
    trunk/jcl/source/common/JclComplex.pas
    trunk/jcl/source/common/JclContainerIntf.pas
    trunk/jcl/source/common/JclCounter.pas
    trunk/jcl/source/common/JclDateTime.pas
    trunk/jcl/source/common/JclEDI.pas
    trunk/jcl/source/common/JclEDISEF.pas
    trunk/jcl/source/common/JclEDIXML.pas
    trunk/jcl/source/common/JclEDI_ANSIX12.pas
    trunk/jcl/source/common/JclEDI_UNEDIFACT.pas
    trunk/jcl/source/common/JclFileUtils.pas
    trunk/jcl/source/common/JclHashMaps.pas
    trunk/jcl/source/common/JclHashSets.pas
    trunk/jcl/source/common/JclIniFiles.pas
    trunk/jcl/source/common/JclLinkedLists.pas
    trunk/jcl/source/common/JclLogic.pas
    trunk/jcl/source/common/JclMath.pas
    trunk/jcl/source/common/JclMime.pas
    trunk/jcl/source/common/JclNotify.pas
    trunk/jcl/source/common/JclQueues.pas
    trunk/jcl/source/common/JclRTTI.pas
    trunk/jcl/source/common/JclResources.pas
    trunk/jcl/source/common/JclSimpleXml.pas
    trunk/jcl/source/common/JclSortedMaps.pas
    trunk/jcl/source/common/JclStacks.pas
    trunk/jcl/source/common/JclStatistics.pas
    trunk/jcl/source/common/JclStrHashMap.pas
    trunk/jcl/source/common/JclStreams.pas
    trunk/jcl/source/common/JclStringConversions.pas
    trunk/jcl/source/common/JclStringLists.pas
    trunk/jcl/source/common/JclStrings.pas
    trunk/jcl/source/common/JclSynch.pas
    trunk/jcl/source/common/JclSysInfo.pas
    trunk/jcl/source/common/JclSysUtils.pas
    trunk/jcl/source/common/JclTrees.pas
    trunk/jcl/source/common/JclUnicode.pas
    trunk/jcl/source/common/JclUnitConv.pas
    trunk/jcl/source/common/JclValidation.pas
    trunk/jcl/source/common/JclVectors.pas
    trunk/jcl/source/prototypes/JclAlgorithms.pas
    trunk/jcl/source/prototypes/JclArrayLists.pas
    trunk/jcl/source/prototypes/JclArraySets.pas
    trunk/jcl/source/prototypes/JclBinaryTrees.pas
    trunk/jcl/source/prototypes/JclContainerIntf.pas
    trunk/jcl/source/prototypes/JclHashMaps.pas
    trunk/jcl/source/prototypes/JclHashSets.pas
    trunk/jcl/source/prototypes/JclLinkedLists.pas
    trunk/jcl/source/prototypes/JclQueues.pas
    trunk/jcl/source/prototypes/JclSortedMaps.pas
    trunk/jcl/source/prototypes/JclStacks.pas
    trunk/jcl/source/prototypes/JclTrees.pas
    trunk/jcl/source/prototypes/JclVectors.pas
    trunk/jcl/source/prototypes/JclWin32.pas
    trunk/jcl/source/prototypes/containers/JclHashMaps.imp
    trunk/jcl/source/prototypes/containers/JclSortedMaps.imp
    trunk/jcl/source/prototypes/win32api/AclApi.imp
    trunk/jcl/source/prototypes/win32api/AclApi.int
    trunk/jcl/source/prototypes/win32api/DelayImp.int
    trunk/jcl/source/prototypes/win32api/ImageHlp.imp
    trunk/jcl/source/prototypes/win32api/ImageHlp.int
    trunk/jcl/source/prototypes/win32api/LmAccess.imp
    trunk/jcl/source/prototypes/win32api/LmAccess.int
    trunk/jcl/source/prototypes/win32api/LmApiBuf.imp
    trunk/jcl/source/prototypes/win32api/LmApiBuf.int
    trunk/jcl/source/prototypes/win32api/Nb30.imp
    trunk/jcl/source/prototypes/win32api/Nb30.int
    trunk/jcl/source/prototypes/win32api/ObjBase.imp
    trunk/jcl/source/prototypes/win32api/ObjBase.int
    trunk/jcl/source/prototypes/win32api/WinBase.imp
    trunk/jcl/source/prototypes/win32api/WinBase.int
    trunk/jcl/source/prototypes/win32api/WinNLS.imp
    trunk/jcl/source/prototypes/win32api/WinNLS.int
    trunk/jcl/source/prototypes/win32api/WinNT.imp
    trunk/jcl/source/prototypes/win32api/WinNT.int
    trunk/jcl/source/prototypes/win32api/WinUser.int
    trunk/jcl/source/prototypes/win32api/powrprof.imp
    trunk/jcl/source/prototypes/win32api/powrprof.int
    trunk/jcl/source/windows/JclConsole.pas
    trunk/jcl/source/windows/JclWin32.pas
    trunk/thirdparty/svn_cleaner/SvnCleaner.xml

Removed Paths:
-------------
    trunk/jcl/examples/dotnet/
    trunk/jcl/lib/d10.net/
    trunk/jcl/lib/d11.net/
    trunk/jcl/packages/JclNetPackagesD100.bdsgroup
    trunk/jcl/packages/JclNetPackagesD110.groupproj
    trunk/jcl/packages/JclNetPackagesD90.bdsgroup
    trunk/jcl/packages/d10.net/
    trunk/jcl/packages/d11.net/
    trunk/jcl/packages/d9.net/

Property Changed:
----------------
    trunk/jcl/source/include/

Modified: trunk/jcl/devtools/included_files.bat
===================================================================
--- trunk/jcl/devtools/included_files.bat	2009-07-02 10:50:10 UTC (rev 2840)
+++ trunk/jcl/devtools/included_files.bat	2009-07-02 13:24:19 UTC (rev 2841)
@@ -8,10 +8,7 @@
 copy ..\source\include\jcl.template.inc ..\source\include\jclcs1.inc
 copy ..\source\include\jcl.template.inc ..\source\include\jcld8.inc
 copy ..\source\include\jcl.template.inc ..\source\include\jcld9.inc
-copy ..\source\include\jcl.template.inc ..\source\include\jcld9.net.inc
 copy ..\source\include\jcl.template.inc ..\source\include\jcld10.inc
-copy ..\source\include\jcl.template.inc ..\source\include\jcld10.net.inc
 copy ..\source\include\jcl.template.inc ..\source\include\jcld11.inc
-copy ..\source\include\jcl.template.inc ..\source\include\jcld11.net.inc
 copy ..\source\include\jcl.template.inc ..\source\include\jcld12.inc
 

Modified: trunk/jcl/devtools/included_files.sh
===================================================================
--- trunk/jcl/devtools/included_files.sh	2009-07-02 10:50:10 UTC (rev 2840)
+++ trunk/jcl/devtools/included_files.sh	2009-07-02 13:24:19 UTC (rev 2841)
@@ -10,10 +10,7 @@
 cp ../source/include/jcl.template.inc ../source/include/jclcs1.inc
 cp ../source/include/jcl.template.inc ../source/include/jcld8.inc
 cp ../source/include/jcl.template.inc ../source/include/jcld9.inc
-cp ../source/include/jcl.template.inc ../source/include/jcld9.net.inc
 cp ../source/include/jcl.template.inc ../source/include/jcld10.inc
-cp ../source/include/jcl.template.inc ../source/include/jcld10.net.inc
 cp ../source/include/jcl.template.inc ../source/include/jcld11.inc
-cp ../source/include/jcl.template.inc ../source/include/jcld11.net.inc
 cp ../source/include/jcl.template.inc ../source/include/jcld12.inc
 

Modified: trunk/jcl/devtools/pgEdit.xml
===================================================================
--- trunk/jcl/devtools/pgEdit.xml	2009-07-02 10:50:10 UTC (rev 2840)
+++ trunk/jcl/devtools/pgEdit.xml	2009-07-02 13:24:19 UTC (rev 2841)
@@ -70,10 +70,7 @@
         <target name="cs1" IsBds="1"/>
         <target name="d9" IsBds="1"/>
         <target name="d10" defines="BCB" IsBds="1"/>
-        <target name="d9.net" IsDotNet="1"/>
-        <target name="d10.net" IsDotNet="1"/>
         <target name="d11" defines="BCB" IsBds="1"/>
-        <target name="d11.net" IsDotNet="1"/>
         <target name="d12" defines="BCB" IsBds="1"/>
       </targets>
       <aliases>
@@ -91,7 +88,6 @@
         <alias name="Clx" value="c6,d6,d7"/>
         <alias name="Vcl" value="c5,d5,c6,d6,d7,d9,d10,d11,d12"/>
         <alias name="Bds" value="cs1,d8,d9,d10,d11,d12"/>
-        <alias name="JclDotNet" value="d9.net,d10.net,d11.net"/>
         <alias name="OldStyleIDE" value="c5,c6,d5,d6,d7"/>
       </aliases>
       <ProjectProperties>

Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas	2009-07-02 10:50:10 UTC (rev 2840)
+++ trunk/jcl/install/JclInstall.pas	2009-07-02 13:24:19 UTC (rev 2841)
@@ -100,7 +100,6 @@
         joJCLVclPackage,
         joJCLDualPackages,
         joJCLCopyPackagesHppFiles,
-        joJCLPdbCreate,
         joJCLMapCreate,
           joJCLJdbgCreate,
           joJCLJdbgInsert,
@@ -134,7 +133,6 @@
     // identification
     FDistribution: TJclDistribution;
     FTarget: TJclBorRADToolInstallation;
-    FCLRVersion: string;
     FTargetName: string;
     FTargetPlatform: TJclBorPlatform;
     FGUIPage: IJediInstallPage;
@@ -160,14 +158,10 @@
     function GetIsProfileEnabled(Index: Integer): Boolean;
     function GetProfilesTarget(Index: Integer): TJclBorRADToolInstallation;
   protected
-    // if CLRVersion = '' then it is a native installation
     constructor Create(JclDistribution: TJclDistribution;
-      InstallTarget: TJclBorRADToolInstallation; const ACLRVersion: string = '';
-      ATargetPlatform: TJclBorPlatform = bp32bit; AGUIPage: IJediInstallPage = nil);
+      InstallTarget: TJclBorRADToolInstallation; ATargetPlatform: TJclBorPlatform = bp32bit;
+      AGUIPage: IJediInstallPage = nil);
     function CompileLibraryUnits(const SubDir: string; Debug: Boolean): Boolean;
-    {$IFDEF MSWINDOWS}
-    function CompileCLRPackage(const Name: string): Boolean;
-    {$ENDIF MSWINDOWS}
     function CompilePackage(const Name: string): Boolean;
     function CompileApplication(FileName: string): Boolean;
     function DeletePackage(const Name: string): Boolean;
@@ -194,7 +188,6 @@
 
     property Distribution: TJclDistribution read FDistribution;
     property Target: TJclBorRADToolInstallation read FTarget;
-    property CLRVersion: string read FCLRVersion;
     property TargetName: string read FTargetName;
     property GUIPage: IJediInstallPage read FGUIPage;
     property GUI: IJediInstallGUI read FGUI;
@@ -232,7 +225,6 @@
     FNbEnabled: Integer;
     FNbInstalled: Integer;
     {$IFDEF MSWINDOWS}
-    FCLRVersions: TStrings;
     FRegHelpCommands: TStrings;
     {$ENDIF MSWINDOWS}
     FRadToolInstallations: TJclBorRADToolInstallations;
@@ -287,9 +279,6 @@
     property JclHlpHelpFileName: string read FJclHlpHelpFileName;
     property JclHxSHelpFileName: string read FJclHxSHelpFileName;
     property JclReadmeFileName: string read FJclReadmeFileName;
-    {$IFDEF MSWINDOWS}
-    property CLRVersions: TStrings read FCLRVersions;
-    {$ENDIF MSWINDOWS}
     property RadToolInstallations: TJclBorRADToolInstallations read FRadToolInstallations;
     property TargetInstalls[Index: Integer]: TJclInstallation read GetTargetInstall;
     property TargetInstallCount: Integer read GetTargetInstallCount;
@@ -325,7 +314,6 @@
   RsNameBPIPath = 'BPI-Path';
 
 // Captions
-  RsCaptionOutputPath = '&Output path:';
   RsCaptionBPLPath    = '&BPL path:';
   RsCaptionDCPPath    = '&DCP path:';
   RsCaptionBPIPath    = 'BP&I path:';
@@ -389,7 +377,6 @@
   RsCaptionDef7zLinkOnRequest  = 'Late bind to 7z.dll';
   
   // post compilation
-  RsCaptionPdbCreate  = 'Create PDB debug information';
   RsCaptionMapCreate  = 'Create MAP files';
   RsCaptionJdbgCreate = 'Create JEDI Debug Informations';
   RsCaptionJdbgInsert = 'Insert JEDI Debug Informations in the libraries';
@@ -504,7 +491,6 @@
   RsHintDef7zLinkOnRequest  = 'JCL binaries require 7z.dll when calling Sevenzip functions';
 
   // post compilation
-  RsHintPdbCreate  = 'Create detailed debug information for libraries';
   RsHintMapCreate  = 'Create detailed MAP files for each libraries';
   RsHintJdbgCreate = 'Create JEDI Debug Informations from the MAP files';
   RsHintJdbgInsert = 'Insert JEDI Debug Informations into the libraries (only the BPL has to be redistributed)';
@@ -647,7 +633,6 @@
       (Id: -1; Caption: RsCaptionVclPackage; Hint: RsHintVclPackage), // joVclPackage
       (Id: -1; Caption: RsCaptionDualPackages; Hint: RsHintDualPackages), // joDualPackages
       (Id: -1; Caption: RsCaptionCopyPackagesHppFiles; Hint: RsHintCopyPackagesHppFiles), // joCopyPackagesHppFiles
-      (Id: -1; Caption: RsCaptionPdbCreate; Hint: RsHintPdbCreate), // joPdbCreate
       (Id: -1; Caption: RsCaptionMapCreate; Hint: RsHintMapCreate), // joMapCreate
       (Id: -1; Caption: RsCaptionJdbgCreate; Hint: RsHintJdbgCreate), // joJdbgCreate
       (Id: -1; Caption: RsCaptionJdbgInsert; Hint: RsHintJdbgInsert), // joJdbgInsert
@@ -813,8 +798,8 @@
 //=== { TJclInstallation } ===================================================
 
 constructor TJclInstallation.Create(JclDistribution: TJclDistribution;
-  InstallTarget: TJclBorRADToolInstallation; const ACLRVersion: string;
-  ATargetPlatform: TJclBorPlatform; AGUIPage: IJediInstallPage);
+  InstallTarget: TJclBorRADToolInstallation; ATargetPlatform: TJclBorPlatform;
+  AGUIPage: IJediInstallPage);
 begin
   inherited Create;
 
@@ -823,14 +808,11 @@
     Abort;
 
   FDistribution := JclDistribution;
-  FCLRVersion := ACLRVersion;
   FTargetPlatform := ATargetPlatform;
   FTargetName := Target.Name;
-  if CLRVersion <> '' then
-    FTargetName := Format('%s CLR %s', [FTargetName, CLRVersion]);
 
   // exclude C#Builder 1, Delphi 8 and .net targets
-  FRunTimeInstallation := (CLRVersion <> '') or (Target.RadToolKind <> brBorlandDevStudio)
+  FRunTimeInstallation := (Target.RadToolKind <> brBorlandDevStudio)
     or ((Target.VersionNumber >= 3) and (bpDelphi32 in Target.Personalities));
 
   case TargetPlatform of
@@ -1001,8 +983,7 @@
   begin
     AddOption(joJCLDefThreadSafe, [goChecked], Parent);
     AddOption(joJCLDefDropObsoleteCode, [goChecked], Parent);
-    if CLRVersion = '' then
-      AddOption(joJCLDefUnitVersioning, [goChecked], Parent);
+    AddOption(joJCLDefUnitVersioning, [goChecked], Parent);
 
     AddOption(joJCLDefMath, [goChecked], Parent);
     AddOption(joJCLDefMathPrecSingle, [goRadioButton], joJCLDefMath);
@@ -1018,69 +999,59 @@
       AddOption(joJCLDefContainerUnicodeStr, [goRadioButton, goChecked], joJCLDefContainer);
     end
     else
-    if CLRVersion = '' then
     begin
       AddOption(joJCLDefContainerAnsiStr, [goRadioButton, goChecked], joJCLDefContainer);
       AddOption(joJCLDefContainerWideStr, [goRadioButton], joJCLDefContainer);
       AddOption(joJCLDefContainerUnicodeStr, [goRadioButton], joJCLDefContainer);
-    end
-    else
-    begin
-      AddOption(joJCLDefContainerAnsiStr, [goRadioButton], joJCLDefContainer);
-      AddOption(joJCLDefContainerWideStr, [goRadioButton, goChecked], joJCLDefContainer);
-      AddOption(joJCLDefContainerUnicodeStr, [goRadioButton], joJCLDefContainer);
     end;
     AddOption(joJCLDefContainerNoStr, [goRadioButton], joJCLDefContainer);
 
-    if CLRVersion = '' then   // these units are not CLR compliant
+    {$IFDEF MSWINDOWS}
+    // debug options
+    AddOption(joJCLDefDebug, [goNoAutoCheck], Parent);
+    AddOption(joJCLDefHookDllExceptions, [goNoAutoCheck], joJCLDefDebug);
+    AddOption(joJCLDefDebugNoBinary, [goNoAutoCheck], joJCLDefDebug);
+    AddOption(joJCLDefDebugNoTD32, [goNoAutoCheck], joJCLDefDebug);
+    AddOption(joJCLDefDebugNoMap, [goNoAutoCheck], joJCLDefDebug);
+    AddOption(joJCLDefDebugNoExports, [goNoAutoCheck], joJCLDefDebug);
+    AddOption(joJCLDefDebugNoSymbols, [goNoAutoCheck], joJCLDefDebug);
+    {$ENDIF MSWINDOWS}
+    // EDI options
+    AddOption(joJCLDefEDI, [goNoAutoCheck], Parent);
+    AddOption(joJCLDefEDIWeakPackageUnits, [goNoAutoCheck], joJCLDefEDI);
+    // PCRE options
+    AddOption(joJCLDefPCRE, [goChecked], Parent);
+    if Target.RadToolKind = brBorlandDevStudio then
     begin
-      {$IFDEF MSWINDOWS}
-      // debug options
-      AddOption(joJCLDefDebug, [goNoAutoCheck], Parent);
-      AddOption(joJCLDefHookDllExceptions, [goNoAutoCheck], joJCLDefDebug);
-      AddOption(joJCLDefDebugNoBinary, [goNoAutoCheck], joJCLDefDebug);
-      AddOption(joJCLDefDebugNoTD32, [goNoAutoCheck], joJCLDefDebug);
-      AddOption(joJCLDefDebugNoMap, [goNoAutoCheck], joJCLDefDebug);
-      AddOption(joJCLDefDebugNoExports, [goNoAutoCheck], joJCLDefDebug);
-      AddOption(joJCLDefDebugNoSymbols, [goNoAutoCheck], joJCLDefDebug);
-      {$ENDIF MSWINDOWS}
-      // EDI options
-      AddOption(joJCLDefEDI, [goNoAutoCheck], Parent);
-      AddOption(joJCLDefEDIWeakPackageUnits, [goNoAutoCheck], joJCLDefEDI);
-      // PCRE options
-      AddOption(joJCLDefPCRE, [goChecked], Parent);
-      if Target.RadToolKind = brBorlandDevStudio then
-      begin
-        AddOption(joJCLDefPCREStaticLink, [goRadioButton, goChecked], joJCLDefPCRE);
-        AddOption(joJCLDefPCRELinkOnRequest, [goRadioButton], joJCLDefPCRE);
-      end
-      else
-        AddOption(joJCLDefPCRELinkOnRequest, [goRadioButton, goChecked], joJCLDefPCRE);
-      AddOption(joJCLDefPCRELinkDLL, [goRadioButton], joJCLDefPCRE);
-      // BZip2 options
-      AddOption(joJCLDefBZip2, [goChecked], Parent);
-      AddOption(joJCLDefBZip2StaticLink, [goRadioButton, goChecked], joJCLDefBZip2);
-      AddOption(joJCLDefBZip2LinkOnRequest, [goRadioButton], joJCLDefBZip2);
-      AddOption(joJCLDefBZip2LinkDLL, [goRadioButton], joJCLDefBZip2);
-      // ZLib options
-      AddOption(joJCLDefZLib, [goChecked], Parent);
-      AddOption(joJCLDefZLibStaticLink, [goRadioButton, goChecked], joJCLDefZLib);
-      AddOption(joJCLDefZLibLinkOnRequest, [goRadioButton], joJCLDefZLib);
-      AddOption(joJCLDefZLibLinkDLL, [goRadioButton], joJCLDefZLib);
-      // Unicode options
-      AddOption(joJCLDefUnicode, [goChecked], Parent);
-      AddOption(joJCLDefUnicodeSilentFailure, [goChecked], joJCLDefUnicode);
-      AddOption(joJCLDefUnicodeRawData, [goRadioButton, goChecked], joJCLDefUnicode);
-      AddOption(joJCLDefUnicodeZLibData, [goRadioButton], joJCLDefUnicode);
-      AddOption(joJCLDefUnicodeBZip2Data, [goRadioButton], joJCLDefUnicode);
-      {$IFDEF MSWINDOWS}
-      // Sevenzip options
-      AddOption(joJCLDef7z, [goChecked], Parent);
-      //AddOption(joJCLDef7zStaticLink, [goRadioButton], joDef7z);
-      AddOption(joJCLDef7zLinkOnRequest, [goRadioButton, goChecked], joJCLDef7z);
-      AddOption(joJCLDef7zLinkDLL, [goRadioButton], joJCLDef7z);
-      {$ENDIF MSWINDOWS}
-    end;
+      AddOption(joJCLDefPCREStaticLink, [goRadioButton, goChecked], joJCLDefPCRE);
+      AddOption(joJCLDefPCRELinkOnRequest, [goRadioButton], joJCLDefPCRE);
+    end
+    else
+      AddOption(joJCLDefPCRELinkOnRequest, [goRadioButton, goChecked], joJCLDefPCRE);
+    AddOption(joJCLDefPCRELinkDLL, [goRadioButton], joJCLDefPCRE);
+    // BZip2 options
+    AddOption(joJCLDefBZip2, [goChecked], Parent);
+    AddOption(joJCLDefBZip2StaticLink, [goRadioButton, goChecked], joJCLDefBZip2);
+    AddOption(joJCLDefBZip2LinkOnRequest, [goRadioButton], joJCLDefBZip2);
+    AddOption(joJCLDefBZip2LinkDLL, [goRadioButton], joJCLDefBZip2);
+    // ZLib options
+    AddOption(joJCLDefZLib, [goChecked], Parent);
+    AddOption(joJCLDefZLibStaticLink, [goRadioButton, goChecked], joJCLDefZLib);
+    AddOption(joJCLDefZLibLinkOnRequest, [goRadioButton], joJCLDefZLib);
+    AddOption(joJCLDefZLibLinkDLL, [goRadioButton], joJCLDefZLib);
+    // Unicode options
+    AddOption(joJCLDefUnicode, [goChecked], Parent);
+    AddOption(joJCLDefUnicodeSilentFailure, [goChecked], joJCLDefUnicode);
+    AddOption(joJCLDefUnicodeRawData, [goRadioButton, goChecked], joJCLDefUnicode);
+    AddOption(joJCLDefUnicodeZLibData, [goRadioButton], joJCLDefUnicode);
+    AddOption(joJCLDefUnicodeBZip2Data, [goRadioButton], joJCLDefUnicode);
+    {$IFDEF MSWINDOWS}
+    // Sevenzip options
+    AddOption(joJCLDef7z, [goChecked], Parent);
+    //AddOption(joJCLDef7zStaticLink, [goRadioButton], joDef7z);
+    AddOption(joJCLDef7zLinkOnRequest, [goRadioButton, goChecked], joJCLDef7z);
+    AddOption(joJCLDef7zLinkDLL, [goRadioButton], joJCLDef7z);
+    {$ENDIF MSWINDOWS}
   end;
 
   procedure AddEnvOptions(Parent: TInstallerOption);
@@ -1096,21 +1067,18 @@
     AddOption(joJCLMakeRelease, [goStandAloneParent, goExpandable, goChecked], Parent);
     AddOption(joJCLMakeDebug, [goStandAloneParent, goExpandable, goChecked], Parent);
 
-    if CLRVersion = '' then
+    if Target.SupportsVCL then
     begin
-      if Target.SupportsVCL then
-      begin
-        AddOption(joJCLMakeReleaseVCL, [goChecked], joJCLMakeRelease);
-        AddOption(joJCLMakeDebugVCL, [goChecked], joJCLMakeDebug);
-      end;
+      AddOption(joJCLMakeReleaseVCL, [goChecked], joJCLMakeRelease);
+      AddOption(joJCLMakeDebugVCL, [goChecked], joJCLMakeDebug);
+    end;
 
-      if bpBCBuilder32 in Target.Personalities then
-      begin
-        AddOption(joJCLCopyHppFiles, [goChecked], OptionData[joJCLMake].Id,
-          Format(OptionData[joJCLCopyHppFiles].Caption, [Target.VclIncludeDir]),
-          OptionData[joJCLCopyHppFiles].Hint);
-        AddOption(joJCLCheckHppFiles, [goChecked], joJCLMake);
-      end;
+    if bpBCBuilder32 in Target.Personalities then
+    begin
+      AddOption(joJCLCopyHppFiles, [goChecked], OptionData[joJCLMake].Id,
+        Format(OptionData[joJCLCopyHppFiles].Caption, [Target.VclIncludeDir]),
+        OptionData[joJCLCopyHppFiles].Hint);
+      AddOption(joJCLCheckHppFiles, [goChecked], joJCLMake);
     end;
   end;
 
@@ -1159,9 +1127,9 @@
 
   procedure AddPackageOptions(Parent: TInstallerOption);
   begin
-    if (CLRVersion = '') and RuntimeInstallation and Target.SupportsVCL then
+    if RuntimeInstallation and Target.SupportsVCL then
       AddOption(joJCLVclPackage, [goChecked], Parent);
-    if (bpBCBuilder32 in Target.Personalities) and RunTimeInstallation and (CLRVersion = '') then
+    if (bpBCBuilder32 in Target.Personalities) and RunTimeInstallation then
     begin
       if (Target.RadToolKind = brBorlandDevStudio) and (Target.VersionNumber >= 4) then
       begin
@@ -1176,24 +1144,19 @@
           OptionData[joJCLCopyPackagesHppFiles].Hint);
     end;
 
-    if CLRVersion = '' then
-    begin
-      AddOption(joJCLMapCreate, [goExpandable, goStandaloneParent, goNoAutoCheck], Parent);
+    AddOption(joJCLMapCreate, [goExpandable, goStandaloneParent, goNoAutoCheck], Parent);
 
-      {$IFDEF MSWINDOWS}
-      AddOption(joJCLJdbgCreate, [goExpandable, goStandaloneParent], joJCLMapCreate);
-      AddOption(joJCLJdbgInsert, [goNoAutoCheck], joJCLMapCreate);
-      AddOption(joJCLMapDelete, [goNoAutoCheck], joJCLMapCreate);
+    {$IFDEF MSWINDOWS}
+    AddOption(joJCLJdbgCreate, [goExpandable, goStandaloneParent], joJCLMapCreate);
+    AddOption(joJCLJdbgInsert, [goNoAutoCheck], joJCLMapCreate);
+    AddOption(joJCLMapDelete, [goNoAutoCheck], joJCLMapCreate);
 
-      {if (Target.RadToolKind = brBorlandDevStudio) and (Target.VersionNumber = 3)
-        and (Target.Edition = deStd) then
-        CopyFakeXmlRtlPackage;
-      TODO: CopyFakeXmlRtlPackage
-      }
-      {$ENDIF MSWINDOWS}
-    end
-    else // CLRVersion <> ''
-      AddOption(joJCLPdbCreate, [goNoAutoCheck], Parent);
+    {if (Target.RadToolKind = brBorlandDevStudio) and (Target.VersionNumber = 3)
+      and (Target.Edition = deStd) then
+      CopyFakeXmlRtlPackage;
+    TODO: CopyFakeXmlRtlPackage
+    }
+    {$ENDIF MSWINDOWS}
   end;
 
   procedure AddExpertOptions(Parent: TInstallerOption);
@@ -1294,7 +1257,7 @@
 
     if not Target.IsTurboExplorer then
     begin
-      if FRunTimeInstallation and (CLRVersion = '') then
+      if FRunTimeInstallation then
       begin
         ADemoList := GetDemoList;
         if AConfiguration.SectionExists(FDemoSectionName) then
@@ -1336,11 +1299,8 @@
     AddOption(joJCLDef, [goExpandable, goChecked], OptionData[joJediCodeLibrary].Id);
     AddDefOptions(joJCLDef);
 
-    if CLRVersion = '' then
-    begin
-      AddOption(joJCLEnvironment, [goExpandable, goChecked], OptionData[joJediCodeLibrary].Id);
-      AddEnvOptions(joJCLEnvironment);
-    end;
+    AddOption(joJCLEnvironment, [goExpandable, goChecked], OptionData[joJediCodeLibrary].Id);
+    AddEnvOptions(joJCLEnvironment);
 
     if not Target.IsTurboExplorer then
     begin
@@ -1348,11 +1308,8 @@
       AddMakeOptions(joJCLMake);
     end;
 
-    if CLRVersion = '' then
-    begin
-      AddHelpOptions(joJediCodeLibrary);
-      AddRepositoryOptions(joJediCodeLibrary);
-    end;
+    AddHelpOptions(joJediCodeLibrary);
+    AddRepositoryOptions(joJediCodeLibrary);
   end;
 
   if not Target.IsTurboExplorer then
@@ -1360,30 +1317,22 @@
     AddOption(joJCLPackages, [goStandAloneParent, goExpandable, goChecked], joJediCodeLibrary);
     AddPackageOptions(joJCLPackages);
 
-    if CLRVersion = '' then
-    begin
-      {$IFDEF MSWINDOWS}
-      AddExpertOptions(joJCLPackages);
-      {$ENDIF MSWINDOWS}
-      if RunTimeInstallation then
-        AddDemoNodes;
-    end;
+    {$IFDEF MSWINDOWS}
+    AddExpertOptions(joJCLPackages);
+    {$ENDIF MSWINDOWS}
+    if RunTimeInstallation then
+      AddDemoNodes;
   end;
 
   GUIPage.InitDisplay;
 
   if not Target.IsTurboExplorer then
   begin
-    if (CLRVersion = '') then
-    begin
-      FGUIBPLPathIndex := GUIPage.AddDirectory(RsCaptionBPLPath);
-      if Target.RadToolKind = brCppBuilder then
-        FGUIDCPPathIndex := GUIPage.AddDirectory(RsCaptionBPIPath)
-      else
-        FGUIDCPPathIndex := GUIPage.AddDirectory(RsCaptionDCPPath);
-    end
+    FGUIBPLPathIndex := GUIPage.AddDirectory(RsCaptionBPLPath);
+    if Target.RadToolKind = brCppBuilder then
+      FGUIDCPPathIndex := GUIPage.AddDirectory(RsCaptionBPIPath)
     else
-      FGUIBPLPathIndex := GUIPage.AddDirectory(RsCaptionOutputPath);
+      FGUIDCPPathIndex := GUIPage.AddDirectory(RsCaptionDCPPath);
   end;
 
   LoadValues;
@@ -1431,7 +1380,7 @@
 
     {$IFDEF MSWINDOWS}
     if (not OptionChecked[joJCLPackages] or (Target.SupportsVCL and not OptionChecked[joJCLVCLPackage])) and
-      Assigned(GUI) and (CLRVersion = '') and not Target.IsTurboExplorer then
+      Assigned(GUI) and not Target.IsTurboExplorer then
       Result := GUI.Dialog(RsWarningPackageNodeNotSelected, dtConfirmation, [drYes, drNo]) = drYes;
     {$ENDIF MSWINDOWS}
 
@@ -1450,7 +1399,7 @@
             GUI.Dialog(Format(RsErrorCantCreatePath, [GetBplPath]), dtError, [drCancel]);
         end;
       end;
-      if (CLRVersion = '') and not DirectoryExists(GetDcpPath) then
+      if not DirectoryExists(GetDcpPath) then
       begin
         Result := False;
         if not Assigned(GUI) then
@@ -1469,7 +1418,7 @@
 
     function SaveDefines(Defines: TStrings): Boolean;
     var
-      TemplateFileName, IncludeFileName, IncludeLine, Symbol, CLRSuffix: string;
+      TemplateFileName, IncludeFileName, IncludeLine, Symbol: string;
       IncludeFile: TStrings;
       IndexLine, DefinePos, SymbolEnd: Integer;
       Defined, NotDefined: Boolean;
@@ -1479,12 +1428,8 @@
     begin
       WriteLog('Saving conditional defines...');
       Result := True;
-      if CLRVersion = '' then
-        CLRSuffix := ''
-      else
-        CLRSuffix := '.net';
       TemplateFileName := PathAddSeparator(Distribution.JclIncludeDir) + 'jcl.template.inc';
-      IncludeFileName := Format('%sjcl%s%s.inc', [PathAddSeparator(Distribution.JclIncludeDir), Target.IDEVersionNumberStr, CLRSuffix]);
+      IncludeFileName := Format('%sjcl%s.inc', [PathAddSeparator(Distribution.JclIncludeDir), Target.IDEVersionNumberStr]);
       try
         IncludeFile := TStringList.Create;
         try
@@ -1609,14 +1554,6 @@
         end
         else
           TJclBDSInstallation(Target).DualPackageInstallation := False;
-        if OptionChecked[joJCLPdbCreate] then
-        begin
-          MarkOptionBegin(joJCLPdbCreate);
-          TJclBDSInstallation(Target).PdbCreate := True;
-          MarkOptionEnd(joJCLPdbCreate, True);
-        end
-        else
-          TJclBDSInstallation(Target).PdbCreate := False;
       end;
       {$ENDIF MSWINDOWS}
 
@@ -1819,25 +1756,18 @@
     if OptionChecked[joJCLPackages] then
     begin
       MarkOptionBegin(joJCLPackages);
-      if CLRVersion = '' then
-      begin
-        Result := CompilePackage(FullPackageFileName(Target, JclDpk))
-          and CompilePackage(FullPackageFileName(Target, JclContainersDpk));
 
-        if Result and OptionChecked[joJCLVclPackage] then
-        begin
-          MarkOptionBegin(joJCLVclPackage);
-          Result := Result and CompilePackage(FullPackageFileName(Target, JclVclDpk));
-          MarkOptionEnd(joJCLVclPackage, Result);
-        end;
+      Result := CompilePackage(FullPackageFileName(Target, JclDpk))
+        and CompilePackage(FullPackageFileName(Target, JclContainersDpk));
 
-        MarkOptionEnd(joJCLPackages, Result);
-      end
-      {$IFDEF MSWINDOWS}
-      else
-        // CLR installation
-        Result := CompileCLRPackage(JediJclDpk) and CompileCLRPackage(JediJclContainersDpk);
-      {$ENDIF MSWINDOWS}
+      if Result and OptionChecked[joJCLVclPackage] then
+      begin
+        MarkOptionBegin(joJCLVclPackage);
+        Result := Result and CompilePackage(FullPackageFileName(Target, JclVclDpk));
+        MarkOptionEnd(joJCLVclPackage, Result);
+      end;
+
+      MarkOptionEnd(joJCLPackages, Result);
     end;
   end;
 
@@ -1848,22 +1778,19 @@
   {$ENDIF MSWINDOWS}
   begin
     {$IFDEF MSWINDOWS}
-    if CLRVersion = '' then
-    begin
-      InstallJediRegInformation(ATarget.ConfigDataLocation, 'JCL',
-        Format('%d.%d.%d.%d', [JclVersionMajor, JclVersionMinor, JclVersionRelease, JclVersionBuild]),
-        GetDcpPath, GetBplPath, Distribution.FJclPath, ATarget.RootKey);
+    InstallJediRegInformation(ATarget.ConfigDataLocation, 'JCL',
+      Format('%d.%d.%d.%d', [JclVersionMajor, JclVersionMinor, JclVersionRelease, JclVersionBuild]),
+      GetDcpPath, GetBplPath, Distribution.FJclPath, ATarget.RootKey);
 
+    PathEnvVar := RegReadStringDef(ATarget.RootKey, RegHKCUEnvironmentVar, PathEnvironmentVar, '');
+    PathListIncludeItems(PathEnvVar, RegReadStringDef(HKLM, RegHKLMEnvironmentVar, PathEnvironmentVar, ''));
+    ExpandEnvironmentVar(PathEnvVar);
+    if (PathListItemIndex(PathEnvVar, GetBplPath) = -1) and (PathListItemIndex(PathEnvVar, PathAddSeparator(GetBplPath)) = -1)
+      and Assigned(GUI) and (GUI.Dialog(RsWarningAddPathToEnvironment, dtWarning, [drYes, drNo]) = drYes) then
+    begin
       PathEnvVar := RegReadStringDef(ATarget.RootKey, RegHKCUEnvironmentVar, PathEnvironmentVar, '');
-      PathListIncludeItems(PathEnvVar, RegReadStringDef(HKLM, RegHKLMEnvironmentVar, PathEnvironmentVar, ''));
-      ExpandEnvironmentVar(PathEnvVar);
-      if (PathListItemIndex(PathEnvVar, GetBplPath) = -1) and (PathListItemIndex(PathEnvVar, PathAddSeparator(GetBplPath)) = -1)
-        and Assigned(GUI) and (GUI.Dialog(RsWarningAddPathToEnvironment, dtWarning, [drYes, drNo]) = drYes) then
-      begin
-        PathEnvVar := RegReadStringDef(ATarget.RootKey, RegHKCUEnvironmentVar, PathEnvironmentVar, '');
-        PathListIncludeItems(PathEnvVar, GetBplPath);
-        RegWriteString(ATarget.RootKey, RegHKCUEnvironmentVar, PathEnvironmentVar, PathEnvVar);
-      end;
+      PathListIncludeItems(PathEnvVar, GetBplPath);
+      RegWriteString(ATarget.RootKey, RegHKCUEnvironmentVar, PathEnvironmentVar, PathEnvVar);
     end;
     {$ENDIF MSWINDOWS}
     Result := True;
@@ -2188,8 +2115,6 @@
   VersionStr: string;
 begin
   VersionStr := Target.VersionNumberStr;
-  if CLRVersion <> '' then
-    VersionStr := Format('%s.net', [VersionStr]);
   Result := PathGetShortName(Format(FormatStr, [VersionStr]));
 end;
 
@@ -2212,48 +2137,45 @@
   procedure RemoveEnvironment(ATarget: TJclBorRADToolInstallation);
   begin
     //ioJclEnvLibPath
-    if CLRVersion = '' then
+    if ATarget.RemoveFromLibrarySearchPath(FLibReleaseDir) and
+       ATarget.RemoveFromLibrarySearchPath(Distribution.JclSourceDir) and
+       ATarget.RemoveFromLibrarySearchPath(Distribution.JclIncludeDir) then
+      WriteLog(Format('Removed "%s;%s;%s" from library search path.', [FLibReleaseDir, Distribution.JclSourceDir, Distribution.JclIncludeDir]))
+    else
+      WriteLog('Failed to remove library search path.');
+    {$IFDEF MSWINDOWS}
+    if (ATarget.RadToolKind = brBorlandDevStudio) and (bpBCBuilder32 in ATarget.Personalities) then
+      with TJclBDSInstallation(ATarget) do
     begin
-      if ATarget.RemoveFromLibrarySearchPath(FLibReleaseDir) and
-         ATarget.RemoveFromLibrarySearchPath(Distribution.JclSourceDir) and
-         ATarget.RemoveFromLibrarySearchPath(Distribution.JclIncludeDir) then
-        WriteLog(Format('Removed "%s;%s;%s" from library search path.', [FLibReleaseDir, Distribution.JclSourceDir, Distribution.JclIncludeDir]))
+      if RemoveFromCppSearchPath(FLibReleaseDir) and
+         RemoveFromCppSearchPath(Distribution.JclSourceDir) and
+         RemoveFromCppSearchPath(Distribution.JclIncludeDir) and
+         ((IDEVersionNumber < 5) or RemoveFromCppLibraryPath(FLibReleaseDir)) then
+        WriteLog(Format('Removed "%s;%s;%s" from cpp search path.', [FLibReleaseDir, Distribution.JclSourceDir, Distribution.JclIncludeDir]))
       else
-        WriteLog('Failed to remove library search path.');
-      {$IFDEF MSWINDOWS}
-      if (ATarget.RadToolKind = brBorlandDevStudio) and (bpBCBuilder32 in ATarget.Personalities) then
-        with TJclBDSInstallation(ATarget) do
-      begin
-        if RemoveFromCppSearchPath(FLibReleaseDir) and
-           RemoveFromCppSearchPath(Distribution.JclSourceDir) and
-           RemoveFromCppSearchPath(Distribution.JclIncludeDir) and
-           ((IDEVersionNumber < 5) or RemoveFromCppLibraryPath(FLibReleaseDir)) then
-          WriteLog(Format('Removed "%s;%s;%s" from cpp search path.', [FLibReleaseDir, Distribution.JclSourceDir, Distribution.JclIncludeDir]))
-        else
-          WriteLog('Failed to remove cpp search path.');
-      end;
-      {$ENDIF MSWINDOWS}
+        WriteLog('Failed to remove cpp search path.');
+    end;
+    {$ENDIF MSWINDOWS}
 
-      //ioJclEnvBrowsingPath
-      if ATarget.RemoveFromLibraryBrowsingPath(Distribution.JclSourcePath) then
-        WriteLog(Format('Removed "%s" from library browsing path.', [Distribution.JclSourcePath]))
+    //ioJclEnvBrowsingPath
+    if ATarget.RemoveFromLibraryBrowsingPath(Distribution.JclSourcePath) then
+      WriteLog(Format('Removed "%s" from library browsing path.', [Distribution.JclSourcePath]))
+    else
+      WriteLog('Failed to remove library browsing path.');
+    {$IFDEF MSWINDOWS}
+    if (ATarget.RadToolKind = brBorlandDevStudio) and (bpBCBuilder32 in ATarget.Personalities) then
+      with TJclBDSInstallation(ATarget) do
+    begin
+      if RemoveFromCppBrowsingPath(Distribution.JclSourcePath) then
+        WriteLog(Format('Removed "%s" from cpp browsing path.', [Distribution.JclSourcePath]))
       else
-        WriteLog('Failed to remove library browsing path.');
-      {$IFDEF MSWINDOWS}
-      if (ATarget.RadToolKind = brBorlandDevStudio) and (bpBCBuilder32 in ATarget.Personalities) then
-        with TJclBDSInstallation(ATarget) do
-      begin
-        if RemoveFromCppBrowsingPath(Distribution.JclSourcePath) then
-          WriteLog(Format('Removed "%s" from cpp browsing path.', [Distribution.JclSourcePath]))
-        else
-          WriteLog('Failed to remove cpp browsing path.');
-      end;
-      {$ENDIF MSWINDOWS}
-
-      //ioJclEnvDebugDCUPath
-      if ATarget.RemoveFromDebugDCUPath(FLibDebugDir) then
-        WriteLog(Format('Removed "%s" from Debug DCU Path.', [FLibDebugDir]));
+        WriteLog('Failed to remove cpp browsing path.');
     end;
+    {$ENDIF MSWINDOWS}
+
+    //ioJclEnvDebugDCUPath
+    if ATarget.RemoveFromDebugDCUPath(FLibDebugDir) then
+      WriteLog(Format('Removed "%s" from Debug DCU Path.', [FLibDebugDir]));
   end;
 
   procedure RemoveMake;
@@ -2272,20 +2194,12 @@
       end;
     end;
   begin
-    if CLRVersion <> '' then
+    RemoveFileMask(FLibReleaseDir, '.dcu');
+    RemoveFileMask(FLibDebugDir, '.dcu');
+    if bpBCBuilder32 in Target.Personalities then
     begin
-      RemoveFileMask(FLibReleaseDir, '.dcuil');
-      RemoveFileMask(FLibDebugDir, '.dcuil');
-    end
-    else
-    begin
-      RemoveFileMask(FLibReleaseDir, '.dcu');
-      RemoveFileMask(FLibDebugDir, '.dcu');
-      if bpBCBuilder32 in Target.Personalities then
-      begin
-        RemoveFileMask(FLibReleaseDir, '.obj'); // compatibility
-        RemoveFileMask(FLibDebugDir, '.obj'); // compatibility
-      end;
+      RemoveFileMask(FLibReleaseDir, '.obj'); // compatibility
+      RemoveFileMask(FLibDebugDir, '.obj'); // compatibility
     end;
     //ioJclCopyHppFiles: ; // TODO : Delete copied files
     //ioJclCheckHppFiles: ; // nothing to do
@@ -2295,36 +2209,30 @@
   var
     ABDSTarget: TJclBDSInstallation;
   begin
-    if CLRVersion = '' then
+    if ATarget.RadToolKind = brBorlandDevStudio then
     begin
-      if ATarget.RadToolKind = brBorlandDevStudio then
-      begin
-        ABDSTarget := ATarget as TJclBDSInstallation;
-        ABDSTarget.CleanPackageCache(BinaryFileName(GetBPLPath, Distribution.JclPath + FullPackageFileName(ATarget, JclDpk)));
-        ABDSTarget.CleanPackageCache(BinaryFileName(GetBPLPath, Distribution.JclPath + FullPackageFileName(ATarget, JclContainersDpk)));
-        if RuntimeInstallation and ATarget.SupportsVCL then
-          ABDSTarget.CleanPackageCache(BinaryFileName(GetBPLPath, Distribution.JclPath + FullPackageFileName(ATarget, JclVclDpk)));
-      end;
-      //ioJclPackages
-      ATarget.UnregisterPackage(Distribution.JclPath + FullPackageFileName(ATarget, JclDpk), GetBplPath);
-      ATarget.UnregisterPackage(Distribution.JclPath + FullPackageFileName(ATarget, JclContainersDpk), GetBplPath);
+      ABDSTarget := ATarget as TJclBDSInstallation;
+      ABDSTarget.CleanPackageCache(BinaryFileName(GetBPLPath, Distribution.JclPath + FullPackageFileName(ATarget, JclDpk)));
+      ABDSTarget.CleanPackageCache(BinaryFileName(GetBPLPath, Distribution.JclPath + FullPackageFileName(ATarget, JclContainersDpk)));
       if RuntimeInstallation and ATarget.SupportsVCL then
-        ATarget.UnregisterPackage(Distribution.JclPath + FullPackageFileName(ATarget, JclVclDpk), GetBplPath);
-      {$IFDEF MSWINDOWS}
-      RemoveJediRegInformation(Target.ConfigDataLocation, 'JCL', ATarget.RootKey);
-      {$ENDIF MSWINDOWS}
+        ABDSTarget.CleanPackageCache(BinaryFileName(GetBPLPath, Distribution.JclPath + FullPackageFileName(ATarget, JclVclDpk)));
     end;
+    //ioJclPackages
+    ATarget.UnregisterPackage(Distribution.JclPath + FullPackageFileName(ATarget, JclDpk), GetBplPath);
+    ATarget.UnregisterPackage(Distribution.JclPath + FullPackageFileName(ATarget, JclContainersDpk), GetBplPath);
+    if RuntimeInstallation and ATarget.SupportsVCL then
+      ATarget.UnregisterPackage(Distribution.JclPath + FullPackageFileName(ATarget, JclVclDpk), GetBplPath);
+    {$IFDEF MSWINDOWS}
+    RemoveJediRegInformation(Target.ConfigDataLocation, 'JCL', ATarget.RootKey);
+    {$ENDIF MSWINDOWS}
   end;
 
   procedure DeletePackages;
   begin
-    if CLRVersion = '' then
-    begin
-      DeletePackage(FullPackageFileName(Target, JclDpk));
-      DeletePackage(FullPackageFileName(Target, JclContainersDpk));
-      if RuntimeInstallation and Target.SupportsVCL then
-        DeletePackage(FullPackageFileName(Target, JclVclDpk));
-    end;
+    DeletePackage(FullPackageFileName(Target, JclDpk));
+    DeletePackage(FullPackageFileName(Target, JclContainersDpk));
+    if RuntimeInstallation and Target.SupportsVCL then
+      DeletePackage(FullPackageFileName(Target, JclVclDpk));
   end;
   {$IFDEF MSWINDOWS}
   procedure UnregisterExperts(ATarget: TJclBorRADToolInstallation);
@@ -2360,14 +2268,11 @@
     Option: TInstallerOption;
     IndexOldExpert: Integer;
   begin
-    if CLRVersion = '' then
-    begin
-      for Option := Low(SupportedExperts) to High(SupportedExperts) do
-        if not (Option in [joJCLExpertsDsgnPackages, joJCLExpertsDLL]) then
-          UnregisterExpert(SupportedExperts[Option]);
-      for IndexOldExpert := Low(OldExperts) to High(OldExperts) do
-        UnregisterExpert(OldExperts[IndexOldExpert]);
-    end;
+    for Option := Low(SupportedExperts) to High(SupportedExperts) do
+      if not (Option in [joJCLExpertsDsgnPackages, joJCLExpertsDLL]) then
+        UnregisterExpert(SupportedExperts[Option]);
+    for IndexOldExpert := Low(OldExperts) to High(OldExperts) do
+      UnregisterExpert(OldExperts[IndexOldExpert]);
   end;
 
   procedure DeleteExperts;
@@ -2375,18 +2280,15 @@
     Option: TInstallerOption;
     ProjectFileName: string;
   begin
-    if CLRVersion = '' then
+    for Option := Low(SupportedExperts) to High(SupportedExperts) do
+      if not (Option in [joJCLExpertsDsgnPackages, joJCLExpertsDLL]) then
     begin
-      for Option := Low(SupportedExperts) to High(SupportedExperts) do
-        if not (Option in [joJCLExpertsDsgnPackages, joJCLExpertsDLL]) then
-      begin
-        ProjectFileName := Distribution.JclPath + FullPackageFileName(Target, SupportedExperts[Option]);
-        if FileExists(ProjectFileName) then
-          Target.UninstallPackage(ProjectFileName, GetBplPath, GetDcpPath);
-        ProjectFileName := Distribution.JclPath + FullLibraryFileName(Target, SupportedExperts[Option]);
-        if FileExists(ProjectFileName) then
-          Result := FileDelete(BinaryFileName(GetBplPath, ProjectFileName));
-      end;
+      ProjectFileName := Distribution.JclPath + FullPackageFileName(Target, SupportedExperts[Option]);
+      if FileExists(ProjectFileName) then
+        Target.UninstallPackage(ProjectFileName, GetBplPath, GetDcpPath);
+      ProjectFileName := Distribution.JclPath + FullLibraryFileName(Target, SupportedExperts[Option]);
+      if FileExists(ProjectFileName) then
+        Result := FileDelete(BinaryFileName(GetBplPath, ProjectFileName));
     end;
   end;
 
@@ -2441,16 +2343,13 @@
     end;
 
   begin
-    if CLRVersion = '' then
+    if Target.RadToolKind <> brBorlandDevStudio then
     begin
-      if Target.RadToolKind <> brBorlandDevStudio then
-      begin
-        RemoveHelpFromOpenHelp;
-        RemoveHelpFromIdeTools;
-      end
-      else
-        UnregisterHelp2Files;
-    end;
+      RemoveHelpFromOpenHelp;
+      RemoveHelpFromIdeTools;
+    end
+    else
+      UnregisterHelp2Files;
   end;
   {$ENDIF MSWINDOWS}
   procedure UninstallRepository;
@@ -2460,7 +2359,7 @@
       WriteLog(Format('Removed %s.', [DialogName]));
     end;
   begin
-    if (CLRVersion = '') and (Target.RadToolKind <> brBorlandDevStudio) then
+    if Target.RadToolKind <> brBorlandDevStudio then
     begin
       {$IFDEF MSWINDOWS}
       // ioJclExcDialog
@@ -2609,7 +2508,7 @@
 
     if not Target.IsTurboExplorer then
     begin
-      if FRuntimeInstallation and (CLRVersion = '') then
+      if FRuntimeInstallation then
       begin
         ADemoList := GetDemoList;
         for Index := 0 to ADemoList.Count - 1 do
@@ -2727,12 +2626,7 @@
     for Index := 0 to UnitList.Count - 1 do
       UnitList.Strings[Index] := ChangeFileExt(UnitList.Strings[Index], '');
 
-    {$IFDEF MSWINDOWS}
-    if CLRVersion <> '' then
-      Compiler := (Target as TJclBDSInstallation).DCCIL
-    else
-    {$ENDIF MSWINDOWS}
-      Compiler := Target.DCC32;
+    Compiler := Target.DCC32;
 
     Compiler.SetDefaultOptions;
     //Options.Add('-D' + StringsToStr(Defines, ';'));
@@ -2756,8 +2650,7 @@
       Compiler.Options.Add('-$O-'); // optimizations
       Compiler.Options.Add('-$Q+'); // overflow checking
       Compiler.Options.Add('-$R+'); // range checking
-      if CLRVersion = '' then
-        Compiler.Options.Add('-$W+'); // stack frames
+      Compiler.Options.Add('-$W+'); // stack frames
       Compiler.Options.Add('-$Y+'); // symbol reference info
     end
     else
@@ -2769,12 +2662,11 @@
       Compiler.Options.Add('-$O+'); // optimizations
       Compiler.Options.Add('-$Q-'); // overflow checking
       Compiler.Options.Add('-$R-'); // range checking
-      if CLRVersion = '' then
-        Compiler.Options.Add('-$W-'); // stack frames
+      Compiler.Options.Add('-$W-'); // stack frames
       Compiler.Options.Add('-$Y-'); // symbol reference info
     end;
 
-    if (bpBCBuilder32 in Target.Personalities) and (CLRVersion = '') then
+    if bpBCBuilder32 in Target.Personalities then
     begin
       Compiler.Options.Add('-D_RTLDLL' + DirSeparator + 'NO_STRICT' + DirSeparator + 'USEPACKAGES'); // $(SYSDEFINES)
       if Debug then
@@ -2809,9 +2701,6 @@
         UnitOutputDir := FLibReleaseDir;
 
       Compiler.AddPathOption('N', UnitOutputDir); // .dcu files
-      if CLRVersion <> '' then
-        Compiler.Options.Add('--default-namespace:Jedi.Jcl');
-
     end;
     Compiler.AddPathOption('I', Distribution.JclIncludeDir);
     Compiler.AddPathOption('U', Distribution.JclSourcePath);
@@ -2828,16 +2717,13 @@
       WriteLog('');
       WriteLog('Compiling .dcu files...');
       Result := Result and CompileUnits;
-      if CLRVersion = '' then
+      CopyResFiles(UnitOutputDir);
+      if OptionChecked[joJCLCopyHppFiles] then
       begin
-        CopyResFiles(UnitOutputDir);
-        if OptionChecked[joJCLCopyHppFiles] then
-        begin
-          MarkOptionBegin(joJCLCopyHppFiles);
-          WriteLog('Copying .hpp files...');
-          Result := Result and CopyHppFiles(Target.VclIncludeDir);
-          MarkOptionEnd(joJCLCopyHppFiles, Result);
-        end;
+        MarkOptionBegin(joJCLCopyHppFiles);
+        WriteLog('Copying .hpp files...');
+        Result := Result and CopyHppFiles(Target.VclIncludeDir);
+        MarkOptionEnd(joJCLCopyHppFiles, Result);
       end;
     finally
       SetCurrentDir(SaveDir);
@@ -2849,23 +2735,6 @@
     WriteLog('Failed ' + LibDescriptor);
 end;
 
-{$IFDEF MSWINDOWS}
-function TJclInstallation.CompileCLRPackage(const Name: string): Boolean;
-var
-  ProjectFileName: string;
-begin
-  ProjectFileName := Format('%spackages%s%s.net%s%s%s', [PathAddSeparator(Distribution.JclPath),
-    DirDelimiter, Target.VersionNumberStr, DirDelimiter, Name, SourceExtensionDelphiPackage]);
-  WriteLog(Format('Compiling CLR package %s...', [ProjectFileName]));
-
-  if Assigned(GUIPage) then
-    GUIPage.CompilationStart(ExtractFileName(Name));
-
-  Result := TJclBDSInstallation(Target).CompileDelphiDotNetProject(ProjectFileName,
-    GetBplPath, TargetPlatform, CLRVersion);
-end;
-{$ENDIF MSWINDOWS}
-
 function TJclInstallation.CompilePackage(const Name: string): Boolean;
 var
   PackageFileName: string;
@@ -3269,7 +3138,6 @@
   RegisterJclOptions;
 
   {$IFDEF MSWINDOWS}
-  FCLRVersions := TStringList.Create;
   FRegHelpCommands := TStringList.Create;
   {$ENDIF MSWINDOWS}
   FRadToolInstallations := TJclBorRADToolInstallations.Create;
@@ -3296,37 +3164,11 @@
   end;
 var
   Inst: TJclInstallation;
-  {$IFDEF MSWINDOWS}
-  Index: Integer;
-  CLRVersion: string;
-  {$ENDIF MSWINDOWS}
 begin
   if Supported then
   try
     Inst := TJclInstallation.Create(Self, Target);
     FTargetInstalls.Add(Inst);
-    {$IFDEF MSWINDOWS}
-    // .net "virtual" targets
-    if (Target is TJclBDSInstallation) and (Target.IDEVersionNumber >= 3) and (not Target.IsTurboExplorer)
-      and (bpDelphiNet32 in Target.Personalities) then
-    begin
-      for Index := 0 to FCLRVersions.Count - 1 do
-      begin
-        CLRVersion := FCLRVersions.Names[Index];
-        if (CompareCLRVersions(CLRVersion, TJclBDSInstallation(Target).MaxDelphiCLRVersion) = 0)
-          and (CompareCLRVersions(CLRVersion, 'v1.1.2344') >= 0)  then // CLR 1.0 not supported by the JCL
-        begin
-          Inst := TJclInstallation.Create(Self, Target, CLRVersion);
-          FTargetInstalls.Add(Inst);
-          {if Target.VersionNumber >= 4 then
-          begin
-            Inst := TJclInstallation.Create(Self, Target, CLRVersion, bp64bit);
-            FTargetInstalls.Add(Inst);
-          end;}
-        end;
-      end;
-    end;
-    {$ENDIF MSWINDOWS}
   except
   end;
   Result := True;
@@ -3335,7 +3177,6 @@
 destructor TJclDistribution.Destroy;
 begin
   {$IFDEF MSWINDOWS}
-  FCLRVersions.Free;
   FRegHelpCommands.Free;
   {$ENDIF MSWINDOWS}
 
@@ -3491,15 +3332,6 @@
         end;
       end;
     end;
-
-    {$IFDEF MSWINDOWS}
-    FCLRVersions.Clear;
-    try
-      JclDotNet.TJclClrHost.GetClrVersions(FCLRVersions);
-    except
-      // trap exceptions when no .net runtimes are installed
-    end;
-    {$ENDIF MSWINDOWS}
   end;
 
   procedure CreateInstallations;
@@ -3547,7 +3379,7 @@
       for I := 0 to TargetInstallCount - 1 do
       begin
         AInstallation := TargetInstalls[I];
-        if AInstallation.Enabled and (AInstallation.CLRVersion = '') then
+        if AInstallation.Enabled then
         begin
           KeepSettings := GUI.Dialog('Do you want to keep JCL expert settings?',
             dtConfirmation, [drYes, drNo]) = drYes;
@@ -3572,7 +3404,7 @@
       if AInstallation.Enabled then
       begin
         AInstallation.Silent := False;
-        if (AInstallation.CLRVersion = '') and not KeepSettings then
+        if not KeepSettings then
           AInstallation.RemoveSettings;
         AInstallation.Uninstall(False);
         Result := AInstallation.Install;
@@ -3841,4 +3673,4 @@
 initialization
   JediInstall.InstallCore.AddProduct(TJclDistribution.Create);
 
-end.
\ No newline at end of file
+end.

Deleted: trunk/jcl/packages/JclNetPackagesD100.bdsgroup
===================================================================
--- trunk/jcl/packages/JclNetPackagesD100.bdsgroup	2009-07-02 10:50:10 UTC (rev 2840)
+++ trunk/jcl/packages/JclNetPackagesD100.bdsgroup	2009-07-02 13:24:19 UTC (rev 2841)
@@ -1,19 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<BorlandProject>
-  <PersonalityInfo>
-    <Option>
-      <Option Name="Personality">Default.Personality</Option>
-      <Option Name="ProjectType"></Option>
-      <Option Name="Version">1.0</Option>
-      <Option Name="GUID">{6169CDCD-590F-4AB5-8774-A49130647FD8}</Option>
-    </Option>
-  </PersonalityInfo>
-  <Default.Personality>
-    <Projects>
-      <Projects Name="Jedi.Jcl100.dll">d10.net\Jedi.Jcl.bdsproj</Projects>
-      <Projects Name="Jedi.JclContainers100.dll">d10.net\Jedi.JclContainers.bdsproj</Projects>
-      <Projects Name="Targets">Jedi.Jcl100.dll Jedi.JclContainers100.dll</Projects>
-    </Projects>
-    <Dependencies/>
-  </Default.Personality>
-</BorlandProject>

Deleted: trunk/jcl/packages/JclNetPackagesD110.groupproj
===================================================================
--- trunk/jcl/packages/JclNetPackagesD110.groupproj	2009-07-02 10:50:10 UTC (rev 2840)
+++ trunk/jcl/packages/JclNetPackagesD110.groupproj	2009-07-02 13:24:19 UTC (rev 2841)
@@ -1,43 +0,0 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <PropertyGroup>
-    <ProjectGuid>{468f50c8-84e0-4b79-bb57-72d64fff9348}</ProjectGuid>
-  </PropertyGroup>
-  <ItemGroup />
-  <ItemGroup>
-    <Projects Include="d11.net\Jedi.Jcl.dproj" />
-  </ItemGroup>
-  <ProjectExtensions>
-    <Borland.Personality>Default.Personality</Borland.Personality>
-    <Borland.ProjectType />
-    <BorlandProject>
-  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
-  </ProjectExtensions>
-  <Target Name="Jedi_Jcl">
-    <MSBuild Projects="d11.net\Jedi.Jcl.dproj" Targets="" />
-  </Target>
-  <Target Name="Jedi_Jcl:Clean">
-    <MSBuild Projects="d11.net\Jedi.Jcl.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="Jedi_Jcl:Make">
-    <MSBuild Projects="d11.net\Jedi.Jcl.dproj" Targets="Make" />
-  </Target>
-  <Target Name="Jedi_JclContainers">
-    <MSBuild Projects="d11.net\Jedi.JclContainers.dproj" Targets="" />
-  </Target>
-  <Target Name="Jedi_JclContainers:Clean">
-    <MSBuild Projects="d11.net\Jedi.JclContainers.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="Jedi_JclContainers:Make">
-    <MSBuild Projects="d11.net\Jedi.JclContainers.dproj" Targets="Make" />
-  </Target>
-  <Target Name="Build">
-    <CallTarget Targets="Jedi_Jcl;Jedi_JclContainers" />
-  </Target>
-  <Target Name="Clean">
-    <CallTarget Targets="Jedi_Jcl:Clean;Jedi_JclContainers:Clean" />
-  </Target>
-  <Target Name="Make">
-    <CallTarget Targets="Jedi_Jcl:Make;Jedi_JclContainers:Make" />
-  </Target>
-  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
-</Project>
\ No newline at end of file

Deleted: trunk/jcl/packages/JclNetPackagesD90.bdsgroup
===================================================================
--- trunk/jcl/packages/JclNetPackagesD90.bdsgroup	2009-07-02 10:50:10 UTC (rev 2840)
+++ trunk/jcl/packages/JclNetPackagesD90.bdsgroup	2009-07-02 13:24:19 UTC (rev 2841)
@@ -1,19 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<BorlandProject>
-  <PersonalityInfo>
-    <Option>
-      <Option Name="Personality">Default.Personality</Option>
-      <Option Name="ProjectType"></Option>
-      <Option Name="Version">1.0</Option>
-      <Option Name="GUID">{17C1C5C4-F24E-47C9-BAFF-EED03FBD0971}</Option>
-    </Option>
-  </PersonalityInfo>
-  <Default.Personality>
-    <Projects>
-      <Projects Name="Jedi.Jcl90.dll">d9.net\Jedi.Jcl.bdsproj</Projects>
-      <Projects Name="Jedi.JclContainers90.dll">d9.net\Jedi.JclContainers.bdsproj</Projects>
-      <Projects Name="Targets">Jedi.Jcl90.dll Jedi.JclContainers90.dll</Projects>
-    </Projects>
-    <Dependencies/>
-  </Default.Personality>
-</BorlandProject>

Modified: trunk/jcl/packages/xml/Jcl-R.xml
===================================================================
--- trunk/jcl/packages/xml/Jcl-R.xml	2009-07-02 10:50:10 UTC (rev 2840)
+++ trunk/jcl/packages/xml/Jcl-R.xml	2009-07-02 13:24:19 UTC (rev 2841)
@@ -11,20 +11,18 @@
   <Requires>
     <Package Name="rtl" Targets="allLibSuffix" Condition=""/>
     <Package Name="vcl50" Targets="noLibSuffix" Condition=""/>
-    <Package Name="Borland.Delphi" Targets="JclDotNet" Condition=""/>
-    <Package Name="Borland.VclRtl" Targets="JclDotNet" Condition=""/>
   </Requires>
   <Contains>
     <File Name="..\..\source\common\bzip2.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\Jcl8087.pas" Targets="JclDev" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclAnsiStrings.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclBase.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclAnsiStrings.pas" Targets="JclDev" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclBase.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclBorlandTools.pas" Targets="JclDev" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclCharsets.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclComplex.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclCharsets.pas" Targets="JclDev" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclComplex.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclCompression.pas" Targets="JclDev" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclCounter.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclDateTime.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclCounter.pas" Targets="JclDev" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclDateTime.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclEDI.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclEDISEF.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclEDITranslators.pas" Targets="JclDev" Formname="" Condition=""/>
@@ -34,32 +32,32 @@
     <File Name="..\..\source\common\JclEDI_UNEDIFACT.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclEDI_UNEDIFACT_Ext.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclExprEval.pas" Targets="JclDev" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclFileUtils.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclIniFiles.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclLogic.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclMath.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclFileUtils.pas" Targets="JclDev" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclIniFiles.pas" Targets="JclDev" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclLogic.pas" Targets="JclDev" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclMath.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclMIDI.pas" Targets="JclDev" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclMime.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclMime.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclNotify.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclPCRE.pas" Targets="JclDev" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclResources.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclRTTI.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclSimpleXml.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclResources.pas" Targets="JclDev" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclRTTI.pas" Targets="JclDev" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclSimpleXml.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclSchedule.pas" Targets="JclDev" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclStatistics.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclStreams.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclStatistics.pas" Targets="JclDev" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclStreams.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclStrHashMap.pas" Targets="JclDev" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclStringConversions.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclStringConversions.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclStringLists.pas" Targets="JclDev" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclStrings.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
-    <File Name="..\..\source\Common\JclSynch.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclSysInfo.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclSysUtils.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
-    <File Name="..\..\source\Common\JclUnicode.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclUnitConv.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclStrings.pas" Targets="JclDev" Formname="" Condition=""/>
+    <File Name="..\..\source\Common\JclSynch.pas" Targets="JclDev" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclSysInfo.pas" Targets="JclDev" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclSysUtils.pas" Targets="JclDev" Formname="" Condition=""/>
+    <File Name="..\..\source\Common\JclUnicode.pas" Targets="JclDev" Formname="" Condition=""/>
+    <File Name="..\..\source\common\JclUnitConv.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclUnitVersioning.pas" Targets="JclDev" Formname="" Condition=""/>
     <File Name="..\..\source\common\JclUnitVersioningProviders.pas" Targets="JclDev" Formname="" Condition=""/>
-    <File Name="..\..\source\common\JclValidation.pas" Targets="JclDev,JclDotNet" Formname=...
 
[truncated message content]

[Jcl-checkins-diff] SF.net SVN: jcl:[2840] trunk/jcl/install/JclInstall.pas

From: <ou...@us...> - 2009-07-02 10:50:15

Revision: 2840
          http://jcl.svn.sourceforge.net/jcl/?rev=2840&view=rev
Author:   outchy
Date:     2009-07-02 10:50:10 +0000 (Thu, 02 Jul 2009)

Log Message:
-----------
force compiler switches.

Modified Paths:
--------------
    trunk/jcl/install/JclInstall.pas

Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas	2009-06-30 22:01:17 UTC (rev 2839)
+++ trunk/jcl/install/JclInstall.pas	2009-07-02 10:50:10 UTC (rev 2840)
@@ -2733,9 +2733,20 @@
     else
     {$ENDIF MSWINDOWS}
       Compiler := Target.DCC32;
+
     Compiler.SetDefaultOptions;
     //Options.Add('-D' + StringsToStr(Defines, ';'));
-    Compiler.Options.Add('-M');
+    Compiler.Options.Add('-M');   // make modified units
+    Compiler.Options.Add('-$X+'); // extended syntax
+    Compiler.Options.Add('-$G+'); // imported data
+    Compiler.Options.Add('-$H+'); // long strings
+    Compiler.Options.Add('-$P+'); // open string params
+    Compiler.Options.Add('-$U-'); // safe divide
+    Compiler.Options.Add('-$T-'); // typed address
+    Compiler.Options.Add('-$V+'); // strict var strings
+    Compiler.Options.Add('-$J+'); // writeable constants
+    Compiler.Options.Add('-$Z1'); // minimum enum size
+
     if Debug then
     begin
       Compiler.Options.Add('-$C+'); // assertions


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2839] trunk/jcl/packages

From: <usc...@us...> - 2009-06-30 22:01:34

Revision: 2839
          http://jcl.svn.sourceforge.net/jcl/?rev=2839&view=rev
Author:   uschuster
Date:     2009-06-30 22:01:17 +0000 (Tue, 30 Jun 2009)

Log Message:
-----------
- updated year in copyright
- removed duplicate "non-templated" entries in d12\template.dproj

Modified Paths:
--------------
    trunk/jcl/packages/c5/JclBaseExpertC50.rc
    trunk/jcl/packages/c5/JclBaseExpertC50.res
    trunk/jcl/packages/c5/JclC50.rc
    trunk/jcl/packages/c5/JclC50.res
    trunk/jcl/packages/c5/JclContainersC50.rc
    trunk/jcl/packages/c5/JclContainersC50.res
    trunk/jcl/packages/c5/JclDebugExpertC50.RES
    trunk/jcl/packages/c5/JclDebugExpertC50.rc
    trunk/jcl/packages/c5/JclDebugExpertDLLC50.rc
    trunk/jcl/packages/c5/JclDebugExpertDLLC50.res
    trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc
    trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.res
    trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc
    trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.res
    trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.RES
    trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.rc
    trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc
    trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.res
    trunk/jcl/packages/c5/JclRepositoryExpertC50.rc
    trunk/jcl/packages/c5/JclRepositoryExpertC50.res
    trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.rc
    trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.res
    trunk/jcl/packages/c5/JclSIMDViewExpertC50.rc
    trunk/jcl/packages/c5/JclSIMDViewExpertC50.res
    trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc
    trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.res
    trunk/jcl/packages/c5/JclThreadNameExpertC50.RES
    trunk/jcl/packages/c5/JclThreadNameExpertC50.rc
    trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.rc
    trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.res
    trunk/jcl/packages/c5/JclUsesExpertC50.RES
    trunk/jcl/packages/c5/JclUsesExpertC50.rc
    trunk/jcl/packages/c5/JclUsesExpertDLLC50.rc
    trunk/jcl/packages/c5/JclUsesExpertDLLC50.res
    trunk/jcl/packages/c5/JclVclC50.rc
    trunk/jcl/packages/c5/JclVclC50.res
    trunk/jcl/packages/c5/JclVersionControlExpertC50.rc
    trunk/jcl/packages/c5/JclVersionControlExpertC50.res
    trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.rc
    trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.res
    trunk/jcl/packages/c5/template.rc
    trunk/jcl/packages/c6/Jcl.RES
    trunk/jcl/packages/c6/Jcl.rc
    trunk/jcl/packages/c6/JclBaseExpert.rc
    trunk/jcl/packages/c6/JclBaseExpert.res
    trunk/jcl/packages/c6/JclContainers.rc
    trunk/jcl/packages/c6/JclContainers.res
    trunk/jcl/packages/c6/JclDebugExpert.RES
    trunk/jcl/packages/c6/JclDebugExpert.rc
    trunk/jcl/packages/c6/JclDebugExpertDLL.rc
    trunk/jcl/packages/c6/JclDebugExpertDLL.res
    trunk/jcl/packages/c6/JclFavoriteFoldersExpert.RES
    trunk/jcl/packages/c6/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.res
    trunk/jcl/packages/c6/JclProjectAnalysisExpert.RES
    trunk/jcl/packages/c6/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.res
    trunk/jcl/packages/c6/JclRepositoryExpert.rc
    trunk/jcl/packages/c6/JclRepositoryExpert.res
    trunk/jcl/packages/c6/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/c6/JclRepositoryExpertDLL.res
    trunk/jcl/packages/c6/JclSIMDViewExpert.rc
    trunk/jcl/packages/c6/JclSIMDViewExpert.res
    trunk/jcl/packages/c6/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/c6/JclSIMDViewExpertDLL.res
    trunk/jcl/packages/c6/JclThreadNameExpert.RES
    trunk/jcl/packages/c6/JclThreadNameExpert.rc
    trunk/jcl/packages/c6/JclThreadNameExpertDLL.rc
    trunk/jcl/packages/c6/JclThreadNameExpertDLL.res
    trunk/jcl/packages/c6/JclUsesExpert.RES
    trunk/jcl/packages/c6/JclUsesExpert.rc
    trunk/jcl/packages/c6/JclUsesExpertDLL.rc
    trunk/jcl/packages/c6/JclUsesExpertDLL.res
    trunk/jcl/packages/c6/JclVcl.RES
    trunk/jcl/packages/c6/JclVcl.rc
    trunk/jcl/packages/c6/JclVersionControlExpert.rc
    trunk/jcl/packages/c6/JclVersionControlExpert.res
    trunk/jcl/packages/c6/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/c6/JclVersionControlExpertDLL.res
    trunk/jcl/packages/c6/template.rc
    trunk/jcl/packages/cs1/Jcl.RES
    trunk/jcl/packages/cs1/Jcl.bdsproj
    trunk/jcl/packages/cs1/Jcl.rc
    trunk/jcl/packages/cs1/JclBaseExpert.RES
    trunk/jcl/packages/cs1/JclBaseExpert.bdsproj
    trunk/jcl/packages/cs1/JclBaseExpert.rc
    trunk/jcl/packages/cs1/JclContainers.bdsproj
    trunk/jcl/packages/cs1/JclContainers.rc
    trunk/jcl/packages/cs1/JclContainers.res
    trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/cs1/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/cs1/JclVersionControlExpertDLL.res
    trunk/jcl/packages/cs1/template.bdsproj
    trunk/jcl/packages/cs1/template.rc
    trunk/jcl/packages/d10/Jcl.bdsproj
    trunk/jcl/packages/d10/Jcl.rc
    trunk/jcl/packages/d10/Jcl.res
    trunk/jcl/packages/d10/JclBaseExpert.bdsproj
    trunk/jcl/packages/d10/JclBaseExpert.rc
    trunk/jcl/packages/d10/JclBaseExpert.res
    trunk/jcl/packages/d10/JclContainers.bdsproj
    trunk/jcl/packages/d10/JclContainers.rc
    trunk/jcl/packages/d10/JclContainers.res
    trunk/jcl/packages/d10/JclDebugExpert.bdsproj
    trunk/jcl/packages/d10/JclDebugExpert.rc
    trunk/jcl/packages/d10/JclDebugExpert.res
    trunk/jcl/packages/d10/JclDebugExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclDebugExpertDLL.rc
    trunk/jcl/packages/d10/JclDebugExpertDLL.res
    trunk/jcl/packages/d10/JclFavoriteFoldersExpert.bdsproj
    trunk/jcl/packages/d10/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d10/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.res
    trunk/jcl/packages/d10/JclProjectAnalysisExpert.RES
    trunk/jcl/packages/d10/JclProjectAnalysisExpert.bdsproj
    trunk/jcl/packages/d10/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.res
    trunk/jcl/packages/d10/JclRepositoryExpert.bdsproj
    trunk/jcl/packages/d10/JclRepositoryExpert.rc
    trunk/jcl/packages/d10/JclRepositoryExpert.res
    trunk/jcl/packages/d10/JclRepositoryExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d10/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d10/JclSIMDViewExpert.bdsproj
    trunk/jcl/packages/d10/JclSIMDViewExpert.rc
    trunk/jcl/packages/d10/JclSIMDViewExpert.res
    trunk/jcl/packages/d10/JclSIMDViewExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d10/JclSIMDViewExpertDLL.res
    trunk/jcl/packages/d10/JclStackTraceViewerExpert.bdsproj
    trunk/jcl/packages/d10/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d10/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d10/JclStackTraceViewerExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d10/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d10/JclVcl.bdsproj
    trunk/jcl/packages/d10/JclVcl.rc
    trunk/jcl/packages/d10/JclVcl.res
    trunk/jcl/packages/d10/JclVersionControlExpert.bdsproj
    trunk/jcl/packages/d10/JclVersionControlExpert.rc
    trunk/jcl/packages/d10/JclVersionControlExpert.res
    trunk/jcl/packages/d10/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d10/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d10/template.bdsproj
    trunk/jcl/packages/d10/template.rc
    trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj
    trunk/jcl/packages/d10.net/Jedi.Jcl.dpk
    trunk/jcl/packages/d10.net/Jedi.JclContainers.bdsproj
    trunk/jcl/packages/d10.net/Jedi.JclContainers.dpk
    trunk/jcl/packages/d10.net/template.bdsproj
    trunk/jcl/packages/d10.net/template.dpk
    trunk/jcl/packages/d11/Jcl.dproj
    trunk/jcl/packages/d11/Jcl.rc
    trunk/jcl/packages/d11/Jcl.res
    trunk/jcl/packages/d11/JclBaseExpert.dproj
    trunk/jcl/packages/d11/JclBaseExpert.rc
    trunk/jcl/packages/d11/JclBaseExpert.res
    trunk/jcl/packages/d11/JclContainers.dproj
    trunk/jcl/packages/d11/JclContainers.rc
    trunk/jcl/packages/d11/JclContainers.res
    trunk/jcl/packages/d11/JclDebugExpert.dproj
    trunk/jcl/packages/d11/JclDebugExpert.rc
    trunk/jcl/packages/d11/JclDebugExpert.res
    trunk/jcl/packages/d11/JclDebugExpertDLL.dproj
    trunk/jcl/packages/d11/JclDebugExpertDLL.rc
    trunk/jcl/packages/d11/JclDebugExpertDLL.res
    trunk/jcl/packages/d11/JclFavoriteFoldersExpert.dproj
    trunk/jcl/packages/d11/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d11/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d11/JclFavoriteFoldersExpertDLL.dproj
    trunk/jcl/packages/d11/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d11/JclFavoriteFoldersExpertDLL.res
    trunk/jcl/packages/d11/JclProjectAnalysisExpert.dproj
    trunk/jcl/packages/d11/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d11/JclProjectAnalysisExpert.res
    trunk/jcl/packages/d11/JclProjectAnalysisExpertDLL.dproj
    trunk/jcl/packages/d11/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d11/JclProjectAnalysisExpertDLL.res
    trunk/jcl/packages/d11/JclRepositoryExpert.dproj
    trunk/jcl/packages/d11/JclRepositoryExpert.rc
    trunk/jcl/packages/d11/JclRepositoryExpert.res
    trunk/jcl/packages/d11/JclRepositoryExpertDLL.dproj
    trunk/jcl/packages/d11/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d11/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d11/JclSIMDViewExpert.dproj
    trunk/jcl/packages/d11/JclSIMDViewExpert.rc
    trunk/jcl/packages/d11/JclSIMDViewExpert.res
    trunk/jcl/packages/d11/JclSIMDViewExpertDLL.dproj
    trunk/jcl/packages/d11/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d11/JclSIMDViewExpertDLL.res
    trunk/jcl/packages/d11/JclStackTraceViewerExpert.dproj
    trunk/jcl/packages/d11/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d11/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d11/JclStackTraceViewerExpertDLL.dproj
    trunk/jcl/packages/d11/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d11/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d11/JclVcl.dproj
    trunk/jcl/packages/d11/JclVcl.rc
    trunk/jcl/packages/d11/JclVcl.res
    trunk/jcl/packages/d11/JclVersionControlExpert.dproj
    trunk/jcl/packages/d11/JclVersionControlExpert.rc
    trunk/jcl/packages/d11/JclVersionControlExpert.res
    trunk/jcl/packages/d11/JclVersionControlExpertDLL.dproj
    trunk/jcl/packages/d11/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d11/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d11/template.dproj
    trunk/jcl/packages/d11/template.rc
    trunk/jcl/packages/d11.net/Jedi.Jcl.dpk
    trunk/jcl/packages/d11.net/Jedi.Jcl.dproj
    trunk/jcl/packages/d11.net/Jedi.JclContainers.dpk
    trunk/jcl/packages/d11.net/Jedi.JclContainers.dproj
    trunk/jcl/packages/d11.net/template.dpk
    trunk/jcl/packages/d11.net/template.dproj
    trunk/jcl/packages/d12/Jcl.dproj
    trunk/jcl/packages/d12/Jcl.rc
    trunk/jcl/packages/d12/Jcl.res
    trunk/jcl/packages/d12/JclBaseExpert.dproj
    trunk/jcl/packages/d12/JclBaseExpert.rc
    trunk/jcl/packages/d12/JclBaseExpert.res
    trunk/jcl/packages/d12/JclContainers.dproj
    trunk/jcl/packages/d12/JclContainers.rc
    trunk/jcl/packages/d12/JclContainers.res
    trunk/jcl/packages/d12/JclDebugExpert.dproj
    trunk/jcl/packages/d12/JclDebugExpert.rc
    trunk/jcl/packages/d12/JclDebugExpert.res
    trunk/jcl/packages/d12/JclDebugExpertDLL.dproj
    trunk/jcl/packages/d12/JclDebugExpertDLL.rc
    trunk/jcl/packages/d12/JclDebugExpertDLL.res
    trunk/jcl/packages/d12/JclFavoriteFoldersExpert.dproj
    trunk/jcl/packages/d12/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d12/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d12/JclFavoriteFoldersExpertDLL.dproj
    trunk/jcl/packages/d12/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d12/JclFavoriteFoldersExpertDLL.res
    trunk/jcl/packages/d12/JclProjectAnalysisExpert.dproj
    trunk/jcl/packages/d12/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d12/JclProjectAnalysisExpert.res
    trunk/jcl/packages/d12/JclProjectAnalysisExpertDLL.dproj
    trunk/jcl/packages/d12/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d12/JclProjectAnalysisExpertDLL.res
    trunk/jcl/packages/d12/JclRepositoryExpert.dproj
    trunk/jcl/packages/d12/JclRepositoryExpert.rc
    trunk/jcl/packages/d12/JclRepositoryExpert.res
    trunk/jcl/packages/d12/JclRepositoryExpertDLL.dproj
    trunk/jcl/packages/d12/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d12/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d12/JclSIMDViewExpert.dproj
    trunk/jcl/packages/d12/JclSIMDViewExpert.rc
    trunk/jcl/packages/d12/JclSIMDViewExpert.res
    trunk/jcl/packages/d12/JclSIMDViewExpertDLL.dproj
    trunk/jcl/packages/d12/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d12/JclSIMDViewExpertDLL.res
    trunk/jcl/packages/d12/JclStackTraceViewerExpert.dproj
    trunk/jcl/packages/d12/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d12/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d12/JclStackTraceViewerExpertDLL.dproj
    trunk/jcl/packages/d12/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d12/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d12/JclVcl.dproj
    trunk/jcl/packages/d12/JclVcl.rc
    trunk/jcl/packages/d12/JclVcl.res
    trunk/jcl/packages/d12/JclVersionControlExpert.dproj
    trunk/jcl/packages/d12/JclVersionControlExpert.rc
    trunk/jcl/packages/d12/JclVersionControlExpert.res
    trunk/jcl/packages/d12/JclVersionControlExpertDLL.dproj
    trunk/jcl/packages/d12/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d12/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d12/template.dproj
    trunk/jcl/packages/d12/template.rc
    trunk/jcl/packages/d5/JclBaseExpertD50.rc
    trunk/jcl/packages/d5/JclBaseExpertD50.res
    trunk/jcl/packages/d5/JclContainersD50.rc
    trunk/jcl/packages/d5/JclContainersD50.res
    trunk/jcl/packages/d5/JclD50.RES
    trunk/jcl/packages/d5/JclD50.rc
    trunk/jcl/packages/d5/JclDebugExpertD50.RES
    trunk/jcl/packages/d5/JclDebugExpertD50.rc
    trunk/jcl/packages/d5/JclDebugExpertDLLD50.RES
    trunk/jcl/packages/d5/JclDebugExpertDLLD50.rc
    trunk/jcl/packages/d5/JclFavoriteFoldersExpertD50.RES
    trunk/jcl/packages/d5/JclFavoriteFoldersExpertD50.rc
    trunk/jcl/packages/d5/JclFavoriteFoldersExpertDLLD50.RES
    trunk/jcl/packages/d5/JclFavoriteFoldersExpertDLLD50.rc
    trunk/jcl/packages/d5/JclProjectAnalysisExpertD50.RES
    trunk/jcl/packages/d5/JclProjectAnalysisExpertD50.rc
    trunk/jcl/packages/d5/JclProjectAnalysisExpertDLLD50.RES
    trunk/jcl/packages/d5/JclProjectAnalysisExpertDLLD50.rc
    trunk/jcl/packages/d5/JclRepositoryExpertD50.rc
    trunk/jcl/packages/d5/JclRepositoryExpertD50.res
    trunk/jcl/packages/d5/JclRepositoryExpertDLLD50.rc
    trunk/jcl/packages/d5/JclRepositoryExpertDLLD50.res
    trunk/jcl/packages/d5/JclSIMDViewExpertD50.RES
    trunk/jcl/packages/d5/JclSIMDViewExpertD50.rc
    trunk/jcl/packages/d5/JclSIMDViewExpertDLLD50.RES
    trunk/jcl/packages/d5/JclSIMDViewExpertDLLD50.rc
    trunk/jcl/packages/d5/JclStackTraceViewerExpertD50.rc
    trunk/jcl/packages/d5/JclStackTraceViewerExpertD50.res
    trunk/jcl/packages/d5/JclStackTraceViewerExpertDLLD50.rc
    trunk/jcl/packages/d5/JclStackTraceViewerExpertDLLD50.res
    trunk/jcl/packages/d5/JclThreadNameExpertD50.RES
    trunk/jcl/packages/d5/JclThreadNameExpertD50.rc
    trunk/jcl/packages/d5/JclThreadNameExpertDLLD50.RES
    trunk/jcl/packages/d5/JclThreadNameExpertDLLD50.rc
    trunk/jcl/packages/d5/JclUsesExpertD50.RES
    trunk/jcl/packages/d5/JclUsesExpertD50.rc
    trunk/jcl/packages/d5/JclUsesExpertDLLD50.RES
    trunk/jcl/packages/d5/JclUsesExpertDLLD50.rc
    trunk/jcl/packages/d5/JclVclD50.rc
    trunk/jcl/packages/d5/JclVclD50.res
    trunk/jcl/packages/d5/JclVersionControlExpertD50.rc
    trunk/jcl/packages/d5/JclVersionControlExpertD50.res
    trunk/jcl/packages/d5/JclVersionControlExpertDLLD50.rc
    trunk/jcl/packages/d5/JclVersionControlExpertDLLD50.res
    trunk/jcl/packages/d5/template.rc
    trunk/jcl/packages/d6/Jcl.rc
    trunk/jcl/packages/d6/Jcl.res
    trunk/jcl/packages/d6/JclBaseExpert.rc
    trunk/jcl/packages/d6/JclBaseExpert.res
    trunk/jcl/packages/d6/JclContainers.rc
    trunk/jcl/packages/d6/JclContainers.res
    trunk/jcl/packages/d6/JclDebugExpert.rc
    trunk/jcl/packages/d6/JclDebugExpert.res
    trunk/jcl/packages/d6/JclDebugExpertDLL.RES
    trunk/jcl/packages/d6/JclDebugExpertDLL.rc
    trunk/jcl/packages/d6/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d6/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d6/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/d6/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d6/JclProjectAnalysisExpert.RES
    trunk/jcl/packages/d6/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d6/JclProjectAnalysisExpertDLL.RES
    trunk/jcl/packages/d6/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d6/JclRepositoryExpert.rc
    trunk/jcl/packages/d6/JclRepositoryExpert.res
    trunk/jcl/packages/d6/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d6/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d6/JclSIMDViewExpert.rc
    trunk/jcl/packages/d6/JclSIMDViewExpert.res
    trunk/jcl/packages/d6/JclSIMDViewExpertDLL.RES
    trunk/jcl/packages/d6/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d6/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d6/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d6/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d6/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d6/JclThreadNameExpert.rc
    trunk/jcl/packages/d6/JclThreadNameExpert.res
    trunk/jcl/packages/d6/JclThreadNameExpertDLL.RES
    trunk/jcl/packages/d6/JclThreadNameExpertDLL.rc
    trunk/jcl/packages/d6/JclUsesExpert.rc
    trunk/jcl/packages/d6/JclUsesExpert.res
    trunk/jcl/packages/d6/JclUsesExpertDLL.RES
    trunk/jcl/packages/d6/JclUsesExpertDLL.rc
    trunk/jcl/packages/d6/JclVcl.rc
    trunk/jcl/packages/d6/JclVcl.res
    trunk/jcl/packages/d6/JclVersionControlExpert.rc
    trunk/jcl/packages/d6/JclVersionControlExpert.res
    trunk/jcl/packages/d6/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d6/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d6/template.rc
    trunk/jcl/packages/d7/Jcl.rc
    trunk/jcl/packages/d7/Jcl.res
    trunk/jcl/packages/d7/JclBaseExpert.rc
    trunk/jcl/packages/d7/JclBaseExpert.res
    trunk/jcl/packages/d7/JclContainers.rc
    trunk/jcl/packages/d7/JclContainers.res
    trunk/jcl/packages/d7/JclDebugExpert.rc
    trunk/jcl/packages/d7/JclDebugExpert.res
    trunk/jcl/packages/d7/JclDebugExpertDLL.RES
    trunk/jcl/packages/d7/JclDebugExpertDLL.rc
    trunk/jcl/packages/d7/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d7/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d7/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/d7/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d7/JclProjectAnalysisExpert.RES
    trunk/jcl/packages/d7/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d7/JclProjectAnalysisExpertDLL.RES
    trunk/jcl/packages/d7/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d7/JclRepositoryExpert.rc
    trunk/jcl/packages/d7/JclRepositoryExpert.res
    trunk/jcl/packages/d7/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d7/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d7/JclSIMDViewExpert.rc
    trunk/jcl/packages/d7/JclSIMDViewExpert.res
    trunk/jcl/packages/d7/JclSIMDViewExpertDLL.RES
    trunk/jcl/packages/d7/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d7/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d7/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d7/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d7/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d7/JclUsesExpert.rc
    trunk/jcl/packages/d7/JclUsesExpert.res
    trunk/jcl/packages/d7/JclUsesExpertDLL.RES
    trunk/jcl/packages/d7/JclUsesExpertDLL.rc
    trunk/jcl/packages/d7/JclVcl.rc
    trunk/jcl/packages/d7/JclVcl.res
    trunk/jcl/packages/d7/JclVersionControlExpert.rc
    trunk/jcl/packages/d7/JclVersionControlExpert.res
    trunk/jcl/packages/d7/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d7/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d7/template.rc
    trunk/jcl/packages/d8/Jcl.RES
    trunk/jcl/packages/d8/Jcl.bdsproj
    trunk/jcl/packages/d8/Jcl.rc
    trunk/jcl/packages/d8/JclBaseExpert.RES
    trunk/jcl/packages/d8/JclBaseExpert.bdsproj
    trunk/jcl/packages/d8/JclBaseExpert.rc
    trunk/jcl/packages/d8/JclContainers.bdsproj
    trunk/jcl/packages/d8/JclContainers.rc
    trunk/jcl/packages/d8/JclContainers.res
    trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d8/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/d8/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d8/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d8/template.bdsproj
    trunk/jcl/packages/d8/template.rc
    trunk/jcl/packages/d9/Jcl.RES
    trunk/jcl/packages/d9/Jcl.bdsproj
    trunk/jcl/packages/d9/Jcl.rc
    trunk/jcl/packages/d9/JclBaseExpert.bdsproj
    trunk/jcl/packages/d9/JclBaseExpert.rc
    trunk/jcl/packages/d9/JclBaseExpert.res
    trunk/jcl/packages/d9/JclContainers.bdsproj
    trunk/jcl/packages/d9/JclContainers.rc
    trunk/jcl/packages/d9/JclContainers.res
    trunk/jcl/packages/d9/JclDebugExpert.RES
    trunk/jcl/packages/d9/JclDebugExpert.bdsproj
    trunk/jcl/packages/d9/JclDebugExpert.rc
    trunk/jcl/packages/d9/JclDebugExpertDLL.RES
    trunk/jcl/packages/d9/JclDebugExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclDebugExpertDLL.rc
    trunk/jcl/packages/d9/JclFavoriteFoldersExpert.bdsproj
    trunk/jcl/packages/d9/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d9/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d9/JclProjectAnalysisExpert.RES
    trunk/jcl/packages/d9/JclProjectAnalysisExpert.bdsproj
    trunk/jcl/packages/d9/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.RES
    trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d9/JclRepositoryExpert.bdsproj
    trunk/jcl/packages/d9/JclRepositoryExpert.rc
    trunk/jcl/packages/d9/JclRepositoryExpert.res
    trunk/jcl/packages/d9/JclRepositoryExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d9/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d9/JclSIMDViewExpert.bdsproj
    trunk/jcl/packages/d9/JclSIMDViewExpert.rc
    trunk/jcl/packages/d9/JclSIMDViewExpertDLL.RES
    trunk/jcl/packages/d9/JclSIMDViewExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d9/JclSimdViewExpert.RES
    trunk/jcl/packages/d9/JclStackTraceViewerExpert.bdsproj
    trunk/jcl/packages/d9/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d9/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d9/JclStackTraceViewerExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d9/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d9/JclVcl.RES
    trunk/jcl/packages/d9/JclVcl.bdsproj
    trunk/jcl/packages/d9/JclVcl.rc
    trunk/jcl/packages/d9/JclVersionControlExpert.bdsproj
    trunk/jcl/packages/d9/JclVersionControlExpert.rc
    trunk/jcl/packages/d9/JclVersionControlExpert.res
    trunk/jcl/packages/d9/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d9/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d9/template.bdsproj
    trunk/jcl/packages/d9/template.rc
    trunk/jcl/packages/d9.net/Jedi.Jcl.bdsproj
    trunk/jcl/packages/d9.net/Jedi.Jcl.dpk
    trunk/jcl/packages/d9.net/Jedi.JclContainers.bdsproj
    trunk/jcl/packages/d9.net/Jedi.JclContainers.dpk
    trunk/jcl/packages/d9.net/template.bdsproj
    trunk/jcl/packages/d9.net/template.dpk

Modified: trunk/jcl/packages/c5/JclBaseExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclBaseExpertC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclBaseExpertC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Package containing common units for JCL Experts\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclBaseExpertC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclBaseExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclBaseExpertC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JEDI Code Library RTL package\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclContainersC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclContainersC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclContainersC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JEDI Code Library Containers package\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclContainersC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclContainersC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclContainersC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclDebugExpertC50.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclDebugExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclDebugExpertC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclDebugExpertC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Debug IDE extension\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclDebugExpertC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclDebugExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclDebugExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclDebugExpertDLLC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclDebugExpertDLLC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Debug IDE extension\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclDebugExpertDLLC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclDebugExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclDebugExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclFavoriteFoldersExpertC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclFavoriteFoldersExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclFavoriteFoldersExpertDLLC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclFavoriteFoldersExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Project Analyzer\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclProjectAnalysisExpertC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclProjectAnalysisExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Project Analyzer\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclProjectAnalysisExpertDLLC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclProjectAnalysisExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclRepositoryExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclRepositoryExpertC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclRepositoryExpertC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Package containing repository wizards\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclRepositoryExpertC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclRepositoryExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclRepositoryExpertC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Package containing repository wizards\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclRepositoryExpertDLLC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclRepositoryExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclSIMDViewExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclSIMDViewExpertC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclSIMDViewExpertC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclSIMDViewExpertC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclSIMDViewExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclSIMDViewExpertC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclSIMDViewExpertDLLC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclSIMDViewExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclThreadNameExpertC50.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclThreadNameExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclThreadNameExpertC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclThreadNameExpertC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Thread Name IDE expert\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclThreadNameExpertC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclThreadNameExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Thread Name IDE expert\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclThreadNameExpertDLLC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclThreadNameExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclUsesExpertC50.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclUsesExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclUsesExpertC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclUsesExpertC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Uses Wizard\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclUsesExpertC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclUsesExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclUsesExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclUsesExpertDLLC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclUsesExpertDLLC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Uses Wizard\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclUsesExpertDLLC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclUsesExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclUsesExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclVclC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclVclC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclVclC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JEDI Code Library VCL package\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclVclC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclVclC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclVclC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclVersionControlExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclVersionControlExpertC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclVersionControlExpertC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Integration of version control systems in the IDE\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclVersionControlExpertC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclVersionControlExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclVersionControlExpertC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Integration of version control systems in the IDE\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclVersionControlExpertDLLC50\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclVersionControlExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/template.rc
===================================================================
--- trunk/jcl/packages/c5/template.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c5/template.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "%DESCRIPTION%\0"
               VALUE "FileVersion", "%VERSION_MAJOR_NUMBER%.%VERSION_MINOR_NUMBER%.%RELEASE_NUMBER%.%BUILD_NUMBER%\0"
               VALUE "InternalName", "%NAME%\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "%NAME%C50%BINEXTENSION%\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "%VERSION_MAJOR_NUMBER%.%VERSION_MINOR_NUMBER% Build %BUILD_NUMBER%\0"

Modified: trunk/jcl/packages/c6/Jcl.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/Jcl.rc
===================================================================
--- trunk/jcl/packages/c6/Jcl.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/Jcl.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JEDI Code Library RTL package\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "Jcl\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c6/JclBaseExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclBaseExpert.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/JclBaseExpert.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Package containing common units for JCL Experts\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclBaseExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclBaseExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c6/JclBaseExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclContainers.rc
===================================================================
--- trunk/jcl/packages/c6/JclContainers.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/JclContainers.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JEDI Code Library Containers package\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclContainers\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclContainersC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c6/JclContainers.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclDebugExpert.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclDebugExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclDebugExpert.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/JclDebugExpert.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Debug IDE extension\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclDebugExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclDebugExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c6/JclDebugExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclDebugExpertDLL.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/JclDebugExpertDLL.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Debug IDE extension\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclDebugExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclDebugExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c6/JclDebugExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclFavoriteFoldersExpert.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclFavoriteFoldersExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclFavoriteFoldersExpert.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/JclFavoriteFoldersExpert.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclFavoriteFoldersExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclFavoriteFoldersExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclFavoriteFoldersExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclFavoriteFoldersExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclProjectAnalysisExpert.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclProjectAnalysisExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclProjectAnalysisExpert.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/JclProjectAnalysisExpert.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Project Analyzer\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclProjectAnalysisExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclProjectAnalysisExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Project Analyzer\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclProjectAnalysisExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclProjectAnalysisExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclRepositoryExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclRepositoryExpert.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/JclRepositoryExpert.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Package containing repository wizards\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclRepositoryExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclRepositoryExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c6/JclRepositoryExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclRepositoryExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclRepositoryExpertDLL.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/JclRepositoryExpertDLL.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Package containing repository wizards\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclRepositoryExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclRepositoryExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c6/JclRepositoryExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclSIMDViewExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclSIMDViewExpert.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/JclSIMDViewExpert.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclSIMDViewExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclSIMDViewExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c6/JclSIMDViewExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclSIMDViewExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclSIMDViewExpertDLL.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/JclSIMDViewExpertDLL.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclSIMDViewExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclSIMDViewExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c6/JclSIMDViewExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclThreadNameExpert.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclThreadNameExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclThreadNameExpert.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/JclThreadNameExpert.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Thread Name IDE expert\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclThreadNameExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
               VALUE "OriginalFilename", "JclThreadNameExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.0 Build 3401\0"

Modified: trunk/jcl/packages/c6/JclThreadNameExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclThreadNameExpertDLL.rc	2009-06-28 21:05:51 UTC (rev 2838)
+++ trunk/jcl/packages/c6/JclThreadNameExpertDLL.rc	2009-06-30 22:01:17 UTC (rev 2839)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Thread Name IDE expert\0"
               VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclThreadNameExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2009 Project JEDI\0"
             ...
 
[truncated message content]

[Jcl-checkins-diff] SF.net SVN: jcl:[2838] trunk

From: <ou...@us...> - 2009-06-28 21:05:56

Revision: 2838
          http://jcl.svn.sourceforge.net/jcl/?rev=2838&view=rev
Author:   outchy
Date:     2009-06-28 21:05:51 +0000 (Sun, 28 Jun 2009)

Log Message:
-----------
Kylix and CLX support removal.

Modified Paths:
--------------
    trunk/jcl/Install.bat
    trunk/jcl/Install.txt
    trunk/jcl/clean.sh
    trunk/jcl/devtools/included_files.bat
    trunk/jcl/devtools/included_files.sh
    trunk/jcl/devtools/pgEdit.xml
    trunk/jcl/docs/Readme.html
    trunk/jcl/docs/Readme.txt
    trunk/jcl/examples/common/containers/performance/ContainerPerformance.dpr
    trunk/jcl/examples/common/graphics/StretchGraphicDemoMain.pas
    trunk/jcl/examples/windows/delphitools/resfix/ResFix.dof
    trunk/jcl/examples/windows/fileversion/VerInfoExample.dof
    trunk/jcl/experts/common/JclOtaConsts.pas
    trunk/jcl/experts/common/JclOtaUtils.pas
    trunk/jcl/experts/debug/Howto.txt
    trunk/jcl/experts/useswizard/JediUsesWizard.ini
    trunk/jcl/install/HeaderTest/jcl_a2z.cpp
    trunk/jcl/install/HeaderTest/jcl_z2a.cpp
    trunk/jcl/install/JclInstall.pas
    trunk/jcl/install/JediInstall.pas
    trunk/jcl/install/build/dcc32ex.dpr
    trunk/jcl/install/prototypes/JediGUIInstall.pas
    trunk/jcl/install/prototypes/JediGUIMain.pas
    trunk/jcl/install/prototypes/JediGUIReadme.pas
    trunk/jcl/packages/JclPackagesC60.bpg
    trunk/jcl/packages/JclPackagesD60.bpg
    trunk/jcl/packages/JclPackagesD70.bpg
    trunk/jcl/packages/c6/Jcl.bpk
    trunk/jcl/packages/c6/JclBaseExpert.bpk
    trunk/jcl/packages/c6/JclContainers.bpk
    trunk/jcl/packages/c6/JclDebugExpert.bpk
    trunk/jcl/packages/c6/JclDebugExpertDLL.bpr
    trunk/jcl/packages/c6/JclFavoriteFoldersExpert.bpk
    trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.bpr
    trunk/jcl/packages/c6/JclProjectAnalysisExpert.bpk
    trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.bpr
    trunk/jcl/packages/c6/JclRepositoryExpert.bpk
    trunk/jcl/packages/c6/JclRepositoryExpertDLL.bpr
    trunk/jcl/packages/c6/JclSIMDViewExpert.bpk
    trunk/jcl/packages/c6/JclSIMDViewExpertDLL.bpr
    trunk/jcl/packages/c6/JclThreadNameExpert.bpk
    trunk/jcl/packages/c6/JclThreadNameExpertDLL.bpr
    trunk/jcl/packages/c6/JclUsesExpert.bpk
    trunk/jcl/packages/c6/JclUsesExpertDLL.bpr
    trunk/jcl/packages/c6/JclVcl.bpk
    trunk/jcl/packages/c6/JclVersionControlExpert.bpk
    trunk/jcl/packages/c6/JclVersionControlExpertDLL.bpr
    trunk/jcl/packages/c6/template.bpk
    trunk/jcl/packages/c6/template.bpr
    trunk/jcl/packages/resources.mak
    trunk/jcl/source/common/JclBorlandTools.pas
    trunk/jcl/source/common/JclFileUtils.pas
    trunk/jcl/source/common/JclResources.pas
    trunk/jcl/source/common/JclStreams.pas
    trunk/jcl/source/common/JclUnicode.pas
    trunk/jcl/source/common/zlibh.pas
    trunk/jcl/source/include/jcl.inc
    trunk/jcl/source/prototypes/Makefile.mak
    trunk/jcl/source/prototypes/_GraphUtils.pas
    trunk/jcl/source/prototypes/_Graphics.pas
    trunk/thirdparty/svn_cleaner/SvnCleaner.xml

Removed Paths:
-------------
    trunk/jcl/experts/debug/dialog/ClxExceptDlg.ico
    trunk/jcl/experts/debug/dialog/ClxExceptDlg.pas
    trunk/jcl/experts/debug/dialog/ClxExceptDlg.xfm
    trunk/jcl/experts/useswizard/JclQGraphUtils.txt
    trunk/jcl/experts/useswizard/JclQGraphics.txt
    trunk/jcl/install/ClxGui/
    trunk/jcl/install/QJediInstaller.conf
    trunk/jcl/install/QJediInstaller.dof
    trunk/jcl/install/QJediInstaller.dpr
    trunk/jcl/install/QJediInstaller.kof
    trunk/jcl/install/QJediInstaller.res
    trunk/jcl/install/prototypes.sh
    trunk/jcl/install.sh
    trunk/jcl/lib/k3/
    trunk/jcl/packages/JclPackagesCK3.bpg
    trunk/jcl/packages/JclPackagesDK3.bpg
    trunk/jcl/packages/bcb.gmk
    trunk/jcl/packages/c6/JclVClx.RES
    trunk/jcl/packages/c6/JclVClx.bpk
    trunk/jcl/packages/c6/JclVClx.cpp
    trunk/jcl/packages/c6/JclVClx.dof
    trunk/jcl/packages/c6/JclVClx.dpk
    trunk/jcl/packages/c6/JclVClx.rc
    trunk/jcl/packages/d6/JclVClx.dof
    trunk/jcl/packages/d6/JclVClx.dpk
    trunk/jcl/packages/d6/JclVClx.rc
    trunk/jcl/packages/d6/JclVClx.res
    trunk/jcl/packages/d7/JclVClx.dof
    trunk/jcl/packages/d7/JclVClx.dpk
    trunk/jcl/packages/d7/JclVClx.rc
    trunk/jcl/packages/d7/JclVClx.res
    trunk/jcl/packages/k3/
    trunk/jcl/packages/xml/JclVClx-R.xml
    trunk/jcl/source/prototypes/JclQGraphUtils.pas
    trunk/jcl/source/prototypes/JclQGraphics.pas
    trunk/jcl/source/visclx/

Property Changed:
----------------
    trunk/jcl/source/include/

Modified: trunk/jcl/Install.bat
===================================================================
--- trunk/jcl/Install.bat	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/Install.bat	2009-06-28 21:05:51 UTC (rev 2838)
@@ -6,11 +6,11 @@
 
 ::jpp prototypes
 
-..\devtools\jpp.exe -c -dVCL -dMSWINDOWS -uVisualCLX -uUnix -uKYLIX -xVclGui\ prototypes\JediGUIMain.pas
+..\devtools\jpp.exe -c -dVCL -dMSWINDOWS -uUnix -xVclGui\ prototypes\JediGUIMain.pas
 if ERRORLEVEL 1 goto FailedCompile
-..\devtools\jpp.exe -c -dVCL -dMSWINDOWS -uVisualCLX -uUnix -uKYLIX -xVclGui\ prototypes\JediGUIReadme.pas
+..\devtools\jpp.exe -c -dVCL -dMSWINDOWS -uUnix -xVclGui\ prototypes\JediGUIReadme.pas
 if ERRORLEVEL 1 goto FailedCompile
-..\devtools\jpp.exe -c -dVCL -dMSWINDOWS -uVisualCLX -uUnix -uKYLIX -xVclGui\ prototypes\JediGUIInstall.pas
+..\devtools\jpp.exe -c -dVCL -dMSWINDOWS -uUnix -xVclGui\ prototypes\JediGUIInstall.pas
 if ERRORLEVEL 1 goto FailedCompile
 
 

Modified: trunk/jcl/Install.txt
===================================================================
--- trunk/jcl/Install.txt	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/Install.txt	2009-06-28 21:05:51 UTC (rev 2838)
@@ -5,7 +5,6 @@
 - 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 Kylix 3
 - Borland Delphi 7
 - Borland Delphi 6 Update Pack #2 (including Personal Edition)
 - Borland Delphi 5 Update Pack #1
@@ -60,12 +59,5 @@
 
         >install d5
 
-2) Kylix 3
-- open a shell window
-- cd into JCL root directory
-- at the command prompt, type "sh ./install.sh", then press "Enter".
-  You'll also need to do a "source kylixpath" first (see the README of your 
-  Kylix 3 installation) in case your system is not set up to do that at startup.
-
 --------------------------------
-Document last updated 2009-06-22
+Document last updated 2009-06-28

Modified: trunk/jcl/clean.sh
===================================================================
--- trunk/jcl/clean.sh	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/clean.sh	2009-06-28 21:05:51 UTC (rev 2838)
@@ -9,4 +9,3 @@
 rm -f `find -name *.dpu`
 rm -f `find -name *.hpp`
 rm -f `find -name *.o`
-rm -f packages/k?/*.mak
\ No newline at end of file

Modified: trunk/jcl/devtools/included_files.bat
===================================================================
--- trunk/jcl/devtools/included_files.bat	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/devtools/included_files.bat	2009-06-28 21:05:51 UTC (rev 2838)
@@ -2,8 +2,6 @@
 
 copy ..\source\include\jcl.template.inc ..\source\include\jclc5.inc
 copy ..\source\include\jcl.template.inc ..\source\include\jclc6.inc
-copy ..\source\include\jcl.template.inc ..\source\include\jclkc3.inc
-copy ..\source\include\jcl.template.inc ..\source\include\jclkd3.inc
 copy ..\source\include\jcl.template.inc ..\source\include\jcld5.inc
 copy ..\source\include\jcl.template.inc ..\source\include\jcld6.inc
 copy ..\source\include\jcl.template.inc ..\source\include\jcld7.inc

Modified: trunk/jcl/devtools/included_files.sh
===================================================================
--- trunk/jcl/devtools/included_files.sh	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/devtools/included_files.sh	2009-06-28 21:05:51 UTC (rev 2838)
@@ -4,8 +4,6 @@
 
 cp ../source/include/jcl.template.inc ../source/include/jclc5.inc
 cp ../source/include/jcl.template.inc ../source/include/jclc6.inc
-cp ../source/include/jcl.template.inc ../source/include/jclkc3.inc
-cp ../source/include/jcl.template.inc ../source/include/jclkd3.inc
 cp ../source/include/jcl.template.inc ../source/include/jcld5.inc
 cp ../source/include/jcl.template.inc ../source/include/jcld6.inc
 cp ../source/include/jcl.template.inc ../source/include/jcld7.inc

Modified: trunk/jcl/devtools/pgEdit.xml
===================================================================
--- trunk/jcl/devtools/pgEdit.xml	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/devtools/pgEdit.xml	2009-06-28 21:05:51 UTC (rev 2838)
@@ -70,7 +70,6 @@
         <target name="cs1" IsBds="1"/>
         <target name="d9" IsBds="1"/>
         <target name="d10" defines="BCB" IsBds="1"/>
-        <target name="k3" defines="BCB" PathSep="/"/>
         <target name="d9.net" IsDotNet="1"/>
         <target name="d10.net" IsDotNet="1"/>
         <target name="d11" defines="BCB" IsBds="1"/>
@@ -80,17 +79,16 @@
       <aliases>
         <alias name="Delphi" value="d5,d6,d7,d9,d10,d11,d12"/>
         <alias name="Bcb" value="c5,c6,d10,d11,d12"/>
-        <alias name="Kylix" value="k3"/>
         <alias name="Windows" value="c5,c6,d5,d6,d7,d9,d10,d11,d12"/>
-        <alias name="Linux" value="k3"/>
+        <alias name="Linux" value=""/>
         <alias name="WinDev" value="c5,c6,d5,d6,d7,d8,d9,d10,cs1,d11,d12"/>
-        <alias name="JclDev" value="c5,c6,d5,d6,d7,d8,d9,d10,k3,cs1,d11,d12"/>
+        <alias name="JclDev" value="c5,c6,d5,d6,d7,d8,d9,d10,cs1,d11,d12"/>
         <alias name="DelphiDev" value="d5,d6,d7,d8,d9,d10,d11,d12"/>
         <alias name="WinLibSuffix" value="c6,d6,d7,d8,d9,d10,cs1,d11,d12"/>
-        <alias name="allLibSuffix" value="c6,d6,d7,d8,d9,d10,k3,cs1,d11,d12"/>
+        <alias name="allLibSuffix" value="c6,d6,d7,d8,d9,d10,cs1,d11,d12"/>
         <alias name="allv12up" value="d12"/>
         <alias name="noLibSuffix" value="c5,d5"/>
-        <alias name="Clx" value="c6,d6,d7,k3"/>
+        <alias name="Clx" value="c6,d6,d7"/>
         <alias name="Vcl" value="c5,d5,c6,d6,d7,d9,d10,d11,d12"/>
         <alias name="Bds" value="cs1,d8,d9,d10,d11,d12"/>
         <alias name="JclDotNet" value="d9.net,d10.net,d11.net"/>

Modified: trunk/jcl/docs/Readme.html
===================================================================
--- trunk/jcl/docs/Readme.html	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/docs/Readme.html	2009-06-28 21:05:51 UTC (rev 2838)
@@ -139,7 +139,7 @@
 
 <ul>
 
-  <li>Kylix 3 (cf <a href="#notes">Installation notes</a>)</li>
+  <li>None</li>
 
 </ul>
 
@@ -182,9 +182,6 @@
   files in the tool-specific <tt>lib/</tt>subdirectories for a list of units
   excluded from compilation.</li>
 
-  <li>Kylix 3 Delphi/C++ installation is back but specific code has not been tested with the latest
-  versions of the kernel. Please ensure you use the flavor of the JCL with Unix EOL.</li>
-
   <li>Free Pascal (<a href="http://www.freepascal.org/">http://www.freepascal.org/</a>)
   support has not been updated for this release; most units from
   source/common should work with FP 2.0, as tests with a 2.0 beta (1.9.8)
@@ -257,10 +254,6 @@
   <li>Open and edit included file to customize options:</li>
   <ul>
 
-    <li>For Kylix 3 (Delphi): source\include\jclkd3.inc</li>
-
-    <li>For Kylix 3 (C++Builder): source\include\jclkc3.inc</li>
-
     <li>For C++Builder 5: source\include\jclc5.inc</li>
 
     <li>For C++Builder 6: source\include\jclc6.inc</li>

Modified: trunk/jcl/docs/Readme.txt
===================================================================
--- trunk/jcl/docs/Readme.txt	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/docs/Readme.txt	2009-06-28 21:05:51 UTC (rev 2838)
@@ -91,7 +91,7 @@
 The JCL can be compiled and installed in the following environments
 
 Only runtime support:
- - Kylix 3 (cf Installation notes)
+ - None
 
 Only design-time support (only experts):
  - C#Builder 1 (cf Installation notes);
@@ -114,10 +114,6 @@
  - Not every unit supports all tools. Look out for *.exc files in the tool-
    specific lib/subdirectories for a list of units excluded from compilation.
 
- - Kylix 3 Delphi/C++ installation is back but specific code has not been tested
-   with the latest versions of the kernel. Please ensure you use the flavor of
-   the JCL with Unix EOL.
-
  - Free Pascal (http://www.freepascal.org/) support has not been updated for
    this release; most units fromsource/common should work with FP 2.0, as tests
    with a 2.0 beta (1.9.8)indicated, but this has not been verified. Note that
@@ -173,8 +169,6 @@
 For each tool you want to install the JCL in, repeat the following steps:
 
 1. Open and edit included file to customize options:
- - For Kylix 3 (Delphi): source\include\jclkd3.inc
- - For Kylix 3 (C++Builder): source\include\jclkc3.inc
  - For C++Builder 5: source\include\jclc5.inc
  - For C++Builder 6: source\include\jclc6.inc
  - For Delphi 5: source\include\jcld5.inc

Modified: trunk/jcl/examples/common/containers/performance/ContainerPerformance.dpr
===================================================================
--- trunk/jcl/examples/common/containers/performance/ContainerPerformance.dpr	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/examples/common/containers/performance/ContainerPerformance.dpr	2009-06-28 21:05:51 UTC (rev 2838)
@@ -6,9 +6,6 @@
   {$IFDEF MSWINDOWS}
   Forms,
   {$ENDIF MSWINDOWS}
-  {$IFDEF KYLIX}
-  QForms,
-  {$ENDIF KYLIX}
   ContainerPerformanceMain in 'ContainerPerformanceMain.pas' {MainForm},
   ContainerPerformanceTests in 'ContainerPerformanceTests.pas';
 

Modified: trunk/jcl/examples/common/graphics/StretchGraphicDemoMain.pas
===================================================================
--- trunk/jcl/examples/common/graphics/StretchGraphicDemoMain.pas	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/examples/common/graphics/StretchGraphicDemoMain.pas	2009-06-28 21:05:51 UTC (rev 2838)
@@ -122,10 +122,7 @@
 
 {$IFDEF VCL}
 {$R *.dfm}
-{$ENDIF}
-{$IFDEF VisualCLX}
-{$R *.xfm}
-{$ENDIF VisualCLX}
+{$ENDIF VCL}
 
 var
   FileMask: string;

Modified: trunk/jcl/examples/windows/delphitools/resfix/ResFix.dof
===================================================================
--- trunk/jcl/examples/windows/delphitools/resfix/ResFix.dof	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/examples/windows/delphitools/resfix/ResFix.dof	2009-06-28 21:05:51 UTC (rev 2838)
@@ -95,7 +95,7 @@
 PackageDLLOutputDir=
 PackageDCPOutputDir=
 SearchPath=..\..\..\..\source\include;..\..\..\..\source\common;..\..\..\..\source\windows;..\..\..\..\source\vcl
-Packages=vcl;rtl;vclx;indy;vclie;xmlrtl;inetdbbde;inet;inetdbxpress;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;inetdb;bdertl;vcldbx;adortl;teeui;teedb;tee;ibxpress;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;EasyNSED7;Jcl
+Packages=vcl;rtl;Jcl
 Conditionals=
 DebugSourceDirs=
 UsePackages=0

Modified: trunk/jcl/examples/windows/fileversion/VerInfoExample.dof
===================================================================
--- trunk/jcl/examples/windows/fileversion/VerInfoExample.dof	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/examples/windows/fileversion/VerInfoExample.dof	2009-06-28 21:05:51 UTC (rev 2838)
@@ -44,7 +44,7 @@
 PackageDLLOutputDir=
 PackageDCPOutputDir=
 SearchPath=$(DELPHI)\Lib\Debug;I:\Quellen\jedi\jcl\lib\d5\debug;I:\Quellen\jedi\jcl.cvs\jcl\lib\D5\debug;I:\Quellen\jedi\jcl\lib\D5\debug
-Packages=Vcl50;TeeQR50;dclocx50;Vclx50;dclqsprint50;dcliex50;ex2fs;Vcldb50;Vclbde50;ibevnt50;Indy50;A406_R50;rrMixers50;rrCmpInf50;VclSmp50;TeeUI50;TeeDB50;Tee50;vcldbx50;VCLIB50;vclie50;Inetdb50;Inet50;dclaxserver50;EPCOTAUtils50;DJcl50;ADSD50;rrSigDpl50;JvAppFrmD5R;JvCoreD5R;JvBandsD5R;JvBDED5R;JvDBD5R;JvCmpD5R;JvCryptD5R;JvCtrlsD5R;JvCustomD5R;JvDlgsD5R;JvDockingD5R;JvDotNetCtrlsD5R;JvEDID5R;Qrpt50;JvGlobusD5R;JvHMID5R;JvInspectorD5R;JvInterpreterD5R;JvJansD5R;JvManagedThreadsD5R;JvMMD5R;JvNetD5R;JvStdCtrlsD5R;JvPageCompsD5R;JvPluginD5R;JvPrintPreviewD5R;JvSystemD5R;JvTimeFrameworkD5R;JvUIBD5R;JvValidatorsD5R;JvWizardD5R;JvXPCtrlsD5R
+Packages=rtl;vcl;Jcl
 Conditionals=
 DebugSourceDirs=
 UsePackages=0

Modified: trunk/jcl/experts/common/JclOtaConsts.pas
===================================================================
--- trunk/jcl/experts/common/JclOtaConsts.pas	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/experts/common/JclOtaConsts.pas	2009-06-28 21:05:51 UTC (rev 2838)
@@ -1,4 +1,4 @@
-{**************************************************************************************************}
+{**************************************************************************************************}
 {                                                                                                  }
 { Project JEDI Code Library (JCL)                                                                  }
 {                                                                                                  }
@@ -56,7 +56,6 @@
 
   JclDesignerAny = {$IFDEF COMPILER6_UP} dAny {$ELSE COMPILER6_UP} '' {$ENDIF COMPILER6_UP};
   JclDesignerVcl = {$IFDEF COMPILER6_UP} dVcl {$ELSE COMPILER6_UP} '' {$ENDIF COMPILER6_UP};
-  JclDesignerClx = {$IFDEF COMPILER6_UP} dClx {$ELSE COMPILER6_UP} '' {$ENDIF COMPILER6_UP};
   JclDelphiPersonality = {$IFDEF BDS} sDelphiPersonality {$ELSE BDS} '' {$ENDIF BDS};
   JclCBuilderPersonality = {$IFDEF BDS} sCBuilderPersonality {$ELSE BDS} '' {$ENDIF BDS};
 

Modified: trunk/jcl/experts/common/JclOtaUtils.pas
===================================================================
--- trunk/jcl/experts/common/JclOtaUtils.pas	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/experts/common/JclOtaUtils.pas	2009-06-28 21:05:51 UTC (rev 2838)
@@ -1171,11 +1171,6 @@
 end;
 
 function TJclOTAExpertBase.GetRootDir: string;
-{$IFDEF KYLIX}
-var
-  RADToolsInstallations: TJclBorRADToolInstallations;
-  RADToolInstallation: TJclBorRADToolInstallation;
-{$ENDIF KYLIX}
 begin
   if FRootDir = '' then
   begin
@@ -1186,24 +1181,6 @@
     if FRootDir = '' then
       FRootDir := RegReadStringDef(HKEY_CURRENT_USER, Settings.BaseKeyName, DelphiRootDirKeyValue, '');
     {$ENDIF MSWINDOWS}
-    {$IFDEF KYLIX}
-    RADToolsInstallations := TJclBorRADToolInstallations.Create;
-    try
-      {$IFDEF KYLIX3}
-      {$IFDEF BCB}
-      RADToolInstallation := RADToolsInstallations.BCBInstallationFromVersion[3];
-      {$ELSE}
-      RADToolInstallation := RADToolsInstallations.DelphiInstallationFromVersion[3];
-      {$ENDIF BCB}
-      {$ELSE}
-      RADToolInstallation := nil;
-      {$ENDIF KYLIX3}
-      if Assigned(RADToolInstallation) then
-        FRootDir := RADToolInstallation.RootDir;
-    finally
-      RADToolsInstallations.Free;
-    end;
-    {$ENDIF KYLIX}
     if FRootDir = '' then
       raise EJclExpertException.CreateTrace(RsENoRootDir);
   end;
@@ -1347,10 +1324,6 @@
   {$IFDEF MSWINDOWS}
   EnvVarKeyName: string;
   {$ENDIF MSWINDOWS}
-  {$IFDEF KYLIX}
-  RADToolsInstallations: TJclBorRADToolInstallations;
-  RADToolInstallation: TJclBorRADToolInstallation;
-  {$ENDIF KYLIX}
 {$ENDIF COMPILER6_UP}
 begin
   FEnvVariables.Clear;
@@ -1370,30 +1343,6 @@
         FEnvVariables.Values[EnvNames[I]] :=
           RegReadStringDef(HKEY_CURRENT_USER, EnvVarKeyName, EnvNames[I], '');
     {$ENDIF MSWINDOWS}
-    {$IFDEF KYLIX}
-    RADToolsInstallations := TJclBorRADToolInstallations.Create;
-    try
-      {$IFDEF KYLIX3}
-      {$IFDEF BCB}
-      RADToolInstallation := RADToolsInstallations.BCBInstallationFromVersion[3];
-      {$ELSE}
-      RADToolInstallation := RADToolsInstallations.DelphiInstallationFromVersion[3];
-      {$ENDIF BCB}
-      {$ELSE}
-      RADToolInstallation := nil;
-      {$ENDIF KYLIX3}
-      if Assigned(RADToolInstallation) then
-      begin
-        for I := 0 to RADToolInstallation.EnvironmentVariables.Count - 1 do
-          EnvNames.Add(RADToolInstallation.EnvironmentVariables.Names[I]);
-        for I := 0 to EnvNames.Count - 1 do
-          FEnvVariables.Values[EnvNames[I]] :=
-            RADToolInstallation.EnvironmentVariables.Values[EnvNames[I]];
-      end;
-    finally
-      RADToolsInstallations.Free;
-    end;
-    {$ENDIF KYLIX}
   finally
     EnvNames.Free;
   end;

Modified: trunk/jcl/experts/debug/Howto.txt
===================================================================
--- trunk/jcl/experts/debug/Howto.txt	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/experts/debug/Howto.txt	2009-06-28 21:05:51 UTC (rev 2838)
@@ -50,7 +50,7 @@
 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
+for Borland RTL and VCL 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

Deleted: trunk/jcl/experts/debug/dialog/ClxExceptDlg.ico
===================================================================
(Binary files differ)

Deleted: trunk/jcl/experts/debug/dialog/ClxExceptDlg.pas
===================================================================
--- trunk/jcl/experts/debug/dialog/ClxExceptDlg.pas	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/experts/debug/dialog/ClxExceptDlg.pas	2009-06-28 21:05:51 UTC (rev 2838)
@@ -1,756 +0,0 @@
-{**************************************************************************************************}
-{                                                                                                  }
-{ 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 ClxExceptDlg.pas.                                                           }
-{                                                                                                  }
-{ The Initial Developer of the Original Code is Petr Vones.                                        }
-{ Portions created by Petr Vones are Copyright (C) of Petr Vones.                                  }
-{                                                                                                  }
-{**************************************************************************************************}
-{                                                                                                  }
-{ Sample CLX Application exception dialog replacement (for Windows only)                           }
-{                                                                                                  }
-{ Last modified: $Date$                                                      }
-{                                                                                                  }
-{**************************************************************************************************}
-
-unit ClxExceptDlg;
-
-{$I jcl.inc}
-
-interface
-
-{$IFDEF DELPHI6_UP}
-{$IF Defined(MSWINDOWS)}
-
-uses
-  SysUtils, Classes, Qt, QGraphics, QControls, QForms, QDialogs, QStdCtrls, QExtCtrls, JclDebug;
-
-const
-  QEventType_UMCreateDetails = QEventType(Integer(QEventType_ClxUser) + $01);
-
-  ReportToLogEnabled   = $00000001; // TExceptionDialog.Tag property
-  DisableTextScrollbar = $00000002; // TExceptionDialog.Tag property
-
-type
-  TSimpleExceptionLog = class (TObject)
-  private
-    FLogFileHandle: THandle;
-    FLogFileName: string;
-    FLogWasEmpty: Boolean;
-    function GetLogOpen: Boolean;
-  protected
-    function CreateDefaultFileName: string;
-  public
-    constructor Create(const ALogFileName: string = '');
-    destructor Destroy; override;
-    procedure CloseLog;
-    procedure OpenLog;
-    procedure Write(const Text: string; Indent: Integer = 0); overload;
-    procedure Write(Strings: TStrings; Indent: Integer = 0); overload;
-    procedure WriteStamp(SeparatorLen: Integer = 0);
-    property LogFileName: string read FLogFileName;
-    property LogOpen: Boolean read GetLogOpen;
-  end;
-
-  TExcDialogSystemInfo = (siStackList, siOsInfo, siModuleList, siActiveControls);
-  TExcDialogSystemInfos = set of TExcDialogSystemInfo;
-
-  TExceptionDialog = class(TForm)
-    OkBtn: TButton;
-    DetailsMemo: TMemo;
-    DetailsBtn: TButton;
-    Bevel1: TBevel;
-    TextLabel: TMemo;
-    ErrorIconImage: TImage;
-    procedure FormCreate(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure DetailsBtnClick(Sender: TObject);
-    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
-    procedure FormDestroy(Sender: TObject);
-    procedure FormResize(Sender: TObject);
-  private
-    FDetailsVisible: Boolean;
-    FIsMainThead: Boolean;
-    FLastActiveControl: TWinControl;
-    FNonDetailsHeight: Integer;
-    FFullHeight: Integer;
-    FSimpleLog: TSimpleExceptionLog;
-    procedure CreateDetails;
-    function GetReportAsText: string;
-    procedure SetDetailsVisible(const Value: Boolean);
-  protected
-    procedure AfterCreateDetails; dynamic;
-    procedure BeforeCreateDetails; dynamic;
-    procedure CreateDetailInfo; dynamic;
-    procedure CreateReport(const SystemInfo: TExcDialogSystemInfos);
-    function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; override;
-    procedure ReportToLog;
-    function ReportMaxColumns: Integer; virtual;
-    function ReportNewBlockDelimiterChar: Char; virtual;
-    procedure NextDetailBlock;
-    procedure UpdateTextLabelScrollbars;
-  public
-    procedure CopyReportToClipboard;
-    class procedure ExceptionHandler(Sender: TObject; E: Exception);
-    class procedure ExceptionThreadHandler(Thread: TJclDebugThread);
-    class procedure ShowException(E: Exception; Thread: TJclDebugThread);
-    property DetailsVisible: Boolean read FDetailsVisible write SetDetailsVisible;
-    property ReportAsText: string read GetReportAsText;
-    property SimpleLog: TSimpleExceptionLog read FSimpleLog;
-  end;
-
-  TExceptionDialogClass = class of TExceptionDialog;
-
-var
-  ExceptionDialogClass: TExceptionDialogClass = TExceptionDialog;
-
-{$IFEND Defined(MSWINDOWS)}
-{$ENDIF DELPHI6_UP}
-
-implementation
-
-{$IFDEF DELPHI6_UP}
-{$IF Defined(MSWINDOWS)}
-
-{$R *.xfm}
-
-uses
-  ClipBrd, Windows, Math,
-  JclBase, JclFileUtils, JclHookExcept, JclPeImage, JclStrings, JclSysInfo, JclSysUtils;
-
-resourcestring
-  RsAppError = '%s - application error';
-  RsExceptionClass = 'Exception class: %s';
-  RsExceptionAddr = 'Exception address: %p';
-  RsStackList = 'Stack list, generated %s';
-  RsModulesList = 'List of loaded modules:';
-  RsOSVersion = 'System   : %s %s, Version: %d.%d, Build: %x, "%s"';
-  RsProcessor = 'Processor: %s, %s, %d MHz %s%s';
-  RsScreenRes = 'Display  : %dx%d pixels, %d bpp';
-  RsActiveControl = 'Active Controls hierarchy:';
-  RsThread = 'Thread: %s';
-  RsMissingVersionInfo = '(no version info)';
-
-var
-  ExceptionDialog: TExceptionDialog;
-
-//==================================================================================================
-// Helper routines
-//==================================================================================================
-
-function GetBPP: Integer;
-var
-  DC: HDC;
-begin
-  DC := GetDC(0);
-  Result := GetDeviceCaps(DC, BITSPIXEL) * GetDeviceCaps(DC, PLANES);
-  ReleaseDC(0, DC);
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-function SortModulesListByAddressCompare(List: TStringList; Index1, Index2: Integer): Integer;
-begin
-  Result := Integer(List.Objects[Index1]) - Integer(List.Objects[Index2]);
-end;
-
-//==================================================================================================
-// TApplication.HandleException method code hooking for exceptions from DLLs
-//==================================================================================================
-
-// We need to catch the last line of TApplication.HandleException method:
-// [...]
-//   end else
-//    SysUtils.ShowException(ExceptObject, ExceptAddr);
-// end;
-
-procedure HookShowException(ExceptObject: TObject; ExceptAddr: Pointer);
-begin
-  if JclValidateModuleAddress(ExceptAddr) and (ExceptObject.InstanceSize >= Exception.InstanceSize) then
-    TExceptionDialog.ExceptionHandler(nil, Exception(ExceptObject))
-  else
-    SysUtils.ShowException(ExceptObject, ExceptAddr);
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-function HookTApplicationHandleException: Boolean;
-const
-  CallOffset      = $86;
-  CallOffsetDebug = $63;
-type
-  PCALLInstruction = ^TCALLInstruction;
-  TCALLInstruction = packed record
-    Call: Byte;
-    Address: Integer;
-  end;
-var
-  TApplicationHandleExceptionAddr, SysUtilsShowExceptionAddr: Pointer;
-  CALLInstruction: TCALLInstruction;
-  CallAddress: Pointer;
-  OldProtect, Dummy: DWORD;
-
-  function CheckAddressForOffset(Offset: Cardinal): Boolean;
-  begin
-    try
-      CallAddress := Pointer(Cardinal(TApplicationHandleExceptionAddr) + Offset);
-      CALLInstruction.Call := $E8;
-      Result := PCALLInstruction(CallAddress)^.Call = CALLInstruction.Call;
-      if Result then
-      begin
-        if IsCompiledWithPackages then
-          Result := PeMapImgResolvePackageThunk(Pointer(Integer(CallAddress) + Integer(PCALLInstruction(CallAddress)^.Address) + SizeOf(CALLInstruction))) = SysUtilsShowExceptionAddr
-        else
-          Result := PCALLInstruction(CallAddress)^.Address = Integer(SysUtilsShowExceptionAddr) - Integer(CallAddress) - SizeOf(CALLInstruction);
-      end;
-    except
-      Result := False;
-    end;    
-  end;
-
-begin
-  TApplicationHandleExceptionAddr := PeMapImgResolvePackageThunk(@TApplication.HandleException);
-  SysUtilsShowExceptionAddr := PeMapImgResolvePackageThunk(@SysUtils.ShowException);
-  Result := CheckAddressForOffset(CallOffset) or CheckAddressForOffset(CallOffsetDebug);
-  if Result then
-  begin
-    Result := VirtualProtect(CallAddress, sizeof(CallInstruction), PAGE_EXECUTE_READWRITE, OldProtect);
-    if Result then
-    try
-      CALLInstruction.Address := Integer(@HookShowException) - Integer(CallAddress) - SizeOf(CALLInstruction);
-      PCALLInstruction(CallAddress)^ := CALLInstruction;
-      if Result then
-        FlushInstructionCache(GetCurrentProcess, CallAddress, SizeOf(CALLInstruction));
-    finally
-      VirtualProtect(CallAddress, sizeof(CallInstruction), OldProtect, Dummy);
-    end;
-  end;
-end;
-
-//==================================================================================================
-// TSimpleExceptionLog
-//==================================================================================================
-
-procedure TSimpleExceptionLog.CloseLog;
-begin
-  if LogOpen then
-  begin
-    CloseHandle(FLogFileHandle);
-    FLogFileHandle := INVALID_HANDLE_VALUE;
-    FLogWasEmpty := False;
-  end;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-constructor TSimpleExceptionLog.Create(const ALogFileName: string);
-begin
-  if ALogFileName = '' then
-    FLogFileName := CreateDefaultFileName
-  else
-    FLogFileName := ALogFileName;
-  FLogFileHandle := INVALID_HANDLE_VALUE;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-function TSimpleExceptionLog.CreateDefaultFileName: string;
-begin
-  Result := PathExtractFileDirFixed(ParamStr(0)) + PathExtractFileNameNoExt(ParamStr(0)) + '_Err.log';
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-destructor TSimpleExceptionLog.Destroy;
-begin
-  CloseLog;
-  inherited;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-function TSimpleExceptionLog.GetLogOpen: Boolean;
-begin
-  Result := FLogFileHandle <> INVALID_HANDLE_VALUE;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TSimpleExceptionLog.OpenLog;
-begin
-  if not LogOpen then
-  begin
-    FLogFileHandle := CreateFile(PChar(FLogFileName), GENERIC_WRITE, FILE_SHARE_READ, nil,
-      OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
-    if LogOpen then
-      FLogWasEmpty := SetFilePointer(FLogFileHandle, 0, nil, FILE_END) = 0;
-  end
-  else
-    FLogWasEmpty := False;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TSimpleExceptionLog.Write(const Text: string; Indent: Integer);
-var
-  S: string;
-  SL: TStringList;
-  I: Integer;
-begin
-  if LogOpen then
-  begin
-    SL := TStringList.Create;
-    try
-      SL.Text := Text;
-      for I := 0 to SL.Count - 1 do
-      begin
-        S := StringOfChar(' ', Indent) + StrEnsureSuffix(NativeCrLf, TrimRight(SL[I]));
-        FileWrite(Integer(FLogFileHandle), Pointer(S)^, Length(S));
-      end;
-    finally
-      SL.Free;
-    end;
-  end;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TSimpleExceptionLog.Write(Strings: TStrings; Indent: Integer);
-var
-  I: Integer;
-begin
-  for I := 0 to Strings.Count - 1 do
-    Write(Strings[I], Indent);
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TSimpleExceptionLog.WriteStamp(SeparatorLen: Integer);
-begin
-  if SeparatorLen = 0 then
-    SeparatorLen := 100;
-  SeparatorLen := Max(SeparatorLen, 20);  
-  OpenLog;
-  if not FLogWasEmpty then
-    Write(NativeCrLf);
-  Write(StrRepeat('=', SeparatorLen));
-  Write(Format('= %-*s =', [SeparatorLen - 4, DateTimeToStr(Now)]));
-  Write(StrRepeat('=', SeparatorLen));
-end;
-
-//==================================================================================================
-// Exception dialog
-//==================================================================================================
-
-var
-  ExceptionShowing: Boolean;
-
-{ TExceptionDialog }
-
-procedure TExceptionDialog.AfterCreateDetails;
-begin
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.BeforeCreateDetails;
-begin
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.CopyReportToClipboard;
-begin
-  ClipBoard.AsText := ReportAsText;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.CreateDetailInfo;
-begin
-  CreateReport([siStackList, siOsInfo, siModuleList, siActiveControls]);
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.CreateDetails;
-begin
-  Screen.Cursor := crHourGlass;
-  DetailsMemo.Lines.BeginUpdate;
-  try
-    CreateDetailInfo;
-    ReportToLog;
-    AfterCreateDetails;
-  finally
-    DetailsMemo.Lines.EndUpdate;
-    DetailsMemo.SelStart := 0;
-    OkBtn.Enabled := True;
-    DetailsBtn.Enabled := True;
-    OkBtn.SetFocus;
-    Screen.Cursor := crDefault;
-  end;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.CreateReport(const SystemInfo: TExcDialogSystemInfos);
-const
-  MMXText: array[Boolean] of PChar = ('', 'MMX');
-  FDIVText: array[Boolean] of PChar = (' [FDIV Bug]', '');
-var
-  SL: TStringList;
-  I: Integer;
-  ModuleName: TFileName;
-  CpuInfo: TCpuInfo;
-  C: TWinControl;
-  NtHeaders: PImageNtHeaders;
-  ModuleBase: Cardinal;
-  ImageBaseStr: string;
-  StackList: TJclStackInfoList;
-begin
-  SL := TStringList.Create;
-  try
-    // Stack list
-    if siStackList in SystemInfo then
-    begin
-      StackList := JclLastExceptStackList;
-      if Assigned(StackList) then
-      begin
-        DetailsMemo.Lines.Add(Format(RsStackList, [DateTimeToStr(StackList.TimeStamp)]));
-        StackList.AddToStrings(DetailsMemo.Lines, False, True, True);
-        NextDetailBlock;
-      end;
-    end;
-    // System and OS information
-    if siOsInfo in SystemInfo then
-    begin
-      DetailsMemo.Lines.Add(Format(RsOSVersion, [GetWindowsVersionString, NtProductTypeString,
-        Win32MajorVersion, Win32MinorVersion, Win32BuildNumber, Win32CSDVersion]));
-      GetCpuInfo(CpuInfo);
-      with CpuInfo do
-        DetailsMemo.Lines.Add(Format(RsProcessor, [Manufacturer, CpuName,
-          RoundFrequency(FrequencyInfo.NormFreq),
-          MMXText[MMX], FDIVText[IsFDIVOK]]));
-      DetailsMemo.Lines.Add(Format(RsScreenRes, [Screen.Width, Screen.Height, GetBPP]));
-      NextDetailBlock;
-    end;
-    // Modules list
-    if (siModuleList in SystemInfo) and LoadedModulesList(SL, GetCurrentProcessId) then
-    begin
-      DetailsMemo.Lines.Add(RsModulesList);
-      SL.CustomSort(SortModulesListByAddressCompare);
-      for I := 0 to SL.Count - 1 do
-      begin
-        ModuleName := SL[I];
-        ModuleBase := Cardinal(SL.Objects[I]);
-        DetailsMemo.Lines.Add(Format('[%.8x] %s', [ModuleBase, ModuleName]));
-        NtHeaders := PeMapImgNtHeaders(Pointer(ModuleBase));
-        if (NtHeaders <> nil) and (NtHeaders^.OptionalHeader.ImageBase <> ModuleBase) then
-          ImageBaseStr := Format('<%.8x> ', [NtHeaders^.OptionalHeader.ImageBase])
-        else
-          ImageBaseStr := StrRepeat(' ', 11);
-        if VersionResourceAvailable(ModuleName) then
-          with TJclFileVersionInfo.Create(ModuleName) do
-          try
-            DetailsMemo.Lines.Add(ImageBaseStr + BinFileVersion + ' - ' + FileVersion);
-            if FileDescription <> '' then
-              DetailsMemo.Lines.Add(StrRepeat(' ', 11) + FileDescription);
-          finally
-            Free;
-          end
-        else
-          DetailsMemo.Lines.Add(ImageBaseStr + RsMissingVersionInfo);
-      end;
-      NextDetailBlock;
-    end;
-    // Active controls
-    if (siActiveControls in SystemInfo) and (FLastActiveControl <> nil) then
-    begin
-      DetailsMemo.Lines.Add(RsActiveControl);
-      C := FLastActiveControl;
-      while C <> nil do
-      begin
-        DetailsMemo.Lines.Add(Format('%s "%s"', [C.ClassName, C.Name]));
-        C := C.Parent;
-      end;
-      NextDetailBlock;
-    end;
-  finally
-    SL.Free;
-  end;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.DetailsBtnClick(Sender: TObject);
-begin
-  DetailsVisible := not DetailsVisible;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-function TExceptionDialog.EventFilter(Sender: QObjectH; Event: QEventH): Boolean;
-begin
-  if QEvent_isQCustomEvent(Event) and (QEvent_type(Event) = QEventType_UMCreateDetails) then
-  begin
-    Update;
-    CreateDetails;
-    Result := True;
-  end
-  else
-    Result := inherited EventFilter(Sender, Event);
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-class procedure TExceptionDialog.ExceptionHandler(Sender: TObject; E: Exception);
-begin
-  if ExceptionShowing then
-    Application.ShowException(E)
-  else
-  begin
-    ExceptionShowing := True;
-    try
-      ShowException(E, nil);
-    finally
-      ExceptionShowing := False;
-    end;
-  end;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-class procedure TExceptionDialog.ExceptionThreadHandler(Thread: TJclDebugThread);
-begin
-  if ExceptionShowing then
-    Application.ShowException(Thread.SyncException)
-  else
-  begin
-    ExceptionShowing := True;
-    try
-      ShowException(Thread.SyncException, Thread);
-    finally
-      ExceptionShowing := False;
-    end;
-  end;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.FormCreate(Sender: TObject);
-begin
-  FSimpleLog := TSimpleExceptionLog.Create;
-  FFullHeight := ClientHeight;
-  DetailsVisible := False;
-  Caption := Format(RsAppError, [Application.Title]);
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.FormDestroy(Sender: TObject);
-begin
-  FreeAndNil(FSimpleLog);
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
-begin
-  if (Key = Ord('C')) and (ssCtrl in Shift) then
-  begin
-    CopyReportToClipboard;
-    MessageBeep(MB_OK);
-  end;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.FormResize(Sender: TObject);
-begin
-  UpdateTextLabelScrollbars;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.FormShow(Sender: TObject);
-begin
-  BeforeCreateDetails;
-  MessageBeep(MB_ICONERROR);
-  if FIsMainThead and (GetWindowThreadProcessId(QWidget_WinID(Handle), nil) = MainThreadID) then
-    QApplication_postEvent(Handle, QCustomEvent_create(QEventType_UMCreateDetails, nil))
-  else
-    CreateDetails;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-function TExceptionDialog.GetReportAsText: string;
-begin
-  Result := StrEnsureSuffix(NativeCrLf, TextLabel.Text) + NativeCrLf + DetailsMemo.Text;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.NextDetailBlock;
-begin
-  DetailsMemo.Lines.Add(StrRepeat(ReportNewBlockDelimiterChar, ReportMaxColumns));
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-function TExceptionDialog.ReportMaxColumns: Integer;
-begin
-  Result := 100;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-function TExceptionDialog.ReportNewBlockDelimiterChar: Char;
-begin
-  Result := '-';
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.ReportToLog;
-begin
-  if Tag and ReportToLogEnabled <> 0 then
-  begin
-    FSimpleLog.WriteStamp(ReportMaxColumns);
-    try
-      FSimpleLog.Write(ReportAsText);
-    finally
-      FSimpleLog.CloseLog;
-    end;
-  end;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.SetDetailsVisible(const Value: Boolean);
-const
-  DirectionChars: array [0..1] of Char = ( '<', '>' );
-var
-  DetailsCaption: string;
-begin
-  FDetailsVisible := Value;
-  DetailsCaption := Trim(StrRemoveChars(DetailsBtn.Caption, DirectionChars));
-  if Value then
-  begin
-    Constraints.MinHeight := FNonDetailsHeight + 100;
-    Constraints.MaxHeight := Screen.Height;
-    DetailsCaption := '<< ' + DetailsCaption;
-    ClientHeight := FFullHeight;
-    DetailsMemo.Height := FFullHeight - DetailsMemo.Top - 3;
-  end
-  else
-  begin
-    FFullHeight := ClientHeight;
-    DetailsCaption := DetailsCaption + ' >>';
-    if FNonDetailsHeight = 0 then
-    begin
-      ClientHeight := Bevel1.Top;
-      FNonDetailsHeight := Height;
-    end
-    else
-      Height := FNonDetailsHeight;
-    Constraints.MinHeight := FNonDetailsHeight;
-    Constraints.MaxHeight := FNonDetailsHeight;
-  end;
-  DetailsBtn.Caption := DetailsCaption;
-  DetailsMemo.Enabled := Value;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-class procedure TExceptionDialog.ShowException(E: Exception; Thread: TJclDebugThread);
-begin
-  if ExceptionDialog = nil then
-    ExceptionDialog := ExceptionDialogClass.Create(Application);
-  try
-    if Assigned(Application.MainForm) then
-      Application.BringToFront;
-    with ExceptionDialog do
-    begin
-      FIsMainThead := (GetCurrentThreadId = MainThreadID);
-      FLastActiveControl := Screen.ActiveControl;
-      TextLabel.Text := AdjustLineBreaks(StrEnsureSuffix('.', E.Message));
-      UpdateTextLabelScrollbars;
-      DetailsMemo.Lines.Add(Format(RsExceptionClass, [E.ClassName]));
-      if Thread = nil then
-        DetailsMemo.Lines.Add(Format(RsExceptionAddr, [ExceptAddr]))
-      else
-        DetailsMemo.Lines.Add(Format(RsThread, [Thread.ThreadInfo]));
-      NextDetailBlock;
-      ShowModal;
-    end;
-  finally
-    FreeAndNil(ExceptionDialog);
-  end;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure TExceptionDialog.UpdateTextLabelScrollbars;
-begin
-  if Tag and DisableTextScrollbar = 0 then
-  begin
-    Canvas.Font := TextLabel.Font;
-    if TextLabel.Lines.Count * Canvas.TextHeight('Wg') > TextLabel.ClientHeight then
-      TextLabel.ScrollBars := ssVertical
-    else
-      TextLabel.ScrollBars := ssNone;
-   end;
-end;
-
-//==================================================================================================
-// Exception handler initialization code
-//==================================================================================================
-
-procedure InitializeHandler;
-begin
-  JclStackTrackingOptions := JclStackTrackingOptions + [stRawMode];
-  {$IFNDEF HOOK_DLL_EXCEPTIONS}
-  JclStackTrackingOptions := JclStackTrackingOptions + [stStaticModuleList];
-  {$ENDIF HOOK_DLL_EXCEPTIONS}
-  JclDebugThreadList.OnSyncException := TExceptionDialog.ExceptionThreadHandler;
-  JclStartExceptionTracking;
-  {$IFDEF HOOK_DLL_EXCEPTIONS}
-  if HookTApplicationHandleException then
-    JclTrackExceptionsFromLibraries;
-  {$ENDIF HOOK_DLL_EXCEPTIONS}
-  Application.OnException := TExceptionDialog.ExceptionHandler;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-procedure UnInitializeHandler;
-begin
-  Application.OnException := nil;
-  JclDebugThreadList.OnSyncException := nil;
-  JclUnhookExceptions;
-  JclStopExceptionTracking;
-end;
-
-//--------------------------------------------------------------------------------------------------
-
-initialization
-  InitializeHandler;
-
-finalization
-  UnInitializeHandler;
-
-{$IFEND Defined(MSWINDOWS)}
-{$ENDIF DELPHI6_UP}
-
-end.

Deleted: trunk/jcl/experts/debug/dialog/ClxExceptDlg.xfm
===================================================================
--- trunk/jcl/experts/debug/dialog/ClxExceptDlg.xfm	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/experts/debug/dialog/ClxExceptDlg.xfm	2009-06-28 21:05:51 UTC (rev 2838)
@@ -1,203 +0,0 @@
-object ExceptionDialog: TExceptionDialog
-  Left = 369
-  Top = 285
-  ActiveControl = OkBtn
-  AutoScroll = False
-  BorderIcons = [biSystemMenu]
-  Caption = 'ExceptionDialog'
-  ClientHeight = 255
-  ClientWidth = 432
-  Color = clButton
-  Constraints.MinWidth = 200
-  Font.Color = clText
-  Font.Height = 11
-  Font.Name = 'MS Sans Serif'
-  Font.Pitch = fpVariable
-  Font.Style = []
-  Font.Weight = 40
-  KeyPreview = True
-  ParentFont = False
-  Position = poScreenCenter
-  ShowHint = True
-  OnCreate = FormCreate
-  OnDestroy = FormDestroy
-  OnKeyDown = FormKeyDown
-  OnResize = FormResize
-  OnShow = FormShow
-  PixelsPerInch = 96
-  TextHeight = 13
-  TextWidth = 6
-  object Bevel1: TBevel
-    Left = 3
-    Top = 91
-    Width = 428
-    Height = 9
-    Anchors = [akLeft, akTop, akRight]
-    Shape = bsTopLine
-  end
-  object ErrorIconImage: TImage
-    Left = 8
-    Top = 8
-    Width = 32
-    Height = 32
-    Picture.Data = {
-      07544269746D61703A0C0000424D360C00000000000036000000280000002000
-      0000200000000100180000000000000C0000120B0000120B0000000000000000
-      0000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
-      C8D0D4C8D0D4C8D0D48080808080808080808080808080808080808080808080
-      80C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
-      8080808080808080808080808080808080808080808080808080808080808080
-      80808080808080808080C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080
-      8080800000800000800000800000800000800000800000800000808080808080
-      80808080808080808080808080C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080000080000080
-      0000800000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000800000
-      80000080808080808080808080808080808080C8D0D4C8D0D4C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D48080800000800000FF0000FF
-      0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
-      FF0000FF000080808080808080808080808080808080C8D0D4C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D40000800000800000FF0000FF0000FF
-      0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
-      FF0000FF0000FF000080000080808080808080808080808080C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D4C8D0D40000800000FF0000FF0000FF0000FF0000FF
-      0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
-      FF0000FF0000FF0000FF0000FF000080808080808080808080C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D40000800000FF0000FF0000FF0000FF0000FF0000FF
-      0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
-      FF0000FF0000FF0000FF0000FF0000FF000080808080808080808080C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D40000800000FF0000FF0000FF0000FF0000FF0000FF
-      0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
-      FF0000FF0000FF0000FF0000FF0000FF000080808080808080808080808080C8
-      D0D4C8D0D4C8D0D40000800000FF0000FF0000FF0000FF0000FF0000FFFFFFFF
-      0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FFFFFF
-      FF0000FF0000FF0000FF0000FF0000FF0000FF000080808080808080808080C8
-      D0D4C8D0D40000800000FF0000FF0000FF0000FF0000FF0000FFFFFFFFFFFFFF
-      FFFFFF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FFFFFFFFFFFF
-      FFFFFFFF0000FF0000FF0000FF0000FF0000FF0000FF000080808080808080C8
-      D0D4C8D0D40000800000FF0000FF0000FF0000FF0000FFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFF0000FF0000FF0000FF0000FF0000FF0000FFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFF0000FF0000FF0000FF0000FF0000FF00008080808080808080
-      8080C8D0D40000800000FF0000FF0000FF0000FF0000FF0000FFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFF0000FF0000FF0000FF0000FFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFF0000FF0000FF0000FF0000FF0000FF0000FF00008080808080808080
-      80800000800000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00008080808080
-      80800000800000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
-      FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00008080808080
-      80800000800000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
-      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000
-      FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00008080808080
-      80800000800000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
-      0000FF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FF0000
-      FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00008080808080
-      80800000800000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
-      0000FF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FF0000
-      FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00008080808080
-      80800000800000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
-      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000
-      FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00008080808080
-      80800000800000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
-      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
-      FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF000080808080C8
-      D0D40000800000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FFFFFFFF
-      FFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-      FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF000080808080C8
-      D0D4C8D0D40000800000FF0000FF0000FF0000FF0000FF0000FFFFFFFFFFFFFF
-      FFFFFFFFFFFFFFFFFF0000FF0000FF0000FF0000FFFFFFFFFFFFFFFFFFFFFFFF
-      FFFFFFFF0000FF0000FF0000FF0000FF0000FF0000FF000080808080808080C8
-      D0D4C8D0D40000800000FF0000FF0000FF0000FF0000FFFFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFF0000FF0000FF0000FF0000FF0000FF0000FFFFFFFFFFFFFFFFFF
-      FFFFFFFFFFFFFF0000FF0000FF0000FF0000FF0000FF000080808080C8D0D4C8
-      D0D4C8D0D40000800000FF0000FF0000FF0000FF0000FF0000FFFFFFFFFFFFFF
-      FFFFFF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FFFFFFFFFFFF
-      FFFFFFFF0000FF0000FF0000FF0000FF0000FF0000FF000080C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D40000800000FF0000FF0000FF0000FF0000FF0000FFFFFFFF
-      0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FFFFFF
-      FF0000FF0000FF0000FF0000FF0000FF0000FF000080808080C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D40000800000FF0000FF0000FF0000FF0000FF0000FF
-      0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
-      FF0000FF0000FF0000FF0000FF0000FF000080808080C8D0D4C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D40000800000FF0000FF0000FF0000FF0000FF0000FF
-      0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
-      FF0000FF0000FF0000FF0000FF0000FF000080C8D0D4C8D0D4C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D4C8D0D40000800000FF0000FF0000FF0000FF0000FF
-      0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
-      FF0000FF0000FF0000FF0000FF000080C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D40000800000800000FF0000FF0000FF
-      0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
-      FF0000FF0000FF000080000080C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D40000800000FF0000FF
-      0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
-      FF0000FF000080C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000080000080
-      0000800000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000800000
-      80000080C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
-      D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
-      C8D0D4000080000080000080000080000080000080000080000080C8D0D4C8D0
-      D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8
-      D0D4}
-    Transparent = True
-  end
-  object OkBtn: TButton
-    Left = 352
-    Top = 4
-    Width = 75
-    Height = 25
-    Anchors = [akTop, akRight]
-    Caption = '&OK'
-    Default = True
-    ModalResult = 1
-    TabOrder = 1
-  end
-  object DetailsMemo: TMemo
-    Left = 4
-    Top = 101
-    Width = 424
-    Height = 150
-    Anchors = [akLeft, akTop, akRight, akBottom]
-    Font.Color = clText
-    Font.Height = 11
-    Font.Name = 'Courier New'
-    Font.Pitch = fpVariable
-    Font.Style = []
-    Font.Weight = 40
-    ParentColor = True
-    ParentFont = False
-    ReadOnly = True
-    ScrollBars = ssBoth
-    TabOrder = 3
-    WantReturns = False
-    WordWrap = False
-  end
-  object DetailsBtn: TButton
-    Left = 352
-    Top = 60
-    Width = 75
-    Height = 25
-    Hint = 'Show or hide additional information|'
-    Anchors = [akTop, akRight]
-    Caption = '&Details'
-    Enabled = False
-    TabOrder = 2
-    OnClick = DetailsBtnClick
-  end
-  object TextLabel: TMemo
-    Left = 56
-    Top = 8
-    Width = 281
-    Height = 75
-    Hint = 'Use Ctrl+C to copy the report to the clipboard'
-    Anchors = [akLeft, akTop, akRight]
-    BorderStyle = bsNone
-    Lines.Strings = (
-      'TextLabel')
-    ParentColor = True
-    ReadOnly = True
-    TabOrder = 0
-    WantReturns = False
-  end
-end

Deleted: trunk/jcl/experts/useswizard/JclQGraphUtils.txt
===================================================================
--- trunk/jcl/experts/useswizard/JclQGraphUtils.txt	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/experts/useswizard/JclQGraphUtils.txt	2009-06-28 21:05:51 UTC (rev 2838)
@@ -1,129 +0,0 @@
-EColorConversionError
-AlphaComponent
-BlueComponent
-CIELABToBGR
-CIELABToBGR
-ClipCodes
-ClipCodes
-ClipLine
-CMYKToBGR
-CMYKToBGR
-Color32
-Color32
-Color32
-ColorToHTML
-DialogUnitsToPixelsX
-DialogUnitsToPixelsY
-EMMS
-Gray32
-GreenComponent
-HLSToRGB
-HLSToRGB
-HLSToRGB
-HSLToRGB
-HSLToRGB
-Intensity
-Intensity
-OpenGLColorToWinColor
-PixelsToDialogUnitsX
-PixelsToDialogUnitsY
-RectFitToScreen
-RedComponent
-RGBAToBGRA
-RGBToBGR
-RGBToBGR
-RGBToHLS
-RGBToHLS
-RGBToHLS
-RGBToHSL
-RGBToHSL
-SetAlpha
-ShortenString
-WinColor
-WinColorToOpenGLColor
-TClipCode
-TColorRec
-TColorVector
-THLSVector
-PClipCodes
-PColor32
-PColor32Array
-PPalette32
-TArrayOfColor32
-TBlendLine
-TBlendLineEx
-TBlendMem
-TBlendMemEx
-TBlendReg
-TBlendRegEx
-TClipCodes
-TCombineMem
-TCombineReg
-THLSValue
-BlendLine
-BlendLineEx
-BlendMem
-BlendMemEx
-BlendReg
-BlendRegEx
-CombineMem
-CombineReg
-clTeal32
-clTrBlack32
-clTrBlue32
-clTrGreen32
-clTrRed32
-clTrWhite32
-clWhite32
-clYellow32
-ClipLine
-DrawPolyLine
-BrightColorChannel
-DarkColorChannel
-DarkColor
-BrightColor
-GetRGBValue
-SetRGBValue
-SetColorRed
-SetColorGreen
-SetColorBlue
-SetColorFlag
-GetColorRed
-GetColorBlue
-GetColorGreen
-GetColorFlag
-CIED65ToCIED50
-PointAssign
-PointCopy
-PointEqual
-PointMove
-NullPoint
-PointIsNull
-RectIsEmpty
-RectNormalize
-RectUnion
-RectIsSquare
-RectCenter
-RectEqual
-RectIsNull
-NullRect
-RectIsValid
-RectsAreValid
-RectIntersectRect
-RectIntersection
-RectIncludesPoint
-RectIncludesRect
-RectBounds
-RectAssign
-RectAssignPoints
-RectCopy
-RectMove
-RectMoveTo
-RectGrow
-RectGrowX
-RectGrowY
-RectHeight
-RectWidth
-TColor32
-TColor32Array
-TPalette32

Deleted: trunk/jcl/experts/useswizard/JclQGraphics.txt
===================================================================
--- trunk/jcl/experts/useswizard/JclQGraphics.txt	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/experts/useswizard/JclQGraphics.txt	2009-06-28 21:05:51 UTC (rev 2838)
@@ -1,31 +0,0 @@
-EJclGraphicsError
-TColorChannel
-TJclRegionBitmapMode
-TJclRegionCombineOperator
-TJclRegionKind
-FillGradient
-IdentityMatrix
-DrawBitmap
-Stretch
-TResamplingFilter
-TDrawMode
-TMatrix3d
-TStretchFilter
-TConversionKind
-TJclTransformation
-TJclLinearTransformation
-BitmapToIcon
-IconToBitmap
-ExtractIconCount
-TGradientDirection
-TPolyFillMode
-TPointF
-TDynPointArrayF
-TDynDynPointArrayArrayF
-TDynPointArray
-TDynDynPointArrayArray
-TDynDynIntegerArrayArray
-TGamma
-TLUT8
-TScanLine
-TScanLines

Modified: trunk/jcl/experts/useswizard/JediUsesWizard.ini
===================================================================
--- trunk/jcl/experts/useswizard/JediUsesWizard.ini	2009-06-28 20:47:26 UTC (rev 2837)
+++ trunk/jcl/experts/useswizard/JediUsesWizard.ini	2009-06-28 21:05:51 UTC (rev 2838)
@@ -53,8 +53,6 @@
 JclPCRE=JclPCRE.txt
 JclPeImage=JclPeImage.txt
 JclPrint=JclPrint.txt
-JclQGraph...
 
[truncated message content]

[Jcl-checkins-diff] SF.net SVN: jcl:[2837] trunk/jcl

From: <usc...@us...> - 2009-06-28 20:47:31

Revision: 2837
          http://jcl.svn.sourceforge.net/jcl/?rev=2837&view=rev
Author:   uschuster
Date:     2009-06-28 20:47:26 +0000 (Sun, 28 Jun 2009)

Log Message:
-----------
integrated changes from /branches/jcl-stack-trace

Modified Paths:
--------------
    trunk/jcl/examples/common/filesearch/FileSearchDemoMain.pas
    trunk/jcl/experts/common/JclOtaConsts.pas
    trunk/jcl/experts/common/JclOtaResources.pas
    trunk/jcl/install/JclInstall.pas
    trunk/jcl/packages/JclPackagesD100.bdsgroup
    trunk/jcl/packages/JclPackagesD110.groupproj
    trunk/jcl/packages/JclPackagesD120.groupproj
    trunk/jcl/packages/JclPackagesD50.bpg
    trunk/jcl/packages/JclPackagesD60.bpg
    trunk/jcl/packages/JclPackagesD70.bpg
    trunk/jcl/packages/JclPackagesD90.bdsgroup
    trunk/jcl/packages/resources.mak
    trunk/jcl/source/common/JclFileUtils.pas
    trunk/jcl/source/common/JclUnitVersioning.pas
    trunk/jcl/source/windows/JclDebug.pas

Added Paths:
-----------
    trunk/jcl/examples/windows/debug/mttest/
    trunk/jcl/examples/windows/debug/mttest/JclDebugMTTest.dof
    trunk/jcl/examples/windows/debug/mttest/JclDebugMTTest.dpr
    trunk/jcl/examples/windows/debug/mttest/JclDebugMTTestMain.dfm
    trunk/jcl/examples/windows/debug/mttest/JclDebugMTTestMain.pas
    trunk/jcl/experts/stacktraceviewer/
    trunk/jcl/experts/stacktraceviewer/APIExamples/
    trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/
    trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/DummyLineNumberTranslator.pas
    trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/DummyRevisionProvider.pas
    trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/StackTraceViewerDummyExample.dpk
    trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/StackTraceViewerDummyExampleReg.pas
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMFreedObjectFrame.dfm
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMFreedObjectFrame.pas
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakFrame.dfm
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakFrame.pas
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakGroupFrame.dfm
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakGroupFrame.pas
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakSummaryFrame.dfm
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakSummaryFrame.pas
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryFrame.dfm
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryFrame.pas
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryVisualizerFrame.dfm
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryVisualizerFrame.pas
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMParser.pas
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/StackTraceViewerFastMM.dpk
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/StackTraceViewerFastMMReg.pas
    trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/StackTraceViewerFastMMUnit.pas
    trunk/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/
    trunk/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/HelloWorldFrame.dfm
    trunk/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/HelloWorldFrame.pas
    trunk/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/StackTraceViewerHelloWorldExample.dpk
    trunk/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/StackTraceViewerHelloWorldExampleReg.pas
    trunk/jcl/experts/stacktraceviewer/JclDebugSerialization.pas
    trunk/jcl/experts/stacktraceviewer/JclDebugXMLDeserializer.pas
    trunk/jcl/experts/stacktraceviewer/JclDebugXMLSerializer.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerAPI.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerAPIImpl.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerClasses.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerConfigFrame.dfm
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerConfigFrame.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerExceptInfoFrame.dfm
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerExceptInfoFrame.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerIcon.res
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerImpl.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerMainFormBDS.dfm
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerMainFormBDS.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerMainFormDelphi.dfm
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerMainFormDelphi.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerMainFrame.dfm
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerMainFrame.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerModuleFrame.dfm
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerModuleFrame.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerOptions.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerStackCodeUtils.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerStackFrame.dfm
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerStackFrame.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerStackUtils.pas
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerThreadFrame.dfm
    trunk/jcl/experts/stacktraceviewer/JclStackTraceViewerThreadFrame.pas
    trunk/jcl/packages/d10/JclStackTraceViewerExpert.bdsproj
    trunk/jcl/packages/d10/JclStackTraceViewerExpert.dpk
    trunk/jcl/packages/d10/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d10/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d10/JclStackTraceViewerExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclStackTraceViewerExpertDLL.dpr
    trunk/jcl/packages/d10/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d10/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d11/JclStackTraceViewerExpert.dpk
    trunk/jcl/packages/d11/JclStackTraceViewerExpert.dproj
    trunk/jcl/packages/d11/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d11/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d11/JclStackTraceViewerExpertDLL.dpr
    trunk/jcl/packages/d11/JclStackTraceViewerExpertDLL.dproj
    trunk/jcl/packages/d11/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d11/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d12/JclStackTraceViewerExpert.dpk
    trunk/jcl/packages/d12/JclStackTraceViewerExpert.dproj
    trunk/jcl/packages/d12/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d12/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d12/JclStackTraceViewerExpertDLL.dpr
    trunk/jcl/packages/d12/JclStackTraceViewerExpertDLL.dproj
    trunk/jcl/packages/d12/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d12/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d5/JclStackTraceViewerExpertD50.dof
    trunk/jcl/packages/d5/JclStackTraceViewerExpertD50.dpk
    trunk/jcl/packages/d5/JclStackTraceViewerExpertD50.rc
    trunk/jcl/packages/d5/JclStackTraceViewerExpertD50.res
    trunk/jcl/packages/d5/JclStackTraceViewerExpertDLLD50.dof
    trunk/jcl/packages/d5/JclStackTraceViewerExpertDLLD50.dpr
    trunk/jcl/packages/d5/JclStackTraceViewerExpertDLLD50.rc
    trunk/jcl/packages/d5/JclStackTraceViewerExpertDLLD50.res
    trunk/jcl/packages/d6/JclStackTraceViewerExpert.dof
    trunk/jcl/packages/d6/JclStackTraceViewerExpert.dpk
    trunk/jcl/packages/d6/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d6/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d6/JclStackTraceViewerExpertDLL.dof
    trunk/jcl/packages/d6/JclStackTraceViewerExpertDLL.dpr
    trunk/jcl/packages/d6/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d6/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d7/JclStackTraceViewerExpert.dof
    trunk/jcl/packages/d7/JclStackTraceViewerExpert.dpk
    trunk/jcl/packages/d7/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d7/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d7/JclStackTraceViewerExpertDLL.dof
    trunk/jcl/packages/d7/JclStackTraceViewerExpertDLL.dpr
    trunk/jcl/packages/d7/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d7/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d9/JclStackTraceViewerExpert.bdsproj
    trunk/jcl/packages/d9/JclStackTraceViewerExpert.dpk
    trunk/jcl/packages/d9/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d9/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d9/JclStackTraceViewerExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclStackTraceViewerExpertDLL.dpr
    trunk/jcl/packages/d9/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d9/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/xml/JclStackTraceViewerExpert-D.xml
    trunk/jcl/packages/xml/JclStackTraceViewerExpertDLL-L.xml

Modified: trunk/jcl/examples/common/filesearch/FileSearchDemoMain.pas
===================================================================
--- trunk/jcl/examples/common/filesearch/FileSearchDemoMain.pas	2009-06-28 19:56:31 UTC (rev 2836)
+++ trunk/jcl/examples/common/filesearch/FileSearchDemoMain.pas	2009-06-28 20:47:26 UTC (rev 2837)
@@ -148,6 +148,8 @@
 end;
 
 procedure TFileSearchForm.StartBtnClick(Sender: TObject);
+var
+  RootDirectories: TStrings;
 begin
   RootDirInput.Text := PathCanonicalize(RootDirInput.Text);
 
@@ -157,7 +159,13 @@
     FFileEnumerator.LastChangeAfterAsString := edLastChangeAfter.Text;
   if FFileEnumerator.SearchOption[fsLastChangeBefore] then
     FFileEnumerator.LastChangeBeforeAsString := edLastChangeBefore.Text;
-  FFileEnumerator.RootDirectory := RootDirInput.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;

Added: trunk/jcl/examples/windows/debug/mttest/JclDebugMTTest.dof
===================================================================
--- trunk/jcl/examples/windows/debug/mttest/JclDebugMTTest.dof	                        (rev 0)
+++ trunk/jcl/examples/windows/debug/mttest/JclDebugMTTest.dof	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,3 @@
+[Directories]
+OutputDir=..\..\..\..\bin
+


Property changes on: trunk/jcl/examples/windows/debug/mttest/JclDebugMTTest.dof
___________________________________________________________________
Added: svn:eol-style
   + native

Added: trunk/jcl/examples/windows/debug/mttest/JclDebugMTTest.dpr
===================================================================
--- trunk/jcl/examples/windows/debug/mttest/JclDebugMTTest.dpr	                        (rev 0)
+++ trunk/jcl/examples/windows/debug/mttest/JclDebugMTTest.dpr	2009-06-28 20:47:26 UTC (rev 2837)
@@ -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.


Property changes on: trunk/jcl/examples/windows/debug/mttest/JclDebugMTTest.dpr
___________________________________________________________________
Added: svn:eol-style
   + native

Added: trunk/jcl/examples/windows/debug/mttest/JclDebugMTTestMain.dfm
===================================================================
--- trunk/jcl/examples/windows/debug/mttest/JclDebugMTTestMain.dfm	                        (rev 0)
+++ trunk/jcl/examples/windows/debug/mttest/JclDebugMTTestMain.dfm	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,36 @@
+object MTTestForm: TMTTestForm
+  Left = 399
+  Top = 375
+  Caption = 'JclDebug MT Test'
+  ClientHeight = 123
+  ClientWidth = 309
+  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 Delphi 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


Property changes on: trunk/jcl/examples/windows/debug/mttest/JclDebugMTTestMain.dfm
___________________________________________________________________
Added: svn:eol-style
   + native

Added: trunk/jcl/examples/windows/debug/mttest/JclDebugMTTestMain.pas
===================================================================
--- trunk/jcl/examples/windows/debug/mttest/JclDebugMTTestMain.pas	                        (rev 0)
+++ trunk/jcl/examples/windows/debug/mttest/JclDebugMTTestMain.pas	2009-06-28 20:47:26 UTC (rev 2837)
@@ -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.


Property changes on: trunk/jcl/examples/windows/debug/mttest/JclDebugMTTestMain.pas
___________________________________________________________________
Added: svn:keywords
   + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Added: svn:eol-style
   + native

Modified: trunk/jcl/experts/common/JclOtaConsts.pas
===================================================================
--- trunk/jcl/experts/common/JclOtaConsts.pas	2009-06-28 19:56:31 UTC (rev 2836)
+++ trunk/jcl/experts/common/JclOtaConsts.pas	2009-06-28 20:47:26 UTC (rev 2837)
@@ -17,6 +17,7 @@
 {                                                                                                  }
 { Contributors:                                                                                    }
 {   Florent Ouchet (outchy)                                                                        }
+{   Uwe Schuster (uschuster)                                                                       }
 {                                                                                                  }
 {**************************************************************************************************}
 {                                                                                                  }
@@ -148,6 +149,12 @@
   JclVersionCtrlIconTypeNoIconValue = 'noicon';
   JclVersionCtrlIconTypeJclIconValue = 'jclicons';
 
+  //=== Stack Trace Viewer Expert ============================================
+  JclStackTraceViewerExpertName        = 'JclStackTraceViewerExpert';
+  JclStackTraceViewerActionName        = 'JCLStackTraceViewerCommand';
+  JclStackTraceViewerMenuName          = 'JCLStackTraceViewerMenu';
+  JclStackTraceViewerDesktopIniSection = 'JclStackTraceViewer';
+
 {$IFDEF UNITVERSIONING}
 const
   UnitVersioning: TUnitVersionInfo = (

Modified: trunk/jcl/experts/common/JclOtaResources.pas
===================================================================
--- trunk/jcl/experts/common/JclOtaResources.pas	2009-06-28 19:56:31 UTC (rev 2836)
+++ trunk/jcl/experts/common/JclOtaResources.pas	2009-06-28 20:47:26 UTC (rev 2837)
@@ -352,7 +352,7 @@
 //=== JclOtaExcDlgRepository.pas =============================================
 resourcestring
   RsRepositoryExcDlgPage = 'Exception dialog';
-  
+
   RsRepositoryExcDlgDelphiName = 'Jcl Exception dialog for Delphi';
   RsRepositoryExcDlgDelphiDescription = 'Create an exception dialog for your Delphi project';
 
@@ -368,6 +368,18 @@
   RsActionCategory = 'JEDI Code Library';
   RsVersionCtrlSystemName = 'System';
 
+//=== JclStackTraceViewerImpl.pas ============================================
+resourcestring
+  rsStackTraceViewerCaption = 'Stack Traces';
+  rsStackTraceViewerOptionsPageName = 'Stack Trace Viewer';
+
+//=== JclStackTraceViewerMainFrame.pas =======================================
+resourcestring
+  rsSTVFindFilesInProjectGroup = 'Find files in active project group';
+  rsSTVFindFileInProjectGroup  = 'Find %s in active project group';
+  rsSTVFindFilesInBrowsingPath = 'Find files in browsing path';
+
+
 {$IFDEF UNITVERSIONING}
 const
   UnitVersioning: TUnitVersionInfo = (

Added: trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/DummyLineNumberTranslator.pas
===================================================================
--- trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/DummyLineNumberTranslator.pas	                        (rev 0)
+++ trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/DummyLineNumberTranslator.pas	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,47 @@
+unit DummyLineNumberTranslator;
+
+interface
+
+uses
+  Classes, ActiveX, JclStackTraceViewerAPI;
+
+type
+  TDummyLineNumberTranslator = class(TInterfacedObject, IJclLineNumberTranslator)
+    function GetIDString: string;
+    function GetName: string;
+    function TranslateLineNumbers(ARevisionContent, ACurrentContent: IStream;
+      ARevisionLineNumbers: TList; ACurrentLineNumbers: TList): Integer;
+  end;
+
+implementation
+
+{ TDummyLineNumberTranslator }
+
+function TDummyLineNumberTranslator.GetIDString: string;
+begin
+  Result := 'Project JEDI.DummyLineNumberTranslator';
+end;
+
+function TDummyLineNumberTranslator.GetName: string;
+begin
+  Result := 'Dummy LineNumber Translator';
+end;
+
+function TDummyLineNumberTranslator.TranslateLineNumbers(ARevisionContent,
+  ACurrentContent: IStream; ARevisionLineNumbers, ACurrentLineNumbers: TList): Integer;
+var
+  I: Integer;
+begin
+  Result := 0;
+  if Assigned(ARevisionContent) and Assigned(ACurrentContent) and (ARevisionLineNumbers.Count > 0) then
+  begin
+    ACurrentLineNumbers.Clear;
+    for I := 0 to ARevisionLineNumbers.Count - 1 do
+    begin
+      ACurrentLineNumbers.Add(Pointer(Integer(ARevisionLineNumbers[I]) + 1));
+      Inc(Result);
+    end;
+  end;
+end;
+
+end.


Property changes on: trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/DummyLineNumberTranslator.pas
___________________________________________________________________
Added: svn:keywords
   + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Added: svn:eol-style
   + native

Added: trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/DummyRevisionProvider.pas
===================================================================
--- trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/DummyRevisionProvider.pas	                        (rev 0)
+++ trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/DummyRevisionProvider.pas	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,46 @@
+unit DummyRevisionProvider;
+
+interface
+
+uses
+  SysUtils, Classes, ActiveX, JclStackTraceViewerAPI;
+
+type
+  TDummyRevisionProvider = class(TInterfacedObject, IJclRevisionProvider)
+    function GetIDString: string;
+    function GetName: string;
+    function GetRevisionContent(const AFileName, ARevision: string; AContent: IStream): Boolean;
+  end;
+
+implementation
+
+{ TDummyRevisionProvider }
+
+function TDummyRevisionProvider.GetIDString: string;
+begin
+  Result := 'Project JEDI.DummyRevisionProvider';
+end;
+
+function TDummyRevisionProvider.GetName: string;
+begin
+  Result := 'Dummy Revision Provider';
+end;
+
+function TDummyRevisionProvider.GetRevisionContent(const AFileName, ARevision: string;
+   AContent: IStream): Boolean;
+var
+  FS: TFileStream;
+  SA: TStreamAdapter;
+  R, W: Int64;
+begin
+  Result := True;
+  FS := TFileStream.Create(AFileName, fmOpenRead);
+  try
+    SA := TStreamAdapter.Create(FS);
+    SA.CopyTo(AContent, FS.Size, R, W);
+  finally
+    FS.Free;
+  end;
+end;
+
+end.
\ No newline at end of file


Property changes on: trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/DummyRevisionProvider.pas
___________________________________________________________________
Added: svn:keywords
   + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Added: svn:eol-style
   + native

Added: trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/StackTraceViewerDummyExample.dpk
===================================================================
--- trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/StackTraceViewerDummyExample.dpk	                        (rev 0)
+++ trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/StackTraceViewerDummyExample.dpk	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,40 @@
+package StackTraceViewerDummyExample;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST ON}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $58060000}
+{$DESCRIPTION 'JCL Stack Trace Viewer API Dummy Example'}
+{$LIBSUFFIX '120'}
+{$DESIGNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  vcl,
+  JclStackTraceViewerExpert;
+
+contains
+  StackTraceViewerDummyExampleReg in 'StackTraceViewerDummyExampleReg.pas',
+  DummyLineNumberTranslator in 'DummyLineNumberTranslator.pas',
+  DummyRevisionProvider in 'DummyRevisionProvider.pas';
+
+end.


Property changes on: trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/StackTraceViewerDummyExample.dpk
___________________________________________________________________
Added: svn:eol-style
   + native

Added: trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/StackTraceViewerDummyExampleReg.pas
===================================================================
--- trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/StackTraceViewerDummyExampleReg.pas	                        (rev 0)
+++ trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/StackTraceViewerDummyExampleReg.pas	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,30 @@
+unit StackTraceViewerDummyExampleReg;
+
+interface
+
+procedure Register;
+
+implementation
+
+uses
+  JclStackTraceViewerAPI, DummyLineNumberTranslator, DummyRevisionProvider;
+
+var
+  LineNumberTranslatorIndex: Integer = -1;
+  RevisionProviderIndex: Integer = -1;
+
+procedure Register;
+begin
+  RegisterLineNumberTranslator(TDummyLineNumberTranslator.Create);
+  RegisterRevisionProvider(TDummyRevisionProvider.Create);
+end;
+
+initialization
+
+finalization
+  if LineNumberTranslatorIndex <> -1 then
+    UnregisterLineNumberTranslator(LineNumberTranslatorIndex);
+  if RevisionProviderIndex <> -1 then
+    UnregisterRevisionProvider(RevisionProviderIndex);
+
+end.
\ No newline at end of file


Property changes on: trunk/jcl/experts/stacktraceviewer/APIExamples/Dummy/StackTraceViewerDummyExampleReg.pas
___________________________________________________________________
Added: svn:keywords
   + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Added: svn:eol-style
   + native

Added: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMFreedObjectFrame.dfm
===================================================================
--- trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMFreedObjectFrame.dfm	                        (rev 0)
+++ trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMFreedObjectFrame.dfm	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,108 @@
+object frmFreedObject: TfrmFreedObject
+  Left = 0
+  Top = 0
+  Width = 415
+  Height = 240
+  TabOrder = 0
+  object pnlTop: TPanel
+    Left = 0
+    Top = 0
+    Width = 415
+    Height = 41
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 3
+      Top = 3
+      Width = 95
+      Height = 13
+      Caption = 'Freed Object Class:'
+    end
+    object Label2: TLabel
+      Left = 3
+      Top = 19
+      Width = 89
+      Height = 13
+      Caption = 'Allocation number:'
+    end
+    object Label3: TLabel
+      Left = 227
+      Top = 3
+      Width = 73
+      Height = 13
+      Caption = 'Virtual Method:'
+    end
+    object Label4: TLabel
+      Left = 227
+      Top = 19
+      Width = 115
+      Height = 13
+      Caption = 'Virtual Method Address:'
+    end
+    object lbVM: TLabel
+      Left = 348
+      Top = 3
+      Width = 22
+      Height = 13
+      Caption = 'lbVM'
+    end
+    object lbVMAddr: TLabel
+      Left = 348
+      Top = 19
+      Width = 45
+      Height = 13
+      Caption = 'lbVMAddr'
+    end
+    object lbFreedObjectClass: TLabel
+      Left = 104
+      Top = 3
+      Width = 27
+      Height = 13
+      Caption = 'lbSize'
+    end
+    object lbAllocationNumber: TLabel
+      Left = 104
+      Top = 19
+      Width = 91
+      Height = 13
+      Caption = 'lbAllocationNumber'
+    end
+  end
+  object pg: TPageControl
+    Left = 0
+    Top = 41
+    Width = 415
+    Height = 199
+    ActivePage = tsStack1
+    Align = alClient
+    TabOrder = 1
+    object tsStack1: TTabSheet
+      Caption = 'Stack (allocated by)'
+    end
+    object tsStack2: TTabSheet
+      Caption = 'Stack (freed by)'
+      ImageIndex = 1
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+    end
+    object tsStack3: TTabSheet
+      Caption = 'Stack (current)'
+      ImageIndex = 2
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+    end
+    object tsMemory: TTabSheet
+      Caption = 'Memory Dump'
+      ImageIndex = 3
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+    end
+  end
+end


Property changes on: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMFreedObjectFrame.dfm
___________________________________________________________________
Added: svn:eol-style
   + native

Added: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMFreedObjectFrame.pas
===================================================================
--- trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMFreedObjectFrame.pas	                        (rev 0)
+++ trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMFreedObjectFrame.pas	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,190 @@
+unit FastMMFreedObjectFrame;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
+  Dialogs, StdCtrls, ComCtrls, ExtCtrls, JclStackTraceViewerAPI, FastMMParser,
+  FastMMMemoryFrame;
+
+type
+  TfrmFreedObject = class(TFrame, IJclStackTraceViewerPreparableStackFrame, IJclStackTraceViewerStackSelection)
+    pnlTop: TPanel;
+    pg: TPageControl;
+    tsStack1: TTabSheet;
+    tsStack2: TTabSheet;
+    tsStack3: TTabSheet;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    lbVM: TLabel;
+    lbVMAddr: TLabel;
+    lbFreedObjectClass: TLabel;
+    lbAllocationNumber: TLabel;
+    tsMemory: TTabSheet;
+  private
+    FFreedObjectData: TFastMMVMOnFreedObject;
+    FStackFrame1: TCustomFrame;
+    FStackFrame2: TCustomFrame;
+    FStackFrame3: TCustomFrame;
+    FStackInterfaceList: TInterfaceList;
+    FMemoryFrame: TfrmMemory;
+    function GetSelected: IJclLocationInfo;
+    function GetPreparableLocationInfoListCount: Integer;
+    function GetPreparableLocationInfoList(AIndex: Integer): IJclPreparedLocationInfoList;
+    procedure UpdateViews;
+    procedure SetFreedObjectData(const Value: TFastMMVMOnFreedObject);
+    { Private-Deklarationen }
+  public
+    { Public-Deklarationen }
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    property FreedObjectData: TFastMMVMOnFreedObject write SetFreedObjectData;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+{ TfrmFreedObject }
+
+constructor TfrmFreedObject.Create(AOwner: TComponent);
+var
+  StackFrameClass: TCustomFrameClass;
+begin
+  inherited Create(AOwner);
+  FFreedObjectData := nil;
+  if Assigned(StackTraceViewerStackServices) then
+  begin
+    StackFrameClass := StackTraceViewerStackServices.GetDefaultFrameClass(dfStack);
+    if Assigned(StackFrameClass) then
+    begin
+      FStackFrame1 := StackFrameClass.Create(Self);
+      FStackFrame1.Parent := tsStack1;
+      FStackFrame1.Align := alClient;
+      FStackFrame1.Name := 'StackFrame1';
+      FStackFrame2 := StackFrameClass.Create(Self);
+      FStackFrame2.Parent := tsStack2;
+      FStackFrame2.Align := alClient;
+      FStackFrame2.Name := 'StackFrame2';
+      FStackFrame3 := StackFrameClass.Create(Self);
+      FStackFrame3.Parent := tsStack3;
+      FStackFrame3.Align := alClient;
+      FStackFrame3.Name := 'StackFrame3';
+    end;
+  end;
+  FMemoryFrame := TfrmMemory.Create(Self);
+  FMemoryFrame.Parent := tsMemory;
+  FMemoryFrame.Align := alClient;
+  FStackInterfaceList := TInterfaceList.Create;
+end;
+
+destructor TfrmFreedObject.Destroy;
+begin
+  FStackInterfaceList := TInterfaceList.Create;
+  FStackFrame1.Free;
+  FStackFrame2.Free;
+  FStackFrame3.Free;
+  FMemoryFrame.Free;
+  inherited Destroy;
+end;
+
+function TfrmFreedObject.GetPreparableLocationInfoList(AIndex: Integer): IJclPreparedLocationInfoList;
+begin
+  if FStackInterfaceList[AIndex].QueryInterface(IJclPreparedLocationInfoList, Result) <> S_OK then
+    Result := nil;
+end;
+
+function TfrmFreedObject.GetPreparableLocationInfoListCount: Integer;
+begin
+  Result := FStackInterfaceList.Count;
+end;
+
+function TfrmFreedObject.GetSelected: IJclLocationInfo;
+var
+  StackTraceViewerStackSelection: IJclStackTraceViewerStackSelection;
+begin
+  if Assigned(FFreedObjectData) then
+  begin
+    if pg.Visible and (pg.ActivePage = tsStack1) and FStackFrame1.Visible and
+      (FStackFrame1.GetInterface(IJclStackTraceViewerStackSelection, StackTraceViewerStackSelection)) and
+      Assigned(StackTraceViewerStackSelection.Selected) then
+      Result := StackTraceViewerStackSelection.Selected
+    else
+    if pg.Visible and (pg.ActivePage = tsStack2) and FStackFrame2.Visible and
+      (FStackFrame2.GetInterface(IJclStackTraceViewerStackSelection, StackTraceViewerStackSelection)) and
+      Assigned(StackTraceViewerStackSelection.Selected) then
+      Result := StackTraceViewerStackSelection.Selected
+    else
+    if pg.Visible and (pg.ActivePage = tsStack3) and FStackFrame3.Visible and
+      (FStackFrame3.GetInterface(IJclStackTraceViewerStackSelection, StackTraceViewerStackSelection)) and
+      Assigned(StackTraceViewerStackSelection.Selected) then
+      Result := StackTraceViewerStackSelection.Selected
+    else
+      Result := nil;
+  end
+  else
+    Result := nil;
+end;
+
+procedure TfrmFreedObject.SetFreedObjectData(const Value: TFastMMVMOnFreedObject);
+var
+  StackTraceViewerStackFrame: IJclStackTraceViewerStackFrame;
+  PreparedLocationInfoList: IJclPreparedLocationInfoList;
+begin
+  FStackInterfaceList.Clear;
+  FFreedObjectData := Value;
+  pnlTop.Visible := Assigned(FFreedObjectData);
+  if Assigned(FFreedObjectData) then
+  begin
+    lbFreedObjectClass.Caption := FFreedObjectData.ObjectClass;
+    lbAllocationNumber.Caption := IntToStr(FFreedObjectData.AllocationNumber);
+    lbVM.Caption := FFreedObjectData.VirtualMethod;
+    lbVMAddr.Caption := Format('%.8x', [FFreedObjectData.VirtualMethodAddress]);
+  end;
+  tsStack1.TabVisible := Assigned(FStackFrame1) and Assigned(FFreedObjectData) and (FFreedObjectData.Stack1.Count > 0);
+  tsStack1.Caption := Format('Stack (allocated by thread %x)', [FFreedObjectData.Stack1Thread]);
+  if tsStack1.TabVisible and FFreedObjectData.Stack1.GetInterface(IJclPreparedLocationInfoList, PreparedLocationInfoList) then
+    FStackInterfaceList.Add(PreparedLocationInfoList);
+  if tsStack1.TabVisible and (FStackFrame1.GetInterface(IJclStackTraceViewerStackFrame, StackTraceViewerStackFrame)) then
+    StackTraceViewerStackFrame.SetStackList(FFreedObjectData.Stack1);
+  tsStack2.TabVisible := Assigned(FStackFrame2) and Assigned(FFreedObjectData) and (FFreedObjectData.Stack2.Count > 0);
+  tsStack2.Caption := Format('Stack (freed by thread %x)', [FFreedObjectData.Stack2Thread]);
+  if tsStack2.TabVisible and FFreedObjectData.Stack2.GetInterface(IJclPreparedLocationInfoList, PreparedLocationInfoList) then
+    FStackInterfaceList.Add(PreparedLocationInfoList);
+  if tsStack2.TabVisible and (FStackFrame2.GetInterface(IJclStackTraceViewerStackFrame, StackTraceViewerStackFrame)) then
+    StackTraceViewerStackFrame.SetStackList(FFreedObjectData.Stack2);
+  tsStack3.TabVisible := Assigned(FStackFrame3) and Assigned(FFreedObjectData) and (FFreedObjectData.Stack3.Count > 0);
+  tsStack3.Caption := Format('Stack (current thread %x)', [FFreedObjectData.Stack3Thread]);
+  if tsStack3.TabVisible and FFreedObjectData.Stack3.GetInterface(IJclPreparedLocationInfoList, PreparedLocationInfoList) then
+    FStackInterfaceList.Add(PreparedLocationInfoList);
+  if tsStack3.TabVisible and (FStackFrame3.GetInterface(IJclStackTraceViewerStackFrame, StackTraceViewerStackFrame)) then
+    StackTraceViewerStackFrame.SetStackList(FFreedObjectData.Stack3);
+  tsMemory.TabVisible := Assigned(FFreedObjectData) and FFreedObjectData.FoundMemory;
+  if Assigned(FFreedObjectData) and FFreedObjectData.FoundMemory then
+  begin
+    FMemoryFrame.Address := FFreedObjectData.Address;
+    FMemoryFrame.MemoryArray := FFreedObjectData.Memory;
+  end;
+  pg.Visible := tsStack1.TabVisible or tsStack2.TabVisible or tsStack3.TabVisible or tsMemory.TabVisible;
+  if pg.Visible then
+    pg.TabIndex := 0;
+end;
+
+procedure TfrmFreedObject.UpdateViews;
+var
+  StackTraceViewerPreparableStackFrame: IJclStackTraceViewerPreparableStackFrame;
+begin
+  if tsStack1.TabVisible and
+    (FStackFrame1.GetInterface(IJclStackTraceViewerPreparableStackFrame, StackTraceViewerPreparableStackFrame)) then
+    StackTraceViewerPreparableStackFrame.UpdateViews;
+  if tsStack2.TabVisible and
+    (FStackFrame2.GetInterface(IJclStackTraceViewerPreparableStackFrame, StackTraceViewerPreparableStackFrame)) then
+    StackTraceViewerPreparableStackFrame.UpdateViews;
+  if tsStack3.TabVisible and
+    (FStackFrame3.GetInterface(IJclStackTraceViewerPreparableStackFrame, StackTraceViewerPreparableStackFrame)) then
+    StackTraceViewerPreparableStackFrame.UpdateViews;
+end;
+
+end.


Property changes on: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMFreedObjectFrame.pas
___________________________________________________________________
Added: svn:keywords
   + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Added: svn:eol-style
   + native

Added: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakFrame.dfm
===================================================================
--- trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakFrame.dfm	                        (rev 0)
+++ trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakFrame.dfm	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,106 @@
+object frmLeak: TfrmLeak
+  Left = 0
+  Top = 0
+  Width = 495
+  Height = 240
+  TabOrder = 0
+  object pnlTop: TPanel
+    Left = 0
+    Top = 0
+    Width = 495
+    Height = 33
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 3
+      Top = 3
+      Width = 55
+      Height = 13
+      Caption = 'Timestamp:'
+    end
+    object Label2: TLabel
+      Left = 163
+      Top = 3
+      Width = 23
+      Height = 13
+      Caption = 'Size:'
+    end
+    object Label3: TLabel
+      Left = 163
+      Top = 19
+      Width = 38
+      Height = 13
+      Caption = 'Thread:'
+    end
+    object lbTimestamp: TLabel
+      Left = 64
+      Top = 3
+      Width = 59
+      Height = 13
+      Caption = 'lbTimestamp'
+    end
+    object lbSize: TLabel
+      Left = 224
+      Top = 3
+      Width = 27
+      Height = 13
+      Caption = 'lbSize'
+    end
+    object lbThread: TLabel
+      Left = 224
+      Top = 19
+      Width = 42
+      Height = 13
+      Caption = 'lbThread'
+    end
+    object Label4: TLabel
+      Left = 320
+      Top = 3
+      Width = 29
+      Height = 13
+      Caption = 'Class:'
+    end
+    object Label5: TLabel
+      Left = 320
+      Top = 19
+      Width = 89
+      Height = 13
+      Caption = 'Allocation number:'
+    end
+    object lbClass: TLabel
+      Left = 415
+      Top = 3
+      Width = 33
+      Height = 13
+      Caption = 'lbClass'
+    end
+    object lbAllocationNumber: TLabel
+      Left = 415
+      Top = 19
+      Width = 91
+      Height = 13
+      Caption = 'lbAllocationNumber'
+    end
+  end
+  object pg: TPageControl
+    Left = 0
+    Top = 33
+    Width = 495
+    Height = 207
+    ActivePage = tsStack
+    Align = alClient
+    TabOrder = 1
+    object tsStack: TTabSheet
+      Caption = 'Stack'
+      ImageIndex = 1
+    end
+    object tsMemory: TTabSheet
+      Caption = 'Memory dump'
+    end
+    object tsMemoryVisualized: TTabSheet
+      Caption = 'Memory visualized'
+      ImageIndex = 2
+    end
+  end
+end


Property changes on: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakFrame.dfm
___________________________________________________________________
Added: svn:eol-style
   + native

Added: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakFrame.pas
===================================================================
--- trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakFrame.pas	                        (rev 0)
+++ trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakFrame.pas	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,159 @@
+unit FastMMLeakFrame;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
+  Dialogs, StdCtrls, ExtCtrls, Grids, ComCtrls, JclStackTraceViewerAPI, FastMMParser,
+  FastMMMemoryFrame, FastMMMemoryVisualizerFrame;
+
+type
+  TfrmLeak = class(TFrame, IJclStackTraceViewerPreparableStackFrame, IJclStackTraceViewerStackSelection)
+    pnlTop: TPanel;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    lbTimestamp: TLabel;
+    lbSize: TLabel;
+    lbThread: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    lbClass: TLabel;
+    lbAllocationNumber: TLabel;
+    pg: TPageControl;
+    tsMemory: TTabSheet;
+    tsStack: TTabSheet;
+    tsMemoryVisualized: TTabSheet;
+  private
+    { Private-Deklarationen }
+    FLeakData: TFastMMLeak;
+    FStackFrame: TCustomFrame;
+    FMemoryFrame: TfrmMemory;
+    FMemoryVisualizerFrame: TfrmMemoryVisualizer;
+    function GetSelected: IJclLocationInfo;
+    function GetPreparableLocationInfoListCount: Integer;
+    function GetPreparableLocationInfoList(AIndex: Integer): IJclPreparedLocationInfoList;
+    procedure UpdateViews;
+    procedure SetLeakData(const Value: TFastMMLeak);
+  public
+    { Public-Deklarationen }
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    property LeakData: TFastMMLeak write SetLeakData;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+{ TfrmLeak }
+
+constructor TfrmLeak.Create(AOwner: TComponent);
+var
+  StackFrameClass: TCustomFrameClass;
+begin
+  inherited Create(AOwner);
+  FLeakData := nil;
+  if Assigned(StackTraceViewerStackServices) then
+  begin
+    StackFrameClass := StackTraceViewerStackServices.GetDefaultFrameClass(dfStack);
+    if Assigned(StackFrameClass) then
+    begin
+      FStackFrame := StackFrameClass.Create(Self);
+      FStackFrame.Parent := tsStack;
+      FStackFrame.Align := alClient;
+    end;
+  end;
+  FMemoryFrame := TfrmMemory.Create(Self);
+  FMemoryFrame.Parent := tsMemory;
+  FMemoryFrame.Align := alClient;
+  FMemoryVisualizerFrame := TfrmMemoryVisualizer.Create(Self);
+  FMemoryVisualizerFrame.Parent := tsMemoryVisualized;
+  FMemoryVisualizerFrame.Align := alClient;
+end;
+
+destructor TfrmLeak.Destroy;
+begin
+  FMemoryVisualizerFrame.Free;
+  FMemoryFrame.Free;
+  FStackFrame.Free;
+  inherited Destroy;
+end;
+
+function TfrmLeak.GetPreparableLocationInfoList(AIndex: Integer): IJclPreparedLocationInfoList;
+begin
+  Result := FLeakData.Stack;
+end;
+
+function TfrmLeak.GetPreparableLocationInfoListCount: Integer;
+var
+  Dummy: IJclPreparedLocationInfoList;
+begin
+  if Assigned(FLeakData) and Assigned(FLeakData.Stack) and
+    (FLeakData.Stack.QueryInterface(IJclPreparedLocationInfoList, Dummy) = S_OK) then
+    Result := 1
+  else
+    Result := 0;
+end;
+
+function TfrmLeak.GetSelected: IJclLocationInfo;
+var
+  StackTraceViewerStackSelection: IJclStackTraceViewerStackSelection;
+begin
+  if pg.Visible and (pg.ActivePage = tsStack) and FStackFrame.Visible and
+    (FStackFrame.GetInterface(IJclStackTraceViewerStackSelection, StackTraceViewerStackSelection)) and
+    Assigned(StackTraceViewerStackSelection.Selected) then
+    Result := StackTraceViewerStackSelection.Selected
+  else
+    Result := nil;
+end;
+
+procedure TfrmLeak.SetLeakData(const Value: TFastMMLeak);
+var
+  StackTraceViewerStackFrame: IJclStackTraceViewerStackFrame;
+begin
+  FLeakData := Value;
+  pnlTop.Visible := Assigned(FLeakData);
+  if Assigned(FLeakData) then
+  begin
+    lbTimestamp.Caption := FLeakData.DateStr;
+    lbSize.Caption := IntToStr(FLeakData.LeakSize);
+    lbThread.Caption := Format('%x', [FLeakData.ThreadID]);
+    lbClass.Caption := FLeakData.BlockClass;
+    lbAllocationNumber.Caption := IntToStr(FLeakData.AllocationNumber);
+  end;
+  tsStack.TabVisible := Assigned(FStackFrame) and Assigned(FLeakData) and (FLeakData.Stack.Count > 0);
+  if tsStack.TabVisible and (FStackFrame.GetInterface(IJclStackTraceViewerStackFrame, StackTraceViewerStackFrame)) then
+    StackTraceViewerStackFrame.SetStackList(FLeakData.Stack);
+
+  tsMemory.TabVisible := Assigned(FLeakData) and FLeakData.FoundMemory;
+  tsMemoryVisualized.TabVisible := tsMemory.TabVisible and Assigned(FLeakData.Parent) and
+    IsVisualizable(FLeakData.BlockClass, FLeakData.Parent.ReportCompilerVersion, @FLeakData.Memory, Length(FLeakData.Memory));
+  pg.Visible := tsStack.TabVisible or tsMemory.TabVisible or tsMemoryVisualized.TabVisible;
+  if pg.Visible then
+    pg.TabIndex := 0;
+  if Assigned(FLeakData) and FLeakData.FoundMemory then
+  begin
+    FMemoryFrame.Address := FLeakData.Address;
+    FMemoryFrame.MemoryArray := FLeakData.Memory;
+  end;
+  if tsMemoryVisualized.TabVisible then
+  begin
+    FMemoryVisualizerFrame.Memory := @FLeakData.Memory;
+    FMemoryVisualizerFrame.MemorySize := Length(FLeakData.Memory);
+    FMemoryVisualizerFrame.ReportCompilerVersion := FLeakData.Parent.ReportCompilerVersion;
+    FMemoryVisualizerFrame.TypeStr := FLeakData.BlockClass;
+    FMemoryVisualizerFrame.Decode;
+  end;
+end;
+
+procedure TfrmLeak.UpdateViews;
+var
+  StackTraceViewerPreparableStackFrame: IJclStackTraceViewerPreparableStackFrame;
+begin
+  if FStackFrame.Visible and
+    (FStackFrame.GetInterface(IJclStackTraceViewerPreparableStackFrame, StackTraceViewerPreparableStackFrame)) then
+    StackTraceViewerPreparableStackFrame.UpdateViews;
+end;
+
+end.


Property changes on: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakFrame.pas
___________________________________________________________________
Added: svn:keywords
   + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Added: svn:eol-style
   + native

Added: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakGroupFrame.dfm
===================================================================
--- trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakGroupFrame.dfm	                        (rev 0)
+++ trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakGroupFrame.dfm	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,44 @@
+object frmLeakGroup: TfrmLeakGroup
+  Left = 0
+  Top = 0
+  Width = 320
+  Height = 240
+  TabOrder = 0
+  object pnlTop: TPanel
+    Left = 0
+    Top = 0
+    Width = 320
+    Height = 33
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 3
+      Top = 3
+      Width = 58
+      Height = 13
+      Caption = 'Leak Count:'
+    end
+    object Label2: TLabel
+      Left = 3
+      Top = 19
+      Width = 48
+      Height = 13
+      Caption = 'Leak Size:'
+    end
+    object lbLeakCount: TLabel
+      Left = 67
+      Top = 3
+      Width = 59
+      Height = 13
+      Caption = 'lbLeakCount'
+    end
+    object lbLeakSize: TLabel
+      Left = 67
+      Top = 19
+      Width = 49
+      Height = 13
+      Caption = 'lbLeakSize'
+    end
+  end
+end


Property changes on: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakGroupFrame.dfm
___________________________________________________________________
Added: svn:eol-style
   + native

Added: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakGroupFrame.pas
===================================================================
--- trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakGroupFrame.pas	                        (rev 0)
+++ trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakGroupFrame.pas	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,118 @@
+unit FastMMLeakGroupFrame;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
+  Dialogs, StdCtrls, ExtCtrls, JclStackTraceViewerAPI, FastMMParser;
+
+type
+  TfrmLeakGroup = class(TFrame, IJclStackTraceViewerPreparableStackFrame, IJclStackTraceViewerStackSelection)
+    pnlTop: TPanel;
+    Label1: TLabel;
+    Label2: TLabel;
+    lbLeakCount: TLabel;
+    lbLeakSize: TLabel;
+  private
+    FLeakGroupData: TFastMMLeakGroup;
+    FStackFrame: TCustomFrame;
+    function GetSelected: IJclLocationInfo;
+    function GetPreparableLocationInfoListCount: Integer;
+    function GetPreparableLocationInfoList(AIndex: Integer): IJclPreparedLocationInfoList;
+    procedure UpdateViews;
+    procedure SetLeakGroupData(const Value: TFastMMLeakGroup);
+    { Private-Deklarationen }
+  public
+    { Public-Deklarationen }
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    property LeakGroupData: TFastMMLeakGroup write SetLeakGroupData;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+{ TfrmLeakGroup }
+
+constructor TfrmLeakGroup.Create(AOwner: TComponent);
+var
+  StackFrameClass: TCustomFrameClass;
+begin
+  inherited Create(AOwner);
+  FLeakGroupData := nil;
+  if Assigned(StackTraceViewerStackServices) then
+  begin
+    StackFrameClass := StackTraceViewerStackServices.GetDefaultFrameClass(dfStack);
+    if Assigned(StackFrameClass) then
+    begin
+      FStackFrame := StackFrameClass.Create(Self);
+      FStackFrame.Parent := Self;
+      FStackFrame.Align := alClient;
+    end;
+  end;
+end;
+
+destructor TfrmLeakGroup.Destroy;
+begin
+  FStackFrame.Free;
+  inherited Destroy;
+end;
+
+function TfrmLeakGroup.GetPreparableLocationInfoList(AIndex: Integer): IJclPreparedLocationInfoList;
+begin
+  Result := FLeakGroupData[0].Stack;
+end;
+
+function TfrmLeakGroup.GetPreparableLocationInfoListCount: Integer;
+var
+  Dummy: IJclPreparedLocationInfoList;
+begin
+  if Assigned(FLeakGroupData) and (FLeakGroupData.Count > 0) and
+    (FLeakGroupData[0].Stack.QueryInterface(IJclPreparedLocationInfoList, Dummy) = S_OK) then
+    Result := 1
+  else
+    Result := 0;
+end;
+
+function TfrmLeakGroup.GetSelected: IJclLocationInfo;
+var
+  StackTraceViewerStackSelection: IJclStackTraceViewerStackSelection;
+begin
+  if FStackFrame.Visible and
+    (FStackFrame.GetInterface(IJclStackTraceViewerStackSelection, StackTraceViewerStackSelection)) and
+    Assigned(StackTraceViewerStackSelection.Selected) then
+    Result := StackTraceViewerStackSelection.Selected
+  else
+    Result := nil;
+end;
+
+procedure TfrmLeakGroup.SetLeakGroupData(const Value: TFastMMLeakGroup);
+var
+  StackTraceViewerStackFrame: IJclStackTraceViewerStackFrame;
+begin
+  FLeakGroupData := Value;
+  pnlTop.Visible := Assigned(FLeakGroupData);
+  if Assigned(FLeakGroupData) then
+  begin
+    lbLeakCount.Caption := IntToStr(FLeakGroupData.Count);
+    lbLeakSize.Caption := IntToStr(FLeakGroupData.LeakSize);
+  end;
+  if Assigned(FStackFrame) then
+  begin
+    FStackFrame.Visible := Assigned(FLeakGroupData) and (FLeakGroupData.Count > 0) and (FLeakGroupData[0].Stack.Count > 0);
+    if FStackFrame.Visible and (FStackFrame.GetInterface(IJclStackTraceViewerStackFrame, StackTraceViewerStackFrame)) then
+      StackTraceViewerStackFrame.SetStackList(FLeakGroupData[0].Stack);
+  end;
+end;
+
+procedure TfrmLeakGroup.UpdateViews;
+var
+  StackTraceViewerPreparableStackFrame: IJclStackTraceViewerPreparableStackFrame;
+begin
+  if FStackFrame.Visible and
+    (FStackFrame.GetInterface(IJclStackTraceViewerPreparableStackFrame, StackTraceViewerPreparableStackFrame)) then
+    StackTraceViewerPreparableStackFrame.UpdateViews;
+end;
+
+end.


Property changes on: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakGroupFrame.pas
___________________________________________________________________
Added: svn:keywords
   + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Added: svn:eol-style
   + native

Added: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakSummaryFrame.dfm
===================================================================
--- trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakSummaryFrame.dfm	                        (rev 0)
+++ trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakSummaryFrame.dfm	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,19 @@
+object frmLeakSummary: TfrmLeakSummary
+  Left = 0
+  Top = 0
+  Width = 320
+  Height = 240
+  TabOrder = 0
+  object memSummary: TMemo
+    Left = 0
+    Top = 0
+    Width = 320
+    Height = 240
+    Align = alClient
+    TabOrder = 0
+    ExplicitLeft = 72
+    ExplicitTop = 80
+    ExplicitWidth = 185
+    ExplicitHeight = 89
+  end
+end


Property changes on: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakSummaryFrame.dfm
___________________________________________________________________
Added: svn:eol-style
   + native

Added: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakSummaryFrame.pas
===================================================================
--- trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakSummaryFrame.pas	                        (rev 0)
+++ trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakSummaryFrame.pas	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,36 @@
+unit FastMMLeakSummaryFrame;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
+  Dialogs, StdCtrls, FastMMParser;
+
+type
+  TfrmLeakSummary = class(TFrame)
+    memSummary: TMemo;
+  private
+    { Private-Deklarationen }
+    FReport: TFastMMReport;
+    procedure SetReport(const Value: TFastMMReport);
+  public
+    { Public-Deklarationen }
+    property Report: TFastMMReport write SetReport;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+{ TfrmLeakSummary }
+
+procedure TfrmLeakSummary.SetReport(const Value: TFastMMReport);
+begin
+  FReport := Value;
+  if Assigned(FReport) then
+    memSummary.Lines.Assign(FReport.LeakSummary)
+  else
+    memSummary.Lines.Clear;
+end;
+
+end.


Property changes on: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMLeakSummaryFrame.pas
___________________________________________________________________
Added: svn:keywords
   + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Added: svn:eol-style
   + native

Added: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryFrame.dfm
===================================================================
--- trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryFrame.dfm	                        (rev 0)
+++ trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryFrame.dfm	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,44 @@
+object frmMemory: TfrmMemory
+  Left = 0
+  Top = 0
+  Width = 320
+  Height = 240
+  TabOrder = 0
+  object Panel2: TPanel
+    Left = 0
+    Top = 0
+    Width = 320
+    Height = 17
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 0
+    object lbMemoryAddr: TLabel
+      Left = 52
+      Top = 3
+      Width = 69
+      Height = 13
+      Caption = 'lbMemoryAddr'
+    end
+    object Label6: TLabel
+      Left = 3
+      Top = 3
+      Width = 43
+      Height = 13
+      Caption = 'Address:'
+    end
+  end
+  object sgMemory: TStringGrid
+    Left = 0
+    Top = 17
+    Width = 320
+    Height = 223
+    Align = alClient
+    ColCount = 32
+    DefaultColWidth = 18
+    DefaultRowHeight = 18
+    FixedCols = 0
+    RowCount = 16
+    FixedRows = 0
+    TabOrder = 1
+  end
+end


Property changes on: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryFrame.dfm
___________________________________________________________________
Added: svn:eol-style
   + native

Added: trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryFrame.pas
===================================================================
--- trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryFrame.pas	                        (rev 0)
+++ trunk/jcl/experts/stacktraceviewer/APIExamples/FastMM/FastMMMemoryFrame.pas	2009-06-28 20:47:26 UTC (rev 2837)
@@ -0,0 +1,50 @@
+unit FastMMMemoryFrame;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
+  Dialogs, FastMMParser, Grids, StdCtrls, ExtCtrls;
+
+type
+  TfrmMemory = class(TFrame)
+    Panel2: TPanel;
+    lbMemoryAddr: TLabel;
+    Label6: TLabel;
+    sgMemory: TStringGrid;
+  private
+    { Private-Deklarationen }
+    FMemoryArray: TFastMMMemoryArray;
+    procedure SetMemoryArray(const Value: TFastMMMemoryArray);
+    procedure SetAddress(const Value: Integer);
+  public
+    { Public-Deklarationen }
+    property Address: Integer write SetAddress;
+    property MemoryArray: TFastMMMemoryArray write SetMemoryArray;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+{ TfrmMemory }
+
+procedure TfrmMemory.SetAddress(const Value: Integer);
+begin
+  lbMemoryAddr.Caption := Format('%.8x', [Value]);
+end;
+
+procedure TfrmMemory.SetMemoryArray(const Value: TFastMMMemoryArray);
+var
+  I, J: Integer;
+begin
+  FMemoryArray := Value;
+  for I := 0 to 7 do
+    for J := 0 to 31 do
+      sgMemory.Cells[J, I] := Format('%.2x', [FMemoryArray[I * 32 + J]]...
 
[truncated message content]

[Jcl-checkins-diff] SF.net SVN: jcl:[2836] trunk/jcl/source/common/JclSimpleXml.pas

From: <ou...@us...> - 2009-06-28 19:56:32

Revision: 2836
          http://jcl.svn.sourceforge.net/jcl/?rev=2836&view=rev
Author:   outchy
Date:     2009-06-28 19:56:31 +0000 (Sun, 28 Jun 2009)

Log Message:
-----------
Default to the Ansi codepage when no explicit one is given.

Modified Paths:
--------------
    trunk/jcl/source/common/JclSimpleXml.pas

Modified: trunk/jcl/source/common/JclSimpleXml.pas
===================================================================
--- trunk/jcl/source/common/JclSimpleXml.pas	2009-06-28 14:06:11 UTC (rev 2835)
+++ trunk/jcl/source/common/JclSimpleXml.pas	2009-06-28 19:56:31 UTC (rev 2836)
@@ -3282,6 +3282,7 @@
   lPos: Integer;
   lOk: Boolean;
   Ch: Char;
+  CodePage: Word;
 begin
   lPos := 1;
   lOk := False;
@@ -3336,12 +3337,17 @@
 
   Name := '';
 
+  if FEncoding <> '' then
+    CodePage := CodePageFromCharsetName(FEncoding)
+  else
+    CodePage := CP_ACP;
+
   // set current stringstream codepage
   if StringStream is TJclAutoStream then
-    TJclAutoStream(StringStream).CodePage := CodePageFromCharsetName(FEncoding)
+    TJclAutoStream(StringStream).CodePage := CodePage
   else
   if StringStream is TJclAnsiStream then
-    TJclAnsiStream(StringStream).CodePage := CodePageFromCharsetName(FEncoding)
+    TJclAnsiStream(StringStream).CodePage := CodePage
   else
     Error(RsENoCharset);
 end;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2835] trunk/jcl/source/common

From: <ou...@us...> - 2009-06-28 14:06:14

Revision: 2835
          http://jcl.svn.sourceforge.net/jcl/?rev=2835&view=rev
Author:   outchy
Date:     2009-06-28 14:06:11 +0000 (Sun, 28 Jun 2009)

Log Message:
-----------
Intel processor specifications update.

Modified Paths:
--------------
    trunk/jcl/source/common/JclResources.pas
    trunk/jcl/source/common/JclSysInfo.pas

Modified: trunk/jcl/source/common/JclResources.pas
===================================================================
--- trunk/jcl/source/common/JclResources.pas	2009-06-28 11:44:33 UTC (rev 2834)
+++ trunk/jcl/source/common/JclResources.pas	2009-06-28 14:06:11 UTC (rev 2835)
@@ -1839,6 +1839,7 @@
   RsIntelCacheDescr05 = 'Data TLB1: 4 MByte pages, 4-way set associative, 32 entries';
   RsIntelCacheDescr06 = '1st level instruction cache: 8 KBytes, 4-way set associative, 32 byte line size';
   RsIntelCacheDescr08 = '1st level instruction cache: 16 KBytes, 4-way set associative, 32 byte line size';
+  RsIntelCacheDescr09 = '1st level instruction cache: 32 KBytes, 4-way set associative, 64 byte line size';
   RsIntelCacheDescr0A = '1st level data cache: 8 KBytes, 2-way set associative, 32 byte line size';
   RsIntelCacheDescr0B = 'Instruction TLB: 4 MByte pages, 4-way set associative, 4 entries';
   RsIntelCacheDescr0C = '1st level data cache: 16 KBytes, 4-way set associative, 32 byte line size';

Modified: trunk/jcl/source/common/JclSysInfo.pas
===================================================================
--- trunk/jcl/source/common/JclSysInfo.pas	2009-06-28 11:44:33 UTC (rev 2834)
+++ trunk/jcl/source/common/JclSysInfo.pas	2009-06-28 14:06:11 UTC (rev 2835)
@@ -457,7 +457,7 @@
   CPU_TYPE_VIA       = 5;
 
 type
-  TSSESupport = (sse, sse2, sse3, ssse3, sse4A, sse4B, sse5);
+  TSSESupport = (sse, sse2, sse3, ssse3, sse4A, sse4B, sse5, avx);
   TSSESupports = set of TSSESupport;
 
   TCpuInfo = record
@@ -638,7 +638,7 @@
   EINTEL_SSSE3     = BIT_9;  // SSSE 3 extensions
   EINTEL_CNXTID    = BIT_10; // L1 Context ID
   EINTEL_BIT_11    = BIT_11; // Reserved, do not count on value
-  EINTEL_BIT_12    = BIT_12; // Reserved, do not count on value
+  EINTEL_FMA       = BIT_12; // Fused Multiply Add
   EINTEL_CX16      = BIT_13; // CMPXCHG16B instruction
   EINTEL_XTPR      = BIT_14; // Send Task Priority messages
   EINTEL_PDCM      = BIT_15; // Perf/Debug Capability MSR
@@ -654,7 +654,7 @@
   EINTEL_AES       = BIT_25; // the processor supports the AES instruction extensions
   EINTEL_XSAVE     = BIT_26; // XSAVE/XRSTOR processor extended states feature, XSETBV/XGETBV instructions and XFEATURE_ENABLED_MASK (XCR0) register
   EINTEL_OSXSAVE   = BIT_27; // OS has enabled features present in EINTEL_XSAVE
-  EINTEL_BIT_28    = BIT_28; // Reserved, do not count on value
+  EINTEL_AVX       = BIT_28; // Advanced Vector Extensions
   EINTEL_BIT_29    = BIT_29; // Reserved, do not count on value
   EINTEL_BIT_30    = BIT_30; // Reserved, do not count on value
   EINTEL_BIT_31    = BIT_31; // Always return 0
@@ -1170,8 +1170,8 @@
   MXCSR_FZ  = BIT_15;                 // Flush to Zero
 
 const
-  IntelCacheDescription: array [0..86] of TCacheInfo = (
-    (D: $00; Family: cfOther;                                                                           I: RsIntelCacheDescr00),
+  IntelCacheDescription: array [0..87] of TCacheInfo = (
+    (D: $00; Family: cfOther;                                                                            I: RsIntelCacheDescr00),
     (D: $01; Family: cfInstructionTLB;     Size: 4;     WaysOfAssoc: 4;                Entries: 32;      I: RsIntelCacheDescr01),
     (D: $02; Family: cfInstructionTLB;     Size: 4096;  WaysOfAssoc: 4;                Entries: 2;       I: RsIntelCacheDescr02),
     (D: $03; Family: cfDataTLB;            Size: 4;     WaysOfAssoc: 4;                Entries: 64;      I: RsIntelCacheDescr03),
@@ -1179,6 +1179,7 @@
     (D: $05; Family: cfDataTLB;            Size: 4096;  WaysOfAssoc: 4;                Entries: 32;      I: RsIntelCacheDescr05),
     (D: $06; Family: cfL1InstructionCache; Size: 8;     WaysOfAssoc: 4;  LineSize: 32;                   I: RsIntelCacheDescr06),
     (D: $08; Family: cfL1InstructionCache; Size: 16;    WaysOfAssoc: 4;  LineSize: 32;                   I: RsIntelCacheDescr08),
+    (D: $09; Family: cfL1InstructionCache; Size: 32;    WaysOfAssoc: 4;  LineSize: 64;                   I: RsIntelCacheDescr09),
     (D: $0A; Family: cfL1DataCache;        Size: 8;     WaysOfAssoc: 2;  LineSize: 32;                   I: RsIntelCacheDescr0A),
     (D: $0B; Family: cfInstructionTLB;     Size: 4;     WaysOfAssoc: 4;                Entries: 4;       I: RsIntelCacheDescr0B),
     (D: $0C; Family: cfL1DataCache;        Size: 16;    WaysOfAssoc: 4;  LineSize: 32;                   I: RsIntelCacheDescr0C),
@@ -4641,6 +4642,8 @@
       Include(CPUInfo.SSE, sse4A);
     if (CPUInfo.IntelSpecific.ExFeatures and EINTEL_SSE4_2) <> 0 then
       Include(CPUInfo.SSE, sse4B);
+    if (CPUInfo.IntelSpecific.ExFeatures and EINTEL_AVX) <> 0 then
+      Include(CPUInfo.SSE, avx);
     CPUInfo.Is64Bits := CPUInfo.HasExtendedInfo and ((CPUInfo.IntelSpecific.Ex64Features and EINTEL64_EM64T)<>0);
     CPUInfo.DepCapable := CPUInfo.HasExtendedInfo and ((CPUInfo.IntelSpecific.Ex64Features and EINTEL64_XD) <> 0);
   end;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2834] trunk/jcl/examples/windows/ntservice/NtSvcDemoMain. pas

From: <ou...@us...> - 2009-06-28 11:44:36

Revision: 2834
          http://jcl.svn.sourceforge.net/jcl/?rev=2834&view=rev
Author:   outchy
Date:     2009-06-28 11:44:33 +0000 (Sun, 28 Jun 2009)

Log Message:
-----------
Mantis 1701: NtSrvExample cashes if you connect to a remote machine.

Modified Paths:
--------------
    trunk/jcl/examples/windows/ntservice/NtSvcDemoMain.pas

Modified: trunk/jcl/examples/windows/ntservice/NtSvcDemoMain.pas
===================================================================
--- trunk/jcl/examples/windows/ntservice/NtSvcDemoMain.pas	2009-06-28 11:35:52 UTC (rev 2833)
+++ trunk/jcl/examples/windows/ntservice/NtSvcDemoMain.pas	2009-06-28 11:44:33 UTC (rev 2834)
@@ -178,6 +178,8 @@
 
 procedure TfrmMain.lstSvcData(Sender: TObject; Item: TListItem);
 begin
+  if not Assigned(SCManager) then
+    Exit;
   with Item, SCManager.Services[Item.Index] do
   begin
     Caption := ServiceName;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2833] trunk/jcl/source/windows/JclSvcCtrl.pas

From: <ou...@us...> - 2009-06-28 11:35:54

Revision: 2833
          http://jcl.svn.sourceforge.net/jcl/?rev=2833&view=rev
Author:   outchy
Date:     2009-06-28 11:35:52 +0000 (Sun, 28 Jun 2009)

Log Message:
-----------
fix possible integer overflow.

Modified Paths:
--------------
    trunk/jcl/source/windows/JclSvcCtrl.pas

Modified: trunk/jcl/source/windows/JclSvcCtrl.pas
===================================================================
--- trunk/jcl/source/windows/JclSvcCtrl.pas	2009-06-27 10:27:48 UTC (rev 2832)
+++ trunk/jcl/source/windows/JclSvcCtrl.pas	2009-06-28 11:35:52 UTC (rev 2833)
@@ -490,7 +490,8 @@
       Win32Check(Ret);
 
       PEss := PBuf;
-      for I := 0 to ServicesReturned - 1 do
+      if ServicesReturned > 0 then
+        for I := 0 to ServicesReturned - 1 do
       begin
         if (PEss.lpServiceName[1] <> SC_GROUP_IDENTIFIER) and
           (SCManager.FindService(PEss.lpServiceName, NtSvc)) then


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2832] trunk/jcl/source/common/JclFileUtils.pas

From: <ou...@us...> - 2009-06-27 10:27:50

Revision: 2832
          http://jcl.svn.sourceforge.net/jcl/?rev=2832&view=rev
Author:   outchy
Date:     2009-06-27 10:27:48 +0000 (Sat, 27 Jun 2009)

Log Message:
-----------
style cleaning

Modified Paths:
--------------
    trunk/jcl/source/common/JclFileUtils.pas

Modified: trunk/jcl/source/common/JclFileUtils.pas
===================================================================
--- trunk/jcl/source/common/JclFileUtils.pas	2009-06-26 19:15:50 UTC (rev 2831)
+++ trunk/jcl/source/common/JclFileUtils.pas	2009-06-27 10:27:48 UTC (rev 2832)
@@ -674,11 +674,11 @@
     function GetFileVersionBuild: string;
     function GetFileVersionMajor: string;
     function GetFileVersionMinor: string;
-    function GetFileVersionRevision: string;
+    function GetFileVersionRelease: string;
     function GetProductVersionBuild: string;
     function GetProductVersionMajor: string;
     function GetProductVersionMinor: string;
-    function GetProductVersionRevision: string;
+    function GetProductVersionRelease: string;
     function GetVersionKeyValue(Index: Integer): string;
   public
     constructor Attach(VersionInfoData: Pointer; Size: Integer);
@@ -707,7 +707,7 @@
     property FileVersionBuild: string read GetFileVersionBuild;
     property FileVersionMajor: string read GetFileVersionMajor;
     property FileVersionMinor: string read GetFileVersionMinor;
-    property FileVersionRevision: string read GetFileVersionRevision;
+    property FileVersionRelease: string read GetFileVersionRelease;
     property Items: TStrings read GetItems;
     property InternalName: string index 5 read GetVersionKeyValue;
     property LanguageCount: Integer read GetLanguageCount;
@@ -724,7 +724,7 @@
     property ProductVersionBuild: string read GetProductVersionBuild;
     property ProductVersionMajor: string read GetProductVersionMajor;
     property ProductVersionMinor: string read GetProductVersionMinor;
-    property ProductVersionRevision: string read GetProductVersionRevision;
+    property ProductVersionRelease: string read GetProductVersionRelease;
     property SpecialBuild: string index 11 read GetVersionKeyValue;
     property TranslationCount: Integer read GetTranslationCount;
     property Translations[Index: Integer]: TLangIdRec read GetTranslations;
@@ -5700,45 +5700,46 @@
 
 function TJclFileVersionInfo.GetFileVersionBuild: string;
 var
-  Count: Integer;
+  Left: Integer;
 begin
-  Result :=GetVersionKeyValue(4);
-  Result :=Trim(Result);
-  if StrFind(', ', Result) <> 0 then
-    StrReplace(Result, ', ', '.', [rfReplaceAll]);
-  Count :=CharPos(Result, '.', CharPos(Result, '.')+1);
-  Result :=StrMid(Result, Count, CharPos(Result, '.', Count+1) -Count);
+  Result := FileVersion;
+  StrReplaceChar(Result, ',', '.');
+  Left := CharLastPos(Result, '.') + 1;
+  Result := StrMid(Result, Left, Length(Result) - Left + 1);
+  Result := Trim(Result);
 end;
 
 function TJclFileVersionInfo.GetFileVersionMajor: string;
 begin
-  Result :=GetVersionKeyValue(4);
-  Result :=Trim(Result);
-  if StrFind(', ', Result) <> 0 then
-    StrReplace(Result, ', ', '.', [rfReplaceAll]);
-  Result :=StrBefore('.', Result);
+  Result := FileVersion;
+  StrReplaceChar(Result, ',', '.');
+  Result := StrBefore('.', Result);
+  Result := Trim(Result);
 end;
 
 function TJclFileVersionInfo.GetFileVersionMinor: string;
 var
-  Count: integer;
+  Left, Right: integer;
 begin
-  Result :=GetVersionKeyValue(4);
-  Result :=Trim(Result);
-  if StrFind(', ', Result) <> 0 then
-    StrReplace(Result, ', ', '.', [rfReplaceAll]);
-  Count :=CharPos(Result, '.');
-  Count :=CharPos(Result, '.', Count+1)-Count;
-  Result :=StrMid(Result, CharPos(Result, '.'), Count);
+  Result := FileVersion;
+  StrReplaceChar(Result, ',', '.');
+  Left := CharPos(Result, '.') + 1;           // skip major
+  Right := CharPos(Result, '.', Left) {-1};
+  Result := StrMid(Result, Left, Right - Left {+1});
+  Result := Trim(Result);
 end;
 
-function TJclFileVersionInfo.GetFileVersionRevision: string;
+function TJclFileVersionInfo.GetFileVersionRelease: string;
+var
+  Left, Right: Integer;
 begin
-  Result :=GetVersionKeyValue(4);
-  Result :=Trim(Result);
-  if StrFind(', ', Result) <> 0 then
-    StrReplace(Result, ', ', '.', [rfReplaceAll]);
-  Result :=StrRight(Result, LastDelimiter('.', Result));
+  Result := FileVersion;
+  StrReplaceChar(Result, ',', '.');
+  Left := CharPos(Result, '.') + 1;           // skip major
+  Left := CharPos(Result, '.', Left) + 1;     // skip minor
+  Right := CharPos(Result, '.', Left) {-1};
+  Result := StrMid(Result, Left, Right - Left {+1});
+  Result := Trim(Result);
 end;
 
 function TJclFileVersionInfo.GetFixedInfo: TVSFixedFileInfo;
@@ -5786,46 +5787,48 @@
 
 function TJclFileVersionInfo.GetProductVersionBuild: string;
 var
-  Count: integer;
+  Left: Integer;
 begin
-  Result :=GetVersionKeyValue(10);
-  Result :=Trim(Result);
-  if StrFind(', ', Result) <> 0 then
-    StrReplace(Result, ', ', '.', [rfReplaceAll]);
-  Count :=CharPos(Result, '.', CharPos(Result, '.')+1);
-  Result :=StrMid(Result, Count, CharPos(Result, ' ', Count+1) -Count);
+  Result := ProductVersion;
+  StrReplaceChar(Result, ',', '.');
+  Left := CharLastPos(Result, '.') + 1;
+  Result := StrMid(Result, Left, Length(Result) - Left + 1);
+  Result := Trim(Result);
 end;
 
 function TJclFileVersionInfo.GetProductVersionMajor: string;
 begin
-  Result :=GetVersionKeyValue(10);
-  Result :=Trim(Result);
-  if StrFind(', ', Result) <> 0 then
-    StrReplace(Result, ', ', '.', [rfReplaceAll]);
-  Result :=StrBefore('.', Result);
+  Result := ProductVersion;
+  StrReplaceChar(Result, ',', '.');
+  Result := StrBefore('.', Result);
+  Result := Trim(Result);
 end;
 
-function TJclFileVersionInfo.GetProductVersionRevision: string;
+function TJclFileVersionInfo.GetProductVersionMinor: string;
+var
+  Left, Right: integer;
 begin
-  Result :=GetVersionKeyValue(10);
-  Result :=Trim(Result);
-  if StrFind(', ', Result) <> 0 then
-    StrReplace(Result, ', ', '.', [rfReplaceAll]);
-  Result :=StrRight(Result, LastDelimiter(' ', Result));
+  Result := ProductVersion;
+  StrReplaceChar(Result, ',', '.');
+  Left := CharPos(Result, '.') + 1;           // skip major
+  Right := CharPos(Result, '.', Left) {-1};
+  Result := StrMid(Result, Left, Right - Left {+1});
+  Result := Trim(Result);
 end;
 
-function TJclFileVersionInfo.GetProductVersionMinor: string;
+function TJclFileVersionInfo.GetProductVersionRelease: string;
 var
-  Count: integer;
+  Left, Right: Integer;
 begin
-  Result :=GetVersionKeyValue(10);
-  Result :=Trim(Result);
-  if StrFind(', ', Result) <> 0 then
-    StrReplace(Result, ', ', '.', [rfReplaceAll]);
-  Count :=CharPos(Result, '.');
-  Count :=CharPos(Result, '.', Count+1)-Count;
-  Result :=StrMid(Result, CharPos(Result, '.'), Count);
+  Result := ProductVersion;
+  StrReplaceChar(Result, ',', '.');
+  Left := CharPos(Result, '.') + 1;           // skip major
+  Left := CharPos(Result, '.', Left) + 1;     // skip minor
+  Right := CharPos(Result, '.', Left) {-1};
+  Result := StrMid(Result, Left, Right - Left {+1});
+  Result := Trim(Result);
 end;
+
 function TJclFileVersionInfo.GetVersionKeyValue(Index: Integer): string;
 begin
   Result := Items.Values[VerKeyNames[Index]];


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2831] trunk/jcl/source/common/JclFileUtils.pas

From: <sf...@us...> - 2009-06-26 19:16:20

Revision: 2831
          http://jcl.svn.sourceforge.net/jcl/?rev=2831&view=rev
Author:   sfarrow
Date:     2009-06-26 19:15:50 +0000 (Fri, 26 Jun 2009)

Log Message:
-----------
Recommitting TJclFileVersionInfo changes with correct formatting.

Modified Paths:
--------------
    trunk/jcl/source/common/JclFileUtils.pas

Modified: trunk/jcl/source/common/JclFileUtils.pas
===================================================================
--- trunk/jcl/source/common/JclFileUtils.pas	2009-06-26 16:49:08 UTC (rev 2830)
+++ trunk/jcl/source/common/JclFileUtils.pas	2009-06-26 19:15:50 UTC (rev 2831)
@@ -671,6 +671,14 @@
     function GetFileOS: DWORD;
     function GetFileSubType: DWORD;
     function GetFileType: DWORD;
+    function GetFileVersionBuild: string;
+    function GetFileVersionMajor: string;
+    function GetFileVersionMinor: string;
+    function GetFileVersionRevision: string;
+    function GetProductVersionBuild: string;
+    function GetProductVersionMajor: string;
+    function GetProductVersionMinor: string;
+    function GetProductVersionRevision: string;
     function GetVersionKeyValue(Index: Integer): string;
   public
     constructor Attach(VersionInfoData: Pointer; Size: Integer);
@@ -696,6 +704,10 @@
     property FileSubType: DWORD read GetFileSubType;
     property FileType: DWORD read GetFileType;
     property FileVersion: string index 4 read GetVersionKeyValue;
+    property FileVersionBuild: string read GetFileVersionBuild;
+    property FileVersionMajor: string read GetFileVersionMajor;
+    property FileVersionMinor: string read GetFileVersionMinor;
+    property FileVersionRevision: string read GetFileVersionRevision;
     property Items: TStrings read GetItems;
     property InternalName: string index 5 read GetVersionKeyValue;
     property LanguageCount: Integer read GetLanguageCount;
@@ -709,6 +721,10 @@
     property PrivateBuild: string index 12 read GetVersionKeyValue;
     property ProductName: string index 9 read GetVersionKeyValue;
     property ProductVersion: string index 10 read GetVersionKeyValue;
+    property ProductVersionBuild: string read GetProductVersionBuild;
+    property ProductVersionMajor: string read GetProductVersionMajor;
+    property ProductVersionMinor: string read GetProductVersionMinor;
+    property ProductVersionRevision: string read GetProductVersionRevision;
     property SpecialBuild: string index 11 read GetVersionKeyValue;
     property TranslationCount: Integer read GetTranslationCount;
     property Translations[Index: Integer]: TLangIdRec read GetTranslations;
@@ -5682,6 +5698,49 @@
   Result := FFixedInfo^.dwFileType;
 end;
 
+function TJclFileVersionInfo.GetFileVersionBuild: string;
+var
+  Count: Integer;
+begin
+  Result :=GetVersionKeyValue(4);
+  Result :=Trim(Result);
+  if StrFind(', ', Result) <> 0 then
+    StrReplace(Result, ', ', '.', [rfReplaceAll]);
+  Count :=CharPos(Result, '.', CharPos(Result, '.')+1);
+  Result :=StrMid(Result, Count, CharPos(Result, '.', Count+1) -Count);
+end;
+
+function TJclFileVersionInfo.GetFileVersionMajor: string;
+begin
+  Result :=GetVersionKeyValue(4);
+  Result :=Trim(Result);
+  if StrFind(', ', Result) <> 0 then
+    StrReplace(Result, ', ', '.', [rfReplaceAll]);
+  Result :=StrBefore('.', Result);
+end;
+
+function TJclFileVersionInfo.GetFileVersionMinor: string;
+var
+  Count: integer;
+begin
+  Result :=GetVersionKeyValue(4);
+  Result :=Trim(Result);
+  if StrFind(', ', Result) <> 0 then
+    StrReplace(Result, ', ', '.', [rfReplaceAll]);
+  Count :=CharPos(Result, '.');
+  Count :=CharPos(Result, '.', Count+1)-Count;
+  Result :=StrMid(Result, CharPos(Result, '.'), Count);
+end;
+
+function TJclFileVersionInfo.GetFileVersionRevision: string;
+begin
+  Result :=GetVersionKeyValue(4);
+  Result :=Trim(Result);
+  if StrFind(', ', Result) <> 0 then
+    StrReplace(Result, ', ', '.', [rfReplaceAll]);
+  Result :=StrRight(Result, LastDelimiter('.', Result));
+end;
+
 function TJclFileVersionInfo.GetFixedInfo: TVSFixedFileInfo;
 begin
   Result := FFixedInfo^;
@@ -5725,6 +5784,48 @@
   Result := FTranslations[Index];
 end;
 
+function TJclFileVersionInfo.GetProductVersionBuild: string;
+var
+  Count: integer;
+begin
+  Result :=GetVersionKeyValue(10);
+  Result :=Trim(Result);
+  if StrFind(', ', Result) <> 0 then
+    StrReplace(Result, ', ', '.', [rfReplaceAll]);
+  Count :=CharPos(Result, '.', CharPos(Result, '.')+1);
+  Result :=StrMid(Result, Count, CharPos(Result, ' ', Count+1) -Count);
+end;
+
+function TJclFileVersionInfo.GetProductVersionMajor: string;
+begin
+  Result :=GetVersionKeyValue(10);
+  Result :=Trim(Result);
+  if StrFind(', ', Result) <> 0 then
+    StrReplace(Result, ', ', '.', [rfReplaceAll]);
+  Result :=StrBefore('.', Result);
+end;
+
+function TJclFileVersionInfo.GetProductVersionRevision: string;
+begin
+  Result :=GetVersionKeyValue(10);
+  Result :=Trim(Result);
+  if StrFind(', ', Result) <> 0 then
+    StrReplace(Result, ', ', '.', [rfReplaceAll]);
+  Result :=StrRight(Result, LastDelimiter(' ', Result));
+end;
+
+function TJclFileVersionInfo.GetProductVersionMinor: string;
+var
+  Count: integer;
+begin
+  Result :=GetVersionKeyValue(10);
+  Result :=Trim(Result);
+  if StrFind(', ', Result) <> 0 then
+    StrReplace(Result, ', ', '.', [rfReplaceAll]);
+  Count :=CharPos(Result, '.');
+  Count :=CharPos(Result, '.', Count+1)-Count;
+  Result :=StrMid(Result, CharPos(Result, '.'), Count);
+end;
 function TJclFileVersionInfo.GetVersionKeyValue(Index: Integer): string;
 begin
   Result := Items.Values[VerKeyNames[Index]];


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2830] trunk/jcl/source/common/JclFileUtils.pas

From: <ou...@us...> - 2009-06-26 16:49:12

Revision: 2830
          http://jcl.svn.sourceforge.net/jcl/?rev=2830&view=rev
Author:   outchy
Date:     2009-06-26 16:49:08 +0000 (Fri, 26 Jun 2009)

Log Message:
-----------
revert revision 2829 that broke all code format.

Revision Links:
--------------
    http://jcl.svn.sourceforge.net/jcl/?rev=2829&view=rev

Modified Paths:
--------------
    trunk/jcl/source/common/JclFileUtils.pas

Modified: trunk/jcl/source/common/JclFileUtils.pas
===================================================================
--- trunk/jcl/source/common/JclFileUtils.pas	2009-06-26 16:35:29 UTC (rev 2829)
+++ trunk/jcl/source/common/JclFileUtils.pas	2009-06-26 16:49:08 UTC (rev 2830)
@@ -1,20 +1,20 @@
 {**************************************************************************************************}
-
+{                                                                                                  }
 { 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 JclFileUtils.pas.                                                           }
-
+{                                                                                                  }
 { The Initial Developer of the Original Code is Marcel van Brakel.                                 }
 { Portions created by Marcel van Brakel are Copyright (C) Marcel van Brakel. All rights reserved.  }
-
+{                                                                                                  }
 { Contributors:                                                                                    }
 {   Andre Snepvangers (asnepvangers)                                                               }
 {   Andreas Hausladen (ahuser)                                                                     }
@@ -39,22 +39,22 @@
 {   Rudy Velthuis                                                                                  }
 {   Scott Price                                                                                    }
 {   Wim De Cleen                                                                                   }
-
+{                                                                                                  }
 {**************************************************************************************************}
-
+{                                                                                                  }
 { This unit contains routines and classes for working with files, directories and path strings.    }
 { Additionally it contains wrapper classes for file mapping objects and version resources.         }
 { Generically speaking, everything that has to do with files and directories. Note that filesystem }
 { specific functionality has been extracted into external units, for example JclNTFS which         }
 { contains NTFS specific utility routines, and that the JclShell unit contains some file related   }
 { routines as well but they are specific to the Windows shell.                                     }
-
+{                                                                                                  }
 {**************************************************************************************************}
-
+{                                                                                                  }
 { Last modified: $Date::                                                                         $ }
 { Revision:      $Rev::                                                                          $ }
 { Author:        $Author::                                                                       $ }
-
+{                                                                                                  }
 {**************************************************************************************************}
 
 unit JclFileUtils;
@@ -112,7 +112,7 @@
 {$ENDIF KYLIX}
 
 // Path Manipulation
-
+//
 // Various support routines for working with path strings. For example, building a path from
 // elements or extracting the elements from a path, interpretation of paths and transformations of
 // paths.
@@ -129,8 +129,8 @@
   {$IFDEF KEEP_DEPRECATED}
   PathSeparator    = '\';
   {$ENDIF KEEP_DEPRECATED}
-  DirDelimiter     = '\';
-  DirSeparator     = ';';
+  DirDelimiter = '\';
+  DirSeparator = ';';
   PathUncPrefix    = '\\';
   {$ENDIF MSWINDOWS}
 
@@ -148,32 +148,30 @@
   // Please see QC report 6003 for details, available online at this URL:
   // http://qc.embarcadero.com/wc/qcmain.aspx?d=6003
   faRejectedByDefault = faHidden + faSysFile + faDirectory;
-  faWindowsSpecific   = faArchive + faTemporary + faSparseFile +
-    faReparsePoint + faCompressed + faOffline +
-    faNotContentIndexed + faEncrypted;
+  faWindowsSpecific   = faArchive + faTemporary + faSparseFile + faReparsePoint +
+                        faCompressed + faOffline + faNotContentIndexed + faEncrypted;
   faUnixSpecific      = faSymLink;
 
 type
   TCompactPath = ({cpBegin, }cpCenter, cpEnd);
 
-function CharIsDriveLetter(const C: char): boolean;
+function CharIsDriveLetter(const C: char): Boolean;
 
 function PathAddSeparator(const Path: string): string;
 function PathAddExtension(const Path, Extension: string): string;
 function PathAppend(const Path, Append: string): string;
-function PathBuildRoot(const Drive: byte): string;
+function PathBuildRoot(const Drive: Byte): string;
 function PathCanonicalize(const Path: string): string;
-function PathCommonPrefix(const Path1, Path2: string): integer;
+function PathCommonPrefix(const Path1, Path2: string): Integer;
 {$IFDEF Win32API}
 function PathCompactPath(const DC: HDC; const Path: string; const Width: Integer;
   CmpFmt: TCompactPath): string;
 {$ENDIF Win32API}
-procedure PathExtractElements(const Source: string;
-  var Drive, Path, FileName, Ext: string);
+procedure PathExtractElements(const Source: string; var Drive, Path, FileName, Ext: string);
 function PathExtractFileDirFixed(const S: string): string;
 function PathExtractFileNameNoExt(const Path: string): string;
-function PathExtractPathDepth(const Path: string; Depth: integer): string;
-function PathGetDepth(const Path: string): integer;
+function PathExtractPathDepth(const Path: string; Depth: Integer): string;
+function PathGetDepth(const Path: string): Integer;
 {$IFDEF Win32API}
 function PathGetLongName(const Path: string): string;
 function PathGetShortName(const Path: string): string;
@@ -184,55 +182,50 @@
 {$ENDIF CLR}
 function PathGetRelativePath(Origin, Destination: string): string;
 function PathGetTempPath: string;
-function PathIsAbsolute(const Path: string): boolean;
-function PathIsChild(const Path, Base: string): boolean;
-function PathIsDiskDevice(const Path: string): boolean;
-function PathIsUNC(const Path: string): boolean;
+function PathIsAbsolute(const Path: string): Boolean;
+function PathIsChild(const Path, Base: string): Boolean;
+function PathIsDiskDevice(const Path: string): Boolean;
+function PathIsUNC(const Path: string): Boolean;
 function PathRemoveSeparator(const Path: string): string;
 function PathRemoveExtension(const Path: string): string;
 
- // Windows Vista uses localized path names in the Windows Explorer but these
- // folders do not really exist on disk. This causes all I/O operations to fail
- // if the user specifies such a localized directory like "C:\Benutzer\MyName\Bilder"
- // instead of the physical folder "C:\Users\MyName\Pictures".
- // These two functions allow to convert the user's input from localized to
- // physical paths and vice versa.
+// Windows Vista uses localized path names in the Windows Explorer but these
+// folders do not really exist on disk. This causes all I/O operations to fail
+// if the user specifies such a localized directory like "C:\Benutzer\MyName\Bilder"
+// instead of the physical folder "C:\Users\MyName\Pictures".
+// These two functions allow to convert the user's input from localized to
+// physical paths and vice versa.
 function PathGetPhysicalPath(const LocalizedPath: string): string;
 function PathGetLocalizedPath(const PhysicalPath: string): string;
 
 // Files and Directories
-
+//
 // Routines for working with files and directories. Includes routines to extract various file
 // attributes or update them, volume locking and routines for creating temporary files.
 type
-  TDelTreeProgress = function(const FileName: string; Attr: DWORD): boolean;
-  TFileListOption    = (flFullNames, flRecursive, flMaskedSubfolders);
-  TFileListOptions   = set of TFileListOption;
+  TDelTreeProgress = function (const FileName: string; Attr: DWORD): Boolean;
+  TFileListOption  = (flFullNames, flRecursive, flMaskedSubfolders);
+  TFileListOptions = set of TFileListOption;
   TJclAttributeMatch = (amAny, amExact, amSubSetOf, amSuperSetOf, amCustom);
-  TFileMatchFunc     = function(const Attr: integer; const FileInfo: TSearchRec): boolean;
-  TFileHandler   = procedure(const FileName: string) of object;
-  TFileHandlerEx = procedure(const Directory: string;
-    const FileInfo: TSearchRec) of object;
+  TFileMatchFunc = function(const Attr: Integer; const FileInfo: TSearchRec): Boolean;
+  TFileHandler = procedure (const FileName: string) of object;
+  TFileHandlerEx = procedure (const Directory: string; const FileInfo: TSearchRec) of object;
 
-function BuildFileList(const Path: string; const Attr: integer;
-  const List: TStrings): boolean;
-function AdvBuildFileList(const Path: string; const Attr: integer;
-  const Files: TStrings; const AttributeMatch: TJclAttributeMatch = amSuperSetOf;
-  const Options: TFileListOptions = []; const SubfoldersMask: string = '';
-  const FileMatchFunc: TFileMatchFunc = nil): boolean;
-function VerifyFileAttributeMask(
-  var RejectedAttributes, RequiredAttributes: integer): boolean;
+function BuildFileList(const Path: string; const Attr: Integer; const List: TStrings): Boolean;
+function AdvBuildFileList(const Path: string; const Attr: Integer; const Files: TStrings;
+  const AttributeMatch: TJclAttributeMatch = amSuperSetOf; const Options: TFileListOptions = [];
+  const SubfoldersMask: string = ''; const FileMatchFunc: TFileMatchFunc = nil): Boolean;
+function VerifyFileAttributeMask(var RejectedAttributes, RequiredAttributes: Integer): Boolean;
 function IsFileAttributeMatch(FileAttributes, RejectedAttributes,
-  RequiredAttributes: integer): boolean;
+  RequiredAttributes: Integer): Boolean;
 function FileAttributesStr(const FileInfo: TSearchRec): string;
 function IsFileNameMatch(FileName: string; const Mask: string;
-  const CaseSensitive: boolean = {$IFDEF MSWINDOWS} False
- {$ELSE} True {$ENDIF}): boolean;
+  const CaseSensitive: Boolean = {$IFDEF MSWINDOWS} False {$ELSE} True {$ENDIF}): Boolean;
 procedure EnumFiles(const Path: string; HandleFile: TFileHandlerEx;
-  RejectedAttributes: integer = faRejectedByDefault; RequiredAttributes: integer = 0;
+  RejectedAttributes: Integer = faRejectedByDefault; RequiredAttributes: Integer = 0;
   Abort: PBoolean = nil);
 procedure EnumDirectories(const Root: string; const HandleDirectory: TFileHandler;
-  const IncludeHiddenDirectories: boolean = False; const SubDirectoriesMask: string = '';
+  const IncludeHiddenDirectories: Boolean = False; const SubDirectoriesMask: string = '';
   Abort: PBoolean = nil {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF});
 {$IFDEF MSWINDOWS}
 procedure CreateEmptyFile(const FileName: string);
@@ -248,50 +241,42 @@
 function DelTreeEx(const Path: string; AbortOnFailure: Boolean; Progress: TDelTreeProgress): Boolean;
 function DiskInDrive(Drive: Char): Boolean;
 {$ENDIF Win32API}
-function DirectoryExists(const Name:
-  string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): boolean;
+function DirectoryExists(const Name: string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): Boolean;
 {$IFDEF CLR}
 function FileCreateTemp(var Prefix: string): System.IO.Stream;
 {$ELSE ~CLR}
 function FileCreateTemp(var Prefix: string): THandle;
 {$ENDIF ~CLR}
-function FileBackup(const FileName: string; Move: boolean = False): boolean;
-function FileCopy(const ExistingFileName, NewFileName: string;
-  ReplaceExisting: boolean = False): boolean;
-function FileDelete(const FileName: string {$IFNDEF CLR};
-  MoveToRecycleBin: boolean = False {$ENDIF}): boolean;
-function FileExists(const FileName: string): boolean;
-function FileMove(const ExistingFileName, NewFileName: string;
-  ReplaceExisting: boolean = False): boolean;
-function FileRestore(const FileName: string): boolean;
+function FileBackup(const FileName: string; Move: Boolean = False): Boolean;
+function FileCopy(const ExistingFileName, NewFileName: string; ReplaceExisting: Boolean = False): Boolean;
+function FileDelete(const FileName: string {$IFNDEF CLR}; MoveToRecycleBin: Boolean = False {$ENDIF}): Boolean;
+function FileExists(const FileName: string): Boolean;
+function FileMove(const ExistingFileName, NewFileName: string; ReplaceExisting: Boolean = False): Boolean;
+function FileRestore(const FileName: string): Boolean;
 function GetBackupFileName(const FileName: string): string;
-function IsBackupFileName(const FileName: string): boolean;
+function IsBackupFileName(const FileName: string): Boolean;
 function FileGetDisplayName(const FileName: string): string;
 {$IFNDEF CLR}
-function FileGetGroupName(const FileName:
-  string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): string;
-function FileGetOwnerName(const FileName:
-  string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): string;
+function FileGetGroupName(const FileName: string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): string;
+function FileGetOwnerName(const FileName: string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): string;
 {$ENDIF ~CLR}
-function FileGetSize(const FileName: string): int64;
+function FileGetSize(const FileName: string): Int64;
 function FileGetTempName(const Prefix: string): string;
 {$IFDEF Win32API}
 function FileGetTypeName(const FileName: string): string;
 {$ENDIF Win32API}
-function FindUnusedFileName(FileName: string; const FileExt: string;
-  NumberPrefix: string = ''): string;
-function ForceDirectories(Name: string): boolean;
-function GetDirectorySize(const Path: string): int64;
+function FindUnusedFileName(FileName: string; const FileExt: string; NumberPrefix: string = ''): string;
+function ForceDirectories(Name: string): Boolean;
+function GetDirectorySize(const Path: string): Int64;
 {$IFDEF Win32API}
 function GetDriveTypeStr(const Drive: Char): string;
 function GetFileAgeCoherence(const FileName: string): Boolean;
 {$ENDIF Win32API}
-procedure GetFileAttributeList(const Items: TStrings; const Attr: integer);
+procedure GetFileAttributeList(const Items: TStrings; const Attr: Integer);
 {$IFDEF Win32API}
 procedure GetFileAttributeListEx(const Items: TStrings; const Attr: Integer);
 {$ENDIF Win32API}
-function GetFileInformation(const FileName: string; out FileInfo: TSearchRec): boolean;
-  overload;
+function GetFileInformation(const FileName: string; out FileInfo: TSearchRec): Boolean; overload;
 function GetFileInformation(const FileName: string): TSearchRec; overload;
 {$IFDEF UNIX}
 function GetFileStatus(const FileName: string; out StatBuf: TStatBuf64;
@@ -299,14 +284,11 @@
 {$ENDIF UNIX}
 {$IFDEF MSWINDOWS}
 function GetFileLastWrite(const FileName: string): TFileTime; overload;
-function GetFileLastWrite(const FileName: string; out LocalTime: TDateTime): boolean;
-  overload;
+function GetFileLastWrite(const FileName: string; out LocalTime: TDateTime): Boolean; overload;
 function GetFileLastAccess(const FileName: string): TFileTime; overload;
-function GetFileLastAccess(const FileName: string; out LocalTime: TDateTime): boolean;
-  overload;
+function GetFileLastAccess(const FileName: string; out LocalTime: TDateTime): Boolean; overload;
 function GetFileCreation(const FileName: string): TFileTime; overload;
-function GetFileCreation(const FileName: string; out LocalTime: TDateTime): boolean;
-  overload;
+function GetFileCreation(const FileName: string; out LocalTime: TDateTime): Boolean; overload;
 {$ENDIF MSWINDOWS}
 {$IFDEF UNIX}
 function GetFileLastWrite(const FileName: string; out TimeStamp: Integer; ResolveSymLinks: Boolean = True): Boolean; overload;
@@ -322,31 +304,30 @@
 {$IFNDEF CLR}
 function GetModulePath(const Module: HMODULE): string;
 {$ENDIF ~CLR}
-function GetSizeOfFile(const FileName: string): int64; overload;
-function GetSizeOfFile(const FileInfo: TSearchRec): int64; overload;
+function GetSizeOfFile(const FileName: string): Int64; overload;
+function GetSizeOfFile(const FileInfo: TSearchRec): Int64; overload;
 {$IFDEF Win32API}
 function GetSizeOfFile(Handle: THandle): Int64; overload;
 function GetStandardFileInfo(const FileName: string): TWin32FileAttributeData;
 {$ENDIF Win32API}
-function IsDirectory(const FileName:
-  string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): boolean;
-function IsRootDirectory(const CanonicFileName: string): boolean;
+function IsDirectory(const FileName: string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): Boolean;
+function IsRootDirectory(const CanonicFileName: string): Boolean;
 {$IFDEF MSWINDOWS}
 {$IFNDEF CLR}
-function LockVolume(const Volume: string; var Handle: THandle): boolean;
-function OpenVolume(const Drive: char): THandle;
+function LockVolume(const Volume: string; var Handle: THandle): Boolean;
+function OpenVolume(const Drive: Char): THandle;
 {$ENDIF ~CLR}
-function SetDirLastWrite(const DirName: string; const DateTime: TDateTime): boolean;
-function SetDirLastAccess(const DirName: string; const DateTime: TDateTime): boolean;
-function SetDirCreation(const DirName: string; const DateTime: TDateTime): boolean;
+function SetDirLastWrite(const DirName: string; const DateTime: TDateTime): Boolean;
+function SetDirLastAccess(const DirName: string; const DateTime: TDateTime): Boolean;
+function SetDirCreation(const DirName: string; const DateTime: TDateTime): Boolean;
 {$ENDIF MSWINDOWS}
-function SetFileLastWrite(const FileName: string; const DateTime: TDateTime): boolean;
-function SetFileLastAccess(const FileName: string; const DateTime: TDateTime): boolean;
+function SetFileLastWrite(const FileName: string; const DateTime: TDateTime): Boolean;
+function SetFileLastAccess(const FileName: string; const DateTime: TDateTime): Boolean;
 {$IFDEF MSWINDOWS}
-function SetFileCreation(const FileName: string; const DateTime: TDateTime): boolean;
-procedure ShredFile(const FileName: string; Times: integer = 1);
+function SetFileCreation(const FileName: string; const DateTime: TDateTime): Boolean;
+procedure ShredFile(const FileName: string; Times: Integer = 1);
 {$IFNDEF CLR}
-function UnlockVolume(var Handle: THandle): boolean;
+function UnlockVolume(var Handle: THandle): Boolean;
 {$ENDIF ~CLR}
 {$ENDIF MSWINDOWS}
 
@@ -357,17 +338,17 @@
 {$ENDIF UNIX}
 
 // TJclFileAttributeMask
-
+//
 // File search helper class, allows to specify required/rejected attributes
 type
   TAttributeInterest = (aiIgnored, aiRejected, aiRequired);
 
   TJclCustomFileAttrMask = class(TPersistent)
   private
-    FRequiredAttr: integer;
-    FRejectedAttr: integer;
-    function GetAttr(Index: integer): TAttributeInterest;
-    procedure SetAttr(Index: integer; const Value: TAttributeInterest);
+    FRequiredAttr: Integer;
+    FRejectedAttr: Integer;
+    function GetAttr(Index: Integer): TAttributeInterest;
+    procedure SetAttr(Index: Integer; const Value: TAttributeInterest);
     procedure ReadRequiredAttributes(Reader: TReader);
     procedure ReadRejectedAttributes(Reader: TReader);
     procedure WriteRequiredAttributes(Writer: TWriter);
@@ -375,43 +356,42 @@
   protected
     procedure DefineProperties(Filer: TFiler); override;
     property ReadOnly: TAttributeInterest index faReadOnly
-      Read GetAttr Write SetAttr stored False;
+      read GetAttr write SetAttr stored False;
     property Hidden: TAttributeInterest index faHidden
-      Read GetAttr Write SetAttr stored False;
+      read GetAttr write SetAttr stored False;
     property System: TAttributeInterest index faSysFile
-      Read GetAttr Write SetAttr stored False;
+      read GetAttr write SetAttr stored False;
     property Directory: TAttributeInterest index faDirectory
-      Read GetAttr Write SetAttr stored False;
+      read GetAttr write SetAttr stored False;
     property SymLink: TAttributeInterest index faSymLink
-      Read GetAttr Write SetAttr stored False;
+      read GetAttr write SetAttr stored False;
     property Normal: TAttributeInterest index faNormalFile
-      Read GetAttr Write SetAttr stored False;
+      read GetAttr write SetAttr stored False;
     property Archive: TAttributeInterest index faArchive
-      Read GetAttr Write SetAttr stored False;
+      read GetAttr write SetAttr stored False;
     property Temporary: TAttributeInterest index faTemporary
-      Read GetAttr Write SetAttr stored False;
+      read GetAttr write SetAttr stored False;
     property SparseFile: TAttributeInterest index faSparseFile
-      Read GetAttr Write SetAttr stored False;
+      read GetAttr write SetAttr stored False;
     property ReparsePoint: TAttributeInterest index faReparsePoint
-      Read GetAttr Write SetAttr stored False;
+      read GetAttr write SetAttr stored False;
     property Compressed: TAttributeInterest index faCompressed
-      Read GetAttr Write SetAttr stored False;
+      read GetAttr write SetAttr stored False;
     property OffLine: TAttributeInterest index faOffline
-      Read GetAttr Write SetAttr stored False;
+      read GetAttr write SetAttr stored False;
     property NotContentIndexed: TAttributeInterest index faNotContentIndexed
-      Read GetAttr Write SetAttr stored False;
+      read GetAttr write SetAttr stored False;
     property Encrypted: TAttributeInterest index faEncrypted
-      Read GetAttr Write SetAttr stored False;
+      read GetAttr write SetAttr stored False;
   public
     constructor Create;
     procedure Assign(Source: TPersistent); override;
     procedure Clear;
-    function Match(FileAttributes: integer): boolean; overload;
-    function Match(const FileInfo: TSearchRec): boolean; overload;
-    property Required: integer Read FRequiredAttr Write FRequiredAttr;
-    property Rejected: integer Read FRejectedAttr Write FRejectedAttr;
-    property Attribute[Index: integer]: TAttributeInterest Read GetAttr Write SetAttr;
-      default;
+    function Match(FileAttributes: Integer): Boolean; overload;
+    function Match(const FileInfo: TSearchRec): Boolean; overload;
+    property Required: Integer read FRequiredAttr write FRequiredAttr;
+    property Rejected: Integer read FRejectedAttr write FRejectedAttr;
+    property Attribute[Index: Integer]: TAttributeInterest read GetAttr write SetAttr; default;
   end;
 
   TJclFileAttributeMask = class(TJclCustomFileAttrMask)
@@ -441,55 +421,53 @@
   end;
 
 // IJclFileEnumerator / TJclFileEnumerator
-
+//
 // Interface / class for thread-based file search
 type
-  TFileSearchOption           = (fsIncludeSubDirectories, fsIncludeHiddenSubDirectories,
-    fsLastChangeAfter,
+  TFileSearchOption = (fsIncludeSubDirectories, fsIncludeHiddenSubDirectories, fsLastChangeAfter,
     fsLastChangeBefore, fsMaxSize, fsMinSize);
-  TFileSearchOptions          = set of TFileSearchOption;
-  TFileSearchTaskID           = integer;
-  TFileSearchTerminationEvent = procedure(const ID: TFileSearchTaskID;
-    const Aborted: boolean) of object;
+  TFileSearchOptions = set of TFileSearchOption;
+  TFileSearchTaskID = Integer;
+  TFileSearchTerminationEvent = procedure (const ID: TFileSearchTaskID; const Aborted: Boolean) of object;
   TFileEnumeratorSyncMode = (smPerFile, smPerDirectory);
 
   IJclFileEnumerator = interface
     ['{F7E747ED-1C41-441F-B25B-BB314E00C4E9}']
     // property access methods
     function GetAttributeMask: TJclFileAttributeMask;
-    function GetCaseSensitiveSearch: boolean;
+    function GetCaseSensitiveSearch: Boolean;
     function GetRootDirectory: string;
     function GetFileMask: string;
     function GetFileMasks: TStrings;
-    function GetFileSizeMax: int64;
-    function GetFileSizeMin: int64;
-    function GetIncludeSubDirectories: boolean;
-    function GetIncludeHiddenSubDirectories: boolean;
+    function GetFileSizeMax: Int64;
+    function GetFileSizeMin: Int64;
+    function GetIncludeSubDirectories: Boolean;
+    function GetIncludeHiddenSubDirectories: Boolean;
     function GetLastChangeAfter: TDateTime;
     function GetLastChangeBefore: TDateTime;
     function GetLastChangeAfterStr: string;
     function GetLastChangeBeforeStr: string;
-    function GetRunningTasks: integer;
+    function GetRunningTasks: Integer;
     function GetSubDirectoryMask: string;
     function GetSynchronizationMode: TFileEnumeratorSyncMode;
     function GetOnEnterDirectory: TFileHandler;
     function GetOnTerminateTask: TFileSearchTerminationEvent;
-    function GetOption(const Option: TFileSearchOption): boolean;
+    function GetOption(const Option: TFileSearchOption): Boolean;
     function GetOptions: TFileSearchoptions;
     procedure SetAttributeMask(const Value: TJclFileAttributeMask);
-    procedure SetCaseSensitiveSearch(const Value: boolean);
+    procedure SetCaseSensitiveSearch(const Value: Boolean);
     procedure SetRootDirectory(const Value: string);
     procedure SetFileMask(const Value: string);
     procedure SetFileMasks(const Value: TStrings);
-    procedure SetFileSizeMax(const Value: int64);
-    procedure SetFileSizeMin(const Value: int64);
-    procedure SetIncludeSubDirectories(const Value: boolean);
-    procedure SetIncludeHiddenSubDirectories(const Value: boolean);
+    procedure SetFileSizeMax(const Value: Int64);
+    procedure SetFileSizeMin(const Value: Int64);
+    procedure SetIncludeSubDirectories(const Value: Boolean);
+    procedure SetIncludeHiddenSubDirectories(const Value: Boolean);
     procedure SetLastChangeAfter(const Value: TDateTime);
     procedure SetLastChangeBefore(const Value: TDateTime);
     procedure SetLastChangeAfterStr(const Value: string);
     procedure SetLastChangeBeforeStr(const Value: string);
-    procedure SetOption(const Option: TFileSearchOption; const Value: boolean);
+    procedure SetOption(const Option: TFileSearchOption; const Value: Boolean);
     procedure SetOptions(const Value: TFileSearchOptions);
     procedure SetSubDirectoryMask(const Value: string);
     procedure SetSynchronizationMode(const Value: TFileEnumeratorSyncMode);
@@ -500,70 +478,62 @@
     function ForEach(Handler: TFileHandler): TFileSearchTaskID; overload;
     function ForEach(Handler: TFileHandlerEx): TFileSearchTaskID; overload;
     procedure StopTask(ID: TFileSearchTaskID);
-    procedure StopAllTasks(Silently: boolean = False);
-    // Silently: Don't call OnTerminateTask
+    procedure StopAllTasks(Silently: Boolean = False); // Silently: Don't call OnTerminateTask
     // properties
-    property CaseSensitiveSearch: boolean Read GetCaseSensitiveSearch
-      Write SetCaseSensitiveSearch;
-    property RootDirectory: string Read GetRootDirectory Write SetRootDirectory;
-    property FileMask: string Read GetFileMask Write SetFileMask;
-    property SubDirectoryMask: string Read GetSubDirectoryMask Write SetSubDirectoryMask;
-    property AttributeMask: TJclFileAttributeMask
-      Read GetAttributeMask Write SetAttributeMask;
-    property FileSizeMin: int64 Read GetFileSizeMin Write SetFileSizeMin;
-    property FileSizeMax: int64 Read GetFileSizeMax Write SetFileSizeMax;
-    // default InvalidFileSize;
-    property LastChangeAfter: TDateTime Read GetLastChangeAfter Write SetLastChangeAfter;
-    property LastChangeBefore: TDateTime Read GetLastChangeBefore
-      Write SetLastChangeBefore;
-    property LastChangeAfterAsString: string
-      Read GetLastChangeAfterStr Write SetLastChangeAfterStr;
-    property LastChangeBeforeAsString: string
-      Read GetLastChangeBeforeStr Write SetLastChangeBeforeStr;
-    property IncludeSubDirectories: boolean
-      Read GetIncludeSubDirectories Write SetIncludeSubDirectories;
-    property IncludeHiddenSubDirectories: boolean
-      Read GetIncludeHiddenSubDirectories Write SetIncludeHiddenSubDirectories;
-    property RunningTasks: integer Read GetRunningTasks;
-    property SynchronizationMode: TFileEnumeratorSyncMode
-      Read GetSynchronizationMode Write SetSynchronizationMode;
-    property OnEnterDirectory: TFileHandler Read GetOnEnterDirectory
-      Write SetOnEnterDirectory;
-    property OnTerminateTask: TFileSearchTerminationEvent
-      Read GetOnTerminateTask Write SetOnTerminateTask;
+    property CaseSensitiveSearch: Boolean read GetCaseSensitiveSearch write SetCaseSensitiveSearch;
+    property RootDirectory: string read GetRootDirectory write SetRootDirectory;
+    property FileMask: string read GetFileMask write SetFileMask;
+    property SubDirectoryMask: string read GetSubDirectoryMask write SetSubDirectoryMask;
+    property AttributeMask: TJclFileAttributeMask read GetAttributeMask write SetAttributeMask;
+    property FileSizeMin: Int64 read GetFileSizeMin write SetFileSizeMin;
+    property FileSizeMax: Int64 read GetFileSizeMax write SetFileSizeMax; // default InvalidFileSize;
+    property LastChangeAfter: TDateTime read GetLastChangeAfter write SetLastChangeAfter;
+    property LastChangeBefore: TDateTime read GetLastChangeBefore write SetLastChangeBefore;
+    property LastChangeAfterAsString: string read GetLastChangeAfterStr write SetLastChangeAfterStr;
+    property LastChangeBeforeAsString: string read GetLastChangeBeforeStr write SetLastChangeBeforeStr;
+    property IncludeSubDirectories: Boolean read GetIncludeSubDirectories
+      write SetIncludeSubDirectories;
+    property IncludeHiddenSubDirectories: Boolean read GetIncludeHiddenSubDirectories
+      write SetIncludeHiddenSubDirectories;
+    property RunningTasks: Integer read GetRunningTasks;
+    property SynchronizationMode: TFileEnumeratorSyncMode read GetSynchronizationMode
+      write SetSynchronizationMode;
+    property OnEnterDirectory: TFileHandler read GetOnEnterDirectory write SetOnEnterDirectory;
+    property OnTerminateTask: TFileSearchTerminationEvent read GetOnTerminateTask
+      write SetOnTerminateTask;
   end;
 
   TJclFileEnumerator = class(TPersistent, IJclFileEnumerator)
   private
     {$IFNDEF CLR}
-    FOwnerInterface:  IInterface;
+    FOwnerInterface: IInterface;
     {$ENDIF ~CLR}
-    FTasks:           TList;
-    FFileMasks:       TStringList;
-    FRootDirectory:   string;
+    FTasks: TList;
+    FFileMasks: TStringList;
+    FRootDirectory: string;
     FSubDirectoryMask: string;
     FOnEnterDirectory: TFileHandler;
     FOnTerminateTask: TFileSearchTerminationEvent;
-    FNextTaskID:      TFileSearchTaskID;
-    FAttributeMask:   TJclFileAttributeMask;
+    FNextTaskID: TFileSearchTaskID;
+    FAttributeMask: TJclFileAttributeMask;
     FSynchronizationMode: TFileEnumeratorSyncMode;
-    FFileSizeMin:     int64;
-    FFileSizeMax:     int64;
+    FFileSizeMin: Int64;
+    FFileSizeMax: Int64;
     FLastChangeBefore: TDateTime;
     FLastChangeAfter: TDateTime;
-    FOptions:         TFileSearchOptions;
-    FCaseSensitiveSearch: boolean;
-    function IsLastChangeAfterStored: boolean;
-    function IsLastChangeBeforeStored: boolean;
+    FOptions: TFileSearchOptions;
+    FCaseSensitiveSearch: Boolean;
+    function IsLastChangeAfterStored: Boolean;
+    function IsLastChangeBeforeStored: Boolean;
     function GetNextTaskID: TFileSearchTaskID;
-    function GetCaseSensitiveSearch: boolean;
-    procedure SetCaseSensitiveSearch(const Value: boolean);
+    function GetCaseSensitiveSearch: Boolean;
+    procedure SetCaseSensitiveSearch(const Value: Boolean);
   protected
     {$IFNDEF CLR}
-    FRefCount: integer;
+    FRefCount: Integer;
     function QueryInterface(const IID: TGUID; out Obj): HRESULT; virtual; stdcall;
-    function _AddRef: integer; stdcall;
-    function _Release: integer; stdcall;
+    function _AddRef: Integer; stdcall;
+    function _Release: Integer; stdcall;
     {$ENDIF ~CLR}
     function CreateTask: TThread;
     procedure TaskTerminated(Sender: TObject);
@@ -572,17 +542,17 @@
     function GetRootDirectory: string;
     function GetFileMask: string;
     function GetFileMasks: TStrings;
-    function GetFileSizeMax: int64;
-    function GetFileSizeMin: int64;
-    function GetIncludeSubDirectories: boolean;
-    function GetIncludeHiddenSubDirectories: boolean;
+    function GetFileSizeMax: Int64;
+    function GetFileSizeMin: Int64;
+    function GetIncludeSubDirectories: Boolean;
+    function GetIncludeHiddenSubDirectories: Boolean;
     function GetLastChangeAfter: TDateTime;
     function GetLastChangeBefore: TDateTime;
     function GetLastChangeAfterStr: string;
     function GetLastChangeBeforeStr: string;
-    function GetOption(const Option: TFileSearchOption): boolean;
+    function GetOption(const Option: TFileSearchOption): Boolean;
     function GetOptions: TFileSearchoptions;
-    function GetRunningTasks: integer;
+    function GetRunningTasks: Integer;
     function GetSubDirectoryMask: string;
     function GetSynchronizationMode: TFileEnumeratorSyncMode;
     function GetOnEnterDirectory: TFileHandler;
@@ -591,21 +561,21 @@
     procedure SetRootDirectory(const Value: string);
     procedure SetFileMask(const Value: string);
     procedure SetFileMasks(const Value: TStrings);
-    procedure SetFileSizeMax(const Value: int64);
-    procedure SetFileSizeMin(const Value: int64);
-    procedure SetIncludeSubDirectories(const Value: boolean);
-    procedure SetIncludeHiddenSubDirectories(const Value: boolean);
+    procedure SetFileSizeMax(const Value: Int64);
+    procedure SetFileSizeMin(const Value: Int64);
+    procedure SetIncludeSubDirectories(const Value: Boolean);
+    procedure SetIncludeHiddenSubDirectories(const Value: Boolean);
     procedure SetLastChangeAfter(const Value: TDateTime);
     procedure SetLastChangeBefore(const Value: TDateTime);
     procedure SetLastChangeAfterStr(const Value: string);
     procedure SetLastChangeBeforeStr(const Value: string);
-    procedure SetOption(const Option: TFileSearchOption; const Value: boolean);
+    procedure SetOption(const Option: TFileSearchOption; const Value: Boolean);
     procedure SetOptions(const Value: TFileSearchOptions);
     procedure SetSubDirectoryMask(const Value: string);
     procedure SetSynchronizationMode(const Value: TFileEnumeratorSyncMode);
     procedure SetOnEnterDirectory(const Value: TFileHandler);
     procedure SetOnTerminateTask(const Value: TFileSearchTerminationEvent);
-    property NextTaskID: TFileSearchTaskID Read GetNextTaskID;
+    property NextTaskID: TFileSearchTaskID read GetNextTaskID;
   public
     constructor Create;
     destructor Destroy; override;
@@ -617,42 +587,35 @@
     function ForEach(Handler: TFileHandler): TFileSearchTaskID; overload;
     function ForEach(Handler: TFileHandlerEx): TFileSearchTaskID; overload;
     procedure StopTask(ID: TFileSearchTaskID);
-    procedure StopAllTasks(Silently: boolean = False);
-    // Silently: Don't call OnTerminateTask
-    property FileMask: string Read GetFileMask Write SetFileMask;
-    property IncludeSubDirectories: boolean
-      Read GetIncludeSubDirectories Write SetIncludeSubDirectories;
-    property IncludeHiddenSubDirectories: boolean
-      Read GetIncludeHiddenSubDirectories Write SetIncludeHiddenSubDirectories;
-    property SearchOption[const Option: TFileSearchOption]: boolean
-      Read GetOption Write SetOption;
-    property LastChangeAfterAsString: string
-      Read GetLastChangeAfterStr Write SetLastChangeAfterStr;
-    property LastChangeBeforeAsString: string
-      Read GetLastChangeBeforeStr Write SetLastChangeBeforeStr;
+    procedure StopAllTasks(Silently: Boolean = False); // Silently: Don't call OnTerminateTask
+    property FileMask: string read GetFileMask write SetFileMask;
+    property IncludeSubDirectories: Boolean
+      read GetIncludeSubDirectories write SetIncludeSubDirectories;
+    property IncludeHiddenSubDirectories: Boolean
+      read GetIncludeHiddenSubDirectories write SetIncludeHiddenSubDirectories;
+    property SearchOption[const Option: TFileSearchOption]: Boolean read GetOption write SetOption;
+    property LastChangeAfterAsString: string read GetLastChangeAfterStr write SetLastChangeAfterStr;
+    property LastChangeBeforeAsString: string read GetLastChangeBeforeStr write SetLastChangeBeforeStr;
   published
-    property CaseSensitiveSearch: boolean Read GetCaseSensitiveSearch
-      Write SetCaseSensitiveSearch default {$IFDEF MSWINDOWS} False {$ELSE} True {$ENDIF};
-    property FileMasks: TStrings Read GetFileMasks Write SetFileMasks;
-    property RootDirectory: string Read FRootDirectory Write FRootDirectory;
-    property SubDirectoryMask: string Read FSubDirectoryMask Write FSubDirectoryMask;
-    property AttributeMask: TJclFileAttributeMask
-      Read FAttributeMask Write SetAttributeMask;
-    property FileSizeMin: int64 Read FFileSizeMin Write FFileSizeMin;
-    property FileSizeMax: int64 Read FFileSizeMax Write FFileSizeMax;
-    property LastChangeAfter: TDateTime Read FLastChangeAfter
-      Write FLastChangeAfter stored IsLastChangeAfterStored;
-    property LastChangeBefore: TDateTime Read FLastChangeBefore
-      Write FLastChangeBefore stored IsLastChangeBeforeStored;
-    property Options: TFileSearchOptions
-      Read FOptions Write FOptions default [fsIncludeSubDirectories];
-    property RunningTasks: integer Read GetRunningTasks;
-    property SynchronizationMode: TFileEnumeratorSyncMode
-      Read FSynchronizationMode Write FSynchronizationMode default smPerDirectory;
-    property OnEnterDirectory: TFileHandler Read FOnEnterDirectory
-      Write FOnEnterDirectory;
-    property OnTerminateTask: TFileSearchTerminationEvent
-      Read FOnTerminateTask Write FOnTerminateTask;
+    property CaseSensitiveSearch: Boolean read GetCaseSensitiveSearch write SetCaseSensitiveSearch
+      default {$IFDEF MSWINDOWS} False {$ELSE} True {$ENDIF};
+    property FileMasks: TStrings read GetFileMasks write SetFileMasks;
+    property RootDirectory: string read FRootDirectory write FRootDirectory;
+    property SubDirectoryMask: string read FSubDirectoryMask write FSubDirectoryMask;
+    property AttributeMask: TJclFileAttributeMask read FAttributeMask write SetAttributeMask;
+    property FileSizeMin: Int64 read FFileSizeMin write FFileSizeMin;
+    property FileSizeMax: Int64 read FFileSizeMax write FFileSizeMax;
+    property LastChangeAfter: TDateTime read FLastChangeAfter write FLastChangeAfter
+      stored IsLastChangeAfterStored;
+    property LastChangeBefore: TDateTime read FLastChangeBefore write FLastChangeBefore
+      stored IsLastChangeBeforeStored;
+    property Options: TFileSearchOptions read FOptions write FOptions
+      default [fsIncludeSubDirectories];
+    property RunningTasks: Integer read GetRunningTasks;
+    property SynchronizationMode: TFileEnumeratorSyncMode read FSynchronizationMode write FSynchronizationMode
+      default smPerDirectory;
+    property OnEnterDirectory: TFileHandler read FOnEnterDirectory write FOnEnterDirectory;
+    property OnTerminateTask: TFileSearchTerminationEvent read FOnTerminateTask write FOnTerminateTask;
   end;
 
 function FileSearch: IJclFileEnumerator;
@@ -708,15 +671,7 @@
     function GetFileOS: DWORD;
     function GetFileSubType: DWORD;
     function GetFileType: DWORD;
-function GetFileVersionMajor: string;
-function GetFileVersionMinor: String;
-function GetFileVersionBuild: String;
-function GetFileVersionRevision: String;
-function GetProductVersionMajor: string;
-function GetProductVersionMinor: String;
-function GetProductVersionBuild: String;
-function GetProductVersionRevision: String;
-   function GetVersionKeyValue(Index: Integer): string;
+    function GetVersionKeyValue(Index: Integer): string;
   public
     constructor Attach(VersionInfoData: Pointer; Size: Integer);
     constructor Create(const FileName: string); overload;
@@ -741,10 +696,6 @@
     property FileSubType: DWORD read GetFileSubType;
     property FileType: DWORD read GetFileType;
     property FileVersion: string index 4 read GetVersionKeyValue;
-property FileVersionMajor: string read GetFileVersionMajor;
-property FileVersionMinor: string read GetFileVersionMinor;
-property FileVersionBuild: string read GetFileVersionBuild;
-property FileVersionRevision: string read GetFileVersionRevision;
     property Items: TStrings read GetItems;
     property InternalName: string index 5 read GetVersionKeyValue;
     property LanguageCount: Integer read GetLanguageCount;
@@ -758,10 +709,6 @@
     property PrivateBuild: string index 12 read GetVersionKeyValue;
     property ProductName: string index 9 read GetVersionKeyValue;
     property ProductVersion: string index 10 read GetVersionKeyValue;
-property ProductVersionMajor: string read GetProductVersionMajor;
-Property ProductVersionMinor: string read GetProductVersionMinor;
-                                            property ProductVersionBuild: string read GetProductVersionBuild;
-                                            property ProductVersionRevision: string read GetProductVersionRevision;
     property SpecialBuild: string index 11 read GetVersionKeyValue;
     property TranslationCount: Integer read GetTranslationCount;
     property Translations[Index: Integer]: TLangIdRec read GetTranslations;
@@ -778,9 +725,8 @@
 type
   TFileVersionFormat = (vfMajorMinor, vfFull);
 
-function FormatVersionString(const HiV, LoV: word): string; overload;
-function FormatVersionString(const Major, Minor, Build, Revision: word): string;
-  overload;
+function FormatVersionString(const HiV, LoV: Word): string; overload;
+function FormatVersionString(const Major, Minor, Build, Revision: Word): string; overload;
 
 {$IFDEF Win32API}
 
@@ -798,7 +744,7 @@
 {$ENDIF Win32API}
 
 // Streams
-
+//
 // TStream descendent classes for dealing with temporary files and for using file mapping objects.
 type
   TJclTempFileStream = class(THandleStream)
@@ -807,7 +753,7 @@
   public
     constructor Create(const Prefix: string);
     destructor Destroy; override;
-    property FileName: string Read FFileName;
+    property FileName: string read FFileName;
   end;
 
 {$IFDEF Win32API}
@@ -912,51 +858,50 @@
 
   TJclAnsiMappedTextReader = class(TPersistent)
   private
-    FContent:      PAnsiChar;
-    FEnd:          PAnsiChar;
-    FIndex:        PPAnsiCharArray;
-    FIndexOption:  TJclMappedTextReaderIndex;
-    FFreeStream:   boolean;
-    FLastLineNumber: integer;
+    FContent: PAnsiChar;
+    FEnd: PAnsiChar;
+    FIndex: PPAnsiCharArray;
+    FIndexOption: TJclMappedTextReaderIndex;
+    FFreeStream: Boolean;
+    FLastLineNumber: Integer;
     FLastPosition: PAnsiChar;
-    FLineCount:    integer;
+    FLineCount: Integer;
     FMemoryStream: TCustomMemoryStream;
-    FPosition:     PAnsiChar;
-    FSize:         integer;
-    function GetAsString: ansistring;
-    function GetEof: boolean;
-    function GetChars(Index: integer): AnsiChar;
-    function GetLineCount: integer;
-    function GetLines(LineNumber: integer): ansistring;
-    function GetPosition: integer;
-    function GetPositionFromLine(LineNumber: integer): integer;
-    procedure SetPosition(const Value: integer);
+    FPosition: PAnsiChar;
+    FSize: Integer;
+    function GetAsString: AnsiString;
+    function GetEof: Boolean;
+    function GetChars(Index: Integer): AnsiChar;
+    function GetLineCount: Integer;
+    function GetLines(LineNumber: Integer): AnsiString;
+    function GetPosition: Integer;
+    function GetPositionFromLine(LineNumber: Integer): Integer;
+    procedure SetPosition(const Value: Integer);
   protected
     procedure AssignTo(Dest: TPersistent); override;
     procedure CreateIndex;
     procedure Init;
-    function PtrFromLine(LineNumber: integer): PAnsiChar;
-    function StringFromPosition(var StartPos: PAnsiChar): ansistring;
+    function PtrFromLine(LineNumber: Integer): PAnsiChar;
+    function StringFromPosition(var StartPos: PAnsiChar): AnsiString;
   public
-    constructor Create(MemoryStream: TCustomMemoryStream;
-      FreeStream: boolean = True; const AIndexOption: TJclMappedTextReaderIndex =
-      tiNoIndex); overload;
+    constructor Create(MemoryStream: TCustomMemoryStream; FreeStream: Boolean = True;
+      const AIndexOption: TJclMappedTextReaderIndex = tiNoIndex); overload;
     constructor Create(const FileName: TFileName;
       const AIndexOption: TJclMappedTextReaderIndex = tiNoIndex); overload;
     destructor Destroy; override;
     procedure GoBegin;
     function Read: AnsiChar;
-    function ReadLn: ansistring;
-    property AsString: ansistring Read GetAsString;
-    property Chars[Index: integer]: AnsiChar Read GetChars;
-    property Content: PAnsiChar Read FContent;
-    property EOF: boolean Read GetEof;
-    property IndexOption: TJclMappedTextReaderIndex Read FIndexOption;
-    property Lines[LineNumber: integer]: ansistring Read GetLines;
-    property LineCount: integer Read GetLineCount;
-    property PositionFromLine[LineNumber: integer]: integer Read GetPositionFromLine;
-    property Position: integer Read GetPosition Write SetPosition;
-    property Size: integer Read FSize;
+    function ReadLn: AnsiString;
+    property AsString: AnsiString read GetAsString;
+    property Chars[Index: Integer]: AnsiChar read GetChars;
+    property Content: PAnsiChar read FContent;
+    property Eof: Boolean read GetEof;
+    property IndexOption: TJclMappedTextReaderIndex read FIndexOption;
+    property Lines[LineNumber: Integer]: AnsiString read GetLines;
+    property LineCount: Integer read GetLineCount;
+    property PositionFromLine[LineNumber: Integer]: Integer read GetPositionFromLine;
+    property Position: Integer read GetPosition write SetPosition;
+    property Size: Integer read FSize;
   end;
 
   PPWideCharArray = ^TPWideCharArray;
@@ -964,51 +909,50 @@
 
   TJclWideMappedTextReader = class(TPersistent)
   private
-    FContent:      PWideChar;
-    FEnd:          PWideChar;
-    FIndex:        PPWideCharArray;
-    FIndexOption:  TJclMappedTextReaderIndex;
-    FFreeStream:   boolean;
-    FLastLineNumber: integer;
+    FContent: PWideChar;
+    FEnd: PWideChar;
+    FIndex: PPWideCharArray;
+    FIndexOption: TJclMappedTextReaderIndex;
+    FFreeStream: Boolean;
+    FLastLineNumber: Integer;
     FLastPosition: PWideChar;
-    FLineCount:    integer;
+    FLineCount: Integer;
     FMemoryStream: TCustomMemoryStream;
-    FPosition:     PWideChar;
-    FSize:         integer;
+    FPosition: PWideChar;
+    FSize: Integer;
     function GetAsString: WideString;
-    function GetEof: boolean;
-    function GetChars(Index: integer): widechar;
-    function GetLineCount: integer;
-    function GetLines(LineNumber: integer): WideString;
-    function GetPosition: integer;
-    function GetPositionFromLine(LineNumber: integer): integer;
-    procedure SetPosition(const Value: integer);
+    function GetEof: Boolean;
+    function GetChars(Index: Integer): WideChar;
+    function GetLineCount: Integer;
+    function GetLines(LineNumber: Integer): WideString;
+    function GetPosition: Integer;
+    function GetPositionFromLine(LineNumber: Integer): Integer;
+    procedure SetPosition(const Value: Integer);
   protected
     procedure AssignTo(Dest: TPersistent); override;
     procedure CreateIndex;
     procedure Init;
-    function PtrFromLine(LineNumber: integer): PWideChar;
+    function PtrFromLine(LineNumber: Integer): PWideChar;
     function StringFromPosition(var StartPos: PWideChar): WideString;
   public
-    constructor Create(MemoryStream: TCustomMemoryStream;
-      FreeStream: boolean = True; const AIndexOption: TJclMappedTextReaderIndex =
-      tiNoIndex); overload;
+    constructor Create(MemoryStream: TCustomMemoryStream; FreeStream: Boolean = True;
+      const AIndexOption: TJclMappedTextReaderIndex = tiNoIndex); overload;
     constructor Create(const FileName: TFileName;
       const AIndexOption: TJclMappedTextReaderIndex = tiNoIndex); overload;
     destructor Destroy; override;
     procedure GoBegin;
-    function Read: widechar;
+    function Read: WideChar;
     function ReadLn: WideString;
-    property AsString: WideString Read GetAsString;
-    property Chars[Index: integer]: widechar Read GetChars;
-    property Content: PWideChar Read FContent;
-    property EOF: boolean Read GetEof;
-    property IndexOption: TJclMappedTextReaderIndex Read FIndexOption;
-    property Lines[LineNumber: integer]: WideString Read GetLines;
-    property LineCount: integer Read GetLineCount;
-    property PositionFromLine[LineNumber: integer]: integer Read GetPositionFromLine;
-    property Position: integer Read GetPosition Write SetPosition;
-    property Size: integer Read FSize;
+    property AsString: WideString read GetAsString;
+    property Chars[Index: Integer]: WideChar read GetChars;
+    property Content: PWideChar read FContent;
+    property Eof: Boolean read GetEof;
+    property IndexOption: TJclMappedTextReaderIndex read FIndexOption;
+    property Lines[LineNumber: Integer]: WideString read GetLines;
+    property LineCount: Integer read GetLineCount;
+    property PositionFromLine[LineNumber: Integer]: Integer read GetPositionFromLine;
+    property Position: Integer read GetPosition write SetPosition;
+    property Size: Integer read FSize;
   end;
 
 {$ENDIF ~CLR}
@@ -1018,27 +962,27 @@
 type
   TJclFileMaskComparator = class(TObject)
   private
-    FFileMask:  string;
-    FExts:      array of string;
-    FNames:     array of string;
-    FWildChars: array of byte;
-    FSeparator: char;
+    FFileMask: string;
+    FExts: array of string;
+    FNames: array of string;
+    FWildChars: array of Byte;
+    FSeparator: Char;
     procedure CreateMultiMasks;
-    function GetCount: integer;
-    function GetExts(Index: integer): string;
-    function GetMasks(Index: integer): string;
-    function GetNames(Index: integer): string;
+    function GetCount: Integer;
+    function GetExts(Index: Integer): string;
+    function GetMasks(Index: Integer): string;
+    function GetNames(Index: Integer): string;
     procedure SetFileMask(const Value: string);
-    procedure SetSeparator(const Value: char);
+    procedure SetSeparator(const Value: Char);
   public
     constructor Create;
-    function Compare(const NameExt: string): boolean;
-    property Count: integer Read GetCount;
-    property Exts[Index: integer]: string Read GetExts;
-    property FileMask: string Read FFileMask Write SetFileMask;
-    property Masks[Index: integer]: string Read GetMasks;
-    property Names[Index: integer]: string Read GetNames;
-    property Separator: char Read FSeparator Write SetSeparator;
+    function Compare(const NameExt: string): Boolean;
+    property Count: Integer read GetCount;
+    property Exts[Index: Integer]: string read GetExts;
+    property FileMask: string read FFileMask write SetFileMask;
+    property Masks[Index: Integer]: string read GetMasks;
+    property Names[Index: Integer]: string read GetNames;
+    property Separator: Char read FSeparator write SetSeparator;
   end;
 
   EJclPathError = class(EJclError);
@@ -1050,7 +994,6 @@
   EJclTempFileStreamError = class(EJclWin32Error);
   EJclFileMappingError = class(EJclWin32Error);
   EJclFileMappingViewError = class(EJclWin32Error);
-
   {$ENDIF MSWINDOWS}
 
 {$IFDEF KEEP_DEPRECATED}
@@ -1072,56 +1015,53 @@
 
 {$ENDIF KEEP_DEPRECATED}
 
-function SamePath(const Path1, Path2: string): boolean;
+function SamePath(const Path1, Path2: string): Boolean;
 
- // functions to add/delete paths from a separated list of paths
- // on windows the separator is a semi-colon ';'
- // on linux the separator is a colon ':'
- // add items at the end
+// functions to add/delete paths from a separated list of paths
+// on windows the separator is a semi-colon ';'
+// on linux the separator is a colon ':'
+// add items at the end
 procedure PathListAddItems(var List: string; const Items: string);
 // add items at the end if they are not present
 procedure PathListIncludeItems(var List: string; const Items: string);
 // delete multiple items
 procedure PathListDelItems(var List: string; const Items: string);
 // delete one item
-procedure PathListDelItem(var List: string; const Index: integer);
+procedure PathListDelItem(var List: string; const Index: Integer);
 // return the number of item
-function PathListItemCount(const List: string): integer;
+function PathListItemCount(const List: string): Integer;
 // return the Nth item
-function PathListGetItem(const List: string; const Index: integer): string;
+function PathListGetItem(const List: string; const Index: Integer): string;
 // set the Nth item
-procedure PathListSetItem(var List: string; const Index: integer; const Value: string);
+procedure PathListSetItem(var List: string; const Index: Integer; const Value: string);
 // return the index of an item
-function PathListItemIndex(const List, Item: string): integer;
+function PathListItemIndex(const List, Item: string): Integer;
 
 
 // additional functions to access the commandline parameters of an application
 
- // returns the name of the command line parameter at position index, which is
- // separated by the given separator, if the first character of the name part
- // is one of the AllowedPrefixCharacters, this character will be deleted.
-function ParamName(Index: integer; const Separator: string = '=';
-  const AllowedPrefixCharacters: string = '-/';
-  TrimName: boolean = True): string;
- // returns the value of the command line parameter at position index, which is
- // separated by the given separator
-function ParamValue(Index: integer; const Separator: string = '=';
-  TrimValue: boolean = True): string; overload;
- // seaches a command line parameter where the namepart is the searchname
- // and returns the value which is which by the given separator.
- // CaseSensitive defines the search type. if the first character of the name part
- // is one of the AllowedPrefixCharacters, this character will be deleted.
-function ParamValue(const SearchName: string; const Separator: string = '=';
-  CaseSensitive: boolean = False;
-  const AllowedPrefixCharacters: string = '-/';
-  TrimValue: boolean = True): string; overload;
+// returns the name of the command line parameter at position index, which is
+// separated by the given separator, if the first character of the name part
+// is one of the AllowedPrefixCharacters, this character will be deleted.
+function ParamName  (Index : Integer; const Separator : string = '=';
+             const AllowedPrefixCharacters : string = '-/'; TrimName : Boolean = true) : string;
+// returns the value of the command line parameter at position index, which is
+// separated by the given separator
+function ParamValue (Index : Integer; const Separator : string = '='; TrimValue : Boolean = true) : string; overload;
 // seaches a command line parameter where the namepart is the searchname
+// and returns the value which is which by the given separator.
+// CaseSensitive defines the search type. if the first character of the name part
+// is one of the AllowedPrefixCharacters, this character will be deleted.
+function ParamValue (const SearchName : string; const Separator : string = '=';
+             CaseSensitive : Boolean = False;
+             const AllowedPrefixCharacters : string = '-/'; TrimValue : Boolean = true) : string; overload;
+// seaches a command line parameter where the namepart is the searchname
 // and returns the position index. if no separator is defined, the full paramstr is compared.
- // CaseSensitive defines the search type. if the first character of the name part
- // is one of the AllowedPrefixCharacters, this character will be deleted.
-function ParamPos(const SearchName: string; const Separator: string = '=';
-  CaseSensitive: boolean = False;
-  const AllowedPrefixCharacters: string = '-/'): integer;
+// CaseSensitive defines the search type. if the first character of the name part
+// is one of the AllowedPrefixCharacters, this character will be deleted.
+function ParamPos (const SearchName : string; const Separator : string = '=';
+             CaseSensitive : Boolean = False;
+             const AllowedPrefixCharacters : string = '-/'): Integer;
 
 {$IFDEF UNITVERSIONING}
 const
@@ -1167,8 +1107,7 @@
 {$IFNDEF RTL140_UP}
 const
   MinDateTime: TDateTime = -657434.0;      { 0100-01-01T00:00:00.000 }
-  MaxDateTime: TDateTime = 2958465.99999;
-{ 9999-12-31T23:59:59.999 }
+  MaxDateTime: TDateTime =  2958465.99999; { 9999-12-31T23:59:59.999 }
 {$ENDIF ~RTL140_UP}
 
 {$IFDEF UNIX}
@@ -1208,7 +1147,7 @@
   {$IFDEF CLR}
   inherited Create(FileCreateTemp(FFileName));
   {$ELSE ~CLR}
-  FFileName  := Prefix;
+  FFileName := Prefix;
   FileHandle := FileCreateTemp(FFileName);
   // (rom) is it really wise to throw an exception before calling inherited?
   if FileHandle = INVALID_HANDLE_VALUE then
@@ -1234,10 +1173,10 @@
 {$IFDEF MSWINDOWS}
 
 constructor TJclFileMappingView.Create(const FileMap: TJclCustomFileMapping;
-  Access, Size: cardinal; ViewOffset: int64);
+  Access, Size: Cardinal; ViewOffset: Int64);
 var
   BaseAddress: Pointer;
-  OffsetLow, OffsetHigh: cardinal;
+  OffsetLow, OffsetHigh: Cardinal;
 begin
   inherited Create;
   if FileMap = nil then
@@ -1247,9 +1186,8 @@
   RoundToAllocGranularity64(ViewOffset, FFileMapping.RoundViewOffset = rvUp);
   I64ToCardinals(ViewOffset, OffsetLow, OffsetHigh);
   FOffsetHigh := OffsetHigh;
-  FOffsetLow  := OffsetLow;
-  BaseAddress := MapViewOfFile(FFileMapping.Handle, Access, FOffsetHigh,
-    FOffsetLow, Size);
+  FOffsetLow := OffsetLow;
+  BaseAddress := MapViewOfFile(FFileMapping.Handle, Access, FOffsetHigh, FOffsetLow, Size);
   if BaseAddress = nil then
     raise EJclFileMappingViewError.CreateRes(@RsCreateFileMappingView);
   // If we are mapping a file and size = 0 then MapViewOfFile has mapped the entire file. We must
@@ -1270,10 +1208,10 @@
 end;
 
 constructor TJclFileMappingView.CreateAt(FileMap: TJclCustomFileMapping;
-  Access, Size: cardinal; ViewOffset: int64; Address: Pointer);
+  Access, Size: Cardinal; ViewOffset: Int64; Address: Pointer);
 var
   BaseAddress: Pointer;
-  OffsetLow, OffsetHigh: cardinal;
+  OffsetLow, OffsetHigh: Cardinal;
 begin
   inherited Create;
   if FileMap = nil then
@@ -1284,9 +1222,9 @@
   RoundToAllocGranularityPtr(Address, FFileMapping.RoundViewOffset = rvUp);
   I64ToCardinals(ViewOffset, OffsetLow, OffsetHigh);
   FOffsetHigh := OffsetHigh;
-  FOffsetLow  := OffsetLow;
-  BaseAddress := MapViewOfFileEx(FFileMapping.Handle, Access,
-    FOffsetHigh, FOffsetLow, Size, Address);
+  FOffsetLow := OffsetLow;
+  BaseAddress := MapViewOfFileEx(FFileMapping.Handle, Access, FOffsetHigh,
+    FOffsetLow, Size, Address);
   if BaseAddress = nil then
     raise EJclFileMappingViewError.CreateRes(@RsCreateFileMappingView);
   // If we are mapping a file and size = 0 then MapViewOfFile has mapped the entire file. We must
@@ -1308,7 +1246,7 @@
 
 destructor TJclFileMappingView.Destroy;
 var
-  IndexOfSelf: integer;
+  IndexOfSelf: Integer;
 begin
   if Memory <> nil then
   begin
@@ -1324,17 +1262,17 @@
   inherited Destroy;
 end;
 
-function TJclFileMappingView.Flush(const Count: cardinal): boolean;
+function TJclFileMappingView.Flus...
 
[truncated message content]

[Jcl-checkins-diff] SF.net SVN: jcl:[2829] trunk/jcl/source/common/JclFileUtils.pas

From: <sf...@us...> - 2009-06-26 16:36:02

Revision: 2829
          http://jcl.svn.sourceforge.net/jcl/?rev=2829&view=rev
Author:   sfarrow
Date:     2009-06-26 16:35:29 +0000 (Fri, 26 Jun 2009)

Log Message:
-----------
Added FileVersionMajor, FileVersionMinor, FileVersionBuild and FileVersionRevision proverties and GetFileVersion* functions along withequivalents for ProductVersion to the TJclFileVersionInfo class.

Modified Paths:
--------------
    trunk/jcl/source/common/JclFileUtils.pas

Modified: trunk/jcl/source/common/JclFileUtils.pas
===================================================================
--- trunk/jcl/source/common/JclFileUtils.pas	2009-06-22 19:23:22 UTC (rev 2828)
+++ trunk/jcl/source/common/JclFileUtils.pas	2009-06-26 16:35:29 UTC (rev 2829)
@@ -1,20 +1,20 @@
 {**************************************************************************************************}
-{                                                                                                  }
+
 { 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 JclFileUtils.pas.                                                           }
-{                                                                                                  }
+
 { The Initial Developer of the Original Code is Marcel van Brakel.                                 }
 { Portions created by Marcel van Brakel are Copyright (C) Marcel van Brakel. All rights reserved.  }
-{                                                                                                  }
+
 { Contributors:                                                                                    }
 {   Andre Snepvangers (asnepvangers)                                                               }
 {   Andreas Hausladen (ahuser)                                                                     }
@@ -39,22 +39,22 @@
 {   Rudy Velthuis                                                                                  }
 {   Scott Price                                                                                    }
 {   Wim De Cleen                                                                                   }
-{                                                                                                  }
+
 {**************************************************************************************************}
-{                                                                                                  }
+
 { This unit contains routines and classes for working with files, directories and path strings.    }
 { Additionally it contains wrapper classes for file mapping objects and version resources.         }
 { Generically speaking, everything that has to do with files and directories. Note that filesystem }
 { specific functionality has been extracted into external units, for example JclNTFS which         }
 { contains NTFS specific utility routines, and that the JclShell unit contains some file related   }
 { routines as well but they are specific to the Windows shell.                                     }
-{                                                                                                  }
+
 {**************************************************************************************************}
-{                                                                                                  }
+
 { Last modified: $Date::                                                                         $ }
 { Revision:      $Rev::                                                                          $ }
 { Author:        $Author::                                                                       $ }
-{                                                                                                  }
+
 {**************************************************************************************************}
 
 unit JclFileUtils;
@@ -112,7 +112,7 @@
 {$ENDIF KYLIX}
 
 // Path Manipulation
-//
+
 // Various support routines for working with path strings. For example, building a path from
 // elements or extracting the elements from a path, interpretation of paths and transformations of
 // paths.
@@ -129,8 +129,8 @@
   {$IFDEF KEEP_DEPRECATED}
   PathSeparator    = '\';
   {$ENDIF KEEP_DEPRECATED}
-  DirDelimiter = '\';
-  DirSeparator = ';';
+  DirDelimiter     = '\';
+  DirSeparator     = ';';
   PathUncPrefix    = '\\';
   {$ENDIF MSWINDOWS}
 
@@ -148,30 +148,32 @@
   // Please see QC report 6003 for details, available online at this URL:
   // http://qc.embarcadero.com/wc/qcmain.aspx?d=6003
   faRejectedByDefault = faHidden + faSysFile + faDirectory;
-  faWindowsSpecific   = faArchive + faTemporary + faSparseFile + faReparsePoint +
-                        faCompressed + faOffline + faNotContentIndexed + faEncrypted;
+  faWindowsSpecific   = faArchive + faTemporary + faSparseFile +
+    faReparsePoint + faCompressed + faOffline +
+    faNotContentIndexed + faEncrypted;
   faUnixSpecific      = faSymLink;
 
 type
   TCompactPath = ({cpBegin, }cpCenter, cpEnd);
 
-function CharIsDriveLetter(const C: char): Boolean;
+function CharIsDriveLetter(const C: char): boolean;
 
 function PathAddSeparator(const Path: string): string;
 function PathAddExtension(const Path, Extension: string): string;
 function PathAppend(const Path, Append: string): string;
-function PathBuildRoot(const Drive: Byte): string;
+function PathBuildRoot(const Drive: byte): string;
 function PathCanonicalize(const Path: string): string;
-function PathCommonPrefix(const Path1, Path2: string): Integer;
+function PathCommonPrefix(const Path1, Path2: string): integer;
 {$IFDEF Win32API}
 function PathCompactPath(const DC: HDC; const Path: string; const Width: Integer;
   CmpFmt: TCompactPath): string;
 {$ENDIF Win32API}
-procedure PathExtractElements(const Source: string; var Drive, Path, FileName, Ext: string);
+procedure PathExtractElements(const Source: string;
+  var Drive, Path, FileName, Ext: string);
 function PathExtractFileDirFixed(const S: string): string;
 function PathExtractFileNameNoExt(const Path: string): string;
-function PathExtractPathDepth(const Path: string; Depth: Integer): string;
-function PathGetDepth(const Path: string): Integer;
+function PathExtractPathDepth(const Path: string; Depth: integer): string;
+function PathGetDepth(const Path: string): integer;
 {$IFDEF Win32API}
 function PathGetLongName(const Path: string): string;
 function PathGetShortName(const Path: string): string;
@@ -182,50 +184,55 @@
 {$ENDIF CLR}
 function PathGetRelativePath(Origin, Destination: string): string;
 function PathGetTempPath: string;
-function PathIsAbsolute(const Path: string): Boolean;
-function PathIsChild(const Path, Base: string): Boolean;
-function PathIsDiskDevice(const Path: string): Boolean;
-function PathIsUNC(const Path: string): Boolean;
+function PathIsAbsolute(const Path: string): boolean;
+function PathIsChild(const Path, Base: string): boolean;
+function PathIsDiskDevice(const Path: string): boolean;
+function PathIsUNC(const Path: string): boolean;
 function PathRemoveSeparator(const Path: string): string;
 function PathRemoveExtension(const Path: string): string;
 
-// Windows Vista uses localized path names in the Windows Explorer but these
-// folders do not really exist on disk. This causes all I/O operations to fail
-// if the user specifies such a localized directory like "C:\Benutzer\MyName\Bilder"
-// instead of the physical folder "C:\Users\MyName\Pictures".
-// These two functions allow to convert the user's input from localized to
-// physical paths and vice versa.
+ // Windows Vista uses localized path names in the Windows Explorer but these
+ // folders do not really exist on disk. This causes all I/O operations to fail
+ // if the user specifies such a localized directory like "C:\Benutzer\MyName\Bilder"
+ // instead of the physical folder "C:\Users\MyName\Pictures".
+ // These two functions allow to convert the user's input from localized to
+ // physical paths and vice versa.
 function PathGetPhysicalPath(const LocalizedPath: string): string;
 function PathGetLocalizedPath(const PhysicalPath: string): string;
 
 // Files and Directories
-//
+
 // Routines for working with files and directories. Includes routines to extract various file
 // attributes or update them, volume locking and routines for creating temporary files.
 type
-  TDelTreeProgress = function (const FileName: string; Attr: DWORD): Boolean;
-  TFileListOption  = (flFullNames, flRecursive, flMaskedSubfolders);
-  TFileListOptions = set of TFileListOption;
+  TDelTreeProgress = function(const FileName: string; Attr: DWORD): boolean;
+  TFileListOption    = (flFullNames, flRecursive, flMaskedSubfolders);
+  TFileListOptions   = set of TFileListOption;
   TJclAttributeMatch = (amAny, amExact, amSubSetOf, amSuperSetOf, amCustom);
-  TFileMatchFunc = function(const Attr: Integer; const FileInfo: TSearchRec): Boolean;
-  TFileHandler = procedure (const FileName: string) of object;
-  TFileHandlerEx = procedure (const Directory: string; const FileInfo: TSearchRec) of object;
+  TFileMatchFunc     = function(const Attr: integer; const FileInfo: TSearchRec): boolean;
+  TFileHandler   = procedure(const FileName: string) of object;
+  TFileHandlerEx = procedure(const Directory: string;
+    const FileInfo: TSearchRec) of object;
 
-function BuildFileList(const Path: string; const Attr: Integer; const List: TStrings): Boolean;
-function AdvBuildFileList(const Path: string; const Attr: Integer; const Files: TStrings;
-  const AttributeMatch: TJclAttributeMatch = amSuperSetOf; const Options: TFileListOptions = [];
-  const SubfoldersMask: string = ''; const FileMatchFunc: TFileMatchFunc = nil): Boolean;
-function VerifyFileAttributeMask(var RejectedAttributes, RequiredAttributes: Integer): Boolean;
+function BuildFileList(const Path: string; const Attr: integer;
+  const List: TStrings): boolean;
+function AdvBuildFileList(const Path: string; const Attr: integer;
+  const Files: TStrings; const AttributeMatch: TJclAttributeMatch = amSuperSetOf;
+  const Options: TFileListOptions = []; const SubfoldersMask: string = '';
+  const FileMatchFunc: TFileMatchFunc = nil): boolean;
+function VerifyFileAttributeMask(
+  var RejectedAttributes, RequiredAttributes: integer): boolean;
 function IsFileAttributeMatch(FileAttributes, RejectedAttributes,
-  RequiredAttributes: Integer): Boolean;
+  RequiredAttributes: integer): boolean;
 function FileAttributesStr(const FileInfo: TSearchRec): string;
 function IsFileNameMatch(FileName: string; const Mask: string;
-  const CaseSensitive: Boolean = {$IFDEF MSWINDOWS} False {$ELSE} True {$ENDIF}): Boolean;
+  const CaseSensitive: boolean = {$IFDEF MSWINDOWS} False
+ {$ELSE} True {$ENDIF}): boolean;
 procedure EnumFiles(const Path: string; HandleFile: TFileHandlerEx;
-  RejectedAttributes: Integer = faRejectedByDefault; RequiredAttributes: Integer = 0;
+  RejectedAttributes: integer = faRejectedByDefault; RequiredAttributes: integer = 0;
   Abort: PBoolean = nil);
 procedure EnumDirectories(const Root: string; const HandleDirectory: TFileHandler;
-  const IncludeHiddenDirectories: Boolean = False; const SubDirectoriesMask: string = '';
+  const IncludeHiddenDirectories: boolean = False; const SubDirectoriesMask: string = '';
   Abort: PBoolean = nil {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF});
 {$IFDEF MSWINDOWS}
 procedure CreateEmptyFile(const FileName: string);
@@ -241,42 +248,50 @@
 function DelTreeEx(const Path: string; AbortOnFailure: Boolean; Progress: TDelTreeProgress): Boolean;
 function DiskInDrive(Drive: Char): Boolean;
 {$ENDIF Win32API}
-function DirectoryExists(const Name: string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): Boolean;
+function DirectoryExists(const Name:
+  string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): boolean;
 {$IFDEF CLR}
 function FileCreateTemp(var Prefix: string): System.IO.Stream;
 {$ELSE ~CLR}
 function FileCreateTemp(var Prefix: string): THandle;
 {$ENDIF ~CLR}
-function FileBackup(const FileName: string; Move: Boolean = False): Boolean;
-function FileCopy(const ExistingFileName, NewFileName: string; ReplaceExisting: Boolean = False): Boolean;
-function FileDelete(const FileName: string {$IFNDEF CLR}; MoveToRecycleBin: Boolean = False {$ENDIF}): Boolean;
-function FileExists(const FileName: string): Boolean;
-function FileMove(const ExistingFileName, NewFileName: string; ReplaceExisting: Boolean = False): Boolean;
-function FileRestore(const FileName: string): Boolean;
+function FileBackup(const FileName: string; Move: boolean = False): boolean;
+function FileCopy(const ExistingFileName, NewFileName: string;
+  ReplaceExisting: boolean = False): boolean;
+function FileDelete(const FileName: string {$IFNDEF CLR};
+  MoveToRecycleBin: boolean = False {$ENDIF}): boolean;
+function FileExists(const FileName: string): boolean;
+function FileMove(const ExistingFileName, NewFileName: string;
+  ReplaceExisting: boolean = False): boolean;
+function FileRestore(const FileName: string): boolean;
 function GetBackupFileName(const FileName: string): string;
-function IsBackupFileName(const FileName: string): Boolean;
+function IsBackupFileName(const FileName: string): boolean;
 function FileGetDisplayName(const FileName: string): string;
 {$IFNDEF CLR}
-function FileGetGroupName(const FileName: string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): string;
-function FileGetOwnerName(const FileName: string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): string;
+function FileGetGroupName(const FileName:
+  string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): string;
+function FileGetOwnerName(const FileName:
+  string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): string;
 {$ENDIF ~CLR}
-function FileGetSize(const FileName: string): Int64;
+function FileGetSize(const FileName: string): int64;
 function FileGetTempName(const Prefix: string): string;
 {$IFDEF Win32API}
 function FileGetTypeName(const FileName: string): string;
 {$ENDIF Win32API}
-function FindUnusedFileName(FileName: string; const FileExt: string; NumberPrefix: string = ''): string;
-function ForceDirectories(Name: string): Boolean;
-function GetDirectorySize(const Path: string): Int64;
+function FindUnusedFileName(FileName: string; const FileExt: string;
+  NumberPrefix: string = ''): string;
+function ForceDirectories(Name: string): boolean;
+function GetDirectorySize(const Path: string): int64;
 {$IFDEF Win32API}
 function GetDriveTypeStr(const Drive: Char): string;
 function GetFileAgeCoherence(const FileName: string): Boolean;
 {$ENDIF Win32API}
-procedure GetFileAttributeList(const Items: TStrings; const Attr: Integer);
+procedure GetFileAttributeList(const Items: TStrings; const Attr: integer);
 {$IFDEF Win32API}
 procedure GetFileAttributeListEx(const Items: TStrings; const Attr: Integer);
 {$ENDIF Win32API}
-function GetFileInformation(const FileName: string; out FileInfo: TSearchRec): Boolean; overload;
+function GetFileInformation(const FileName: string; out FileInfo: TSearchRec): boolean;
+  overload;
 function GetFileInformation(const FileName: string): TSearchRec; overload;
 {$IFDEF UNIX}
 function GetFileStatus(const FileName: string; out StatBuf: TStatBuf64;
@@ -284,11 +299,14 @@
 {$ENDIF UNIX}
 {$IFDEF MSWINDOWS}
 function GetFileLastWrite(const FileName: string): TFileTime; overload;
-function GetFileLastWrite(const FileName: string; out LocalTime: TDateTime): Boolean; overload;
+function GetFileLastWrite(const FileName: string; out LocalTime: TDateTime): boolean;
+  overload;
 function GetFileLastAccess(const FileName: string): TFileTime; overload;
-function GetFileLastAccess(const FileName: string; out LocalTime: TDateTime): Boolean; overload;
+function GetFileLastAccess(const FileName: string; out LocalTime: TDateTime): boolean;
+  overload;
 function GetFileCreation(const FileName: string): TFileTime; overload;
-function GetFileCreation(const FileName: string; out LocalTime: TDateTime): Boolean; overload;
+function GetFileCreation(const FileName: string; out LocalTime: TDateTime): boolean;
+  overload;
 {$ENDIF MSWINDOWS}
 {$IFDEF UNIX}
 function GetFileLastWrite(const FileName: string; out TimeStamp: Integer; ResolveSymLinks: Boolean = True): Boolean; overload;
@@ -304,30 +322,31 @@
 {$IFNDEF CLR}
 function GetModulePath(const Module: HMODULE): string;
 {$ENDIF ~CLR}
-function GetSizeOfFile(const FileName: string): Int64; overload;
-function GetSizeOfFile(const FileInfo: TSearchRec): Int64; overload;
+function GetSizeOfFile(const FileName: string): int64; overload;
+function GetSizeOfFile(const FileInfo: TSearchRec): int64; overload;
 {$IFDEF Win32API}
 function GetSizeOfFile(Handle: THandle): Int64; overload;
 function GetStandardFileInfo(const FileName: string): TWin32FileAttributeData;
 {$ENDIF Win32API}
-function IsDirectory(const FileName: string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): Boolean;
-function IsRootDirectory(const CanonicFileName: string): Boolean;
+function IsDirectory(const FileName:
+  string {$IFDEF UNIX}; ResolveSymLinks: Boolean = True {$ENDIF}): boolean;
+function IsRootDirectory(const CanonicFileName: string): boolean;
 {$IFDEF MSWINDOWS}
 {$IFNDEF CLR}
-function LockVolume(const Volume: string; var Handle: THandle): Boolean;
-function OpenVolume(const Drive: Char): THandle;
+function LockVolume(const Volume: string; var Handle: THandle): boolean;
+function OpenVolume(const Drive: char): THandle;
 {$ENDIF ~CLR}
-function SetDirLastWrite(const DirName: string; const DateTime: TDateTime): Boolean;
-function SetDirLastAccess(const DirName: string; const DateTime: TDateTime): Boolean;
-function SetDirCreation(const DirName: string; const DateTime: TDateTime): Boolean;
+function SetDirLastWrite(const DirName: string; const DateTime: TDateTime): boolean;
+function SetDirLastAccess(const DirName: string; const DateTime: TDateTime): boolean;
+function SetDirCreation(const DirName: string; const DateTime: TDateTime): boolean;
 {$ENDIF MSWINDOWS}
-function SetFileLastWrite(const FileName: string; const DateTime: TDateTime): Boolean;
-function SetFileLastAccess(const FileName: string; const DateTime: TDateTime): Boolean;
+function SetFileLastWrite(const FileName: string; const DateTime: TDateTime): boolean;
+function SetFileLastAccess(const FileName: string; const DateTime: TDateTime): boolean;
 {$IFDEF MSWINDOWS}
-function SetFileCreation(const FileName: string; const DateTime: TDateTime): Boolean;
-procedure ShredFile(const FileName: string; Times: Integer = 1);
+function SetFileCreation(const FileName: string; const DateTime: TDateTime): boolean;
+procedure ShredFile(const FileName: string; Times: integer = 1);
 {$IFNDEF CLR}
-function UnlockVolume(var Handle: THandle): Boolean;
+function UnlockVolume(var Handle: THandle): boolean;
 {$ENDIF ~CLR}
 {$ENDIF MSWINDOWS}
 
@@ -338,17 +357,17 @@
 {$ENDIF UNIX}
 
 // TJclFileAttributeMask
-//
+
 // File search helper class, allows to specify required/rejected attributes
 type
   TAttributeInterest = (aiIgnored, aiRejected, aiRequired);
 
   TJclCustomFileAttrMask = class(TPersistent)
   private
-    FRequiredAttr: Integer;
-    FRejectedAttr: Integer;
-    function GetAttr(Index: Integer): TAttributeInterest;
-    procedure SetAttr(Index: Integer; const Value: TAttributeInterest);
+    FRequiredAttr: integer;
+    FRejectedAttr: integer;
+    function GetAttr(Index: integer): TAttributeInterest;
+    procedure SetAttr(Index: integer; const Value: TAttributeInterest);
     procedure ReadRequiredAttributes(Reader: TReader);
     procedure ReadRejectedAttributes(Reader: TReader);
     procedure WriteRequiredAttributes(Writer: TWriter);
@@ -356,42 +375,43 @@
   protected
     procedure DefineProperties(Filer: TFiler); override;
     property ReadOnly: TAttributeInterest index faReadOnly
-      read GetAttr write SetAttr stored False;
+      Read GetAttr Write SetAttr stored False;
     property Hidden: TAttributeInterest index faHidden
-      read GetAttr write SetAttr stored False;
+      Read GetAttr Write SetAttr stored False;
     property System: TAttributeInterest index faSysFile
-      read GetAttr write SetAttr stored False;
+      Read GetAttr Write SetAttr stored False;
     property Directory: TAttributeInterest index faDirectory
-      read GetAttr write SetAttr stored False;
+      Read GetAttr Write SetAttr stored False;
     property SymLink: TAttributeInterest index faSymLink
-      read GetAttr write SetAttr stored False;
+      Read GetAttr Write SetAttr stored False;
     property Normal: TAttributeInterest index faNormalFile
-      read GetAttr write SetAttr stored False;
+      Read GetAttr Write SetAttr stored False;
     property Archive: TAttributeInterest index faArchive
-      read GetAttr write SetAttr stored False;
+      Read GetAttr Write SetAttr stored False;
     property Temporary: TAttributeInterest index faTemporary
-      read GetAttr write SetAttr stored False;
+      Read GetAttr Write SetAttr stored False;
     property SparseFile: TAttributeInterest index faSparseFile
-      read GetAttr write SetAttr stored False;
+      Read GetAttr Write SetAttr stored False;
     property ReparsePoint: TAttributeInterest index faReparsePoint
-      read GetAttr write SetAttr stored False;
+      Read GetAttr Write SetAttr stored False;
     property Compressed: TAttributeInterest index faCompressed
-      read GetAttr write SetAttr stored False;
+      Read GetAttr Write SetAttr stored False;
     property OffLine: TAttributeInterest index faOffline
-      read GetAttr write SetAttr stored False;
+      Read GetAttr Write SetAttr stored False;
     property NotContentIndexed: TAttributeInterest index faNotContentIndexed
-      read GetAttr write SetAttr stored False;
+      Read GetAttr Write SetAttr stored False;
     property Encrypted: TAttributeInterest index faEncrypted
-      read GetAttr write SetAttr stored False;
+      Read GetAttr Write SetAttr stored False;
   public
     constructor Create;
     procedure Assign(Source: TPersistent); override;
     procedure Clear;
-    function Match(FileAttributes: Integer): Boolean; overload;
-    function Match(const FileInfo: TSearchRec): Boolean; overload;
-    property Required: Integer read FRequiredAttr write FRequiredAttr;
-    property Rejected: Integer read FRejectedAttr write FRejectedAttr;
-    property Attribute[Index: Integer]: TAttributeInterest read GetAttr write SetAttr; default;
+    function Match(FileAttributes: integer): boolean; overload;
+    function Match(const FileInfo: TSearchRec): boolean; overload;
+    property Required: integer Read FRequiredAttr Write FRequiredAttr;
+    property Rejected: integer Read FRejectedAttr Write FRejectedAttr;
+    property Attribute[Index: integer]: TAttributeInterest Read GetAttr Write SetAttr;
+      default;
   end;
 
   TJclFileAttributeMask = class(TJclCustomFileAttrMask)
@@ -421,53 +441,55 @@
   end;
 
 // IJclFileEnumerator / TJclFileEnumerator
-//
+
 // Interface / class for thread-based file search
 type
-  TFileSearchOption = (fsIncludeSubDirectories, fsIncludeHiddenSubDirectories, fsLastChangeAfter,
+  TFileSearchOption           = (fsIncludeSubDirectories, fsIncludeHiddenSubDirectories,
+    fsLastChangeAfter,
     fsLastChangeBefore, fsMaxSize, fsMinSize);
-  TFileSearchOptions = set of TFileSearchOption;
-  TFileSearchTaskID = Integer;
-  TFileSearchTerminationEvent = procedure (const ID: TFileSearchTaskID; const Aborted: Boolean) of object;
+  TFileSearchOptions          = set of TFileSearchOption;
+  TFileSearchTaskID           = integer;
+  TFileSearchTerminationEvent = procedure(const ID: TFileSearchTaskID;
+    const Aborted: boolean) of object;
   TFileEnumeratorSyncMode = (smPerFile, smPerDirectory);
 
   IJclFileEnumerator = interface
     ['{F7E747ED-1C41-441F-B25B-BB314E00C4E9}']
     // property access methods
     function GetAttributeMask: TJclFileAttributeMask;
-    function GetCaseSensitiveSearch: Boolean;
+    function GetCaseSensitiveSearch: boolean;
     function GetRootDirectory: string;
     function GetFileMask: string;
     function GetFileMasks: TStrings;
-    function GetFileSizeMax: Int64;
-    function GetFileSizeMin: Int64;
-    function GetIncludeSubDirectories: Boolean;
-    function GetIncludeHiddenSubDirectories: Boolean;
+    function GetFileSizeMax: int64;
+    function GetFileSizeMin: int64;
+    function GetIncludeSubDirectories: boolean;
+    function GetIncludeHiddenSubDirectories: boolean;
     function GetLastChangeAfter: TDateTime;
     function GetLastChangeBefore: TDateTime;
     function GetLastChangeAfterStr: string;
     function GetLastChangeBeforeStr: string;
-    function GetRunningTasks: Integer;
+    function GetRunningTasks: integer;
     function GetSubDirectoryMask: string;
     function GetSynchronizationMode: TFileEnumeratorSyncMode;
     function GetOnEnterDirectory: TFileHandler;
     function GetOnTerminateTask: TFileSearchTerminationEvent;
-    function GetOption(const Option: TFileSearchOption): Boolean;
+    function GetOption(const Option: TFileSearchOption): boolean;
     function GetOptions: TFileSearchoptions;
     procedure SetAttributeMask(const Value: TJclFileAttributeMask);
-    procedure SetCaseSensitiveSearch(const Value: Boolean);
+    procedure SetCaseSensitiveSearch(const Value: boolean);
     procedure SetRootDirectory(const Value: string);
     procedure SetFileMask(const Value: string);
     procedure SetFileMasks(const Value: TStrings);
-    procedure SetFileSizeMax(const Value: Int64);
-    procedure SetFileSizeMin(const Value: Int64);
-    procedure SetIncludeSubDirectories(const Value: Boolean);
-    procedure SetIncludeHiddenSubDirectories(const Value: Boolean);
+    procedure SetFileSizeMax(const Value: int64);
+    procedure SetFileSizeMin(const Value: int64);
+    procedure SetIncludeSubDirectories(const Value: boolean);
+    procedure SetIncludeHiddenSubDirectories(const Value: boolean);
     procedure SetLastChangeAfter(const Value: TDateTime);
     procedure SetLastChangeBefore(const Value: TDateTime);
     procedure SetLastChangeAfterStr(const Value: string);
     procedure SetLastChangeBeforeStr(const Value: string);
-    procedure SetOption(const Option: TFileSearchOption; const Value: Boolean);
+    procedure SetOption(const Option: TFileSearchOption; const Value: boolean);
     procedure SetOptions(const Value: TFileSearchOptions);
     procedure SetSubDirectoryMask(const Value: string);
     procedure SetSynchronizationMode(const Value: TFileEnumeratorSyncMode);
@@ -478,62 +500,70 @@
     function ForEach(Handler: TFileHandler): TFileSearchTaskID; overload;
     function ForEach(Handler: TFileHandlerEx): TFileSearchTaskID; overload;
     procedure StopTask(ID: TFileSearchTaskID);
-    procedure StopAllTasks(Silently: Boolean = False); // Silently: Don't call OnTerminateTask
+    procedure StopAllTasks(Silently: boolean = False);
+    // Silently: Don't call OnTerminateTask
     // properties
-    property CaseSensitiveSearch: Boolean read GetCaseSensitiveSearch write SetCaseSensitiveSearch;
-    property RootDirectory: string read GetRootDirectory write SetRootDirectory;
-    property FileMask: string read GetFileMask write SetFileMask;
-    property SubDirectoryMask: string read GetSubDirectoryMask write SetSubDirectoryMask;
-    property AttributeMask: TJclFileAttributeMask read GetAttributeMask write SetAttributeMask;
-    property FileSizeMin: Int64 read GetFileSizeMin write SetFileSizeMin;
-    property FileSizeMax: Int64 read GetFileSizeMax write SetFileSizeMax; // default InvalidFileSize;
-    property LastChangeAfter: TDateTime read GetLastChangeAfter write SetLastChangeAfter;
-    property LastChangeBefore: TDateTime read GetLastChangeBefore write SetLastChangeBefore;
-    property LastChangeAfterAsString: string read GetLastChangeAfterStr write SetLastChangeAfterStr;
-    property LastChangeBeforeAsString: string read GetLastChangeBeforeStr write SetLastChangeBeforeStr;
-    property IncludeSubDirectories: Boolean read GetIncludeSubDirectories
-      write SetIncludeSubDirectories;
-    property IncludeHiddenSubDirectories: Boolean read GetIncludeHiddenSubDirectories
-      write SetIncludeHiddenSubDirectories;
-    property RunningTasks: Integer read GetRunningTasks;
-    property SynchronizationMode: TFileEnumeratorSyncMode read GetSynchronizationMode
-      write SetSynchronizationMode;
-    property OnEnterDirectory: TFileHandler read GetOnEnterDirectory write SetOnEnterDirectory;
-    property OnTerminateTask: TFileSearchTerminationEvent read GetOnTerminateTask
-      write SetOnTerminateTask;
+    property CaseSensitiveSearch: boolean Read GetCaseSensitiveSearch
+      Write SetCaseSensitiveSearch;
+    property RootDirectory: string Read GetRootDirectory Write SetRootDirectory;
+    property FileMask: string Read GetFileMask Write SetFileMask;
+    property SubDirectoryMask: string Read GetSubDirectoryMask Write SetSubDirectoryMask;
+    property AttributeMask: TJclFileAttributeMask
+      Read GetAttributeMask Write SetAttributeMask;
+    property FileSizeMin: int64 Read GetFileSizeMin Write SetFileSizeMin;
+    property FileSizeMax: int64 Read GetFileSizeMax Write SetFileSizeMax;
+    // default InvalidFileSize;
+    property LastChangeAfter: TDateTime Read GetLastChangeAfter Write SetLastChangeAfter;
+    property LastChangeBefore: TDateTime Read GetLastChangeBefore
+      Write SetLastChangeBefore;
+    property LastChangeAfterAsString: string
+      Read GetLastChangeAfterStr Write SetLastChangeAfterStr;
+    property LastChangeBeforeAsString: string
+      Read GetLastChangeBeforeStr Write SetLastChangeBeforeStr;
+    property IncludeSubDirectories: boolean
+      Read GetIncludeSubDirectories Write SetIncludeSubDirectories;
+    property IncludeHiddenSubDirectories: boolean
+      Read GetIncludeHiddenSubDirectories Write SetIncludeHiddenSubDirectories;
+    property RunningTasks: integer Read GetRunningTasks;
+    property SynchronizationMode: TFileEnumeratorSyncMode
+      Read GetSynchronizationMode Write SetSynchronizationMode;
+    property OnEnterDirectory: TFileHandler Read GetOnEnterDirectory
+      Write SetOnEnterDirectory;
+    property OnTerminateTask: TFileSearchTerminationEvent
+      Read GetOnTerminateTask Write SetOnTerminateTask;
   end;
 
   TJclFileEnumerator = class(TPersistent, IJclFileEnumerator)
   private
     {$IFNDEF CLR}
-    FOwnerInterface: IInterface;
+    FOwnerInterface:  IInterface;
     {$ENDIF ~CLR}
-    FTasks: TList;
-    FFileMasks: TStringList;
-    FRootDirectory: string;
+    FTasks:           TList;
+    FFileMasks:       TStringList;
+    FRootDirectory:   string;
     FSubDirectoryMask: string;
     FOnEnterDirectory: TFileHandler;
     FOnTerminateTask: TFileSearchTerminationEvent;
-    FNextTaskID: TFileSearchTaskID;
-    FAttributeMask: TJclFileAttributeMask;
+    FNextTaskID:      TFileSearchTaskID;
+    FAttributeMask:   TJclFileAttributeMask;
     FSynchronizationMode: TFileEnumeratorSyncMode;
-    FFileSizeMin: Int64;
-    FFileSizeMax: Int64;
+    FFileSizeMin:     int64;
+    FFileSizeMax:     int64;
     FLastChangeBefore: TDateTime;
     FLastChangeAfter: TDateTime;
-    FOptions: TFileSearchOptions;
-    FCaseSensitiveSearch: Boolean;
-    function IsLastChangeAfterStored: Boolean;
-    function IsLastChangeBeforeStored: Boolean;
+    FOptions:         TFileSearchOptions;
+    FCaseSensitiveSearch: boolean;
+    function IsLastChangeAfterStored: boolean;
+    function IsLastChangeBeforeStored: boolean;
     function GetNextTaskID: TFileSearchTaskID;
-    function GetCaseSensitiveSearch: Boolean;
-    procedure SetCaseSensitiveSearch(const Value: Boolean);
+    function GetCaseSensitiveSearch: boolean;
+    procedure SetCaseSensitiveSearch(const Value: boolean);
   protected
     {$IFNDEF CLR}
-    FRefCount: Integer;
+    FRefCount: integer;
     function QueryInterface(const IID: TGUID; out Obj): HRESULT; virtual; stdcall;
-    function _AddRef: Integer; stdcall;
-    function _Release: Integer; stdcall;
+    function _AddRef: integer; stdcall;
+    function _Release: integer; stdcall;
     {$ENDIF ~CLR}
     function CreateTask: TThread;
     procedure TaskTerminated(Sender: TObject);
@@ -542,17 +572,17 @@
     function GetRootDirectory: string;
     function GetFileMask: string;
     function GetFileMasks: TStrings;
-    function GetFileSizeMax: Int64;
-    function GetFileSizeMin: Int64;
-    function GetIncludeSubDirectories: Boolean;
-    function GetIncludeHiddenSubDirectories: Boolean;
+    function GetFileSizeMax: int64;
+    function GetFileSizeMin: int64;
+    function GetIncludeSubDirectories: boolean;
+    function GetIncludeHiddenSubDirectories: boolean;
     function GetLastChangeAfter: TDateTime;
     function GetLastChangeBefore: TDateTime;
     function GetLastChangeAfterStr: string;
     function GetLastChangeBeforeStr: string;
-    function GetOption(const Option: TFileSearchOption): Boolean;
+    function GetOption(const Option: TFileSearchOption): boolean;
     function GetOptions: TFileSearchoptions;
-    function GetRunningTasks: Integer;
+    function GetRunningTasks: integer;
     function GetSubDirectoryMask: string;
     function GetSynchronizationMode: TFileEnumeratorSyncMode;
     function GetOnEnterDirectory: TFileHandler;
@@ -561,21 +591,21 @@
     procedure SetRootDirectory(const Value: string);
     procedure SetFileMask(const Value: string);
     procedure SetFileMasks(const Value: TStrings);
-    procedure SetFileSizeMax(const Value: Int64);
-    procedure SetFileSizeMin(const Value: Int64);
-    procedure SetIncludeSubDirectories(const Value: Boolean);
-    procedure SetIncludeHiddenSubDirectories(const Value: Boolean);
+    procedure SetFileSizeMax(const Value: int64);
+    procedure SetFileSizeMin(const Value: int64);
+    procedure SetIncludeSubDirectories(const Value: boolean);
+    procedure SetIncludeHiddenSubDirectories(const Value: boolean);
     procedure SetLastChangeAfter(const Value: TDateTime);
     procedure SetLastChangeBefore(const Value: TDateTime);
     procedure SetLastChangeAfterStr(const Value: string);
     procedure SetLastChangeBeforeStr(const Value: string);
-    procedure SetOption(const Option: TFileSearchOption; const Value: Boolean);
+    procedure SetOption(const Option: TFileSearchOption; const Value: boolean);
     procedure SetOptions(const Value: TFileSearchOptions);
     procedure SetSubDirectoryMask(const Value: string);
     procedure SetSynchronizationMode(const Value: TFileEnumeratorSyncMode);
     procedure SetOnEnterDirectory(const Value: TFileHandler);
     procedure SetOnTerminateTask(const Value: TFileSearchTerminationEvent);
-    property NextTaskID: TFileSearchTaskID read GetNextTaskID;
+    property NextTaskID: TFileSearchTaskID Read GetNextTaskID;
   public
     constructor Create;
     destructor Destroy; override;
@@ -587,35 +617,42 @@
     function ForEach(Handler: TFileHandler): TFileSearchTaskID; overload;
     function ForEach(Handler: TFileHandlerEx): TFileSearchTaskID; overload;
     procedure StopTask(ID: TFileSearchTaskID);
-    procedure StopAllTasks(Silently: Boolean = False); // Silently: Don't call OnTerminateTask
-    property FileMask: string read GetFileMask write SetFileMask;
-    property IncludeSubDirectories: Boolean
-      read GetIncludeSubDirectories write SetIncludeSubDirectories;
-    property IncludeHiddenSubDirectories: Boolean
-      read GetIncludeHiddenSubDirectories write SetIncludeHiddenSubDirectories;
-    property SearchOption[const Option: TFileSearchOption]: Boolean read GetOption write SetOption;
-    property LastChangeAfterAsString: string read GetLastChangeAfterStr write SetLastChangeAfterStr;
-    property LastChangeBeforeAsString: string read GetLastChangeBeforeStr write SetLastChangeBeforeStr;
+    procedure StopAllTasks(Silently: boolean = False);
+    // Silently: Don't call OnTerminateTask
+    property FileMask: string Read GetFileMask Write SetFileMask;
+    property IncludeSubDirectories: boolean
+      Read GetIncludeSubDirectories Write SetIncludeSubDirectories;
+    property IncludeHiddenSubDirectories: boolean
+      Read GetIncludeHiddenSubDirectories Write SetIncludeHiddenSubDirectories;
+    property SearchOption[const Option: TFileSearchOption]: boolean
+      Read GetOption Write SetOption;
+    property LastChangeAfterAsString: string
+      Read GetLastChangeAfterStr Write SetLastChangeAfterStr;
+    property LastChangeBeforeAsString: string
+      Read GetLastChangeBeforeStr Write SetLastChangeBeforeStr;
   published
-    property CaseSensitiveSearch: Boolean read GetCaseSensitiveSearch write SetCaseSensitiveSearch
-      default {$IFDEF MSWINDOWS} False {$ELSE} True {$ENDIF};
-    property FileMasks: TStrings read GetFileMasks write SetFileMasks;
-    property RootDirectory: string read FRootDirectory write FRootDirectory;
-    property SubDirectoryMask: string read FSubDirectoryMask write FSubDirectoryMask;
-    property AttributeMask: TJclFileAttributeMask read FAttributeMask write SetAttributeMask;
-    property FileSizeMin: Int64 read FFileSizeMin write FFileSizeMin;
-    property FileSizeMax: Int64 read FFileSizeMax write FFileSizeMax;
-    property LastChangeAfter: TDateTime read FLastChangeAfter write FLastChangeAfter
-      stored IsLastChangeAfterStored;
-    property LastChangeBefore: TDateTime read FLastChangeBefore write FLastChangeBefore
-      stored IsLastChangeBeforeStored;
-    property Options: TFileSearchOptions read FOptions write FOptions
-      default [fsIncludeSubDirectories];
-    property RunningTasks: Integer read GetRunningTasks;
-    property SynchronizationMode: TFileEnumeratorSyncMode read FSynchronizationMode write FSynchronizationMode
-      default smPerDirectory;
-    property OnEnterDirectory: TFileHandler read FOnEnterDirectory write FOnEnterDirectory;
-    property OnTerminateTask: TFileSearchTerminationEvent read FOnTerminateTask write FOnTerminateTask;
+    property CaseSensitiveSearch: boolean Read GetCaseSensitiveSearch
+      Write SetCaseSensitiveSearch default {$IFDEF MSWINDOWS} False {$ELSE} True {$ENDIF};
+    property FileMasks: TStrings Read GetFileMasks Write SetFileMasks;
+    property RootDirectory: string Read FRootDirectory Write FRootDirectory;
+    property SubDirectoryMask: string Read FSubDirectoryMask Write FSubDirectoryMask;
+    property AttributeMask: TJclFileAttributeMask
+      Read FAttributeMask Write SetAttributeMask;
+    property FileSizeMin: int64 Read FFileSizeMin Write FFileSizeMin;
+    property FileSizeMax: int64 Read FFileSizeMax Write FFileSizeMax;
+    property LastChangeAfter: TDateTime Read FLastChangeAfter
+      Write FLastChangeAfter stored IsLastChangeAfterStored;
+    property LastChangeBefore: TDateTime Read FLastChangeBefore
+      Write FLastChangeBefore stored IsLastChangeBeforeStored;
+    property Options: TFileSearchOptions
+      Read FOptions Write FOptions default [fsIncludeSubDirectories];
+    property RunningTasks: integer Read GetRunningTasks;
+    property SynchronizationMode: TFileEnumeratorSyncMode
+      Read FSynchronizationMode Write FSynchronizationMode default smPerDirectory;
+    property OnEnterDirectory: TFileHandler Read FOnEnterDirectory
+      Write FOnEnterDirectory;
+    property OnTerminateTask: TFileSearchTerminationEvent
+      Read FOnTerminateTask Write FOnTerminateTask;
   end;
 
 function FileSearch: IJclFileEnumerator;
@@ -671,7 +708,15 @@
     function GetFileOS: DWORD;
     function GetFileSubType: DWORD;
     function GetFileType: DWORD;
-    function GetVersionKeyValue(Index: Integer): string;
+function GetFileVersionMajor: string;
+function GetFileVersionMinor: String;
+function GetFileVersionBuild: String;
+function GetFileVersionRevision: String;
+function GetProductVersionMajor: string;
+function GetProductVersionMinor: String;
+function GetProductVersionBuild: String;
+function GetProductVersionRevision: String;
+   function GetVersionKeyValue(Index: Integer): string;
   public
     constructor Attach(VersionInfoData: Pointer; Size: Integer);
     constructor Create(const FileName: string); overload;
@@ -696,6 +741,10 @@
     property FileSubType: DWORD read GetFileSubType;
     property FileType: DWORD read GetFileType;
     property FileVersion: string index 4 read GetVersionKeyValue;
+property FileVersionMajor: string read GetFileVersionMajor;
+property FileVersionMinor: string read GetFileVersionMinor;
+property FileVersionBuild: string read GetFileVersionBuild;
+property FileVersionRevision: string read GetFileVersionRevision;
     property Items: TStrings read GetItems;
     property InternalName: string index 5 read GetVersionKeyValue;
     property LanguageCount: Integer read GetLanguageCount;
@@ -709,6 +758,10 @@
     property PrivateBuild: string index 12 read GetVersionKeyValue;
     property ProductName: string index 9 read GetVersionKeyValue;
     property ProductVersion: string index 10 read GetVersionKeyValue;
+property ProductVersionMajor: string read GetProductVersionMajor;
+Property ProductVersionMinor: string read GetProductVersionMinor;
+                                            property ProductVersionBuild: string read GetProductVersionBuild;
+                                            property ProductVersionRevision: string read GetProductVersionRevision;
     property SpecialBuild: string index 11 read GetVersionKeyValue;
     property TranslationCount: Integer read GetTranslationCount;
     property Translations[Index: Integer]: TLangIdRec read GetTranslations;
@@ -725,8 +778,9 @@
 type
   TFileVersionFormat = (vfMajorMinor, vfFull);
 
-function FormatVersionString(const HiV, LoV: Word): string; overload;
-function FormatVersionString(const Major, Minor, Build, Revision: Word): string; overload;
+function FormatVersionString(const HiV, LoV: word): string; overload;
+function FormatVersionString(const Major, Minor, Build, Revision: word): string;
+  overload;
 
 {$IFDEF Win32API}
 
@@ -744,7 +798,7 @@
 {$ENDIF Win32API}
 
 // Streams
-//
+
 // TStream descendent classes for dealing with temporary files and for using file mapping objects.
 type
   TJclTempFileStream = class(THandleStream)
@@ -753,7 +807,7 @@
   public
     constructor Create(const Prefix: string);
     destructor Destroy; override;
-    property FileName: string read FFileName;
+    property FileName: string Read FFileName;
   end;
 
 {$IFDEF Win32API}
@@ -858,50 +912,51 @@
 
   TJclAnsiMappedTextReader = class(TPersistent)
   private
-    FContent: PAnsiChar;
-    FEnd: PAnsiChar;
-    FIndex: PPAnsiCharArray;
-    FIndexOption: TJclMappedTextReaderIndex;
-    FFreeStream: Boolean;
-    FLastLineNumber: Integer;
+    FContent:      PAnsiChar;
+    FEnd:          PAnsiChar;
+    FIndex:        PPAnsiCharArray;
+    FIndexOption:  TJclMappedTextReaderIndex;
+    FFreeStream:   boolean;
+    FLastLineNumber: integer;
     FLastPosition: PAnsiChar;
-    FLineCount: Integer;
+    FLineCount:    integer;
     FMemoryStream: TCustomMemoryStream;
-    FPosition: PAnsiChar;
-    FSize: Integer;
-    function GetAsString: AnsiString;
-    function GetEof: Boolean;
-    function GetChars(Index: Integer): AnsiChar;
-    function GetLineCount: Integer;
-    function GetLines(LineNumber: Integer): AnsiString;
-    function GetPosition: Integer;
-    function GetPositionFromLine(LineNumber: Integer): Integer;
-    procedure SetPosition(const Value: Integer);
+    FPosition:     PAnsiChar;
+    FSize:         integer;
+    function GetAsString: ansistring;
+    function GetEof: boolean;
+    function GetChars(Index: integer): AnsiChar;
+    function GetLineCount: integer;
+    function GetLines(LineNumber: integer): ansistring;
+    function GetPosition: integer;
+    function GetPositionFromLine(LineNumber: integer): integer;
+    procedure SetPosition(const Value: integer);
   protected
     procedure AssignTo(Dest: TPersistent); override;
     procedure CreateIndex;
     procedure Init;
-    function PtrFromLine(LineNumber: Integer): PAnsiChar;
-    function StringFromPosition(var StartPos: PAnsiChar): AnsiString;
+    function PtrFromLine(LineNumber: integer): PAnsiChar;
+    function StringFromPosition(var StartPos: PAnsiChar): ansistring;
   public
-    constructor Create(MemoryStream: TCustomMemoryStream; FreeStream: Boolean = True;
-      const AIndexOption: TJclMappedTextReaderIndex = tiNoIndex); overload;
+    constructor Create(MemoryStream: TCustomMemoryStream;
+      FreeStream: boolean = True; const AIndexOption: TJclMappedTextReaderIndex =
+      tiNoIndex); overload;
     constructor Create(const FileName: TFileName;
       const AIndexOption: TJclMappedTextReaderIndex = tiNoIndex); overload;
     destructor Destroy; override;
     procedure GoBegin;
     function Read: AnsiChar;
-    function ReadLn: AnsiString;
-    property AsString: AnsiString read GetAsString;
-    property Chars[Index: Integer]: AnsiChar read GetChars;
-    property Content: PAnsiChar read FContent;
-    property Eof: Boolean read GetEof;
-    property IndexOption: TJclMappedTextReaderIndex read FIndexOption;
-    property Lines[LineNumber: Integer]: AnsiString read GetLines;
-    property LineCount: Integer read GetLineCount;
-    property PositionFromLine[LineNumber: Integer]: Integer read GetPositionFromLine;
-    property Position: Integer read GetPosition write SetPosition;
-    property Size: Integer read FSize;
+    function ReadLn: ansistring;
+    property AsString: ansistring Read GetAsString;
+    property Chars[Index: integer]: AnsiChar Read GetChars;
+    property Content: PAnsiChar Read FContent;
+    property EOF: boolean Read GetEof;
+    property IndexOption: TJclMappedTextReaderIndex Read FIndexOption;
+    property Lines[LineNumber: integer]: ansistring Read GetLines;
+    property LineCount: integer Read GetLineCount;
+    property PositionFromLine[LineNumber: integer]: integer Read GetPositionFromLine;
+    property Position: integer Read GetPosition Write SetPosition;
+    property Size: integer Read FSize;
   end;
 
   PPWideCharArray = ^TPWideCharArray;
@@ -909,50 +964,51 @@
 
   TJclWideMappedTextReader = class(TPersistent)
   private
-    FContent: PWideChar;
-    FEnd: PWideChar;
-    FIndex: PPWideCharArray;
-    FIndexOption: TJclMappedTextReaderIndex;
-    FFreeStream: Boolean;
-    FLastLineNumber: Integer;
+    FContent:      PWideChar;
+    FEnd:          PWideChar;
+    FIndex:        PPWideCharArray;
+    FIndexOption:  TJclMappedTextReaderIndex;
+    FFreeStream:   boolean;
+    FLastLineNumber: integer;
     FLastPosition: PWideChar;
-    FLineCount: Integer;
+    FLineCount:    integer;
     FMemoryStream: TCustomMemoryStream;
-    FPosition: PWideChar;
-    FSize: Integer;
+    FPosition:     PWideChar;
+    FSize:         integer;
     function GetAsString: WideString;
-    function GetEof: Boolean;
-    function GetChars(Index: Integer): WideChar;
-    function GetLineCount: Integer;
-    function GetLines(LineNumber: Integer): WideString;
-    function GetPosition: Integer;
-    function GetPositionFromLine(LineNumber: Integer): Integer;
-    procedure SetPosition(const Value: Integer);
+    function GetEof: boolean;
+    function GetChars(Index: integer): widechar;
+    function GetLineCount: integer;
+    function GetLines(LineNumber: integer): WideString;
+    function GetPosition: integer;
+    function GetPositionFromLine(LineNumber: integer): integer;
+    procedure SetPosition(const Value: integer);
   protected
     procedure AssignTo(Dest: TPersistent); override;
     procedure CreateIndex;
     procedure Init;
-    function PtrFromLine(LineNumber: Integer): PWideChar;
+    function PtrFromLine(LineNumber: integer): PWideChar;
     function StringFromPosition(var StartPos: PWideChar): WideString;
   public
-    constructor Create(MemoryStream: TCustomMemoryStream; FreeStream: Boolean = True;
-      const AIndexOption: TJclMappedTextReaderIndex = tiNoIndex); overload;
+    constructor Create(MemoryStream: TCustomMemoryStream;
+      FreeStream: boolean = True; const AIndexOption: TJclMappedTextReaderIndex =
+      tiNoIndex); overload;
     constructor Create(const FileName: TFileName;
       const AIndexOption: TJclMappedTextReaderIndex = tiNoIndex); overload;
     destructor Destroy; override;
     procedure GoBegin;
-    function Read: WideChar;
+    function Read: widechar;
     function ReadLn: WideString;
-    property AsString: WideString read GetAsString;
-    property Chars[Index: Integer]: WideChar read GetChars;
-    property Content: PWideChar read FContent;
-    property Eof: Boolean read GetEof;
-    property IndexOption: TJclMappedTextReaderIndex read FIndexOption;
-    property Lines[LineNumber: Integer]: WideString read GetLines;
-    property LineCount: Integer read GetLineCount;
-    property PositionFromLine[LineNumber: Integer]: Integer read GetPositionFromLine;
-    property Position: Integer read GetPosition write SetPosition;
-    property Size: Integer read FSize;
+    property AsString: WideString Read GetAsString;
+    property Chars[Index: integer]: widechar Read GetChars;
+    property Content: PWideChar Read FContent;
+    property EOF: boolean Read GetEof;
+    property IndexOption: TJclMappedTextReaderIndex Read FIndexOption;
+    property Lines[LineNumber: integer]: WideString Read GetLines;
+    property LineCount: integer Read GetLineCount;
+    property PositionFromLine[LineNumber: integer]: integer Read GetPositionFromLine;
+    property Position: integer Read GetPosition Write SetPosition;
+    property Size: integer Read FSize;
   end;
 
 {$ENDIF ~CLR}
@@ -962,27 +1018,27 @@
 type
   TJclFileMaskComparator = class(TObject)
   private
-    FFileMask: string;
-    FExts: array of string;
-    FNames: array of string;
-    FWildChars: array of Byte;
-    FSeparator: Char;
+    FFileMask:  string;
+    FExts:      array of string;
+    FNames:     array of string;
+    FWildChars: array of byte;
+    FSeparator: char;
     procedure CreateMultiMasks;
-    function GetCount: Integer;
-    function GetExts(Index: Integer): string;
-    function GetMasks(Index: Integer): string;
-    function GetNames(Index: Integer): string;
+    function GetCount: integer;
+    function GetExts(Index: integer): string;
+    function GetMasks(Index: integer): string;
+    function GetNames(Index: integer): string;
     procedure SetFileMask(const Value: string);
-    procedure SetSeparator(const Value: Char);
+    procedure SetSeparator(const Value: char);
   public
     constructor Create;
-    function Compare(const NameExt: string): Boolean;
-    property Count: Integer read GetCount;
-    property Exts[Index: Integer]: string read GetExts;
-    property FileMask: string read FFileMask write SetFileMask;
-    property Masks[Index: Integer]: string read GetMasks;
-    property Names[Index: Integer]: string read GetNames;
-    property Separator: Char read FSeparator write SetSeparator;
+    function Compare(const NameExt: string): boolean;
+    property Count: integer Read GetCount;
+    property Exts[Index: integer]: string Read GetExts;
+    property FileMask: string Read FFileMask Write SetFileMask;
+    property Masks[Index: integer]: string Read GetMasks;
+    property Names[Index: integer]: string Read GetNames;
+    property Separator: char Read FSeparator Write SetSeparator;
   end;
 
   EJclPathError = class(EJclError);
@@ -994,6 +1050,7 @@
   EJclTempFileStreamError = class(EJclWin32Error);
   EJclFileMappingError = class(EJclWin32Error);
   EJclFileMappingViewError = class(EJclWin32Error);
+
   {$ENDIF MSWINDOWS}
 
 {$IFDEF KEEP_DEPRECATED}
@@ -1015,53 +1072,56 @@
 
 {$ENDIF KEEP_DEPRECATED}
 
-function SamePath(const Path1, Path2: string): Boolean;
+function SamePath(const Path1, Path2: string): boolean;
 
-// functions to add/delete paths from a separated list of paths
-// on windows the separator is a semi-colon ';'
-// on linux the separator is a colon ':'
-// add items at the end
+ // functions to add/delete paths from a separated list of paths
+ // on windows the separator is a semi-colon ';'
+ // on linux the separator is a colon ':'
+ // add items at the end
 procedure PathListAddItems(var List: string; const Items: string);
 // add items at the end if they are not present
 procedure PathListIncludeItems(var List: string; const Items: string);
 // delete multiple items
 procedure PathListDelItems(var List: string; const Items: string);
 // delete one item
-procedure PathListDelItem(var List: string; const Index: Integer);
+procedure PathListDelItem(var List: string; const Index: integer);
 // return the number of item
-function PathListItemCount(const List: string): Integer;
+function PathListItemCount(const List: string): integer;
 // return the Nth item
-function PathListGetItem(const List: string; const Index: Integer): string;
+function PathListGetItem(const List: string; const Index: integer): string;
 // set the Nth item
-procedure PathListSetItem(var List: string; const Index: Integer; const Value: string);
+procedure PathListSetItem(var List: string; const Index: integer; const Value: string);
 // return the index of an item
-function PathListItemIndex(const List, Item: string): Integer;
+function PathListItemIndex(const List, Item: string): integer;
 
 
 // additional functions to access the commandline parameters of an application
 
-// returns the name of the command line parameter at position index, which is
-// separated by the given separator, if the first character of the name part
-// is one of the AllowedPrefixCharacters, this character will be deleted.
-function ParamName  (Index : Integer; const Separator : string = '=';
-             const AllowedPrefixCharacters : string = '-/'; TrimName : Boolean = true) : string;
-// returns the value of the command line parameter at position index, which is
-// separated by the given separator
-function ParamValue (Index : Integer; const Separator : string = '='; TrimValue : Boolean = true) : string; overload;
+ // returns the name of the command line parameter at position index, which is
+ // separated by the given separator, if the first character of the name part
+ // is one of the AllowedPrefixCharacters, this character will be deleted.
+function ParamName(Index: integer; const Separator: string = '=';
+  const AllowedPrefixCharacters: string = '-/';
+  TrimName: boolean = True): string;
+ // returns the value of the command line parameter at position index, which is
+ // separated by the given separator
+function ParamValue(Index: integer; const Separator: string = '=';
+  TrimValue: boolean = True): string; overload;
+ // seaches a command line parameter where the namepart is the searchname
+ // and returns the value which is which by the given separator.
+ // CaseSensitive defines the search type. if the first character of the name part
+ // is one of the AllowedPrefixCharacters, this character will be deleted.
+function ParamValue(const SearchName: string; const Separator: string = '=';
+  CaseSensitive: boolean = False;
+  const AllowedPrefixCharacters: string = '-/';
+  TrimValue: boolean = True): string; overload;
 // seaches a command line parameter where the namepart is the searchname
-// and returns the value which is which by the given separator.
-// CaseSensitive defines the search type. if the first character of the name part
-// is one of the AllowedPrefixCharacters, this character will be deleted.
-function ParamValue (const SearchName : string; const Separator : string = '=';
-             CaseSensitive : Boolean = False;
-             const AllowedPrefixCharacters : string = '-/'; TrimValue : Boolean = true) : string; overload;
-// seaches a command line parameter where the namepart is the searchname
 // and returns the position index. if no separator is defined, the full paramstr is compared.
-// CaseSensitive defines the search type. if the first character of the name part
-// is one of the AllowedPrefixCharacters, this character will be deleted.
-function ParamPos (const SearchName : string; const Separator : string = '=';
-             CaseSensitive : Boolean = False;
-             const AllowedPrefixCharacters : string = '-/'): Integer;
+ // CaseSensitive defines the search type. if the first character of the name part
+ // is one of the AllowedPrefixCharacters, this character will be deleted.
+function ParamPos(const SearchName: string; const Separator: string = '=';
+  CaseSensitive: boolean = False;
+  const AllowedPrefixCharacters: string = '-/'): integer;
 
 {$IFDEF UNITVERSIONING}
 const
@@ -1107,7 +1167,8 @@
 {$IFNDEF RTL140_UP}
 const
   MinDateTime: TDateTime = -657434.0;      { 0100-01-01T00:00:00.000 }
-  MaxDateTime: TDateTime =  2958465.99999; { 9999-12-31T23:59:59.999 }
+  MaxDateTime: TDateTime = 2958465.99999;
+{ 9999-12-31T23:59:59.999 }
 {$ENDIF ~RTL140_UP}
 
 {$IFDEF UNIX}
@@ -1147,7 +1208,7 @@
   {$IFDEF CLR}
   inherited Create(FileCreateTemp(FFileName));
   {$ELSE ~CLR}
-  FFileName := Prefix;
+  FFileName  := Prefix;
   FileHandle := FileCreateTemp(FFileName);
   // (rom) is it really wise to throw an exception before calling inherited?
   if FileHandle = INVALID_HANDLE_VALUE then
@@ -1173,10 +1234,10 @@
 {$IFDEF MSWINDOWS}
 
 constructor TJclFileMappingView.Create(const FileMap: TJclCustomFileMapping;
-  Access, Size: Cardinal; ViewOffset: Int64);
+  Access, Size: cardinal; ViewOffset: int64);
 var
   BaseAddress: Pointer;
-  OffsetLow, OffsetHigh: Cardinal;
+  OffsetLow, OffsetHigh: cardinal;
 begin
   inherited Create;
   if FileMap = nil then
@@ -1186,8 +1247,9 @@
   RoundToAllocGranularity64(ViewOffset, FFileMapping.RoundViewOffset = rvUp);
   I64ToCardinals(ViewOffset, OffsetLow, OffsetHigh);
   FOffsetHigh := OffsetHigh;
-  FOffsetLow := OffsetLow;
-  BaseAddress := MapViewOfFile(FFileMapping.Handle, Access, FOffsetHigh, FOffsetLow, Size);
+  FOffsetLow  := OffsetLow;
+  BaseAddress := MapViewOfFile(FFileMapping.Handle, Access, FOffsetHigh,
+    FOffsetLow, Size);
   if BaseAddress = nil then
     raise EJclFileMappingViewError.CreateRes(@RsCreateFileMappingView);
   // If we are mapping a file and size = 0 then MapViewOfFile has mapped the entire file. We must
@@ -1208,10 +1270,10 @@
 end;
 
 constructor TJclFileMappingView.CreateAt(FileMap: TJclCustomFileMapping;
-  Access, Size: Cardinal; ViewOffset: Int64; Address: Pointer);
+  Access, Size: cardinal; ViewOffset: int64; Address: Pointer);
 var
   BaseAddress: Pointer;
-  OffsetLow, OffsetHigh: Cardinal;
+  OffsetLow, OffsetHigh: cardinal;
 begin
   inherited Create;
   if FileMap = nil then
@@ -1222,9 +1284,9 @@
   RoundToAllocGranularityPtr(Address, FFileMapping.RoundViewOffset = rvUp);
   I64ToCardinals(ViewOffset, OffsetLow, OffsetHigh);
   FOffsetHigh := OffsetHigh;
-  FOffsetLow := OffsetLow;
-  BaseAddress := MapViewOfFileEx(FFileMapping.Handle, Access, FOffsetHigh,
-    FOffsetLow, Size, Address);
+  FOffsetLow  := OffsetLow;
+  BaseAddress := MapViewOfFileEx(FFileMapping.Handle, Access,
+    FOffsetHigh, FOffsetLow, Size, Address);
   if BaseAddress = nil then
     raise EJclFileMappingViewError.CreateRes(@RsCreateFileMappingView);
   // If we are mapping a file and size = 0 then MapViewOfFile has mapped the entire file. We must
@@ -1246,7 +1308,7 @@
 
 destructor TJclFileMappingView.Destroy;
 var
-  IndexOfSelf: Integer;
+  IndexOfSelf: integer;
 begin
   if Memory <> nil then
   begin
@@ -1262,17 +1324,17 @@
   inherited Destroy;
 end;
 
-function TJclFileMappingView.Flush(const ...
 
[truncated message content]

[Jcl-checkins-diff] SF.net SVN: jcl:[2828] tags/JCL-1.105-Build3400/

From: <ou...@us...> - 2009-06-22 19:23:29

Revision: 2828
          http://jcl.svn.sourceforge.net/jcl/?rev=2828&view=rev
Author:   outchy
Date:     2009-06-22 19:23:22 +0000 (Mon, 22 Jun 2009)

Log Message:
-----------
Tag for 1.105.1.3400.

Added Paths:
-----------
    tags/JCL-1.105-Build3400/


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2827] trunk

From: <ou...@us...> - 2009-06-22 19:17:55

Revision: 2827
          http://jcl.svn.sourceforge.net/jcl/?rev=2827&view=rev
Author:   outchy
Date:     2009-06-22 19:16:26 +0000 (Mon, 22 Jun 2009)

Log Message:
-----------
trunk is now dedicated to JCL 2.0 unstable.

Modified Paths:
--------------
    trunk/help/JCLHelp.dox
    trunk/jcl/devtools/pgEdit.xml
    trunk/jcl/packages/c5/JclBaseExpertC50.rc
    trunk/jcl/packages/c5/JclBaseExpertC50.res
    trunk/jcl/packages/c5/JclC50.rc
    trunk/jcl/packages/c5/JclC50.res
    trunk/jcl/packages/c5/JclContainersC50.rc
    trunk/jcl/packages/c5/JclContainersC50.res
    trunk/jcl/packages/c5/JclDebugExpertC50.RES
    trunk/jcl/packages/c5/JclDebugExpertC50.rc
    trunk/jcl/packages/c5/JclDebugExpertDLLC50.rc
    trunk/jcl/packages/c5/JclDebugExpertDLLC50.res
    trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc
    trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.res
    trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc
    trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.res
    trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.RES
    trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.rc
    trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc
    trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.res
    trunk/jcl/packages/c5/JclRepositoryExpertC50.rc
    trunk/jcl/packages/c5/JclRepositoryExpertC50.res
    trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.rc
    trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.res
    trunk/jcl/packages/c5/JclSIMDViewExpertC50.rc
    trunk/jcl/packages/c5/JclSIMDViewExpertC50.res
    trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc
    trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.res
    trunk/jcl/packages/c5/JclThreadNameExpertC50.RES
    trunk/jcl/packages/c5/JclThreadNameExpertC50.rc
    trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.rc
    trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.res
    trunk/jcl/packages/c5/JclUsesExpertC50.RES
    trunk/jcl/packages/c5/JclUsesExpertC50.rc
    trunk/jcl/packages/c5/JclUsesExpertDLLC50.rc
    trunk/jcl/packages/c5/JclUsesExpertDLLC50.res
    trunk/jcl/packages/c5/JclVclC50.rc
    trunk/jcl/packages/c5/JclVclC50.res
    trunk/jcl/packages/c5/JclVersionControlExpertC50.rc
    trunk/jcl/packages/c5/JclVersionControlExpertC50.res
    trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.rc
    trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.res
    trunk/jcl/packages/c6/Jcl.RES
    trunk/jcl/packages/c6/Jcl.rc
    trunk/jcl/packages/c6/JclBaseExpert.rc
    trunk/jcl/packages/c6/JclBaseExpert.res
    trunk/jcl/packages/c6/JclContainers.rc
    trunk/jcl/packages/c6/JclContainers.res
    trunk/jcl/packages/c6/JclDebugExpert.RES
    trunk/jcl/packages/c6/JclDebugExpert.rc
    trunk/jcl/packages/c6/JclDebugExpertDLL.rc
    trunk/jcl/packages/c6/JclDebugExpertDLL.res
    trunk/jcl/packages/c6/JclFavoriteFoldersExpert.RES
    trunk/jcl/packages/c6/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.res
    trunk/jcl/packages/c6/JclProjectAnalysisExpert.RES
    trunk/jcl/packages/c6/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.res
    trunk/jcl/packages/c6/JclRepositoryExpert.rc
    trunk/jcl/packages/c6/JclRepositoryExpert.res
    trunk/jcl/packages/c6/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/c6/JclRepositoryExpertDLL.res
    trunk/jcl/packages/c6/JclSIMDViewExpert.rc
    trunk/jcl/packages/c6/JclSIMDViewExpert.res
    trunk/jcl/packages/c6/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/c6/JclSIMDViewExpertDLL.res
    trunk/jcl/packages/c6/JclThreadNameExpert.RES
    trunk/jcl/packages/c6/JclThreadNameExpert.rc
    trunk/jcl/packages/c6/JclThreadNameExpertDLL.rc
    trunk/jcl/packages/c6/JclThreadNameExpertDLL.res
    trunk/jcl/packages/c6/JclUsesExpert.RES
    trunk/jcl/packages/c6/JclUsesExpert.rc
    trunk/jcl/packages/c6/JclUsesExpertDLL.rc
    trunk/jcl/packages/c6/JclUsesExpertDLL.res
    trunk/jcl/packages/c6/JclVClx.RES
    trunk/jcl/packages/c6/JclVClx.rc
    trunk/jcl/packages/c6/JclVcl.RES
    trunk/jcl/packages/c6/JclVcl.rc
    trunk/jcl/packages/c6/JclVersionControlExpert.rc
    trunk/jcl/packages/c6/JclVersionControlExpert.res
    trunk/jcl/packages/c6/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/c6/JclVersionControlExpertDLL.res
    trunk/jcl/packages/cs1/Jcl.RES
    trunk/jcl/packages/cs1/Jcl.bdsproj
    trunk/jcl/packages/cs1/Jcl.rc
    trunk/jcl/packages/cs1/JclBaseExpert.RES
    trunk/jcl/packages/cs1/JclBaseExpert.bdsproj
    trunk/jcl/packages/cs1/JclBaseExpert.rc
    trunk/jcl/packages/cs1/JclContainers.bdsproj
    trunk/jcl/packages/cs1/JclContainers.rc
    trunk/jcl/packages/cs1/JclContainers.res
    trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/cs1/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/cs1/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d10/Jcl.bdsproj
    trunk/jcl/packages/d10/Jcl.rc
    trunk/jcl/packages/d10/Jcl.res
    trunk/jcl/packages/d10/JclBaseExpert.bdsproj
    trunk/jcl/packages/d10/JclBaseExpert.rc
    trunk/jcl/packages/d10/JclBaseExpert.res
    trunk/jcl/packages/d10/JclContainers.bdsproj
    trunk/jcl/packages/d10/JclContainers.rc
    trunk/jcl/packages/d10/JclContainers.res
    trunk/jcl/packages/d10/JclDebugExpert.bdsproj
    trunk/jcl/packages/d10/JclDebugExpert.rc
    trunk/jcl/packages/d10/JclDebugExpert.res
    trunk/jcl/packages/d10/JclDebugExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclDebugExpertDLL.rc
    trunk/jcl/packages/d10/JclDebugExpertDLL.res
    trunk/jcl/packages/d10/JclFavoriteFoldersExpert.bdsproj
    trunk/jcl/packages/d10/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d10/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.res
    trunk/jcl/packages/d10/JclProjectAnalysisExpert.RES
    trunk/jcl/packages/d10/JclProjectAnalysisExpert.bdsproj
    trunk/jcl/packages/d10/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.res
    trunk/jcl/packages/d10/JclRepositoryExpert.bdsproj
    trunk/jcl/packages/d10/JclRepositoryExpert.rc
    trunk/jcl/packages/d10/JclRepositoryExpert.res
    trunk/jcl/packages/d10/JclRepositoryExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d10/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d10/JclSIMDViewExpert.bdsproj
    trunk/jcl/packages/d10/JclSIMDViewExpert.rc
    trunk/jcl/packages/d10/JclSIMDViewExpert.res
    trunk/jcl/packages/d10/JclSIMDViewExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d10/JclSIMDViewExpertDLL.res
    trunk/jcl/packages/d10/JclVcl.bdsproj
    trunk/jcl/packages/d10/JclVcl.rc
    trunk/jcl/packages/d10/JclVcl.res
    trunk/jcl/packages/d10/JclVersionControlExpert.bdsproj
    trunk/jcl/packages/d10/JclVersionControlExpert.rc
    trunk/jcl/packages/d10/JclVersionControlExpert.res
    trunk/jcl/packages/d10/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d10/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj
    trunk/jcl/packages/d10.net/Jedi.Jcl.dpk
    trunk/jcl/packages/d10.net/Jedi.JclContainers.bdsproj
    trunk/jcl/packages/d10.net/Jedi.JclContainers.dpk
    trunk/jcl/packages/d11/Jcl.dproj
    trunk/jcl/packages/d11/Jcl.rc
    trunk/jcl/packages/d11/Jcl.res
    trunk/jcl/packages/d11/JclBaseExpert.dproj
    trunk/jcl/packages/d11/JclBaseExpert.rc
    trunk/jcl/packages/d11/JclBaseExpert.res
    trunk/jcl/packages/d11/JclContainers.dproj
    trunk/jcl/packages/d11/JclContainers.rc
    trunk/jcl/packages/d11/JclContainers.res
    trunk/jcl/packages/d11/JclDebugExpert.dproj
    trunk/jcl/packages/d11/JclDebugExpert.rc
    trunk/jcl/packages/d11/JclDebugExpert.res
    trunk/jcl/packages/d11/JclDebugExpertDLL.dproj
    trunk/jcl/packages/d11/JclDebugExpertDLL.rc
    trunk/jcl/packages/d11/JclDebugExpertDLL.res
    trunk/jcl/packages/d11/JclFavoriteFoldersExpert.dproj
    trunk/jcl/packages/d11/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d11/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d11/JclFavoriteFoldersExpertDLL.dproj
    trunk/jcl/packages/d11/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d11/JclFavoriteFoldersExpertDLL.res
    trunk/jcl/packages/d11/JclProjectAnalysisExpert.dproj
    trunk/jcl/packages/d11/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d11/JclProjectAnalysisExpert.res
    trunk/jcl/packages/d11/JclProjectAnalysisExpertDLL.dproj
    trunk/jcl/packages/d11/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d11/JclProjectAnalysisExpertDLL.res
    trunk/jcl/packages/d11/JclRepositoryExpert.dproj
    trunk/jcl/packages/d11/JclRepositoryExpert.rc
    trunk/jcl/packages/d11/JclRepositoryExpert.res
    trunk/jcl/packages/d11/JclRepositoryExpertDLL.dproj
    trunk/jcl/packages/d11/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d11/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d11/JclSIMDViewExpert.dproj
    trunk/jcl/packages/d11/JclSIMDViewExpert.rc
    trunk/jcl/packages/d11/JclSIMDViewExpert.res
    trunk/jcl/packages/d11/JclSIMDViewExpertDLL.dproj
    trunk/jcl/packages/d11/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d11/JclSIMDViewExpertDLL.res
    trunk/jcl/packages/d11/JclVcl.dproj
    trunk/jcl/packages/d11/JclVcl.rc
    trunk/jcl/packages/d11/JclVcl.res
    trunk/jcl/packages/d11/JclVersionControlExpert.dproj
    trunk/jcl/packages/d11/JclVersionControlExpert.rc
    trunk/jcl/packages/d11/JclVersionControlExpert.res
    trunk/jcl/packages/d11/JclVersionControlExpertDLL.dproj
    trunk/jcl/packages/d11/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d11/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d11.net/Jedi.Jcl.dpk
    trunk/jcl/packages/d11.net/Jedi.Jcl.dproj
    trunk/jcl/packages/d11.net/Jedi.JclContainers.dpk
    trunk/jcl/packages/d11.net/Jedi.JclContainers.dproj
    trunk/jcl/packages/d12/Jcl.dproj
    trunk/jcl/packages/d12/Jcl.rc
    trunk/jcl/packages/d12/Jcl.res
    trunk/jcl/packages/d12/JclBaseExpert.dproj
    trunk/jcl/packages/d12/JclBaseExpert.rc
    trunk/jcl/packages/d12/JclBaseExpert.res
    trunk/jcl/packages/d12/JclContainers.dproj
    trunk/jcl/packages/d12/JclContainers.rc
    trunk/jcl/packages/d12/JclContainers.res
    trunk/jcl/packages/d12/JclDebugExpert.dproj
    trunk/jcl/packages/d12/JclDebugExpert.rc
    trunk/jcl/packages/d12/JclDebugExpert.res
    trunk/jcl/packages/d12/JclDebugExpertDLL.dproj
    trunk/jcl/packages/d12/JclDebugExpertDLL.rc
    trunk/jcl/packages/d12/JclDebugExpertDLL.res
    trunk/jcl/packages/d12/JclFavoriteFoldersExpert.dproj
    trunk/jcl/packages/d12/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d12/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d12/JclFavoriteFoldersExpertDLL.dproj
    trunk/jcl/packages/d12/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d12/JclFavoriteFoldersExpertDLL.res
    trunk/jcl/packages/d12/JclProjectAnalysisExpert.dproj
    trunk/jcl/packages/d12/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d12/JclProjectAnalysisExpert.res
    trunk/jcl/packages/d12/JclProjectAnalysisExpertDLL.dproj
    trunk/jcl/packages/d12/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d12/JclProjectAnalysisExpertDLL.res
    trunk/jcl/packages/d12/JclRepositoryExpert.dproj
    trunk/jcl/packages/d12/JclRepositoryExpert.rc
    trunk/jcl/packages/d12/JclRepositoryExpert.res
    trunk/jcl/packages/d12/JclRepositoryExpertDLL.dproj
    trunk/jcl/packages/d12/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d12/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d12/JclSIMDViewExpert.dproj
    trunk/jcl/packages/d12/JclSIMDViewExpert.rc
    trunk/jcl/packages/d12/JclSIMDViewExpert.res
    trunk/jcl/packages/d12/JclSIMDViewExpertDLL.dproj
    trunk/jcl/packages/d12/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d12/JclSIMDViewExpertDLL.res
    trunk/jcl/packages/d12/JclVcl.dproj
    trunk/jcl/packages/d12/JclVcl.rc
    trunk/jcl/packages/d12/JclVcl.res
    trunk/jcl/packages/d12/JclVersionControlExpert.dproj
    trunk/jcl/packages/d12/JclVersionControlExpert.rc
    trunk/jcl/packages/d12/JclVersionControlExpert.res
    trunk/jcl/packages/d12/JclVersionControlExpertDLL.dproj
    trunk/jcl/packages/d12/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d12/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d5/JclBaseExpertD50.rc
    trunk/jcl/packages/d5/JclBaseExpertD50.res
    trunk/jcl/packages/d5/JclContainersD50.rc
    trunk/jcl/packages/d5/JclContainersD50.res
    trunk/jcl/packages/d5/JclD50.RES
    trunk/jcl/packages/d5/JclD50.rc
    trunk/jcl/packages/d5/JclDebugExpertD50.RES
    trunk/jcl/packages/d5/JclDebugExpertD50.rc
    trunk/jcl/packages/d5/JclDebugExpertDLLD50.RES
    trunk/jcl/packages/d5/JclDebugExpertDLLD50.rc
    trunk/jcl/packages/d5/JclFavoriteFoldersExpertD50.RES
    trunk/jcl/packages/d5/JclFavoriteFoldersExpertD50.rc
    trunk/jcl/packages/d5/JclFavoriteFoldersExpertDLLD50.RES
    trunk/jcl/packages/d5/JclFavoriteFoldersExpertDLLD50.rc
    trunk/jcl/packages/d5/JclProjectAnalysisExpertD50.RES
    trunk/jcl/packages/d5/JclProjectAnalysisExpertD50.rc
    trunk/jcl/packages/d5/JclProjectAnalysisExpertDLLD50.RES
    trunk/jcl/packages/d5/JclProjectAnalysisExpertDLLD50.rc
    trunk/jcl/packages/d5/JclRepositoryExpertD50.rc
    trunk/jcl/packages/d5/JclRepositoryExpertD50.res
    trunk/jcl/packages/d5/JclRepositoryExpertDLLD50.rc
    trunk/jcl/packages/d5/JclRepositoryExpertDLLD50.res
    trunk/jcl/packages/d5/JclSIMDViewExpertD50.RES
    trunk/jcl/packages/d5/JclSIMDViewExpertD50.rc
    trunk/jcl/packages/d5/JclSIMDViewExpertDLLD50.RES
    trunk/jcl/packages/d5/JclSIMDViewExpertDLLD50.rc
    trunk/jcl/packages/d5/JclThreadNameExpertD50.RES
    trunk/jcl/packages/d5/JclThreadNameExpertD50.rc
    trunk/jcl/packages/d5/JclThreadNameExpertDLLD50.RES
    trunk/jcl/packages/d5/JclThreadNameExpertDLLD50.rc
    trunk/jcl/packages/d5/JclUsesExpertD50.RES
    trunk/jcl/packages/d5/JclUsesExpertD50.rc
    trunk/jcl/packages/d5/JclUsesExpertDLLD50.RES
    trunk/jcl/packages/d5/JclUsesExpertDLLD50.rc
    trunk/jcl/packages/d5/JclVclD50.rc
    trunk/jcl/packages/d5/JclVclD50.res
    trunk/jcl/packages/d5/JclVersionControlExpertD50.rc
    trunk/jcl/packages/d5/JclVersionControlExpertD50.res
    trunk/jcl/packages/d5/JclVersionControlExpertDLLD50.rc
    trunk/jcl/packages/d5/JclVersionControlExpertDLLD50.res
    trunk/jcl/packages/d6/Jcl.rc
    trunk/jcl/packages/d6/Jcl.res
    trunk/jcl/packages/d6/JclBaseExpert.rc
    trunk/jcl/packages/d6/JclBaseExpert.res
    trunk/jcl/packages/d6/JclContainers.rc
    trunk/jcl/packages/d6/JclContainers.res
    trunk/jcl/packages/d6/JclDebugExpert.rc
    trunk/jcl/packages/d6/JclDebugExpert.res
    trunk/jcl/packages/d6/JclDebugExpertDLL.RES
    trunk/jcl/packages/d6/JclDebugExpertDLL.rc
    trunk/jcl/packages/d6/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d6/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d6/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/d6/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d6/JclProjectAnalysisExpert.RES
    trunk/jcl/packages/d6/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d6/JclProjectAnalysisExpertDLL.RES
    trunk/jcl/packages/d6/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d6/JclRepositoryExpert.rc
    trunk/jcl/packages/d6/JclRepositoryExpert.res
    trunk/jcl/packages/d6/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d6/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d6/JclSIMDViewExpert.rc
    trunk/jcl/packages/d6/JclSIMDViewExpert.res
    trunk/jcl/packages/d6/JclSIMDViewExpertDLL.RES
    trunk/jcl/packages/d6/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d6/JclThreadNameExpert.rc
    trunk/jcl/packages/d6/JclThreadNameExpert.res
    trunk/jcl/packages/d6/JclThreadNameExpertDLL.RES
    trunk/jcl/packages/d6/JclThreadNameExpertDLL.rc
    trunk/jcl/packages/d6/JclUsesExpert.rc
    trunk/jcl/packages/d6/JclUsesExpert.res
    trunk/jcl/packages/d6/JclUsesExpertDLL.RES
    trunk/jcl/packages/d6/JclUsesExpertDLL.rc
    trunk/jcl/packages/d6/JclVClx.rc
    trunk/jcl/packages/d6/JclVClx.res
    trunk/jcl/packages/d6/JclVcl.rc
    trunk/jcl/packages/d6/JclVcl.res
    trunk/jcl/packages/d6/JclVersionControlExpert.rc
    trunk/jcl/packages/d6/JclVersionControlExpert.res
    trunk/jcl/packages/d6/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d6/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d7/Jcl.rc
    trunk/jcl/packages/d7/Jcl.res
    trunk/jcl/packages/d7/JclBaseExpert.rc
    trunk/jcl/packages/d7/JclBaseExpert.res
    trunk/jcl/packages/d7/JclContainers.rc
    trunk/jcl/packages/d7/JclContainers.res
    trunk/jcl/packages/d7/JclDebugExpert.rc
    trunk/jcl/packages/d7/JclDebugExpert.res
    trunk/jcl/packages/d7/JclDebugExpertDLL.RES
    trunk/jcl/packages/d7/JclDebugExpertDLL.rc
    trunk/jcl/packages/d7/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d7/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d7/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/d7/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d7/JclProjectAnalysisExpert.RES
    trunk/jcl/packages/d7/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d7/JclProjectAnalysisExpertDLL.RES
    trunk/jcl/packages/d7/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d7/JclRepositoryExpert.rc
    trunk/jcl/packages/d7/JclRepositoryExpert.res
    trunk/jcl/packages/d7/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d7/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d7/JclSIMDViewExpert.rc
    trunk/jcl/packages/d7/JclSIMDViewExpert.res
    trunk/jcl/packages/d7/JclSIMDViewExpertDLL.RES
    trunk/jcl/packages/d7/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d7/JclUsesExpert.rc
    trunk/jcl/packages/d7/JclUsesExpert.res
    trunk/jcl/packages/d7/JclUsesExpertDLL.RES
    trunk/jcl/packages/d7/JclUsesExpertDLL.rc
    trunk/jcl/packages/d7/JclVClx.rc
    trunk/jcl/packages/d7/JclVClx.res
    trunk/jcl/packages/d7/JclVcl.rc
    trunk/jcl/packages/d7/JclVcl.res
    trunk/jcl/packages/d7/JclVersionControlExpert.rc
    trunk/jcl/packages/d7/JclVersionControlExpert.res
    trunk/jcl/packages/d7/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d7/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d8/Jcl.RES
    trunk/jcl/packages/d8/Jcl.bdsproj
    trunk/jcl/packages/d8/Jcl.rc
    trunk/jcl/packages/d8/JclBaseExpert.RES
    trunk/jcl/packages/d8/JclBaseExpert.bdsproj
    trunk/jcl/packages/d8/JclBaseExpert.rc
    trunk/jcl/packages/d8/JclContainers.bdsproj
    trunk/jcl/packages/d8/JclContainers.rc
    trunk/jcl/packages/d8/JclContainers.res
    trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d8/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/d8/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d8/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d9/Jcl.RES
    trunk/jcl/packages/d9/Jcl.bdsproj
    trunk/jcl/packages/d9/Jcl.rc
    trunk/jcl/packages/d9/JclBaseExpert.bdsproj
    trunk/jcl/packages/d9/JclBaseExpert.rc
    trunk/jcl/packages/d9/JclBaseExpert.res
    trunk/jcl/packages/d9/JclContainers.bdsproj
    trunk/jcl/packages/d9/JclContainers.rc
    trunk/jcl/packages/d9/JclContainers.res
    trunk/jcl/packages/d9/JclDebugExpert.RES
    trunk/jcl/packages/d9/JclDebugExpert.bdsproj
    trunk/jcl/packages/d9/JclDebugExpert.rc
    trunk/jcl/packages/d9/JclDebugExpertDLL.RES
    trunk/jcl/packages/d9/JclDebugExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclDebugExpertDLL.rc
    trunk/jcl/packages/d9/JclFavoriteFoldersExpert.bdsproj
    trunk/jcl/packages/d9/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d9/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d9/JclProjectAnalysisExpert.RES
    trunk/jcl/packages/d9/JclProjectAnalysisExpert.bdsproj
    trunk/jcl/packages/d9/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.RES
    trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d9/JclRepositoryExpert.bdsproj
    trunk/jcl/packages/d9/JclRepositoryExpert.rc
    trunk/jcl/packages/d9/JclRepositoryExpert.res
    trunk/jcl/packages/d9/JclRepositoryExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d9/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d9/JclSIMDViewExpert.bdsproj
    trunk/jcl/packages/d9/JclSIMDViewExpert.rc
    trunk/jcl/packages/d9/JclSIMDViewExpertDLL.RES
    trunk/jcl/packages/d9/JclSIMDViewExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d9/JclSimdViewExpert.RES
    trunk/jcl/packages/d9/JclVcl.RES
    trunk/jcl/packages/d9/JclVcl.bdsproj
    trunk/jcl/packages/d9/JclVcl.rc
    trunk/jcl/packages/d9/JclVersionControlExpert.bdsproj
    trunk/jcl/packages/d9/JclVersionControlExpert.rc
    trunk/jcl/packages/d9/JclVersionControlExpert.res
    trunk/jcl/packages/d9/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d9/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d9.net/Jedi.Jcl.bdsproj
    trunk/jcl/packages/d9.net/Jedi.Jcl.dpk
    trunk/jcl/packages/d9.net/Jedi.JclContainers.bdsproj
    trunk/jcl/packages/d9.net/Jedi.JclContainers.dpk
    trunk/jcl/packages/k3/Jcl.bpk
    trunk/jcl/packages/k3/Jcl.dpk
    trunk/jcl/packages/k3/Jcl.rc
    trunk/jcl/packages/k3/Jcl.res
    trunk/jcl/packages/k3/JclContainers.bpk
    trunk/jcl/packages/k3/JclContainers.dpk
    trunk/jcl/packages/k3/JclContainers.rc
    trunk/jcl/packages/k3/JclContainers.res
    trunk/jcl/packages/k3/JclVClx.bpk
    trunk/jcl/packages/k3/JclVClx.dpk
    trunk/jcl/packages/k3/JclVClx.rc
    trunk/jcl/packages/k3/JclVClx.res
    trunk/jcl/source/common/JclBase.pas

Modified: trunk/help/JCLHelp.dox
===================================================================
--- trunk/help/JCLHelp.dox	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/help/JCLHelp.dox	2009-06-22 19:16:26 UTC (rev 2827)
@@ -136615,8 +136615,8 @@
 Title=JEDI Code Library
 TypeDefStructsAsStructs=1
 VersionBuild=0
-VersionMajor=1
-VersionMinor=105
+VersionMajor=2
+VersionMinor=0
 VersionRelease=0
 
 [Generic Sources]

Modified: trunk/jcl/devtools/pgEdit.xml
===================================================================
--- trunk/jcl/devtools/pgEdit.xml	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/devtools/pgEdit.xml	2009-06-22 19:16:26 UTC (rev 2827)
@@ -97,10 +97,10 @@
         <alias name="OldStyleIDE" value="c5,c6,d5,d6,d7"/>
       </aliases>
       <ProjectProperties>
-        <ProjectProperty name="VersionMajorNumber" value="1"/>
-        <ProjectProperty name="VersionMinorNumber" value="105"/>
+        <ProjectProperty name="VersionMajorNumber" value="2"/>
+        <ProjectProperty name="VersionMinorNumber" value="0"/>
         <ProjectProperty name="ReleaseNumber" value="0"/>
-        <ProjectProperty name="BuildNumber" value="3249"/>
+        <ProjectProperty name="BuildNumber" value="3401"/>
       </ProjectProperties>
     </Model>
   </models>

Modified: trunk/jcl/packages/c5/JclBaseExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclBaseExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclBaseExpertC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Package containing common units for JCL Experts\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclBaseExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclBaseExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclBaseExpertC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JEDI Code Library RTL package\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclContainersC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclContainersC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclContainersC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JEDI Code Library Containers package\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclContainersC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclContainersC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclContainersC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclDebugExpertC50.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclDebugExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclDebugExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclDebugExpertC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Debug IDE extension\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclDebugExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclDebugExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclDebugExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclDebugExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclDebugExpertDLLC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Debug IDE extension\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclDebugExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclDebugExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclDebugExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclFavoriteFoldersExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclFavoriteFoldersExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclFavoriteFoldersExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclFavoriteFoldersExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Project Analyzer\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclProjectAnalysisExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclProjectAnalysisExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Project Analyzer\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclProjectAnalysisExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclProjectAnalysisExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclRepositoryExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclRepositoryExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclRepositoryExpertC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Package containing repository wizards\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclRepositoryExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclRepositoryExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclRepositoryExpertC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Package containing repository wizards\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclRepositoryExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclRepositoryExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclSIMDViewExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclSIMDViewExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclSIMDViewExpertC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclSIMDViewExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclSIMDViewExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclSIMDViewExpertC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclSIMDViewExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclSIMDViewExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclThreadNameExpertC50.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclThreadNameExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclThreadNameExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclThreadNameExpertC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Thread Name IDE expert\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclThreadNameExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclThreadNameExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Thread Name IDE expert\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclThreadNameExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclThreadNameExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclUsesExpertC50.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclUsesExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclUsesExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclUsesExpertC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Uses Wizard\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclUsesExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclUsesExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclUsesExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclUsesExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclUsesExpertDLLC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Uses Wizard\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclUsesExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclUsesExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclUsesExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclVclC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclVclC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclVclC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JEDI Code Library VCL package\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclVclC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclVclC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclVclC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclVersionControlExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclVersionControlExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclVersionControlExpertC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Integration of version control systems in the IDE\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclVersionControlExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclVersionControlExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclVersionControlExpertC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Integration of version control systems in the IDE\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclVersionControlExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclVersionControlExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/Jcl.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/Jcl.rc
===================================================================
--- trunk/jcl/packages/c6/Jcl.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c6/Jcl.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JEDI Code Library RTL package\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "Jcl\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c6/JclBaseExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclBaseExpert.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c6/JclBaseExpert.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Package containing common units for JCL Experts\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclBaseExpert\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclBaseExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c6/JclBaseExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclContainers.rc
===================================================================
--- trunk/jcl/packages/c6/JclContainers.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c6/JclContainers.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JEDI Code Library Containers package\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclContainers\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclContainersC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c6/JclContainers.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclDebugExpert.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclDebugExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclDebugExpert.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c6/JclDebugExpert.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Debug IDE extension\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclDebugExpert\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclDebugExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c6/JclDebugExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclDebugExpertDLL.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c6/JclDebugExpertDLL.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Debug IDE extension\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclDebugExpertDLL\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclDebugExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c6/JclDebugExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclFavoriteFoldersExpert.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/c6/JclFavoriteFoldersExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclFavoriteFoldersExpert.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c6/JclFavoriteFoldersExpert.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclFavoriteFoldersExpert\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclFavoriteFoldersExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "2.0 Build 3401\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc	2009-06-22 19:15:21 UTC (rev 2826)
+++ trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc	2009-06-22 19:16:26 UTC (rev 2827)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 2,0,0,3401
+PRODUCTVERSION 2,0,0,3401
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "2.0.0.3401\0"
               VALUE "InternalName", "JclFavoriteFoldersExpertDLL\0"
     ...
 
[truncated message content]

[Jcl-checkins-diff] SF.net SVN: jcl:[2826] branches/JCL_1.105/jcl

From: <ou...@us...> - 2009-06-22 19:15:28

Revision: 2826
          http://jcl.svn.sourceforge.net/jcl/?rev=2826&view=rev
Author:   outchy
Date:     2009-06-22 19:15:21 +0000 (Mon, 22 Jun 2009)

Log Message:
-----------
Version numbers for JCL 1.105.1.3400.

Modified Paths:
--------------
    branches/JCL_1.105/jcl/devtools/pgEdit.xml
    branches/JCL_1.105/jcl/packages/c5/JclBaseExpertC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclBaseExpertC50.res
    branches/JCL_1.105/jcl/packages/c5/JclC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclC50.res
    branches/JCL_1.105/jcl/packages/c5/JclContainersC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclContainersC50.res
    branches/JCL_1.105/jcl/packages/c5/JclDebugExpertC50.RES
    branches/JCL_1.105/jcl/packages/c5/JclDebugExpertC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclDebugExpertDLLC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclDebugExpertDLLC50.res
    branches/JCL_1.105/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclFavoriteFoldersExpertC50.res
    branches/JCL_1.105/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.res
    branches/JCL_1.105/jcl/packages/c5/JclProjectAnalysisExpertC50.RES
    branches/JCL_1.105/jcl/packages/c5/JclProjectAnalysisExpertC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.res
    branches/JCL_1.105/jcl/packages/c5/JclRepositoryExpertC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclRepositoryExpertC50.res
    branches/JCL_1.105/jcl/packages/c5/JclRepositoryExpertDLLC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclRepositoryExpertDLLC50.res
    branches/JCL_1.105/jcl/packages/c5/JclSIMDViewExpertC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclSIMDViewExpertC50.res
    branches/JCL_1.105/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclSIMDViewExpertDLLC50.res
    branches/JCL_1.105/jcl/packages/c5/JclThreadNameExpertC50.RES
    branches/JCL_1.105/jcl/packages/c5/JclThreadNameExpertC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclThreadNameExpertDLLC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclThreadNameExpertDLLC50.res
    branches/JCL_1.105/jcl/packages/c5/JclUsesExpertC50.RES
    branches/JCL_1.105/jcl/packages/c5/JclUsesExpertC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclUsesExpertDLLC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclUsesExpertDLLC50.res
    branches/JCL_1.105/jcl/packages/c5/JclVclC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclVclC50.res
    branches/JCL_1.105/jcl/packages/c5/JclVersionControlExpertC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclVersionControlExpertC50.res
    branches/JCL_1.105/jcl/packages/c5/JclVersionControlExpertDLLC50.rc
    branches/JCL_1.105/jcl/packages/c5/JclVersionControlExpertDLLC50.res
    branches/JCL_1.105/jcl/packages/c6/Jcl.RES
    branches/JCL_1.105/jcl/packages/c6/Jcl.rc
    branches/JCL_1.105/jcl/packages/c6/JclBaseExpert.rc
    branches/JCL_1.105/jcl/packages/c6/JclBaseExpert.res
    branches/JCL_1.105/jcl/packages/c6/JclContainers.rc
    branches/JCL_1.105/jcl/packages/c6/JclContainers.res
    branches/JCL_1.105/jcl/packages/c6/JclDebugExpert.RES
    branches/JCL_1.105/jcl/packages/c6/JclDebugExpert.rc
    branches/JCL_1.105/jcl/packages/c6/JclDebugExpertDLL.rc
    branches/JCL_1.105/jcl/packages/c6/JclDebugExpertDLL.res
    branches/JCL_1.105/jcl/packages/c6/JclFavoriteFoldersExpert.RES
    branches/JCL_1.105/jcl/packages/c6/JclFavoriteFoldersExpert.rc
    branches/JCL_1.105/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_1.105/jcl/packages/c6/JclFavoriteFoldersExpertDLL.res
    branches/JCL_1.105/jcl/packages/c6/JclProjectAnalysisExpert.RES
    branches/JCL_1.105/jcl/packages/c6/JclProjectAnalysisExpert.rc
    branches/JCL_1.105/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc
    branches/JCL_1.105/jcl/packages/c6/JclProjectAnalysisExpertDLL.res
    branches/JCL_1.105/jcl/packages/c6/JclRepositoryExpert.rc
    branches/JCL_1.105/jcl/packages/c6/JclRepositoryExpert.res
    branches/JCL_1.105/jcl/packages/c6/JclRepositoryExpertDLL.rc
    branches/JCL_1.105/jcl/packages/c6/JclRepositoryExpertDLL.res
    branches/JCL_1.105/jcl/packages/c6/JclSIMDViewExpert.rc
    branches/JCL_1.105/jcl/packages/c6/JclSIMDViewExpert.res
    branches/JCL_1.105/jcl/packages/c6/JclSIMDViewExpertDLL.rc
    branches/JCL_1.105/jcl/packages/c6/JclSIMDViewExpertDLL.res
    branches/JCL_1.105/jcl/packages/c6/JclThreadNameExpert.RES
    branches/JCL_1.105/jcl/packages/c6/JclThreadNameExpert.rc
    branches/JCL_1.105/jcl/packages/c6/JclThreadNameExpertDLL.rc
    branches/JCL_1.105/jcl/packages/c6/JclThreadNameExpertDLL.res
    branches/JCL_1.105/jcl/packages/c6/JclUsesExpert.RES
    branches/JCL_1.105/jcl/packages/c6/JclUsesExpert.rc
    branches/JCL_1.105/jcl/packages/c6/JclUsesExpertDLL.rc
    branches/JCL_1.105/jcl/packages/c6/JclUsesExpertDLL.res
    branches/JCL_1.105/jcl/packages/c6/JclVClx.RES
    branches/JCL_1.105/jcl/packages/c6/JclVClx.rc
    branches/JCL_1.105/jcl/packages/c6/JclVcl.RES
    branches/JCL_1.105/jcl/packages/c6/JclVcl.rc
    branches/JCL_1.105/jcl/packages/c6/JclVersionControlExpert.rc
    branches/JCL_1.105/jcl/packages/c6/JclVersionControlExpert.res
    branches/JCL_1.105/jcl/packages/c6/JclVersionControlExpertDLL.rc
    branches/JCL_1.105/jcl/packages/c6/JclVersionControlExpertDLL.res
    branches/JCL_1.105/jcl/packages/cs1/Jcl.RES
    branches/JCL_1.105/jcl/packages/cs1/Jcl.bdsproj
    branches/JCL_1.105/jcl/packages/cs1/Jcl.rc
    branches/JCL_1.105/jcl/packages/cs1/JclBaseExpert.RES
    branches/JCL_1.105/jcl/packages/cs1/JclBaseExpert.bdsproj
    branches/JCL_1.105/jcl/packages/cs1/JclBaseExpert.rc
    branches/JCL_1.105/jcl/packages/cs1/JclContainers.bdsproj
    branches/JCL_1.105/jcl/packages/cs1/JclContainers.rc
    branches/JCL_1.105/jcl/packages/cs1/JclContainers.res
    branches/JCL_1.105/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.RES
    branches/JCL_1.105/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_1.105/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/cs1/JclVersionControlExpertDLL.rc
    branches/JCL_1.105/jcl/packages/cs1/JclVersionControlExpertDLL.res
    branches/JCL_1.105/jcl/packages/d10/Jcl.bdsproj
    branches/JCL_1.105/jcl/packages/d10/Jcl.rc
    branches/JCL_1.105/jcl/packages/d10/Jcl.res
    branches/JCL_1.105/jcl/packages/d10/JclBaseExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclBaseExpert.rc
    branches/JCL_1.105/jcl/packages/d10/JclBaseExpert.res
    branches/JCL_1.105/jcl/packages/d10/JclContainers.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclContainers.rc
    branches/JCL_1.105/jcl/packages/d10/JclContainers.res
    branches/JCL_1.105/jcl/packages/d10/JclDebugExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclDebugExpert.rc
    branches/JCL_1.105/jcl/packages/d10/JclDebugExpert.res
    branches/JCL_1.105/jcl/packages/d10/JclDebugExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclDebugExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d10/JclDebugExpertDLL.res
    branches/JCL_1.105/jcl/packages/d10/JclFavoriteFoldersExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclFavoriteFoldersExpert.rc
    branches/JCL_1.105/jcl/packages/d10/JclFavoriteFoldersExpert.res
    branches/JCL_1.105/jcl/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d10/JclFavoriteFoldersExpertDLL.res
    branches/JCL_1.105/jcl/packages/d10/JclProjectAnalysisExpert.RES
    branches/JCL_1.105/jcl/packages/d10/JclProjectAnalysisExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclProjectAnalysisExpert.rc
    branches/JCL_1.105/jcl/packages/d10/JclProjectAnalysisExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclProjectAnalysisExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d10/JclProjectAnalysisExpertDLL.res
    branches/JCL_1.105/jcl/packages/d10/JclRepositoryExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclRepositoryExpert.rc
    branches/JCL_1.105/jcl/packages/d10/JclRepositoryExpert.res
    branches/JCL_1.105/jcl/packages/d10/JclRepositoryExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclRepositoryExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d10/JclRepositoryExpertDLL.res
    branches/JCL_1.105/jcl/packages/d10/JclSIMDViewExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclSIMDViewExpert.rc
    branches/JCL_1.105/jcl/packages/d10/JclSIMDViewExpert.res
    branches/JCL_1.105/jcl/packages/d10/JclSIMDViewExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclSIMDViewExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d10/JclSIMDViewExpertDLL.res
    branches/JCL_1.105/jcl/packages/d10/JclVcl.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclVcl.rc
    branches/JCL_1.105/jcl/packages/d10/JclVcl.res
    branches/JCL_1.105/jcl/packages/d10/JclVersionControlExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclVersionControlExpert.rc
    branches/JCL_1.105/jcl/packages/d10/JclVersionControlExpert.res
    branches/JCL_1.105/jcl/packages/d10/JclVersionControlExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/d10/JclVersionControlExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d10/JclVersionControlExpertDLL.res
    branches/JCL_1.105/jcl/packages/d10.net/Jedi.Jcl.bdsproj
    branches/JCL_1.105/jcl/packages/d10.net/Jedi.Jcl.dpk
    branches/JCL_1.105/jcl/packages/d10.net/Jedi.JclContainers.bdsproj
    branches/JCL_1.105/jcl/packages/d10.net/Jedi.JclContainers.dpk
    branches/JCL_1.105/jcl/packages/d11/Jcl.dproj
    branches/JCL_1.105/jcl/packages/d11/Jcl.rc
    branches/JCL_1.105/jcl/packages/d11/Jcl.res
    branches/JCL_1.105/jcl/packages/d11/JclBaseExpert.dproj
    branches/JCL_1.105/jcl/packages/d11/JclBaseExpert.rc
    branches/JCL_1.105/jcl/packages/d11/JclBaseExpert.res
    branches/JCL_1.105/jcl/packages/d11/JclContainers.dproj
    branches/JCL_1.105/jcl/packages/d11/JclContainers.rc
    branches/JCL_1.105/jcl/packages/d11/JclContainers.res
    branches/JCL_1.105/jcl/packages/d11/JclDebugExpert.dproj
    branches/JCL_1.105/jcl/packages/d11/JclDebugExpert.rc
    branches/JCL_1.105/jcl/packages/d11/JclDebugExpert.res
    branches/JCL_1.105/jcl/packages/d11/JclDebugExpertDLL.dproj
    branches/JCL_1.105/jcl/packages/d11/JclDebugExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d11/JclDebugExpertDLL.res
    branches/JCL_1.105/jcl/packages/d11/JclFavoriteFoldersExpert.dproj
    branches/JCL_1.105/jcl/packages/d11/JclFavoriteFoldersExpert.rc
    branches/JCL_1.105/jcl/packages/d11/JclFavoriteFoldersExpert.res
    branches/JCL_1.105/jcl/packages/d11/JclFavoriteFoldersExpertDLL.dproj
    branches/JCL_1.105/jcl/packages/d11/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d11/JclFavoriteFoldersExpertDLL.res
    branches/JCL_1.105/jcl/packages/d11/JclProjectAnalysisExpert.dproj
    branches/JCL_1.105/jcl/packages/d11/JclProjectAnalysisExpert.rc
    branches/JCL_1.105/jcl/packages/d11/JclProjectAnalysisExpert.res
    branches/JCL_1.105/jcl/packages/d11/JclProjectAnalysisExpertDLL.dproj
    branches/JCL_1.105/jcl/packages/d11/JclProjectAnalysisExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d11/JclProjectAnalysisExpertDLL.res
    branches/JCL_1.105/jcl/packages/d11/JclRepositoryExpert.dproj
    branches/JCL_1.105/jcl/packages/d11/JclRepositoryExpert.rc
    branches/JCL_1.105/jcl/packages/d11/JclRepositoryExpert.res
    branches/JCL_1.105/jcl/packages/d11/JclRepositoryExpertDLL.dproj
    branches/JCL_1.105/jcl/packages/d11/JclRepositoryExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d11/JclRepositoryExpertDLL.res
    branches/JCL_1.105/jcl/packages/d11/JclSIMDViewExpert.dproj
    branches/JCL_1.105/jcl/packages/d11/JclSIMDViewExpert.rc
    branches/JCL_1.105/jcl/packages/d11/JclSIMDViewExpert.res
    branches/JCL_1.105/jcl/packages/d11/JclSIMDViewExpertDLL.dproj
    branches/JCL_1.105/jcl/packages/d11/JclSIMDViewExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d11/JclSIMDViewExpertDLL.res
    branches/JCL_1.105/jcl/packages/d11/JclVcl.dproj
    branches/JCL_1.105/jcl/packages/d11/JclVcl.rc
    branches/JCL_1.105/jcl/packages/d11/JclVcl.res
    branches/JCL_1.105/jcl/packages/d11/JclVersionControlExpert.dproj
    branches/JCL_1.105/jcl/packages/d11/JclVersionControlExpert.rc
    branches/JCL_1.105/jcl/packages/d11/JclVersionControlExpert.res
    branches/JCL_1.105/jcl/packages/d11/JclVersionControlExpertDLL.dproj
    branches/JCL_1.105/jcl/packages/d11/JclVersionControlExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d11/JclVersionControlExpertDLL.res
    branches/JCL_1.105/jcl/packages/d11.net/Jedi.Jcl.dpk
    branches/JCL_1.105/jcl/packages/d11.net/Jedi.Jcl.dproj
    branches/JCL_1.105/jcl/packages/d11.net/Jedi.JclContainers.dpk
    branches/JCL_1.105/jcl/packages/d11.net/Jedi.JclContainers.dproj
    branches/JCL_1.105/jcl/packages/d12/Jcl.dproj
    branches/JCL_1.105/jcl/packages/d12/Jcl.rc
    branches/JCL_1.105/jcl/packages/d12/Jcl.res
    branches/JCL_1.105/jcl/packages/d12/JclBaseExpert.dproj
    branches/JCL_1.105/jcl/packages/d12/JclBaseExpert.rc
    branches/JCL_1.105/jcl/packages/d12/JclBaseExpert.res
    branches/JCL_1.105/jcl/packages/d12/JclContainers.dproj
    branches/JCL_1.105/jcl/packages/d12/JclContainers.rc
    branches/JCL_1.105/jcl/packages/d12/JclContainers.res
    branches/JCL_1.105/jcl/packages/d12/JclDebugExpert.dproj
    branches/JCL_1.105/jcl/packages/d12/JclDebugExpert.rc
    branches/JCL_1.105/jcl/packages/d12/JclDebugExpert.res
    branches/JCL_1.105/jcl/packages/d12/JclDebugExpertDLL.dproj
    branches/JCL_1.105/jcl/packages/d12/JclDebugExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d12/JclDebugExpertDLL.res
    branches/JCL_1.105/jcl/packages/d12/JclFavoriteFoldersExpert.dproj
    branches/JCL_1.105/jcl/packages/d12/JclFavoriteFoldersExpert.rc
    branches/JCL_1.105/jcl/packages/d12/JclFavoriteFoldersExpert.res
    branches/JCL_1.105/jcl/packages/d12/JclFavoriteFoldersExpertDLL.dproj
    branches/JCL_1.105/jcl/packages/d12/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d12/JclFavoriteFoldersExpertDLL.res
    branches/JCL_1.105/jcl/packages/d12/JclProjectAnalysisExpert.dproj
    branches/JCL_1.105/jcl/packages/d12/JclProjectAnalysisExpert.rc
    branches/JCL_1.105/jcl/packages/d12/JclProjectAnalysisExpert.res
    branches/JCL_1.105/jcl/packages/d12/JclProjectAnalysisExpertDLL.dproj
    branches/JCL_1.105/jcl/packages/d12/JclProjectAnalysisExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d12/JclProjectAnalysisExpertDLL.res
    branches/JCL_1.105/jcl/packages/d12/JclRepositoryExpert.dproj
    branches/JCL_1.105/jcl/packages/d12/JclRepositoryExpert.rc
    branches/JCL_1.105/jcl/packages/d12/JclRepositoryExpert.res
    branches/JCL_1.105/jcl/packages/d12/JclRepositoryExpertDLL.dproj
    branches/JCL_1.105/jcl/packages/d12/JclRepositoryExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d12/JclRepositoryExpertDLL.res
    branches/JCL_1.105/jcl/packages/d12/JclSIMDViewExpert.dproj
    branches/JCL_1.105/jcl/packages/d12/JclSIMDViewExpert.rc
    branches/JCL_1.105/jcl/packages/d12/JclSIMDViewExpert.res
    branches/JCL_1.105/jcl/packages/d12/JclSIMDViewExpertDLL.dproj
    branches/JCL_1.105/jcl/packages/d12/JclSIMDViewExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d12/JclSIMDViewExpertDLL.res
    branches/JCL_1.105/jcl/packages/d12/JclVcl.dproj
    branches/JCL_1.105/jcl/packages/d12/JclVcl.rc
    branches/JCL_1.105/jcl/packages/d12/JclVcl.res
    branches/JCL_1.105/jcl/packages/d12/JclVersionControlExpert.dproj
    branches/JCL_1.105/jcl/packages/d12/JclVersionControlExpert.rc
    branches/JCL_1.105/jcl/packages/d12/JclVersionControlExpert.res
    branches/JCL_1.105/jcl/packages/d12/JclVersionControlExpertDLL.dproj
    branches/JCL_1.105/jcl/packages/d12/JclVersionControlExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d12/JclVersionControlExpertDLL.res
    branches/JCL_1.105/jcl/packages/d5/JclBaseExpertD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclBaseExpertD50.res
    branches/JCL_1.105/jcl/packages/d5/JclContainersD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclContainersD50.res
    branches/JCL_1.105/jcl/packages/d5/JclD50.RES
    branches/JCL_1.105/jcl/packages/d5/JclD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclDebugExpertD50.RES
    branches/JCL_1.105/jcl/packages/d5/JclDebugExpertD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclDebugExpertDLLD50.RES
    branches/JCL_1.105/jcl/packages/d5/JclDebugExpertDLLD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclFavoriteFoldersExpertD50.RES
    branches/JCL_1.105/jcl/packages/d5/JclFavoriteFoldersExpertD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclFavoriteFoldersExpertDLLD50.RES
    branches/JCL_1.105/jcl/packages/d5/JclFavoriteFoldersExpertDLLD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclProjectAnalysisExpertD50.RES
    branches/JCL_1.105/jcl/packages/d5/JclProjectAnalysisExpertD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclProjectAnalysisExpertDLLD50.RES
    branches/JCL_1.105/jcl/packages/d5/JclProjectAnalysisExpertDLLD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclRepositoryExpertD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclRepositoryExpertD50.res
    branches/JCL_1.105/jcl/packages/d5/JclRepositoryExpertDLLD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclRepositoryExpertDLLD50.res
    branches/JCL_1.105/jcl/packages/d5/JclSIMDViewExpertD50.RES
    branches/JCL_1.105/jcl/packages/d5/JclSIMDViewExpertD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclSIMDViewExpertDLLD50.RES
    branches/JCL_1.105/jcl/packages/d5/JclSIMDViewExpertDLLD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclThreadNameExpertD50.RES
    branches/JCL_1.105/jcl/packages/d5/JclThreadNameExpertD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclThreadNameExpertDLLD50.RES
    branches/JCL_1.105/jcl/packages/d5/JclThreadNameExpertDLLD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclUsesExpertD50.RES
    branches/JCL_1.105/jcl/packages/d5/JclUsesExpertD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclUsesExpertDLLD50.RES
    branches/JCL_1.105/jcl/packages/d5/JclUsesExpertDLLD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclVclD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclVclD50.res
    branches/JCL_1.105/jcl/packages/d5/JclVersionControlExpertD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclVersionControlExpertD50.res
    branches/JCL_1.105/jcl/packages/d5/JclVersionControlExpertDLLD50.rc
    branches/JCL_1.105/jcl/packages/d5/JclVersionControlExpertDLLD50.res
    branches/JCL_1.105/jcl/packages/d6/Jcl.rc
    branches/JCL_1.105/jcl/packages/d6/Jcl.res
    branches/JCL_1.105/jcl/packages/d6/JclBaseExpert.rc
    branches/JCL_1.105/jcl/packages/d6/JclBaseExpert.res
    branches/JCL_1.105/jcl/packages/d6/JclContainers.rc
    branches/JCL_1.105/jcl/packages/d6/JclContainers.res
    branches/JCL_1.105/jcl/packages/d6/JclDebugExpert.rc
    branches/JCL_1.105/jcl/packages/d6/JclDebugExpert.res
    branches/JCL_1.105/jcl/packages/d6/JclDebugExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d6/JclDebugExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d6/JclFavoriteFoldersExpert.rc
    branches/JCL_1.105/jcl/packages/d6/JclFavoriteFoldersExpert.res
    branches/JCL_1.105/jcl/packages/d6/JclFavoriteFoldersExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d6/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d6/JclProjectAnalysisExpert.RES
    branches/JCL_1.105/jcl/packages/d6/JclProjectAnalysisExpert.rc
    branches/JCL_1.105/jcl/packages/d6/JclProjectAnalysisExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d6/JclProjectAnalysisExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d6/JclRepositoryExpert.rc
    branches/JCL_1.105/jcl/packages/d6/JclRepositoryExpert.res
    branches/JCL_1.105/jcl/packages/d6/JclRepositoryExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d6/JclRepositoryExpertDLL.res
    branches/JCL_1.105/jcl/packages/d6/JclSIMDViewExpert.rc
    branches/JCL_1.105/jcl/packages/d6/JclSIMDViewExpert.res
    branches/JCL_1.105/jcl/packages/d6/JclSIMDViewExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d6/JclSIMDViewExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d6/JclThreadNameExpert.rc
    branches/JCL_1.105/jcl/packages/d6/JclThreadNameExpert.res
    branches/JCL_1.105/jcl/packages/d6/JclThreadNameExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d6/JclThreadNameExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d6/JclUsesExpert.rc
    branches/JCL_1.105/jcl/packages/d6/JclUsesExpert.res
    branches/JCL_1.105/jcl/packages/d6/JclUsesExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d6/JclUsesExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d6/JclVClx.rc
    branches/JCL_1.105/jcl/packages/d6/JclVClx.res
    branches/JCL_1.105/jcl/packages/d6/JclVcl.rc
    branches/JCL_1.105/jcl/packages/d6/JclVcl.res
    branches/JCL_1.105/jcl/packages/d6/JclVersionControlExpert.rc
    branches/JCL_1.105/jcl/packages/d6/JclVersionControlExpert.res
    branches/JCL_1.105/jcl/packages/d6/JclVersionControlExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d6/JclVersionControlExpertDLL.res
    branches/JCL_1.105/jcl/packages/d7/Jcl.rc
    branches/JCL_1.105/jcl/packages/d7/Jcl.res
    branches/JCL_1.105/jcl/packages/d7/JclBaseExpert.rc
    branches/JCL_1.105/jcl/packages/d7/JclBaseExpert.res
    branches/JCL_1.105/jcl/packages/d7/JclContainers.rc
    branches/JCL_1.105/jcl/packages/d7/JclContainers.res
    branches/JCL_1.105/jcl/packages/d7/JclDebugExpert.rc
    branches/JCL_1.105/jcl/packages/d7/JclDebugExpert.res
    branches/JCL_1.105/jcl/packages/d7/JclDebugExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d7/JclDebugExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d7/JclFavoriteFoldersExpert.rc
    branches/JCL_1.105/jcl/packages/d7/JclFavoriteFoldersExpert.res
    branches/JCL_1.105/jcl/packages/d7/JclFavoriteFoldersExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d7/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d7/JclProjectAnalysisExpert.RES
    branches/JCL_1.105/jcl/packages/d7/JclProjectAnalysisExpert.rc
    branches/JCL_1.105/jcl/packages/d7/JclProjectAnalysisExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d7/JclProjectAnalysisExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d7/JclRepositoryExpert.rc
    branches/JCL_1.105/jcl/packages/d7/JclRepositoryExpert.res
    branches/JCL_1.105/jcl/packages/d7/JclRepositoryExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d7/JclRepositoryExpertDLL.res
    branches/JCL_1.105/jcl/packages/d7/JclSIMDViewExpert.rc
    branches/JCL_1.105/jcl/packages/d7/JclSIMDViewExpert.res
    branches/JCL_1.105/jcl/packages/d7/JclSIMDViewExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d7/JclSIMDViewExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d7/JclUsesExpert.rc
    branches/JCL_1.105/jcl/packages/d7/JclUsesExpert.res
    branches/JCL_1.105/jcl/packages/d7/JclUsesExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d7/JclUsesExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d7/JclVClx.rc
    branches/JCL_1.105/jcl/packages/d7/JclVClx.res
    branches/JCL_1.105/jcl/packages/d7/JclVcl.rc
    branches/JCL_1.105/jcl/packages/d7/JclVcl.res
    branches/JCL_1.105/jcl/packages/d7/JclVersionControlExpert.rc
    branches/JCL_1.105/jcl/packages/d7/JclVersionControlExpert.res
    branches/JCL_1.105/jcl/packages/d7/JclVersionControlExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d7/JclVersionControlExpertDLL.res
    branches/JCL_1.105/jcl/packages/d8/Jcl.RES
    branches/JCL_1.105/jcl/packages/d8/Jcl.bdsproj
    branches/JCL_1.105/jcl/packages/d8/Jcl.rc
    branches/JCL_1.105/jcl/packages/d8/JclBaseExpert.RES
    branches/JCL_1.105/jcl/packages/d8/JclBaseExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d8/JclBaseExpert.rc
    branches/JCL_1.105/jcl/packages/d8/JclContainers.bdsproj
    branches/JCL_1.105/jcl/packages/d8/JclContainers.rc
    branches/JCL_1.105/jcl/packages/d8/JclContainers.res
    branches/JCL_1.105/jcl/packages/d8/JclFavoriteFoldersExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d8/JclFavoriteFoldersExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/d8/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d8/JclVersionControlExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/d8/JclVersionControlExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d8/JclVersionControlExpertDLL.res
    branches/JCL_1.105/jcl/packages/d9/Jcl.RES
    branches/JCL_1.105/jcl/packages/d9/Jcl.bdsproj
    branches/JCL_1.105/jcl/packages/d9/Jcl.rc
    branches/JCL_1.105/jcl/packages/d9/JclBaseExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclBaseExpert.rc
    branches/JCL_1.105/jcl/packages/d9/JclBaseExpert.res
    branches/JCL_1.105/jcl/packages/d9/JclContainers.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclContainers.rc
    branches/JCL_1.105/jcl/packages/d9/JclContainers.res
    branches/JCL_1.105/jcl/packages/d9/JclDebugExpert.RES
    branches/JCL_1.105/jcl/packages/d9/JclDebugExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclDebugExpert.rc
    branches/JCL_1.105/jcl/packages/d9/JclDebugExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d9/JclDebugExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclDebugExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d9/JclFavoriteFoldersExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclFavoriteFoldersExpert.rc
    branches/JCL_1.105/jcl/packages/d9/JclFavoriteFoldersExpert.res
    branches/JCL_1.105/jcl/packages/d9/JclFavoriteFoldersExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d9/JclFavoriteFoldersExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclFavoriteFoldersExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d9/JclProjectAnalysisExpert.RES
    branches/JCL_1.105/jcl/packages/d9/JclProjectAnalysisExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclProjectAnalysisExpert.rc
    branches/JCL_1.105/jcl/packages/d9/JclProjectAnalysisExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d9/JclProjectAnalysisExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclProjectAnalysisExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d9/JclRepositoryExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclRepositoryExpert.rc
    branches/JCL_1.105/jcl/packages/d9/JclRepositoryExpert.res
    branches/JCL_1.105/jcl/packages/d9/JclRepositoryExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclRepositoryExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d9/JclRepositoryExpertDLL.res
    branches/JCL_1.105/jcl/packages/d9/JclSIMDViewExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclSIMDViewExpert.rc
    branches/JCL_1.105/jcl/packages/d9/JclSIMDViewExpertDLL.RES
    branches/JCL_1.105/jcl/packages/d9/JclSIMDViewExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclSIMDViewExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d9/JclSimdViewExpert.RES
    branches/JCL_1.105/jcl/packages/d9/JclVcl.RES
    branches/JCL_1.105/jcl/packages/d9/JclVcl.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclVcl.rc
    branches/JCL_1.105/jcl/packages/d9/JclVersionControlExpert.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclVersionControlExpert.rc
    branches/JCL_1.105/jcl/packages/d9/JclVersionControlExpert.res
    branches/JCL_1.105/jcl/packages/d9/JclVersionControlExpertDLL.bdsproj
    branches/JCL_1.105/jcl/packages/d9/JclVersionControlExpertDLL.rc
    branches/JCL_1.105/jcl/packages/d9/JclVersionControlExpertDLL.res
    branches/JCL_1.105/jcl/packages/d9.net/Jedi.Jcl.bdsproj
    branches/JCL_1.105/jcl/packages/d9.net/Jedi.Jcl.dpk
    branches/JCL_1.105/jcl/packages/d9.net/Jedi.JclContainers.bdsproj
    branches/JCL_1.105/jcl/packages/d9.net/Jedi.JclContainers.dpk
    branches/JCL_1.105/jcl/packages/k3/Jcl.bpk
    branches/JCL_1.105/jcl/packages/k3/Jcl.dpk
    branches/JCL_1.105/jcl/packages/k3/Jcl.rc
    branches/JCL_1.105/jcl/packages/k3/Jcl.res
    branches/JCL_1.105/jcl/packages/k3/JclContainers.bpk
    branches/JCL_1.105/jcl/packages/k3/JclContainers.dpk
    branches/JCL_1.105/jcl/packages/k3/JclContainers.rc
    branches/JCL_1.105/jcl/packages/k3/JclContainers.res
    branches/JCL_1.105/jcl/packages/k3/JclVClx.bpk
    branches/JCL_1.105/jcl/packages/k3/JclVClx.dpk
    branches/JCL_1.105/jcl/packages/k3/JclVClx.rc
    branches/JCL_1.105/jcl/packages/k3/JclVClx.res
    branches/JCL_1.105/jcl/source/common/JclBase.pas

Modified: branches/JCL_1.105/jcl/devtools/pgEdit.xml
===================================================================
--- branches/JCL_1.105/jcl/devtools/pgEdit.xml	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/devtools/pgEdit.xml	2009-06-22 19:15:21 UTC (rev 2826)
@@ -99,8 +99,8 @@
       <ProjectProperties>
         <ProjectProperty name="VersionMajorNumber" value="1"/>
         <ProjectProperty name="VersionMinorNumber" value="105"/>
-        <ProjectProperty name="ReleaseNumber" value="0"/>
-        <ProjectProperty name="BuildNumber" value="3249"/>
+        <ProjectProperty name="ReleaseNumber" value="1"/>
+        <ProjectProperty name="BuildNumber" value="3400"/>
       </ProjectProperties>
     </Model>
   </models>

Modified: branches/JCL_1.105/jcl/packages/c5/JclBaseExpertC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclBaseExpertC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclBaseExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Package containing common units for JCL Experts\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclBaseExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclBaseExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclBaseExpertC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JEDI Code Library RTL package\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclContainersC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclContainersC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclContainersC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JEDI Code Library Containers package\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclContainersC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclContainersC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclContainersC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclDebugExpertC50.RES
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclDebugExpertC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclDebugExpertC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclDebugExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Debug IDE extension\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclDebugExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclDebugExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclDebugExpertDLLC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclDebugExpertDLLC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclDebugExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Debug IDE extension\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclDebugExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclDebugExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclDebugExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclFavoriteFoldersExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclFavoriteFoldersExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclFavoriteFoldersExpertC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclFavoriteFoldersExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclFavoriteFoldersExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclProjectAnalysisExpertC50.RES
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclProjectAnalysisExpertC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclProjectAnalysisExpertC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclProjectAnalysisExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Project Analyzer\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclProjectAnalysisExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclProjectAnalysisExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Project Analyzer\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclProjectAnalysisExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclProjectAnalysisExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclRepositoryExpertC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclRepositoryExpertC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclRepositoryExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Package containing repository wizards\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclRepositoryExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclRepositoryExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclRepositoryExpertC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclRepositoryExpertDLLC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclRepositoryExpertDLLC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclRepositoryExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Package containing repository wizards\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclRepositoryExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclRepositoryExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclRepositoryExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclSIMDViewExpertC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclSIMDViewExpertC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclSIMDViewExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclSIMDViewExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclSIMDViewExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclSIMDViewExpertC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclSIMDViewExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclSIMDViewExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclSIMDViewExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclThreadNameExpertC50.RES
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclThreadNameExpertC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclThreadNameExpertC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclThreadNameExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Thread Name IDE expert\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclThreadNameExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclThreadNameExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclThreadNameExpertDLLC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclThreadNameExpertDLLC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclThreadNameExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Thread Name IDE expert\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclThreadNameExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclThreadNameExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclThreadNameExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclUsesExpertC50.RES
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclUsesExpertC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclUsesExpertC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclUsesExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Uses Wizard\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclUsesExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclUsesExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclUsesExpertDLLC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclUsesExpertDLLC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclUsesExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Uses Wizard\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclUsesExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclUsesExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclUsesExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclVclC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclVclC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclVclC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JEDI Code Library VCL package\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclVclC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclVclC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclVclC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclVersionControlExpertC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclVersionControlExpertC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclVersionControlExpertC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Integration of version control systems in the IDE\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclVersionControlExpertC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclVersionControlExpertC50C50.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclVersionControlExpertC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c5/JclVersionControlExpertDLLC50.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c5/JclVersionControlExpertDLLC50.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c5/JclVersionControlExpertDLLC50.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Integration of version control systems in the IDE\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclVersionControlExpertDLLC50\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclVersionControlExpertDLLC50C50.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c5/JclVersionControlExpertDLLC50.res
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c6/Jcl.RES
===================================================================
(Binary files differ)

Modified: branches/JCL_1.105/jcl/packages/c6/Jcl.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c6/Jcl.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c6/Jcl.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JEDI Code Library RTL package\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "Jcl\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALUE "ProductVersion", "1.105 Build 3400\0"
          END
     END
     BLOCK "VarFileInfo"

Modified: branches/JCL_1.105/jcl/packages/c6/JclBaseExpert.rc
===================================================================
--- branches/JCL_1.105/jcl/packages/c6/JclBaseExpert.rc	2009-06-22 18:54:43 UTC (rev 2825)
+++ branches/JCL_1.105/jcl/packages/c6/JclBaseExpert.rc	2009-06-22 19:15:21 UTC (rev 2826)
@@ -1,6 +1,6 @@
 VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,105,0,3249
-PRODUCTVERSION 1,105,0,3249
+FILEVERSION 1,105,1,3400
+PRODUCTVERSION 1,105,1,3400
  FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
 #ifdef _DEBUG
  FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
          BEGIN
               VALUE "CompanyName", "Project JEDI\0"
               VALUE "FileDescription", "JCL Package containing common units for JCL Experts\0"
-              VALUE "FileVersion", "1.105.0.3249\0"
+              VALUE "FileVersion", "1.105.1.3400\0"
               VALUE "InternalName", "JclBaseExpert\0"
               VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
               VALUE "OriginalFilename", "JclBaseExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
-              VALUE "ProductVersion", "1.105 Build 3249\0"
+              VALU...
 
[truncated message content]

[Jcl-checkins-diff] SF.net SVN: jcl:[2825] branches/JCL_1.105/

From: <ou...@us...> - 2009-06-22 18:54:50

Revision: 2825
          http://jcl.svn.sourceforge.net/jcl/?rev=2825&view=rev
Author:   outchy
Date:     2009-06-22 18:54:43 +0000 (Mon, 22 Jun 2009)

Log Message:
-----------
Branch for JCL 1.105.

Added Paths:
-----------
    branches/JCL_1.105/


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2824] trunk/jcl/docs

From: <ou...@us...> - 2009-06-22 18:34:23

Revision: 2824
          http://jcl.svn.sourceforge.net/jcl/?rev=2824&view=rev
Author:   outchy
Date:     2009-06-22 18:33:13 +0000 (Mon, 22 Jun 2009)

Log Message:
-----------
Update links to new homepage.

Modified Paths:
--------------
    trunk/jcl/docs/Readme.html
    trunk/jcl/docs/Readme.txt

Modified: trunk/jcl/docs/Readme.html
===================================================================
--- trunk/jcl/docs/Readme.html	2009-06-22 18:30:48 UTC (rev 2823)
+++ trunk/jcl/docs/Readme.html	2009-06-22 18:33:13 UTC (rev 2824)
@@ -332,7 +332,7 @@
 bug fixed you need to log it!</font></b></p>
 
 <p>An issue tracking tool can be accessed via ('Code Library' category):
-<a href="http://homepages.codegear.com/jedi/issuetracker/">http://homepages.codegear.com/jedi/issuetracker/</a></p>
+<a href="http://issuetracker.delphi-jedi.org/">http://issuetracker.delphi-jedi.org/</a></p>
 
 <p>Please be aware that you are allowed there to enter feature request and code donations as well.</p>
 
@@ -368,7 +368,7 @@
 should install a Subversion client (we recommend TortoiseSVN <a href="http://tortoisesvn.tigris.org/">http://tortoisesvn.tigris.org/</a>
 and RapidSVN <a href="http://rapidsvn.tigris.org/">http://rapidsvn.tigris.org/</a>) and download the
 SVN repository files to your computer as explained in the repository page of the JEDI Wiki at
-<a href="http://homepages.codegear.com/jedi/wiki/index.php?title=Repository">http://homepages.codegear.com/jedi/wiki/index.php?title=Repository</a>&nbsp;
+<a href="http://wiki.delphi-jedi.org/index.php?title=Repository">http://wiki.delphi-jedi.org/index.php?title=Repository</a>&nbsp;
 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 <a href="http://jcl.svn.sourceforge.net/">http://jcl.svn.sourceforge.net/</a></p>
 
@@ -395,7 +395,7 @@
 
 <p>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 <a href="http://homepages.codegear.com/jedi/jcl">http://homepages.codegear.com/jedi/jcl</a></p>
+requirements, visit the page <a href="http://jcl.delphi-jedi.org/">http://jcl.delphi-jedi.org/</a></p>
 
 <p>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

Modified: trunk/jcl/docs/Readme.txt
===================================================================
--- trunk/jcl/docs/Readme.txt	2009-06-22 18:30:48 UTC (rev 2823)
+++ trunk/jcl/docs/Readme.txt	2009-06-22 18:33:13 UTC (rev 2824)
@@ -254,7 +254,7 @@
 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://homepages.codegear.com/jedi/issuetracker/
+http://issuetracker.delphi-jedi.org/
 
 Please be aware that you are allowed there to enter feature request and code
 donations as well.
@@ -290,7 +290,7 @@
 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://homepages.codegear.com/jedi/wiki/index.php?title=Repository With the SVN
+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/
 
@@ -309,7 +309,7 @@
 
   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://homepages.codegear.com/jedi/jcl
+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


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2823] trunk/jcl

From: <ou...@us...> - 2009-06-22 18:32:11

Revision: 2823
          http://jcl.svn.sourceforge.net/jcl/?rev=2823&view=rev
Author:   outchy
Date:     2009-06-22 18:30:48 +0000 (Mon, 22 Jun 2009)

Log Message:
-----------
Preparation of JCL 1.105.

Modified Paths:
--------------
    trunk/jcl/Install.txt
    trunk/jcl/docs/Experts.html
    trunk/jcl/docs/Readme.html
    trunk/jcl/docs/Readme.txt

Modified: trunk/jcl/Install.txt
===================================================================
--- trunk/jcl/Install.txt	2009-06-22 18:09:52 UTC (rev 2822)
+++ trunk/jcl/Install.txt	2009-06-22 18:30:48 UTC (rev 2823)
@@ -1,4 +1,4 @@
-JEDI Code Library v 1.104 Installation
+JEDI Code Library v 1.105 Installation
 
 Supported development tools versions:
 
@@ -68,4 +68,4 @@
   Kylix 3 installation) in case your system is not set up to do that at startup.
 
 --------------------------------
-Document last updated 2009-01-21
+Document last updated 2009-06-22

Modified: trunk/jcl/docs/Experts.html
===================================================================
--- trunk/jcl/docs/Experts.html	2009-06-22 18:09:52 UTC (rev 2822)
+++ trunk/jcl/docs/Experts.html	2009-06-22 18:30:48 UTC (rev 2823)
@@ -1,7 +1,7 @@
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
 <html lang="en-us">
 <head>
-  <title>JEDI Code Library Release 1.103</title>
+  <title>JEDI Code Library Release 1.105</title>
   <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
   <link rel="stylesheet" type="text/css" href="styles/default.css">
   <meta content="Project JEDI" name="author">
@@ -10,9 +10,9 @@
 <body>
 <hr><br>
 <h1>JEDI Code Library</h1>
-<p>Release 1.104<br>
-Build 3248<br>
-21-January-2009</p>
+<p>Release 1.105<br>
+Build 3400<br>
+22-June-2009</p>
 <hr><br>
 <h3>Content of this file</h3>
 <ul>

Modified: trunk/jcl/docs/Readme.html
===================================================================
--- trunk/jcl/docs/Readme.html	2009-06-22 18:09:52 UTC (rev 2822)
+++ trunk/jcl/docs/Readme.html	2009-06-22 18:30:48 UTC (rev 2823)
@@ -1,7 +1,7 @@
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
 <html lang="en-us">
 <head>
-  <title>JEDI Code Library Beta 1.103</title>
+  <title>JEDI Code Library Release 1.105</title>
   <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
 
 
@@ -18,9 +18,9 @@
 
 <h1>JEDI Code Library</h1>
 
-<p>Release 1.104<br>
-Build 3248
-21-January-2009</p>
+<p>Release 1.105<br>
+Build 3400
+22-June-2009</p>
 
 <hr><br>
 
@@ -66,12 +66,14 @@
 <ul>
 
  <li>improved Unicode support for Delphi 2009 and C++Builder 2009;</li>
- <li>support for late and static binding to ZLib code;</li>
- <li>version control actions for CVS and SVN added to JCL runtime;</li>
- <li>the polynomial of CRC computations can be customized;</li>
- <li>speed improvement of TJclBufferedStream during write operations;</li>
- <li>new archive compression format provided with 7-zip: lzma, pe, elf, macho, udf, xar, mub, hfs, dmg; the wrapper has previous support for the compression and the decompression of zip, bzip2, gzip, 7z, tar and for the decompression of rar, iso, chm, deb, cab...</li>
- <li>new string conversion functions with failure detection.</li>
+ <li>support for solid archives in JclCompression (backend handled by 7-zip);</li>
+ <li>support for RPM, MUB and DMG archive formats (backend handled by 7-zip);</li>
+ <li>support for out-of-place and in-place archive updates (backend handled by 7-zip);</li>
+ <li>new string class TJclAnsiStrings to store AnsiString (improved Delphi 2009 backward compatibility);</li>
+ <li>JclPCRE update to PCRE 7.8;</li>
+ <li>the exception notifier can be disabled when a debugger is attached to the application;</li>
+ <li>support for multiple roots in TJclFileEnumerator;</li>
+ <li>new unit TJclCharsets.pas that contains the translations of charset names to codepages.</li>
 
 </ul>
 
@@ -81,6 +83,14 @@
 <ul>
 
   <li>
+   <p>This release is the last one to support Delphi 5 and C++Builder 5, the upcoming JCL 2.x release will NOT support these tools;</p>
+  </li>
+
+  <li>
+   <p>The support for Delphi 2005 is broken because of various compiler internal failures;</p>
+  </li>
+
+  <li>
     <p>Note that the package naming has changed: the same package name is used by
 all versions of the compiler supporting suffixes (C++Builder 6, Delphi 6,
 Delphi 7, C#Builder 1, Delphi 8, Delphi 2005, BDS 2006, RAD Studio 2007, Delphi 2009 and C++Builder 2009); a different suffix
@@ -152,8 +162,6 @@
 
   <li>C++Builder version 5 &amp; 6;</li>
 
-  <li>Delphi 2005 (Delphi.net personality);</li>
-
   <li>Borland Developer Studio 2006 (Delphi for Win32, C++Builder Win32, Delphi.net and C#Builder personalities);</li>
 
   <li>Turbo Delphi (explorer and professional - cf <a href="#notes">Installation notes</a>);</li>

Modified: trunk/jcl/docs/Readme.txt
===================================================================
--- trunk/jcl/docs/Readme.txt	2009-06-22 18:09:52 UTC (rev 2822)
+++ trunk/jcl/docs/Readme.txt	2009-06-22 18:30:48 UTC (rev 2823)
@@ -1,9 +1,9 @@
 --------------------------------------------------------------------------------
 
 JEDI Code Library
-Release 1.104
-Build 3248
-21-January-2009
+Release 1.105
+Build 3400
+22-June-2009
 
 --------------------------------------------------------------------------------
 
@@ -22,7 +22,7 @@
 --------------------------------------------------------------------------------
 
 About this release
-JCL release 1.104 provides an updated support for all targets
+JCL release 1.105 provides an updated support for all targets
 (including Delphi 2009 and C++Builder 2009).
 
 As always, multiple bugs have been fixed; for detailed change logs, use the
@@ -32,18 +32,22 @@
 Head changes:
 
  - improved Unicode support for Delphi 2009 and C++Builder 2009;
- - support for late and static binding to ZLib code;
- - version control actions for CVS and SVN added to JCL runtime;
- - the polyniomal of CRC computations can be customized;
- - speed improvement of TJclBufferedStream during write operations;
- - new archive compression format provided with 7-zip: lzma, pe, elf, macho,
-   udf, xar, mub, hfs, dmg; the wrapper has previous support for the compression
-   and the decompression of zip, bzip2, gzip, 7z, tar and for the decompression
-   of rar, iso, chm, deb, cab...
- - new string conversion functions with failure detection.
+ - support for solid archives in JclCompression (backend handled by 7-zip);
+ - support for RPM, MUB and DMG archive formats (backend handled by 7-zip);
+ - support for out-of-place and in-place archive updates (backend handled by 7-zip);
+ - new string class TJclAnsiStrings to store AnsiString (improved Delphi 2009 backward compatibility);
+ - JclPCRE update to PCRE 7.8;
+ - the exception notifier can be disabled when a debugger is attached to the application;
+ - support for multiple roots in TJclFileEnumerator;
+ - new unit TJclCharsets.pas that contains the translations of charset names to codepages;
 
 Important:
 
+ - This release is the last one to support Delphi 5 and C++Builder 5, the upcoming
+   JCL 2.x release will NOT support these tools;
+
+ - The support for Delphi 2005 is broken because of various compiler internal failures;
+
  - Note that the package naming has changed: the same package name is used by
    all versions of the compiler supporting suffixes (C++Builder 6, Delphi 6,
    Delphi 7, C#Builder 1, Delphi 8, Delphi 2005, BDS 2006, RAD Studio 2007,
@@ -78,8 +82,8 @@
 
 .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.
+  A subset of JCL units was worked over to support Delphi.Net (Delphi.net 2006
+and Delphi.net 2007). The packages belong to the Jedi.Jcl namespace.
 
 --------------------------------------------------------------------------------
 
@@ -96,7 +100,6 @@
 Both supports (run time and design time):
  - Delphi version 5, 6, 7;
  - C++Builder version 5 & 6;
- - Delphi 2005 (Delphi.net personality);
  - 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);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2822] trunk/jcl/source/common/JclFileUtils.pas

From: <ah...@us...> - 2009-06-22 18:09:53

Revision: 2822
          http://jcl.svn.sourceforge.net/jcl/?rev=2822&view=rev
Author:   ahuser
Date:     2009-06-22 18:09:52 +0000 (Mon, 22 Jun 2009)

Log Message:
-----------
Delphi 5 compiles now.

Modified Paths:
--------------
    trunk/jcl/source/common/JclFileUtils.pas

Modified: trunk/jcl/source/common/JclFileUtils.pas
===================================================================
--- trunk/jcl/source/common/JclFileUtils.pas	2009-06-22 17:35:57 UTC (rev 2821)
+++ trunk/jcl/source/common/JclFileUtils.pas	2009-06-22 18:09:52 UTC (rev 2822)
@@ -5379,7 +5379,7 @@
 begin
   if Window <>0 then
   begin
-    Windows.GetWindowThreadProcessId(Window, ProcessID);
+    Windows.GetWindowThreadProcessId(Window, @ProcessID);
     hProcess := Windows.OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, ProcessID);
     if hProcess <> 0 then
     begin


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2821] trunk/jcl/source/common

From: <ou...@us...> - 2009-06-22 17:35:58

Revision: 2821
          http://jcl.svn.sourceforge.net/jcl/?rev=2821&view=rev
Author:   outchy
Date:     2009-06-22 17:35:57 +0000 (Mon, 22 Jun 2009)

Log Message:
-----------
Mantis 4829: Make EJclStringError to a real type.

Modified Paths:
--------------
    trunk/jcl/source/common/JclStrings.pas
    trunk/jcl/source/common/JclWideStrings.pas

Modified: trunk/jcl/source/common/JclStrings.pas
===================================================================
--- trunk/jcl/source/common/JclStrings.pas	2009-06-22 17:31:19 UTC (rev 2820)
+++ trunk/jcl/source/common/JclStrings.pas	2009-06-22 17:35:57 UTC (rev 2821)
@@ -80,7 +80,7 @@
 
 // Exceptions
 type
-  EJclStringError = EJclError;
+  EJclStringError = class(EJclError);
 
 // Character constants and sets
 

Modified: trunk/jcl/source/common/JclWideStrings.pas
===================================================================
--- trunk/jcl/source/common/JclWideStrings.pas	2009-06-22 17:31:19 UTC (rev 2820)
+++ trunk/jcl/source/common/JclWideStrings.pas	2009-06-22 17:35:57 UTC (rev 2821)
@@ -53,7 +53,7 @@
 
 // Exceptions
 type
-  EJclWideStringError = EJclError;
+  EJclWideStringError = class(EJclError);
 
 const
   // definitions of often used characters:


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2820] trunk/help

From: <ou...@us...> - 2009-06-22 17:31:45

Revision: 2820
          http://jcl.svn.sourceforge.net/jcl/?rev=2820&view=rev
Author:   outchy
Date:     2009-06-22 17:31:19 +0000 (Mon, 22 Jun 2009)

Log Message:
-----------
Documentation update.

Modified Paths:
--------------
    trunk/help/JCLHelp.dox
    trunk/help/Streams.dtx

Modified: trunk/help/JCLHelp.dox
===================================================================
--- trunk/help/JCLHelp.dox	2009-06-22 17:29:52 UTC (rev 2819)
+++ trunk/help/JCLHelp.dox	2009-06-22 17:31:19 UTC (rev 2820)
@@ -401,7 +401,7 @@
 
 [Configurations]
 Count=6
-Current=2
+Current=0
 Name0=HTML
 Name1=CHM
 Name2=H2
@@ -80796,9 +80796,11 @@
 ETPTopicOrder0=0
 
 [External Topic Properties\jcl.inc]
-Count=1
+Count=2
 ETPCommand0=2
-ETPTopicOrder0=2
+ETPCommand1=3
+ETPGroup1=SourceFiles
+ETPTopicOrder0=9
 
 [External Topic Properties\JCL_GZIP_CM_DEFLATE]
 Count=1
@@ -136687,11 +136689,7 @@
 HandleConditionalDefines=0
 
 [Parsing\Excluded Source Files]
-Count=4
-File_0=..\jcl\source\common\jcl.inc
-File_1=..\jcl\source\common\jedi.inc
-File_2=..\jcl\source\unixonly.inc
-File_3=..\jcl\source\windowsonly.inc
+Count=0
 
 [Project Database Files]
 Count=0
@@ -137302,47 +137300,47 @@
 File0=8087.dtx
 File1=AppInst.dtx
 File10=ExprEval.dtx
-File100=..\jcl\source\common\pcre.pas
-File101=..\jcl\source\vcl\JclFont.pas
-File102=..\jcl\source\vcl\JclGraphics.pas
-File103=..\jcl\source\vcl\JclGraphUtils.pas
-File104=..\jcl\source\vcl\JclPrint.pas
-File105=..\jcl\source\visclx\JclQGraphics.pas
-File106=..\jcl\source\visclx\JclQGraphUtils.pas
-File107=..\jcl\source\windows\Hardlinks.pas
-File108=..\jcl\source\windows\JclAppInst.pas
-File109=..\jcl\source\windows\JclCIL.pas
+File100=..\jcl\source\common\JclVectors.pas
+File101=..\jcl\source\common\JclWideStrings.pas
+File102=..\jcl\source\common\pcre.pas
+File103=..\jcl\source\vcl\JclFont.pas
+File104=..\jcl\source\vcl\JclGraphics.pas
+File105=..\jcl\source\vcl\JclGraphUtils.pas
+File106=..\jcl\source\vcl\JclPrint.pas
+File107=..\jcl\source\visclx\JclQGraphics.pas
+File108=..\jcl\source\visclx\JclQGraphUtils.pas
+File109=..\jcl\source\windows\Hardlinks.pas
 File11=FileUtils.dtx
-File110=..\jcl\source\windows\JclCLR.pas
-File111=..\jcl\source\windows\JclCOM.pas
-File112=..\jcl\source\windows\JclConsole.pas
-File113=..\jcl\source\windows\JclDebug.pas
-File114=..\jcl\source\windows\JclDotNet.pas
-File115=..\jcl\source\windows\JclHookExcept.pas
-File116=..\jcl\source\windows\JclLANMan.pas
-File117=..\jcl\source\windows\JclLocales.pas
-File118=..\jcl\source\windows\JclMapi.pas
-File119=..\jcl\source\windows\JclMetadata.pas
+File110=..\jcl\source\windows\JclAppInst.pas
+File111=..\jcl\source\windows\JclCIL.pas
+File112=..\jcl\source\windows\JclCLR.pas
+File113=..\jcl\source\windows\JclCOM.pas
+File114=..\jcl\source\windows\JclConsole.pas
+File115=..\jcl\source\windows\JclDebug.pas
+File116=..\jcl\source\windows\JclDotNet.pas
+File117=..\jcl\source\windows\JclHookExcept.pas
+File118=..\jcl\source\windows\JclLANMan.pas
+File119=..\jcl\source\windows\JclLocales.pas
 File12=Font.dtx
-File120=..\jcl\source\windows\JclMiscel.pas
-File121=..\jcl\source\windows\JclMsdosSys.pas
-File122=..\jcl\source\windows\JclMultimedia.pas
-File123=..\jcl\source\windows\JclNTFS.pas
-File124=..\jcl\source\windows\JclPeImage.pas
-File125=..\jcl\source\windows\JclRegistry.pas
-File126=..\jcl\source\windows\JclSecurity.pas
-File127=..\jcl\source\windows\JclShell.pas
-File128=..\jcl\source\windows\JclStructStorage.pas
-File129=..\jcl\source\windows\JclSvcCtrl.pas
+File120=..\jcl\source\windows\JclMapi.pas
+File121=..\jcl\source\windows\JclMetadata.pas
+File122=..\jcl\source\windows\JclMiscel.pas
+File123=..\jcl\source\windows\JclMsdosSys.pas
+File124=..\jcl\source\windows\JclMultimedia.pas
+File125=..\jcl\source\windows\JclNTFS.pas
+File126=..\jcl\source\windows\JclPeImage.pas
+File127=..\jcl\source\windows\JclRegistry.pas
+File128=..\jcl\source\windows\JclSecurity.pas
+File129=..\jcl\source\windows\JclShell.pas
 File13=Graphics.dtx
-File130=..\jcl\source\windows\JclTask.pas
-File131=..\jcl\source\windows\JclTD32.pas
-File132=..\jcl\source\windows\JclWideFormat.pas
-File133=..\jcl\source\windows\JclWin32.pas
-File134=..\jcl\source\windows\JclWin32Ex.pas
-File135=..\jcl\source\windows\JclWinMIDI.pas
-File136=..\jcl\source\common\JclNotify.pas
-File137=Notify.dtx
+File130=..\jcl\source\windows\JclStructStorage.pas
+File131=..\jcl\source\windows\JclSvcCtrl.pas
+File132=..\jcl\source\windows\JclTask.pas
+File133=..\jcl\source\windows\JclTD32.pas
+File134=..\jcl\source\windows\JclWideFormat.pas
+File135=..\jcl\source\windows\JclWin32.pas
+File136=..\jcl\source\windows\JclWin32Ex.pas
+File137=..\jcl\source\windows\JclWinMIDI.pas
 File14=Hardlinks.dtx
 File15=hlpgrps.dtx
 File16=IncludedFiles.dtx
@@ -137357,90 +137355,90 @@
 File24=Mime.dtx
 File25=Miscel.dtx
 File26=Multimedia.dtx
-File27=NTFS.dtx
-File28=pcre.dtx
-File29=PE.dtx
+File27=Notify.dtx
+File28=NTFS.dtx
+File29=pcre.dtx
 File3=Bitmap32.dtx
-File30=Regions.dtx
-File31=Registry.dtx
-File32=RTTI.dtx
-File33=Schedule.dtx
-File34=Security.dtx
-File35=Shell.dtx
-File36=Statistics.dtx
-File37=Streams.dtx
-File38=StrHashMap.dtx
-File39=Strings.dtx
+File30=PE.dtx
+File31=Regions.dtx
+File32=Registry.dtx
+File33=RTTI.dtx
+File34=Schedule.dtx
+File35=Security.dtx
+File36=Shell.dtx
+File37=Statistics.dtx
+File38=Streams.dtx
+File39=StrHashMap.dtx
 File4=Com.dtx
-File40=SvcCtrl.dtx
-File41=Synch.dtx
-File42=SysInfo.dtx
-File43=SysUtils.dtx
-File44=Unicode.dtx
-File45=UnitConv.dtx
-File46=WideStrings.dtx
-File47=Win32.dtx
-File48=..\jcl\source\common\Jcl8087.pas
-File49=..\jcl\source\common\JclAbstractContainers.pas
+File40=Strings.dtx
+File41=SvcCtrl.dtx
+File42=Synch.dtx
+File43=SysInfo.dtx
+File44=SysUtils.dtx
+File45=Unicode.dtx
+File46=UnitConv.dtx
+File47=WideStrings.dtx
+File48=Win32.dtx
+File49=..\jcl\source\common\Jcl8087.pas
 File5=Complex.dtx
-File50=..\jcl\source\common\JclAlgorithms.pas
-File51=..\jcl\source\common\JclAnsiStrings.pas
-File52=..\jcl\source\common\JclArrayLists.pas
-File53=..\jcl\source\common\JclArraySets.pas
-File54=..\jcl\source\common\JclBase.pas
-File55=..\jcl\source\common\JclBinaryTrees.pas
-File56=..\jcl\source\common\JclBorlandTools.pas
-File57=..\jcl\source\common\JclComplex.pas
-File58=..\jcl\source\common\JclCompression.pas
-File59=..\jcl\source\common\JclContainerIntf.pas
+File50=..\jcl\source\common\JclAbstractContainers.pas
+File51=..\jcl\source\common\JclAlgorithms.pas
+File52=..\jcl\source\common\JclAnsiStrings.pas
+File53=..\jcl\source\common\JclArrayLists.pas
+File54=..\jcl\source\common\JclArraySets.pas
+File55=..\jcl\source\common\JclBase.pas
+File56=..\jcl\source\common\JclBinaryTrees.pas
+File57=..\jcl\source\common\JclBorlandTools.pas
+File58=..\jcl\source\common\JclComplex.pas
+File59=..\jcl\source\common\JclCompression.pas
 File6=Containers.dtx
-File60=..\jcl\source\common\JclCounter.pas
-File61=..\jcl\source\common\JclDateTime.pas
-File62=..\jcl\source\common\JclEDI.pas
-File63=..\jcl\source\common\JclEDI_ANSIX12.pas
-File64=..\jcl\source\common\JclEDI_ANSIX12_Ext.pas
-File65=..\jcl\source\common\JclEDI_UNEDIFACT.pas
-File66=..\jcl\source\common\JclEDI_UNEDIFACT_Ext.pas
-File67=..\jcl\source\common\JclEDISEF.pas
-File68=..\jcl\source\common\JclEDITranslators.pas
-File69=..\jcl\source\common\JclEDIXML.pas
+File60=..\jcl\source\common\JclContainerIntf.pas
+File61=..\jcl\source\common\JclCounter.pas
+File62=..\jcl\source\common\JclDateTime.pas
+File63=..\jcl\source\common\JclEDI.pas
+File64=..\jcl\source\common\JclEDI_ANSIX12.pas
+File65=..\jcl\source\common\JclEDI_ANSIX12_Ext.pas
+File66=..\jcl\source\common\JclEDI_UNEDIFACT.pas
+File67=..\jcl\source\common\JclEDI_UNEDIFACT_Ext.pas
+File68=..\jcl\source\common\JclEDISEF.pas
+File69=..\jcl\source\common\JclEDITranslators.pas
 File7=Counter.dtx
-File70=..\jcl\source\common\JclExprEval.pas
-File71=..\jcl\source\common\JclFileUtils.pas
-File72=..\jcl\source\common\JclHashMaps.pas
-File73=..\jcl\source\common\JclHashSets.pas
-File74=..\jcl\source\common\JclIniFiles.pas
-File75=..\jcl\source\common\JclLinkedLists.pas
-File76=..\jcl\source\common\JclLogic.pas
-File77=..\jcl\source\common\JclMath.pas
-File78=..\jcl\source\common\JclMIDI.pas
-File79=..\jcl\source\common\JclMime.pas
+File70=..\jcl\source\common\JclEDIXML.pas
+File71=..\jcl\source\common\JclExprEval.pas
+File72=..\jcl\source\common\JclFileUtils.pas
+File73=..\jcl\source\common\JclHashMaps.pas
+File74=..\jcl\source\common\JclHashSets.pas
+File75=..\jcl\source\common\JclIniFiles.pas
+File76=..\jcl\source\common\JclLinkedLists.pas
+File77=..\jcl\source\common\JclLogic.pas
+File78=..\jcl\source\common\JclMath.pas
+File79=..\jcl\source\common\JclMIDI.pas
 File8=DateTime.dtx
-File80=..\jcl\source\common\JclPCRE.pas
-File81=..\jcl\source\common\JclQueues.pas
-File82=..\jcl\source\common\JclResources.pas
-File83=..\jcl\source\common\JclRTTI.pas
-File84=..\jcl\source\common\JclSchedule.pas
-File85=..\jcl\source\common\JclStacks.pas
-File86=..\jcl\source\common\JclStatistics.pas
-File87=..\jcl\source\common\JclStreams.pas
-File88=..\jcl\source\common\JclStrHashMap.pas
-File89=..\jcl\source\common\JclStrings.pas
+File80=..\jcl\source\common\JclMime.pas
+File81=..\jcl\source\common\JclNotify.pas
+File82=..\jcl\source\common\JclPCRE.pas
+File83=..\jcl\source\common\JclQueues.pas
+File84=..\jcl\source\common\JclResources.pas
+File85=..\jcl\source\common\JclRTTI.pas
+File86=..\jcl\source\common\JclSchedule.pas
+File87=..\jcl\source\common\JclStacks.pas
+File88=..\jcl\source\common\JclStatistics.pas
+File89=..\jcl\source\common\JclStreams.pas
 File9=Debug.dtx
-File90=..\jcl\source\common\JclSynch.pas
-File91=..\jcl\source\common\JclSysInfo.pas
-File92=..\jcl\source\common\JclSysUtils.pas
-File93=..\jcl\source\common\JclUnicode.pas
-File94=..\jcl\source\common\JclUnitConv.pas
-File95=..\jcl\source\common\JclUnitVersioning.pas
-File96=..\jcl\source\common\JclUnitVersioningProviders.pas
-File97=..\jcl\source\common\JclValidation.pas
-File98=..\jcl\source\common\JclVectors.pas
-File99=..\jcl\source\common\JclWideStrings.pas
+File90=..\jcl\source\common\JclStrHashMap.pas
+File91=..\jcl\source\common\JclStrings.pas
+File92=..\jcl\source\common\JclSynch.pas
+File93=..\jcl\source\common\JclSysInfo.pas
+File94=..\jcl\source\common\JclSysUtils.pas
+File95=..\jcl\source\common\JclUnicode.pas
+File96=..\jcl\source\common\JclUnitConv.pas
+File97=..\jcl\source\common\JclUnitVersioning.pas
+File98=..\jcl\source\common\JclUnitVersioningProviders.pas
+File99=..\jcl\source\common\JclValidation.pas
 
 [Source Include Directories]
 Count=1
-Dir0=..\jcl\source
+Dir0=..\jcl\source\include
 
 [Topic Reports]
 Count=2

Modified: trunk/help/Streams.dtx
===================================================================
--- trunk/help/Streams.dtx	2009-06-22 17:29:52 UTC (rev 2819)
+++ trunk/help/Streams.dtx	2009-06-22 17:31:19 UTC (rev 2820)
@@ -175,7 +175,7 @@
 Donator:
   Florent Ouchet
 --------------------------------------------------------------------------------
-@@TJclSectoredStream.Create@TStream@Boolean@Integer
+@@TJclSectoredStream.Create@TStream@Boolean@Longint
 Summary:
   Constructor of the TJclSectoredStream class.
 Parameters:
@@ -2221,7 +2221,7 @@
 Donator:
   Robert Marquardt
 --------------------------------------------------------------------------------
-@@TJclFileStream.Create@string@Word@Cardinal
+@@TJclFileStream.Create@TFileName@Word@Cardinal
 Summary:
   Constructor of the TJclFileStream class.
 Description:


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2819] trunk/jcl/source/common/JclSysUtils.pas

From: <ou...@us...> - 2009-06-22 17:30:03

Revision: 2819
          http://jcl.svn.sourceforge.net/jcl/?rev=2819&view=rev
Author:   outchy
Date:     2009-06-22 17:29:52 +0000 (Mon, 22 Jun 2009)

Log Message:
-----------
Make Doc-o-matic happy.

Modified Paths:
--------------
    trunk/jcl/source/common/JclSysUtils.pas

Modified: trunk/jcl/source/common/JclSysUtils.pas
===================================================================
--- trunk/jcl/source/common/JclSysUtils.pas	2009-06-22 17:04:44 UTC (rev 2818)
+++ trunk/jcl/source/common/JclSysUtils.pas	2009-06-22 17:29:52 UTC (rev 2819)
@@ -109,7 +109,8 @@
 function GuardGetMem(Size: Cardinal; out SafeGuard: ISafeGuard): Pointer;
 function GuardAllocMem(Size: Cardinal; out SafeGuard: ISafeGuard): Pointer;
 
-{$IFDEF SUPPORTS_GENERICS_}
+(*
+{$IFDEF SUPPORTS_GENERICS}
 type
   ISafeGuard<T: class> = interface
     function ReleaseItem: T;
@@ -130,7 +131,8 @@
   public
     class function New(Instance: T): ISafeGuard<T>; static;
   end;
-{$ENDIF SUPPORTS_GENERICS_}
+{$ENDIF SUPPORTS_GENERICS}
+*)
 
 { Shared memory between processes functions }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Jcl-checkins-diff] SF.net SVN: jcl:[2818] trunk/jcl/source/common/JclRTTI.pas

From: <ou...@us...> - 2009-06-22 17:05:25

Revision: 2818
          http://jcl.svn.sourceforge.net/jcl/?rev=2818&view=rev
Author:   outchy
Date:     2009-06-22 17:04:44 +0000 (Mon, 22 Jun 2009)

Log Message:
-----------
Missing property.

Modified Paths:
--------------
    trunk/jcl/source/common/JclRTTI.pas

Modified: trunk/jcl/source/common/JclRTTI.pas
===================================================================
--- trunk/jcl/source/common/JclRTTI.pas	2009-06-17 19:04:10 UTC (rev 2817)
+++ trunk/jcl/source/common/JclRTTI.pas	2009-06-22 17:04:44 UTC (rev 2818)
@@ -160,6 +160,9 @@
 
     property BaseType: IJclEnumerationTypeInfo read GetBaseType;
     property Names[const I: Integer]: string read GetNames; default;
+    {$IFDEF RTL140_UP}
+    property UnitName: string read GetUnitName;
+    {$ENDIF RTL140_UP}
   end;
 
   IJclSetTypeInfo = interface(IJclOrdinalTypeInfo)
@@ -715,6 +718,9 @@
   public
     property BaseType: IJclEnumerationTypeInfo read GetBaseType;
     property Names[const I: Integer]: string read GetNames; default;
+    {$IFDEF RTL140_UP}
+    property UnitName: string read GetUnitName;
+    {$ENDIF RTL140_UP}
   end;
 
 function TJclEnumerationTypeInfo.GetBaseType: IJclEnumerationTypeInfo;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

49 messages has been excluded from this view by a project administrator.

Flat | Threaded

<< < 1 .. 41 42 43 44 45 .. 92 > >> (Page 43 of 92)