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

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 2 3 4 5 6 .. 92 > >> (Page 4 of 92)

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

From: <ou...@us...> - 2012-08-13 13:00:51

Revision: 3817
          http://jcl.svn.sourceforge.net/jcl/?rev=3817&view=rev
Author:   outchy
Date:     2012-08-13 13:00:43 +0000 (Mon, 13 Aug 2012)
Log Message:
-----------
Mantis 5742: String to unsigned int conversion ?
Rename StrToCardinal to StrToUInt.

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

Modified: trunk/jcl/source/common/JclSysUtils.pas
===================================================================
--- trunk/jcl/source/common/JclSysUtils.pas	2012-08-13 12:35:38 UTC (rev 3816)
+++ trunk/jcl/source/common/JclSysUtils.pas	2012-08-13 13:00:43 UTC (rev 3817)
@@ -597,9 +597,9 @@
 function IntToBool(I: Integer): Boolean;
 function BoolToInt(B: Boolean): Integer;
 
-function TryStrToCardinal(const Value: string; out Res: Cardinal): boolean;
-function StrToCardinalDef(const Value: string; const Default: Cardinal): Cardinal;
-function StrToCardinal(const Value: string): Cardinal;
+function TryStrToUInt(const Value: string; out Res: Cardinal): Boolean;
+function StrToUIntDef(const Value: string; const Default: Cardinal): Cardinal;
+function StrToUInt(const Value: string): Cardinal;
 
 const
   {$IFDEF MSWINDOWS}
@@ -3468,7 +3468,7 @@
   Result := Ord(B);
 end;
 
-function TryStrToCardinal(const Value: string; out Res: Cardinal): boolean;
+function TryStrToUInt(const Value: string; out Res: Cardinal): Boolean;
 var i6: Int64;
 begin
   Result := false;
@@ -3479,15 +3479,15 @@
   Res := i6;
 end;
 
-function StrToCardinalDef(const Value: string; const Default: Cardinal): Cardinal;
+function StrToUIntDef(const Value: string; const Default: Cardinal): Cardinal;
 begin
-  if not TryStrToCardinal(Value, Result)
+  if not TryStrToUInt(Value, Result)
      then Result := Default;
 end;
 
-function StrToCardinal(const Value: string): Cardinal;
+function StrToUInt(const Value: string): Cardinal;
 begin
-  if not TryStrToCardinal(Value, Result)
+  if not TryStrToUInt(Value, Result)
      then raise EConvertError.Create('"'+Value+'" is not within range of Cardinal data type');
 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:[3816] trunk/jcl/source/common/JclStringLists.pas

From: <ou...@us...> - 2012-08-13 12:35:45

Revision: 3816
          http://jcl.svn.sourceforge.net/jcl/?rev=3816&view=rev
Author:   outchy
Date:     2012-08-13 12:35:38 +0000 (Mon, 13 Aug 2012)
Log Message:
-----------
Mantis 5875: Can't install on Delphi 2005 Pro.

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

Modified: trunk/jcl/source/common/JclStringLists.pas
===================================================================
--- trunk/jcl/source/common/JclStringLists.pas	2012-08-13 10:46:22 UTC (rev 3815)
+++ trunk/jcl/source/common/JclStringLists.pas	2012-08-13 12:35:38 UTC (rev 3816)
@@ -606,7 +606,7 @@
 
 function TJclStringList.First: string;
 begin
-  Result := Strings[0];
+  Result := Get(0);
 end;
 
 function TJclStringList.Join(const ASeparator: string): string;
@@ -615,14 +615,14 @@
 begin
   Result := '';
   for I := 0 to LastIndex - 1 do
-    Result := Result + Strings[I] + ASeparator;
+    Result := Result + Get(I) + ASeparator;
   if Count > 0 then
     Result := Result + Last;
 end;
 
 function TJclStringList.Last: string;
 begin
-  Result := Strings[LastIndex];
+  Result := Get(LastIndex);
 end;
 
 function TJclStringList.Split(const AText, ASeparator: string;
@@ -656,7 +656,7 @@
 begin
   AutoUpdateControl;
   for I := 0 to LastIndex do
-    Strings[I] := {$IFDEF HAS_UNITSCOPE}System.{$ENDIF}SysUtils.Trim(Strings[I]);
+    Put(I, {$IFDEF HAS_UNITSCOPE}System.{$ENDIF}SysUtils.Trim(Strings[I]));
   Result := FSelfAsInterface;
 end;
 
@@ -686,7 +686,7 @@
 begin
   AutoUpdateControl;
   for I := LastIndex downto 0 do
-    if MatchRegEx(Strings[I], APattern) then
+    if MatchRegEx(Get(I), APattern) then
       Delete(I);
   Result := FSelfAsInterface;
 end;
@@ -697,7 +697,7 @@
 begin
   AutoUpdateControl;
   for I := LastIndex downto 0 do
-    if not MatchRegEx(Strings[I], APattern) then
+    if not MatchRegEx(Get(I), APattern) then
       Delete(I);
   Result := FSelfAsInterface;
 end;
@@ -1250,7 +1250,7 @@
 begin
   AutoUpdateControl;
   for I := 0 to LastIndex do
-    Strings[I] := ADelimiter + Strings[I] + ADelimiter;
+    Put(I, ADelimiter + Get(I) + ADelimiter);
   Result := FSelfAsInterface;
 end;
 
@@ -1287,7 +1287,7 @@
 begin
   AutoUpdateControl;
   for I := LastIndex downto 0 do
-    if {$IFDEF HAS_UNITSCOPE}System.{$ENDIF}SysUtils.Trim(Strings[I]) = '' then
+    if {$IFDEF HAS_UNITSCOPE}System.{$ENDIF}SysUtils.Trim(Get(I)) = '' then
       Delete(I);
   Result := FSelfAsInterface;
 end;
@@ -1299,7 +1299,7 @@
   AutoUpdateControl;
   X := 0;
   for I := LastIndex downto 0 do
-    if not TryStrToInt(Strings[I], X) then
+    if not TryStrToInt(Get(I), X) then
       Delete(I);
   Result := FSelfAsInterface;
 end;
@@ -1311,7 +1311,7 @@
   AutoUpdateControl;
   X := 0;
   for I := LastIndex downto 0 do
-    if TryStrToInt(Strings[I], X) then
+    if TryStrToInt(Get(I), X) then
       Delete(I);
   Result := FSelfAsInterface;
 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:[3815] trunk/jcl/source

From: <ou...@us...> - 2012-08-13 10:46:30

Revision: 3815
          http://jcl.svn.sourceforge.net/jcl/?rev=3815&view=rev
Author:   outchy
Date:     2012-08-13 10:46:22 +0000 (Mon, 13 Aug 2012)
Log Message:
-----------
revision 3761 should have been made in the prototypes.

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

Modified Paths:
--------------
    trunk/jcl/source/prototypes/JclGraphUtils.pas
    trunk/jcl/source/vcl/JclGraphUtils.pas

Modified: trunk/jcl/source/prototypes/JclGraphUtils.pas
===================================================================
--- trunk/jcl/source/prototypes/JclGraphUtils.pas	2012-08-13 10:38:28 UTC (rev 3814)
+++ trunk/jcl/source/prototypes/JclGraphUtils.pas	2012-08-13 10:46:22 UTC (rev 3815)
@@ -299,7 +299,12 @@
   {$IFDEF HAS_UNITSCOPE}
   System.Classes, Vcl.Consts, System.Math,
   {$ELSE ~HAS_UNITSCOPE}
-  Classes, Consts, Math,
+  Classes, Math,
+  {$IFDEF FPC}
+  RTLConsts,
+  {$ELSE ~FPC}
+  Consts,
+  {$ENDIF ~FPC}
   {$ENDIF ~HAS_UNITSCOPE}
   {$IFDEF HAS_UNIT_SYSTEM_UITYPES}
   System.UITypes,
@@ -585,9 +590,10 @@
   P: ^Longword;
 begin
   GetMem(AlphaTable, 257 * 8);
-  alpha_ptr := Pointer(Integer(AlphaTable) and $FFFFFFF8);
-  if Integer(alpha_ptr) < Integer(AlphaTable) then
-    alpha_ptr := Pointer(Integer(alpha_ptr) + 8);
+  if (TJclAddr(AlphaTable) mod 8) <> 0 then
+    alpha_ptr := Pointer((TJclAddr(AlphaTable) + 8) and (not TJclAddr(7)))
+  else
+    alpha_ptr := AlphaTable;
   P := alpha_ptr;
   for I := 0 to 255 do
   begin
@@ -597,7 +603,7 @@
     P^ := L;
     Inc(P);
   end;
-  bias_ptr := Pointer(Integer(alpha_ptr) + $80 * 8);
+  bias_ptr := Pointer(TJclAddr(alpha_ptr) + $80 * 8);
 end;
 
 procedure FreeAlphaTable;

Modified: trunk/jcl/source/vcl/JclGraphUtils.pas
===================================================================
--- trunk/jcl/source/vcl/JclGraphUtils.pas	2012-08-13 10:38:28 UTC (rev 3814)
+++ trunk/jcl/source/vcl/JclGraphUtils.pas	2012-08-13 10:46:22 UTC (rev 3815)
@@ -32,7 +32,7 @@
 {                                                                                                  }
 {**************************************************************************************************}
 {                                                                                                  }
-{ Last modified: $Date::                                                                          $ }
+{ Last modified: $Date::                                                                         $ }
 { Revision:      $Rev::                                                                          $ }
 { Author:        $Author::                                                                       $ }
 {                                                                                                  }

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:[3814] trunk/jcl/source

From: <ou...@us...> - 2012-08-13 10:38:35

Revision: 3814
          http://jcl.svn.sourceforge.net/jcl/?rev=3814&view=rev
Author:   outchy
Date:     2012-08-13 10:38:28 +0000 (Mon, 13 Aug 2012)
Log Message:
-----------
Mantis 5900: TJclRegionInfo.GetRect reports incorrect results.

Modified Paths:
--------------
    trunk/jcl/source/prototypes/JclGraphics.pas
    trunk/jcl/source/vcl/JclGraphics.pas

Modified: trunk/jcl/source/prototypes/JclGraphics.pas
===================================================================
--- trunk/jcl/source/prototypes/JclGraphics.pas	2012-08-12 12:39:00 UTC (rev 3813)
+++ trunk/jcl/source/prototypes/JclGraphics.pas	2012-08-13 10:38:28 UTC (rev 3814)
@@ -2361,11 +2361,12 @@
 end;
 
 function TJclRegionInfo.GetRect(Index: Integer): TRect;
-var RectP: PRect;
+var
+  RectP: PRect;
 begin
   if (Index < 0) or (DWORD(Index) >= TRgnData(FData^).rdh.nCount) then
     raise EJclGraphicsError.CreateRes(@RsRegionDataOutOfBound);
-  RectP := PRect(PChar(@TRgnData(FData^).Buffer) + (SizeOf(TRect)*Index));
+  RectP := PRect(PAnsiChar(@TRgnData(FData^).Buffer) + (SizeOf(TRect)*Index));
   Result := RectAssign(RectP^.Left, RectP.Top, RectP^.Right, RectP^.Bottom);
 end;
 

Modified: trunk/jcl/source/vcl/JclGraphics.pas
===================================================================
--- trunk/jcl/source/vcl/JclGraphics.pas	2012-08-12 12:39:00 UTC (rev 3813)
+++ trunk/jcl/source/vcl/JclGraphics.pas	2012-08-13 10:38:28 UTC (rev 3814)
@@ -156,12 +156,6 @@
     property Count: Integer read GetCount;
   end;
 
-  {$IFDEF RTL200_UP}
-    {$DEFINE HAS_EQUALS}
-  {$ENDIF RTL200_UP}
-  {$IFDEF FPC}
-    {$DEFINE HAS_EQUALS}
-  {$ENDIF FPC}
   TJclRegion = class(TObject)
   private
     FHandle: HRGN;
@@ -184,9 +178,7 @@
     constructor CreateRect(const Top, Left, Bottom, Right: Integer; DummyForBCB: Byte = 0); overload;
     constructor CreateRoundRect(const ARect: TRect; CornerWidth, CornerHeight: Integer); overload;
     constructor CreateRoundRect(const Top, Left, Bottom, Right, CornerWidth, CornerHeight: Integer); overload;
-    {$IFDEF BORLAND}
     constructor CreateBitmap(Bitmap: TBitmap; RegionColor: TColor; RegionBitmapMode: TJclRegionBitmapMode);
-    {$ENDIF BORLAND}
     constructor CreatePath(Canvas: TCanvas);
     constructor CreateRegionInfo(RegionInfo: TJclRegionInfo);
     constructor CreateMapWindow(InitialRegion: TJclRegion; hWndFrom, hWndTo: THandle); overload;
@@ -196,7 +188,7 @@
     procedure Combine(DestRegion, SrcRegion: TJclRegion; CombineOp: TJclRegionCombineOperator); overload;
     procedure Combine(SrcRegion: TJclRegion; CombineOp: TJclRegionCombineOperator); overload;
     function Copy: TJclRegion;
-    function Equals(CompareRegion: TJclRegion): Boolean; {$IFDEF HAS_EQUALS} reintroduce; {$ENDIF HAS_EQUALS}
+    function Equals(CompareRegion: TJclRegion): Boolean; {$IFDEF RTL200_UP} reintroduce; {$ENDIF RTL200_UP}
     procedure Fill(Canvas: TCanvas);
     procedure FillGradient(Canvas: TCanvas; ColorCount: Integer; StartColor, EndColor: TColor; ADirection: TGradientDirection);
     procedure Frame(Canvas: TCanvas; FrameWidth, FrameHeight: Integer);
@@ -472,14 +464,12 @@
   end;
 
 // Bitmap Functions
-{$IFDEF BORLAND}
 procedure Stretch(NewWidth, NewHeight: Cardinal; Filter: TResamplingFilter;
   Radius: Single; Source: TGraphic; Target: TBitmap); overload;
 procedure Stretch(NewWidth, NewHeight: Cardinal; Filter: TResamplingFilter;
   Radius: Single; Bitmap: TBitmap); overload;
 
 procedure DrawBitmap(DC: HDC; Bitmap: HBITMAP; X, Y, Width, Height: Integer);
-{$ENDIF BORLAND}
 
 function ExtractIconCount(const FileName: string): Integer;
 function BitmapToIcon(Bitmap: HBITMAP; cx, cy: Integer): HICON; overload;
@@ -499,7 +489,6 @@
 procedure PngToBitmap(const FileName: string);
 {$ENDIF HAS_UNIT_PNGIMAGE}
 
-{$IFDEF BORLAND}
 procedure SaveIconToFile(Icon: HICON; const FileName: string);
 procedure WriteIcon(Stream: TStream; ColorBitmap, MaskBitmap: HBITMAP;
   WriteLength: Boolean = False); overload;
@@ -507,7 +496,6 @@
 procedure GetIconFromBitmap(Icon: TIcon; Bitmap: TBitmap);
 
 function GetAntialiasedBitmap(const Bitmap: TBitmap): TBitmap;
-{$ENDIF BORLAND}
 
 procedure BlockTransfer(Dst: TJclBitmap32; DstX: Integer; DstY: Integer; Src: TJclBitmap32;
   SrcRect: TRect; CombineOp: TDrawMode);
@@ -521,10 +509,8 @@
 function FillGradient(DC: HDC; ARect: TRect; ColorCount: Integer;
   StartColor, EndColor: TColor; ADirection: TGradientDirection): Boolean; overload;
 
-{$IFDEF BORLAND}
 function CreateRegionFromBitmap(Bitmap: TBitmap; RegionColor: TColor;
   RegionBitmapMode: TJclRegionBitmapMode; UseAlphaChannel: Boolean = False): HRGN;
-{$ENDIF BORLAND}
 procedure ScreenShot(bm: TBitmap; Left, Top, Width, Height: Integer; Window: THandle = HWND_DESKTOP); overload;
 procedure ScreenShot(bm: TBitmap; IncludeTaskBar: Boolean = True); overload;
 procedure ScreenShot(bm: TBitmap; ControlToPrint: TWinControl); overload;
@@ -593,10 +579,7 @@
   {$IFDEF HAS_UNIT_PNGIMAGE}
   PngImage,
   {$ENDIF HAS_UNIT_PNGIMAGE}
-  ClipBrd, TypInfo,
-  {$IFDEF BORLAND}
-  JPeg,
-  {$ENDIF BORLAND}
+  ClipBrd, JPeg, TypInfo,
   {$ENDIF ~HAS_UNITSCOPE}
   JclVclResources,
   JclSysUtils,
@@ -931,8 +914,6 @@
   end;
 end;
 
-{$IFDEF BORLAND}
-
 // This is the actual scaling routine. Target must be allocated already with
 // sufficient size. Source must contain valid data, Radius must not be 0 and
 // Filter must not be nil.
@@ -1168,8 +1149,6 @@
   end;
 end;
 
-{$ENDIF BORLAND}
-
 // Filter functions for TJclBitmap32
 type
   TPointRec = record
@@ -1305,8 +1284,6 @@
   end;
 end;
 
-{$IFDEF BORLAND}
-
 // Bitmap Functions
 // Scales the source graphic to the given size (NewWidth, NewHeight) and stores the Result in Target.
 // Filter describes the filter function to be applied and Radius the size of the filter area.
@@ -1351,8 +1328,6 @@
   Stretch(NewWidth, NewHeight, Filter, Radius, Bitmap, Bitmap);
 end;
 
-{$ENDIF BORLAND}
-
 procedure StretchNearest(Dst: TJclBitmap32; DstRect: TRect;
   Src: TJclBitmap32; SrcRect: TRect; CombineOp: TDrawMode);
 var
@@ -1624,8 +1599,6 @@
   DeleteObject(MemDC);
 end;
 
-{$IFDEF BORLAND}
-
 { TODO : remove VCL-dependency by replacing pf24bit by pf32bit }
 
 function GetAntialiasedBitmap(const Bitmap: TBitmap): TBitmap;
@@ -1662,8 +1635,6 @@
   Result := Antialias;
 end;
 
-{$ENDIF BORLAND}
-
 procedure ImgToBitmap(const FileName: string; GraphicClass: TGraphicClass);
 var
   Bitmap: TBitmap;
@@ -1799,8 +1770,6 @@
   end;
 end;
 
-{$IFDEF BORLAND}
-
 const
   rc3_Icon = 1;
 
@@ -1910,8 +1879,6 @@
   end;
 end;
 
-{$ENDIF BORLAND}
-
 procedure Transform(Dst, Src: TJclBitmap32; SrcRect: TRect;
   Transformation: TJclTransformation);
 var
@@ -2038,8 +2005,6 @@
   end;
 end;
 
-{$IFDEF BORLAND}
-
 function CreateRegionFromBitmap(Bitmap: TBitmap; RegionColor: TColor;
   RegionBitmapMode: TJclRegionBitmapMode; UseAlphaChannel: Boolean): HRGN;
 var
@@ -2142,8 +2107,6 @@
   end;
 end;
 
-{$ENDIF BORLAND}
-
 procedure ScreenShot(bm: TBitmap; Left, Top, Width, Height: Integer; Window: THandle); overload;
 var
   WinDC: HDC;
@@ -2364,11 +2327,12 @@
 end;
 
 function TJclRegionInfo.GetRect(Index: Integer): TRect;
-var RectP: PRect;
+var
+  RectP: PRect;
 begin
   if (Index < 0) or (DWORD(Index) >= TRgnData(FData^).rdh.nCount) then
     raise EJclGraphicsError.CreateRes(@RsRegionDataOutOfBound);
-  RectP := PRect(PChar(@TRgnData(FData^).Buffer) + (SizeOf(TRect)*Index));
+  RectP := PRect(PAnsiChar(@TRgnData(FData^).Buffer) + (SizeOf(TRect)*Index));
   Result := RectAssign(RectP^.Left, RectP.Top, RectP^.Right, RectP^.Bottom);
 end;
 
@@ -2383,13 +2347,11 @@
   GetBox;
 end;
 
-{$IFDEF BORLAND}
 constructor TJclRegion.CreateBitmap(Bitmap: TBitmap; RegionColor: TColor;
   RegionBitmapMode: TJclRegionBitmapMode);
 begin
   Create(CreateRegionFromBitmap(Bitmap, RegionColor, RegionBitmapMode), True);
 end;
-{$ENDIF BORLAND}
 
 constructor TJclRegion.CreateElliptic(const ARect: TRect);
 begin
@@ -2777,9 +2739,7 @@
   FOuterColor := $00000000;  // by default as full transparency black
   FFont := TFont.Create;
   FFont.OnChange := FontChanged;
-  {$IFDEF BORLAND}
   FFont.OwnerCriticalSection := @FLock;
-  {$ENDIF BORLAND}
   FMasterAlpha := $FF;
   FPenColor := clWhite32;
   FStippleStep := 1;

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:[3813] trunk/jcl/source/common/JclIDEUtils.pas

From: <ou...@us...> - 2012-08-12 12:39:08

Revision: 3813
          http://jcl.svn.sourceforge.net/jcl/?rev=3813&view=rev
Author:   outchy
Date:     2012-08-12 12:39:00 +0000 (Sun, 12 Aug 2012)
Log Message:
-----------
fix memory leaks.

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

Modified: trunk/jcl/source/common/JclIDEUtils.pas
===================================================================
--- trunk/jcl/source/common/JclIDEUtils.pas	2012-08-12 11:31:40 UTC (rev 3812)
+++ trunk/jcl/source/common/JclIDEUtils.pas	2012-08-12 12:39:00 UTC (rev 3813)
@@ -3213,6 +3213,7 @@
 destructor TJclBDSInstallation.Destroy;
 begin
   FreeAndNil(FDCCIL);
+  FreeAndNil(FDCC64);
   FreeAndNil(FHelp2Manager);
   inherited Destroy;
 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:[3812] trunk/thirdparty/InnoSetup

From: <ah...@us...> - 2012-08-12 11:31:47

Revision: 3812
          http://jcl.svn.sourceforge.net/jcl/?rev=3812&view=rev
Author:   ahuser
Date:     2012-08-12 11:31:40 +0000 (Sun, 12 Aug 2012)
Log Message:
-----------
Fixed iss syntax errors

Modified Paths:
--------------
    trunk/thirdparty/InnoSetup/Install.iss
    trunk/thirdparty/InnoSetup/Skin/isxskin.iss

Modified: trunk/thirdparty/InnoSetup/Install.iss
===================================================================
--- trunk/thirdparty/InnoSetup/Install.iss	2012-08-11 22:54:32 UTC (rev 3811)
+++ trunk/thirdparty/InnoSetup/Install.iss	2012-08-12 11:31:40 UTC (rev 3812)
@@ -80,7 +80,7 @@
 OptimizedChecks=yes
 
 
-// for skin
+; for skin
 #define MyWizardBottomImageFile "Skin\images\wizardbottom.bmp"
 #define MyWizardButtonImageFile "Skin\images\button.bmp"
 #define MyWizardImageFile "wizard.bmp"

Modified: trunk/thirdparty/InnoSetup/Skin/isxskin.iss
===================================================================
--- trunk/thirdparty/InnoSetup/Skin/isxskin.iss	2012-08-11 22:54:32 UTC (rev 3811)
+++ trunk/thirdparty/InnoSetup/Skin/isxskin.iss	2012-08-12 11:31:40 UTC (rev 3812)
@@ -20,26 +20,27 @@
   ButtonPanels: array [0..4] of TPanel;
   ButtonImages: array [0..4] of TBitmapImage;
   ButtonLabels: array [0..4] of TLabel;
-  
+
 procedure UpdateButton(AButton: TButton; AButtonIndex: integer);
 begin
-  ButtonLabels[AButtonIndex].Caption:=AButton.Caption;
-  ButtonPanels[AButtonIndex].Visible:=AButton.Visible;
-  ButtonLabels[AButtonIndex].Enabled:=AButton.Enabled;
+  ButtonLabels[AButtonIndex].Caption := AButton.Caption;
+  ButtonPanels[AButtonIndex].Visible := AButton.Visible;
+  ButtonLabels[AButtonIndex].Enabled := AButton.Enabled;
 end;
 
 procedure ButtonLabelClick(Sender: TObject);
 var
   button: TButton;
 begin
-  ButtonImages[TLabel(Sender).Tag].Left:=0;
-  if not ButtonLabels[TLabel(Sender).Tag].Enabled then Exit;
+  ButtonImages[TLabel(Sender).Tag].Left := 0;
+  if not ButtonLabels[TLabel(Sender).Tag].Enabled then
+    Exit;
   case TLabel(Sender).Tag of
-    bidBack: button:=WizardForm.BackButton;
-    bidNext: button:=WizardForm.NextButton;
-    bidCancel: button:=WizardForm.CancelButton;
-    bidDirBrowse: button:=WizardForm.DirBrowseButton;
-    bidGroupBrowse: button:=WizardForm.GroupBrowseButton;
+    bidBack: button := WizardForm.BackButton;
+    bidNext: button := WizardForm.NextButton;
+    bidCancel: button := WizardForm.CancelButton;
+    bidDirBrowse: button := WizardForm.DirBrowseButton;
+    bidGroupBrowse: button := WizardForm.GroupBrowseButton;
   else
     Exit;
   end;
@@ -49,12 +50,12 @@
 procedure ButtonLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 begin
   if (Button=mbLeft) and (ButtonLabels[TLabel(Sender).Tag].Enabled) then
-    ButtonImages[TLabel(Sender).Tag].Left:=-BUTTONWIDTH;
+    ButtonImages[TLabel(Sender).Tag].Left := -BUTTONWIDTH;
 end;
 
 procedure ButtonLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 begin
-  ButtonImages[TLabel(Sender).Tag].Left:=0;
+  ButtonImages[TLabel(Sender).Tag].Left := 0;
 end;
 
 procedure LoadButtonImage(AButton: TButton; AButtonIndex: integer);
@@ -63,89 +64,86 @@
   panel: TPanel;
   labl: TLabel;
   FileName: String;
-
 begin
-  panel:=TPanel.Create(WizardForm);
+  panel := TPanel.Create(WizardForm);
   with panel do begin
-    Parent:=AButton.Parent;
-    Color:=BUTTONPANELCOLOR;
-    Tag:=AButtonIndex;
-    Left:=AButton.Left;
-    Top:=AButton.Top;
-    Width:=AButton.Width;
-    Height:=AButton.Height;
+    Parent := AButton.Parent;
+    Color := BUTTONPANELCOLOR;
+    Tag := AButtonIndex;
+    Left := AButton.Left;
+    Top := AButton.Top;
+    Width := AButton.Width;
+    Height := AButton.Height;
   end;
-  ButtonPanels[AButtonIndex]:=panel;
+  ButtonPanels[AButtonIndex] := panel;
 
-  image:=TBitmapImage.Create(WizardForm);
-  FileName:=ExtractFileName('{#MyWizardButtonImageFile}');
+  image := TBitmapImage.Create(WizardForm);
+  FileName := ExtractFileName('{#MyWizardButtonImageFile}');
   with image do begin
-    Height:=BUTTONHEIGHT;
-    Width:=BUTTONWIDTH*2;
+    Height := BUTTONHEIGHT;
+    Width := BUTTONWIDTH*2;
     Bitmap.LoadFromFile(ExpandConstant('{tmp}\')+FileName);
-    Parent:=panel;
-    Enabled:=false;
+    Parent := panel;
+    Enabled := false;
   end;
-  ButtonImages[AButtonIndex]:=image;
+  ButtonImages[AButtonIndex] := image;
 
   with TLabel.Create(WizardForm) do begin
-    Tag:=AButtonIndex;
-    Parent:=panel;
-    Width:=panel.Width;
-    Height:=panel.Height;
-    transparent:=true;
-    OnClick:=@ButtonLabelClick;
-    OnDblClick:=@ButtonLabelClick;
-    OnMouseDown:=@ButtonLabelMouseDown;
-    OnMouseUp:=@ButtonLabelMouseUp;
+    Tag := AButtonIndex;
+    Parent := panel;
+    Width := panel.Width;
+    Height := panel.Height;
+    transparent := true;
+    OnClick := @ButtonLabelClick;
+    OnDblClick := @ButtonLabelClick;
+    OnMouseDown := @ButtonLabelMouseDown;
+    OnMouseUp := @ButtonLabelMouseUp;
   end;
 
-  labl:=TLabel.Create(WizardForm);
+  labl := TLabel.Create(WizardForm);
   with labl do begin
-    Tag:=AButtonIndex;
-    Alignment:=taCenter;
-    Transparent:=true;
-    AutoSize:=false;
-    Top:=(BUTTONHEIGHT div 4);
-    Left:=0;
-    Width:=panel.ClientWidth;
-    Parent:=panel;
+    Tag := AButtonIndex;
+    Alignment := taCenter;
+    Transparent := true;
+    AutoSize := false;
+    Top := (BUTTONHEIGHT div 4);
+    Left := 0;
+    Width := panel.ClientWidth;
+    Parent := panel;
     if AButtonIndex = bidNext then
       Font.Style := [fsBold];
-    Font.Color:=clWhite;
-    Caption:=AButton.Caption;
-    OnClick:=@ButtonLabelClick;
-    OnDblClick:=@ButtonLabelClick;
-    OnMouseDown:=@ButtonLabelMouseDown;
-    OnMouseUp:=@ButtonLabelMouseUp;
+    Font.Color := clWhite;
+    Caption := AButton.Caption;
+    OnClick := @ButtonLabelClick;
+    OnDblClick := @ButtonLabelClick;
+    OnMouseDown := @ButtonLabelMouseDown;
+    OnMouseUp := @ButtonLabelMouseUp;
   end;
-  ButtonLabels[AButtonIndex]:=labl;
+  ButtonLabels[AButtonIndex] := labl;
 end;
 
 procedure LicenceAcceptedRadioOnClick(Sender: TObject);
 begin
-  ButtonLabels[bidNext].Enabled:=true;
+  ButtonLabels[bidNext].Enabled := true;
 end;
 
 procedure LicenceNotAcceptedRadioOnClick(Sender: TObject);
 begin
-  ButtonLabels[bidNext].Enabled:=false;
+  ButtonLabels[bidNext].Enabled := false;
 end;
 
-
 procedure InitializeSkin;
 var
-  image : TBitmapImage;
+  image: TBitmapImage;
   TypesComboItemIndex: integer;
   FileName: String;
-
 begin
   with WizardForm do
     with OuterNotebook do
       with InnerPage do
         with InnerNotebook do
           with SelectComponentsPage do
-            TypesComboItemIndex:=TypesCombo.ItemIndex;
+            TypesComboItemIndex := TypesCombo.ItemIndex;
 
 
   WizardForm.Bevel.Hide;
@@ -153,483 +151,482 @@
   WizardForm.SelectDirBitmapImage.Hide;
   WizardForm.SelectGroupBitmapImage.Hide;
 
-  image:=TBitmapImage.Create(WizardForm);
-  image.Top:=451;
-  image.Width:=690;
-  image.Height:=45;
+  image := TBitmapImage.Create(WizardForm);
+  image.Top := 451;
+  image.Width := 690;
+  image.Height := 45;
 
-  FileName:=ExtractFileName('{#MyWizardBottomImageFile}');
+  FileName := ExtractFileName('{#MyWizardBottomImageFile}');
   ExtractTemporaryFile(FileName);
   image.Bitmap.LoadFromFile(ExpandConstant('{tmp}\')+FileName);
-  image.Parent:=WizardForm;
+  image.Parent := WizardForm;
   image.SendToBack;
 
-
-with WizardForm do begin
-  Position:=poScreenCenter;
-  ClientWidth:=690
-  ClientHeight:=496
-  Font.Color:=$ffffff
-  Font.Name:='MS Sans Serif'
-  Font.Style:=[]
-  with CancelButton do begin
-    Left:=555
-    Top:=460
-    Width:=BUTTONWIDTH;
-    Height:=BUTTONHEIGHT;
-  end
-  with NextButton do begin
-    Left:=371
-    Top:=460
-    Width:=BUTTONWIDTH;
-    Height:=BUTTONHEIGHT;
-  end
-  with BackButton do begin
-    Left:=266
-    Top:=460
-    Width:=BUTTONWIDTH;
-    Height:=BUTTONHEIGHT;
-  end
-
-  with OuterNotebook do begin
-    Left:=190
-    Top:=59
-    Width:=500
-    Height:=392
-    with WelcomePage do begin
-      Color:=PAGECOLOR;
-      with WizardBitmapImage do begin
-        Parent:=WizardForm
-        Left:=0
-        Top:=60
-        Width:=190
-        Height:=391
-      end
-      with WelcomeLabel2 do begin
-        Left:=35
-        Top:=171
-        Width:=465
-        Height:=200
-      end
-      with WelcomeLabel1 do begin
-        Left:=35
-        Top:=131
-        Width:=465
-        Height:=28
-        Font.Size:=8
-        Font.Color:=$ffffff
-      end
-    end
-    with InnerPage do begin
-      with InnerNotebook do begin
-        Left:=20
-        Top:=20
-        Width:=465
-        Height:=354
-        Color:=PAGECOLOR;
-        with LicensePage do begin
-          with LicenseNotAcceptedRadio do begin
-            Left:=0
-            Top:=338
-            Width:=17
-            Height:=17
-            OnClick:=@LicenceNotAcceptedRadioOnClick;
-          end
-          with LicenseAcceptedRadio do begin
-            Left:=0
-            Top:=318
-            Width:=17
-            Height:=17
-            OnClick:=@LicenceAcceptedRadioOnClick;
-          end
-          with LicenseMemo do begin
-            Left:=0
-            Top:=38
-            Width:=465
-            Height:=266
-          end
-          with LicenseLabel1 do begin
-            Left:=0
-            Top:=0
-            Width:=465
-            Height:=28
-          end
-        end
-        with PasswordPage do begin
-          with PasswordEdit do begin
-            Left:=0
-            Top:=50
-            Width:=465
-            Height:=21
-            Color:=$ffffff
-            Font.Color:=$000000
-          end
-          with PasswordEditLabel do begin
-            Left:=0
-            Top:=34
-            Width:=465
-            Height:=14
-          end
-          with PasswordLabel do begin
-            Left:=0
-            Top:=0
-            Width:=465
-            Height:=28
-          end
-        end
-        with InfoBeforePage do begin
-          with InfoBeforeMemo do begin
-            Left:=0
-            Top:=24
-            Width:=465
-            Height:=327
-          end
-          with InfoBeforeClickLabel do begin
-            Left:=0
-            Top:=0
-            Width:=465
-            Height:=14
-          end
-        end
-        with UserInfoPage do begin
-          with UserInfoSerialEdit do begin
-            Left:=0
-            Top:=120
-            Width:=465
-            Height:=21
-            Color:=$ffffff
-            Font.Color:=$000000
-          end
-          with UserInfoSerialLabel do begin
-            Left:=0
-            Top:=104
-            Width:=465
-            Height:=14
-          end
-          with UserInfoOrgEdit do begin
-            Left:=0
-            Top:=68
-            Width:=465
-            Height:=21
-            Color:=$ffffff
-            Font.Color:=$000000
-          end
-          with UserInfoOrgLabel do begin
-            Left:=0
-            Top:=52
-            Width:=465
-            Height:=14
-          end
-          with UserInfoNameEdit do begin
-            Left:=0
-            Top:=16
-            Width:=465
-            Height:=21
-            Color:=$ffffff
-            Font.Color:=$000000
-          end
-          with UserInfoNameLabel do begin
-            Left:=0
-            Top:=0
-            Width:=465
-            Height:=14
-          end
-        end
-        with SelectDirPage do begin
-          with DiskSpaceLabel do begin
-            Left:=0
-            Top:=340
-            Width:=465
-            Height:=14
-          end
-          with DirBrowseButton do begin
-            Left:=368
-            Top:=288
-            Width:=BUTTONWIDTH;
-            Height:=BUTTONHEIGHT;
-          end
-          with DirEdit do begin
-            Left:=0
-            Top:=290
-            Width:=350
-            Height:=21
-            Color:=$ffffff
-            Font.Color:=$000000
-          end
-          with SelectDirBrowseLabel do begin
-            Left:=0
-            Top:=24
-            Width:=465
-            Height:=28
-          end
-          with SelectDirLabel do begin
-            Left:=0
-            Top:=0
-            Width:=465
-            Height:=14
-          end
-        end
-        with SelectComponentsPage do begin
-          with ComponentsDiskSpaceLabel do begin
-            Left:=0
-            Top:=340
-            Width:=417
-            Height:=14
-          end
-          with ComponentsList do begin
-            Left:=0
-            Top:=62
-            Width:=465
-            Height:=261
-            Color:=$ffffff
-            Font.Color:=$000000
-          end
-          with TypesCombo do begin
-            Left:=0
-            Top:=38
-            Width:=465
-            Height:=21
-            Color:=$ffffff
-            Font.Color:=$000000
-            ItemIndex:=TypesComboItemIndex;
-          end
-          with SelectComponentsLabel do begin
-            Left:=0
-            Top:=0
-            Width:=465
-            Height:=28
-          end
-        end
-        with SelectProgramGroupPage do begin
-          with NoIconsCheck do begin
-            Left:=0
-            Top:=337
-            Width:=17
-            Height:=17
-            Visible:=True
-          end
-          with GroupBrowseButton do begin
-            Left:=368
-            Top:=288
-            Width:=BUTTONWIDTH;
-            Height:=BUTTONHEIGHT;
-          end
-          with GroupEdit do begin
-            Left:=0
-            Top:=290
-            Width:=350
-            Height:=21
-            Color:=$ffffff
-            Font.Color:=$000000
-          end
-          with SelectStartMenuFolderBrowseLabel do begin
-            Left:=0
-            Top:=24
-            Width:=465
-            Height:=28
-          end
-          with SelectStartMenuFolderLabel do begin
-            Left:=0
-            Top:=0
-            Width:=465
-            Height:=14
-          end
-        end
-        with SelectTasksPage do begin
-          with TasksList do begin
-            Left:=0
-            Top:=34
-            Width:=465
-            Height:=317
-            Color:=PAGECOLOR;
-          end
-          with SelectTasksLabel do begin
-            Left:=0
-            Top:=0
-            Width:=465
-            Height:=28
-          end
-        end
-        with ReadyPage do begin
-          with ReadyMemo do begin
-            Left:=0
-            Top:=34
-            Width:=465
-            Height:=317
-            Color:=PAGECOLOR;
-            //Color:=$ffffff
-            //Font.Color:=$000000
-          end
-          with ReadyLabel do begin
-            Left:=0
-            Top:=0
-            Width:=465
-            Height:=28
-          end
-        end
-        with InstallingPage do begin
-          with FilenameLabel do begin
-            Left:=0+10
-            Top:=16+10
-            Width:=465
-            Height:=16
-          end
-          with StatusLabel do begin
-            Left:=0+10
-            Top:=0+10
-            Width:=465
-            Height:=16
-          end
-          with ProgressGauge do begin
-            Left:=0+10
-            Top:=42+10
-            Width:=465
-            Height:=21
-          end
-          with WebDownloadFilenameLabel do begin
-            Left:=0+10
-            Top:=16+10+80
-            Width:=465
-            Height:=16
-          end
-          with WebDownloadStatusLabel do begin
-            Left:=0+10
-            Top:=0+10+80
-            Width:=465
-            Height:=16
-          end
-          with WebDownloadProgressGauge do begin
-            Left:=0+10
-            Top:=42+10+80
-            Width:=465
-            Height:=21
-          end
-        end
-        with InfoAfterPage do begin
-          with InfoAfterMemo do begin
-            Left:=0
-            Top:=24
-            Width:=465
-            Height:=327
-          end
-          with InfoAfterClickLabel do begin
-            Left:=0
-            Top:=0
-            Width:=465
-            Height:=14
-          end
-        end
-      end
-      with MainPanel do begin
-        Parent:=WizardForm;
-        color:=MAINPANELCOLOR;
-        Left:=0
-        Top:=0
-        Width:=690
-        Height:=60
-        with WizardSmallBitmapImage do begin
-          Left:=0
-          Top:=58
-          Width:=690
-          Height:=2
-        end
-        with PageDescriptionLabel do begin
-          Left:=25
-          Top:=25
-          Width:=500
-          Height:=14
-          Color:=MAINPANELCOLOR;
-          Font.Color:=$ffffff
-        end
-        with PageNameLabel do begin
-          Left:=15
-          Top:=7
-          Width:=500
-          Height:=14
-          Color:=MAINPANELCOLOR;
-          Font.Color:=$ffffff
-        end
-      end
+  with WizardForm do begin
+    Position := poScreenCenter;
+    ClientWidth := 690
+    ClientHeight := 496
+    Font.Color := $ffffff
+    Font.Name := 'MS Sans Serif'
+    Font.Style := []
+    with CancelButton do begin
+      Left := 555
+      Top := 460
+      Width := BUTTONWIDTH;
+      Height := BUTTONHEIGHT;
     end;
-    with FinishedPage do begin
-      Color:=PAGECOLOR;
-      WizardBitmapImage2.hide;
-      with NoRadio do begin
-        Left:=35
-        Top:=168
-        Width:=465
-        Height:=17
-      end
-      with YesRadio do begin
-        Left:=35
-        Top:=140
-        Width:=465
-        Height:=17
-      end
-      with RunList do begin
-        Left:=35
-        Top:=140
-        Width:=465
-        Height:=149
-      end
-      with FinishedLabel do begin
-        Left:=35
-        Top:=60
-        Width:=465
-        Height:=53
-      end
-      with FinishedHeadingLabel do begin
-        Left:=35
-        Top:=20
-        Width:=465
-        Height:=24
-        Font.Size:=8
-        Font.Color:=$ffffff
-      end
+    with NextButton do begin
+      Left := 371
+      Top := 460
+      Width := BUTTONWIDTH;
+      Height := BUTTONHEIGHT;
     end;
+    with BackButton do begin
+      Left := 266
+      Top := 460
+      Width := BUTTONWIDTH;
+      Height := BUTTONHEIGHT;
+    end;
+
+    with OuterNotebook do begin
+      Left := 190
+      Top := 59
+      Width := 500
+      Height := 392
+      with WelcomePage do begin
+        Color := PAGECOLOR;
+        with WizardBitmapImage do begin
+          Parent := WizardForm
+          Left := 0
+          Top := 60
+          Width := 190
+          Height := 391
+        end;
+        with WelcomeLabel2 do begin
+          Left := 35
+          Top := 171
+          Width := 465
+          Height := 200
+        end;
+        with WelcomeLabel1 do begin
+          Left := 35
+          Top := 131
+          Width := 465
+          Height := 28
+          Font.Size := 8
+          Font.Color := $ffffff
+        end;
+      end;
+      with InnerPage do begin
+        with InnerNotebook do begin
+          Left := 20
+          Top := 20
+          Width := 465
+          Height := 354
+          Color := PAGECOLOR;
+          with LicensePage do begin
+            with LicenseNotAcceptedRadio do begin
+              Left := 0
+              Top := 338
+              Width := 17
+              Height := 17
+              OnClick := @LicenceNotAcceptedRadioOnClick;
+            end;
+            with LicenseAcceptedRadio do begin
+              Left := 0
+              Top := 318
+              Width := 17
+              Height := 17
+              OnClick := @LicenceAcceptedRadioOnClick;
+            end;
+            with LicenseMemo do begin
+              Left := 0
+              Top := 38
+              Width := 465
+              Height := 266
+            end;
+            with LicenseLabel1 do begin
+              Left := 0
+              Top := 0
+              Width := 465
+              Height := 28
+            end;
+          end;
+          with PasswordPage do begin
+            with PasswordEdit do begin
+              Left := 0
+              Top := 50
+              Width := 465
+              Height := 21
+              Color := $ffffff
+              Font.Color := $000000
+            end;
+            with PasswordEditLabel do begin
+              Left := 0
+              Top := 34
+              Width := 465
+              Height := 14
+            end;
+            with PasswordLabel do begin
+              Left := 0
+              Top := 0
+              Width := 465
+              Height := 28
+            end;
+          end;
+          with InfoBeforePage do begin
+            with InfoBeforeMemo do begin
+              Left := 0
+              Top := 24
+              Width := 465
+              Height := 327
+            end;
+            with InfoBeforeClickLabel do begin
+              Left := 0
+              Top := 0
+              Width := 465
+              Height := 14
+            end;
+          end;
+          with UserInfoPage do begin
+            with UserInfoSerialEdit do begin
+              Left := 0
+              Top := 120
+              Width := 465
+              Height := 21
+              Color := $ffffff
+              Font.Color := $000000
+            end;
+            with UserInfoSerialLabel do begin
+              Left := 0
+              Top := 104
+              Width := 465
+              Height := 14
+            end;
+            with UserInfoOrgEdit do begin
+              Left := 0
+              Top := 68
+              Width := 465
+              Height := 21
+              Color := $ffffff
+              Font.Color := $000000
+            end;
+            with UserInfoOrgLabel do begin
+              Left := 0
+              Top := 52
+              Width := 465
+              Height := 14
+            end;
+            with UserInfoNameEdit do begin
+              Left := 0
+              Top := 16
+              Width := 465
+              Height := 21
+              Color := $ffffff
+              Font.Color := $000000
+            end;
+            with UserInfoNameLabel do begin
+              Left := 0
+              Top := 0
+              Width := 465
+              Height := 14
+            end;
+          end;
+          with SelectDirPage do begin
+            with DiskSpaceLabel do begin
+              Left := 0
+              Top := 340
+              Width := 465
+              Height := 14
+            end;
+            with DirBrowseButton do begin
+              Left := 368
+              Top := 288
+              Width := BUTTONWIDTH;
+              Height := BUTTONHEIGHT;
+            end;
+            with DirEdit do begin
+              Left := 0
+              Top := 290
+              Width := 350
+              Height := 21
+              Color := $ffffff
+              Font.Color := $000000
+            end;
+            with SelectDirBrowseLabel do begin
+              Left := 0
+              Top := 24
+              Width := 465
+              Height := 28
+            end;
+            with SelectDirLabel do begin
+              Left := 0
+              Top := 0
+              Width := 465
+              Height := 14
+            end;
+          end;
+          with SelectComponentsPage do begin
+            with ComponentsDiskSpaceLabel do begin
+              Left := 0
+              Top := 340
+              Width := 417
+              Height := 14
+            end;
+            with ComponentsList do begin
+              Left := 0
+              Top := 62
+              Width := 465
+              Height := 261
+              Color := $ffffff
+              Font.Color := $000000
+            end;
+            with TypesCombo do begin
+              Left := 0
+              Top := 38
+              Width := 465
+              Height := 21
+              Color := $ffffff
+              Font.Color := $000000
+              ItemIndex := TypesComboItemIndex;
+            end;
+            with SelectComponentsLabel do begin
+              Left := 0
+              Top := 0
+              Width := 465
+              Height := 28
+            end;
+          end;
+          with SelectProgramGroupPage do begin
+            with NoIconsCheck do begin
+              Left := 0
+              Top := 337
+              Width := 17
+              Height := 17
+              Visible := True
+            end;
+            with GroupBrowseButton do begin
+              Left := 368
+              Top := 288
+              Width := BUTTONWIDTH;
+              Height := BUTTONHEIGHT;
+            end;
+            with GroupEdit do begin
+              Left := 0
+              Top := 290
+              Width := 350
+              Height := 21
+              Color := $ffffff
+              Font.Color := $000000
+            end;
+            with SelectStartMenuFolderBrowseLabel do begin
+              Left := 0
+              Top := 24
+              Width := 465
+              Height := 28
+            end;
+            with SelectStartMenuFolderLabel do begin
+              Left := 0
+              Top := 0
+              Width := 465
+              Height := 14
+            end;
+          end;
+          with SelectTasksPage do begin
+            with TasksList do begin
+              Left := 0
+              Top := 34
+              Width := 465
+              Height := 317
+              Color := PAGECOLOR;
+            end;
+            with SelectTasksLabel do begin
+              Left := 0
+              Top := 0
+              Width := 465
+              Height := 28
+            end;
+          end;
+          with ReadyPage do begin
+            with ReadyMemo do begin
+              Left := 0
+              Top := 34
+              Width := 465
+              Height := 317
+              Color := PAGECOLOR;
+              //Color := $ffffff
+              //Font.Color := $000000
+            end;
+            with ReadyLabel do begin
+              Left := 0
+              Top := 0
+              Width := 465
+              Height := 28
+            end;
+          end;
+          with InstallingPage do begin
+            with FilenameLabel do begin
+              Left := 0+10
+              Top := 16+10
+              Width := 465
+              Height := 16
+            end;
+            with StatusLabel do begin
+              Left := 0+10
+              Top := 0+10
+              Width := 465
+              Height := 16
+            end;
+            with ProgressGauge do begin
+              Left := 0+10
+              Top := 42+10
+              Width := 465
+              Height := 21
+            end;
+            with WebDownloadFilenameLabel do begin
+              Left := 0+10
+              Top := 16+10+80
+              Width := 465
+              Height := 16
+            end;
+            with WebDownloadStatusLabel do begin
+              Left := 0+10
+              Top := 0+10+80
+              Width := 465
+              Height := 16
+            end;
+            with WebDownloadProgressGauge do begin
+              Left := 0+10
+              Top := 42+10+80
+              Width := 465
+              Height := 21
+            end;
+          end;
+          with InfoAfterPage do begin
+            with InfoAfterMemo do begin
+              Left := 0
+              Top := 24
+              Width := 465
+              Height := 327
+            end;
+            with InfoAfterClickLabel do begin
+              Left := 0
+              Top := 0
+              Width := 465
+              Height := 14
+            end;
+          end;
+        end;
+        with MainPanel do begin
+          Parent := WizardForm;
+          color := MAINPANELCOLOR;
+          Left := 0
+          Top := 0
+          Width := 690
+          Height := 60
+          with WizardSmallBitmapImage do begin
+            Left := 0
+            Top := 58
+            Width := 690
+            Height := 2
+          end;
+          with PageDescriptionLabel do begin
+            Left := 25
+            Top := 25
+            Width := 500
+            Height := 14
+            Color := MAINPANELCOLOR;
+            Font.Color := $ffffff
+          end;
+          with PageNameLabel do begin
+            Left := 15
+            Top := 7
+            Width := 500
+            Height := 14
+            Color := MAINPANELCOLOR;
+            Font.Color := $ffffff
+          end;
+        end;
+      end;
+      with FinishedPage do begin
+        Color := PAGECOLOR;
+        WizardBitmapImage2.hide;
+        with NoRadio do begin
+          Left := 35
+          Top := 168
+          Width := 465
+          Height := 17
+        end;
+        with YesRadio do begin
+          Left := 35
+          Top := 140
+          Width := 465
+          Height := 17
+        end;
+        with RunList do begin
+          Left := 35
+          Top := 140
+          Width := 465
+          Height := 149
+        end;
+        with FinishedLabel do begin
+          Left := 35
+          Top := 60
+          Width := 465
+          Height := 53
+        end;
+        with FinishedHeadingLabel do begin
+          Left := 35
+          Top := 20
+          Width := 465
+          Height := 24
+          Font.Size := 8
+          Font.Color := $ffffff
+        end;
+      end;
+    end;
   end;
-end;
 
-with TLabel.Create(WizardForm) do begin
-  Left:=17
-  Top:=320
-  Width:=445
-  Height:=17
-  Color:=clWhite;
-  Transparent:=true;
-  Caption:=WizardForm.LicenseAcceptedRadio.Caption
-  Parent:=WizardForm.LicensePage
-end;
-with TLabel.Create(WizardForm) do begin
-  Left:=17
-  Top:=320
-  Width:=445
-  Height:=17
-  Color:=clWhite;
-  Transparent:=true;
-  Caption:=WizardForm.LicenseAcceptedRadio.Caption
-  Parent:=WizardForm.LicensePage
-end;
-with TLabel.Create(WizardForm) do begin
-  Left:=17
-  Top:=340
-  Width:=445
-  Height:=17
-  Color:=clWhite;
-  Transparent:=true;
-  Caption:=WizardForm.LicenseNotAcceptedRadio.Caption
-  Parent:=WizardForm.LicensePage
-end
-with TLabel.Create(WizardForm) do begin
-  Left:=17
-  Top:=340
-  Width:=445
-  Height:=17
-  Color:=clWhite;
-  Transparent:=true;
-  Caption:=WizardForm.NoIconsCheck.Caption
-  Parent:=WizardForm.SelectProgramGroupPage
-end
+  with TLabel.Create(WizardForm) do begin
+    Left := 17
+    Top := 320
+    Width := 445
+    Height := 17
+    Color := clWhite;
+    Transparent := true;
+    Caption := WizardForm.LicenseAcceptedRadio.Caption
+    Parent := WizardForm.LicensePage
+  end;
+  with TLabel.Create(WizardForm) do begin
+    Left := 17
+    Top := 320
+    Width := 445
+    Height := 17
+    Color := clWhite;
+    Transparent := true;
+    Caption := WizardForm.LicenseAcceptedRadio.Caption
+    Parent := WizardForm.LicensePage
+  end;
+  with TLabel.Create(WizardForm) do begin
+    Left := 17
+    Top := 340
+    Width := 445
+    Height := 17
+    Color := clWhite;
+    Transparent := true;
+    Caption := WizardForm.LicenseNotAcceptedRadio.Caption
+    Parent := WizardForm.LicensePage
+  end;
+  with TLabel.Create(WizardForm) do begin
+    Left := 17
+    Top := 340
+    Width := 445
+    Height := 17
+    Color := clWhite;
+    Transparent := true;
+    Caption := WizardForm.NoIconsCheck.Caption
+    Parent := WizardForm.SelectProgramGroupPage
+  end;
 
   ExtractTemporaryFile(ExtractFileName('{#MyWizardButtonImageFile}'));
 

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:[3811] trunk/jcl/packages

From: <ou...@us...> - 2012-08-11 22:54:43

Revision: 3811
          http://jcl.svn.sourceforge.net/jcl/?rev=3811&view=rev
Author:   outchy
Date:     2012-08-11 22:54:32 +0000 (Sat, 11 Aug 2012)
Log Message:
-----------
The locale should be "English (US)" for all the packages.

Modified Paths:
--------------
    trunk/jcl/packages/cs1/Jcl.bdsproj
    trunk/jcl/packages/cs1/JclBaseExpert.bdsproj
    trunk/jcl/packages/cs1/JclContainers.bdsproj
    trunk/jcl/packages/cs1/JclDeveloperTools.bdsproj
    trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/cs1/JclVcl.bdsproj
    trunk/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/cs1/template.bdsproj
    trunk/jcl/packages/d10/Jcl.bdsproj
    trunk/jcl/packages/d10/JclBaseExpert.bdsproj
    trunk/jcl/packages/d10/JclContainers.bdsproj
    trunk/jcl/packages/d10/JclDebugExpert.bdsproj
    trunk/jcl/packages/d10/JclDebugExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclDeveloperTools.bdsproj
    trunk/jcl/packages/d10/JclFavoriteFoldersExpert.bdsproj
    trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclProjectAnalysisExpert.bdsproj
    trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclRepositoryExpert.bdsproj
    trunk/jcl/packages/d10/JclRepositoryExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclSIMDViewExpert.bdsproj
    trunk/jcl/packages/d10/JclSIMDViewExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclStackTraceViewerExpert.bdsproj
    trunk/jcl/packages/d10/JclStackTraceViewerExpertDLL.bdsproj
    trunk/jcl/packages/d10/JclVcl.bdsproj
    trunk/jcl/packages/d10/JclVersionControlExpert.bdsproj
    trunk/jcl/packages/d10/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/d10/template.bdsproj
    trunk/jcl/packages/d11/Jcl.dproj
    trunk/jcl/packages/d11/JclBaseExpert.dproj
    trunk/jcl/packages/d11/JclContainers.dproj
    trunk/jcl/packages/d11/JclDebugExpert.dproj
    trunk/jcl/packages/d11/JclDebugExpertDLL.dproj
    trunk/jcl/packages/d11/JclDeveloperTools.dproj
    trunk/jcl/packages/d11/JclFavoriteFoldersExpert.dproj
    trunk/jcl/packages/d11/JclFavoriteFoldersExpertDLL.dproj
    trunk/jcl/packages/d11/JclProjectAnalysisExpert.dproj
    trunk/jcl/packages/d11/JclProjectAnalysisExpertDLL.dproj
    trunk/jcl/packages/d11/JclRepositoryExpert.dproj
    trunk/jcl/packages/d11/JclRepositoryExpertDLL.dproj
    trunk/jcl/packages/d11/JclSIMDViewExpert.dproj
    trunk/jcl/packages/d11/JclSIMDViewExpertDLL.dproj
    trunk/jcl/packages/d11/JclStackTraceViewerExpert.dproj
    trunk/jcl/packages/d11/JclStackTraceViewerExpertDLL.dproj
    trunk/jcl/packages/d11/JclVcl.dproj
    trunk/jcl/packages/d11/JclVersionControlExpert.dproj
    trunk/jcl/packages/d11/JclVersionControlExpertDLL.dproj
    trunk/jcl/packages/d11/template.dproj
    trunk/jcl/packages/d12/Jcl.dproj
    trunk/jcl/packages/d12/JclBaseExpert.dproj
    trunk/jcl/packages/d12/JclContainers.dproj
    trunk/jcl/packages/d12/JclDebugExpert.dproj
    trunk/jcl/packages/d12/JclDebugExpertDLL.dproj
    trunk/jcl/packages/d12/JclDeveloperTools.dproj
    trunk/jcl/packages/d12/JclFavoriteFoldersExpert.dproj
    trunk/jcl/packages/d12/JclFavoriteFoldersExpertDLL.dproj
    trunk/jcl/packages/d12/JclProjectAnalysisExpert.dproj
    trunk/jcl/packages/d12/JclProjectAnalysisExpertDLL.dproj
    trunk/jcl/packages/d12/JclRepositoryExpert.dproj
    trunk/jcl/packages/d12/JclRepositoryExpertDLL.dproj
    trunk/jcl/packages/d12/JclSIMDViewExpert.dproj
    trunk/jcl/packages/d12/JclSIMDViewExpertDLL.dproj
    trunk/jcl/packages/d12/JclStackTraceViewerExpert.dproj
    trunk/jcl/packages/d12/JclStackTraceViewerExpertDLL.dproj
    trunk/jcl/packages/d12/JclVcl.dproj
    trunk/jcl/packages/d12/JclVersionControlExpert.dproj
    trunk/jcl/packages/d12/JclVersionControlExpertDLL.dproj
    trunk/jcl/packages/d12/template.dproj
    trunk/jcl/packages/d14/Jcl.dproj
    trunk/jcl/packages/d14/JclBaseExpert.dproj
    trunk/jcl/packages/d14/JclContainers.dproj
    trunk/jcl/packages/d14/JclDebugExpert.dproj
    trunk/jcl/packages/d14/JclDebugExpertDLL.dproj
    trunk/jcl/packages/d14/JclDeveloperTools.dproj
    trunk/jcl/packages/d14/JclFavoriteFoldersExpert.dproj
    trunk/jcl/packages/d14/JclFavoriteFoldersExpertDLL.dproj
    trunk/jcl/packages/d14/JclProjectAnalysisExpert.dproj
    trunk/jcl/packages/d14/JclProjectAnalysisExpertDLL.dproj
    trunk/jcl/packages/d14/JclRepositoryExpert.dproj
    trunk/jcl/packages/d14/JclRepositoryExpertDLL.dproj
    trunk/jcl/packages/d14/JclSIMDViewExpert.dproj
    trunk/jcl/packages/d14/JclSIMDViewExpertDLL.dproj
    trunk/jcl/packages/d14/JclStackTraceViewerExpert.dproj
    trunk/jcl/packages/d14/JclStackTraceViewerExpertDLL.dproj
    trunk/jcl/packages/d14/JclVcl.dproj
    trunk/jcl/packages/d14/JclVersionControlExpert.dproj
    trunk/jcl/packages/d14/JclVersionControlExpertDLL.dproj
    trunk/jcl/packages/d14/template.dproj
    trunk/jcl/packages/d15/Jcl.dproj
    trunk/jcl/packages/d15/JclBaseExpert.dproj
    trunk/jcl/packages/d15/JclContainers.dproj
    trunk/jcl/packages/d15/JclDebugExpert.dproj
    trunk/jcl/packages/d15/JclDebugExpertDLL.dproj
    trunk/jcl/packages/d15/JclDeveloperTools.dproj
    trunk/jcl/packages/d15/JclFavoriteFoldersExpert.dproj
    trunk/jcl/packages/d15/JclFavoriteFoldersExpertDLL.dproj
    trunk/jcl/packages/d15/JclProjectAnalysisExpert.dproj
    trunk/jcl/packages/d15/JclProjectAnalysisExpertDLL.dproj
    trunk/jcl/packages/d15/JclRepositoryExpert.dproj
    trunk/jcl/packages/d15/JclRepositoryExpertDLL.dproj
    trunk/jcl/packages/d15/JclSIMDViewExpert.dproj
    trunk/jcl/packages/d15/JclSIMDViewExpertDLL.dproj
    trunk/jcl/packages/d15/JclStackTraceViewerExpert.dproj
    trunk/jcl/packages/d15/JclStackTraceViewerExpertDLL.dproj
    trunk/jcl/packages/d15/JclVcl.dproj
    trunk/jcl/packages/d15/JclVersionControlExpert.dproj
    trunk/jcl/packages/d15/JclVersionControlExpertDLL.dproj
    trunk/jcl/packages/d15/template.dproj
    trunk/jcl/packages/d16/Jcl.dproj
    trunk/jcl/packages/d16/JclBaseExpert.dproj
    trunk/jcl/packages/d16/JclContainers.dproj
    trunk/jcl/packages/d16/JclDebugExpert.dproj
    trunk/jcl/packages/d16/JclDebugExpertDLL.dproj
    trunk/jcl/packages/d16/JclDeveloperTools.dproj
    trunk/jcl/packages/d16/JclFavoriteFoldersExpert.dproj
    trunk/jcl/packages/d16/JclFavoriteFoldersExpertDLL.dproj
    trunk/jcl/packages/d16/JclProjectAnalysisExpert.dproj
    trunk/jcl/packages/d16/JclProjectAnalysisExpertDLL.dproj
    trunk/jcl/packages/d16/JclRepositoryExpert.dproj
    trunk/jcl/packages/d16/JclRepositoryExpertDLL.dproj
    trunk/jcl/packages/d16/JclSIMDViewExpert.dproj
    trunk/jcl/packages/d16/JclSIMDViewExpertDLL.dproj
    trunk/jcl/packages/d16/JclStackTraceViewerExpert.dproj
    trunk/jcl/packages/d16/JclStackTraceViewerExpertDLL.dproj
    trunk/jcl/packages/d16/JclVcl.dproj
    trunk/jcl/packages/d16/JclVersionControlExpert.dproj
    trunk/jcl/packages/d16/JclVersionControlExpertDLL.dproj
    trunk/jcl/packages/d16/template.dproj
    trunk/jcl/packages/d8/Jcl.bdsproj
    trunk/jcl/packages/d8/JclBaseExpert.bdsproj
    trunk/jcl/packages/d8/JclContainers.bdsproj
    trunk/jcl/packages/d8/JclDeveloperTools.bdsproj
    trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/d8/JclVcl.bdsproj
    trunk/jcl/packages/d8/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/d8/template.bdsproj
    trunk/jcl/packages/d9/Jcl.bdsproj
    trunk/jcl/packages/d9/JclBaseExpert.bdsproj
    trunk/jcl/packages/d9/JclContainers.bdsproj
    trunk/jcl/packages/d9/JclDebugExpert.bdsproj
    trunk/jcl/packages/d9/JclDebugExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclDeveloperTools.bdsproj
    trunk/jcl/packages/d9/JclFavoriteFoldersExpert.bdsproj
    trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclProjectAnalysisExpert.bdsproj
    trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclRepositoryExpert.bdsproj
    trunk/jcl/packages/d9/JclRepositoryExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclSIMDViewExpert.bdsproj
    trunk/jcl/packages/d9/JclSIMDViewExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclStackTraceViewerExpert.bdsproj
    trunk/jcl/packages/d9/JclStackTraceViewerExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclVcl.bdsproj
    trunk/jcl/packages/d9/JclVersionControlExpert.bdsproj
    trunk/jcl/packages/d9/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/d9/template.bdsproj

Modified: trunk/jcl/packages/cs1/Jcl.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/Jcl.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/cs1/Jcl.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -156,7 +156,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/cs1/JclBaseExpert.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclBaseExpert.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/cs1/JclBaseExpert.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -156,7 +156,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/cs1/JclContainers.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclContainers.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/cs1/JclContainers.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -156,7 +156,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/cs1/JclDeveloperTools.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclDeveloperTools.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/cs1/JclDeveloperTools.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -156,7 +156,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -156,7 +156,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">True</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/cs1/JclVcl.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclVcl.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/cs1/JclVcl.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -156,7 +156,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -156,7 +156,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">True</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/cs1/template.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/template.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/cs1/template.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -156,7 +156,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">%ISDLL%</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/Jcl.bdsproj
===================================================================
--- trunk/jcl/packages/d10/Jcl.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/Jcl.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclBaseExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclBaseExpert.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclBaseExpert.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclContainers.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclContainers.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclContainers.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclDebugExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclDebugExpert.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclDebugExpert.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclDebugExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclDebugExpertDLL.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclDebugExpertDLL.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">True</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclDeveloperTools.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclDeveloperTools.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclDeveloperTools.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclFavoriteFoldersExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclFavoriteFoldersExpert.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclFavoriteFoldersExpert.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">True</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclProjectAnalysisExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclProjectAnalysisExpert.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclProjectAnalysisExpert.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">True</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclRepositoryExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclRepositoryExpert.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclRepositoryExpert.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclRepositoryExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclRepositoryExpertDLL.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclRepositoryExpertDLL.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">True</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclSIMDViewExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclSIMDViewExpert.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclSIMDViewExpert.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclSIMDViewExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclSIMDViewExpertDLL.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclSIMDViewExpertDLL.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">True</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclStackTraceViewerExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclStackTraceViewerExpert.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclStackTraceViewerExpert.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclStackTraceViewerExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclStackTraceViewerExpertDLL.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclStackTraceViewerExpertDLL.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">True</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclVcl.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclVcl.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclVcl.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclVersionControlExpert.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclVersionControlExpert.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclVersionControlExpert.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/JclVersionControlExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/d10/JclVersionControlExpertDLL.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/JclVersionControlExpertDLL.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">True</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d10/template.bdsproj
===================================================================
--- trunk/jcl/packages/d10/template.bdsproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d10/template.bdsproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -145,7 +145,7 @@
       <VersionInfo Name="Special">False</VersionInfo>
       <VersionInfo Name="Private">False</VersionInfo>
       <VersionInfo Name="DLL">%ISDLL%</VersionInfo>
-      <VersionInfo Name="Locale">1053</VersionInfo>
+      <VersionInfo Name="Locale">1033</VersionInfo>
       <VersionInfo Name="CodePage">1252</VersionInfo>
     </VersionInfo>
     <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/Jcl.dproj
===================================================================
--- trunk/jcl/packages/d11/Jcl.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/Jcl.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclBaseExpert.dproj
===================================================================
--- trunk/jcl/packages/d11/JclBaseExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclBaseExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclContainers.dproj
===================================================================
--- trunk/jcl/packages/d11/JclContainers.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclContainers.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclDebugExpert.dproj
===================================================================
--- trunk/jcl/packages/d11/JclDebugExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclDebugExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclDebugExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d11/JclDebugExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclDebugExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclDeveloperTools.dproj
===================================================================
--- trunk/jcl/packages/d11/JclDeveloperTools.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclDeveloperTools.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclFavoriteFoldersExpert.dproj
===================================================================
--- trunk/jcl/packages/d11/JclFavoriteFoldersExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclFavoriteFoldersExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclFavoriteFoldersExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d11/JclFavoriteFoldersExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclFavoriteFoldersExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclProjectAnalysisExpert.dproj
===================================================================
--- trunk/jcl/packages/d11/JclProjectAnalysisExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclProjectAnalysisExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclProjectAnalysisExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d11/JclProjectAnalysisExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclProjectAnalysisExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclRepositoryExpert.dproj
===================================================================
--- trunk/jcl/packages/d11/JclRepositoryExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclRepositoryExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclRepositoryExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d11/JclRepositoryExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclRepositoryExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclSIMDViewExpert.dproj
===================================================================
--- trunk/jcl/packages/d11/JclSIMDViewExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclSIMDViewExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclSIMDViewExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d11/JclSIMDViewExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclSIMDViewExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclStackTraceViewerExpert.dproj
===================================================================
--- trunk/jcl/packages/d11/JclStackTraceViewerExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclStackTraceViewerExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclStackTraceViewerExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d11/JclStackTraceViewerExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclStackTraceViewerExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclVcl.dproj
===================================================================
--- trunk/jcl/packages/d11/JclVcl.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclVcl.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclVersionControlExpert.dproj
===================================================================
--- trunk/jcl/packages/d11/JclVersionControlExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclVersionControlExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/JclVersionControlExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d11/JclVersionControlExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/JclVersionControlExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d11/template.dproj
===================================================================
--- trunk/jcl/packages/d11/template.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d11/template.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -56,7 +56,7 @@
            <VersionInfo Name="Special">False</VersionInfo>
            <VersionInfo Name="Private">False</VersionInfo>
            <VersionInfo Name="DLL">False</VersionInfo>
-           <VersionInfo Name="Locale">1031</VersionInfo>
+           <VersionInfo Name="Locale">1033</VersionInfo>
            <VersionInfo Name="CodePage">1252</VersionInfo>
          </VersionInfo>
          <VersionInfoKeys>

Modified: trunk/jcl/packages/d12/Jcl.dproj
===================================================================
--- trunk/jcl/packages/d12/Jcl.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/Jcl.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -174,7 +174,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclBaseExpert.dproj
===================================================================
--- trunk/jcl/packages/d12/JclBaseExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclBaseExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -114,7 +114,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclContainers.dproj
===================================================================
--- trunk/jcl/packages/d12/JclContainers.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclContainers.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -112,7 +112,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclDebugExpert.dproj
===================================================================
--- trunk/jcl/packages/d12/JclDebugExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclDebugExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -105,7 +105,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclDebugExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d12/JclDebugExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclDebugExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -105,7 +105,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclDeveloperTools.dproj
===================================================================
--- trunk/jcl/packages/d12/JclDeveloperTools.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclDeveloperTools.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -129,7 +129,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclFavoriteFoldersExpert.dproj
===================================================================
--- trunk/jcl/packages/d12/JclFavoriteFoldersExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclFavoriteFoldersExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -103,7 +103,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclFavoriteFoldersExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d12/JclFavoriteFoldersExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclFavoriteFoldersExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -103,7 +103,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclProjectAnalysisExpert.dproj
===================================================================
--- trunk/jcl/packages/d12/JclProjectAnalysisExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclProjectAnalysisExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -103,7 +103,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclProjectAnalysisExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d12/JclProjectAnalysisExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclProjectAnalysisExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -103,7 +103,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclRepositoryExpert.dproj
===================================================================
--- trunk/jcl/packages/d12/JclRepositoryExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclRepositoryExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -114,7 +114,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclRepositoryExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d12/JclRepositoryExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclRepositoryExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -114,7 +114,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclSIMDViewExpert.dproj
===================================================================
--- trunk/jcl/packages/d12/JclSIMDViewExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclSIMDViewExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -106,7 +106,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclSIMDViewExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d12/JclSIMDViewExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclSIMDViewExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -106,7 +106,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclStackTraceViewerExpert.dproj
===================================================================
--- trunk/jcl/packages/d12/JclStackTraceViewerExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclStackTraceViewerExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -115,7 +115,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclStackTraceViewerExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d12/JclStackTraceViewerExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclStackTraceViewerExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -115,7 +115,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclVcl.dproj
===================================================================
--- trunk/jcl/packages/d12/JclVcl.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclVcl.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -111,7 +111,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclVersionControlExpert.dproj
===================================================================
--- trunk/jcl/packages/d12/JclVersionControlExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclVersionControlExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -104,7 +104,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/JclVersionControlExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d12/JclVersionControlExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/JclVersionControlExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -104,7 +104,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d12/template.dproj
===================================================================
--- trunk/jcl/packages/d12/template.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d12/template.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -102,7 +102,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d14/Jcl.dproj
===================================================================
--- trunk/jcl/packages/d14/Jcl.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d14/Jcl.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -176,7 +176,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d14/JclBaseExpert.dproj
===================================================================
--- trunk/jcl/packages/d14/JclBaseExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d14/JclBaseExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -116,7 +116,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d14/JclContainers.dproj
===================================================================
--- trunk/jcl/packages/d14/JclContainers.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d14/JclContainers.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -114,7 +114,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d14/JclDebugExpert.dproj
===================================================================
--- trunk/jcl/packages/d14/JclDebugExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d14/JclDebugExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -107,7 +107,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d14/JclDebugExpertDLL.dproj
===================================================================
--- trunk/jcl/packages/d14/JclDebugExpertDLL.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d14/JclDebugExpertDLL.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -107,7 +107,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d14/JclDeveloperTools.dproj
===================================================================
--- trunk/jcl/packages/d14/JclDeveloperTools.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d14/JclDeveloperTools.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -131,7 +131,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+						<VersionInfo Name="Locale">1033</VersionInfo>
 						<VersionInfo Name="CodePage">1252</VersionInfo>
 					</VersionInfo>
 					<VersionInfoKeys>

Modified: trunk/jcl/packages/d14/JclFavoriteFoldersExpert.dproj
===================================================================
--- trunk/jcl/packages/d14/JclFavoriteFoldersExpert.dproj	2012-08-11 22:36:25 UTC (rev 3810)
+++ trunk/jcl/packages/d14/JclFavoriteFoldersExpert.dproj	2012-08-11 22:54:32 UTC (rev 3811)
@@ -105,7 +105,7 @@
 						<VersionInfo Name="Special">False</VersionInfo>
 						<VersionInfo Name="Private">False</VersionInfo>
 						<VersionInfo Name="DLL">False</VersionInfo>
-						<VersionInfo Name="Locale">1031</VersionInfo>
+					...
 
[truncated message content]

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

From: <ou...@us...> - 2012-08-11 22:36:35

Revision: 3810
          http://jcl.svn.sourceforge.net/jcl/?rev=3810&view=rev
Author:   outchy
Date:     2012-08-11 22:36:25 +0000 (Sat, 11 Aug 2012)
Log Message:
-----------
for some reasons, some files are missing in revision 3809.

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

Modified Paths:
--------------
    trunk/jcl/packages/d14/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d15/JclDebugExpert.res
    trunk/jcl/packages/d15/JclDebugExpertDLL.res
    trunk/jcl/packages/d15/JclDeveloperTools.res
    trunk/jcl/packages/d15/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d15/JclFavoriteFoldersExpertDLL.res
    trunk/jcl/packages/d15/JclProjectAnalysisExpert.res
    trunk/jcl/packages/d15/JclProjectAnalysisExpertDLL.res
    trunk/jcl/packages/d15/JclRepositoryExpert.res
    trunk/jcl/packages/d15/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d15/JclSIMDViewExpert.res
    trunk/jcl/packages/d15/JclSIMDViewExpertDLL.res
    trunk/jcl/packages/d15/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d15/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d15/JclVcl.res
    trunk/jcl/packages/d15/JclVersionControlExpert.res
    trunk/jcl/packages/d15/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d16/Jcl.res
    trunk/jcl/packages/d16/JclBaseExpert.res
    trunk/jcl/packages/d16/JclContainers.res
    trunk/jcl/packages/d16/JclDebugExpert.res
    trunk/jcl/packages/d16/JclDebugExpertDLL.res
    trunk/jcl/packages/d16/JclDeveloperTools.res
    trunk/jcl/packages/d16/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d16/JclFavoriteFoldersExpertDLL.res
    trunk/jcl/packages/d16/JclProjectAnalysisExpert.res
    trunk/jcl/packages/d16/JclProjectAnalysisExpertDLL.res
    trunk/jcl/packages/d16/JclRepositoryExpert.res
    trunk/jcl/packages/d16/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d16/JclSIMDViewExpert.res
    trunk/jcl/packages/d16/JclSIMDViewExpertDLL.res
    trunk/jcl/packages/d16/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d16/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d16/JclVcl.res
    trunk/jcl/packages/d16/JclVersionControlExpert.res
    trunk/jcl/packages/d16/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d6/Jcl.res
    trunk/jcl/packages/d6/JclBaseExpert.res
    trunk/jcl/packages/d6/JclContainers.res
    trunk/jcl/packages/d6/JclDebugExpert.res
    trunk/jcl/packages/d6/JclDebugExpertDLL.RES
    trunk/jcl/packages/d6/JclDeveloperTools.res
    trunk/jcl/packages/d6/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d6/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/d6/JclProjectAnalysisExpert.RES
    trunk/jcl/packages/d6/JclProjectAnalysisExpertDLL.RES
    trunk/jcl/packages/d6/JclRepositoryExpert.res
    trunk/jcl/packages/d6/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d6/JclSIMDViewExpert.res
    trunk/jcl/packages/d6/JclSIMDViewExpertDLL.RES
    trunk/jcl/packages/d6/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d6/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d6/JclThreadNameExpert.res
    trunk/jcl/packages/d6/JclThreadNameExpertDLL.RES
    trunk/jcl/packages/d6/JclUsesExpert.res
    trunk/jcl/packages/d6/JclUsesExpertDLL.RES
    trunk/jcl/packages/d6/JclVcl.res
    trunk/jcl/packages/d6/JclVersionControlExpert.res
    trunk/jcl/packages/d6/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d7/Jcl.res
    trunk/jcl/packages/d7/JclBaseExpert.res
    trunk/jcl/packages/d7/JclContainers.res
    trunk/jcl/packages/d7/JclDebugExpert.res
    trunk/jcl/packages/d7/JclDebugExpertDLL.RES
    trunk/jcl/packages/d7/JclDeveloperTools.res
    trunk/jcl/packages/d7/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d7/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/d7/JclProjectAnalysisExpert.RES
    trunk/jcl/packages/d7/JclProjectAnalysisExpertDLL.RES
    trunk/jcl/packages/d7/JclRepositoryExpert.res
    trunk/jcl/packages/d7/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d7/JclSIMDViewExpert.res
    trunk/jcl/packages/d7/JclSIMDViewExpertDLL.RES
    trunk/jcl/packages/d7/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d7/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d7/JclUsesExpert.res
    trunk/jcl/packages/d7/JclUsesExpertDLL.RES
    trunk/jcl/packages/d7/JclVcl.res
    trunk/jcl/packages/d7/JclVersionControlExpert.res
    trunk/jcl/packages/d7/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d8/Jcl.RES
    trunk/jcl/packages/d8/JclBaseExpert.RES
    trunk/jcl/packages/d8/JclContainers.res
    trunk/jcl/packages/d8/JclDeveloperTools.res
    trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/d8/JclVcl.res
    trunk/jcl/packages/d8/JclVersionControlExpertDLL.res
    trunk/jcl/packages/d9/Jcl.RES
    trunk/jcl/packages/d9/JclBaseExpert.res
    trunk/jcl/packages/d9/JclContainers.res
    trunk/jcl/packages/d9/JclDebugExpert.RES
    trunk/jcl/packages/d9/JclDebugExpertDLL.RES
    trunk/jcl/packages/d9/JclDeveloperTools.res
    trunk/jcl/packages/d9/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/d9/JclProjectAnalysisExpert.RES
    trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.RES
    trunk/jcl/packages/d9/JclRepositoryExpert.res
    trunk/jcl/packages/d9/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d9/JclSIMDViewExpertDLL.RES
    trunk/jcl/packages/d9/JclSimdViewExpert.RES
    trunk/jcl/packages/d9/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d9/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d9/JclVcl.RES
    trunk/jcl/packages/d9/JclVersionControlExpert.res
    trunk/jcl/packages/d9/JclVersionControlExpertDLL.res

Modified: trunk/jcl/packages/d14/JclVersionControlExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d15/JclDebugExpert.res
===================================================================
(Binary files differ)

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

Modified: trunk/jcl/packages/d15/JclDeveloperTools.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d15/JclFavoriteFoldersExpert.res
===================================================================
(Binary files differ)

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

Modified: trunk/jcl/packages/d15/JclProjectAnalysisExpert.res
===================================================================
(Binary files differ)

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

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

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

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

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

Modified: trunk/jcl/packages/d15/JclStackTraceViewerExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d15/JclStackTraceViewerExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d15/JclVcl.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d15/JclVersionControlExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d15/JclVersionControlExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d16/Jcl.res
===================================================================
(Binary files differ)

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

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

Modified: trunk/jcl/packages/d16/JclDebugExpert.res
===================================================================
(Binary files differ)

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

Modified: trunk/jcl/packages/d16/JclDeveloperTools.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d16/JclFavoriteFoldersExpert.res
===================================================================
(Binary files differ)

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

Modified: trunk/jcl/packages/d16/JclProjectAnalysisExpert.res
===================================================================
(Binary files differ)

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

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

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

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

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

Modified: trunk/jcl/packages/d16/JclStackTraceViewerExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d16/JclStackTraceViewerExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d16/JclVcl.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d16/JclVersionControlExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d16/JclVersionControlExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d6/Jcl.res
===================================================================
(Binary files differ)

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

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

Modified: trunk/jcl/packages/d6/JclDebugExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d6/JclDebugExpertDLL.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d6/JclDeveloperTools.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d6/JclFavoriteFoldersExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d6/JclFavoriteFoldersExpertDLL.RES
===================================================================
(Binary files differ)

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

Modified: trunk/jcl/packages/d6/JclProjectAnalysisExpertDLL.RES
===================================================================
(Binary files differ)

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

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

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

Modified: trunk/jcl/packages/d6/JclSIMDViewExpertDLL.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d6/JclStackTraceViewerExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d6/JclStackTraceViewerExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d6/JclThreadNameExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d6/JclThreadNameExpertDLL.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d6/JclUsesExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d6/JclUsesExpertDLL.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d6/JclVcl.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d6/JclVersionControlExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d6/JclVersionControlExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d7/Jcl.res
===================================================================
(Binary files differ)

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

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

Modified: trunk/jcl/packages/d7/JclDebugExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d7/JclDebugExpertDLL.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d7/JclDeveloperTools.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d7/JclFavoriteFoldersExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d7/JclFavoriteFoldersExpertDLL.RES
===================================================================
(Binary files differ)

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

Modified: trunk/jcl/packages/d7/JclProjectAnalysisExpertDLL.RES
===================================================================
(Binary files differ)

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

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

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

Modified: trunk/jcl/packages/d7/JclSIMDViewExpertDLL.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d7/JclStackTraceViewerExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d7/JclStackTraceViewerExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d7/JclUsesExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d7/JclUsesExpertDLL.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d7/JclVcl.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d7/JclVersionControlExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d7/JclVersionControlExpertDLL.res
===================================================================
(Binary files differ)

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

Modified: trunk/jcl/packages/d8/JclBaseExpert.RES
===================================================================
(Binary files differ)

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

Modified: trunk/jcl/packages/d8/JclDeveloperTools.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d8/JclVcl.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d8/JclVersionControlExpertDLL.res
===================================================================
(Binary files differ)

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

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

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

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

Modified: trunk/jcl/packages/d9/JclDebugExpertDLL.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d9/JclDeveloperTools.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d9/JclFavoriteFoldersExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.RES
===================================================================
(Binary files differ)

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

Modified: trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.RES
===================================================================
(Binary files differ)

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

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

Modified: trunk/jcl/packages/d9/JclSIMDViewExpertDLL.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d9/JclSimdViewExpert.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d9/JclStackTraceViewerExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d9/JclStackTraceViewerExpertDLL.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d9/JclVcl.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d9/JclVersionControlExpert.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/d9/JclVersionControlExpertDLL.res
===================================================================
(Binary files differ)

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:[3809] trunk/jcl

From: <ou...@us...> - 2012-08-11 20:59:53

Revision: 3809
          http://jcl.svn.sourceforge.net/jcl/?rev=3809&view=rev
Author:   outchy
Date:     2012-08-11 20:59:38 +0000 (Sat, 11 Aug 2012)
Log Message:
-----------
update years in copyright notices.

Modified Paths:
--------------
    trunk/jcl/devtools/pgEdit.xml
    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/JclDeveloperTools.rc
    trunk/jcl/packages/c6/JclDeveloperTools.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/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/c6/JclStackTraceViewerExpert.res
    trunk/jcl/packages/c6/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/c6/JclStackTraceViewerExpertDLL.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/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/JclDeveloperTools.bdsproj
    trunk/jcl/packages/cs1/JclDeveloperTools.rc
    trunk/jcl/packages/cs1/JclDeveloperTools.res
    trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.RES
    trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/cs1/JclVcl.bdsproj
    trunk/jcl/packages/cs1/JclVcl.rc
    trunk/jcl/packages/cs1/JclVcl.res
    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/JclDeveloperTools.bdsproj
    trunk/jcl/packages/d10/JclDeveloperTools.rc
    trunk/jcl/packages/d10/JclDeveloperTools.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/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/JclDeveloperTools.dproj
    trunk/jcl/packages/d11/JclDeveloperTools.rc
    trunk/jcl/packages/d11/JclDeveloperTools.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/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/JclDeveloperTools.dproj
    trunk/jcl/packages/d12/JclDeveloperTools.rc
    trunk/jcl/packages/d12/JclDeveloperTools.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/d14/Jcl.dproj
    trunk/jcl/packages/d14/Jcl.rc
    trunk/jcl/packages/d14/Jcl.res
    trunk/jcl/packages/d14/JclBaseExpert.dproj
    trunk/jcl/packages/d14/JclBaseExpert.rc
    trunk/jcl/packages/d14/JclBaseExpert.res
    trunk/jcl/packages/d14/JclContainers.dproj
    trunk/jcl/packages/d14/JclContainers.rc
    trunk/jcl/packages/d14/JclContainers.res
    trunk/jcl/packages/d14/JclDebugExpert.dproj
    trunk/jcl/packages/d14/JclDebugExpert.rc
    trunk/jcl/packages/d14/JclDebugExpert.res
    trunk/jcl/packages/d14/JclDebugExpertDLL.dproj
    trunk/jcl/packages/d14/JclDebugExpertDLL.rc
    trunk/jcl/packages/d14/JclDebugExpertDLL.res
    trunk/jcl/packages/d14/JclDeveloperTools.dproj
    trunk/jcl/packages/d14/JclDeveloperTools.rc
    trunk/jcl/packages/d14/JclDeveloperTools.res
    trunk/jcl/packages/d14/JclFavoriteFoldersExpert.dproj
    trunk/jcl/packages/d14/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d14/JclFavoriteFoldersExpert.res
    trunk/jcl/packages/d14/JclFavoriteFoldersExpertDLL.dproj
    trunk/jcl/packages/d14/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d14/JclFavoriteFoldersExpertDLL.res
    trunk/jcl/packages/d14/JclProjectAnalysisExpert.dproj
    trunk/jcl/packages/d14/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d14/JclProjectAnalysisExpert.res
    trunk/jcl/packages/d14/JclProjectAnalysisExpertDLL.dproj
    trunk/jcl/packages/d14/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d14/JclProjectAnalysisExpertDLL.res
    trunk/jcl/packages/d14/JclRepositoryExpert.dproj
    trunk/jcl/packages/d14/JclRepositoryExpert.rc
    trunk/jcl/packages/d14/JclRepositoryExpert.res
    trunk/jcl/packages/d14/JclRepositoryExpertDLL.dproj
    trunk/jcl/packages/d14/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d14/JclRepositoryExpertDLL.res
    trunk/jcl/packages/d14/JclSIMDViewExpert.dproj
    trunk/jcl/packages/d14/JclSIMDViewExpert.rc
    trunk/jcl/packages/d14/JclSIMDViewExpert.res
    trunk/jcl/packages/d14/JclSIMDViewExpertDLL.dproj
    trunk/jcl/packages/d14/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d14/JclSIMDViewExpertDLL.res
    trunk/jcl/packages/d14/JclStackTraceViewerExpert.dproj
    trunk/jcl/packages/d14/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d14/JclStackTraceViewerExpert.res
    trunk/jcl/packages/d14/JclStackTraceViewerExpertDLL.dproj
    trunk/jcl/packages/d14/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d14/JclStackTraceViewerExpertDLL.res
    trunk/jcl/packages/d14/JclVcl.dproj
    trunk/jcl/packages/d14/JclVcl.rc
    trunk/jcl/packages/d14/JclVcl.res
    trunk/jcl/packages/d14/JclVersionControlExpert.dproj
    trunk/jcl/packages/d14/JclVersionControlExpert.rc
    trunk/jcl/packages/d14/JclVersionControlExpert.res
    trunk/jcl/packages/d14/JclVersionControlExpertDLL.dproj
    trunk/jcl/packages/d14/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d15/Jcl.dproj
    trunk/jcl/packages/d15/Jcl.rc
    trunk/jcl/packages/d15/Jcl.res
    trunk/jcl/packages/d15/JclBaseExpert.dproj
    trunk/jcl/packages/d15/JclBaseExpert.rc
    trunk/jcl/packages/d15/JclBaseExpert.res
    trunk/jcl/packages/d15/JclContainers.dproj
    trunk/jcl/packages/d15/JclContainers.rc
    trunk/jcl/packages/d15/JclContainers.res
    trunk/jcl/packages/d15/JclDebugExpert.dproj
    trunk/jcl/packages/d15/JclDebugExpert.rc
    trunk/jcl/packages/d15/JclDebugExpertDLL.dproj
    trunk/jcl/packages/d15/JclDebugExpertDLL.rc
    trunk/jcl/packages/d15/JclDeveloperTools.dproj
    trunk/jcl/packages/d15/JclDeveloperTools.rc
    trunk/jcl/packages/d15/JclFavoriteFoldersExpert.dproj
    trunk/jcl/packages/d15/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d15/JclFavoriteFoldersExpertDLL.dproj
    trunk/jcl/packages/d15/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d15/JclProjectAnalysisExpert.dproj
    trunk/jcl/packages/d15/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d15/JclProjectAnalysisExpertDLL.dproj
    trunk/jcl/packages/d15/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d15/JclRepositoryExpert.dproj
    trunk/jcl/packages/d15/JclRepositoryExpert.rc
    trunk/jcl/packages/d15/JclRepositoryExpertDLL.dproj
    trunk/jcl/packages/d15/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d15/JclSIMDViewExpert.dproj
    trunk/jcl/packages/d15/JclSIMDViewExpert.rc
    trunk/jcl/packages/d15/JclSIMDViewExpertDLL.dproj
    trunk/jcl/packages/d15/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d15/JclStackTraceViewerExpert.dproj
    trunk/jcl/packages/d15/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d15/JclStackTraceViewerExpertDLL.dproj
    trunk/jcl/packages/d15/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d15/JclVcl.dproj
    trunk/jcl/packages/d15/JclVcl.rc
    trunk/jcl/packages/d15/JclVersionControlExpert.dproj
    trunk/jcl/packages/d15/JclVersionControlExpert.rc
    trunk/jcl/packages/d15/JclVersionControlExpertDLL.dproj
    trunk/jcl/packages/d15/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d16/Jcl.dproj
    trunk/jcl/packages/d16/Jcl.rc
    trunk/jcl/packages/d16/JclBaseExpert.dproj
    trunk/jcl/packages/d16/JclBaseExpert.rc
    trunk/jcl/packages/d16/JclContainers.dproj
    trunk/jcl/packages/d16/JclContainers.rc
    trunk/jcl/packages/d16/JclDebugExpert.dproj
    trunk/jcl/packages/d16/JclDebugExpert.rc
    trunk/jcl/packages/d16/JclDebugExpertDLL.dproj
    trunk/jcl/packages/d16/JclDebugExpertDLL.rc
    trunk/jcl/packages/d16/JclDeveloperTools.dproj
    trunk/jcl/packages/d16/JclDeveloperTools.rc
    trunk/jcl/packages/d16/JclFavoriteFoldersExpert.dproj
    trunk/jcl/packages/d16/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d16/JclFavoriteFoldersExpertDLL.dproj
    trunk/jcl/packages/d16/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d16/JclProjectAnalysisExpert.dproj
    trunk/jcl/packages/d16/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d16/JclProjectAnalysisExpertDLL.dproj
    trunk/jcl/packages/d16/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d16/JclRepositoryExpert.dproj
    trunk/jcl/packages/d16/JclRepositoryExpert.rc
    trunk/jcl/packages/d16/JclRepositoryExpertDLL.dproj
    trunk/jcl/packages/d16/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d16/JclSIMDViewExpert.dproj
    trunk/jcl/packages/d16/JclSIMDViewExpert.rc
    trunk/jcl/packages/d16/JclSIMDViewExpertDLL.dproj
    trunk/jcl/packages/d16/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d16/JclStackTraceViewerExpert.dproj
    trunk/jcl/packages/d16/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d16/JclStackTraceViewerExpertDLL.dproj
    trunk/jcl/packages/d16/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d16/JclVcl.dproj
    trunk/jcl/packages/d16/JclVcl.rc
    trunk/jcl/packages/d16/JclVersionControlExpert.dproj
    trunk/jcl/packages/d16/JclVersionControlExpert.rc
    trunk/jcl/packages/d16/JclVersionControlExpertDLL.dproj
    trunk/jcl/packages/d16/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d6/Jcl.rc
    trunk/jcl/packages/d6/JclBaseExpert.rc
    trunk/jcl/packages/d6/JclContainers.rc
    trunk/jcl/packages/d6/JclDebugExpert.rc
    trunk/jcl/packages/d6/JclDebugExpertDLL.rc
    trunk/jcl/packages/d6/JclDeveloperTools.rc
    trunk/jcl/packages/d6/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d6/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d6/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d6/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d6/JclRepositoryExpert.rc
    trunk/jcl/packages/d6/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d6/JclSIMDViewExpert.rc
    trunk/jcl/packages/d6/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d6/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d6/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d6/JclThreadNameExpert.rc
    trunk/jcl/packages/d6/JclThreadNameExpertDLL.rc
    trunk/jcl/packages/d6/JclUsesExpert.rc
    trunk/jcl/packages/d6/JclUsesExpertDLL.rc
    trunk/jcl/packages/d6/JclVcl.rc
    trunk/jcl/packages/d6/JclVersionControlExpert.rc
    trunk/jcl/packages/d6/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d7/Jcl.rc
    trunk/jcl/packages/d7/JclBaseExpert.rc
    trunk/jcl/packages/d7/JclContainers.rc
    trunk/jcl/packages/d7/JclDebugExpert.rc
    trunk/jcl/packages/d7/JclDebugExpertDLL.rc
    trunk/jcl/packages/d7/JclDeveloperTools.rc
    trunk/jcl/packages/d7/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d7/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d7/JclProjectAnalysisExpert.rc
    trunk/jcl/packages/d7/JclProjectAnalysisExpertDLL.rc
    trunk/jcl/packages/d7/JclRepositoryExpert.rc
    trunk/jcl/packages/d7/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d7/JclSIMDViewExpert.rc
    trunk/jcl/packages/d7/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d7/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d7/JclStackTraceViewerExpertDLL.rc
    trunk/jcl/packages/d7/JclUsesExpert.rc
    trunk/jcl/packages/d7/JclUsesExpertDLL.rc
    trunk/jcl/packages/d7/JclVcl.rc
    trunk/jcl/packages/d7/JclVersionControlExpert.rc
    trunk/jcl/packages/d7/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/d8/Jcl.bdsproj
    trunk/jcl/packages/d8/Jcl.rc
    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/JclDeveloperTools.bdsproj
    trunk/jcl/packages/d8/JclDeveloperTools.rc
    trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d8/JclVcl.bdsproj
    trunk/jcl/packages/d8/JclVcl.rc
    trunk/jcl/packages/d8/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/d8/JclVersionControlExpertDLL.rc
    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/JclContainers.bdsproj
    trunk/jcl/packages/d9/JclContainers.rc
    trunk/jcl/packages/d9/JclDebugExpert.bdsproj
    trunk/jcl/packages/d9/JclDebugExpert.rc
    trunk/jcl/packages/d9/JclDebugExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclDebugExpertDLL.rc
    trunk/jcl/packages/d9/JclDeveloperTools.bdsproj
    trunk/jcl/packages/d9/JclDeveloperTools.rc
    trunk/jcl/packages/d9/JclFavoriteFoldersExpert.bdsproj
    trunk/jcl/packages/d9/JclFavoriteFoldersExpert.rc
    trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.rc
    trunk/jcl/packages/d9/JclProjectAnalysisExpert.bdsproj
    trunk/jcl/packages/d9/JclProjectAnalysisExpert.rc
    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/JclRepositoryExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclRepositoryExpertDLL.rc
    trunk/jcl/packages/d9/JclSIMDViewExpert.bdsproj
    trunk/jcl/packages/d9/JclSIMDViewExpert.rc
    trunk/jcl/packages/d9/JclSIMDViewExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclSIMDViewExpertDLL.rc
    trunk/jcl/packages/d9/JclStackTraceViewerExpert.bdsproj
    trunk/jcl/packages/d9/JclStackTraceViewerExpert.rc
    trunk/jcl/packages/d9/JclStackTraceViewerExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclStackTraceViewerExpertDLL.rc
    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/JclVersionControlExpertDLL.bdsproj
    trunk/jcl/packages/d9/JclVersionControlExpertDLL.rc
    trunk/jcl/packages/fpc/Jcl.lpk
    trunk/jcl/packages/fpc/JclContainers.lpk
    trunk/jcl/packages/fpc/JclDeveloperTools.lpk
    trunk/jcl/packages/fpc/JclVcl.lpk
    trunk/jcl/packages/help/Jcl.dox
    trunk/jcl/packages/help/JclContainers.dox
    trunk/jcl/packages/help/JclDeveloperTools.dox
    trunk/jcl/packages/help/JclVcl.dox

Modified: trunk/jcl/devtools/pgEdit.xml
===================================================================
--- trunk/jcl/devtools/pgEdit.xml	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/devtools/pgEdit.xml	2012-08-11 20:59:38 UTC (rev 3809)
@@ -101,7 +101,7 @@
         <ProjectProperty name="VersionMinorNumber" value="4"/>
         <ProjectProperty name="ReleaseNumber" value="0"/>
         <ProjectProperty name="BuildNumber" value="4198"/>
-        <ProjectProperty name="Copyright" value="Copyright (C) 1999, 2011 Project JEDI"/>
+        <ProjectProperty name="Copyright" value="Copyright (C) 1999, 2012 Project JEDI"/>
       </ProjectProperties>
     </Model>
   </models>

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

Modified: trunk/jcl/packages/c6/Jcl.rc
===================================================================
--- trunk/jcl/packages/c6/Jcl.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/Jcl.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JEDI Code Library RTL package\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "Jcl\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

Modified: trunk/jcl/packages/c6/JclBaseExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclBaseExpert.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclBaseExpert.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Package containing common units for JCL Experts\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclBaseExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclBaseExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

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

Modified: trunk/jcl/packages/c6/JclContainers.rc
===================================================================
--- trunk/jcl/packages/c6/JclContainers.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclContainers.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JEDI Code Library Containers package\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclContainers\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclContainersC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\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	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclDebugExpert.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Debug IDE extension\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclDebugExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclDebugExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

Modified: trunk/jcl/packages/c6/JclDebugExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclDebugExpertDLL.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclDebugExpertDLL.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Debug IDE extension\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclDebugExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclDebugExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

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

Modified: trunk/jcl/packages/c6/JclDeveloperTools.rc
===================================================================
--- trunk/jcl/packages/c6/JclDeveloperTools.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclDeveloperTools.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JEDI Code Library Developer Tools package\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclDeveloperTools\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclDeveloperToolsC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

Modified: trunk/jcl/packages/c6/JclDeveloperTools.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	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclFavoriteFoldersExpert.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclFavoriteFoldersExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclFavoriteFoldersExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

Modified: trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclFavoriteFoldersExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclFavoriteFoldersExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\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	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclProjectAnalysisExpert.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Project Analyzer\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclProjectAnalysisExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclProjectAnalysisExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

Modified: trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Project Analyzer\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclProjectAnalysisExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclProjectAnalysisExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

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

Modified: trunk/jcl/packages/c6/JclRepositoryExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclRepositoryExpert.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclRepositoryExpert.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Package containing repository wizards\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclRepositoryExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclRepositoryExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

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

Modified: trunk/jcl/packages/c6/JclRepositoryExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclRepositoryExpertDLL.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclRepositoryExpertDLL.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Package containing repository wizards\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclRepositoryExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclRepositoryExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

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

Modified: trunk/jcl/packages/c6/JclSIMDViewExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclSIMDViewExpert.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclSIMDViewExpert.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclSIMDViewExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclSIMDViewExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

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

Modified: trunk/jcl/packages/c6/JclSIMDViewExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclSIMDViewExpertDLL.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclSIMDViewExpertDLL.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclSIMDViewExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclSIMDViewExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

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

Modified: trunk/jcl/packages/c6/JclStackTraceViewerExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclStackTraceViewerExpert.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclStackTraceViewerExpert.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Stack Trace Viewer\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclStackTraceViewerExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclStackTraceViewerExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

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

Modified: trunk/jcl/packages/c6/JclStackTraceViewerExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclStackTraceViewerExpertDLL.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclStackTraceViewerExpertDLL.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Stack Trace Viewer\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclStackTraceViewerExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclStackTraceViewerExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

Modified: trunk/jcl/packages/c6/JclStackTraceViewerExpertDLL.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	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclThreadNameExpert.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Thread Name IDE expert\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclThreadNameExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclThreadNameExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

Modified: trunk/jcl/packages/c6/JclThreadNameExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclThreadNameExpertDLL.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclThreadNameExpertDLL.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Thread Name IDE expert\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclThreadNameExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclThreadNameExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

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

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

Modified: trunk/jcl/packages/c6/JclUsesExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclUsesExpert.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclUsesExpert.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Uses Wizard\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclUsesExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclUsesExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

Modified: trunk/jcl/packages/c6/JclUsesExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclUsesExpertDLL.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclUsesExpertDLL.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Uses Wizard\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclUsesExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclUsesExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

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

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

Modified: trunk/jcl/packages/c6/JclVcl.rc
===================================================================
--- trunk/jcl/packages/c6/JclVcl.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclVcl.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JEDI Code Library VCL package\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclVcl\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclVclC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

Modified: trunk/jcl/packages/c6/JclVersionControlExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclVersionControlExpert.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclVersionControlExpert.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Integration of version control systems in the IDE\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclVersionControlExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclVersionControlExpertC60.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

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

Modified: trunk/jcl/packages/c6/JclVersionControlExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclVersionControlExpertDLL.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/c6/JclVersionControlExpertDLL.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Integration of version control systems in the IDE\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclVersionControlExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclVersionControlExpertDLLC60.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

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

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

Modified: trunk/jcl/packages/cs1/Jcl.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/Jcl.bdsproj	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/cs1/Jcl.bdsproj	2012-08-11 20:59:38 UTC (rev 3809)
@@ -164,7 +164,7 @@
       <VersionInfoKeys Name="FileDescription">JEDI Code Library RTL package</VersionInfoKeys>
       <VersionInfoKeys Name="FileVersion">2.4.0.4198</VersionInfoKeys>
       <VersionInfoKeys Name="InternalName">Jcl</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2011 Project JEDI</VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2012 Project JEDI</VersionInfoKeys>
       <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
       <VersionInfoKeys Name="OriginalFilename">Jcl71.bpl</VersionInfoKeys>
       <VersionInfoKeys Name="ProductName">JEDI Code Library</VersionInfoKeys>

Modified: trunk/jcl/packages/cs1/Jcl.rc
===================================================================
--- trunk/jcl/packages/cs1/Jcl.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/cs1/Jcl.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JEDI Code Library RTL package\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "Jcl\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "Jcl71.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

Modified: trunk/jcl/packages/cs1/JclBaseExpert.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/cs1/JclBaseExpert.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclBaseExpert.bdsproj	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/cs1/JclBaseExpert.bdsproj	2012-08-11 20:59:38 UTC (rev 3809)
@@ -164,7 +164,7 @@
       <VersionInfoKeys Name="FileDescription">JCL Package containing common units for JCL Experts</VersionInfoKeys>
       <VersionInfoKeys Name="FileVersion">2.4.0.4198</VersionInfoKeys>
       <VersionInfoKeys Name="InternalName">JclBaseExpert</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2011 Project JEDI</VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2012 Project JEDI</VersionInfoKeys>
       <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
       <VersionInfoKeys Name="OriginalFilename">JclBaseExpert71.bpl</VersionInfoKeys>
       <VersionInfoKeys Name="ProductName">JEDI Code Library</VersionInfoKeys>

Modified: trunk/jcl/packages/cs1/JclBaseExpert.rc
===================================================================
--- trunk/jcl/packages/cs1/JclBaseExpert.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/cs1/JclBaseExpert.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Package containing common units for JCL Experts\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclBaseExpert\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclBaseExpert71.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

Modified: trunk/jcl/packages/cs1/JclContainers.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclContainers.bdsproj	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/cs1/JclContainers.bdsproj	2012-08-11 20:59:38 UTC (rev 3809)
@@ -164,7 +164,7 @@
       <VersionInfoKeys Name="FileDescription">JEDI Code Library Containers package</VersionInfoKeys>
       <VersionInfoKeys Name="FileVersion">2.4.0.4198</VersionInfoKeys>
       <VersionInfoKeys Name="InternalName">JclContainers</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2011 Project JEDI</VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2012 Project JEDI</VersionInfoKeys>
       <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
       <VersionInfoKeys Name="OriginalFilename">JclContainers71.bpl</VersionInfoKeys>
       <VersionInfoKeys Name="ProductName">JEDI Code Library</VersionInfoKeys>

Modified: trunk/jcl/packages/cs1/JclContainers.rc
===================================================================
--- trunk/jcl/packages/cs1/JclContainers.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/cs1/JclContainers.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JEDI Code Library Containers package\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclContainers\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclContainers71.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

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

Modified: trunk/jcl/packages/cs1/JclDeveloperTools.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclDeveloperTools.bdsproj	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/cs1/JclDeveloperTools.bdsproj	2012-08-11 20:59:38 UTC (rev 3809)
@@ -164,7 +164,7 @@
       <VersionInfoKeys Name="FileDescription">JEDI Code Library Developer Tools package</VersionInfoKeys>
       <VersionInfoKeys Name="FileVersion">2.4.0.4198</VersionInfoKeys>
       <VersionInfoKeys Name="InternalName">JclDeveloperTools</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2011 Project JEDI</VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2012 Project JEDI</VersionInfoKeys>
       <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
       <VersionInfoKeys Name="OriginalFilename">JclDeveloperTools71.bpl</VersionInfoKeys>
       <VersionInfoKeys Name="ProductName">JEDI Code Library</VersionInfoKeys>

Modified: trunk/jcl/packages/cs1/JclDeveloperTools.rc
===================================================================
--- trunk/jcl/packages/cs1/JclDeveloperTools.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/cs1/JclDeveloperTools.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JEDI Code Library Developer Tools package\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclDeveloperTools\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclDeveloperTools71.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

Modified: trunk/jcl/packages/cs1/JclDeveloperTools.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.RES
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj	2012-08-11 20:59:38 UTC (rev 3809)
@@ -164,7 +164,7 @@
       <VersionInfoKeys Name="FileDescription">JCL Open and Save IDE dialogs with favorite folders</VersionInfoKeys>
       <VersionInfoKeys Name="FileVersion">2.4.0.4198</VersionInfoKeys>
       <VersionInfoKeys Name="InternalName">JclFavoriteFoldersExpertDLL</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2011 Project JEDI</VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2012 Project JEDI</VersionInfoKeys>
       <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
       <VersionInfoKeys Name="OriginalFilename">JclFavoriteFoldersExpertDLL71.dll</VersionInfoKeys>
       <VersionInfoKeys Name="ProductName">JEDI Code Library</VersionInfoKeys>

Modified: trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.rc
===================================================================
--- trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclFavoriteFoldersExpertDLL\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclFavoriteFoldersExpertDLL71.dll\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

Modified: trunk/jcl/packages/cs1/JclVcl.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclVcl.bdsproj	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/cs1/JclVcl.bdsproj	2012-08-11 20:59:38 UTC (rev 3809)
@@ -164,7 +164,7 @@
       <VersionInfoKeys Name="FileDescription">JEDI Code Library VCL package</VersionInfoKeys>
       <VersionInfoKeys Name="FileVersion">2.4.0.4198</VersionInfoKeys>
       <VersionInfoKeys Name="InternalName">JclVcl</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2011 Project JEDI</VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2012 Project JEDI</VersionInfoKeys>
       <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
       <VersionInfoKeys Name="OriginalFilename">JclVcl71.bpl</VersionInfoKeys>
       <VersionInfoKeys Name="ProductName">JEDI Code Library</VersionInfoKeys>

Modified: trunk/jcl/packages/cs1/JclVcl.rc
===================================================================
--- trunk/jcl/packages/cs1/JclVcl.rc	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/cs1/JclVcl.rc	2012-08-11 20:59:38 UTC (rev 3809)
@@ -19,7 +19,7 @@
               VALUE "FileDescription", "JEDI Code Library VCL package\0"
               VALUE "FileVersion", "2.4.0.4198\0"
               VALUE "InternalName", "JclVcl\0"
-              VALUE "LegalCopyright", "Copyright (C) 1999, 2011 Project JEDI\0"
+              VALUE "LegalCopyright", "Copyright (C) 1999, 2012 Project JEDI\0"
               VALUE "OriginalFilename", "JclVcl71.bpl\0"
               VALUE "ProductName", "JEDI Code Library\0"
               VALUE "ProductVersion", "2.4 Build 4198\0"

Modified: trunk/jcl/packages/cs1/JclVcl.res
===================================================================
(Binary files differ)

Modified: trunk/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj
===================================================================
--- trunk/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj	2012-07-20 13:42:11 UTC (rev 3808)
+++ trunk/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj	2012-08-11 20:59:38 UTC (rev 3809)
@@ -164,7 +164,7 @@
       <VersionInfoKeys Name="FileDescription">JCL Integration of version control systems in the IDE</VersionInfoKeys>
       <VersionInfoKeys Name="FileVersion">2.4.0.4198</VersionInfoKeys>
       <VersionInfoKeys Name="InternalName">JclVersionControlExpertDLL</VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2011 Project JEDI</VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright">Copyright (C) 1999, 2012 Project JEDI</Ve...
 
[truncated message content]

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

From: <ob...@us...> - 2012-07-20 13:42:20

Revision: 3808
          http://jcl.svn.sourceforge.net/jcl/?rev=3808&view=rev
Author:   obones
Date:     2012-07-20 13:42:11 +0000 (Fri, 20 Jul 2012)
Log Message:
-----------
Much better to do it in the except part so that it does not overwrite LastError when there is no exception

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

Modified: trunk/jcl/source/common/JclSysUtils.pas
===================================================================
--- trunk/jcl/source/common/JclSysUtils.pas	2012-07-06 13:58:27 UTC (rev 3807)
+++ trunk/jcl/source/common/JclSysUtils.pas	2012-07-20 13:42:11 UTC (rev 3808)
@@ -2938,93 +2938,112 @@
     if CreateProcess(nil, PChar(CommandLine), nil, nil, True, ProcessPriorities[ProcessPriority],
       nil, nil, StartupInfo, ProcessInfo) then
     begin
-      // init out and error events
-      CloseHandle(OutPipeInfo.PipeWrite);
-      OutPipeInfo.PipeWrite := 0;
-      if not MergeError then
-      begin
-        CloseHandle(ErrorPipeInfo.PipeWrite);
-        ErrorPipeInfo.PipeWrite := 0;
-      end;
-      InternalAbort := False;
-      if AbortPtr <> nil then
-        AbortPtr^ := {$IFDEF FPC}Byte({$ENDIF}False{$IFDEF FPC}){$ENDIF}
-      else
-        AbortPtr := @InternalAbort;
-      // init the array of events to wait for
-      ProcessEvent := TJclDispatcherObject.Attach(ProcessInfo.hProcess);
-      SetLength(WaitEvents, 2);
-      // add the process first
-      WaitEvents[0] := ProcessEvent;
-      // add the output event
-      WaitEvents[1] := OutPipeInfo.Event;
-      // add the error event
-      if not MergeError then
-      begin
-        SetLength(WaitEvents, 3);
-        WaitEvents[2] := ErrorPipeInfo.Event;
-      end;
-      // add the abort event if any
-      if AbortEvent <> nil then
-      begin
-        AbortEvent.ResetEvent;
-        Index := Length(WaitEvents);
-        SetLength(WaitEvents, Index + 1);
-        WaitEvents[Index] := AbortEvent;
-      end;
-      // init the asynchronous reads
-      ResetMemory(OutOverlapped, SizeOf(OutOverlapped));
-      OutOverlapped.hEvent := OutPipeInfo.Event.Handle;
-      InternalExecuteReadPipe(OutPipeInfo, OutOverlapped);
-      if not MergeError then
-      begin
-        ResetMemory(ErrorOverlapped, SizeOf(ErrorOverlapped));
-        ErrorOverlapped.hEvent := ErrorPipeInfo.Event.Handle;
-        InternalExecuteReadPipe(ErrorPipeInfo, ErrorOverlapped);
-      end;
-      // event based loop
-      while not {$IFDEF FPC}Boolean({$ENDIF}AbortPtr^{$IFDEF FPC}){$ENDIF} do
-      begin
-        Index := WaitAlertableForMultipleObjects(WaitEvents, False, INFINITE);
-        if Index = WAIT_OBJECT_0 then
-          // the subprocess has ended
-          Break
-        else
-        if Index = (WAIT_OBJECT_0 + 1) then
+      try
+        // init out and error events
+        CloseHandle(OutPipeInfo.PipeWrite);
+        OutPipeInfo.PipeWrite := 0;
+        if not MergeError then
         begin
-          // event on output
-          InternalExecuteHandlePipeEvent(OutPipeInfo, OutOverlapped);
-        end
+          CloseHandle(ErrorPipeInfo.PipeWrite);
+          ErrorPipeInfo.PipeWrite := 0;
+        end;
+        InternalAbort := False;
+        if AbortPtr <> nil then
+          AbortPtr^ := {$IFDEF FPC}Byte({$ENDIF}False{$IFDEF FPC}){$ENDIF}
         else
-        if (Index = (WAIT_OBJECT_0 + 2)) and not MergeError then
+          AbortPtr := @InternalAbort;
+        // init the array of events to wait for
+        ProcessEvent := TJclDispatcherObject.Attach(ProcessInfo.hProcess);
+        SetLength(WaitEvents, 2);
+        // add the process first
+        WaitEvents[0] := ProcessEvent;
+        // add the output event
+        WaitEvents[1] := OutPipeInfo.Event;
+        // add the error event
+        if not MergeError then
         begin
-          // event on error
-          InternalExecuteHandlePipeEvent(ErrorPipeInfo, ErrorOverlapped);
-        end
-        else
-        if ((Index = (WAIT_OBJECT_0 + 2)) and MergeError) or
-           ((Index = (WAIT_OBJECT_0 + 3)) and not MergeError) then
-          // event on abort
-          AbortPtr^ := {$IFDEF FPC}Byte({$ENDIF}True{$IFDEF FPC}){$ENDIF}
-        else
-          {$IFDEF DELPHI11_UP}
-          RaiseLastOSError(Index);
-          {$ELSE}
-          RaiseLastOSError;
-          {$ENDIF DELPHI11_UP}
+          SetLength(WaitEvents, 3);
+          WaitEvents[2] := ErrorPipeInfo.Event;
+        end;
+        // add the abort event if any
+        if AbortEvent <> nil then
+        begin
+          AbortEvent.ResetEvent;
+          Index := Length(WaitEvents);
+          SetLength(WaitEvents, Index + 1);
+          WaitEvents[Index] := AbortEvent;
+        end;
+        // init the asynchronous reads
+        ResetMemory(OutOverlapped, SizeOf(OutOverlapped));
+        OutOverlapped.hEvent := OutPipeInfo.Event.Handle;
+        InternalExecuteReadPipe(OutPipeInfo, OutOverlapped);
+        if not MergeError then
+        begin
+          ResetMemory(ErrorOverlapped, SizeOf(ErrorOverlapped));
+          ErrorOverlapped.hEvent := ErrorPipeInfo.Event.Handle;
+          InternalExecuteReadPipe(ErrorPipeInfo, ErrorOverlapped);
+        end;
+        // event based loop
+        while not {$IFDEF FPC}Boolean({$ENDIF}AbortPtr^{$IFDEF FPC}){$ENDIF} do
+        begin
+          Index := WaitAlertableForMultipleObjects(WaitEvents, False, INFINITE);
+          if Index = WAIT_OBJECT_0 then
+            // the subprocess has ended
+            Break
+          else
+          if Index = (WAIT_OBJECT_0 + 1) then
+          begin
+            // event on output
+            InternalExecuteHandlePipeEvent(OutPipeInfo, OutOverlapped);
+          end
+          else
+          if (Index = (WAIT_OBJECT_0 + 2)) and not MergeError then
+          begin
+            // event on error
+            InternalExecuteHandlePipeEvent(ErrorPipeInfo, ErrorOverlapped);
+          end
+          else
+          if ((Index = (WAIT_OBJECT_0 + 2)) and MergeError) or
+             ((Index = (WAIT_OBJECT_0 + 3)) and not MergeError) then
+            // event on abort
+            AbortPtr^ := {$IFDEF FPC}Byte({$ENDIF}True{$IFDEF FPC}){$ENDIF}
+          else
+            {$IFDEF DELPHI11_UP}
+            RaiseLastOSError(Index);
+            {$ELSE}
+            RaiseLastOSError;
+            {$ENDIF DELPHI11_UP}
+        end;
+        if {$IFDEF FPC}Boolean({$ENDIF}AbortPtr^{$IFDEF FPC}){$ENDIF} then
+          TerminateProcess(ProcessEvent.Handle, Cardinal(ABORT_EXIT_CODE));
+        if (ProcessEvent.WaitForever = wrSignaled) and not GetExitCodeProcess(ProcessEvent.Handle, Result) then
+          Result := $FFFFFFFF;
+        CloseHandle(ProcessInfo.hThread);
+        ProcessInfo.hThread := 0;
+        if OutPipeInfo.PipeRead <> 0 then
+          // read data remaining in output pipe
+          InternalExecuteFlushPipe(OutPipeinfo, OutOverlapped);
+        if not MergeError and (ErrorPipeInfo.PipeRead <> 0) then
+          // read data remaining in error pipe
+          InternalExecuteFlushPipe(ErrorPipeInfo, ErrorOverlapped);
+      except
+        // always terminate process in case of an exception.
+        // This is especially useful when an exception occured in one of
+        // the texthandler but only do it if the process actually started,
+        // this prevents eating up the last error value by calling those
+        // three functions with an invalid handle
+        // Note that we don't do it in the finally block because these
+        // calls would also then eat up the last error value which we tried
+        // to avoid in the first place
+        if ProcessInfo.hProcess <> 0 then
+        begin
+          TerminateProcess(ProcessInfo.hProcess, Cardinal(ABORT_EXIT_CODE));
+          WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
+          GetExitCodeProcess(ProcessInfo.hProcess, Result);
+        end;
+
+        raise;
       end;
-      if {$IFDEF FPC}Boolean({$ENDIF}AbortPtr^{$IFDEF FPC}){$ENDIF} then
-        TerminateProcess(ProcessEvent.Handle, Cardinal(ABORT_EXIT_CODE));
-      if (ProcessEvent.WaitForever = wrSignaled) and not GetExitCodeProcess(ProcessEvent.Handle, Result) then
-        Result := $FFFFFFFF;
-      CloseHandle(ProcessInfo.hThread);
-      ProcessInfo.hThread := 0;
-      if OutPipeInfo.PipeRead <> 0 then
-        // read data remaining in output pipe
-        InternalExecuteFlushPipe(OutPipeinfo, OutOverlapped);
-      if not MergeError and (ErrorPipeInfo.PipeRead <> 0) then
-        // read data remaining in error pipe
-        InternalExecuteFlushPipe(ErrorPipeInfo, ErrorOverlapped);
     end;
   finally
     if OutPipeInfo.PipeRead <> 0 then
@@ -3038,18 +3057,6 @@
     if ProcessInfo.hThread <> 0 then
       CloseHandle(ProcessInfo.hThread);
 
-    // always terminate process, especially useful when an exception occured
-    // in one of the texthandler
-    // but only do it if the process actually started, this prevents eating
-    // up the last error value by calling those three functions with an
-    // invalid handle
-    if ProcessInfo.hProcess <> 0 then
-    begin
-      TerminateProcess(ProcessInfo.hProcess, Cardinal(ABORT_EXIT_CODE));
-      WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
-      GetExitCodeProcess(ProcessInfo.hProcess, Result);
-    end;
-
     if Assigned(ProcessEvent) then
       ProcessEvent.Free // this calls CloseHandle(ProcessInfo.hProcess)
     else if ProcessInfo.hProcess <> 0 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:[3807] tags/arioch_learning_svn/

From: <ari...@us...> - 2012-07-06 13:58:36

Revision: 3807
          http://jcl.svn.sourceforge.net/jcl/?rev=3807&view=rev
Author:   arioch_bdv
Date:     2012-07-06 13:58:27 +0000 (Fri, 06 Jul 2012)
Log Message:
-----------


Removed Paths:
-------------
    tags/arioch_learning_svn/

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:[3806] tags/arioch_learning_svn/

From: <ari...@us...> - 2012-07-06 13:51:40

Revision: 3806
          http://jcl.svn.sourceforge.net/jcl/?rev=3806&view=rev
Author:   arioch_bdv
Date:     2012-07-06 13:51:30 +0000 (Fri, 06 Jul 2012)
Log Message:
-----------
just SVN experimentation, nothing more

Added Paths:
-----------
    tags/arioch_learning_svn/

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:[3805] trunk/jcl/install

From: <ob...@us...> - 2012-06-27 13:10:04

Revision: 3805
          http://jcl.svn.sourceforge.net/jcl/?rev=3805&view=rev
Author:   obones
Date:     2012-06-27 13:09:53 +0000 (Wed, 27 Jun 2012)
Log Message:
-----------
Added ability to remove previous log files and to have the latest ones in the xml result file

Modified Paths:
--------------
    trunk/jcl/install/JclInstall.pas
    trunk/jcl/install/JediInstall.pas
    trunk/jcl/install/VclGui/JediGUIMain.pas

Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas	2012-06-13 14:10:33 UTC (rev 3804)
+++ trunk/jcl/install/JclInstall.pas	2012-06-27 13:09:53 UTC (rev 3805)
@@ -3396,6 +3396,7 @@
   AInstallation: TJclInstallation;
   XML: TJclSimpleXML;
   AInstallationElem: TJclSimpleXMLElem;
+  LogContent: TStringList;
 begin
   try
     KeepSettings := True;
@@ -3443,6 +3444,10 @@
       if TargetInstalls[I].Enabled then
         Inc(FNbEnabled);
 
+    for I := 0 to TargetInstallCount - 1 do
+      if GUI.DeletePreviousLogFiles then
+        SysUtils.DeleteFile(TargetInstalls[I].LogFileName);
+
     Result := True;
     for I := 0 to TargetInstallCount - 1 do
     begin
@@ -3485,7 +3490,17 @@
           AInstallationElem.Properties.Add('Enabled', AInstallation.Enabled);
           AInstallationElem.Properties.Add('InstallAttempted', I <= FNbInstalled);
           AInstallationElem.Properties.Add('InstallSuccess', AInstallation.InstallSuccess);
-          AInstallationElem.Properties.Add('LogFileName', AInstallation.LogFileName);
+          AInstallationElem.Properties.Add('LogFileName', Iff(FileExists(AInstallation.LogFileName), AInstallation.LogFileName, ''));
+          if GUI.IncludeLogFilesInXML and FileExists(AInstallation.LogFileName) then
+          begin
+            LogContent := TStringList.Create;
+            try
+              LogContent.LoadFromFile(AInstallation.LogFileName{$IFDEF UNICODE}, TEncoding.UTF8{$ENDIF UNICODE});
+              AInstallationElem.Items.Add('LogFile').Items.AddCData('', {$IFNDEF UNICODE}UTF8Decode{$ENDIF UNICODE}(LogContent.Text));
+            finally
+              LogContent.Free;
+            end;
+          end;
         end;
         XML.SaveToFile(GUI.XMLResultFileName, JclStreams.seUTF8);
       finally

Modified: trunk/jcl/install/JediInstall.pas
===================================================================
--- trunk/jcl/install/JediInstall.pas	2012-06-13 14:10:33 UTC (rev 3804)
+++ trunk/jcl/install/JediInstall.pas	2012-06-27 13:09:53 UTC (rev 3805)
@@ -198,6 +198,10 @@
     procedure SetContinueOnTargetError(Value: Boolean);
     function GetXMLResultFileName: string;
     procedure SetXMLResultFileName(const Value: string);
+    function GetDeletePreviousLogFiles: Boolean;
+    procedure SetDeletePreviousLogFiles(Value: Boolean);
+    function GetIncludeLogFilesInXML: Boolean;
+    procedure SetIncludeLogFilesInXML(Value: Boolean);
     procedure Execute;
 
     property AutoAcceptDialogs: TDialogTypes read GetAutoAcceptDialogs write SetAutoAcceptDialogs;
@@ -208,6 +212,8 @@
     property AutoUninstall: Boolean read GetAutoUninstall write SetAutoUninstall;
     property ContinueOnTargetError: Boolean read GetContinueOnTargetError write SetContinueOnTargetError;
     property XMLResultFileName: string read GetXMLResultFileName write SetXMLResultFileName;  
+    property DeletePreviousLogFiles: Boolean read GetDeletePreviousLogFiles write SetDeletePreviousLogFiles;
+    property IncludeLogFilesInXML: Boolean read GetIncludeLogFilesInXML write SetIncludeLogFilesInXML;
     property PageCount: Integer read GetPageCount;
     property Pages[Index: Integer]: IJediPage read GetPage;
     property Status: string read GetStatus write SetStatus;
@@ -410,8 +416,10 @@
     FInstallGUI.AutoCloseOnSuccess := ParamPos('CloseOnSuccess') >= 1;
     FInstallGUI.AutoInstall := ParamPos('Install') >= 1;
     FInstallGUI.AutoUninstall := ParamPos('Uninstall') >= 1;
+    FInstallGUI.DeletePreviousLogFiles := ParamPos('DeletePreviousLogFiles') >= 1;
     FInstallGUI.ContinueOnTargetError := ParamPos('ContinueOnTargetError') >= 1;
     FInstallGUI.XMLResultFileName := ParamValue('XMLResult');
+    FInstallGUI.IncludeLogFilesInXML := ParamPos('IncludeLogFilesInXML') >= 1;
   end;
   Result := FInstallGUI;
 end;

Modified: trunk/jcl/install/VclGui/JediGUIMain.pas
===================================================================
--- trunk/jcl/install/VclGui/JediGUIMain.pas	2012-06-13 14:10:33 UTC (rev 3804)
+++ trunk/jcl/install/VclGui/JediGUIMain.pas	2012-06-27 13:09:53 UTC (rev 3805)
@@ -75,6 +75,9 @@
     FAutoUninstall: Boolean;
     FContinueOnTargetError: Boolean;
     FXMLResultFileName: string;
+    FIncludeLogFilesInXML: Boolean;
+    FDeletePreviousLogFiles: Boolean;
+
     procedure HandleException(Sender: TObject; E: Exception);
     procedure SetFrameIcon(Sender: TObject; const FileName: string);
     procedure WMAfterShow(var Message: TMessage); Message WM_AFTERSHOW;
@@ -113,6 +116,10 @@
     procedure SetContinueOnTargetError(Value: Boolean);
     function GetXMLResultFileName: string;
     procedure SetXMLResultFileName(const Value: string);
+    function GetDeletePreviousLogFiles: Boolean;
+    procedure SetDeletePreviousLogFiles(Value: Boolean);
+    function GetIncludeLogFilesInXML: Boolean;
+    procedure SetIncludeLogFilesInXML(Value: Boolean);
     procedure Execute;
   end;
 
@@ -235,6 +242,11 @@
   end;
 end;
 
+procedure TMainForm.SetIncludeLogFilesInXML(Value: Boolean);
+begin
+  FIncludeLogFilesInXML := Value;
+end;
+
 procedure TMainForm.QuitBtnClick(Sender: TObject);
 begin
   Close;
@@ -477,6 +489,16 @@
   Result := FContinueOnTargetError;
 end;
 
+function TMainForm.GetDeletePreviousLogFiles: Boolean;
+begin
+  Result := FDeletePreviousLogFiles;
+end;
+
+function TMainForm.GetIncludeLogFilesInXML: Boolean;
+begin
+  Result := FIncludeLogFilesInXML;
+end;
+
 procedure TMainForm.SetAutoAcceptDialogs(Value: TDialogTypes);
 begin
   FAutoAcceptDialogs := Value;
@@ -517,6 +539,11 @@
   FContinueOnTargetError := Value;
 end;
 
+procedure TMainForm.SetDeletePreviousLogFiles(Value: Boolean);
+begin
+  FDeletePreviousLogFiles := Value;
+end;
+
 function TMainForm.GetProgress: Integer;
 begin
   Result := ProgressBar.Position;

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:[3804] trunk/jcl/source/common/JclIDEUtils.pas

From: <ob...@us...> - 2012-06-13 14:10:44

Revision: 3804
          http://jcl.svn.sourceforge.net/jcl/?rev=3804&view=rev
Author:   obones
Date:     2012-06-13 14:10:33 +0000 (Wed, 13 Jun 2012)
Log Message:
-----------
No UTF-8

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

Modified: trunk/jcl/source/common/JclIDEUtils.pas
===================================================================
--- trunk/jcl/source/common/JclIDEUtils.pas	2012-06-13 10:21:51 UTC (rev 3803)
+++ trunk/jcl/source/common/JclIDEUtils.pas	2012-06-13 14:10:33 UTC (rev 3804)
@@ -1,4 +1,4 @@
-{**************************************************************************************************}
+{**************************************************************************************************}
 {                                                                                                  }
 { Project JEDI Code Library (JCL)                                                                  }
 {                                                                                                  }

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:[3803] trunk/jcl/source/common/JclIDEUtils.pas

From: <ari...@us...> - 2012-06-13 10:22:02

Revision: 3803
          http://jcl.svn.sourceforge.net/jcl/?rev=3803&view=rev
Author:   arioch_bdv
Date:     2012-06-13 10:21:51 +0000 (Wed, 13 Jun 2012)
Log Message:
-----------
path enclosing in quotes: http://newsportal.delphi-jedi.org/article.php?id=705&group=jedi.jcl

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

Modified: trunk/jcl/source/common/JclIDEUtils.pas
===================================================================
--- trunk/jcl/source/common/JclIDEUtils.pas	2012-06-05 12:22:52 UTC (rev 3802)
+++ trunk/jcl/source/common/JclIDEUtils.pas	2012-06-13 10:21:51 UTC (rev 3803)
@@ -1,4 +1,4 @@
-{**************************************************************************************************}
+{**************************************************************************************************}
 {                                                                                                  }
 { Project JEDI Code Library (JCL)                                                                  }
 {                                                                                                  }
@@ -3718,7 +3718,7 @@
   begin
     RsVarsOutput := '';
     RsVarsError := '';
-    if GetEnvironmentVar('COMSPEC', ComSpec) and (JclSysUtils.Execute(Format('%s /C "%s && set"',
+    if GetEnvironmentVar('COMSPEC', ComSpec) and (JclSysUtils.Execute(Format('%s /C " "%s" && set"',
       [ComSpec, GetRADStudioVarsFileName(RootDir, IDEVersionNumber)]), RsVarsOutput, RsVarsError) = 0) then
       Variables.Text := RsVarsOutput
     else

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:[3802] trunk/jcl/source/windows/JclMapi.pas

From: <ah...@us...> - 2012-06-05 12:23:01

Revision: 3802
          http://jcl.svn.sourceforge.net/jcl/?rev=3802&view=rev
Author:   ahuser
Date:     2012-06-05 12:22:52 +0000 (Tue, 05 Jun 2012)
Log Message:
-----------
Fixed EnumThreadWindows call typecasts (Integer=>LPARAM)

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

Modified: trunk/jcl/source/windows/JclMapi.pas
===================================================================
--- trunk/jcl/source/windows/JclMapi.pas	2012-06-04 20:02:24 UTC (rev 3801)
+++ trunk/jcl/source/windows/JclMapi.pas	2012-06-05 12:22:52 UTC (rev 3802)
@@ -428,7 +428,7 @@
 begin
   if Length(List) > 0 then
   begin
-    EnumThreadWindows(MainThreadID, @RestoreTaskWnds, Integer(List));
+    EnumThreadWindows(MainThreadID, @RestoreTaskWnds, LPARAM(List));
     for I := 0 to Length(List) - 1 do
       EnableWindow(List[I], True);
     SetFocus(List[0]);
@@ -452,7 +452,7 @@
 begin
   SetLength(Result, 1);
   Result[0] := GetFocus;
-  EnumThreadWindows(MainThreadID, @SaveTaskWnds, Integer(@Result));
+  EnumThreadWindows(MainThreadID, @SaveTaskWnds, LPARAM(@Result));
 end;
 
 //=== { TJclSimpleMapi } =====================================================

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:[3801] trunk/jcl/source/windows/JclMsBuild.pas

From: <ou...@us...> - 2012-06-04 20:02:30

Revision: 3801
          http://jcl.svn.sourceforge.net/jcl/?rev=3801&view=rev
Author:   outchy
Date:     2012-06-04 20:02:24 +0000 (Mon, 04 Jun 2012)
Log Message:
-----------
Mantis 5884: integer overflow with some constants.

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

Modified: trunk/jcl/source/windows/JclMsBuild.pas
===================================================================
--- trunk/jcl/source/windows/JclMsBuild.pas	2012-06-04 19:46:26 UTC (rev 3800)
+++ trunk/jcl/source/windows/JclMsBuild.pas	2012-06-04 20:02:24 UTC (rev 3801)
@@ -23,7 +23,7 @@
 {                                                                                                  }
 {**************************************************************************************************}
 {                                                                                                  }
-{ Last modified: $Date::                                                                        $ }
+{ Last modified: $Date::                                                                         $ }
 { Revision:      $Rev::                                                                          $ }
 { Author:        $Author::                                                                       $ }
 {                                                                                                  }
@@ -1050,7 +1050,7 @@
     until Start = 0;
     // convert hexa to decimal
     if Copy(Result, 1, 2) = '0x' then
-      Result := IntToStr(StrToInt('$' + Copy(Result, 3, Length(Result) - 2)));
+      Result := IntToStr(StrToInt64('$' + Copy(Result, 3, Length(Result) - 2)));
   end;
 end;
 
@@ -1708,13 +1708,13 @@
         opNotEqual:
           Result := LeftString <> RightString;
         opLess:
-          Result := StrToInt(LeftString) < StrToInt(RightString);
+          Result := StrToInt64(LeftString) < StrToInt64(RightString);
         opLessOrEqual:
-          Result := StrToInt(LeftString) <= StrToInt(RightString);
+          Result := StrToInt64(LeftString) <= StrToInt64(RightString);
         opGreater:
-          Result := StrToInt(LeftString) > StrToInt(RightString);
+          Result := StrToInt64(LeftString) > StrToInt64(RightString);
         OpGreaterOrEqual:
-          Result := StrToInt(LeftString) >= StrToInt(RightString);
+          Result := StrToInt64(LeftString) >= StrToInt64(RightString);
       end;
     end
     else

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:[3800] trunk/jcl/source/common/JclSimpleXml.pas

From: <ou...@us...> - 2012-06-04 19:46:32

Revision: 3800
          http://jcl.svn.sourceforge.net/jcl/?rev=3800&view=rev
Author:   outchy
Date:     2012-06-04 19:46:26 +0000 (Mon, 04 Jun 2012)
Log Message:
-----------
new XML option for enabling case sensitivity.

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

Modified: trunk/jcl/source/common/JclSimpleXml.pas
===================================================================
--- trunk/jcl/source/common/JclSimpleXml.pas	2012-06-02 20:23:56 UTC (rev 3799)
+++ trunk/jcl/source/common/JclSimpleXml.pas	2012-06-04 19:46:26 UTC (rev 3800)
@@ -84,12 +84,14 @@
   TJclSimpleItemHashedList = class(TObjectList)
   private
     FNameHash: TStringHash;
+    FCaseSensitive: Boolean;
     function GetSimpleItemByName(const Name: string): TJclSimpleItem;
     function GetSimpleItem(Index: Integer): TJclSimpleItem;
+    procedure SetCaseSensitive(const Value: Boolean);
   protected
     procedure Notify(Ptr: Pointer; Action: TListNotification); override;
   public
-    constructor Create;
+    constructor Create(ACaseSensitive: Boolean);
     destructor Destroy; override;
     function Add(Item: TJclSimpleItem): Integer;
     procedure Clear; override;
@@ -98,6 +100,7 @@
     procedure Insert(Index: Integer; Item: TJclSimpleItem);
     procedure InvalidateHash;
     procedure Move(CurIndex, NewIndex: Integer);
+    property CaseSensitive: Boolean read FCaseSensitive write SetCaseSensitive;
     property SimpleItemByNames[const Name: string]: TJclSimpleItem read GetSimpleItemByName;
     property SimpleItems[Index: Integer]: TJclSimpleItem read GetSimpleItem;
   end;
@@ -544,7 +547,7 @@
 
   TJclSimpleXMLOptions = set of (sxoAutoCreate, sxoAutoIndent, sxoAutoEncodeValue,
     sxoAutoEncodeEntity, sxoDoNotSaveProlog, sxoTrimPrecedingTextWhitespace,
-    sxoTrimFollowingTextWhitespace, sxoKeepWhitespace, sxoDoNotSaveBOM);
+    sxoTrimFollowingTextWhitespace, sxoKeepWhitespace, sxoDoNotSaveBOM, sxoCaseSensitive);
   TJclSimpleXMLEncodeEvent = procedure(Sender: TObject; var Value: string) of object;
   TJclSimpleXMLEncodeStreamEvent = procedure(Sender: TObject; InStream, OutStream: TStream) of object;
 
@@ -1017,9 +1020,10 @@
   inherited Clear;
 end;
 
-constructor TJclSimpleItemHashedList.Create;
+constructor TJclSimpleItemHashedList.Create(ACaseSensitive: Boolean);
 begin
   inherited Create(True);
+  FCaseSensitive := ACaseSensitive;
 end;
 
 destructor TJclSimpleItemHashedList.Destroy;
@@ -1032,7 +1036,12 @@
 begin
   Result := inherited Add(Item);
   if FNameHash <> nil then
-    FNameHash.Add(Item.Name, Result);
+  begin
+    if FCaseSensitive then
+      FNameHash.Add(Item.Name, Result)
+    else
+      FNameHash.Add(UpperCase(Item.Name), Result);
+  end;
 end;
 
 function TJclSimpleItemHashedList.GetSimpleItem(Index: Integer): TJclSimpleItem;
@@ -1060,14 +1069,26 @@
 var
   I: Integer;
 begin
-  if FNameHash = nil then
+  if FCaseSensitive then
   begin
-    FNameHash := TStringHash.Create(8);
-    for I := 0 to Count - 1 do
-      FNameHash.Add(TJclSimpleData(Items[I]).Name, I);
+    if FNameHash = nil then
+    begin
+      FNameHash := TStringHash.Create(8);
+      for I := 0 to Count - 1 do
+        FNameHash.Add(TJclSimpleData(Items[I]).Name, I);
+    end;
+    Result := FNameHash.ValueOf(Name);
+  end
+  else
+  begin
+    if FNameHash = nil then
+    begin
+      FNameHash := TStringHash.Create(8);
+      for I := 0 to Count - 1 do
+        FNameHash.Add(UpperCase(TJclSimpleData(Items[I]).Name), I);
+    end;
+    Result := FNameHash.ValueOf(UpperCase(Name));
   end;
-
-  Result := FNameHash.ValueOf(Name);
 end;
 
 procedure TJclSimpleItemHashedList.Insert(Index: Integer; Item: TJclSimpleItem);
@@ -1090,10 +1111,24 @@
 procedure TJclSimpleItemHashedList.Notify(Ptr: Pointer; Action: TListNotification);
 begin
   if (Action = lnDeleted) and (FNameHash <> nil) then
-    FNameHash.Remove(TJclSimpleItem(Ptr).Name);
+  begin
+    if FCaseSensitive then
+      FNameHash.Remove(TJclSimpleItem(Ptr).Name)
+    else
+      FNameHash.Remove(UpperCase(TJclSimpleItem(Ptr).Name));
+  end;
   inherited Notify(Ptr, Action);
 end;
 
+procedure TJclSimpleItemHashedList.SetCaseSensitive(const Value: Boolean);
+begin
+  if FCaseSensitive <> Value then
+  begin
+    InvalidateHash;
+    FCaseSensitive := Value;
+  end;
+end;
+
 //=== { TJclSimpleData } =====================================================
 
 constructor TJclSimpleData.Create;
@@ -2160,9 +2195,15 @@
 end;
 
 procedure TJclSimpleXMLElems.CreateElems;
+var
+  CaseSensitive: Boolean;
 begin
   if FElems = nil then
-    FElems := TJclSimpleItemHashedList.Create;
+  begin
+    CaseSensitive := Assigned(Parent) and Assigned(Parent.SimpleXML)
+      and (sxoCaseSensitive in Parent.SimpleXML.Options);
+    FElems := TJclSimpleItemHashedList.Create(CaseSensitive);
+  end;
 end;
 
 procedure TJclSimpleXMLElems.Delete(const Index: Integer);
@@ -2272,9 +2313,14 @@
 function TJclSimpleXMLElems.GetNamedElems(const Name: string): TJclSimpleXMLNamedElems;
 var
   NamedIndex: Integer;
+  CaseSensitive: Boolean;
 begin
   if FNamedElems = nil then
-    FNamedElems := TJclSimpleItemHashedList.Create;
+  begin
+    CaseSensitive := Assigned(Parent) and Assigned(Parent.SimpleXML)
+      and (sxoCaseSensitive in Parent.SimpleXML.Options);
+    FNamedElems := TJclSimpleItemHashedList.Create(CaseSensitive);
+  end;
   NamedIndex := FNamedElems.IndexOfName(Name);
   if NamedIndex = -1 then
   begin
@@ -3822,10 +3868,13 @@
 //=== { TJclSimpleXMLElemsProlog } ===========================================
 
 constructor TJclSimpleXMLElemsProlog.Create(ASimpleXML: TJclSimpleXML);
+var
+  CaseSensitive: Boolean;
 begin
   inherited Create;
   FSimpleXML := ASimpleXML;
-  FElems := TJclSimpleItemHashedList.Create;
+  CaseSensitive := Assigned(ASimpleXML) and (sxoCaseSensitive in ASimpleXML.Options);
+  FElems := TJclSimpleItemHashedList.Create(CaseSensitive);
 end;
 
 destructor TJclSimpleXMLElemsProlog.Destroy;

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:[3799] trunk/jcl/source/common/JclFileUtils.pas

From: <jfu...@us...> - 2012-06-02 20:24:03

Revision: 3799
          http://jcl.svn.sourceforge.net/jcl/?rev=3799&view=rev
Author:   jfudickar
Date:     2012-06-02 20:23:56 +0000 (Sat, 02 Jun 2012)
Log Message:
-----------
JclFileUtils.pas:
function FileDateTime(const FileName: string): TDateTime; //added
procedure FileHistory(const FileName: string; HistoryPath: string = ''; MaxHistoryCount: Integer = 100; MinFileDate:
    TDateTime = 0; ReplaceExtention: Boolean = true); //added

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

Modified: trunk/jcl/source/common/JclFileUtils.pas
===================================================================
--- trunk/jcl/source/common/JclFileUtils.pas	2012-05-28 18:34:22 UTC (rev 3798)
+++ trunk/jcl/source/common/JclFileUtils.pas	2012-06-02 20:23:56 UTC (rev 3799)
@@ -216,8 +216,26 @@
 function FileCreateTemp(var Prefix: string): THandle;
 function FileBackup(const FileName: string; Move: Boolean = False): Boolean;
 function FileCopy(const ExistingFileName, NewFileName: string; ReplaceExisting: Boolean = False): Boolean;
+function FileDateTime(const FileName: string): TDateTime;
 function FileDelete(const FileName: string; MoveToRecycleBin: Boolean = False): Boolean;
 function FileExists(const FileName: string): Boolean;
+/// <summary>procedure FileHistory Creates a list of history files of a specified
+/// source file. Each version of the file get's an extention .~<Nr>~ The file with
+/// the lowest number is the youngest file.
+/// </summary>
+/// <param name="FileName"> (string) Name of the source file</param>
+/// <param name="HistoryPath"> (string) Folder where the history files should be
+/// created. If no folder is defined the folder of the source file is used.</param>
+/// <param name="MaxHistoryCount"> (Integer) Max number of files</param>
+/// <param name="MinFileDate"> (TDateTime) Timestamp how old the file has to be to
+/// create a new history version. For example: NOW-1/24 => Only once per hour a new
+/// history file is created. Default 0 means allways
+/// <param name="ReplaceExtention"> (boolean) Flag to define that the history file
+/// extention should replace the current extention or should be added at the
+/// end</param>
+/// </param>
+procedure FileHistory(const FileName: string; HistoryPath: string = ''; MaxHistoryCount: Integer = 100; MinFileDate:
+    TDateTime = 0; ReplaceExtention: Boolean = true);
 function FileMove(const ExistingFileName, NewFileName: string; ReplaceExisting: Boolean = False): Boolean;
 function FileRestore(const FileName: string): Boolean;
 function GetBackupFileName(const FileName: string): string;
@@ -3486,6 +3504,27 @@
   {$ENDIF UNIX}
 end;
 
+function FileDateTime(const FileName: string): TDateTime;
+{$IFNDEF COMPILER10_UP}
+var
+  Age: Longint;
+{$ENDIF !COMPILER10_UP}
+begin
+  {$IFDEF COMPILER10_UP}
+  if not FileAge(Filename, Result) then
+    Result := 0;
+  {$ELSE}
+  Age := FileAge(FileName);
+  {$IFDEF MSWINDOWS}
+  // [roko] -1 is valid FileAge value on Linux
+  if Age = -1 then
+    Result := 0
+  else
+  {$ENDIF MSWINDOWS}
+    Result := FileDateToDateTime(Age);
+  {$ENDIF COMPILER10_UP}
+end;
+
 function FileDelete(const FileName: string; MoveToRecycleBin: Boolean = False): Boolean;
 {$IFDEF MSWINDOWS}
 begin
@@ -3523,6 +3562,55 @@
     Result := False;
 end;
 
+procedure FileHistory(const FileName: string; HistoryPath: string = ''; MaxHistoryCount: Integer = 100; MinFileDate:
+    TDateTime = 0; ReplaceExtention: Boolean = true);
+
+  Function Extention (Number : Integer) : String;
+  begin
+    Result := inttostr(Number);
+    while Length(Result) < 3 do
+      Result := '0' + Result;
+    Result := '.~'+Result+'~';
+  end;
+
+  procedure RenameToNumber(const RenameFileName: string; Number: Integer);
+  var
+    f1: string;
+    f2: string;
+  begin
+    f1 := ChangeFileExt(RenameFileName,Extention(Number-1));
+    f2 := ChangeFileExt(RenameFileName,Extention(Number));
+    if FileExists(f2) then
+      if Number >= MaxHistoryCount then
+        if not FileDelete(f2) then
+          Exception.Create('Unable to delete file "' + f2 + '".')
+        else
+      else
+        RenameToNumber(RenameFileName, Number + 1);
+    if FileExists(f1) then
+      if not FileMove(f1, f2, true) then
+        Exception.Create('Unable to rename file "' + f1 + '" to "' + f2 + '".')
+  end;
+
+Var FirstFile : string;
+begin
+  // TODO -cMM: FileHistory default body inserted
+  if not FileExists(FileName) or (MaxHistoryCount <= 0) then
+    Exit;
+  if HistoryPath = '' then
+    HistoryPath := ExtractFilePath(FileName);
+  FirstFile := PathAppend(HistoryPath, ExtractFileName(FileName));
+  if ReplaceExtention then
+    FirstFile := ChangeFileExt(FirstFile, Extention(1))
+  else
+    FirstFile := FirstFile+Extention(1);
+  if (FileDateTime(FirstFile) > MinFileDate) and (MinFileDate <> 0) then
+    Exit;
+  RenameToNumber(FirstFile, 2);
+  FileCopy(FileName, FirstFile, True);
+end;
+
+
 function FileMove(const ExistingFileName, NewFileName: string; ReplaceExisting: Boolean = False): Boolean;
 {$IFDEF MSWINDOWS}
 const

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:[3798] trunk/jcl/examples/windows/debug/tools/MakeJclDbg. dpr

From: <ou...@us...> - 2012-05-28 18:34:28

Revision: 3798
          http://jcl.svn.sourceforge.net/jcl/?rev=3798&view=rev
Author:   outchy
Date:     2012-05-28 18:34:22 +0000 (Mon, 28 May 2012)
Log Message:
-----------
Mantis 5885: The new -M option in MakeJclDbg doesn't work together with other options.

Modified Paths:
--------------
    trunk/jcl/examples/windows/debug/tools/MakeJclDbg.dpr

Modified: trunk/jcl/examples/windows/debug/tools/MakeJclDbg.dpr
===================================================================
--- trunk/jcl/examples/windows/debug/tools/MakeJclDbg.dpr	2012-05-23 13:57:42 UTC (rev 3797)
+++ trunk/jcl/examples/windows/debug/tools/MakeJclDbg.dpr	2012-05-28 18:34:22 UTC (rev 3798)
@@ -124,7 +124,7 @@
   CreateJdbgFlag := ParamPos('J') > 0;
   InsertToExeFlag := ParamPos('E') > 0;
   DeleteMapFlag := ParamPos('M') > 0;
-  if (ParamCount <> 2) or (not CreateJdbgFlag and not InsertToExeFlag and not DeleteMapFlag) then
+  if not (CreateJdbgFlag or InsertToExeFlag or DeleteMapFlag) then
   begin
     WriteLn('Usage: MAKEJCLDBG [-J] [-E] [-M] <map filenames>');
     WriteLn('       J - Create .JDBG files');
@@ -133,6 +133,6 @@
     WriteLn('Executable files must be in the same directory as the MAP files');
   end
   else
-  if not MakeDebugData(ParamStr(2)) then
+  if not MakeDebugData(ParamStr(ParamCount)) then
     Halt(1);
 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:[3797] trunk/jcl/source/windows/JclPeImage.pas

From: <ob...@us...> - 2012-05-23 13:57:52

Revision: 3797
          http://jcl.svn.sourceforge.net/jcl/?rev=3797&view=rev
Author:   obones
Date:     2012-05-23 13:57:42 +0000 (Wed, 23 May 2012)
Log Message:
-----------
Added the ability to read the string table

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

Modified: trunk/jcl/source/windows/JclPeImage.pas
===================================================================
--- trunk/jcl/source/windows/JclPeImage.pas	2012-05-23 13:57:30 UTC (rev 3796)
+++ trunk/jcl/source/windows/JclPeImage.pas	2012-05-23 13:57:42 UTC (rev 3797)
@@ -596,6 +596,7 @@
     FStatus: TJclPeImageStatus;
     FTarget: TJclPeTarget;
     FVersionInfo: TJclFileVersionInfo;
+    FStringTable: TStringList;
     function GetCertificateList: TJclPeCertificateList;
     function GetCLRHeader: TJclPeCLRHeader;
     function GetDebugList: TJclPeDebugList;
@@ -620,7 +621,11 @@
     function GetVersionInfo: TJclFileVersionInfo;
     function GetVersionInfoAvailable: Boolean;
     procedure ReadImageSections;
+    procedure ReadStringTable;
     procedure SetFileName(const Value: TFileName);
+    function GetStringTableCount: Integer;
+    function GetStringTableItem(Index: Integer): string;
+    function GetImageSectionFullNames(Index: Integer): string;
   protected
     procedure AfterOpen; dynamic;
     procedure CheckNotAttached;
@@ -640,6 +645,7 @@
     function DirectoryEntryToData(Directory: Word): Pointer;
     function GetSectionHeader(const SectionName: string; out Header: PImageSectionHeader): Boolean;
     function GetSectionName(Header: PImageSectionHeader): string;
+    function GetNameInStringTable(Offset: ULONG): string;
     function IsBrokenFormat: Boolean;
     function IsCLR: Boolean;
     function IsSystemImage: Boolean;
@@ -673,11 +679,14 @@
     property ImageSectionCount: Integer read GetImageSectionCount;
     property ImageSectionHeaders[Index: Integer]: TImageSectionHeader read GetImageSectionHeaders;
     property ImageSectionNames[Index: Integer]: string read GetImageSectionNames;
+    property ImageSectionFullNames[Index: Integer]: string read GetImageSectionFullNames;
     property ImageSectionNameFromRva[const Rva: DWORD]: string read GetImageSectionNameFromRva;
     property ImportList: TJclPeImportList read GetImportList;
     property LoadConfigValues[Index: TJclLoadConfig]: string read GetLoadConfigValues;
     property LoadedImage: TLoadedImage read FLoadedImage;
     property MappedAddress: TJclAddr read GetMappedAddress;
+    property StringTableCount: Integer read GetStringTableCount;
+    property StringTable[Index: Integer]: string read GetStringTableItem;
     // use the following properties
     // property OptionalHeader: TImageOptionalHeader
     property OptionalHeader32: TImageOptionalHeader32 read GetOptionalHeader32;
@@ -3078,12 +3087,15 @@
   FNoExceptions := ANoExceptions;
   FReadOnlyAccess := True;
   FImageSections := TStringList.Create;
+  FStringTable := TStringList.Create;
 end;
 
 destructor TJclPeImage.Destroy;
 begin
   Clear;
   FreeAndNil(FImageSections);
+  FStringTable.Free;
+
   inherited Destroy;
 end;
 
@@ -3117,6 +3129,7 @@
       FLoadedImage.fDOSImage := False;
       FLoadedImage.SizeOfImage := NtHeaders^.OptionalHeader.SizeOfImage;
       ReadImageSections;
+      ReadStringTable;
       AfterOpen;
     end;
     RaiseStatusException;
@@ -3147,6 +3160,7 @@
       FLoadedImage.fDOSImage := False;
       FLoadedImage.SizeOfImage := NtHeaders^.OptionalHeader.SizeOfImage;
       ReadImageSections;
+      ReadStringTable;
       AfterOpen;
     end;
     RaiseStatusException;
@@ -3190,6 +3204,7 @@
 procedure TJclPeImage.Clear;
 begin
   FImageSections.Clear;
+  FStringTable.Clear;
   FreeAndNil(FCertificateList);
   FreeAndNil(FCLRHeader);
   FreeAndNil(FDebugList);
@@ -3645,6 +3660,15 @@
   Result := FImageSections.Count;
 end;
 
+function TJclPeImage.GetImageSectionFullNames(Index: Integer): string;
+var
+  Offset: Integer;
+begin
+  Result := ImageSectionNames[Index];
+  if (Length(Result) > 0) and (Result[1] = '/') and TryStrToInt(Copy(Result, 2, MaxInt), Offset) then
+    Result := GetNameInStringTable(Offset);
+end;
+
 function TJclPeImage.GetImageSectionHeaders(Index: Integer): TImageSectionHeader;
 begin
   Result := PImageSectionHeader(FImageSections.Objects[Index])^;
@@ -3774,6 +3798,25 @@
     Result := 0;
 end;
 
+function TJclPeImage.GetNameInStringTable(Offset: ULONG): string;
+var
+  Index: Integer;
+begin
+  Dec(Offset, SizeOf(ULONG));
+  Index := 0;
+  while (Offset > 0) and (Index < FStringTable.Count) do
+  begin
+    Dec(Offset, Length(FStringTable[Index]) + 1);
+    if Offset > 0 then
+      Inc(Index);
+  end;
+
+  if Offset = 0 then
+    Result := FStringTable[Index]
+  else
+    Result := '';
+end;
+
 function TJclPeImage.GetOptionalHeader32: TImageOptionalHeader32;
 begin
   if Target = taWin32 then
@@ -3838,6 +3881,16 @@
     Result := FImageSections[I];
 end;
 
+function TJclPeImage.GetStringTableCount: Integer;
+begin
+  Result := FStringTable.Count;
+end;
+
+function TJclPeImage.GetStringTableItem(Index: Integer): string;
+begin
+  Result := FStringTable[Index];
+end;
+
 function TJclPeImage.GetUnusedHeaderBytes: TImageDataDirectory;
 begin
   CheckNotAttached;
@@ -4084,6 +4137,41 @@
   end;
 end;
 
+procedure TJclPeImage.ReadStringTable;
+var
+  SymbolTable: DWORD;
+  StringTablePtr: PAnsiChar;
+  Ptr: PAnsiChar;
+  ByteSize: ULONG;
+  Start: PAnsiChar;
+  StringEntry: AnsiString;
+begin
+  SymbolTable := LoadedImage.FileHeader.FileHeader.PointerToSymbolTable;
+  if SymbolTable = 0 then
+    Exit;
+
+  StringTablePtr := PAnsiChar(LoadedImage.MappedAddress) +
+                    SymbolTable +
+                    (LoadedImage.FileHeader.FileHeader.NumberOfSymbols * SizeOf(IMAGE_SYMBOL));
+
+  ByteSize := PULONG(StringTablePtr)^;
+  Ptr := StringTablePtr + SizeOf(ByteSize);
+
+  while Ptr < StringTablePtr + ByteSize do
+  begin
+    Start := Ptr;
+    while (Ptr^ <> #0) and (Ptr < StringTablePtr + ByteSize) do
+      Inc(Ptr);
+    if Start <> Ptr then
+    begin
+      SetLength(StringEntry, Ptr - Start);
+      Move(Start^, StringEntry[1], Ptr - Start);
+      FStringTable.Add(string(StringEntry));
+    end;
+    Inc(Ptr); // to skip the #0 character
+  end;
+end;
+
 function TJclPeImage.ResourceItemCreate(AEntry: PImageResourceDirectoryEntry;
   AParentItem: TJclPeResourceItem): TJclPeResourceItem;
 begin
@@ -4175,6 +4263,7 @@
       begin
         FStatus := stOk;
         ReadImageSections;
+        ReadStringTable;
         AfterOpen;
       end
       else

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:[3796] trunk/jcl/source/windows/JclWin32.pas

From: <ob...@us...> - 2012-05-23 13:57:41

Revision: 3796
          http://jcl.svn.sourceforge.net/jcl/?rev=3796&view=rev
Author:   obones
Date:     2012-05-23 13:57:30 +0000 (Wed, 23 May 2012)
Log Message:
-----------
Added IMAGE_SYMBOL

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

Modified: trunk/jcl/source/windows/JclWin32.pas
===================================================================
--- trunk/jcl/source/windows/JclWin32.pas	2012-05-16 19:09:59 UTC (rev 3795)
+++ trunk/jcl/source/windows/JclWin32.pas	2012-05-23 13:57:30 UTC (rev 3796)
@@ -3155,6 +3155,22 @@
   TLoadedImage = LOADED_IMAGE;
   PLoadedImage = PLOADED_IMAGE;
 
+  PIMAGE_SYMBOL = ^IMAGE_SYMBOL;
+  {$EXTERNALSYM PIMAGE_SYMBOL}
+  _IMAGE_SYMBOL = packed record  // MUST pack to obtain the right size
+    Name: array [0..7] of AnsiChar;
+    Value: ULONG;
+    SectionNumber: USHORT;
+    _Type: USHORT;
+    StorageClass: BYTE;
+    NumberOfAuxSymbols: BYTE;
+  end;
+  {$EXTERNALSYM _IMAGE_SYMBOL}
+  IMAGE_SYMBOL = _IMAGE_SYMBOL;
+  {$EXTERNALSYM IMAGE_SYMBOL}
+  TImageSymbol = IMAGE_SYMBOL;
+  PImageSymbol = PIMAGE_SYMBOL;
+
 // line 152
 
 

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:[3795] trunk/jcl/source

From: <ah...@us...> - 2012-05-16 19:10:06

Revision: 3795
          http://jcl.svn.sourceforge.net/jcl/?rev=3795&view=rev
Author:   ahuser
Date:     2012-05-16 19:09:59 +0000 (Wed, 16 May 2012)
Log Message:
-----------
* Faster Map-File parser (It is a ANSI/UTF8 file, so use AnsiChar without function calls for it in tight loops)
* Very much faster TJclBinDebugGenerator (D2009+). Allocates memory in advance, uses a case sensitive dictionary instead of a case insenitive sorted StringList
* TUTF16String and TUCS2String are now UnicodeString (D2009+) instead of WideString => less implicit typecasts to and from UnicodeString; JclStringConversions adjusted for the change.
* JclSysUtils.SortDynArray doesn't swap if I=J anymore => TJclBinDebugGenerator sorts faster.

Modified Paths:
--------------
    trunk/jcl/source/common/JclBase.pas
    trunk/jcl/source/common/JclStringConversions.pas
    trunk/jcl/source/common/JclSysUtils.pas
    trunk/jcl/source/windows/JclDebug.pas

Modified: trunk/jcl/source/common/JclBase.pas
===================================================================
--- trunk/jcl/source/common/JclBase.pas	2012-05-15 10:16:16 UTC (rev 3794)
+++ trunk/jcl/source/common/JclBase.pas	2012-05-16 19:09:59 UTC (rev 3795)
@@ -257,8 +257,13 @@
 
   // string types
   TUTF8String = AnsiString;
+  {$IFDEF SUPPORTS_UNICODE_STRING}
+  TUTF16String = UnicodeString;
+  TUCS2String = UnicodeString;
+  {$ELSE}
   TUTF16String = WideString;
   TUCS2String = WideString;
+  {$ENDIF SUPPORTS_UNICODE_STRING}
 
 var
   AnsiReplacementCharacter: AnsiChar;

Modified: trunk/jcl/source/common/JclStringConversions.pas
===================================================================
--- trunk/jcl/source/common/JclStringConversions.pas	2012-05-15 10:16:16 UTC (rev 3794)
+++ trunk/jcl/source/common/JclStringConversions.pas	2012-05-16 19:09:59 UTC (rev 3795)
@@ -113,8 +113,8 @@
 function UTF16GetNextChar(const S: TUTF16String; var StrPos: SizeInt): UCS4; overload;
 function UTF16GetNextBuffer(const S: TUTF16String; var StrPos: SizeInt; var Buffer: TUCS4Array; var Start: SizeInt; Count: SizeInt): SizeInt; overload;
 {$IFDEF SUPPORTS_UNICODE_STRING}
-function UTF16GetNextChar(const S: UnicodeString; var StrPos: SizeInt): UCS4; overload;
-function UTF16GetNextBuffer(const S: UnicodeString; var StrPos: SizeInt; var Buffer: TUCS4Array; var Start: SizeInt; Count: SizeInt): SizeInt; overload;
+function UTF16GetNextChar(const S: WideString; var StrPos: SizeInt): UCS4; overload;
+function UTF16GetNextBuffer(const S: WideString; var StrPos: SizeInt; var Buffer: TUCS4Array; var Start: SizeInt; Count: SizeInt): SizeInt; overload;
 {$ENDIF SUPPORTS_UNICODE_STRING}
 function UTF16GetNextCharFromStream(S: TStream; out Ch: UCS4): Boolean;
 function UTF16GetNextBufferFromStream(S: TStream; var Buffer: TUCS4Array; var Start: SizeInt; Count: SizeInt): SizeInt;
@@ -125,7 +125,7 @@
 // StrPos will be decremented by the number of chars that were read
 function UTF16GetPreviousChar(const S: TUTF16String; var StrPos: SizeInt): UCS4; overload;
 {$IFDEF SUPPORTS_UNICODE_STRING}
-function UTF16GetPreviousChar(const S: UnicodeString; var StrPos: SizeInt): UCS4; overload;
+function UTF16GetPreviousChar(const S: WideString; var StrPos: SizeInt): UCS4; overload;
 {$ENDIF SUPPORTS_UNICODE_STRING}
 
 // UTF16SkipChars = skip NbSeq UTF16 sequences starting from StrPos
@@ -135,7 +135,7 @@
 // On return, NbChar contains the number of UTF16 sequences that were skipped
 function UTF16SkipChars(const S: TUTF16String; var StrPos: SizeInt; var NbSeq: SizeInt): Boolean; overload;
 {$IFDEF SUPPORTS_UNICODE_STRING}
-function UTF16SkipChars(const S: UnicodeString; var StrPos: SizeInt; var NbSeq: SizeInt): Boolean; overload;
+function UTF16SkipChars(const S: WideString; var StrPos: SizeInt; var NbSeq: SizeInt): Boolean; overload;
 {$ENDIF SUPPORTS_UNICODE_STRING}
 function UTF16SkipCharsFromStream(S: TStream; var NbSeq: SizeInt): Boolean;
 
@@ -149,8 +149,8 @@
 function UTF16SetNextChar(var S: TUTF16String; var StrPos: SizeInt; Ch: UCS4): Boolean; overload;
 function UTF16SetNextBuffer(var S: TUTF16String; var StrPos: SizeInt; const Buffer: TUCS4Array; var Start: SizeInt; Count: SizeInt): SizeInt; overload;
 {$IFDEF SUPPORTS_UNICODE_STRING}
-function UTF16SetNextChar(var S: UnicodeString; var StrPos: SizeInt; Ch: UCS4): Boolean; overload;
-function UTF16SetNextBuffer(var S: UnicodeString; var StrPos: SizeInt; const Buffer: TUCS4Array; var Start: SizeInt; Count: SizeInt): SizeInt; overload;
+function UTF16SetNextChar(var S: WideString; var StrPos: SizeInt; Ch: UCS4): Boolean; overload;
+function UTF16SetNextBuffer(var S: WideString; var StrPos: SizeInt; const Buffer: TUCS4Array; var Start: SizeInt; Count: SizeInt): SizeInt; overload;
 {$ENDIF SUPPORTS_UNICODE_STRING}
 function UTF16SetNextCharToStream(S: TStream; Ch: UCS4): Boolean;
 function UTF16SetNextBufferToStream(S: TStream; const Buffer: TUCS4Array; var Start: SizeInt; Count: SizeInt): SizeInt;
@@ -1835,7 +1835,7 @@
 // otherwise StrPos is set to -1 on return to flag an error (invalid UTF16 sequence)
 // StrPos will be incremented by the number of chars that were read
 {$IFDEF SUPPORTS_UNICODE_STRING}
-function UTF16GetNextChar(const S: UnicodeString; var StrPos: SizeInt): UCS4;
+function UTF16GetNextChar(const S: WideString; var StrPos: SizeInt): UCS4;
 var
   StrLength: SizeInt;
   Ch: UCS4;
@@ -1879,7 +1879,7 @@
   end;
 end;
 
-function UTF16GetNextBuffer(const S: UnicodeString; var StrPos: SizeInt; var Buffer: TUCS4Array; var Start: SizeInt; Count: SizeInt): SizeInt; overload;
+function UTF16GetNextBuffer(const S: WideString; var StrPos: SizeInt; var Buffer: TUCS4Array; var Start: SizeInt; Count: SizeInt): SizeInt; overload;
 var
   StrLength: SizeInt;
   Ch, ChNext: UCS4;
@@ -2054,7 +2054,7 @@
 // otherwise StrPos is set to -1 on return to flag an error (invalid UTF16 sequence)
 // StrPos will be decremented by the number of chars that were read
 {$IFDEF SUPPORTS_UNICODE_STRING}
-function UTF16GetPreviousChar(const S: UnicodeString; var StrPos: SizeInt): UCS4;
+function UTF16GetPreviousChar(const S: WideString; var StrPos: SizeInt): UCS4;
 var
   StrLength: SizeInt;
   ChPrev: UCS4;
@@ -2190,7 +2190,7 @@
 // StrPos will be incremented by the number of chars that were skipped
 // On return, NbSeq contains the number of UTF16 sequences that were skipped
 {$IFDEF SUPPORTS_UNICODE_STRING}
-function UTF16SkipChars(const S: UnicodeString; var StrPos: SizeInt; var NbSeq: SizeInt): Boolean;
+function UTF16SkipChars(const S: WideString; var StrPos: SizeInt; var NbSeq: SizeInt): Boolean;
 var
   StrLength, Index: SizeInt;
   Ch: UCS4;
@@ -2423,7 +2423,7 @@
 end;
 
 {$IFDEF SUPPORTS_UNICODE_STRING}
-function UTF16SetNextChar(var S: UnicodeString; var StrPos: SizeInt; Ch: UCS4): Boolean;
+function UTF16SetNextChar(var S: WideString; var StrPos: SizeInt; Ch: UCS4): Boolean;
 var
   StrLength: SizeInt;
 begin
@@ -2469,7 +2469,7 @@
   end;
 end;
 
-function UTF16SetNextBuffer(var S: UnicodeString; var StrPos: SizeInt; const Buffer: TUCS4Array; var Start: SizeInt; Count: SizeInt): SizeInt; overload;
+function UTF16SetNextBuffer(var S: WideString; var StrPos: SizeInt; const Buffer: TUCS4Array; var Start: SizeInt; Count: SizeInt): SizeInt; overload;
 var
   StrLength: SizeInt;
   Ch: UCS4;
@@ -3400,7 +3400,7 @@
 
 function TryUCS4ToString(const S: TUCS4Array; out D: string): Boolean;
 var
-  WS: WideString;
+  WS: TUTF16String;
 begin
   Result := TryUCS4ToUTF16(S, WS);
   D := string(WS);
@@ -3786,7 +3786,7 @@
   end;
 end;
 
-function GetUCS4CharAt(const WideStr: WideString; Index: SizeInt; out Value: UCS4; IsUTF16: Boolean): Boolean; overload;
+function GetUCS4CharAt(const WideStr: TUTF16String; Index: SizeInt; out Value: UCS4; IsUTF16: Boolean): Boolean; overload;
 var
   StrPos: SizeInt;
 begin

Modified: trunk/jcl/source/common/JclSysUtils.pas
===================================================================
--- trunk/jcl/source/common/JclSysUtils.pas	2012-05-15 10:16:16 UTC (rev 3794)
+++ trunk/jcl/source/common/JclSysUtils.pas	2012-05-16 19:09:59 UTC (rev 3795)
@@ -107,7 +107,7 @@
     property Items[Index: Integer]: Pointer read GetItem;
   end;
 
-    TJclSafeGuard = class(TInterfacedObject, ISafeGuard)
+  TJclSafeGuard = class(TInterfacedObject, ISafeGuard)
   private
     FItem: Pointer;
   public
@@ -1449,43 +1449,54 @@
   var
     I, J, T: SizeInt;
     P, IPtr, JPtr: Pointer;
+    ElSize: Integer;
   begin
+    ElSize := ElementSize;
     repeat
       I := L;
       J := R;
       P := ArrayItemPointer((L + R) shr 1);
       repeat
-        while SortFunc(ArrayItemPointer(I), P) < 0 do
+        IPtr := ArrayItemPointer(I);
+        JPtr := ArrayItemPointer(J);
+        while SortFunc(IPtr, P) < 0 do
+        begin
           Inc(I);
-        while SortFunc(ArrayItemPointer(J), P) > 0 do
+          Inc(PByte(IPtr), ElSize);
+        end;
+        while SortFunc(JPtr, P) > 0 do
+        begin
           Dec(J);
+          Dec(PByte(JPtr), ElSize);
+        end;
         if I <= J then
         begin
-          IPtr := ArrayItemPointer(I);
-          JPtr := ArrayItemPointer(J);
-          case ElementSize of
-            SizeOf(Byte):
-              begin
-                T := PByte(IPtr)^;
-                PByte(IPtr)^ := PByte(JPtr)^;
-                PByte(JPtr)^ := T;
-              end;
-            SizeOf(Word):
-              begin
-                T := PWord(IPtr)^;
-                PWord(IPtr)^ := PWord(JPtr)^;
-                PWord(JPtr)^ := T;
-              end;
-            SizeOf(Integer):
-              begin
-                T := PInteger(IPtr)^;
-                PInteger(IPtr)^ := PInteger(JPtr)^;
-                PInteger(JPtr)^ := T;
-              end;
-          else
-            Move(IPtr^, TempBuf[0], ElementSize);
-            Move(JPtr^, IPtr^, ElementSize);
-            Move(TempBuf[0], JPtr^, ElementSize);
+          if I <> J then
+          begin
+            case ElementSize of
+              SizeOf(Byte):
+                begin
+                  T := PByte(IPtr)^;
+                  PByte(IPtr)^ := PByte(JPtr)^;
+                  PByte(JPtr)^ := T;
+                end;
+              SizeOf(Word):
+                begin
+                  T := PWord(IPtr)^;
+                  PWord(IPtr)^ := PWord(JPtr)^;
+                  PWord(JPtr)^ := T;
+                end;
+              SizeOf(Integer):
+                begin
+                  T := PInteger(IPtr)^;
+                  PInteger(IPtr)^ := PInteger(JPtr)^;
+                  PInteger(JPtr)^ := T;
+                end;
+            else
+              Move(IPtr^, TempBuf[0], ElementSize);
+              Move(JPtr^, IPtr^, ElementSize);
+              Move(TempBuf[0], JPtr^, ElementSize);
+            end;
           end;
           if P = IPtr then
             P := JPtr

Modified: trunk/jcl/source/windows/JclDebug.pas
===================================================================
--- trunk/jcl/source/windows/JclDebug.pas	2012-05-15 10:16:16 UTC (rev 3794)
+++ trunk/jcl/source/windows/JclDebug.pas	2012-05-16 19:09:59 UTC (rev 3795)
@@ -1038,14 +1038,20 @@
 uses
   {$IFDEF HAS_UNITSCOPE}
   System.RTLConsts,
-  {$IFDEF HAS_UNIT_CHARACTER}
+    {$IFDEF HAS_UNIT_CHARACTER}
   System.Character,
-  {$ENDIF HAS_UNIT_CHARACTER}
+   {$ENDIF HAS_UNIT_CHARACTER}
+   {$IFDEF SUPPORTS_GENERICS}
+  System.Generics.Collections,
+   {$ENDIF SUPPORTS_GENERICS}
   {$ELSE ~HAS_UNITSCOPE}
   RTLConsts,
-  {$IFDEF HAS_UNIT_CHARACTER}
+   {$IFDEF HAS_UNIT_CHARACTER}
   Character,
-  {$ENDIF HAS_UNIT_CHARACTER}
+   {$ENDIF HAS_UNIT_CHARACTER}
+   {$IFDEF SUPPORTS_GENERICS}
+  Generics.Collections,
+   {$ENDIF SUPPORTS_GENERICS}
   {$ENDIF ~HAS_UNITSCOPE}
   {$IFDEF MSWINDOWS}
   JclRegistry,
@@ -1309,13 +1315,13 @@
     Exit;
   end;
   PEnd := MapString;
-  while (PEnd^ <> '=') and not CharIsReturn(Char(PEnd^)) do
+  while (PEnd^ <> #0) and not (PEnd^ in ['=', #10, #13]) do
     Inc(PEnd);
   if (PEnd^ = '=') then
   begin
-    while (PEnd >= MapString) and not (PEnd^ = NativeSpace) do
+    while (PEnd >= MapString) and (PEnd^ <> ' ') do
       Dec(PEnd);
-    while (PEnd >= MapString) and ((PEnd-1)^ = NativeSpace) do
+    while (PEnd >= MapString) and ((PEnd-1)^ = ' ') do
       Dec(PEnd);
   end;
   SetString(Result, MapString, PEnd - MapString);
@@ -1331,13 +1337,13 @@
     Exit;
   end;
   PEnd := MapString;
-  while (PEnd^ <> '=') and not CharIsReturn(Char(PEnd^)) do
+  while (PEnd^ <> #0) and not (PEnd^ in ['=', #10, #13]) do
     Inc(PEnd);
   if (PEnd^ = '=') then
   begin
-    while (PEnd >= MapString) and not (PEnd^ = NativeSpace) do
+    while (PEnd >= MapString) and (PEnd^ <> ' ') do
       Dec(PEnd);
-    while (PEnd >= MapString) and ((PEnd-1)^ = NativeSpace) do
+    while (PEnd >= MapString) and ((PEnd-1)^ = ' ') do
       Dec(PEnd);
   end;
   PExtension := PEnd;
@@ -1370,17 +1376,17 @@
   begin
     Inc(MapString);
     P := MapString;
-    while (P^ <> ')') and not CharIsReturn(Char(P^)) do
+    while (P^ <> #0) and not (P^ in [')', #10, #13]) do
       Inc(P);
   end
   else
   begin
     P := MapString;
     if IgnoreSpaces then
-      while (P^ <> '(') and not CharIsReturn(Char(P^)) do
+      while (P^ <> #0) and not (P^ in ['(', #10, #13]) do
         Inc(P)
     else
-      while (P^ <> '(') and not CharIsWhiteSpace(Char(P^)) do
+      while (P^ <> #0) and (P^ <> '(') and (P^ > ' ') do
         Inc(P);
   end;
   SetString(Result, MapString, P - MapString);
@@ -1409,7 +1415,7 @@
 
   procedure SkipWhiteSpace;
   begin
-    while not Eof and CharIsWhiteSpace(Char(CurrPos^)) do
+    while (CurrPos < EndPos) and (CurrPos^ <= ' ') do
       Inc(CurrPos);
   end;
 
@@ -1430,7 +1436,7 @@
     P: PJclMapString;
   begin
     P := CurrPos;
-    while (CurrPos^ <> NativeNull) and not CharIsReturn(Char(CurrPos^)) do
+    while (CurrPos^ <> #0) and not (CurrPos^ in [#10, #13]) do
       Inc(CurrPos);
     SetString(Result, P, CurrPos - P);
   end;
@@ -1439,7 +1445,7 @@
   function ReadDecValue: Integer;
   begin
     Result := 0;
-    while CharIsDigit(Char(CurrPos^)) do
+    while CurrPos^ in ['0'..'9'] do
     begin
       Result := Result * 10 + (Ord(CurrPos^) - Ord('0'));
       Inc(CurrPos);
@@ -1448,11 +1454,11 @@
 
   function ReadHexValue: DWORD;
   var
-    C: Char;
+    C: AnsiChar;
   begin
     Result := 0;
     repeat
-      C := Char(CurrPos^);
+      C := CurrPos^;
       case C of
         '0'..'9':
           Result := (Result shl 4) or DWORD(Ord(C) - Ord('0'));
@@ -1488,7 +1494,7 @@
   begin
     SkipWhiteSpace;
     Result := CurrPos;
-    while not CharIsWhiteSpace(Char(CurrPos^)) do
+    while {(CurrPos^ <> #0) and} (CurrPos^ > ' ') do
       Inc(CurrPos);
   end;
 
@@ -1545,7 +1551,7 @@
     SkipWhiteSpace;
     I := Length(Prefix);
     P := CurrPos;
-    while not Eof and (P^ <> NativeCarriageReturn) and (P^ <> NativeNull) and (I > 0) do
+    while not Eof and (P^ <> #13) and (P^ <> #0) and (I > 0) do
     begin
       Inc(P);
       Dec(I);
@@ -2113,7 +2119,7 @@
     Inc(B);
     Inc(I);
   until B >= SizeOf(Buffer) - 1;
-  Buffer[B] := NativeNull;
+  Buffer[B] := #0;
   Result := UTF8ToString(Buffer);
 end;
 
@@ -2130,7 +2136,11 @@
   for I := StartIndex + 1 to Length(S) do
     if not CharIsValidIdentifierLetter(Char(S[I])) then
     begin
+      {$IFDEF SUPPORTS_UNICODE}
+      Result := #1 + SimpleCryptString(UTF8Encode(S)) + #0; // UTF8Encode is much faster than StringToUTF8
+      {$ELSE}
       Result := #1 + SimpleCryptString(StringToUTF8(S)) + #0;
+      {$ENDIF SUPPORTS_UNICODE}
       Exit;
     end;
   SetLength(Result, Length(S) + StartIndex);
@@ -2424,14 +2434,22 @@
 
 procedure TJclBinDebugGenerator.CreateData;
 var
+  {$IFDEF SUPPORTS_GENERICS}
+  WordList: TDictionary<string, Integer>;
+  {$ELSE}
   WordList: TStringList;
+  {$ENDIF SUPPORTS_GENERICS}
   WordStream: TMemoryStream;
   LastSegmentID: Word;
   LastSegmentStored: Boolean;
 
   function AddWord(const S: string): Integer;
   var
+    {$IFDEF SUPPORTS_GENERICS}
+    LowerS: string;
+    {$ELSE}
     N: Integer;
+    {$ENDIF SUPPORTS_GENERICS}
     E: AnsiString;
   begin
     if S = '' then
@@ -2439,6 +2457,16 @@
       Result := 0;
       Exit;
     end;
+    {$IFDEF SUPPORTS_GENERICS}
+    LowerS := AnsiLowerCase(S);
+    if not WordList.TryGetValue(LowerS, Result) then
+    begin
+      Result := WordStream.Position;
+      E := EncodeNameString(S);
+      WordStream.WriteBuffer(E[1], Length(E));
+      WordList.Add(LowerS, Result);
+    end;
+    {$ELSE} // for large map files this is very slow
     N := WordList.IndexOf(S);
     if N = -1 then
     begin
@@ -2449,6 +2477,7 @@
     end
     else
       Result := DWORD(WordList.Objects[N]);
+    {$ENDIF SUPPORTS_GENERICS}
     Inc(Result);
   end;
 
@@ -2498,19 +2527,29 @@
     Result := LastSegmentStored;
   end;
 
+const
+  AlignBytes: array[0..2] of Byte = (0, 0, 0);
 var
   FileHeader: TJclDbgHeader;
   I, D: Integer;
   S: string;
   L1, L2, L3: Integer;
   FirstWord, SecondWord: Integer;
+  WordStreamSize, DataStreamSize: Int64;
 begin
   LastSegmentID := $FFFF;
   WordStream := TMemoryStream.Create;
+  {$IFDEF SUPPORTS_GENERICS}
+  WordList := TDictionary<string, Integer>.Create(Length(FSourceNames) + Length(FProcNames));
+  {$ELSE}
   WordList := TStringList.Create;
+  {$ENDIF SUPPORTS_GENERICS}
   try
+    {$IFNDEF SUPPORTS_GENERICS}
     WordList.Sorted := True;
     WordList.Duplicates := dupError;
+    {$ENDIF ~SUPPORTS_GENERICS}
+    WordStream.SetSize((Length(FSourceNames) + Length(FProcNames)) * 40); // take an average of 40 chars per identifier
 
     FileHeader.Signature := JclDbgDataSignature;
     FileHeader.Version := JclDbgHeaderVersion;
@@ -2524,10 +2563,10 @@
     L2 := 0;
     for I := 0 to Length(FSegments) - 1 do
       if IsSegmentStored(FSegments[I].Segment) then
-    begin
-      WriteValueOfs(FSegments[I].StartVA, L1);
-      WriteValueOfs(AddWord(MapStringCacheToModuleName(FSegments[I].UnitName)), L2);
-    end;
+      begin
+        WriteValueOfs(FSegments[I].StartVA, L1);
+        WriteValueOfs(AddWord(MapStringCacheToModuleName(FSegments[I].UnitName)), L2);
+      end;
     WriteValue(MaxInt);
 
     FileHeader.SourceNames := FDataStream.Position;
@@ -2535,10 +2574,10 @@
     L2 := 0;
     for I := 0 to Length(FSourceNames) - 1 do
       if IsSegmentStored(FSourceNames[I].Segment) then
-    begin
-      WriteValueOfs(FSourceNames[I].VA, L1);
-      WriteValueOfs(AddWord(MapStringCacheToStr(FSourceNames[I].ProcName)), L2);
-    end;
+      begin
+        WriteValueOfs(FSourceNames[I].VA, L1);
+        WriteValueOfs(AddWord(MapStringCacheToStr(FSourceNames[I].ProcName)), L2);
+      end;
     WriteValue(MaxInt);
 
     FileHeader.Symbols := FDataStream.Position;
@@ -2547,30 +2586,30 @@
     L3 := 0;
     for I := 0 to Length(FProcNames) - 1 do
       if IsSegmentStored(FProcNames[I].Segment) then
-    begin
-      WriteValueOfs(FProcNames[I].VA, L1);
-      // MAP files generated by C++Builder have spaces in their names
-      S := MapStringCacheToStr(FProcNames[I].ProcName, True);
-      D := Pos('.', S);
-      if D = 1 then
       begin
-        FirstWord := 0;
-        SecondWord := 0;
-      end
-      else
-      if D = 0 then
-      begin
-        FirstWord := AddWord(S);
-        SecondWord := 0;
-      end
-      else
-      begin
-        FirstWord := AddWord(Copy(S, 1, D - 1));
-        SecondWord := AddWord(Copy(S, D + 1, Length(S)));
+        WriteValueOfs(FProcNames[I].VA, L1);
+        // MAP files generated by C++Builder have spaces in their names
+        S := MapStringCacheToStr(FProcNames[I].ProcName, True);
+        D := Pos('.', S);
+        if D = 1 then
+        begin
+          FirstWord := 0;
+          SecondWord := 0;
+        end
+        else
+        if D = 0 then
+        begin
+          FirstWord := AddWord(S);
+          SecondWord := 0;
+        end
+        else
+        begin
+          FirstWord := AddWord(Copy(S, 1, D - 1));
+          SecondWord := AddWord(Copy(S, D + 1, Length(S)));
+        end;
+        WriteValueOfs(FirstWord, L2);
+        WriteValueOfs(SecondWord, L3);
       end;
-      WriteValueOfs(FirstWord, L2);
-      WriteValueOfs(SecondWord, L3);
-    end;
     WriteValue(MaxInt);
 
     FileHeader.LineNumbers := FDataStream.Position;
@@ -2578,17 +2617,29 @@
     L2 := 0;
     for I := 0 to Length(FLineNumbers) - 1 do
       if IsSegmentStored(FLineNumbers[I].Segment) then
-    begin
-      WriteValueOfs(FLineNumbers[I].VA, L1);
-      WriteValueOfs(FLineNumbers[I].LineNumber, L2);
-    end;
+      begin
+        WriteValueOfs(FLineNumbers[I].VA, L1);
+        WriteValueOfs(FLineNumbers[I].LineNumber, L2);
+      end;
     WriteValue(MaxInt);
 
     FileHeader.Words := FDataStream.Position;
-    FDataStream.CopyFrom(WordStream, 0);
-    I := 0;
-    while FDataStream.Size mod 4 <> 0 do
-      FDataStream.WriteBuffer(I, 1);
+
+    // Calculate and allocate the required size in advance instead of reallocating on the fly.
+    WordStreamSize := WordStream.Position;
+    DataStreamSize := FDataStream.Position + WordStreamSize;
+    DataStreamSize := DataStreamSize + (4 - (DataStreamSize and $3));
+    FDataStream.Size := DataStreamSize; // set capacity
+
+    WordStream.Position := 0;
+    FDataStream.CopyFrom(WordStream, WordStreamSize);
+
+    // Align to 4 bytes
+    FDataStream.WriteBuffer(AlignBytes, 4 - (FDataStream.Position and $3));
+    if FDataStream.Size <> FDataStream.Position then // just in case something changed without adjusting the size calculation
+      FDataStream.Size := FDataStream.Position;
+
+    // Update the file header
     FDataStream.Seek(0, soFromBeginning);
     FDataStream.WriteBuffer(FileHeader, SizeOf(FileHeader));
   finally

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:[3794] trunk/jcl/source/common/JclSysUtils.pas

From: <ob...@us...> - 2012-05-15 10:16:27

Revision: 3794
          http://jcl.svn.sourceforge.net/jcl/?rev=3794&view=rev
Author:   obones
Date:     2012-05-15 10:16:16 +0000 (Tue, 15 May 2012)
Log Message:
-----------
Only terminate process it if the process actually started, this prevents eating up the last error value by calling those three functions with an invalid handle

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

Modified: trunk/jcl/source/common/JclSysUtils.pas
===================================================================
--- trunk/jcl/source/common/JclSysUtils.pas	2012-05-14 12:15:29 UTC (rev 3793)
+++ trunk/jcl/source/common/JclSysUtils.pas	2012-05-15 10:16:16 UTC (rev 3794)
@@ -3029,12 +3029,19 @@
 
     // always terminate process, especially useful when an exception occured
     // in one of the texthandler
-    TerminateProcess(ProcessInfo.hProcess, Cardinal(ABORT_EXIT_CODE));
-    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
-    GetExitCodeProcess(ProcessInfo.hProcess, Result);
+    // but only do it if the process actually started, this prevents eating
+    // up the last error value by calling those three functions with an
+    // invalid handle
+    if ProcessInfo.hProcess <> 0 then
+    begin
+      TerminateProcess(ProcessInfo.hProcess, Cardinal(ABORT_EXIT_CODE));
+      WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
+      GetExitCodeProcess(ProcessInfo.hProcess, Result);
+    end;
+
     if Assigned(ProcessEvent) then
       ProcessEvent.Free // this calls CloseHandle(ProcessInfo.hProcess)
-    else
+    else if ProcessInfo.hProcess <> 0 then
       CloseHandle(ProcessInfo.hProcess);
     OutPipeInfo.Event.Free;
     ErrorPipeInfo.Event.Free;

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:[3793] trunk/jcl/source/common/JclSysUtils.pas

From: <ob...@us...> - 2012-05-14 12:15:36

Revision: 3793
          http://jcl.svn.sourceforge.net/jcl/?rev=3793&view=rev
Author:   obones
Date:     2012-05-14 12:15:29 +0000 (Mon, 14 May 2012)
Log Message:
-----------
Added priority for process spawned by the Execute function

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

Modified: trunk/jcl/source/common/JclSysUtils.pas
===================================================================
--- trunk/jcl/source/common/JclSysUtils.pas	2012-05-10 19:34:22 UTC (rev 3792)
+++ trunk/jcl/source/common/JclSysUtils.pas	2012-05-14 12:15:29 UTC (rev 3793)
@@ -493,27 +493,28 @@
 type
   // e.g. TStrings.Append
   TTextHandler = procedure(const Text: string) of object;
+  TJclProcessPriority = (ppIdle, ppNormal, ppHigh, ppRealTime, ppBelowNormal, ppAboveNormal);
 
 const
   ABORT_EXIT_CODE = {$IFDEF MSWINDOWS} ERROR_CANCELLED {$ELSE} 1223 {$ENDIF};
 
 function Execute(const CommandLine: string; OutputLineCallback: TTextHandler; RawOutput: Boolean = False;
-  AbortPtr: PBoolean = nil): Cardinal; overload;
+  AbortPtr: PBoolean = nil; ProcessPriority: TJclProcessPriority = ppNormal): Cardinal; overload;
 function Execute(const CommandLine: string; AbortEvent: TJclEvent;
-  OutputLineCallback: TTextHandler; RawOutput: Boolean = False): Cardinal; overload;
+  OutputLineCallback: TTextHandler; RawOutput: Boolean = False; ProcessPriority: TJclProcessPriority = ppNormal): Cardinal; overload;
 function Execute(const CommandLine: string; var Output: string; RawOutput: Boolean = False;
-  AbortPtr: PBoolean = nil): Cardinal; overload;
+  AbortPtr: PBoolean = nil; ProcessPriority: TJclProcessPriority = ppNormal): Cardinal; overload;
 function Execute(const CommandLine: string; AbortEvent: TJclEvent;
-  var Output: string; RawOutput: Boolean = False): Cardinal; overload;
+  var Output: string; RawOutput: Boolean = False; ProcessPriority: TJclProcessPriority = ppNormal): Cardinal; overload;
 
 function Execute(const CommandLine: string; OutputLineCallback, ErrorLineCallback: TTextHandler;
-  RawOutput: Boolean = False; RawError: Boolean = False; AbortPtr: PBoolean = nil): Cardinal; overload;
+  RawOutput: Boolean = False; RawError: Boolean = False; AbortPtr: PBoolean = nil; ProcessPriority: TJclProcessPriority = ppNormal): Cardinal; overload;
 function Execute(const CommandLine: string; AbortEvent: TJclEvent;
-  OutputLineCallback, ErrorLineCallback: TTextHandler; RawOutput: Boolean = False; RawError: Boolean = False): Cardinal; overload;
+  OutputLineCallback, ErrorLineCallback: TTextHandler; RawOutput: Boolean = False; RawError: Boolean = False; ProcessPriority: TJclProcessPriority = ppNormal): Cardinal; overload;
 function Execute(const CommandLine: string; var Output, Error: string;
-  RawOutput: Boolean = False; RawError: Boolean = False; AbortPtr: PBoolean = nil): Cardinal; overload;
+  RawOutput: Boolean = False; RawError: Boolean = False; AbortPtr: PBoolean = nil; ProcessPriority: TJclProcessPriority = ppNormal): Cardinal; overload;
 function Execute(const CommandLine: string; AbortEvent: TJclEvent;
-  var Output, Error: string; RawOutput: Boolean = False; RawError: Boolean = False): Cardinal; overload;
+  var Output, Error: string; RawOutput: Boolean = False; RawError: Boolean = False; ProcessPriority: TJclProcessPriority = ppNormal): Cardinal; overload;
 
 type
 {$HPPEMIT 'namespace Jclsysutils'}
@@ -2853,9 +2854,18 @@
   Result := True;
 end;
 
+const
+  BELOW_NORMAL_PRIORITY_CLASS = $00004000;
+  ABOVE_NORMAL_PRIORITY_CLASS = $00008000;
+
+  ProcessPriorities: array [TJclProcessPriority] of DWORD =
+    (IDLE_PRIORITY_CLASS, NORMAL_PRIORITY_CLASS, HIGH_PRIORITY_CLASS, REALTIME_PRIORITY_CLASS,
+     BELOW_NORMAL_PRIORITY_CLASS, ABOVE_NORMAL_PRIORITY_CLASS);
+
 function InternalExecute(CommandLine: string; AbortPtr: PBoolean; AbortEvent: TJclEvent;
   var Output: string; OutputLineCallback: TTextHandler; RawOutput: Boolean;
-  MergeError: Boolean; var Error: string; ErrorLineCallback: TTextHandler; RawError: Boolean): Cardinal;
+  MergeError: Boolean; var Error: string; ErrorLineCallback: TTextHandler; RawError: Boolean;
+  ProcessPriority: TJclProcessPriority): Cardinal;
 var
   OutPipeInfo, ErrorPipeInfo: TPipeInfo;
   Index: Cardinal;
@@ -2914,7 +2924,7 @@
   ProcessInfo.dwProcessId := 0;
   ProcessEvent := nil;
   try
-    if CreateProcess(nil, PChar(CommandLine), nil, nil, True, NORMAL_PRIORITY_CLASS,
+    if CreateProcess(nil, PChar(CommandLine), nil, nil, True, ProcessPriorities[ProcessPriority],
       nil, nil, StartupInfo, ProcessInfo) then
     begin
       // init out and error events
@@ -3082,20 +3092,20 @@
 That is, for RawOutput = False, lines not terminated by a line feed (#10) are deleted from Output. }
 
 function Execute(const CommandLine: string; var Output: string; RawOutput: Boolean;
-  AbortPtr: PBoolean): Cardinal;
+  AbortPtr: PBoolean; ProcessPriority: TJclProcessPriority): Cardinal;
 var
   Error: string;
 begin
   Error := '';
-  Result := InternalExecute(CommandLine, AbortPtr, nil, Output, nil, RawOutput, True, Error, nil, False);
+  Result := InternalExecute(CommandLine, AbortPtr, nil, Output, nil, RawOutput, True, Error, nil, False, ProcessPriority);
 end;
 
-function Execute(const CommandLine: string; AbortEvent: TJclEvent; var Output: string; RawOutput: Boolean): Cardinal;
+function Execute(const CommandLine: string; AbortEvent: TJclEvent; var Output: string; RawOutput: Boolean; ProcessPriority: TJclProcessPriority): Cardinal;
 var
   Error: string;
 begin
   Error := '';
-  Result := InternalExecute(CommandLine, nil, AbortEvent, Output, nil, RawOutput, True, Error, nil, False);
+  Result := InternalExecute(CommandLine, nil, AbortEvent, Output, nil, RawOutput, True, Error, nil, False, ProcessPriority);
 end;
 
 { TODO -cHelp :
@@ -3103,22 +3113,22 @@
 OutputLineCallback called once per line of output. }
 
 function Execute(const CommandLine: string; OutputLineCallback: TTextHandler; RawOutput: Boolean;
-  AbortPtr: PBoolean): Cardinal;
+  AbortPtr: PBoolean; ProcessPriority: TJclProcessPriority): Cardinal;
 var
   Output, Error: string;
 begin
   Output := '';
   Error := '';
-  Result := InternalExecute(CommandLine, AbortPtr, nil, Output, OutputLineCallback, RawOutput, True, Error, nil, False);
+  Result := InternalExecute(CommandLine, AbortPtr, nil, Output, OutputLineCallback, RawOutput, True, Error, nil, False, ProcessPriority);
 end;
 
-function Execute(const CommandLine: string; AbortEvent: TJclEvent; OutputLineCallback: TTextHandler; RawOutput: Boolean): Cardinal;
+function Execute(const CommandLine: string; AbortEvent: TJclEvent; OutputLineCallback: TTextHandler; RawOutput: Boolean; ProcessPriority: TJclProcessPriority): Cardinal;
 var
   Output, Error: string;
 begin
   Output := '';
   Error := '';
-  Result := InternalExecute(CommandLine, nil, AbortEvent, Output, OutputLineCallback, RawOutput, True, Error, nil, False);
+  Result := InternalExecute(CommandLine, nil, AbortEvent, Output, OutputLineCallback, RawOutput, True, Error, nil, False, ProcessPriority);
 end;
 
 { TODO -cHelp :
@@ -3126,15 +3136,15 @@
 That is, for RawOutput = False, lines not terminated by a line feed (#10) are deleted from Output. }
 
 function Execute(const CommandLine: string; var Output, Error: string; RawOutput, RawError: Boolean;
-  AbortPtr: PBoolean): Cardinal;
+  AbortPtr: PBoolean; ProcessPriority: TJclProcessPriority): Cardinal;
 begin
-  Result := InternalExecute(CommandLine, AbortPtr, nil, Output, nil, RawOutput, False, Error, nil, RawError);
+  Result := InternalExecute(CommandLine, AbortPtr, nil, Output, nil, RawOutput, False, Error, nil, RawError, ProcessPriority);
 end;
 
 function Execute(const CommandLine: string; AbortEvent: TJclEvent; var Output, Error: string;
-  RawOutput, RawError: Boolean): Cardinal;
+  RawOutput, RawError: Boolean; ProcessPriority: TJclProcessPriority): Cardinal;
 begin
-  Result := InternalExecute(CommandLine, nil, AbortEvent, Output, nil, RawOutput, False, Error, nil, RawError);
+  Result := InternalExecute(CommandLine, nil, AbortEvent, Output, nil, RawOutput, False, Error, nil, RawError, ProcessPriority);
 end;
 
 { TODO -cHelp :
@@ -3142,23 +3152,23 @@
 OutputLineCallback called once per line of output. }
 
 function Execute(const CommandLine: string; OutputLineCallback, ErrorLineCallback: TTextHandler;
-  RawOutput, RawError: Boolean; AbortPtr: PBoolean): Cardinal;
+  RawOutput, RawError: Boolean; AbortPtr: PBoolean; ProcessPriority: TJclProcessPriority): Cardinal;
 var
   Output, Error: string;
 begin
   Output := '';
   Error := '';
-  Result := InternalExecute(CommandLine, AbortPtr, nil, Output, OutputLineCallback, RawOutput, False, Error, ErrorLineCallback, RawError);
+  Result := InternalExecute(CommandLine, AbortPtr, nil, Output, OutputLineCallback, RawOutput, False, Error, ErrorLineCallback, RawError, ProcessPriority);
 end;
 
 function Execute(const CommandLine: string; AbortEvent: TJclEvent; OutputLineCallback, ErrorLineCallback: TTextHandler;
-  RawOutput, RawError: Boolean): Cardinal;
+  RawOutput, RawError: Boolean; ProcessPriority: TJclProcessPriority): Cardinal;
 var
   Output, Error: string;
 begin
   Output := '';
   Error := '';
-  Result := InternalExecute(CommandLine, nil, AbortEvent, Output, OutputLineCallback, RawOutput, False, Error, ErrorLineCallback, RawError);
+  Result := InternalExecute(CommandLine, nil, AbortEvent, Output, OutputLineCallback, RawOutput, False, Error, ErrorLineCallback, RawError, ProcessPriority);
 end;
 
 //=== { TJclCommandLineTool } ================================================

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 2 3 4 5 6 .. 92 > >> (Page 4 of 92)