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

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 .. 36 37 38 39 40 .. 92 > >> (Page 38 of 92)

[Jcl-checkins-diff] SF.net SVN: jcl:[2967] branches/JCL_2.0/

From: <ou...@us...> - 2009-08-25 17:13:23

Revision: 2967
          http://jcl.svn.sourceforge.net/jcl/?rev=2967&view=rev
Author:   outchy
Date:     2009-08-25 17:13:16 +0000 (Tue, 25 Aug 2009)

Log Message:
-----------
branch for JCL 2.0.

Added Paths:
-----------
    branches/JCL_2.0/


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

From: <ou...@us...> - 2009-08-25 15:21:18

Revision: 2966
          http://jcl.svn.sourceforge.net/jcl/?rev=2966&view=rev
Author:   outchy
Date:     2009-08-25 15:21:12 +0000 (Tue, 25 Aug 2009)

Log Message:
-----------
missing semi-colon.

Modified Paths:
--------------
    trunk/jcl/source/common/JclAlgorithms.pas
    trunk/jcl/source/prototypes/JclAlgorithms.pas

Modified: trunk/jcl/source/common/JclAlgorithms.pas
===================================================================
--- trunk/jcl/source/common/JclAlgorithms.pas	2009-08-25 15:11:21 UTC (rev 2965)
+++ trunk/jcl/source/common/JclAlgorithms.pas	2009-08-25 15:21:12 UTC (rev 2966)
@@ -263,7 +263,7 @@
 procedure Fill(const First: IJclCardinalIterator; Count: Integer; AValue: Cardinal); overload;
 procedure Fill(const First: IJclInt64Iterator; Count: Integer; const AValue: Int64); overload;
 procedure Fill(const First: IJclPtrIterator; Count: Integer; APtr: Pointer); overload;
-procedure Fill(const First: IJclIterator; Count: Integer; AObject: TObject); overload
+procedure Fill(const First: IJclIterator; Count: Integer; AObject: TObject); overload;
 
 // Reverse algorithms
 procedure Reverse(const First, Last: IJclIntfIterator); overload;
@@ -2891,4 +2891,4 @@
   UnregisterUnitVersion(HInstance);
 {$ENDIF UNITVERSIONING}
 
-end.
\ No newline at end of file
+end.

Modified: trunk/jcl/source/prototypes/JclAlgorithms.pas
===================================================================
--- trunk/jcl/source/prototypes/JclAlgorithms.pas	2009-08-25 15:11:21 UTC (rev 2965)
+++ trunk/jcl/source/prototypes/JclAlgorithms.pas	2009-08-25 15:21:12 UTC (rev 2966)
@@ -200,7 +200,7 @@
 {$JPPEXPANDMACRO FILLINT(Fill,IJclCardinalIterator,,AValue,Cardinal)} overload;
 {$JPPEXPANDMACRO FILLINT(Fill,IJclInt64Iterator,const ,AValue,Int64)} overload;
 {$JPPEXPANDMACRO FILLINT(Fill,IJclPtrIterator,,APtr,Pointer)} overload;
-{$JPPEXPANDMACRO FILLINT(Fill,IJclIterator,,AObject,TObject)} overload
+{$JPPEXPANDMACRO FILLINT(Fill,IJclIterator,,AObject,TObject)} overload;
 
 // Reverse algorithms
 {$JPPEXPANDMACRO REVERSEINT(Reverse,IJclIntfIterator)} overload;


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

From: <ou...@us...> - 2009-08-25 15:11:33

Revision: 2965
          http://jcl.svn.sourceforge.net/jcl/?rev=2965&view=rev
Author:   outchy
Date:     2009-08-25 15:11:21 +0000 (Tue, 25 Aug 2009)

Log Message:
-----------
FreePascal compatibility.

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

Modified: trunk/jcl/source/windows/JclTimeZones.pas
===================================================================
--- trunk/jcl/source/windows/JclTimeZones.pas	2009-08-23 17:54:50 UTC (rev 2964)
+++ trunk/jcl/source/windows/JclTimeZones.pas	2009-08-25 15:11:21 UTC (rev 2965)
@@ -540,7 +540,7 @@
   TimeZoneInfo.DaylightDate := FBiasInfo.DaylightDate;
   TimeZoneInfo.DaylightBias := FBiasInfo.DaylightBias;
 
-  if not SetTimeZoneInformation(TimeZoneInfo) then
+  if not SetTimeZoneInformation({$IFDEF FPC}@{$ENDIF FPC}TimeZoneInfo) then
     RaiseLastOSError;
 
   SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);


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

From: <ou...@us...> - 2009-08-23 17:54:58

Revision: 2964
          http://jcl.svn.sourceforge.net/jcl/?rev=2964&view=rev
Author:   outchy
Date:     2009-08-23 17:54:50 +0000 (Sun, 23 Aug 2009)

Log Message:
-----------
wrong pointer arithmetics in JclStrings.StrSearch and JclAnsiStrings.StrSearch.

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

Modified: trunk/jcl/source/common/JclAnsiStrings.pas
===================================================================
--- trunk/jcl/source/common/JclAnsiStrings.pas	2009-08-22 15:39:34 UTC (rev 2963)
+++ trunk/jcl/source/common/JclAnsiStrings.pas	2009-08-23 17:54:50 UTC (rev 2964)
@@ -2643,7 +2643,7 @@
     Inc(SPI, Index);
     SPI := StrPos(SPI, SubP);
     if SPI <> nil then
-      Result := SPI - SP
+      Result := SPI - SP + 1
     else
       Result := 0;
   end

Modified: trunk/jcl/source/common/JclStrings.pas
===================================================================
--- trunk/jcl/source/common/JclStrings.pas	2009-08-22 15:39:34 UTC (rev 2963)
+++ trunk/jcl/source/common/JclStrings.pas	2009-08-23 17:54:50 UTC (rev 2964)
@@ -2523,7 +2523,7 @@
     Inc(SPI, Index);
     SPI := StrPos(SPI, SubP);
     if SPI <> nil then
-      Result := SPI - SP
+      Result := SPI - SP + 1
     else
       Result := 0;
   end


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

[Jcl-checkins-diff] SF.net SVN: jcl:[2963] trunk/jcl/examples/windows

From: <ou...@us...> - 2009-08-22 15:39:42

Revision: 2963
          http://jcl.svn.sourceforge.net/jcl/?rev=2963&view=rev
Author:   outchy
Date:     2009-08-22 15:39:34 +0000 (Sat, 22 Aug 2009)

Log Message:
-----------
console example moved to a dedicated directory.

Added Paths:
-----------
    trunk/jcl/examples/windows/console/
    trunk/jcl/examples/windows/console/ConsoleExamples.dof
    trunk/jcl/examples/windows/console/ConsoleExamples.dpr

Removed Paths:
-------------
    trunk/jcl/examples/windows/ConsoleExamples.dof
    trunk/jcl/examples/windows/ConsoleExamples.dpr

Property Changed:
----------------
    trunk/jcl/examples/windows/debug/mttest/
    trunk/jcl/examples/windows/widestring/

Deleted: trunk/jcl/examples/windows/ConsoleExamples.dof
===================================================================
--- trunk/jcl/examples/windows/ConsoleExamples.dof	2009-08-22 15:31:16 UTC (rev 2962)
+++ trunk/jcl/examples/windows/ConsoleExamples.dof	2009-08-22 15:39:34 UTC (rev 2963)
@@ -1,3 +0,0 @@
-[Directories]
-OutputDir=..\..\bin
-SearchPath=$(DELPHI)\Lib\Debug;

Deleted: trunk/jcl/examples/windows/ConsoleExamples.dpr
===================================================================
--- trunk/jcl/examples/windows/ConsoleExamples.dpr	2009-08-22 15:31:16 UTC (rev 2962)
+++ trunk/jcl/examples/windows/ConsoleExamples.dpr	2009-08-22 15:39:34 UTC (rev 2963)
@@ -1,409 +0,0 @@
-program ConsoleExamples;
-
-{$APPTYPE CONSOLE}
-
-{$I jcl.inc}
-{$IFDEF SUPPORTS_PLATFORM_WARNINGS}
-  {$WARN SYMBOL_PLATFORM OFF}
-{$ENDIF SUPPORTS_PLATFORM_WARNINGS}
-
-uses
-  SysUtils,
-  Windows,
-  TypInfo,
-  JclConsole;
-
-{$R ..\..\source\windows\JclNoDepAsInvoker.res}
-
-type
-  TCPInfoEx = packed record
-    MaxCharSize: DWORD;
-    DefaultChar: array[0..MAX_DEFAULTCHAR-1] of Byte;
-    LeadByte: array[0..MAX_LEADBYTES-1] of Byte;
-    UnicodeDefaultChar: WideChar;
-    CodePage: DWORD;
-    CodePageName: array[0..MAX_PATH-1] of Char;
-  end;
-
-function GetCPInfoEx(CodePage, dwFlags: DWORD; var lpCPInfoEx: TCPInfoEx): BOOL; stdcall;
-  external 'kernel32.dll' name 'GetCPInfoExA';
-
-procedure ShowConsoleInfo(const Console: TJclConsole);
-  function CodePageToName(CodePage: DWORD): string;
-  var
-    CpInfo: TCPInfoEx;
-  begin
-    Win32Check(GetCPInfoEx(CodePage, 0, CpInfo));
-    Result := CpInfo.CodePageName;
-  end;
-begin
-  Assert(TJclConsole.IsConsole(GetModuleHandle(nil)));
-  Assert(TJclConsole.IsConsole(ParamStr(0)));
-
-  Console.ActiveScreen.WriteLn('Old Windows Title : ' + Console.Title);
-  Console.Title := 'Information of the Default Output Screen Buffer';
-  Console.ActiveScreen.WriteLn('New Windows Title : ' + Console.Title);
-  Console.ActiveScreen.WriteLn(Format('Input Code Page : %s', [CodePageToName(Console.InputCodePage)]));
-  Console.ActiveScreen.WriteLn(Format('Output Code Page : %s', [CodePageToName(Console.OutputCodePage)]));
-end;
-
-procedure ShowScreenInfo(const ScrBuf: TJclScreenBuffer);
-  function ModeToString: string;
-  var
-    AMode: TJclConsoleOutputMode;
-  begin
-    for AMode:=Low(TJclConsoleOutputMode) to High(TJclConsoleOutputMode) do
-    begin
-      if AMode in ScrBuf.Mode then
-      begin
-        if Result <> '' then
-          Result := Result + ', ';
-        Result := Result + GetEnumName(TypeInfo(TJclConsoleOutputMode), Integer(AMode));
-      end;
-    end;
-  end;
-var
-  OldMode: TJclConsoleOutputModes;
-  Attr: IJclScreenTextAttribute;
-begin
-  ScrBuf.WriteLn;
-  ScrBuf.WriteLn(Format('Handle: 0x%.8x', [ScrBuf.Handle]));
-  ScrBuf.Writeln('Old Mode : ' + ModeToString);
-  OldMode := ScrBuf.Mode;
-  ScrBuf.Mode := ScrBuf.Mode - [omWrapAtEol];
-  ScrBuf.Write('New Mode : ' + ModeToString);
-  Readln;
-  ScrBuf.Mode := OldMode;
-
-  ScrBuf.WriteLn(Format('Old Size: (%d, %d)', [ScrBuf.Width, ScrBuf.Height]));
-  ScrBuf.Width := ScrBuf.Width * 2;
-  ScrBuf.Write(Format('New Size: (%d, %d)', [ScrBuf.Width, ScrBuf.Height]));
-  Readln;
-  ScrBuf.Width := ScrBuf.Width div 2;
-
-  Attr := TJclScreenTextAttribute.Create(fclYellow, bclBlue, True, False,
-    [fsGridHorizontal, fsUnderscore]);
-
-  ScrBuf.Write('Top', thaCenter, tvaTop, Attr);
-  ScrBuf.Write('Bottom', thaCenter, tvaBottom, Attr);
-  ScrBuf.Write('Left', thaLeft, tvaCenter, Attr);
-  ScrBuf.Write('Right', thaRight, tvaCenter, Attr);
-  ScrBuf.Write('Center', thaCenter, tvaCenter, Attr);
-end;
-
-procedure ShowCursorInfo(const ScrBuf: TJclScreenBuffer);
-const
-  BoolName: array[Boolean] of string = ('Hide', 'Show');
-var
-  OldPos: TCoord;
-  OldSize: TJclScreenCursorSize;
-begin
-  ScrBuf.WriteLn;
-  ScrBuf.WriteLn(Format('Cursor Position: (%d, %d)', [ScrBuf.Cursor.Position.X, ScrBuf.Cursor.Position.Y]));
-  OldPos := ScrBuf.Cursor.Position;
-  ScrBuf.Cursor.MoveTo(ScrBuf.Window.Left, ScrBuf.Window.Top);
-  ScrBuf.Write(Format('(%d, %d)', [ScrBuf.Cursor.Position.X, ScrBuf.Cursor.Position.Y]));
-  ScrBuf.Cursor.Position := OldPos;
-  Readln;
-  ScrBuf.WriteLn('Left-Top corner :' + ScrBuf.ReadLn(0, 0));
-
-  ScrBuf.WriteLn(Format('Old Cursor Size: %d', [ScrBuf.Cursor.Size]));
-  OldSize := ScrBuf.Cursor.Size; ScrBuf.Cursor.Size := 100;
-  ScrBuf.Write(Format('New Cursor Size: %d', [ScrBuf.Cursor.Size]));
-  Readln;
-  ScrBuf.Cursor.Size := OldSize;
-
-  ScrBuf.WriteLn('Visible of Cursor: ' + BoolName[ScrBuf.Cursor.Visible]);
-  ScrBuf.Cursor.Visible := False;
-  ScrBuf.Write('Hidden Cursor: ' + BoolName[ScrBuf.Cursor.Visible]);
-  Readln;
-  ScrBuf.Cursor.Visible := True;
-end;
-
-procedure ShowWindowInfo(const ScrBuf: TJclScreenBuffer);
-var
-  OldPos, OldSize: TCoord;
-begin
-  ScrBuf.WriteLn;
-  ScrBuf.WriteLn(Format('Largest Console Size : (%d, %d)',
-    [ScrBuf.Window.MaxConsoleWindowSize.X, ScrBuf.Window.MaxConsoleWindowSize.Y]));
-  ScrBuf.WriteLn(Format('Largest Window Size : (%d, %d)',
-    [ScrBuf.Window.MaxWindow.X, ScrBuf.Window.MaxWindow.Y]));
-
-  ScrBuf.WriteLn(Format('Old Window Position : (%d, %d)', [ScrBuf.Window.Left, ScrBuf.Window.Top]));
-  OldPos := ScrBuf.Window.Position;
-  ScrBuf.Window.Left := 0;
-  ScrBuf.Window.Top  := 0;
-  ScrBuf.Write(Format('New Window Position : (%d, %d)', [ScrBuf.Window.Left, ScrBuf.Window.Top]));
-  Readln;
-  ScrBuf.Window.Position := OldPos;
-
-  ScrBuf.WriteLn(Format('Old Window Size : (%d, %d)', [ScrBuf.Window.Width, ScrBuf.Window.Height]));
-  OldSize := ScrBuf.Window.Size;
-  ScrBuf.Window.Width  := ScrBuf.Window.Width div 2;
-  ScrBuf.Window.Height := ScrBuf.Window.Height div 2;
-  ScrBuf.Write(Format('New Window Size : (%d, %d)', [ScrBuf.Window.Width, ScrBuf.Window.Height]));
-  Readln;
-  ScrBuf.Window.Size := OldSize;
-
-  ScrBuf.Write(Format('Scroll up %d line: ', [ScrBuf.Window.Top]));
-  Readln;
-  OldPos := ScrBuf.Window.Position;
-  ScrBuf.Window.Scroll(0, -ScrBuf.Window.Top);
-  Readln;
-  ScrBuf.Window.Position := OldPos;
-end;
-
-procedure ShowTextAttributeInfo(const ScrBuf: TJclScreenBuffer);
-  function StyleToString: string;
-  var
-    AStyle: TJclScreenFontStyle;
-  begin
-    for AStyle:=Low(TJclScreenFontStyle) to High(TJclScreenFontStyle) do
-    begin
-      if AStyle in ScrBuf.Font.Style then
-      begin
-        if Result <> '' then
-          Result := Result + ', ';
-        Result := Result + GetEnumName(TypeInfo(TJclScreenFontStyle), Integer(AStyle));
-      end;
-    end;
-  end;
-const
-  HighlightName: array[Boolean] of string = ('', ' [Highlight]');
-var
-  OldTextAttribute: Word;
-begin
-  ScrBuf.WriteLn('Old Font Color : ' +
-    GetEnumName(TypeInfo(TJclScreenFontColor), Integer(ScrBuf.Font.Color)) +
-    HighlightName[ScrBuf.Font.Highlight]);
-  ScrBuf.WriteLn('Old Back Color : ' +
-    GetEnumName(TypeInfo(TJclScreenBackColor), Integer(ScrBuf.Font.BgColor)) +
-    HighlightName[ScrBuf.Font.BgHighlight]);
-  ScrBuf.Writeln('Old Font Style : ' + StyleToString);
-  OldTextAttribute      := ScrBuf.Font.TextAttribute;
-  ScrBuf.Font.Color     := fclYellow;
-  ScrBuf.Font.Highlight := True;
-  ScrBuf.Font.BgColor   := bclBlue;
-  ScrBuf.Font.Style     := ScrBuf.Font.Style + [fsUnderscore];
-  ScrBuf.WriteLn('New Font Color : ' +
-    GetEnumName(TypeInfo(TJclScreenFontColor), Integer(ScrBuf.Font.Color)) +
-    HighlightName[ScrBuf.Font.Highlight]);
-  ScrBuf.WriteLn('New Back Color : ' +
-    GetEnumName(TypeInfo(TJclScreenBackColor), Integer(ScrBuf.Font.BgColor)) +
-    HighlightName[ScrBuf.Font.BgHighlight]);
-  ScrBuf.Write('New Font Style : ' + StyleToString);
-  ScrBuf.Font.TextAttribute := OldTextAttribute;
-  ScrBuf.Writeln;
-end;
-
-{ TCtrlEventHandler }
-
-type
-  TCtrlEventHandler = class
-  private
-    FConsole: TJclConsole;
-    FTerminated: Boolean;
-  protected
-    procedure OnCtrlC(Sender: TObject);
-    procedure OnCtrlBreak(Sender: TObject);
-    procedure OnClose(Sender: TObject);
-    procedure OnLogOff(Sender: TObject);
-    procedure OnShutdown(Sender: TObject);
-
-    procedure Terminate;
-  public
-    constructor Create(AConsole: TJclConsole);
-
-    property Console: TJclConsole read FConsole;
-    property Terminated: Boolean read FTerminated;
-  end;
-
-constructor TCtrlEventHandler.Create(AConsole: TJclConsole);
-begin
-  FConsole    := AConsole;
-  FTerminated := False;
-
-  Console.OnCtrlC     := OnCtrlC;
-  Console.OnCtrlBreak := OnCtrlBreak;
-  Console.OnClose     := OnClose;
-  Console.OnLogOff    := OnLogOff;
-  Console.OnShutdown  := OnShutdown;
-end;
-
-procedure TCtrlEventHandler.Terminate;
-var
-  Evt: TInputRecord;
-begin
-  Sleep(1000);
-
-  FTerminated := True;
-
-  Evt.EventType := FOCUS_EVENT;
-  Evt.Event.FocusEvent.bSetFocus := False;
-  FConsole.Input.PutEvent(Evt);
-end;
-
-procedure TCtrlEventHandler.OnCtrlC(Sender: TObject);
-begin
-  Console.ActiveScreen.Writeln('Ctrl Event: Ctrl-C');
-end;
-
-procedure TCtrlEventHandler.OnCtrlBreak(Sender: TObject);
-begin
-  Console.ActiveScreen.Writeln('Ctrl Event: Ctrl-Break');
-end;
-
-procedure TCtrlEventHandler.OnClose(Sender: TObject);
-begin
-  Console.ActiveScreen.Writeln('Ctrl Event: Close');
-  Terminate;
-end;
-
-procedure TCtrlEventHandler.OnLogOff(Sender: TObject);
-begin
-  Console.ActiveScreen.Writeln('Ctrl Event: Logoff');
-  Terminate;
-end;
-
-procedure TCtrlEventHandler.OnShutdown(Sender: TObject);
-begin
-  Console.ActiveScreen.Writeln('Ctrl Event: Shutdown');
-  Terminate;
-end;
-
-procedure ShowInputInfo(const InputBuf: TJclInputBuffer);
-  function ModeToString: string;
-  var
-    AMode: TJclConsoleInputMode;
-  begin
-    for AMode:=Low(TJclConsoleInputMode) to High(TJclConsoleInputMode) do
-    begin
-      if AMode in InputBuf.Mode then
-      begin
-        if Result <> '' then
-          Result := Result + ', ';
-        Result := Result + GetEnumName(TypeInfo(TJclConsoleInputMode), Integer(AMode));
-      end;
-    end;
-  end;
-
-  procedure AddEvent;
-  var
-    ir: TInputRecord;
-  begin
-    ir.EventType := MENU_EVENT;
-    ir.Event.MenuEvent.dwCommandId := 111;
-    InputBuf.PutEvent(ir);
-  end;
-const
-  MOUSE_CLICKED = 0;
-  MOUSE_WHEELED = 3;
-  KeyDownBoolName: array[Boolean] of string = ('released', 'pressed');
-  SetFocusBoolName: array[Boolean] of string = ('deactivated', 'activated');
-var
-  I: DWORD;
-  OldPos: TCoord;
-  CtrlEvt: TCtrlEventHandler;
-  ScrBuf: TJclScreenBuffer;
-begin
-  ScrBuf := InputBuf.Console.ActiveScreen;
-  ScrBuf.WriteLn(Format('Input Event Count : %d', [InputBuf.EventCount]));
-
-  InputBuf.Mode := [imProcessed, imWindow, imMouse];
-  ScrBuf.Writeln('Input Mode : ' + ModeToString);
-
-  InputBuf.Clear;
-
-  AddEvent;
-
-  CtrlEvt := TCtrlEventHandler.Create(InputBuf.Console);
-  try
-    ScrBuf.WriteLn('Press [q] to break the loop...');
-    while not CtrlEvt.Terminated and InputBuf.WaitEvent do
-    begin
-      with InputBuf.GetEvent do
-        case EventType of
-        KEY_EVENT:
-        begin
-            ScrBuf.WriteLn(Format('Key (%s)$%.2x is %s %d times',
-             [Event.KeyEvent.AsciiChar, Event.KeyEvent.wVirtualKeyCode,
-              KeyDownBoolName[Event.KeyEvent.bKeyDown], Event.KeyEvent.wRepeatCount]));
-
-            if Event.KeyEvent.AsciiChar = 'q' then
-              Break;
-        end;
-        _MOUSE_EVENT:
-        begin
-          case Event.MouseEvent.dwEventFlags of
-            MOUSE_CLICKED:
-            begin
-              for I:= 1 to TJclConsole.MouseButtonCount do
-              if (Event.MouseEvent.dwButtonState and (1 shl (I - 1))) <> 0 then
-              begin
-                ScrBuf.Write(Format('Mouse %d button click at', [I]));
-                Break;
-              end;
-              if I > TJclConsole.MouseButtonCount then
-                ScrBuf.Write('Mouse button released at');
-            end;
-            DOUBLE_CLICK:
-              ScrBuf.Write('Mouse double-click at');
-            MOUSE_MOVED:
-            begin
-              if (OldPos.X <> Event.MouseEvent.dwMousePosition.X) or
-                 (OldPos.Y <> Event.MouseEvent.dwMousePosition.Y) then
-              begin
-                ScrBuf.Write('Mouse move to');
-                OldPos := Event.MouseEvent.dwMousePosition;
-              end
-              else
-                Continue;
-            end;
-            MOUSE_WHEELED:
-              ScrBuf.Write('Mouse wheeled at');
-          else
-            ScrBuf.Write('Mouse unknown action at');
-          end;
-
-          ScrBuf.WriteLn(Format(' (%d, %d) ', [Event.MouseEvent.dwMousePosition.X, Event.MouseEvent.dwMousePosition.Y]));
-       end;
-        WINDOW_BUFFER_SIZE_EVENT:
-          ScrBuf.WriteLn(Format('Screen buffer size is change to (%d, %d)',
-            [Event.WindowBufferSizeEvent.dwSize.X, Event.WindowBufferSizeEvent.dwSize.Y]));
-        MENU_EVENT:
-          ScrBuf.WriteLn(Format('Menu command %d is selected', [Event.MenuEvent.dwCommandId]));
-        FOCUS_EVENT:
-          ScrBuf.Writeln('Console window is ' + SetFocusBoolName[Event.FocusEvent.bSetFocus]);
-        else
-          ScrBuf.WriteLn(Format('Unknown event - %d', [EventType]));
-        end;
-    end;
-  finally
-    FreeAndNil(CtrlEvt);
-  end;
-end;
-
-var
-  ScrBuf, NewScrBuf: TJclScreenBuffer;
-begin
-  ShowConsoleInfo(TJclConsole.Default);
-
-  ScrBuf := TJclConsole.Default.ActiveScreen;
-
-  ShowScreenInfo(ScrBuf);
-  ShowCursorInfo(ScrBuf);
-  ShowWindowInfo(ScrBuf);
-
-  ScrBuf.Clear;
-
-  NewScrBuf := TJclConsole.Default.Add;
-  ShowTextAttributeInfo(NewScrBuf);
-  TJclConsole.Default.ActiveScreen := NewScrBuf;
-
-  ShowInputInfo(TJclConsole.Default.Input);
-
-  NewScrBuf.Clear;
-
-  TJclConsole.Default.ActiveScreen := ScrBuf;
-end.


Property changes on: trunk/jcl/examples/windows/console
___________________________________________________________________
Added: tsvn:projectlanguage
   + 0x0409
Added: bugtraq:url
   + http://issuetracker.delphi-jedi.org/view.php?id=%BUGID%
Added: bugtraq:message
   + (Mantis #%BUGID%)
Added: svn:ignore
   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj

Added: bugtraq:logregex
   + [Mm]antis #?(\d+)(,? ?#?(\d+))+
(\d+)

Copied: trunk/jcl/examples/windows/console/ConsoleExamples.dof (from rev 2962, trunk/jcl/examples/windows/ConsoleExamples.dof)
===================================================================
--- trunk/jcl/examples/windows/console/ConsoleExamples.dof	                        (rev 0)
+++ trunk/jcl/examples/windows/console/ConsoleExamples.dof	2009-08-22 15:39:34 UTC (rev 2963)
@@ -0,0 +1,3 @@
+[Directories]
+OutputDir=..\..\..\bin
+

Copied: trunk/jcl/examples/windows/console/ConsoleExamples.dpr (from rev 2962, trunk/jcl/examples/windows/ConsoleExamples.dpr)
===================================================================
--- trunk/jcl/examples/windows/console/ConsoleExamples.dpr	                        (rev 0)
+++ trunk/jcl/examples/windows/console/ConsoleExamples.dpr	2009-08-22 15:39:34 UTC (rev 2963)
@@ -0,0 +1,409 @@
+program ConsoleExamples;
+
+{$APPTYPE CONSOLE}
+
+{$I jcl.inc}
+{$IFDEF SUPPORTS_PLATFORM_WARNINGS}
+  {$WARN SYMBOL_PLATFORM OFF}
+{$ENDIF SUPPORTS_PLATFORM_WARNINGS}
+
+uses
+  SysUtils,
+  Windows,
+  TypInfo,
+  JclConsole;
+
+{$R ..\..\source\windows\JclNoDepAsInvoker.res}
+
+type
+  TCPInfoEx = packed record
+    MaxCharSize: DWORD;
+    DefaultChar: array[0..MAX_DEFAULTCHAR-1] of Byte;
+    LeadByte: array[0..MAX_LEADBYTES-1] of Byte;
+    UnicodeDefaultChar: WideChar;
+    CodePage: DWORD;
+    CodePageName: array[0..MAX_PATH-1] of Char;
+  end;
+
+function GetCPInfoEx(CodePage, dwFlags: DWORD; var lpCPInfoEx: TCPInfoEx): BOOL; stdcall;
+  external 'kernel32.dll' name 'GetCPInfoExA';
+
+procedure ShowConsoleInfo(const Console: TJclConsole);
+  function CodePageToName(CodePage: DWORD): string;
+  var
+    CpInfo: TCPInfoEx;
+  begin
+    Win32Check(GetCPInfoEx(CodePage, 0, CpInfo));
+    Result := CpInfo.CodePageName;
+  end;
+begin
+  Assert(TJclConsole.IsConsole(GetModuleHandle(nil)));
+  Assert(TJclConsole.IsConsole(ParamStr(0)));
+
+  Console.ActiveScreen.WriteLn('Old Windows Title : ' + Console.Title);
+  Console.Title := 'Information of the Default Output Screen Buffer';
+  Console.ActiveScreen.WriteLn('New Windows Title : ' + Console.Title);
+  Console.ActiveScreen.WriteLn(Format('Input Code Page : %s', [CodePageToName(Console.InputCodePage)]));
+  Console.ActiveScreen.WriteLn(Format('Output Code Page : %s', [CodePageToName(Console.OutputCodePage)]));
+end;
+
+procedure ShowScreenInfo(const ScrBuf: TJclScreenBuffer);
+  function ModeToString: string;
+  var
+    AMode: TJclConsoleOutputMode;
+  begin
+    for AMode:=Low(TJclConsoleOutputMode) to High(TJclConsoleOutputMode) do
+    begin
+      if AMode in ScrBuf.Mode then
+      begin
+        if Result <> '' then
+          Result := Result + ', ';
+        Result := Result + GetEnumName(TypeInfo(TJclConsoleOutputMode), Integer(AMode));
+      end;
+    end;
+  end;
+var
+  OldMode: TJclConsoleOutputModes;
+  Attr: IJclScreenTextAttribute;
+begin
+  ScrBuf.WriteLn;
+  ScrBuf.WriteLn(Format('Handle: 0x%.8x', [ScrBuf.Handle]));
+  ScrBuf.Writeln('Old Mode : ' + ModeToString);
+  OldMode := ScrBuf.Mode;
+  ScrBuf.Mode := ScrBuf.Mode - [omWrapAtEol];
+  ScrBuf.Write('New Mode : ' + ModeToString);
+  Readln;
+  ScrBuf.Mode := OldMode;
+
+  ScrBuf.WriteLn(Format('Old Size: (%d, %d)', [ScrBuf.Width, ScrBuf.Height]));
+  ScrBuf.Width := ScrBuf.Width * 2;
+  ScrBuf.Write(Format('New Size: (%d, %d)', [ScrBuf.Width, ScrBuf.Height]));
+  Readln;
+  ScrBuf.Width := ScrBuf.Width div 2;
+
+  Attr := TJclScreenTextAttribute.Create(fclYellow, bclBlue, True, False,
+    [fsGridHorizontal, fsUnderscore]);
+
+  ScrBuf.Write('Top', thaCenter, tvaTop, Attr);
+  ScrBuf.Write('Bottom', thaCenter, tvaBottom, Attr);
+  ScrBuf.Write('Left', thaLeft, tvaCenter, Attr);
+  ScrBuf.Write('Right', thaRight, tvaCenter, Attr);
+  ScrBuf.Write('Center', thaCenter, tvaCenter, Attr);
+end;
+
+procedure ShowCursorInfo(const ScrBuf: TJclScreenBuffer);
+const
+  BoolName: array[Boolean] of string = ('Hide', 'Show');
+var
+  OldPos: TCoord;
+  OldSize: TJclScreenCursorSize;
+begin
+  ScrBuf.WriteLn;
+  ScrBuf.WriteLn(Format('Cursor Position: (%d, %d)', [ScrBuf.Cursor.Position.X, ScrBuf.Cursor.Position.Y]));
+  OldPos := ScrBuf.Cursor.Position;
+  ScrBuf.Cursor.MoveTo(ScrBuf.Window.Left, ScrBuf.Window.Top);
+  ScrBuf.Write(Format('(%d, %d)', [ScrBuf.Cursor.Position.X, ScrBuf.Cursor.Position.Y]));
+  ScrBuf.Cursor.Position := OldPos;
+  Readln;
+  ScrBuf.WriteLn('Left-Top corner :' + ScrBuf.ReadLn(0, 0));
+
+  ScrBuf.WriteLn(Format('Old Cursor Size: %d', [ScrBuf.Cursor.Size]));
+  OldSize := ScrBuf.Cursor.Size; ScrBuf.Cursor.Size := 100;
+  ScrBuf.Write(Format('New Cursor Size: %d', [ScrBuf.Cursor.Size]));
+  Readln;
+  ScrBuf.Cursor.Size := OldSize;
+
+  ScrBuf.WriteLn('Visible of Cursor: ' + BoolName[ScrBuf.Cursor.Visible]);
+  ScrBuf.Cursor.Visible := False;
+  ScrBuf.Write('Hidden Cursor: ' + BoolName[ScrBuf.Cursor.Visible]);
+  Readln;
+  ScrBuf.Cursor.Visible := True;
+end;
+
+procedure ShowWindowInfo(const ScrBuf: TJclScreenBuffer);
+var
+  OldPos, OldSize: TCoord;
+begin
+  ScrBuf.WriteLn;
+  ScrBuf.WriteLn(Format('Largest Console Size : (%d, %d)',
+    [ScrBuf.Window.MaxConsoleWindowSize.X, ScrBuf.Window.MaxConsoleWindowSize.Y]));
+  ScrBuf.WriteLn(Format('Largest Window Size : (%d, %d)',
+    [ScrBuf.Window.MaxWindow.X, ScrBuf.Window.MaxWindow.Y]));
+
+  ScrBuf.WriteLn(Format('Old Window Position : (%d, %d)', [ScrBuf.Window.Left, ScrBuf.Window.Top]));
+  OldPos := ScrBuf.Window.Position;
+  ScrBuf.Window.Left := 0;
+  ScrBuf.Window.Top  := 0;
+  ScrBuf.Write(Format('New Window Position : (%d, %d)', [ScrBuf.Window.Left, ScrBuf.Window.Top]));
+  Readln;
+  ScrBuf.Window.Position := OldPos;
+
+  ScrBuf.WriteLn(Format('Old Window Size : (%d, %d)', [ScrBuf.Window.Width, ScrBuf.Window.Height]));
+  OldSize := ScrBuf.Window.Size;
+  ScrBuf.Window.Width  := ScrBuf.Window.Width div 2;
+  ScrBuf.Window.Height := ScrBuf.Window.Height div 2;
+  ScrBuf.Write(Format('New Window Size : (%d, %d)', [ScrBuf.Window.Width, ScrBuf.Window.Height]));
+  Readln;
+  ScrBuf.Window.Size := OldSize;
+
+  ScrBuf.Write(Format('Scroll up %d line: ', [ScrBuf.Window.Top]));
+  Readln;
+  OldPos := ScrBuf.Window.Position;
+  ScrBuf.Window.Scroll(0, -ScrBuf.Window.Top);
+  Readln;
+  ScrBuf.Window.Position := OldPos;
+end;
+
+procedure ShowTextAttributeInfo(const ScrBuf: TJclScreenBuffer);
+  function StyleToString: string;
+  var
+    AStyle: TJclScreenFontStyle;
+  begin
+    for AStyle:=Low(TJclScreenFontStyle) to High(TJclScreenFontStyle) do
+    begin
+      if AStyle in ScrBuf.Font.Style then
+      begin
+        if Result <> '' then
+          Result := Result + ', ';
+        Result := Result + GetEnumName(TypeInfo(TJclScreenFontStyle), Integer(AStyle));
+      end;
+    end;
+  end;
+const
+  HighlightName: array[Boolean] of string = ('', ' [Highlight]');
+var
+  OldTextAttribute: Word;
+begin
+  ScrBuf.WriteLn('Old Font Color : ' +
+    GetEnumName(TypeInfo(TJclScreenFontColor), Integer(ScrBuf.Font.Color)) +
+    HighlightName[ScrBuf.Font.Highlight]);
+  ScrBuf.WriteLn('Old Back Color : ' +
+    GetEnumName(TypeInfo(TJclScreenBackColor), Integer(ScrBuf.Font.BgColor)) +
+    HighlightName[ScrBuf.Font.BgHighlight]);
+  ScrBuf.Writeln('Old Font Style : ' + StyleToString);
+  OldTextAttribute      := ScrBuf.Font.TextAttribute;
+  ScrBuf.Font.Color     := fclYellow;
+  ScrBuf.Font.Highlight := True;
+  ScrBuf.Font.BgColor   := bclBlue;
+  ScrBuf.Font.Style     := ScrBuf.Font.Style + [fsUnderscore];
+  ScrBuf.WriteLn('New Font Color : ' +
+    GetEnumName(TypeInfo(TJclScreenFontColor), Integer(ScrBuf.Font.Color)) +
+    HighlightName[ScrBuf.Font.Highlight]);
+  ScrBuf.WriteLn('New Back Color : ' +
+    GetEnumName(TypeInfo(TJclScreenBackColor), Integer(ScrBuf.Font.BgColor)) +
+    HighlightName[ScrBuf.Font.BgHighlight]);
+  ScrBuf.Write('New Font Style : ' + StyleToString);
+  ScrBuf.Font.TextAttribute := OldTextAttribute;
+  ScrBuf.Writeln;
+end;
+
+{ TCtrlEventHandler }
+
+type
+  TCtrlEventHandler = class
+  private
+    FConsole: TJclConsole;
+    FTerminated: Boolean;
+  protected
+    procedure OnCtrlC(Sender: TObject);
+    procedure OnCtrlBreak(Sender: TObject);
+    procedure OnClose(Sender: TObject);
+    procedure OnLogOff(Sender: TObject);
+    procedure OnShutdown(Sender: TObject);
+
+    procedure Terminate;
+  public
+    constructor Create(AConsole: TJclConsole);
+
+    property Console: TJclConsole read FConsole;
+    property Terminated: Boolean read FTerminated;
+  end;
+
+constructor TCtrlEventHandler.Create(AConsole: TJclConsole);
+begin
+  FConsole    := AConsole;
+  FTerminated := False;
+
+  Console.OnCtrlC     := OnCtrlC;
+  Console.OnCtrlBreak := OnCtrlBreak;
+  Console.OnClose     := OnClose;
+  Console.OnLogOff    := OnLogOff;
+  Console.OnShutdown  := OnShutdown;
+end;
+
+procedure TCtrlEventHandler.Terminate;
+var
+  Evt: TInputRecord;
+begin
+  Sleep(1000);
+
+  FTerminated := True;
+
+  Evt.EventType := FOCUS_EVENT;
+  Evt.Event.FocusEvent.bSetFocus := False;
+  FConsole.Input.PutEvent(Evt);
+end;
+
+procedure TCtrlEventHandler.OnCtrlC(Sender: TObject);
+begin
+  Console.ActiveScreen.Writeln('Ctrl Event: Ctrl-C');
+end;
+
+procedure TCtrlEventHandler.OnCtrlBreak(Sender: TObject);
+begin
+  Console.ActiveScreen.Writeln('Ctrl Event: Ctrl-Break');
+end;
+
+procedure TCtrlEventHandler.OnClose(Sender: TObject);
+begin
+  Console.ActiveScreen.Writeln('Ctrl Event: Close');
+  Terminate;
+end;
+
+procedure TCtrlEventHandler.OnLogOff(Sender: TObject);
+begin
+  Console.ActiveScreen.Writeln('Ctrl Event: Logoff');
+  Terminate;
+end;
+
+procedure TCtrlEventHandler.OnShutdown(Sender: TObject);
+begin
+  Console.ActiveScreen.Writeln('Ctrl Event: Shutdown');
+  Terminate;
+end;
+
+procedure ShowInputInfo(const InputBuf: TJclInputBuffer);
+  function ModeToString: string;
+  var
+    AMode: TJclConsoleInputMode;
+  begin
+    for AMode:=Low(TJclConsoleInputMode) to High(TJclConsoleInputMode) do
+    begin
+      if AMode in InputBuf.Mode then
+      begin
+        if Result <> '' then
+          Result := Result + ', ';
+        Result := Result + GetEnumName(TypeInfo(TJclConsoleInputMode), Integer(AMode));
+      end;
+    end;
+  end;
+
+  procedure AddEvent;
+  var
+    ir: TInputRecord;
+  begin
+    ir.EventType := MENU_EVENT;
+    ir.Event.MenuEvent.dwCommandId := 111;
+    InputBuf.PutEvent(ir);
+  end;
+const
+  MOUSE_CLICKED = 0;
+  MOUSE_WHEELED = 3;
+  KeyDownBoolName: array[Boolean] of string = ('released', 'pressed');
+  SetFocusBoolName: array[Boolean] of string = ('deactivated', 'activated');
+var
+  I: DWORD;
+  OldPos: TCoord;
+  CtrlEvt: TCtrlEventHandler;
+  ScrBuf: TJclScreenBuffer;
+begin
+  ScrBuf := InputBuf.Console.ActiveScreen;
+  ScrBuf.WriteLn(Format('Input Event Count : %d', [InputBuf.EventCount]));
+
+  InputBuf.Mode := [imProcessed, imWindow, imMouse];
+  ScrBuf.Writeln('Input Mode : ' + ModeToString);
+
+  InputBuf.Clear;
+
+  AddEvent;
+
+  CtrlEvt := TCtrlEventHandler.Create(InputBuf.Console);
+  try
+    ScrBuf.WriteLn('Press [q] to break the loop...');
+    while not CtrlEvt.Terminated and InputBuf.WaitEvent do
+    begin
+      with InputBuf.GetEvent do
+        case EventType of
+        KEY_EVENT:
+        begin
+            ScrBuf.WriteLn(Format('Key (%s)$%.2x is %s %d times',
+             [Event.KeyEvent.AsciiChar, Event.KeyEvent.wVirtualKeyCode,
+              KeyDownBoolName[Event.KeyEvent.bKeyDown], Event.KeyEvent.wRepeatCount]));
+
+            if Event.KeyEvent.AsciiChar = 'q' then
+              Break;
+        end;
+        _MOUSE_EVENT:
+        begin
+          case Event.MouseEvent.dwEventFlags of
+            MOUSE_CLICKED:
+            begin
+              for I:= 1 to TJclConsole.MouseButtonCount do
+              if (Event.MouseEvent.dwButtonState and (1 shl (I - 1))) <> 0 then
+              begin
+                ScrBuf.Write(Format('Mouse %d button click at', [I]));
+                Break;
+              end;
+              if I > TJclConsole.MouseButtonCount then
+                ScrBuf.Write('Mouse button released at');
+            end;
+            DOUBLE_CLICK:
+              ScrBuf.Write('Mouse double-click at');
+            MOUSE_MOVED:
+            begin
+              if (OldPos.X <> Event.MouseEvent.dwMousePosition.X) or
+                 (OldPos.Y <> Event.MouseEvent.dwMousePosition.Y) then
+              begin
+                ScrBuf.Write('Mouse move to');
+                OldPos := Event.MouseEvent.dwMousePosition;
+              end
+              else
+                Continue;
+            end;
+            MOUSE_WHEELED:
+              ScrBuf.Write('Mouse wheeled at');
+          else
+            ScrBuf.Write('Mouse unknown action at');
+          end;
+
+          ScrBuf.WriteLn(Format(' (%d, %d) ', [Event.MouseEvent.dwMousePosition.X, Event.MouseEvent.dwMousePosition.Y]));
+       end;
+        WINDOW_BUFFER_SIZE_EVENT:
+          ScrBuf.WriteLn(Format('Screen buffer size is change to (%d, %d)',
+            [Event.WindowBufferSizeEvent.dwSize.X, Event.WindowBufferSizeEvent.dwSize.Y]));
+        MENU_EVENT:
+          ScrBuf.WriteLn(Format('Menu command %d is selected', [Event.MenuEvent.dwCommandId]));
+        FOCUS_EVENT:
+          ScrBuf.Writeln('Console window is ' + SetFocusBoolName[Event.FocusEvent.bSetFocus]);
+        else
+          ScrBuf.WriteLn(Format('Unknown event - %d', [EventType]));
+        end;
+    end;
+  finally
+    FreeAndNil(CtrlEvt);
+  end;
+end;
+
+var
+  ScrBuf, NewScrBuf: TJclScreenBuffer;
+begin
+  ShowConsoleInfo(TJclConsole.Default);
+
+  ScrBuf := TJclConsole.Default.ActiveScreen;
+
+  ShowScreenInfo(ScrBuf);
+  ShowCursorInfo(ScrBuf);
+  ShowWindowInfo(ScrBuf);
+
+  ScrBuf.Clear;
+
+  NewScrBuf := TJclConsole.Default.Add;
+  ShowTextAttributeInfo(NewScrBuf);
+  TJclConsole.Default.ActiveScreen := NewScrBuf;
+
+  ShowInputInfo(TJclConsole.Default.Input);
+
+  NewScrBuf.Clear;
+
+  TJclConsole.Default.ActiveScreen := ScrBuf;
+end.


Property changes on: trunk/jcl/examples/windows/debug/mttest
___________________________________________________________________
Modified: bugtraq:logregex
   - [Mm]antis #?(\d+)(,? ?#?(\d+))+
(\d+)
   + [Mm]antis #?(\d+)(,? ?#?(\d+))+
(\d+)


Property changes on: trunk/jcl/examples/windows/widestring
___________________________________________________________________
Modified: bugtraq:logregex
   - [Mm]antis #?(\d+)(,? ?#?(\d+))+
(\d+)
   + [Mm]antis #?(\d+)(,? ?#?(\d+))+
(\d+)


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:[2962] trunk/jcl/packages/JclPackagesD120.groupproj

From: <ou...@us...> - 2009-08-22 15:31:24

Revision: 2962
          http://jcl.svn.sourceforge.net/jcl/?rev=2962&view=rev
Author:   outchy
Date:     2009-08-22 15:31:16 +0000 (Sat, 22 Aug 2009)

Log Message:
-----------
project group style cleanup.

Modified Paths:
--------------
    trunk/jcl/packages/JclPackagesD120.groupproj

Modified: trunk/jcl/packages/JclPackagesD120.groupproj
===================================================================
--- trunk/jcl/packages/JclPackagesD120.groupproj	2009-08-22 15:18:41 UTC (rev 2961)
+++ trunk/jcl/packages/JclPackagesD120.groupproj	2009-08-22 15:31:16 UTC (rev 2962)
@@ -38,10 +38,13 @@
 			</Projects>
 		</ItemGroup>
 		<ProjectExtensions>
-			<Borland.Personality>Default.Personality</Borland.Personality>
+			<Borland.Personality>Default.Personality.12</Borland.Personality>
 			<Borland.ProjectType/>
-			<BorlandProject><BorlandProject><Default.Personality></Default.Personality></BorlandProject>
-</BorlandProject>
+			<BorlandProject>
+				<BorlandProject>
+					<Default.Personality/>
+				</BorlandProject>
+			</BorlandProject>
 		</ProjectExtensions>
 		<Target Name="Jcl">
 			<MSBuild Projects="d12\Jcl.dproj"/>


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:[2961] trunk/jcl/experts/repository/JclOtaRepositoryReg.pas

From: <ou...@us...> - 2009-08-22 15:18:49

Revision: 2961
          http://jcl.svn.sourceforge.net/jcl/?rev=2961&view=rev
Author:   outchy
Date:     2009-08-22 15:18:41 +0000 (Sat, 22 Aug 2009)

Log Message:
-----------
Sometimes the DELPHI compiler keyword is not defined and the repository expert was not successfully registered.

Modified Paths:
--------------
    trunk/jcl/experts/repository/JclOtaRepositoryReg.pas

Modified: trunk/jcl/experts/repository/JclOtaRepositoryReg.pas
===================================================================
--- trunk/jcl/experts/repository/JclOtaRepositoryReg.pas	2009-08-22 15:17:35 UTC (rev 2960)
+++ trunk/jcl/experts/repository/JclOtaRepositoryReg.pas	2009-08-22 15:18:41 UTC (rev 2961)
@@ -32,15 +32,16 @@
 
 {$I jcl.inc}
 
-{$IFDEF DELPHI}
+{$IFDEF DELPHI6_UP}
 {$DEFINE DELPHIEXCDLG}
-{$ENDIF DELPHI}
+{$ENDIF DELPHI6_UP}
 
-{$IFDEF BCB}
+{$IFDEF BCB6_UP}
 {$DEFINE CBUILDEREXCDLG}
-{$ENDIF BCB}
+{$ENDIF BCB6_UP}
 
 {$IFDEF COMPILER10_UP}
+{$DEFINE DELPHIEXCDLG}
 {$DEFINE CBUILDEREXCDLG}
 {$ENDIF COMPILER10_UP}
 
@@ -107,14 +108,14 @@
 procedure Register;
 begin
   try
-    {$IFDEF DELPHI}
+    {$IFDEF DELPHIEXCDLG}
     if TJclOTAExpertBase.IsPersonalityLoaded(JclDelphiPersonality) then
       RegisterPackageWizard(TJclExcDlgDelphiExpert.Create);
-    {$ENDIF DELPHI}
-    {$IFDEF BCB}
+    {$ENDIF DELPHIEXCDLG}
+    {$IFDEF CBUILDEREXCDLG}
     if TJclOTAExpertBase.IsPersonalityLoaded(JclCBuilderPersonality) then
       RegisterPackageWizard(TJclExcDlgCBuilderExpert.Create);
-    {$ENDIF BCB}
+    {$ENDIF CBUILDEREXCDLG}
   except
     on ExceptionObj: TObject do
     begin
@@ -125,12 +126,12 @@
 end;
 
 var
-  {$IFDEF DELPHI}
+  {$IFDEF DELPHIEXCDLG}
   JCLDelphiWizardIndex: Integer = -1;
-  {$ENDIF DELPHI}
-  {$IFDEF BCB}
+  {$ENDIF DELPHIEXCDLG}
+  {$IFDEF CBUILDEREXCDLG}
   JclCBuilderWizardIndex: Integer = -1;
-  {$ENDIF BCB}
+  {$ENDIF CBUILDEREXCDLG}
 
 procedure JclWizardTerminate;
 var
@@ -139,15 +140,15 @@
   try
     OTAWizardServices := TJclOTAExpertBase.GetOTAWizardServices;
     
-    {$IFDEF DELPHI}
+    {$IFDEF DELPHIEXCDLG}
     if JCLDelphiWizardIndex <> -1 then
       OTAWizardServices.RemoveWizard(JCLDelphiWizardIndex);
-    {$ENDIF DELPHI}
+    {$ENDIF DELPHIEXCDLG}
 
-    {$IFDEF BCB}
+    {$IFDEF CBUILDEREXCDLG}
     if JclCBuilderWizardIndex <> -1 then
       OTAWizardServices.RemoveWizard(JclCBuilderWizardIndex);
-    {$ENDIF BCB}
+    {$ENDIF CBUILDEREXCDLG}
   except
     on ExceptionObj: TObject do
     begin
@@ -167,14 +168,14 @@
 
     OTAWizardServices := TJclOTAExpertBase.GetOTAWizardServices;
 
-    {$IFDEF DELPHI}
+    {$IFDEF DELPHIEXCDLG}
     //if IsPersonalityLoaded(BorlandIDEServices, JclDelphiPersonality) then
     //  JCLDelphiWizardIndex := OTAWizardServices.AddWizard(TJclExcDlgDelphiExpert.Create);
-    {$ENDIF DELPHI}
-    {$IFDEF BCB}
+    {$ENDIF DELPHIEXCDLG}
+    {$IFDEF CBUILDEREXCDLG}
     //if IsPersonalityLoaded(BorlandIDEServices, JclCBuilderPersonality) then
     //  JclCBuilderWizardIndex := OTAWizardServices.AddWizard(TJclExcDlgCBuilderExpert.Create);
-    {$ENDIF BCB}
+    {$ENDIF CBUILDEREXCDLG}
     Result := True;
   except
     on ExceptionObj: TObject do


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

From: <ou...@us...> - 2009-08-22 15:17:41

Revision: 2960
          http://jcl.svn.sourceforge.net/jcl/?rev=2960&view=rev
Author:   outchy
Date:     2009-08-22 15:17:35 +0000 (Sat, 22 Aug 2009)

Log Message:
-----------
Fix for Delphi 6/C++Builder 6.

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

Modified: trunk/jcl/source/windows/JclTimeZones.pas
===================================================================
--- trunk/jcl/source/windows/JclTimeZones.pas	2009-08-22 12:26:22 UTC (rev 2959)
+++ trunk/jcl/source/windows/JclTimeZones.pas	2009-08-22 15:17:35 UTC (rev 2960)
@@ -164,7 +164,7 @@
 function GetCurrentTimeZoneUTCBias: Integer;
 
 // Misc UTC related functions
-function GetWMIScheduledJobUTCTime(Time: TTime): string;
+function GetWMIScheduledJobUTCTime(Time: TDateTime): string;
 function UTCNow: TDateTime;
 
 {$IFDEF UNITVERSIONING}
@@ -498,7 +498,7 @@
 // like Windows does something a bit odd with remote scheduled jobs, it's not
 // handling the time correctly at all.  So much for UTC.
 
-function GetWMIScheduledJobUTCTime(Time: TTime): string;
+function GetWMIScheduledJobUTCTime(Time: TDateTime): string;
 var
   TimeBias: Integer;
   Hour, Min, Sec, MSec: Word;


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

From: <ou...@us...> - 2009-08-22 12:26:28

Revision: 2959
          http://jcl.svn.sourceforge.net/jcl/?rev=2959&view=rev
Author:   outchy
Date:     2009-08-22 12:26:22 +0000 (Sat, 22 Aug 2009)

Log Message:
-----------
header test for new JCL units.

Modified Paths:
--------------
    trunk/jcl/install/HeaderTest/jcl_a2z.cpp
    trunk/jcl/install/HeaderTest/jcl_z2a.cpp

Modified: trunk/jcl/install/HeaderTest/jcl_a2z.cpp
===================================================================
--- trunk/jcl/install/HeaderTest/jcl_a2z.cpp	2009-08-22 12:04:08 UTC (rev 2958)
+++ trunk/jcl/install/HeaderTest/jcl_a2z.cpp	2009-08-22 12:26:22 UTC (rev 2959)
@@ -38,6 +38,9 @@
 #ifdef TEST_COMMON
 #include <JclBorlandTools.hpp>
 #endif TEST_COMMON
+#ifdef TEST_COMMON
+#include <JclCharsets.hpp>
+#endif TEST_COMMON
 #ifdef TEST_WINDOWS
 #include <JclCIL.hpp>
 #endif TEST_WINDOWS
@@ -68,6 +71,15 @@
 #ifdef TEST_WINDOWS
 #include <JclDebug.hpp>
 #endif TEST_WINDOWS
+#ifdef TEST_WINDOWS
+#include <JclDebugSerialization.hpp>
+#endif TEST_WINDOWS
+#ifdef TEST_WINDOWS
+#include <JclDebugXMLDeserializer.hpp>
+#endif TEST_WINDOWS
+#ifdef TEST_WINDOWS
+#include <JclDebugXMLSerializer.hpp>
+#endif TEST_WINDOWS
 //#ifdef TEST_WINDOWS
 //#include <JclDotNet.hpp> mscorlib_TLB is known to fail
 //#endif TEST_WINDOWS
@@ -158,6 +170,9 @@
 #ifdef TEST_WINDOWS
 #include <JclMultimedia.hpp>
 #endif TEST_WINDOWS
+#ifdef TEST_COMMON
+#include <JclNotify.hpp>
+#endif TEST_COMMON
 //#ifdef TEST_WINDOWS
 //#include <JclNTFS.hpp> no declaration for IPropertyStorage
 //#endif TEST_WINDOWS
@@ -210,6 +225,9 @@
 #include <JclStrHashMap.hpp>
 #endif TEST_COMMON
 #ifdef TEST_COMMON
+#include <JclStringConversions.hpp>
+#endif TEST_COMMON
+#ifdef TEST_COMMON
 #include <JclStringLists.hpp>
 #endif TEST_COMMON
 #ifdef TEST_COMMON
@@ -221,9 +239,9 @@
 #ifdef TEST_WINDOWS
 #include <JclSvcCtrl.hpp>
 #endif TEST_WINDOWS
-#ifdef TEST_WINDOWS
+#ifdef TEST_COMMON
 #include <JclSynch.hpp>
-#endif TEST_WINDOWS
+#endif TEST_COMMON
 #ifdef TEST_COMMON
 #include <JclSysInfo.hpp>
 #endif TEST_COMMON
@@ -242,9 +260,9 @@
 #ifdef TEST_COMMON
 #include <JclTrees.hpp>
 #endif TEST_COMMON
-#ifdef TEST_WINDOWS
+#ifdef TEST_COMMON
 #include <JclUnicode.hpp>
-#endif TEST_WINDOWS
+#endif TEST_COMMON
 #ifdef TEST_COMMON
 #include <JclUnitConv.hpp>
 #endif TEST_COMMON
@@ -260,6 +278,15 @@
 #ifdef TEST_COMMON
 #include <JclVectors.hpp>
 #endif TEST_COMMON
+#ifdef TEST_VCL
+#include <JclVersionControl.hpp>
+#endif TEST_VCL
+#ifdef TEST_VCL
+#include <JclVersionCtrlCVSImpl.hpp>
+#endif TEST_VCL
+#ifdef TEST_VCL
+#include <JclVersionCtrlSVNImpl.hpp>
+#endif TEST_VCL
 #ifdef TEST_WINDOWS
 #include <JclWideFormat.hpp>
 #endif TEST_WINDOWS
@@ -291,11 +318,14 @@
 #include <pcre.hpp>
 #endif TEST_COMMON
 #ifdef TEST_WINDOWS
+#include <sevenzip.hpp>
+#endif TEST_WINDOWS
+#ifdef TEST_WINDOWS
 #include <Snmp.hpp>
 #endif TEST_WINDOWS
-#ifdef TEST_WINDOWS
+#ifdef TEST_COMMON
 #include <zlibh.hpp>
-#endif TEST_WINDOWS
+#endif TEST_COMMON
 #ifdef TEST_UNIX
 #include <zlibh.hpp>
 #endif TEST_UNIX

Modified: trunk/jcl/install/HeaderTest/jcl_z2a.cpp
===================================================================
--- trunk/jcl/install/HeaderTest/jcl_z2a.cpp	2009-08-22 12:04:08 UTC (rev 2958)
+++ trunk/jcl/install/HeaderTest/jcl_z2a.cpp	2009-08-22 12:26:22 UTC (rev 2959)
@@ -2,15 +2,18 @@
 
 //#pragma hdrstop
 
-#ifdef TEST_WINDOWS
+#ifdef TEST_COMMON
 #include <zlibh.hpp>
-#endif TEST_WINDOWS
+#endif TEST_COMMON
 #ifdef TEST_UNIX
 #include <zlibh.hpp>
 #endif TEST_UNIX
 #ifdef TEST_WINDOWS
 #include <Snmp.hpp>
 #endif TEST_WINDOWS
+#ifdef TEST_WINDOWS
+#include <sevenzip.hpp>
+#endif TEST_WINDOWS
 #ifdef TEST_COMMON
 #include <pcre.hpp>
 #endif TEST_COMMON
@@ -41,6 +44,15 @@
 #ifdef TEST_WINDOWS
 #include <JclWideFormat.hpp>
 #endif TEST_WINDOWS
+#ifdef TEST_VCL
+#include <JclVersionCtrlSVNImpl.hpp>
+#endif TEST_VCL
+#ifdef TEST_VCL
+#include <JclVersionCtrlCVSImpl.hpp>
+#endif TEST_VCL
+#ifdef TEST_VCL
+#include <JclVersionControl.hpp>
+#endif TEST_VCL
 #ifdef TEST_COMMON
 #include <JclVectors.hpp>
 #endif TEST_COMMON
@@ -56,9 +68,9 @@
 #ifdef TEST_COMMON
 #include <JclUnitConv.hpp>
 #endif TEST_COMMON
-#ifdef TEST_WINDOWS
+#ifdef TEST_COMMON
 #include <JclUnicode.hpp>
-#endif TEST_WINDOWS
+#endif TEST_COMMON
 #ifdef TEST_COMMON
 #include <JclTrees.hpp>
 #endif TEST_COMMON
@@ -77,9 +89,9 @@
 #ifdef TEST_COMMON
 #include <JclSysInfo.hpp>
 #endif TEST_COMMON
-#ifdef TEST_WINDOWS
+#ifdef TEST_COMMON
 #include <JclSynch.hpp>
-#endif TEST_WINDOWS
+#endif TEST_COMMON
 #ifdef TEST_WINDOWS
 #include <JclSvcCtrl.hpp>
 #endif TEST_WINDOWS
@@ -93,6 +105,9 @@
 #include <JclStringLists.hpp>
 #endif TEST_COMMON
 #ifdef TEST_COMMON
+#include <JclStringConversions.hpp>
+#endif TEST_COMMON
+#ifdef TEST_COMMON
 #include <JclStrHashMap.hpp>
 #endif TEST_COMMON
 #ifdef TEST_COMMON
@@ -143,6 +158,9 @@
 //#ifdef TEST_WINDOWS
 //#include <JclNTFS.hpp> no declaration for IPropertyStorage
 //#endif TEST_WINDOWS
+#ifdef TEST_COMMON
+#include <JclNotify.hpp>
+#endif TEST_COMMON
 #ifdef TEST_WINDOWS
 #include <JclMultimedia.hpp>
 #endif TEST_WINDOWS
@@ -234,6 +252,15 @@
 //#include <JclDotNet.hpp> mscorlib_TLB.hpp is known to fail
 //#endif TEST_WINDOWS
 #ifdef TEST_WINDOWS
+#include <JclDebugXMLSerializer.hpp>
+#endif TEST_WINDOWS
+#ifdef TEST_WINDOWS
+#include <JclDebugXMLDeserializer.hpp>
+#endif TEST_WINDOWS
+#ifdef TEST_WINDOWS
+#include <JclDebugSerialization.hpp>
+#endif TEST_WINDOWS
+#ifdef TEST_WINDOWS
 #include <JclDebug.hpp>
 #endif TEST_WINDOWS
 #ifdef TEST_COMMON
@@ -264,6 +291,9 @@
 #include <JclCIL.hpp>
 #endif TEST_WINDOWS
 #ifdef TEST_COMMON
+#include <JclCharsets.hpp>
+#endif TEST_COMMON
+#ifdef TEST_COMMON
 #include <JclBorlandTools.hpp>
 #endif TEST_COMMON
 #ifdef TEST_COMMON


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

From: <ou...@us...> - 2009-08-22 12:04:24

Revision: 2958
          http://jcl.svn.sourceforge.net/jcl/?rev=2958&view=rev
Author:   outchy
Date:     2009-08-22 12:04:08 +0000 (Sat, 22 Aug 2009)

Log Message:
-----------
Donation processing: timezones.pas unit (renamed to JclTimeZones.pas).

Modified Paths:
--------------
    trunk/jcl/install/HeaderTest/jcl_a2z.cpp
    trunk/jcl/install/HeaderTest/jcl_z2a.cpp
    trunk/jcl/packages/c6/Jcl.bpk
    trunk/jcl/packages/c6/Jcl.dpk
    trunk/jcl/packages/d10/Jcl.dpk
    trunk/jcl/packages/d11/Jcl.dpk
    trunk/jcl/packages/d11/Jcl.dproj
    trunk/jcl/packages/d12/Jcl.dpk
    trunk/jcl/packages/d12/Jcl.dproj
    trunk/jcl/packages/d6/Jcl.dpk
    trunk/jcl/packages/d7/Jcl.dpk
    trunk/jcl/packages/d9/Jcl.dpk
    trunk/jcl/packages/fpc/Jcl.lpk
    trunk/jcl/packages/fpc/Jcl.pas
    trunk/jcl/packages/xml/Jcl-R.xml

Added Paths:
-----------
    trunk/jcl/examples/windows/timezones/
    trunk/jcl/examples/windows/timezones/Mainfrm.dfm
    trunk/jcl/examples/windows/timezones/Mainfrm.pas
    trunk/jcl/examples/windows/timezones/TimeZoneDemo.dof
    trunk/jcl/examples/windows/timezones/TimeZoneDemo.dpr
    trunk/jcl/examples/windows/timezones/TimeZoneDemo.res
    trunk/jcl/source/windows/JclTimeZones.pas


Property changes on: trunk/jcl/examples/windows/timezones
___________________________________________________________________
Added: tsvn:projectlanguage
   + 0x0409
Added: bugtraq:url
   + http://issuetracker.delphi-jedi.org/view.php?id=%BUGID%
Added: bugtraq:message
   + (Mantis #%BUGID%)
Added: svn:ignore
   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj

Added: bugtraq:logregex
   + [Mm]antis #?(\d+)(,? ?#?(\d+))+
(\d+)

Added: trunk/jcl/examples/windows/timezones/Mainfrm.dfm
===================================================================
--- trunk/jcl/examples/windows/timezones/Mainfrm.dfm	                        (rev 0)
+++ trunk/jcl/examples/windows/timezones/Mainfrm.dfm	2009-08-22 12:04:08 UTC (rev 2958)
@@ -0,0 +1,6517 @@
+object Form1: TForm1
+  Left = 367
+  Top = 171
+  BorderIcons = [biSystemMenu, biHelp]
+  BorderStyle = bsDialog
+  Caption = 'Date and Time Properties'
+  ClientHeight = 317
+  ClientWidth = 398
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Shell Dlg 2'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  DesignSize = (
+    398
+    317)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object PageControl1: TPageControl
+    Left = 6
+    Top = 6
+    Width = 384
+    Height = 273
+    ActivePage = TimeZoneTab
+    TabOrder = 0
+    object TimeZoneTab: TTabSheet
+      Caption = 'Time Zone'
+      ImageIndex = 1
+      object Image1: TImage
+        Left = 12
+        Top = 36
+        Width = 356
+        Height = 184
+        AutoSize = True
+        Picture.Data = {
+          07544269746D6170D6FF0200424DD6FF02000000000036000000280000006401
+          0000B80000000100180000000000A0FF02000000000000000000000000000000
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F0000007F00
+          007F007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F0000007F00007F00007F00007F007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F0000007F00007F00007F00007F00007F00007F00007F
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F0000007F00007F00007F
+          00007F00007F00007F007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F0000007F00007F007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          00007F00007F00007F00007F00007F00007F007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          0000007F00007F00007F007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F0000007F00007F00007F00007F00007F00007F007F00007F
+          00007F00007F00007F00007F0000007F007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F0000007F007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F0000007F00007F00007F0000
+          7F00007F007F00007F00007F00007F00007F00007F0000007F00007F00007F00
+          007F00007F007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F000000
+          7F00007F00007F00007F00007F00007F007F00007F00007F00007F00007F0000
+          7F00007F0000007F00007F00007F00007F007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F0000007F00007F00007F00007F00007F00007F00007F00
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F0000007F007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F0000007F00007F00007F00
+          007F00007F00007F00007F00007F007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F0000007F00007F007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F0000007F00007F00007F00007F00007F00007F00007F00007F00007F007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F0000007F00007F00007F00007F00007F00007F
+          00007F00007F00007F007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F0000007F00007F00007F007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F0000007F00007F
+          00007F00007F00007F00007F00007F00007F00007F007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F000000
+          7F00007F00007F00007F007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F0000007F00007F00007F00007F00007F00007F00007F007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F0000007F00007F00007F00007F00007F007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F0000007F00007F00007F00007F0000
+          7F00007F00007F00007F007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F0000007F00007F00
+          007F00007F00007F007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          0000007F00007F00007F00007F00007F00007F00007F00007F007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F0000007F00007F00007F00007F00007F007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F0000007F00007F00007F00007F00007F00
+          007F00007F007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F0000007F00007F007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F0000007F00007F00007F
+          00007F007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F0000007F00
+          007F00007F00007F00007F00007F00007F007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F
+          00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
+          7F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00
+          007F00007F00007F00007F00007F00007F0000...
 
[truncated message content]

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

From: <ou...@us...> - 2009-08-22 08:40:06

Revision: 2957
          http://jcl.svn.sourceforge.net/jcl/?rev=2957&view=rev
Author:   outchy
Date:     2009-08-22 08:39:58 +0000 (Sat, 22 Aug 2009)

Log Message:
-----------
Mantis 4830: Better error message in StrEscapedToString function.
removed nested functions side effects.

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

Modified: trunk/jcl/source/common/JclAnsiStrings.pas
===================================================================
--- trunk/jcl/source/common/JclAnsiStrings.pas	2009-08-22 04:27:55 UTC (rev 2956)
+++ trunk/jcl/source/common/JclAnsiStrings.pas	2009-08-22 08:39:58 UTC (rev 2957)
@@ -1387,19 +1387,17 @@
 end;
 
 function StrEscapedToString(const S: AnsiString): AnsiString;
-var
-  I, Len: SizeInt;
-
-  procedure HandleHexEscapeSeq;
+  procedure HandleHexEscapeSeq(const S: AnsiString; var I: SizeInt; Len: SizeInt; var Dest: AnsiString);
   const
     HexDigits = AnsiString('0123456789abcdefABCDEF');
   var
-    Val, N: SizeInt;
+    StartI, Val, N: SizeInt;
   begin
+    StartI := I;
     N := Pos(S[I + 1], HexDigits) - 1;
     if N < 0 then
       // '\x' without hex digit following is not escape sequence
-      Result := Result + '\x'
+      Dest := Dest + '\x'
     else
     begin
       Inc(I); // Jump over x
@@ -1420,18 +1418,19 @@
       end;
 
       if Val > Ord(High(AnsiChar)) then
-        raise EJclAnsiStringError.CreateRes(@RsNumericConstantTooLarge);
+        raise EJclAnsiStringError.CreateResFmt(@RsNumericConstantTooLarge, [Val, StartI]);
 
-      Result := Result + AnsiChar(Val);
+      Dest := Dest + AnsiChar(Val);
     end;
   end;
 
-  procedure HandleOctEscapeSeq;
+  procedure HandleOctEscapeSeq(const S: AnsiString; var I: SizeInt; Len: SizeInt; var Dest: AnsiString);
   const
     OctDigits = AnsiString('01234567');
   var
-    Val, N: SizeInt;
+    StartI, Val, N: SizeInt;
   begin
+    StartI := I;
     // first digit
     Val := Pos(S[I], OctDigits) - 1;
     if I < Len then
@@ -1454,11 +1453,13 @@
     end;
 
     if Val > Ord(High(AnsiChar)) then
-      raise EJclAnsiStringError.CreateRes(@RsNumericConstantTooLarge);
+      raise EJclAnsiStringError.CreateResFmt(@RsNumericConstantTooLarge, [Val, StartI]);
 
-    Result := Result + AnsiChar(Val);
+    Dest := Dest + AnsiChar(Val);
   end;
 
+var
+  I, Len: SizeInt;
 begin
   Result := '';
   I := 1;
@@ -1496,13 +1497,13 @@
         'x':
           if I < Len then
             // Start of hex escape sequence
-            HandleHexEscapeSeq
+            HandleHexEscapeSeq(S, I, Len, Result)
           else
             // '\x' at end of AnsiString is not escape sequence
             Result := Result + '\x';
         '0'..'7':
           // start of octal escape sequence
-          HandleOctEscapeSeq;
+          HandleOctEscapeSeq(S, I, Len, Result);
       else
         // no escape sequence
         Result := Result + '\' + S[I];

Modified: trunk/jcl/source/common/JclResources.pas
===================================================================
--- trunk/jcl/source/common/JclResources.pas	2009-08-22 04:27:55 UTC (rev 2956)
+++ trunk/jcl/source/common/JclResources.pas	2009-08-22 08:39:58 UTC (rev 2957)
@@ -1771,7 +1771,7 @@
 resourcestring
   RsBlankSearchString       = 'Search string cannot be blank';
   RsInvalidEmptyStringItem  = 'String list passed to StringsToMultiSz cannot contain empty strings.';
-  RsNumericConstantTooLarge = 'Numeric constant too large.';
+  RsNumericConstantTooLarge = 'Numeric constant too large (%d) at position %d.';
   RsFormatException         = 'Format exception';
   RsDotNetFormatNullFormat  = 'Format string is null';
   RsArgumentIsNull          = 'Argument %d is null';

Modified: trunk/jcl/source/common/JclStrings.pas
===================================================================
--- trunk/jcl/source/common/JclStrings.pas	2009-08-22 04:27:55 UTC (rev 2956)
+++ trunk/jcl/source/common/JclStrings.pas	2009-08-22 08:39:58 UTC (rev 2957)
@@ -1023,19 +1023,17 @@
 end;
 
 function StrEscapedToString(const S: string): string;
-var
-  I, Len: SizeInt;
-
-  procedure HandleHexEscapeSeq;
+  procedure HandleHexEscapeSeq(const S: string; var I: SizeInt; Len: SizeInt; var Dest: string);
   const
     HexDigits = string('0123456789abcdefABCDEF');
   var
-    Val, N: SizeInt;
+    StartI, Val, N: SizeInt;
   begin
+    StartI := I;
     N := Pos(S[I + 1], HexDigits) - 1;
     if N < 0 then
       // '\x' without hex digit following is not escape sequence
-      Result := Result + '\x'
+      Dest := Dest + '\x'
     else
     begin
       Inc(I); // Jump over x
@@ -1056,18 +1054,19 @@
       end;
 
       if Val > Ord(High(Char)) then
-        raise EJclStringError.CreateRes(@RsNumericConstantTooLarge);
+        raise EJclStringError.CreateResFmt(@RsNumericConstantTooLarge, [Val, StartI]);
 
-      Result := Result + Char(Val);
+      Dest := Dest + Char(Val);
     end;
   end;
 
-  procedure HandleOctEscapeSeq;
+  procedure HandleOctEscapeSeq(const S: string; var I: SizeInt; Len: SizeInt; var Dest: string);
   const
     OctDigits = string('01234567');
   var
-    Val, N: SizeInt;
+    StartI, Val, N: SizeInt;
   begin
+    StartI := I;
     // first digit
     Val := Pos(S[I], OctDigits) - 1;
     if I < Len then
@@ -1090,11 +1089,13 @@
     end;
 
     if Val > Ord(High(Char)) then
-      raise EJclStringError.CreateRes(@RsNumericConstantTooLarge);
+      raise EJclStringError.CreateResFmt(@RsNumericConstantTooLarge, [Val, StartI]);
 
-    Result := Result + Char(Val);
+    Dest := Dest + Char(Val);
   end;
 
+var
+  I, Len: SizeInt;
 begin
   Result := '';
   I := 1;
@@ -1132,13 +1133,13 @@
         'x':
           if I < Len then
             // Start of hex escape sequence
-            HandleHexEscapeSeq
+            HandleHexEscapeSeq(S, I, Len, Result)
           else
             // '\x' at end of string is not escape sequence
             Result := Result + '\x';
         '0'..'7':
           // start of octal escape sequence
-          HandleOctEscapeSeq;
+          HandleOctEscapeSeq(S, I, Len, Result);
       else
         // no escape sequence
         Result := Result + '\' + S[I];


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:[2956] trunk/jcl/clean.bat

From: <ou...@us...> - 2009-08-22 04:28:03

Revision: 2956
          http://jcl.svn.sourceforge.net/jcl/?rev=2956&view=rev
Author:   outchy
Date:     2009-08-22 04:27:55 +0000 (Sat, 22 Aug 2009)

Log Message:
-----------
Kylix is not supported anymore.

Modified Paths:
--------------
    trunk/jcl/clean.bat

Modified: trunk/jcl/clean.bat
===================================================================
--- trunk/jcl/clean.bat	2009-08-21 15:59:23 UTC (rev 2955)
+++ trunk/jcl/clean.bat	2009-08-22 04:27:55 UTC (rev 2956)
@@ -1,7 +1,7 @@
 @echo cleaning...
 @REM do not delete precompiled installer
-@for %%f in (bin\*.exe) do @if not %%f==bin\JediInstaller.exe if not %%f==bin\QJediInstaller.exe (del %%f)
-@del /f /s *.~* *.bk bin\*.dll *.a *.bpi *.dcp *.dcu *.dpu *.hpp *.jdbg *.map *.o
+@for %%f in (bin\*.exe) do @if not %%f==bin\JediInstaller.exe (del %%f)
+@del /f /s *.~* *.bk bin\*.dll *.a *.bpi *.dcp *.dcu *.hpp *.jdbg *.map *.o
 @cd lib
 @del /f /s *.obj *.res *.lib *.bpi
 @cd ..


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:[2955] trunk

From: <ou...@us...> - 2009-08-21 15:59:31

Revision: 2955
          http://jcl.svn.sourceforge.net/jcl/?rev=2955&view=rev
Author:   outchy
Date:     2009-08-21 15:59:23 +0000 (Fri, 21 Aug 2009)

Log Message:
-----------
jpp, jpp.exe and pgEdit.exe binary files should not be under version control.

Modified Paths:
--------------
    trunk/thirdparty/svn_cleaner/SvnCleaner.xml

Added Paths:
-----------
    trunk/jcl/devtools/howto-jpp.txt
    trunk/jcl/devtools/howto-pdEdit.txt

Removed Paths:
-------------
    trunk/jcl/devtools/jpp
    trunk/jcl/devtools/jpp.exe
    trunk/jcl/devtools/pgEdit.exe

Property Changed:
----------------
    trunk/jcl/devtools/


Property changes on: trunk/jcl/devtools
___________________________________________________________________
Added: svn:ignore
   + *.exe


Added: trunk/jcl/devtools/howto-jpp.txt
===================================================================
--- trunk/jcl/devtools/howto-jpp.txt	                        (rev 0)
+++ trunk/jcl/devtools/howto-jpp.txt	2009-08-21 15:59:23 UTC (rev 2955)
@@ -0,0 +1,2 @@
+JPP (JEDI PreProcessor) executable has to be placed in this directory.
+It can be built from the source jpp.dpr available at https://jcl.svn.sourceforge.net:443/svnroot/jcl/trunk/jpp/


Property changes on: trunk/jcl/devtools/howto-jpp.txt
___________________________________________________________________
Added: svn:mime-type
   + text/plain
Added: svn:eol-style
   + native

Added: trunk/jcl/devtools/howto-pdEdit.txt
===================================================================
--- trunk/jcl/devtools/howto-pdEdit.txt	                        (rev 0)
+++ trunk/jcl/devtools/howto-pdEdit.txt	2009-08-21 15:59:23 UTC (rev 2955)
@@ -0,0 +1,3 @@
+pgEdit (Packages Generator and Editor) executable has to be placed in this directory.
+It can be built from the source pgEdit.dpr located at https://jvcl.svn.sourceforge.net:443/svnroot/jvcl/trunk/jvcl/devtools/PackagesGenerator/
+Building this tool requires the installation of the JVCL (http://jvcl.delphi-jedi.org/).


Property changes on: trunk/jcl/devtools/howto-pdEdit.txt
___________________________________________________________________
Added: svn:mime-type
   + text/plain
Added: svn:eol-style
   + native

Deleted: trunk/jcl/devtools/jpp
===================================================================
(Binary files differ)

Deleted: trunk/jcl/devtools/jpp.exe
===================================================================
(Binary files differ)

Deleted: trunk/jcl/devtools/pgEdit.exe
===================================================================
(Binary files differ)

Modified: trunk/thirdparty/svn_cleaner/SvnCleaner.xml
===================================================================
--- trunk/thirdparty/svn_cleaner/SvnCleaner.xml	2009-08-21 15:40:34 UTC (rev 2954)
+++ trunk/thirdparty/svn_cleaner/SvnCleaner.xml	2009-08-21 15:59:23 UTC (rev 2955)
@@ -113,15 +113,12 @@
           <value>*.pdb</value>
           <value>*.map</value>
         </property>
-     </setting>
+      </setting>
 
-     <setting path="devtools" mask="jpp" recurse="no" dironly="no">
-        <property name="svn:mime-type">
-          <value>application/octet-stream</value>
+      <setting path="devtools" mask="" recurse="no" dironly="yes">
+        <property name="svn:ignore">
+          <value>*.exe</value>
         </property>
-        <property name="svn:executable">
-          <value>*</value>
-        </property>
       </setting>
 
       <setting path="" mask="examples*" recurse="yes" dironly="yes">


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:[2954] trunk

From: <ou...@us...> - 2009-08-21 15:40:43

Revision: 2954
          http://jcl.svn.sourceforge.net/jcl/?rev=2954&view=rev
Author:   outchy
Date:     2009-08-21 15:40:34 +0000 (Fri, 21 Aug 2009)

Log Message:
-----------
prototype removal of the installer GUI, this removes the dependency on jpp.exe at installation time.

Modified Paths:
--------------
    trunk/jcl/Install.bat
    trunk/thirdparty/svn_cleaner/SvnCleaner.xml

Added Paths:
-----------
    trunk/jcl/install/VclGui/JediGUIInstall.pas
    trunk/jcl/install/VclGui/JediGUIMain.pas
    trunk/jcl/install/VclGui/JediGUIReadme.pas

Removed Paths:
-------------
    trunk/jcl/install/prototypes/

Property Changed:
----------------
    trunk/jcl/install/VclGui/

Modified: trunk/jcl/Install.bat
===================================================================
--- trunk/jcl/Install.bat	2009-08-21 15:11:17 UTC (rev 2953)
+++ trunk/jcl/Install.bat	2009-08-21 15:40:34 UTC (rev 2954)
@@ -4,16 +4,6 @@
 
 cd install
 
-::jpp prototypes
-
-..\devtools\jpp.exe -c -dVCL -dMSWINDOWS -uUnix -xVclGui\ prototypes\JediGUIMain.pas
-if ERRORLEVEL 1 goto FailedCompile
-..\devtools\jpp.exe -c -dVCL -dMSWINDOWS -uUnix -xVclGui\ prototypes\JediGUIReadme.pas
-if ERRORLEVEL 1 goto FailedCompile
-..\devtools\jpp.exe -c -dVCL -dMSWINDOWS -uUnix -xVclGui\ prototypes\JediGUIInstall.pas
-if ERRORLEVEL 1 goto FailedCompile
-
-
 :: compile installer
 
 build\dcc32ex.exe --runtime-package-rtl --runtime-package-vcl --preserve-config -q -w -dJCLINSTALL -E..\bin -I..\source\include -U..\source\common;..\source\windows JediInstaller.dpr


Property changes on: trunk/jcl/install/VclGui
___________________________________________________________________
Modified: svn:ignore
   - JediGUIInstall.pas
JediGUIMain.pas
JediGUIReadme.pas
*.dcu
*.~*
__history
*.bak

   + *.dcu
*.~*
__history
*.bak


Copied: trunk/jcl/install/VclGui/JediGUIInstall.pas (from rev 2952, trunk/jcl/install/prototypes/JediGUIInstall.pas)
===================================================================
--- trunk/jcl/install/VclGui/JediGUIInstall.pas	                        (rev 0)
+++ trunk/jcl/install/VclGui/JediGUIInstall.pas	2009-08-21 15:40:34 UTC (rev 2954)
@@ -0,0 +1,784 @@
+{**************************************************************************************************}
+{                                                                                                  }
+{ Project JEDI Code Library (JCL) extension                                                        }
+{                                                                                                  }
+{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); }
+{ you may not use this file except in compliance with the License. You may obtain a copy of the    }
+{ License at http://www.mozilla.org/MPL/                                                           }
+{                                                                                                  }
+{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF   }
+{ ANY KIND, either express or implied. See the License for the specific language governing rights  }
+{ and limitations under the License.                                                               }
+{                                                                                                  }
+{ The Original Code is JediInstallerMain.pas.                                                      }
+{                                                                                                  }
+{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are     }
+{ Copyright (C) of Petr Vones. All Rights Reserved.                                                }
+{                                                                                                  }
+{ Contributors:                                                                                    }
+{   Andreas Hausladen (ahuser)                                                                     }
+{   Robert Rossmair (rrossmair) - crossplatform & BCB support, refactoring                         }
+{   Florent Ouchet (outchy) - New installer core                                                   }
+{                                                                                                  }
+{**************************************************************************************************}
+{                                                                                                  }
+{ Last modified: $Date::                                                                         $ }
+{ Revision:      $Rev::                                                                          $ }
+{ Author:        $Author::                                                                       $ }
+{                                                                                                  }
+{**************************************************************************************************}
+
+unit JediGUIInstall;
+
+{$I jcl.inc}
+{$I crossplatform.inc}
+
+interface
+
+uses
+  SysUtils, Classes,
+  Graphics, Forms, Controls, StdCtrls, ComCtrls, ExtCtrls, FrmCompile,
+  JclBorlandTools, JediInstall;
+
+type
+  TSetIconEvent = procedure(Sender: TObject; const FileName: string) of object;
+
+  TInstallFrame = class(TFrame, IJediInstallPage, IJediPage)
+    ComponentsTreePanel: TPanel;
+    Label1: TLabel;
+    TreeView: TTreeView;
+    Splitter: TSplitter;
+    InfoPanel: TPanel;
+    Label2: TLabel;
+    InfoDisplay: TRichEdit;
+    OptionsGroupBox: TGroupBox;
+    ProgressBar: TProgressBar;
+    procedure SplitterCanResize(Sender: TObject; var NewSize: Integer;
+      var Accept: Boolean);
+    procedure TreeViewMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure TreeViewKeyPress(Sender: TObject; var Key: Char);
+    procedure TreeViewCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode;
+      State: TCustomDrawState; var DefaultDraw: Boolean);
+  private
+    FNodeData: TList;
+    FDirectories: TList;
+    FCheckedCount: Integer;
+    FInstallCount: Integer;
+    FInstalling: Boolean;
+    FOnSetIcon: TSetIconEvent;
+    FFormCompile: TFormCompile;
+    function GetFormCompile: TFormCompile;
+    function GetNodeChecked(Node: TTreeNode): Boolean;
+    function IsAutoChecked(Node: TTreeNode): Boolean;
+    function IsRadioButton(Node: TTreeNode): Boolean;
+    function IsStandAloneParent(Node: TTreeNode): Boolean;
+    function IsExpandable(Node: TTreeNode): Boolean;
+    procedure UpdateNode(N: TTreeNode; C: Boolean);
+    procedure SetNodeChecked(Node: TTreeNode; const Value: Boolean);
+    procedure ToggleNodeChecked(Node: TTreeNode);
+    procedure DirectoryEditChange(Sender: TObject);
+    procedure DirectorySelectBtnClick(Sender: TObject);
+    function GetNode(Id: Integer): TTreeNode;
+    procedure UpdateImageIndex(N: TTreeNode);
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    // IJediPage
+    function GetCaption: string;
+    procedure SetCaption(const Value: string);
+    function GetHintAtPos(ScreenX, ScreenY: Integer): string;
+    procedure Show;
+    // IJediInstallPage
+    procedure AddInstallOption(Id: Integer; Options: TJediInstallGUIOptions;
+      const Caption: string = ''; const Hint: string = ''; Parent: Integer = -1);
+    procedure InitDisplay;
+    function GetOptionChecked(Id: Integer): Boolean;
+    procedure SetOptionChecked(Id: Integer; Value: Boolean);
+    function GetDirectoryCount: Integer;
+    function GetDirectory(Index: Integer): string;
+    procedure SetDirectory(Index: Integer; const Value: string);
+    function AddDirectory(Caption: string): Integer;
+    function GetProgress: Integer;
+    procedure SetProgress(Value: Integer);
+    procedure BeginInstall;
+    procedure MarkOptionBegin(Id: Integer);
+    procedure MarkOptionEnd(Id: Integer; Failed: Boolean);
+    procedure EndInstall;
+    procedure CompilationStart(const ProjectName: string);
+    procedure AddLogLine(const Line: string);
+    procedure AddHint(const Line: string);
+    procedure AddWarning(const Line: string);
+    procedure AddError(const Line: string);
+    procedure AddFatal(const Line: string);
+    procedure AddText(const Line: string);
+    procedure CompilationProgress(const FileName: string; LineNumber: Integer);
+    procedure SetIcon(const FileName: string);
+    property OnSetIcon: TSetIconEvent read FOnSetIcon write FOnSetIcon;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  Windows, Messages,
+  FileCtrl,
+  JclStrings;
+
+const
+  // Icon indexes
+  IcoUnchecked      = 0;
+  IcoChecked        = 1;
+  IcoRadioUnchecked = 2;
+  IcoRadioChecked   = 3;
+  IcoNotInstalled   = 4;
+  IcoFailed         = 5;
+  IcoInstalled      = 6;
+
+  IconIndexes: array [Boolean {RadioButton}, Boolean {Checked}] of Integer =
+   ( (IcoUnchecked, IcoChecked), (IcoRadioUnchecked, IcoRadioChecked) ); 
+
+type
+  TNodeRec = record
+    Id: Integer;
+    Options: TJediInstallGUIOptions;
+    Hint: string;
+  end;
+
+  PNodeRec = ^TNodeRec;
+
+  TDirectoryRec = record
+    Edit: TEdit;
+    Button: TButton;
+  end;
+
+  PDirectoryRec = ^TDirectoryRec;
+
+resourcestring
+  RsSelectPath      = 'Select path';
+  RsEnterValidPath  = '(Enter valid path)';
+  RsInvalidOption   = 'Invalid option: %d';
+  //RsDuplicateOption = 'Duplicate option: %s';
+  //RsCannotFindNode  = 'Cannot find node for Id %d';
+
+constructor TInstallFrame.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+
+  FNodeData := TList.Create;
+  FDirectories := TList.Create;
+end;
+
+destructor TInstallFrame.Destroy;
+var
+  Index: Integer;
+begin
+  for Index := FNodeData.Count - 1 downto 0 do
+    Dispose(FNodeData.Items[Index]);
+  FNodeData.Free;
+  for Index := FDirectories.Count - 1 downto 0 do
+    Dispose(FDirectories.Items[Index]);
+  FDirectories.Free;
+
+  inherited Destroy;
+end;
+
+procedure TInstallFrame.DirectoryEditChange(Sender: TObject);
+var
+  AEdit: TEdit;
+begin
+  AEdit := Sender as TEdit;
+  if DirectoryExists(AEdit.Text) then
+    AEdit.Font.Color := clWindowText
+  else
+    AEdit.Font.Color := clRed;
+end;
+
+function TInstallFrame.GetNodeChecked(Node: TTreeNode): Boolean;
+begin
+  Result := goChecked in PNodeRec(Node.Data)^.Options;
+end;
+
+function TInstallFrame.IsAutoChecked(Node: TTreeNode): Boolean;
+begin
+  Result := not (goNoAutoCheck in PNodeRec(Node.Data)^.Options);
+end;
+
+function TInstallFrame.IsRadioButton(Node: TTreeNode): Boolean;
+begin
+  Result := goRadioButton in PNodeRec(Node.Data)^.Options;
+end;
+
+function TInstallFrame.IsStandAloneParent(Node: TTreeNode): Boolean;
+begin
+  Result := goStandaloneParent in PNodeRec(Node.Data)^.Options;
+end;
+
+function TInstallFrame.IsExpandable(Node: TTreeNode): Boolean;
+begin
+  Result := goExpandable in PNodeRec(Node.Data)^.Options;
+end;
+
+procedure TInstallFrame.SetIcon(const FileName: string);
+begin
+  if Assigned(FOnSetIcon) then
+    FOnSetIcon(Self, FileName);
+end;
+
+procedure TInstallFrame.UpdateNode(N: TTreeNode; C: Boolean);
+var
+  ANodeRec: PNodeRec;
+begin
+  ANodeRec := N.Data;
+  if C then
+    Include(ANodeRec^.Options, goChecked)
+  else
+    Exclude(ANodeRec^.Options, goChecked);
+  UpdateImageIndex(N);
+end;
+
+procedure TInstallFrame.SetNodeChecked(Node: TTreeNode; const Value: Boolean);
+
+  procedure UpdateTreeDown(N: TTreeNode; C: Boolean);
+  begin
+    N := N.getFirstChild;
+    while Assigned(N) do
+    begin
+      if not C or IsAutoChecked(N) then
+      begin
+        if not IsRadioButton(N) then
+          UpdateNode(N, C);
+        UpdateTreeDown(N, C);
+      end;
+      N := N.getNextSibling;
+    end;
+  end;
+
+  procedure UpdateTreeUp(N: TTreeNode; C: Boolean);
+  var
+    ParentNode: TTreeNode;
+    ParentChecked: Boolean;
+  begin
+    if C then
+      while Assigned(N) do
+      begin
+        UpdateNode(N, True);
+        N := N.Parent;
+      end
+    else
+    begin
+      ParentNode := N.Parent;
+      while Assigned(ParentNode) do
+      begin
+        N := ParentNode.getFirstChild;
+        ParentChecked := IsStandAloneParent(ParentNode);
+        while Assigned(N) do
+          if GetNodeChecked(N) and not IsRadioButton(N) then
+          begin
+            ParentChecked := True;
+            Break;
+          end
+          else
+            N := N.getNextSibling;
+        UpdateNode(ParentNode, ParentChecked);
+        ParentNode := ParentNode.Parent;
+      end;
+    end;
+  end;
+
+  procedure UpdateRadioButton(N: TTreeNode; C: Boolean);
+  var
+    Node: TTreeNode;
+  begin
+    if Value and not GetNodeChecked(N) then
+    begin
+      Node := N.Parent;
+      if Node <> nil then
+      begin
+        Node := Node.getFirstChild;
+        while Node <> nil do
+        begin
+          if IsRadioButton(Node) then
+            UpdateNode(Node, Node = N);
+          Node := Node.getNextSibling;
+        end;
+      end;
+    end;
+  end;
+
+begin
+  if IsRadioButton(Node) then
+    UpdateRadioButton(Node, Value)
+  else
+  begin
+    UpdateTreeDown(Node, Value);
+    UpdateNode(Node, Value);
+    UpdateTreeUp(Node, Value);
+  end;
+  TreeView.Invalidate;
+end;
+
+procedure TInstallFrame.ToggleNodeChecked(Node: TTreeNode);
+begin
+  if Assigned(Node) then
+    SetNodeChecked(Node, not GetNodeChecked(Node));
+end;
+
+function TInstallFrame.GetNode(Id: Integer): TTreeNode;
+begin
+  Result := TreeView.Items.GetFirstNode;
+  while Assigned(Result) do
+  begin
+    if PNodeRec(Result.Data)^.Id = Id then
+      Break;
+    Result := Result.GetNext;
+  end;
+end;
+
+procedure TInstallFrame.UpdateImageIndex(N: TTreeNode);
+var
+  ImgIndex: Integer;
+begin
+  ImgIndex := IconIndexes[IsRadioButton(N), GetNodeChecked(N)];
+  N.ImageIndex := ImgIndex;
+  N.SelectedIndex := ImgIndex;
+end;
+
+procedure TInstallFrame.DirectorySelectBtnClick(Sender: TObject);
+var
+  Index: Integer;
+  Button: TButton;
+  Edit: TEdit;
+  {$IFDEF USE_WIDESTRING}
+  Directory: WideString;
+  {$UNDEF USE_WIDESTRING}
+  {$ELSE}
+  Directory: string;
+  {$ENDIF}
+  DirectoryRec: PDirectoryRec;
+begin
+  Button := Sender as TButton;
+  Edit := nil;
+  for Index := 0 to FDirectories.Count - 1 do
+  begin
+    DirectoryRec := FDirectories.Items[Index];
+    if DirectoryRec^.Button = Button then
+    begin
+      Edit := DirectoryRec^.Edit;
+      Break;
+    end;
+  end;
+  if Assigned(Edit) and SelectDirectory(RsSelectPath, '', Directory) then
+    Edit.Text := Directory;
+end;
+
+procedure TInstallFrame.SplitterCanResize(Sender: TObject;
+  var NewSize: Integer; var Accept: Boolean);
+begin
+  Accept := NewSize > 150;
+end;
+
+procedure TInstallFrame.TreeViewCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; 
+  State: TCustomDrawState; var DefaultDraw: Boolean);
+begin
+  case TTreeNode(Node).Level of
+    0: begin
+         Sender.Canvas.Font.Style := [fsBold, fsUnderline];
+       end;
+    1: begin
+         Sender.Canvas.Font.Style := [fsBold];
+       end;
+  end;
+end;
+
+procedure TInstallFrame.TreeViewKeyPress(Sender: TObject; var Key: Char);
+begin
+  with TTreeView(Sender) do
+    case Key of
+      #32:
+        if not FInstalling then
+        begin
+          ToggleNodeChecked(Selected);
+          Key := #0;
+        end;
+      '+':
+        Selected.Expanded := True;
+      '-':
+        Selected.Expanded := False;
+    end;
+end;
+
+function TreeNodeIconHit(TreeView: TTreeView; X, Y: Integer): Boolean;
+begin
+  Result := htOnIcon in TreeView.GetHitTestInfoAt(X, Y);
+end;
+
+procedure TInstallFrame.TreeViewMouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+var
+  Node: TTreeNode;
+begin
+  if not FInstalling then
+    with TTreeView(Sender) do
+  begin
+    Node := GetNodeAt(X, Y);
+    if (Button = mbLeft) and TreeNodeIconHit(TreeView, X, Y) then
+      ToggleNodeChecked(Node);
+  end;
+end;
+
+function TInstallFrame.GetFormCompile: TFormCompile;
+begin
+  if not Assigned(FFormCompile) then
+  begin
+    FFormCompile := TFormCompile.Create(Self);
+    SetWindowLong(FFormCompile.Handle, GWL_HWNDPARENT, Handle);
+    FFormCompile.Init(Caption, True);
+    FFormCompile.Show;
+    Application.ProcessMessages;
+  end;
+  Result := FFormCompile;
+end;
+
+// IJediPage
+function TInstallFrame.GetCaption: string;
+begin
+  Result := (Parent as TTabSheet).Caption;
+end;
+
+procedure TInstallFrame.SetCaption(const Value: string);
+begin
+  (Parent as TTabSheet).Caption := Value;
+  AddInstallOption(JediTargetOption, [goExpandable], Value, RsHintTarget, -1);
+end;
+
+function TInstallFrame.GetHintAtPos(ScreenX, ScreenY: Integer): string;
+var
+  TreeViewCoord: TPoint;
+  ANode: TTreeNode;
+begin
+  TreeViewCoord := TreeView.ScreenToClient(Point(ScreenX, ScreenY));
+  if (TreeViewCoord.X >= 0) and (TreeViewCoord.Y >= 0) and
+    (TreeViewCoord.X < TreeView.Width) and (TreeViewCoord.Y < TreeView.Height) then
+  begin
+    ANode := TreeView.GetNodeAt(TreeViewCoord.X, TreeViewCoord.Y);
+    if Assigned(ANode) then
+      Result := PNodeRec(ANode.Data)^.Hint;
+  end;
+end;
+
+procedure TInstallFrame.Show;
+var
+  ATabSheet: TTabSheet;
+begin
+  ATabSheet := Parent as TTabSheet;
+  (ATabSheet.Parent as TPageControl).ActivePage := ATabSheet;
+end;
+
+// IJediInstallPage
+procedure TInstallFrame.AddInstallOption(Id: Integer; Options: TJediInstallGUIOptions;
+  const Caption: string = ''; const Hint: string = ''; Parent: Integer = -1);
+var
+  NodeRec: PNodeRec;
+  ParentNode, ThisNode: TTreeNode;
+begin
+  if Id = -1 then
+    raise Exception.CreateResFmt(@RsInvalidOption, [Id]);
+
+  if Parent <> -1 then
+    ParentNode := GetNode(Parent)
+  else
+    ParentNode := nil;
+  ThisNode := GetNode(Id);
+  if Assigned(ThisNode) then
+    ThisNode.Text := Caption
+  else
+  begin
+    New(NodeRec);
+    NodeRec^.Id := Id;
+    NodeRec^.Hint := Hint;
+    NodeRec^.Options := Options;
+    ThisNode := TreeView.Items.AddChildObject(ParentNode, Caption, NodeRec);
+    FNodeData.Add(NodeRec);
+  end;
+
+  UpdateImageIndex(ThisNode);
+end;
+
+procedure TInstallFrame.InitDisplay;
+var
+  ANode: TTreeNode;
+begin
+  ANode := TreeView.Items.GetFirstNode;
+  while Assigned(ANode) do
+  begin
+    if (ANode.Count > 0) and IsExpandable(ANode) then
+      ANode.Expand(False);
+    ANode := ANode.GetNext;
+  end;
+  ANode := TreeView.Items.GetFirstNode;
+  if Assigned(ANode) then
+    TreeView.TopItem := ANode;
+end;
+
+function TInstallFrame.GetOptionChecked(Id: Integer): Boolean;
+var
+  ANode: TTreeNode;
+begin
+  ANode := GetNode(Id);
+  Result := Assigned(ANode) and GetNodeChecked(ANode);
+end;
+
+procedure TInstallFrame.SetOptionChecked(Id: Integer; Value: Boolean);
+var
+  ANode: TTreeNode;
+begin
+  ANode := GetNode(Id);
+  while Assigned(ANode) do
+  begin
+    UpdateNode(ANode, Value);
+    // if an option is checked, ensure that all parent options are checked too
+    if IsRadioButton(ANode) or not Value then
+      Break;
+    ANode := ANode.Parent;
+  end;
+end;
+
+function TInstallFrame.GetDirectoryCount: Integer;
+begin
+  Result := FDirectories.Count;
+end;
+
+function TInstallFrame.GetDirectory(Index: Integer): string;
+begin
+  Result := PDirectoryRec(FDirectories.Items[Index])^.Edit.Text;
+end;
+
+procedure TInstallFrame.SetDirectory(Index: Integer; const Value: string);
+begin
+  PDirectoryRec(FDirectories.Items[Index])^.Edit.Text := Value;
+end;
+
+function TInstallFrame.AddDirectory(Caption: string): Integer;
+var
+  ADirectoryRec: PDirectoryRec;
+  ALabel: TLabel;
+  ControlTop, ButtonWidth, LabelRight: Integer;
+begin
+  if FDirectories.Count > 0 then
+  begin
+    ADirectoryRec := FDirectories.Items[FDirectories.Count - 1];
+    ControlTop := ADirectoryRec^.Edit.Top + ADirectoryRec^.Edit.Height + 10;
+  end
+  else
+    ControlTop := 16;
+
+  New(ADirectoryRec);
+  ALabel := TLabel.Create(Self);
+  ALabel.Parent := OptionsGroupBox;
+  ALabel.Caption := Caption;
+  ALabel.AutoSize := True;
+  ADirectoryRec^.Edit := TEdit.Create(Self);
+  ADirectoryRec^.Edit.Parent := OptionsGroupBox;
+  ADirectoryRec^.Edit.Anchors := [akLeft, akTop, akRight];
+  ADirectoryRec^.Button := TButton.Create(Self);
+  ADirectoryRec^.Button.Parent := OptionsGroupBox;
+  ADirectoryRec^.Button.Caption := '...';
+  ADirectoryRec^.Button.Anchors := [akTop, akRight];
+
+  ButtonWidth := 2 * ALabel.Height;
+  LabelRight := (ALabel.Width div 16) * 16 + 32 + ALabel.Left; // make edits aligned when label widths are nearly equals
+
+  ADirectoryRec^.Edit.SetBounds(LabelRight, ControlTop,
+    OptionsGroupBox.ClientWidth - LabelRight - ButtonWidth - 16,
+    ADirectoryRec^.Edit.Height);
+  ADirectoryRec^.Button.SetBounds(OptionsGroupBox.ClientWidth - ButtonWidth - 8,
+    ControlTop, ButtonWidth, ADirectoryRec^.Edit.Height);
+  ALabel.SetBounds(8, ControlTop + (ADirectoryRec^.Edit.Height - ALabel.Height) div 2,
+    ALabel.Width, ALabel.Height);
+
+  ADirectoryRec^.Edit.OnChange := DirectoryEditChange;
+  ADirectoryRec^.Button.OnClick := DirectorySelectBtnClick;
+
+  OptionsGroupBox.ClientHeight := ADirectoryRec^.Edit.Top + ADirectoryRec^.Edit.Height + 10;
+  OptionsGroupBox.Top := TreeView.Height + TreeView.Top - OptionsGroupBox.Height;
+  InfoDisplay.Height := OptionsGroupBox.Top - InfoDisplay.Top - 8;
+
+  Result := FDirectories.Add(ADirectoryRec);
+end;
+
+function TInstallFrame.GetProgress: Integer;
+begin
+  Result := ProgressBar.Position;
+end;
+
+procedure TInstallFrame.SetProgress(Value: Integer);
+begin
+  ProgressBar.Position := Value;
+end;
+
+procedure TInstallFrame.BeginInstall;
+var
+  ANode: TTreeNode;
+begin
+  ProgressBar.Visible := True;
+
+  InfoDisplay.Lines.Clear;
+
+  FCheckedCount := 0;
+  FInstallCount := 0;
+  ANode := TreeView.Items.GetFirstNode;
+  while Assigned(ANode) do
+  begin
+    if GetNodeChecked(ANode) then
+      Inc(FCheckedCount);
+    ANode := ANode.GetNext;
+  end;
+
+  FInstalling := True;
+end;
+
+procedure TInstallFrame.MarkOptionBegin(Id: Integer);
+var
+  ANode: TTreeNode;
+begin
+  ANode := GetNode(Id);
+  while Assigned(ANode) do
+  begin
+    ANode.ImageIndex := IcoNotInstalled;
+    ANode.SelectedIndex := IcoNotInstalled;
+    ANode := ANode.Parent;
+  end;
+end;
+
+procedure TInstallFrame.MarkOptionEnd(Id: Integer; Failed: Boolean);
+var
+  ANode, BNode: TTreeNode;
+  Index: Integer;
+  ChangeIcon: Boolean;
+begin
+  if Assigned(FFormCompile) then
+  begin
+    if FFormCompile.Errors > 0 then // do not make the dialog modal when no error occured
+      FFormCompile.Done(' ')
+    else
+      FFormCompile.Done;
+    FreeAndNil(FFormCompile);
+  end;
+  ANode := GetNode(Id);
+  while Assigned(ANode) and GetNodeChecked(ANode) do
+  begin
+    ChangeIcon := (ANode.Count = 0) or Failed;
+    if not ChangeIcon then
+    begin
+      ChangeIcon := True;
+      for Index := 0 to ANode.Count - 1 do
+      begin
+        BNode := ANode.Item[Index];
+        case BNode.ImageIndex of
+          IcoNotInstalled:
+            begin
+              ChangeIcon := False;
+              Break;
+            end;
+          IcoFailed:
+            begin
+              Failed := True;
+              Break;
+            end;
+          IcoInstalled: ;
+        else
+          ChangeIcon := ChangeIcon and not GetNodeChecked(BNode);
+        end;
+      end;
+    end;
+    if ChangeIcon then
+    begin
+      if Failed then
+      begin
+        ANode.ImageIndex := IcoFailed;
+        ANode.SelectedIndex := IcoFailed;
+      end
+      else
+      begin
+        ANode.ImageIndex := IcoInstalled;
+        ANode.SelectedIndex := IcoInstalled;
+      end;
+    end
+    else
+      Break;
+    ANode := ANode.Parent;
+  end;
+  Inc(FInstallCount);
+  if FCheckedCount > 0 then
+    SetProgress(100 * FInstallCount div FCheckedCount);
+end;
+
+procedure TInstallFrame.EndInstall;
+var
+  ANode: TTreeNode;
+begin
+  FInstalling := False;
+
+  MarkOptionEnd(-1, True);
+  ANode := TreeView.Items.GetFirstNode;
+  while Assigned(ANode) do
+  begin
+    UpdateImageIndex(ANode);
+    ANode := ANode.GetNext;
+  end;
+  ProgressBar.Visible := False;
+end;
+
+procedure TInstallFrame.CompilationStart(const ProjectName: string);
+begin
+  GetFormCompile.Init(ProjectName, True);
+end;
+
+procedure TInstallFrame.AddLogLine(const Line: string);
+begin
+  InfoDisplay.Lines.Append(Line);
+  InfoDisplay.Perform(EM_SCROLLCARET, 0, 0);
+end;
+
+procedure TInstallFrame.AddHint(const Line: string);
+begin
+  GetFormCompile.AddHint(Line);
+  AddLogLine(Line);
+end;
+
+procedure TInstallFrame.AddWarning(const Line: string);
+begin
+  GetFormCompile.AddWarning(Line);
+  AddLogLine(Line);
+end;
+
+procedure TInstallFrame.AddError(const Line: string);
+begin
+  GetFormCompile.AddError(Line);
+  AddLogLine(Line);
+end;
+
+procedure TInstallFrame.AddFatal(const Line: string);
+begin
+  GetFormCompile.AddFatal(Line);
+  AddLogLine(Line);
+end;
+
+procedure TInstallFrame.AddText(const Line: string);
+begin
+  //{$IFDEF VCL}
+  //GetFormCompile.AddText(Line);
+  //{$ENDIF VCL}
+  AddLogLine(Line);
+end;
+
+procedure TInstallFrame.CompilationProgress(const FileName: string; LineNumber: Integer);
+begin
+  GetFormCompile.CompilationProgress(FileName, LineNumber);
+end;
+
+end.
+
+

Copied: trunk/jcl/install/VclGui/JediGUIMain.pas (from rev 2952, trunk/jcl/install/prototypes/JediGUIMain.pas)
===================================================================
--- trunk/jcl/install/VclGui/JediGUIMain.pas	                        (rev 0)
+++ trunk/jcl/install/VclGui/JediGUIMain.pas	2009-08-21 15:40:34 UTC (rev 2954)
@@ -0,0 +1,488 @@
+{**************************************************************************************************}
+{                                                                                                  }
+{ Project JEDI Code Library (JCL) extension                                                        }
+{                                                                                                  }
+{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); }
+{ you may not use this file except in compliance with the License. You may obtain a copy of the    }
+{ License at http://www.mozilla.org/MPL/                                                           }
+{                                                                                                  }
+{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF   }
+{ ANY KIND, either express or implied. See the License for the specific language governing rights  }
+{ and limitations under the License.                                                               }
+{                                                                                                  }
+{ The Original Code is JediInstallerMain.pas.                                                      }
+{                                                                                                  }
+{ The Initial Developer of the Original Code is Petr Vones. Portions created by Petr Vones are     }
+{ Copyright (C) of Petr Vones. All Rights Reserved.                                                }
+{                                                                                                  }
+{ Contributors:                                                                                    }
+{   Andreas Hausladen (ahuser)                                                                     }
+{   Robert Rossmair (rrossmair) - crossplatform & BCB support, refactoring                         }
+{   Florent Ouchet (outchy) - new installer core                                                   }
+{                                                                                                  }
+{**************************************************************************************************}
+{                                                                                                  }
+{ Last modified: $Date::                                                                         $ }
+{ Revision:      $Rev::                                                                          $ }
+{ Author:        $Author::                                                                       $ }
+{                                                                                                  }
+{**************************************************************************************************}
+
+unit JediGUIMain;
+
+{$I jcl.inc}
+{$I crossplatform.inc}
+
+interface
+
+uses
+  Windows, Messages, CommCtrl,
+  SysUtils, Classes,
+  Graphics, Forms, Controls, Dialogs, StdCtrls, ExtCtrls, Menus, Buttons, ComCtrls, ImgList,
+  JclBorlandTools, JclContainerIntf, JediInstall;
+
+const
+  WM_AFTERSHOW = WM_USER + 10;
+
+type
+  TMainForm = class(TForm, IJediInstallGUI)
+    InstallBtn: TBitBtn;
+    UninstallBtn: TBitBtn;
+    QuitBtn: TBitBtn;
+    JediImage: TImage;
+    TitlePanel: TPanel;
+    Title: TLabel;
+    ProductsPageControl: TPageControl;
+    StatusBevel: TBevel;
+    StatusLabel: TLabel;
+    Bevel1: TBevel;
+    ProgressBar: TProgressBar;
+    ImageList: TImageList;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure QuitBtnClick(Sender: TObject);
+    procedure InstallBtnClick(Sender: TObject);
+    procedure UninstallBtnClick(Sender: TObject);
+    procedure JediImageClick(Sender: TObject);
+  protected
+    FPages: IJclIntfList;
+    FAutoAcceptDialogs: TDialogTypes;
+    FAutoCloseOnFailure: Boolean;
+    FAutoCloseOnSuccess: Boolean;
+    FAutoInstall: Boolean;
+    FAutoUninstall: Boolean;
+    procedure HandleException(Sender: TObject; E: Exception);
+    procedure SetFrameIcon(Sender: TObject; const FileName: string);
+    procedure WMAfterShow(var Message: TMessage); Message WM_AFTERSHOW;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure ShowFeatureHint(var HintStr: string; var CanShow: Boolean;
+      var HintInfo: THintInfo);
+    // IJediInstallGUI
+    function Dialog(const Text: string; DialogType: TDialogType = dtInformation;
+      Options: TDialogResponses = [drOK]): TDialogResponse;
+    function CreateReadmePage: IJediReadmePage;
+    function CreateInstallPage: IJediInstallPage;
+    function CreateProfilesPage: IJediProfilesPage;
+    function GetPageCount: Integer;
+    function GetPage(Index: Integer): IJediPage;
+    function GetStatus: string;
+    procedure SetStatus(const Value: string);
+    function GetCaption: string;
+    procedure SetCaption(const Value: string);
+    function GetProgress: Integer;
+    procedure SetProgress(Value: Integer);
+    function GetAutoAcceptDialogs: TDialogTypes;
+    procedure SetAutoAcceptDialogs(Value: TDialogTypes);
+    function GetAutoCloseOnFailure: Boolean;
+    procedure SetAutoCloseOnFailure(Value: Boolean);
+    function GetAutoCloseOnSuccess: Boolean;
+    procedure SetAutoCloseOnSuccess(Value: Boolean);
+    function GetAutoInstall: Boolean;
+    procedure SetAutoInstall(Value: Boolean);
+    function GetAutoUninstall: Boolean;
+    procedure SetAutoUninstall(Value: Boolean);
+    procedure Execute;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  FileCtrl,
+  JclDebug, JclShell, JediGUIProfiles,
+  JclBase, JclFileUtils, JclStrings, JclSysInfo, JclSysUtils, JclArrayLists,
+  JediGUIReadme, JediGUIInstall;
+
+const
+  DelphiJediURL     = 'http://www.delphi-jedi.org/';
+
+function CreateMainForm: IJediInstallGUI;
+var
+  MainForm: TMainForm;
+begin
+  Application.CreateForm(TMainForm, MainForm);
+  Result := MainForm;
+end;
+
+//=== { TMainForm } ==========================================================
+
+constructor TMainForm.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  FPages := TJclIntfArrayList.Create(5);
+end;
+
+destructor TMainForm.Destroy;
+begin
+  FPages := nil;
+  inherited Destroy;
+end;
+
+procedure TMainForm.HandleException(Sender: TObject; E: Exception);
+begin
+  if E is EJediInstallInitFailure then
+  begin
+    Dialog(E.Message, dtError);
+    Application.ShowMainForm := False;
+    Application.Terminate;
+  end
+  else
+    Application.ShowException(E);
+end;
+
+procedure TMainForm.FormCreate(Sender: TObject);
+begin
+  Application.OnException := HandleException;
+  JediImage.Hint := DelphiJediURL;
+
+  SetStatus('');
+
+  TitlePanel.DoubleBuffered := True;
+  {$IFDEF COMPILER7_UP}
+  TitlePanel.ParentBackground := False;
+  {$ENDIF}
+  Application.HintPause := 500;
+  Application.OnShowHint := ShowFeatureHint;
+end;
+
+procedure TMainForm.FormDestroy(Sender: TObject);
+begin
+  InstallCore.Close;
+end;
+
+procedure TMainForm.FormShow(Sender: TObject);
+begin
+  PostMessage(Handle, WM_AFTERSHOW, 0, 0);
+end;
+
+procedure TMainForm.ShowFeatureHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
+var
+  ATabSheet: TTabSheet;
+  ScreenPos: TPoint;
+begin
+  if HintStr = '' then
+  begin
+    ScreenPos := HintInfo.HintControl.ClientToScreen(HintInfo.CursorPos);
+    ATabSheet := ProductsPageControl.ActivePage;
+    HintStr := (FPages.GetObject(ATabSheet.PageIndex) as IJediPage).GetHintAtPos(ScreenPos.X, ScreenPos.Y);
+    HintInfo.ReshowTimeout := 100;
+  end;
+  CanShow := HintStr <> '';
+end;
+
+procedure TMainForm.SetFrameIcon(Sender: TObject; const FileName: string);
+var
+  IconHandle: HICON;
+  ModuleHandle: THandle;
+  ATabSheet: TTabSheet;
+begin
+  ATabSheet := (Sender as TInstallFrame).Parent as TTabSheet;
+
+  IconHandle := 0;
+
+  if SameText(ExtractFileName(FileName), '.ico') then
+    IconHandle := LoadImage(0, PChar(FileName), IMAGE_ICON, ImageList.Width, ImageList.Height,
+      LR_LOADFROMFILE or LR_LOADTRANSPARENT)
+  else
+  begin
+    ModuleHandle := LoadLibraryEx(PChar(FileName), 0, LOAD_LIBRARY_AS_DATAFILE or DONT_RESOLVE_DLL_REFERENCES);
+    if ModuleHandle <> 0 then
+    try
+      IconHandle := LoadImage(ModuleHandle, 'MAINICON', IMAGE_ICON, ImageList.Width, ImageList.Height,
+        LR_LOADTRANSPARENT);
+    finally
+      FreeLibrary(ModuleHandle);
+    end;
+  end;
+  if IconHandle <> 0 then
+  try
+    ATabSheet.ImageIndex := ImageList_AddIcon(ImageList.Handle, IconHandle);
+  finally
+    DestroyIcon(IconHandle);
+  end;
+end;
+
+procedure TMainForm.QuitBtnClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TMainForm.InstallBtnClick(Sender: TObject);
+var
+  Success: Boolean;
+begin
+  ProgressBar.Position := 0;
+  ProgressBar.Visible := True;
+  Screen.Cursor := crHourGlass;
+  try
+    Success := InstallCore.Install;
+    if (Success and FAutoCloseOnSuccess) or (not Success and FAutoCloseOnFailure) then
+      Close;
+  finally
+    ProgressBar.Visible := False;
+    Screen.Cursor := crDefault;
+  end;
+  QuitBtn.SetFocus;
+end;
+
+procedure TMainForm.UninstallBtnClick(Sender: TObject);
+var
+  Success: Boolean;
+begin
+  ProgressBar.Position := 0;
+  ProgressBar.Visible := True;
+  Screen.Cursor := crHourGlass;
+  try
+    Success := InstallCore.Uninstall;
+    if (Success and FAutoCloseOnSuccess) or (not Success and FAutoCloseOnFailure) then
+      Close;
+  finally
+    ProgressBar.Visible := False;
+    Screen.Cursor := crDefault;
+  end;
+  QuitBtn.SetFocus;
+end;
+
+procedure TMainForm.WMAfterShow(var Message: TMessage);
+begin
+  if FAutoInstall then
+    InstallBtnClick(InstallBtn)
+  else
+  if FAutoUninstall then
+    UninstallBtnClick(UninstallBtn);
+end;
+
+procedure TMainForm.JediImageClick(Sender: TObject);
+begin
+  { TODO : implement for Unix }
+  ShellExecEx(DelphiJediURL);
+end;
+
+function TMainForm.Dialog(const Text: string; DialogType: TDialogType = dtInformation;
+  Options: TDialogResponses = [drOK]): TDialogResponse;
+const
+  DlgType: array[TDialogType] of TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation);
+  DlgButton: array[TDialogResponse] of TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel);
+  DlgResult: array[TDialogResponse] of Word = (mrYes, mrNo, mrOK, mrCancel);
+var
+  Buttons: TMsgDlgButtons;
+  Res: Integer;
+  OldCursor: TCursor;
+  DialogResponse: TDialogResponse;
+begin
+  if DialogType in FAutoAcceptDialogs then
+  begin
+    for DialogResponse := Low(TDialogResponse) to High(TDialogResponse) do
+      if DialogResponse in Options then
+    begin
+      Result := DialogResponse;
+      Exit;
+    end;
+  end;
+  OldCursor := Screen.Cursor;
+  try
+    Screen.Cursor := crDefault;
+    Buttons := [];
+    for Result := Low(TDialogResponse) to High(TDialogResponse) do
+      if Result in Options then
+        Include(Buttons, DlgButton[Result]);
+    Res := MessageDlg(Text, DlgType[DialogType], Buttons, 0);
+    for Result := Low(TDialogResponse) to High(TDialogResponse) do
+      if DlgResult[Result] = Res then
+        Break;
+  finally
+    Screen.Cursor := OldCursor;
+  end;
+end;
+
+function TMainForm.CreateReadmePage: IJediReadmePage;
+var
+  AReadmeFrame: TReadmeFrame;
+  ATabSheet: TTabSheet;
+begin
+  ATabSheet := TTabSheet.Create(Self);
+  ATabSheet.PageControl := ProductsPageControl;
+  ATabSheet.ImageIndex := -1;
+
+  AReadmeFrame := TReadmeFrame.Create(Self);
+  AReadmeFrame.Parent := ATabSheet;
+  AReadmeFrame.Align := alClient;
+  AReadmeFrame.Name := '';
+
+  Result := AReadmeFrame;
+  FPages.Add(Result);
+end;
+
+function TMainForm.CreateInstallPage: IJediInstallPage;
+var
+  AInstallFrame: TInstallFrame;
+  ATabSheet: TTabSheet;
+begin
+  ATabSheet := TTabSheet.Create(Self);
+  ATabSheet.PageControl := ProductsPageControl;
+  ATabSheet.ImageIndex := -1;
+
+  AInstallFrame := TInstallFrame.Create(Self);
+  AInstallFrame.Parent := ATabSheet;
+  AInstallFrame.Align := alClient;
+  AInstallFrame.TreeView.Images := ImageList;
+  AInstallFrame.Name := '';
+  AInstallFrame.OnSetIcon := SetFrameIcon;
+
+  Result := AInstallFrame;
+  FPages.Add(Result);
+end;
+
+function TMainForm.CreateProfilesPage: IJediProfilesPage;
+var
+  AProfilesFrame: TProfilesFrame;
+  ATabSheet: TTabSheet;
+begin
+  ATabSheet := TTabSheet.Create(Self);
+  ATabSheet.PageControl := ProductsPageControl;
+  ATabSheet.ImageIndex := -1;
+
+  AProfilesFrame := TProfilesFrame.Create(Self);
+  AProfilesFrame.Parent := ATabSheet;
+  AProfilesFrame.Align := alClient;
+  AProfilesFrame.Name := '';
+
+  Result := AProfilesFrame;
+  FPages.Add(Result);
+end;
+
+function TMainForm.GetPageCount: Integer;
+begin
+  Result := FPages.Size;
+end;
+
+function TMainForm.GetPage(Index: Integer): IJediPage;
+begin
+  Result := FPages.GetObject(Index) as IJediPage;
+end;
+
+function TMainForm.GetStatus: string;
+begin
+  Result := StatusLabel.Caption;
+end;
+
+procedure TMainForm.SetStatus(const Value: string);
+begin
+  if Value = '' then
+  begin
+    StatusBevel.Visible := False;
+    StatusLabel.Visible := False;
+  end
+  else
+  begin
+    StatusLabel.Caption := Value;
+    StatusBevel.Visible := True;
+    StatusLabel.Visible := True;
+  end;
+  Application.ProcessMessages;  //Update;
+end;
+
+function TMainForm.GetAutoAcceptDialogs: TDialogTypes;
+begin
+  Result := FAutoAcceptDialogs;
+end;
+
+function TMainForm.GetAutoCloseOnFailure: Boolean;
+begin
+  Result := FAutoCloseOnFailure;
+end;
+
+function TMainForm.GetAutoCloseOnSuccess: Boolean;
+begin
+  Result := FAutoCloseOnSuccess;
+end;
+
+function TMainForm.GetAutoInstall: Boolean;
+begin
+  Result := FAutoInstall;
+end;
+
+function TMainForm.GetAutoUninstall: Boolean;
+begin
+  Result := FAutoUninstall;
+end;
+
+function TMainForm.GetCaption: string;
+begin
+  Result := Caption;
+end;
+
+procedure TMainForm.SetAutoAcceptDialogs(Value: TDialogTypes);
+begin
+  FAutoAcceptDialogs := Value;
+end;
+
+procedure TMainForm.SetAutoCloseOnFailure(Value: Boolean);
+begin
+  FAutoCloseOnFailure := Value;
+end;
+
+procedure TMainForm.SetAutoCloseOnSuccess(Value: Boolean);
+begin
+  FAutoCloseOnSuccess := Value;
+end;
+
+procedure TMainForm.SetAutoInstall(Value: Boolean);
+begin
+  FAutoInstall := Value;
+end;
+
+procedure TMainForm.SetAutoUninstall(Value: Boolean);
+begin
+  FAutoUninstall := Value;
+end;
+
+procedure TMainForm.SetCaption(const Value: string);
+begin
+  Caption := Value;
+end;
+
+function TMainForm.GetProgress: Integer;
+begin
+  Result := ProgressBar.Position;
+end;
+
+procedure TMainForm.SetProgress(Value: Integer);
+begin
+  ProgressBar.Position := Value;
+end;
+
+procedure TMainForm.Execute;
+begin
+  Application.Run;
+end;
+
+initialization
+
+InstallCore.InstallGUICreator := CreateMainForm;
+
+end.

Copied: trunk/jcl/install/VclGui/JediGUIReadme.pas (from rev 2952, trunk/jcl/install/prototypes/JediGUIReadme.pas)
===================================================================
--- trunk/jcl/install/VclGui/JediGUIReadme.pas	                        (rev 0)
+++ trunk/jcl/install/VclGui/JediGUIReadme.pas	2009-08-21 15:40:34 UTC (rev 2954)
@@ -0,0 +1,108 @@
+{**************************************************************************************************}
+{                                                                                                  }
+{ Project JEDI Code Library (JCL) extension                                                        }
+{                                                                                                  }
+{ The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); }
+{ you may not use this file except in compliance with the License. You may obtain a copy of the    }
+{ License at http://www.mozilla.org/MPL/                                                           }
+{                                                                                                  }
+{ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF   }
+{ ANY KIND, either express or implied. See the License for the specific language governing rights  }
+{ and limitations under the License.                                                               }
+{                                                                                                  }
+{ The Original Code is JediGUIReadme.pas.                                                          }
+{                                                                                                  }
+{ The Initial Developer of the Original Code is Florent Ouchet. Portions created by Florent Ouchet }
+{ are Copyright (C) of Florent Ouchet. All Rights Reserved.                                        }
+{                                                                                                  }
+{ Contributors:                                                                                    }
+{                                                                                                  }
+{**************************************************************************************************}
+{                                                                                                  }
+{ Last modified: $Date::                                                                         $ }
+{ Revision:      $Rev::                                                                          $ }
+{ Author:        $Author::                                                                       $ }
+{                                                                                                  }
+{**************************************************************************************************}
+
+unit JediGUIReadme;
+
+{$I jcl.inc}
+{$I crossplatform.inc}
+
+interface
+
+uses
+  Windows, Messages,
+  SysUtils, Classes,
+  Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls,
+  JediInstall;
+
+type
+  TReadmeFrame = class(TFrame, IJediReadmePage, IJediPage)
+    ReadmePane: TRichEdit;
+    procedure ReadmePaneDblClick(Sender: TObject);
+  private
+    FReadmeFileName: string;
+  public
+    // IJediPage
+    function GetCaption: string;
+    procedure SetCaption(const Value: string);
+    function GetHintAtPos(ScreenX, ScreenY: Integer): string;
+    procedure Show;
+    // IJediReadmePage
+    procedure SetReadmeFileName(const Value: string);
+    function GetReadmeFileName: string;
+
+    property ReadmeFileName: string read GetReadmeFileName write SetReadmeFileName;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  JclShell;
+
+function TReadmeFrame.GetCaption: string;
+begin
+  Result := (Parent as TTabSheet).Caption;
+end;
+
+function TReadmeFrame.GetReadmeFileName: string;
+begin
+  Result := FReadmeFileName;
+end;
+
+procedure TReadmeFrame.ReadmePaneDblClick(Sender: TObject);
+begin
+  { TODO: implement for Unix }
+  ShellExecEx(ReadmeFileName);
+end;
+
+procedure TReadmeFrame.SetCaption(const Value: string);
+begin
+  (Parent as TTabSheet).Caption := Value;
+end;
+
+function TReadmeFrame.GetHintAtPos(ScreenX, ScreenY: Integer): string;
+begin
+  Result := '';
+end;
+
+procedure TReadmeFrame.SetReadmeFileName(const Value: string);
+begin
+  FReadmeFileName := Value;
+  if FileExists(Value) then
+    ReadmePane.Lines.LoadFromFile(Value);
+end;
+
+procedure TReadmeFrame.Show;
+var
+  ATabSheet: TTabSheet;
+begin
+  ATabSheet := Parent as TTabSheet;
+  (ATabSheet.Parent as TPageControl).ActivePage := ATabSheet;
+end;
+
+end.

Modified: trunk/thirdparty/svn_cleaner/SvnCleaner.xml
===================================================================
--- trunk/thirdparty/svn_cleaner/SvnCleaner.xml	2009-08-21 15:11:17 UTC (rev 2953)
+++ trunk/thirdparty/svn_cleaner/SvnCleaner.xml	2009-08-21 15:40:34 UTC (rev 2954)
@@ -174,19 +174,8 @@
           </property>
         </setting>
 
-        <setting path="" mask="prototypes" recurse="no" dironly="yes">
-          <property name="svn:ignore">
-            <value>*.~*</value>
-            <value>__history</value>
-            <value>*.bak</value>
-          </property>
-        </setting>
-
         <setting path="" mask="VclGui" recurse="no" dironly="yes">
           <property name="svn:ignore">
-            <value>JediGUIInstall.pas</value>
-            <value>JediGUIMain.pas</value>
-            <value>JediGUIReadme.pas</value>
             <value>*.dcu</value>
             <value>*.~*</value>
             <value>__history</value>


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:[2953] trunk

From: <ou...@us...> - 2009-08-21 15:11:25

Revision: 2953
          http://jcl.svn.sourceforge.net/jcl/?rev=2953&view=rev
Author:   outchy
Date:     2009-08-21 15:11:17 +0000 (Fri, 21 Aug 2009)

Log Message:
-----------
svn properties cleanup.

Modified Paths:
--------------
    trunk/thirdparty/svn_cleaner/SvnCleaner.xml

Property Changed:
----------------
    trunk/jcl/bin/
    trunk/jcl/examples/
    trunk/jcl/examples/common/
    trunk/jcl/examples/common/containers/
    trunk/jcl/examples/common/containers/algorithms/
    trunk/jcl/examples/common/containers/hashing/
    trunk/jcl/examples/common/containers/lists/
    trunk/jcl/examples/common/containers/performance/
    trunk/jcl/examples/common/containers/trees/
    trunk/jcl/examples/common/expreval/
    trunk/jcl/examples/common/filesearch/
    trunk/jcl/examples/common/graphics/
    trunk/jcl/examples/common/multimedia/
    trunk/jcl/examples/common/numformat/
    trunk/jcl/examples/common/pcre/
    trunk/jcl/examples/common/rtti/
    trunk/jcl/examples/common/sysinfo/
    trunk/jcl/examples/common/textconverter/
    trunk/jcl/examples/common/textreader/
    trunk/jcl/examples/common/unitversioning/
    trunk/jcl/examples/windows/
    trunk/jcl/examples/windows/appinst/
    trunk/jcl/examples/windows/asuser/
    trunk/jcl/examples/windows/clr/
    trunk/jcl/examples/windows/compression/
    trunk/jcl/examples/windows/compression/archive/
    trunk/jcl/examples/windows/debug/
    trunk/jcl/examples/windows/debug/framestrack/
    trunk/jcl/examples/windows/debug/mttest/
    trunk/jcl/examples/windows/debug/reportconverter/
    trunk/jcl/examples/windows/debug/sourceloc/
    trunk/jcl/examples/windows/debug/stacktrack/
    trunk/jcl/examples/windows/debug/threadexcept/
    trunk/jcl/examples/windows/delphitools/
    trunk/jcl/examples/windows/delphitools/common/
    trunk/jcl/examples/windows/delphitools/dependencyviewer/
    trunk/jcl/examples/windows/delphitools/peviewer/
    trunk/jcl/examples/windows/delphitools/resfix/
    trunk/jcl/examples/windows/delphitools/screenjpg/
    trunk/jcl/examples/windows/delphitools/toolhelpview/
    trunk/jcl/examples/windows/edisdk/
    trunk/jcl/examples/windows/edisdk/comserver/
    trunk/jcl/examples/windows/edisdk/vb5/
    trunk/jcl/examples/windows/filesummary/
    trunk/jcl/examples/windows/fileversion/
    trunk/jcl/examples/windows/lanman/
    trunk/jcl/examples/windows/locales/
    trunk/jcl/examples/windows/mapi/
    trunk/jcl/examples/windows/multimedia/
    trunk/jcl/examples/windows/ntfs/
    trunk/jcl/examples/windows/ntservice/
    trunk/jcl/examples/windows/peimage/
    trunk/jcl/examples/windows/registry/
    trunk/jcl/examples/windows/structstorage/
    trunk/jcl/examples/windows/sysinfo/
    trunk/jcl/examples/windows/tasks/
    trunk/jcl/examples/windows/widestring/
    trunk/jcl/install/
    trunk/jcl/source/include/


Property changes on: trunk/jcl/bin
___________________________________________________________________
Modified: svn:ignore
   - *.exe
*.log
*.ini
*.dll
*.pdb

   + *.exe
*.log
*.ini
*.dll
*.pdb
*.map



Property changes on: trunk/jcl/examples
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/containers
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/containers/algorithms
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/containers/hashing
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/containers/lists
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/containers/performance
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/containers/trees
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/expreval
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/filesearch
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/graphics
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/multimedia
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/numformat
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/pcre
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/rtti
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/sysinfo
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/textconverter
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/textreader
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/common/unitversioning
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/appinst
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/asuser
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/clr
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/compression
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/compression/archive
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/debug
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/debug/framestrack
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/debug/mttest
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/debug/reportconverter
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/debug/sourceloc
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/debug/stacktrack
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/debug/threadexcept
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/delphitools
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/delphitools/common
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/delphitools/dependencyviewer
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/delphitools/peviewer
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/delphitools/resfix
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/delphitools/screenjpg
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/delphitools/toolhelpview
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/edisdk
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/edisdk/comserver
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/edisdk/vb5
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/filesummary
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/fileversion
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/lanman
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/locales
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/mapi
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/multimedia
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/ntfs
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/ntservice
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/peimage
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/registry
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/structstorage
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/sysinfo
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/tasks
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/examples/windows/widestring
___________________________________________________________________
Modified: svn:ignore
   - *.identcache
*.local
*.cfg
*.drc
*.dcu

   + *.identcache
*.local
*.cfg
*.drc
*.dcu
*.dproj
*.bdsproj



Property changes on: trunk/jcl/install
___________________________________________________________________
Modified: svn:ignore
   - *.drc
*.dcu
*.~*
__history
*.identcache
*.local
*.dproj
*.bak

   + *.drc
*.dcu
*.~*
__history
*.identcache
*.local
*.dproj
*.bak
*.cfg
dcc32.cfg
dcc32_command.cmd



Property changes on: trunk/jcl/source/include
___________________________________________________________________
Modified: svn:ignore
   - *~
*.bak
jclfpc.inc
jclc6.inc
jcld6.inc
jcld7.inc
jclcs1.inc
jcld8.inc
jcld9.inc
jcld10.inc
jcld11.inc
jcld12.inc

   + __history
*~
*.bak
jclfpc.inc
jclc6.inc
jcld6.inc
jcld7.inc
jclcs1.inc
jcld8.inc
jcld9.inc
jcld10.inc
jcld11.inc
jcld12.inc


Modified: trunk/thirdparty/svn_cleaner/SvnCleaner.xml
===================================================================
--- trunk/thirdparty/svn_cleaner/SvnCleaner.xml	2009-08-21 15:00:15 UTC (rev 2952)
+++ trunk/thirdparty/svn_cleaner/SvnCleaner.xml	2009-08-21 15:11:17 UTC (rev 2953)
@@ -111,6 +111,7 @@
           <value>*.ini</value>
           <value>*.dll</value>
           <value>*.pdb</value>
+          <value>*.map</value>
         </property>
      </setting>
 
@@ -130,6 +131,8 @@
           <value>*.cfg</value>
           <value>*.drc</value>
           <value>*.dcu</value>
+          <value>*.dproj</value>
+          <value>*.bdsproj</value>
         </property>
       </setting>
 
@@ -153,6 +156,9 @@
           <value>*.local</value>
           <value>*.dproj</value>
           <value>*.bak</value>
+          <value>*.cfg</value>
+          <value>dcc32.cfg</value>
+          <value>dcc32_command.cmd</value>
         </property>
 
         <setting path="" mask="build" recurse="no" dironly="yes">
@@ -357,6 +363,7 @@
 
         <setting path="" mask="include" recurse="no" dironly="yes">
           <property name="svn:ignore">
+            <value>__history</value>
             <value>*~</value>
             <value>*.bak</value>
             <value>jclfpc.inc</value>


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

From: <ou...@us...> - 2009-08-21 15:00:27

Revision: 2952
          http://jcl.svn.sourceforge.net/jcl/?rev=2952&view=rev
Author:   outchy
Date:     2009-08-21 15:00:15 +0000 (Fri, 21 Aug 2009)

Log Message:
-----------
these files are duplicates of .dof and .bpg ones.

Removed Paths:
-------------
    trunk/jcl/examples/JclDebugExamples.bdsgroup
    trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.bdsproj
    trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.bdsproj
    trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsExample.bdsproj
    trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.bdsproj
    trunk/jcl/examples/windows/debug/stacktrack/StackTrackExample.bdsproj

Deleted: trunk/jcl/examples/JclDebugExamples.bdsgroup
===================================================================
--- trunk/jcl/examples/JclDebugExamples.bdsgroup	2009-08-21 14:05:13 UTC (rev 2951)
+++ trunk/jcl/examples/JclDebugExamples.bdsgroup	2009-08-21 15:00:15 UTC (rev 2952)
@@ -1,23 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<BorlandProject>
-  <PersonalityInfo>
-    <Option>
-      <Option Name="Personality">Default.Personality</Option>
-      <Option Name="ProjectType"></Option>
-      <Option Name="Version">1.0</Option>
-      <Option Name="GUID">{DA6232CE-74D4-4FD2-95D5-44C5C155C336}</Option>
-    </Option>
-  </PersonalityInfo>
-  <Default.Personality>
-    
-    <Projects>
-      <Projects Name="StackTrackDLLsExample.exe">windows\debug\stacktrack\StackTrackDLLsExample.bdsproj</Projects>
-      <Projects Name="StackTrackDLLsStaticLibrary.dll">windows\debug\stacktrack\StackTrackDLLsStaticLibrary.bdsproj</Projects>
-      <Projects Name="StackTrackDLLsDynamicLibrary.dll">windows\debug\stacktrack\StackTrackDLLsDynamicLibrary.bdsproj</Projects>
-      <Projects Name="StackTrackDLLsComLibrary.dll">windows\debug\stacktrack\StackTrackDLLsComLibrary.bdsproj</Projects>
-      <Projects Name="StackTrackExample.exe">windows\debug\stacktrack\StackTrackExample.bdsproj</Projects>
-      <Projects Name="Targets">StackTrackDLLsExample.exe StackTrackDLLsStaticLibrary.dll StackTrackDLLsDynamicLibrary.dll StackTrackDLLsComLibrary.dll StackTrackExample.exe</Projects>
-    </Projects>
-    <Dependencies/>
-  </Default.Personality>
-</BorlandProject>

Deleted: trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.bdsproj
===================================================================
--- trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.bdsproj	2009-08-21 14:05:13 UTC (rev 2951)
+++ trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.bdsproj	2009-08-21 15:00:15 UTC (rev 2952)
@@ -1,175 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<BorlandProject>
-  <PersonalityInfo>
-    <Option>
-      <Option Name="Personality">Delphi.Personality</Option>
-      <Option Name="ProjectType">VCLApplication</Option>
-      <Option Name="Version">1.0</Option>
-      <Option Name="GUID">{28EE2091-005E-4A61-8C18-68F6887EC29A}</Option>
-    </Option>
-  </PersonalityInfo>
-  <Delphi.Personality>
-    <Source>
-      <Source Name="MainSource">StackTrackDLLsComLibrary.dpr</Source>
-    </Source>
-    <FileVersion>
-      <FileVersion Name="Version">7.0</FileVersion>
-    </FileVersion>
-    <Compiler>
-      <Compiler Name="A">8</Compiler>
-      <Compiler Name="B">0</Compiler>
-      <Compiler Name="C">1</Compiler>
-      <Compiler Name="D">1</Compiler>
-      <Compiler Name="E">0</Compiler>
-      <Compiler Name="F">0</Compiler>
-      <Compiler Name="G">1</Compiler>
-      <Compiler Name="H">1</Compiler>
-      <Compiler Name="I">1</Compiler>
-      <Compiler Name="J">0</Compiler>
-      <Compiler Name="K">0</Compiler>
-      <Compiler Name="L">1</Compiler>
-      <Compiler Name="M">0</Compiler>
-      <Compiler Name="N">1</Compiler>
-      <Compiler Name="O">1</Compiler>
-      <Compiler Name="P">1</Compiler>
-      <Compiler Name="Q">0</Compiler>
-      <Compiler Name="R">0</Compiler>
-      <Compiler Name="S">0</Compiler>
-      <Compiler Name="T">0</Compiler>
-      <Compiler Name="U">0</Compiler>
-      <Compiler Name="V">1</Compiler>
-      <Compiler Name="W">0</Compiler>
-      <Compiler Name="X">1</Compiler>
-      <Compiler Name="Y">1</Compiler>
-      <Compiler Name="Z">1</Compiler>
-      <Compiler Name="ShowHints">True</Compiler>
-      <Compiler Name="ShowWarnings">True</Compiler>
-      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
-      <Compiler Name="NamespacePrefix"></Compiler>
-      <Compiler Name="GenerateDocumentation">False</Compiler>
-      <Compiler Name="DefaultNamespace"></Compiler>
-      <Compiler Name="SymbolDeprecated">True</Compiler>
-      <Compiler Name="SymbolLibrary">True</Compiler>
-      <Compiler Name="SymbolPlatform">True</Compiler>
-      <Compiler Name="SymbolExperimental">True</Compiler>
-      <Compiler Name="UnitLibrary">True</Compiler>
-      <Compiler Name="UnitPlatform">True</Compiler>
-      <Compiler Name="UnitDeprecated">True</Compiler>
-      <Compiler Name="UnitExperimental">True</Compiler>
-      <Compiler Name="HResultCompat">True</Compiler>
-      <Compiler Name="HidingMember">True</Compiler>
-      <Compiler Name="HiddenVirtual">True</Compiler>
-      <Compiler Name="Garbage">True</Compiler>
-      <Compiler Name="BoundsError">True</Compiler>
-      <Compiler Name="ZeroNilCompat">True</Compiler>
-      <Compiler Name="StringConstTruncated">True</Compiler>
-      <Compiler Name="ForLoopVarVarPar">True</Compiler>
-      <Compiler Name="TypedConstVarPar">True</Compiler>
-      <Compiler Name="AsgToTypedConst">True</Compiler>
-      <Compiler Name="CaseLabelRange">True</Compiler>
-      <Compiler Name="ForVariable">True</Compiler>
-      <Compiler Name="ConstructingAbstract">True</Compiler>
-      <Compiler Name="ComparisonFalse">True</Compiler>
-      <Compiler Name="ComparisonTrue">True</Compiler>
-      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
-      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
-      <Compiler Name="UnsupportedConstruct">True</Compiler>
-      <Compiler Name="FileOpen">True</Compiler>
-      <Compiler Name="FileOpenUnitSrc">True</Compiler>
-      <Compiler Name="BadGlobalSymbol">True</Compiler>
-      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
-      <Compiler Name="InvalidDirective">True</Compiler>
-      <Compiler Name="PackageNoLink">True</Compiler>
-      <Compiler Name="PackageThreadVar">True</Compiler>
-      <Compiler Name="ImplicitImport">True</Compiler>
-      <Compiler Name="HPPEMITIgnored">True</Compiler>
-      <Compiler Name="NoRetVal">True</Compiler>
-      <Compiler Name="UseBeforeDef">True</Compiler>
-      <Compiler Name="ForLoopVarUndef">True</Compiler>
-      <Compiler Name="UnitNameMismatch">True</Compiler>
-      <Compiler Name="NoCFGFileFound">True</Compiler>
-      <Compiler Name="ImplicitVariants">True</Compiler>
-      <Compiler Name="UnicodeToLocale">True</Compiler>
-      <Compiler Name="LocaleToUnicode">True</Compiler>
-      <Compiler Name="ImagebaseMultiple">True</Compiler>
-      <Compiler Name="SuspiciousTypecast">True</Compiler>
-      <Compiler Name="PrivatePropAccessor">True</Compiler>
-      <Compiler Name="UnsafeType">False</Compiler>
-      <Compiler Name="UnsafeCode">False</Compiler>
-      <Compiler Name="UnsafeCast">False</Compiler>
-      <Compiler Name="OptionTruncated">True</Compiler>
-      <Compiler Name="WideCharReduced">True</Compiler>
-      <Compiler Name="DuplicatesIgnored">True</Compiler>
-      <Compiler Name="UnitInitSeq">True</Compiler>
-      <Compiler Name="LocalPInvoke">True</Compiler>
-      <Compiler Name="MessageDirective">True</Compiler>
-      <Compiler Name="CodePage"></Compiler>
-    </Compiler>
-    <Linker>
-      <Linker Name="MapFile">0</Linker>
-      <Linker Name="OutputObjs">0</Linker>
-      <Linker Name="GenerateHpps">False</Linker>
-      <Linker Name="ConsoleApp">1</Linker>
-      <Linker Name="DebugInfo">False</Linker>
-      <Linker Name="RemoteSymbols">False</Linker>
-      <Linker Name="GenerateDRC">False</Linker>
-      <Linker Name="MinStackSize">16384</Linker>
-      <Linker Name="MaxStackSize">1048576</Linker>
-      <Linker Name="ImageBase">4194304</Linker>
-      <Linker Name="ExeDescription"></Linker>
-    </Linker>
-    <Directories>
-      <Directories Name="OutputDir">..\..\..\..\bin</Directories>
-      <Directories Name="UnitOutputDir"></Directories>
-      <Directories Name="PackageDLLOutputDir"></Directories>
-      <Directories Name="PackageDCPOutputDir"></Directories>
-      <Directories Name="SearchPath"></Directories>
-      <Directories Name="Packages"></Directories>
-      <Directories Name="Conditionals">HOOK_DLL_EXCEPTIONS</Directories>
-      <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
-    </Directories>
-    <Parameters>
-      <Parameters Name="RunParams"></Parameters>
-      <Parameters Name="HostApplication"></Parameters>
-      <Parameters Name="Launcher"></Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="DebugCWD"></Parameters>
-      <Parameters Name="Debug Symbols Search Path"></Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Language>
-      <Language Name="ActiveLang"></Language>
-      <Language Name="ProjectLang">$00000000</Language>
-      <Language Name="RootDir"></Language>
-    </Language>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</VersionInfo>
-      <VersionInfo Name="Build">0</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1031</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-  </Delphi.Personality>
-</BorlandProject>

Deleted: trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.bdsproj
===================================================================
--- trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.bdsproj	2009-08-21 14:05:13 UTC (rev 2951)
+++ trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.bdsproj	2009-08-21 15:00:15 UTC (rev 2952)
@@ -1,175 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<BorlandProject>
-  <PersonalityInfo>
-    <Option>
-      <Option Name="Personality">Delphi.Personality</Option>
-      <Option Name="ProjectType">VCLApplication</Option>
-      <Option Name="Version">1.0</Option>
-      <Option Name="GUID">{B1AF12A9-9CFB-4CCA-A20A-368DF8B9862C}</Option>
-    </Option>
-  </PersonalityInfo>
-  <Delphi.Personality>
-    <Source>
-      <Source Name="MainSource">StackTrackDLLsDynamicLibrary.dpr</Source>
-    </Source>
-    <FileVersion>
-      <FileVersion Name="Version">7.0</FileVersion>
-    </FileVersion>
-    <Compiler>
-      <Compiler Name="A">8</Compiler>
-      <Compiler Name="B">0</Compiler>
-      <Compiler Name="C">1</Compiler>
-      <Compiler Name="D">1</Compiler>
-      <Compiler Name="E">0</Compiler>
-      <Compiler Name="F">0</Compiler>
-      <Compiler Name="G">1</Compiler>
-      <Compiler Name="H">1</Compiler>
-      <Compiler Name="I">1</Compiler>
-      <Compiler Name="J">0</Compiler>
-      <Compiler Name="K">0</Compiler>
-      <Compiler Name="L">1</Compiler>
-      <Compiler Name="M">0</Compiler>
-      <Compiler Name="N">1</Compiler>
-      <Compiler Name="O">1</Compiler>
-      <Compiler Name="P">1</Compiler>
-      <Compiler Name="Q">0</Compiler>
-      <Compiler Name="R">0</Compiler>
-      <Compiler Name="S">0</Compiler>
-      <Compiler Name="T">0</Compiler>
-      <Compiler Name="U">0</Compiler>
-      <Compiler Name="V">1</Compiler>
-      <Compiler Name="W">0</Compiler>
-      <Compiler Name="X">1</Compiler>
-      <Compiler Name="Y">1</Compiler>
-      <Compiler Name="Z">1</Compiler>
-      <Compiler Name="ShowHints">True</Compiler>
-      <Compiler Name="ShowWarnings">True</Compiler>
-      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
-      <Compiler Name="NamespacePrefix"></Compiler>
-      <Compiler Name="GenerateDocumentation">False</Compiler>
-      <Compiler Name="DefaultNamespace"></Compiler>
-      <Compiler Name="SymbolDeprecated">True</Compiler>
-      <Compiler Name="SymbolLibrary">True</Compiler>
-      <Compiler Name="SymbolPlatform">True</Compiler>
-      <Compiler Name="SymbolExperimental">True</Compiler>
-      <Compiler Name="UnitLibrary">True</Compiler>
-      <Compiler Name="UnitPlatform">True</Compiler>
-      <Compiler Name="UnitDeprecated">True</Compiler>
-      <Compiler Name="UnitExperimental">True</Compiler>
-      <Compiler Name="HResultCompat">True</Compiler>
-      <Compiler Name="HidingMember">True</Compiler>
-      <Compiler Name="HiddenVirtual">True</Compiler>
-      <Compiler Name="Garbage">True</Compiler>
-      <Compiler Name="BoundsError">True</Compiler>
-      <Compiler Name="ZeroNilCompat">True</Compiler>
-      <Compiler Name="StringConstTruncated">True</Compiler>
-      <Compiler Name="ForLoopVarVarPar">True</Compiler>
-      <Compiler Name="TypedConstVarPar">True</Compiler>
-      <Compiler Name="AsgToTypedConst">True</Compiler>
-      <Compiler Name="CaseLabelRange">True</Compiler>
-      <Compiler Name="ForVariable">True</Compiler>
-      <Compiler Name="ConstructingAbstract">True</Compiler>
-      <Compiler Name="ComparisonFalse">True</Compiler>
-      <Compiler Name="ComparisonTrue">True</Compiler>
-      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
-      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
-      <Compiler Name="UnsupportedConstruct">True</Compiler>
-      <Compiler Name="FileOpen">True</Compiler>
-      <Compiler Name="FileOpenUnitSrc">True</Compiler>
-      <Compiler Name="BadGlobalSymbol">True</Compiler>
-      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
-      <Compiler Name="InvalidDirective">True</Compiler>
-      <Compiler Name="PackageNoLink">True</Compiler>
-      <Compiler Name="PackageThreadVar">True</Compiler>
-      <Compiler Name="ImplicitImport">True</Compiler>
-      <Compiler Name="HPPEMITIgnored">True</Compiler>
-      <Compiler Name="NoRetVal">True</Compiler>
-      <Compiler Name="UseBeforeDef">True</Compiler>
-      <Compiler Name="ForLoopVarUndef">True</Compiler>
-      <Compiler Name="UnitNameMismatch">True</Compiler>
-      <Compiler Name="NoCFGFileFound">True</Compiler>
-      <Compiler Name="ImplicitVariants">True</Compiler>
-      <Compiler Name="UnicodeToLocale">True</Compiler>
-      <Compiler Name="LocaleToUnicode">True</Compiler>
-      <Compiler Name="ImagebaseMultiple">True</Compiler>
-      <Compiler Name="SuspiciousTypecast">True</Compiler>
-      <Compiler Name="PrivatePropAccessor">True</Compiler>
-      <Compiler Name="UnsafeType">False</Compiler>
-      <Compiler Name="UnsafeCode">False</Compiler>
-      <Compiler Name="UnsafeCast">False</Compiler>
-      <Compiler Name="OptionTruncated">True</Compiler>
-      <Compiler Name="WideCharReduced">True</Compiler>
-      <Compiler Name="DuplicatesIgnored">True</Compiler>
-      <Compiler Name="UnitInitSeq">True</Compiler>
-      <Compiler Name="LocalPInvoke">True</Compiler>
-      <Compiler Name="MessageDirective">True</Compiler>
-      <Compiler Name="CodePage"></Compiler>
-    </Compiler>
-    <Linker>
-      <Linker Name="MapFile">0</Linker>
-      <Linker Name="OutputObjs">0</Linker>
-      <Linker Name="GenerateHpps">False</Linker>
-      <Linker Name="ConsoleApp">1</Linker>
-      <Linker Name="DebugInfo">False</Linker>
-      <Linker Name="RemoteSymbols">False</Linker>
-      <Linker Name="GenerateDRC">False</Linker>
-      <Linker Name="MinStackSize">16384</Linker>
-      <Linker Name="MaxStackSize">1048576</Linker>
-      <Linker Name="ImageBase">4194304</Linker>
-      <Linker Name="ExeDescription"></Linker>
-    </Linker>
-    <Directories>
-      <Directories Name="OutputDir">..\..\..\..\bin</Directories>
-      <Directories Name="UnitOutputDir"></Directories>
-      <Directories Name="PackageDLLOutputDir"></Directories>
-      <Directories Name="PackageDCPOutputDir"></Directories>
-      <Directories Name="SearchPath"></Directories>
-      <Directories Name="Packages"></Directories>
-      <Directories Name="Conditionals">HOOK_DLL_EXCEPTIONS</Directories>
-      <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
-    </Directories>
-    <Parameters>
-      <Parameters Name="RunParams"></Parameters>
-      <Parameters Name="HostApplication"></Parameters>
-      <Parameters Name="Launcher"></Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="DebugCWD"></Parameters>
-      <Parameters Name="Debug Symbols Search Path"></Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Language>
-      <Language Name="ActiveLang"></Language>
-      <Language Name="ProjectLang">$00000000</Language>
-      <Language Name="RootDir"></Language>
-    </Language>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</VersionInfo>
-      <VersionInfo Name="Build">0</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1031</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-  </Delphi.Personality>
-</BorlandProject>

Deleted: trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsExample.bdsproj
===================================================================
--- trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsExample.bdsproj	2009-08-21 14:05:13 UTC (rev 2951)
+++ trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsExample.bdsproj	2009-08-21 15:00:15 UTC (rev 2952)
@@ -1,175 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<BorlandProject>
-  <PersonalityInfo>
-    <Option>
-      <Option Name="Personality">Delphi.Personality</Option>
-      <Option Name="ProjectType">VCLApplication</Option>
-      <Option Name="Version">1.0</Option>
-      <Option Name="GUID">{408349D8-6067-4996-8244-C20B50486C5D}</Option>
-    </Option>
-  </PersonalityInfo>
-  <Delphi.Personality>
-    <Source>
-      <Source Name="MainSource">StackTrackDLLsExample.dpr</Source>
-    </Source>
-    <FileVersion>
-      <FileVersion Name="Version">7.0</FileVersion>
-    </FileVersion>
-    <Compiler>
-      <Compiler Name="A">8</Compiler>
-      <Compiler Name="B">0</Compiler>
-      <Compiler Name="C">1</Compiler>
-      <Compiler Name="D">1</Compiler>
-      <Compiler Name="E">0</Compiler>
-      <Compiler Name="F">0</Compiler>
-      <Compiler Name="G">1</Compiler>
-      <Compiler Name="H">1</Compiler>
-      <Compiler Name="I">1</Compiler>
-      <Compiler Name="J">0</Compiler>
-      <Compiler Name="K">0</Compiler>
-      <Compiler Name="L">1</Compiler>
-      <Compiler Name="M">0</Compiler>
-      <Compiler Name="N">1</Compiler>
-      <Compiler Name="O">1</Compiler>
-      <Compiler Name="P">1</Compiler>
-      <Compiler Name="Q">0</Compiler>
-      <Compiler Name="R">0</Compiler>
-      <Compiler Name="S">0</Compiler>
-      <Compiler Name="T">0</Compiler>
-      <Compiler Name="U">0</Compiler>
-      <Compiler Name="V">1</Compiler>
-      <Compiler Name="W">0</Compiler>
-      <Compiler Name="X">1</Compiler>
-      <Compiler Name="Y">1</Compiler>
-      <Compiler Name="Z">1</Compiler>
-      <Compiler Name="ShowHints">True</Compiler>
-      <Compiler Name="ShowWarnings">True</Compiler>
-      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
-      <Compiler Name="NamespacePrefix"></Compiler>
-      <Compiler Name="GenerateDocumentation">False</Compiler>
-      <Compiler Name="DefaultNamespace"></Compiler>
-      <Compiler Name="SymbolDeprecated">True</Compiler>
-      <Compiler Name="SymbolLibrary">True</Compiler>
-      <Compiler Name="SymbolPlatform">True</Compiler>
-      <Compiler Name="SymbolExperimental">True</Compiler>
-      <Compiler Name="UnitLibrary">True</Compiler>
-      <Compiler Name="UnitPlatform">True</Compiler>
-      <Compiler Name="UnitDeprecated">True</Compiler>
-      <Compiler Name="UnitExperimental">True</Compiler>
-      <Compiler Name="HResultCompat">True</Compiler>
-      <Compiler Name="HidingMember">True</Compiler>
-      <Compiler Name="HiddenVirtual">True</Compiler>
-      <Compiler Name="Garbage">True</Compiler>
-      <Compiler Name="BoundsError">True</Compiler>
-      <Compiler Name="ZeroNilCompat">True</Compiler>
-      <Compiler Name="StringConstTruncated">True</Compiler>
-      <Compiler Name="ForLoopVarVarPar">True</Compiler>
-      <Compiler Name="TypedConstVarPar">True</Compiler>
-      <Compiler Name="AsgToTypedConst">True</Compiler>
-      <Compiler Name="CaseLabelRange">True</Compiler>
-      <Compiler Name="ForVariable">True</Compiler>
-      <Compiler Name="ConstructingAbstract">True</Compiler>
-      <Compiler Name="ComparisonFalse">True</Compiler>
-      <Compiler Name="ComparisonTrue">True</Compiler>
-      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
-      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
-      <Compiler Name="UnsupportedConstruct">True</Compiler>
-      <Compiler Name="FileOpen">True</Compiler>
-      <Compiler Name="FileOpenUnitSrc">True</Compiler>
-      <Compiler Name="BadGlobalSymbol">True</Compiler>
-      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
-      <Compiler Name="InvalidDirective">True</Compiler>
-      <Compiler Name="PackageNoLink">True</Compiler>
-      <Compiler Name="PackageThreadVar">True</Compiler>
-      <Compiler Name="ImplicitImport">True</Compiler>
-      <Compiler Name="HPPEMITIgnored">True</Compiler>
-      <Compiler Name="NoRetVal">True</Compiler>
-      <Compiler Name="UseBeforeDef">True</Compiler>
-      <Compiler Name="ForLoopVarUndef">True</Compiler>
-      <Compiler Name="UnitNameMismatch">True</Compiler>
-      <Compiler Name="NoCFGFileFound">True</Compiler>
-      <Compiler Name="ImplicitVariants">True</Compiler>
-      <Compiler Name="UnicodeToLocale">True</Compiler>
-      <Compiler Name="LocaleToUnicode">True</Compiler>
-      <Compiler Name="ImagebaseMultiple">True</Compiler>
-      <Compiler Name="SuspiciousTypecast">True</Compiler>
-      <Compiler Name="PrivatePropAccessor">True</Compiler>
-      <Compiler Name="UnsafeType">False</Compiler>
-      <Compiler Name="UnsafeCode">False</Compiler>
-      <Compiler Name="UnsafeCast">False</Compiler>
-      <Compiler Name="OptionTruncated">True</Compiler>
-      <Compiler Name="WideCharReduced">True</Compiler>
-      <Compiler Name="DuplicatesIgnored">True</Compiler>
-      <Compiler Name="UnitInitSeq">True</Compiler>
-      <Compiler Name="LocalPInvoke">True</Compiler>
-      <Compiler Name="MessageDirective">True</Compiler>
-      <Compiler Name="CodePage"></Compiler>
-    </Compiler>
-    <Linker>
-      <Linker Name="MapFile">0</Linker>
-      <Linker Name="OutputObjs">0</Linker>
-      <Linker Name="GenerateHpps">False</Linker>
-      <Linker Name="ConsoleApp">1</Linker>
-      <Linker Name="DebugInfo">False</Linker>
-      <Linker Name="RemoteSymbols">False</Linker>
-      <Linker Name="GenerateDRC">False</Linker>
-      <Linker Name="MinStackSize">16384</Linker>
-      <Linker Name="MaxStackSize">1048576</Linker>
-      <Linker Name="ImageBase">4194304</Linker>
-      <Linker Name="ExeDescription"></Linker>
-    </Linker>
-    <Directories>
-      <Directories Name="OutputDir">..\..\..\..\bin</Directories>
-      <Directories Name="UnitOutputDir"></Directories>
-      <Directories Name="PackageDLLOutputDir"></Directories>
-      <Directories Name="PackageDCPOutputDir"></Directories>
-      <Directories Name="SearchPath"></Directories>
-      <Directories Name="Packages"></Directories>
-      <Directories Name="Conditionals">HOOK_DLL_EXCEPTIONS</Directories>
-      <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
-    </Directories>
-    <Parameters>
-      <Parameters Name="RunParams"></Parameters>
-      <Parameters Name="HostApplication"></Parameters>
-      <Parameters Name="Launcher"></Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="DebugCWD"></Parameters>
-      <Parameters Name="Debug Symbols Search Path"></Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Language>
-      <Language Name="ActiveLang"></Language>
-      <Language Name="ProjectLang">$00000000</Language>
-      <Language Name="RootDir"></Language>
-    </Language>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</VersionInfo>
-      <VersionInfo Name="Build">0</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1031</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-  </Delphi.Personality>
-</BorlandProject>

Deleted: trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.bdsproj
===================================================================
--- trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.bdsproj	2009-08-21 14:05:13 UTC (rev 2951)
+++ trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.bdsproj	2009-08-21 15:00:15 UTC (rev 2952)
@@ -1,175 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<BorlandProject>
-  <PersonalityInfo>
-    <Option>
-      <Option Name="Personality">Delphi.Personality</Option>
-      <Option Name="ProjectType">VCLApplication</Option>
-      <Option Name="Version">1.0</Option>
-      <Option Name="GUID">{23237F7B-FDEE-4A59-8911-0784E4314F34}</Option>
-    </Option>
-  </PersonalityInfo>
-  <Delphi.Personality>
-    <Source>
-      <Source Name="MainSource">StackTrackDLLsStaticLibrary.dpr</Source>
-    </Source>
-    <FileVersion>
-      <FileVersion Name="Version">7.0</FileVersion>
-    </FileVersion>
-    <Compiler>
-      <Compiler Name="A">8</Compiler>
-      <Compiler Name="B">0</Compiler>
-      <Compiler Name="C">1</Compiler>
-      <Compiler Name="D">1</Compiler>
-      <Compiler Name="E">0</Compiler>
-      <Compiler Name="F">0</Compiler>
-      <Compiler Name="G">1</Compiler>
-      <Compiler Name="H">1</Compiler>
-      <Compiler Name="I">1</Compiler>
-      <Compiler Name="J">0</Compiler>
-      <Compiler Name="K">0</Compiler>
-      <Compiler Name="L">1</Compiler>
-      <Compiler Name="M">0</Compiler>
-      <Compiler Name="N">1</Compiler>
-      <Compiler Name="O">1</Compiler>
-      <Compiler Name="P">1</Compiler>
-      <Compiler Name="Q">0</Compiler>
-      <Compiler Name="R">0</Compiler>
-      <Compiler Name="S">0</Compiler>
-      <Compiler Name="T">0</Compiler>
-      <Compiler Name="U">0</Compiler>
-      <Compiler Name="V">1</Compiler>
-      <Compiler Name="W">0</Compiler>
-      <Compiler Name="X">1</Compiler>
-      <Compiler Name="Y">1</Compiler>
-      <Compiler Name="Z">1</Compiler>
-      <Compiler Name="ShowHints">True</Compiler>
-      <Compiler Name="ShowWarnings">True</Compiler>
-      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
-      <Compiler Name="NamespacePrefix"></Compiler>
-      <Compiler Name="GenerateDocumentation">False</Compiler>
-      <Compiler Name="DefaultNamespace"></Compiler>
-      <Compiler Name="SymbolDeprecated">True</Compiler>
-      <Compiler Name="SymbolLibrary">True</Compiler>
-      <Compiler Name="SymbolPlatform">True</Compiler>
-      <Compiler Name="SymbolExperimental">True</Compiler>
-      <Compiler Name="UnitLibrary">True</Compiler>
-      <Compiler Name="UnitPlatform">True</Compiler>
-      <Compiler Name="UnitDeprecated">True</Compiler>
-      <Compiler Name="UnitExperimental">True</Compiler>
-      <Compiler Name="HResultCompat">True</Compiler>
-      <Compiler Name="HidingMember">True</Compiler>
-      <Compiler Name="HiddenVirtual">True</Compiler>
-      <Compiler Name="Garbage">True</Compiler>
-      <Compiler Name="BoundsError">True</Compiler>
-      <Compiler Name="ZeroNilCompat">True</Compiler>
-      <Compiler Name="StringConstTruncated">True</Compiler>
-      <Compiler Name="ForLoopVarVarPar">True</Compiler>
-      <Compiler Name="TypedConstVarPar">True</Compiler>
-      <Compiler Name="AsgToTypedConst">True</Compiler>
-      <Compiler Name="CaseLabelRange">True</Compiler>
-      <Compiler Name="ForVariable">True</Compiler>
-      <Compiler Name="ConstructingAbstract">True</Compiler>
-      <Compiler Name="ComparisonFalse">True</Compiler>
-      <Compiler Name="ComparisonTrue">True</Compiler>
-      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
-      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
-      <Compiler Name="UnsupportedConstruct">True</Compiler>
-      <Compiler Name="FileOpen">True</Compiler>
-      <Compiler Name="FileOpenUnitSrc">True</Compiler>
-      <Compiler Name="BadGlobalSymbol">True</Compiler>
-      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
-      <Compiler Name="InvalidDirective">True</Compiler>
-      <Compiler Name="PackageNoLink">True</Compiler>
-      <Compiler Name="PackageThreadVar">True</Compiler>
-      <Compiler Name="ImplicitImport">True</Compiler>
-      <Compiler Name="HPPEMITIgnored">True</Compiler>
-      <Compiler Name="NoRetVal">True</Compiler>
-      <Compiler Name="UseBeforeDef">True</Compiler>
-      <Compiler Name="ForLoopVarUndef">True</Compiler>
-      <Compiler Name="UnitNameMismatch">True</Compiler>
-      <Compiler Name="NoCFGFileFound">True</Compiler>
-      <Compiler Name="ImplicitVariants">True</Compiler>
-      <Compiler Name="UnicodeToLocale">True</Compiler>
-      <Compiler Name="LocaleToUnicode">True</Compiler>
-      <Compiler Name="ImagebaseMultiple">True</Compiler>
-      <Compiler Name="SuspiciousTypecast">True</Compiler>
-      <Compiler Name="PrivatePropAccessor">True</Compiler>
-      <Compiler Name="UnsafeType">False</Compiler>
-      <Compiler Name="UnsafeCode">False</Compiler>
-      <Compiler Name="UnsafeCast">False</Compiler>
-      <Compiler Name="OptionTruncated">True</Compiler>
-      <Compiler Name="WideCharReduced">True</Compiler>
-      <Compiler Name="DuplicatesIgnored">True</Compiler>
-      <Compiler Name="UnitInitSeq">True</Compiler>
-      <Compiler Name="LocalPInvoke">True</Compiler>
-      <Compiler Name="MessageDirective">True</Compiler>
-      <Compiler Name="CodePage"></Compiler>
-    </Compiler>
-    <Linker>
-      <Linker Name="MapFile">0</Linker>
-      <Linker Name="OutputObjs">0</Linker>
-      <Linker Name="GenerateHpps">False</Linker>
-      <Linker Name="ConsoleApp">1</Linker>
-      <Linker Name="DebugInfo">False</Linker>
-      <Linker Name="RemoteSymbols">False</Linker>
-      <Linker Name="GenerateDRC">False</Linker>
-      <Linker Name="MinStackSize">16384</Linker>
-      <Linker Name="MaxStackSize">1048576</Linker>
-      <Linker Name="ImageBase">4194304</Linker>
-      <Linker Name="ExeDescription"></Linker>
-    </Linker>
-    <Directories>
-      <Directories Name="OutputDir">..\..\..\..\bin</Directories>
-      <Directories Name="UnitOutputDir"></Directories>
-      <Directories Name="PackageDLLOutputDir"></Directories>
-      <Directories Name="PackageDCPOutputDir"></Directories>
-      <Directories Name="SearchPath"></Directories>
-      <Directories Name="Packages"></Directories>
-      <Directories Name="Conditionals">HOOK_DLL_EXCEPTIONS</Directories>
-      <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
-    </Directories>
-    <Parameters>
-      <Parameters Name="RunParams"></Parameters>
-      <Parameters Name="HostApplication"></Parameters>
-      <Parameters Name="Launcher"></Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="DebugCWD"></Parameters>
-      <Parameters Name="Debug Symbols Search Path"></Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Language>
-      <Language Name="ActiveLang"></Language>
-      <Language Name="ProjectLang">$00000000</Language>
-      <Language Name="RootDir"></Language>
-    </Language>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</VersionInfo>
-      <VersionInfo Name="Build">0</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1031</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-  </Delphi.Personality>
-</BorlandProject>

Deleted: trunk/jcl/examples/windows/debug/stacktrack/StackTrackExample.bdsproj
===================================================================
--- trunk/jcl/examples/windows/debug/stacktrack/StackTrackExample.bdsproj	2009-08-21 14:05:13 UTC (rev 2951)
+++ trunk/jcl/examples/windows/debug/stacktrack/StackTrackExample.bdsproj	2009-08-21 15:00:15 UTC (rev 2952)
@@ -1,175 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<BorlandProject>
-  <PersonalityInfo>
-    <Option>
-      <Option Name="Personality">Delphi.Personality</Option>
-      <Option Name="ProjectType">VCLApplication</Option>
-      <Option Name="Version">1.0</Option>
-      <Option Name="GUID">{EB18AE6A-75B1-47E9-BCBF-154C37E9DFA1}</Option>
-    </Option>
-  </PersonalityInfo>
-  <Delphi.Personality>
-    <Source>
-      <Source Name="MainSource">StackTrackExample.dpr</Source>
-    </Source>
-    <FileVersion>
-      <FileVersion Name="Version">7.0</FileVersion>
-    </FileVersion>
-    <Compiler>
-      <Compiler Name="A">8</Compiler>
-      <Compiler Name="B">0</Compiler>
-      <Compiler Name="C">1</Compiler>
-      <Compiler Name="D">1</Compiler>
-      <Compiler Name="E">0</Compiler>
-      <Compiler Name="F">0</Compiler>
-      <Compiler Name="G">1</Compiler>
-      <Compiler Name="H">1</Compiler>
-      <Compiler Name="I">1</Compiler>
-      <Compiler Name="J">0</Compiler>
-      <Compiler Name="K">0</Compiler>
-      <Compiler Name="L">1</Compiler>
-      <Compiler Name="M">0</Compiler>
-      <Compiler Name="N">1</Compiler>
-      <Compiler Name="O">1</Compiler>
-      <Compiler Name="P">1</Compiler>
-      <Compiler Name="Q">0</Compiler>
-      <Compiler Name="R">0</Compiler>
-      <Compiler Name="S">0</Compiler>
-      <Compiler Name="T">0</Compiler>
-      <Compiler Name="U">0</Compiler>
-      <Compiler Name="V">1</Compiler>
-      <Compiler Name="W">0</Compiler>
-      <Compiler Name="X">1</Compiler>
-      <Compiler Name="Y">1</Compiler>
-      <Compiler Name="Z">1</Compiler>
-      <Compiler Name="ShowHints">True</Compiler>
-      <Compiler Name="ShowWarnings">True</Compiler>
-      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
-      <Compiler Name="NamespacePrefix"></Compiler>
-      <Compiler Name="GenerateDocumentation">False</Compiler>
-      <Compiler Name="DefaultNamespace"></Compiler>
-      <Compiler Name="SymbolDeprecated">True</Compiler>
-      <Compiler Name="SymbolLibrary">True</Compiler>
-      <Compiler Name="SymbolPlatform">True</Compiler>
-      <Compiler Name="SymbolExperimental">True</Compiler>
-      <Compiler Name="UnitLibrary">True</Compiler>
-      <Compiler Name="UnitPlatform">True</Compiler>
-      <Compiler Name="UnitDeprecated">True</Compiler>
-      <Compiler Name="UnitExperimental">True</Compiler>
-      <Compiler Name="HResultCompat">True</Compiler>
-      <Compiler Name="HidingMember">True</Compiler>
-      <Compiler Name="HiddenVirtual">True</Compiler>
-      <Compiler Name="Garbage">True</Compiler>
-      <Compiler Name="BoundsError">True</Compiler>
-      <Compiler Name="ZeroNilCompat">True</Compiler>
-      <Compiler Name="StringConstTruncated">True</Compiler>
-      <Compiler Name="ForLoopVarVarPar">True</Compiler>
-      <Compiler Name="TypedConstVarPar">True</Compiler>
-      <Compiler Name="AsgToTypedConst">True</Compiler>
-      <Compiler Name="CaseLabelRange">True</Compiler>
-      <Compiler Name="ForVariable">True</Compiler>
-      <Compiler Name="ConstructingAbstract">True</Compiler>
-      <Compiler Name="ComparisonFalse">True</Compiler>
-      <Compiler Name="ComparisonTrue">True</Compiler>
-      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
-      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
-      <Compiler Name="UnsupportedConstruct">True</Compiler>
-      <Compiler Name="FileOpen">True</Compiler>
-      <Compiler Name="FileOpenUnitSrc">True</Compiler>
-      <Compiler Name="BadGlobalSymbol">True</Compiler>
-      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
-      <Compiler Name="InvalidDirective">True</Compiler>
-      <Compiler Name="PackageNoLink">True</Compiler>
-      <Compiler Name="PackageThreadVar">True</Compiler>
-      <Compiler Name="ImplicitImport">True</Compiler>
-      <Compiler Name="HPPEMITIgnored">True</Compiler>
-      <Compiler Name="NoRetVal">True</Compiler>
-      <Compiler Name="UseBeforeDef">True</Compiler>
-      <Compiler Name="ForLoopVarUndef">True</Compiler>
-      <Compiler Name="UnitNameMismatch">True</Compiler>
-      <Compiler Name="NoCFGFileFound">True</Compiler>
-      <Compiler Name="ImplicitVariants">True</Compiler>
-      <Compiler Name="UnicodeToLocale">True</Compiler>
-      <Compiler Name="LocaleToUnicode">True</Compiler>
-      <Compiler Name="ImagebaseMultiple">True</Compiler>
-      <Compiler Name="SuspiciousTypecast">True</Compiler>
-      <Compiler Name="PrivatePropAccessor">True</Compiler>
-      <Compiler Name="UnsafeType">False</Compiler>
-      <Compiler Name="UnsafeCode">False</Compiler>
-      <Compiler Name="UnsafeCast">False</Compiler>
-      <Compiler Name="OptionTruncated">True</Compiler>
-      <Compiler Name="WideCharReduced">True</Compiler>
-      <Compiler Name="DuplicatesIgnored">True</Compiler>
-      <Compiler Name="UnitInitSeq">True</Compiler>
-      <Compiler Name="LocalPInvoke">True</Compiler>
-      <Compiler Name="MessageDirective">True</Compiler>
-      <Compiler Name="CodePage"></Compiler>
-    </Compiler>
-    <Linker>
-      <Linker Name="MapFile">0</Linker>
-      <Linker Name="OutputObjs">0</Linker>
-      <Linker Name="GenerateHpps">False</Linker>
-      <Linker Name="ConsoleApp">1</Linker>
-      <Linker Name="DebugInfo">False</Linker>
-      <Linker Name="RemoteSymbols">False</Linker>
-      <Linker Name="GenerateDRC">False</Linker>
-      <Linker Name="MinStackSize">16384</Linker>
-      <Linker Name="MaxStackSize">1048576</Linker>
-      <Linker Name="ImageBase">4194304</Linker>
-      <Linker Name="ExeDescription"></Linker>
-    </Linker>
-    <Directories>
-      <Directories Name="OutputDir">..\..\..\..\bin</Directories>
-      <Directories Name="UnitOutputDir"></Directories>
-      <Directories Name="PackageDLLOutputDir"></Directories>
-      <Directories Name="PackageDCPOutputDir"></Directories>
-      <Directories Name="SearchPath"></Directories>
-      <Directories Name="Packages"></Directories>
-      <Directories Name="Conditionals">HOOK_DLL_EXCEPTIONS</Directories>
-      <Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
-    </Directories>
-    <Parameters>
-      <Parameters Name="RunParams"></Parameters>
-      <Parameters Name="HostApplication"></Parameters>
-      <Parameters Name="Launcher"></Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="DebugCWD"></Parameters>
-      <Parameters Name="Debug Symbols Search Path"></Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Language>
-      <Language Name="ActiveLang"></Language>
-      <Language Name="ProjectLang">$00000000</Language>
-      <Language Name="RootDir"></Language>
-    </Language>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</VersionInfo>
-      <VersionInfo Name="Build">0</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1031</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-  </Delphi.Personality>
-</BorlandProject>


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:[2951] trunk

From: <ou...@us...> - 2009-08-21 14:05:21

Revision: 2951
          http://jcl.svn.sourceforge.net/jcl/?rev=2951&view=rev
Author:   outchy
Date:     2009-08-21 14:05:13 +0000 (Fri, 21 Aug 2009)

Log Message:
-----------
Kylix is not supported anymore.

Modified Paths:
--------------
    trunk/thirdparty/svn_cleaner/SvnCleaner.xml

Property Changed:
----------------
    trunk/jcl/bin/


Property changes on: trunk/jcl/bin
___________________________________________________________________
Modified: svn:ignore
   - *.exe
*.log
*.ini
*.dll
*.pdb
QJediInstaller

   + *.exe
*.log
*.ini
*.dll
*.pdb


Modified: trunk/thirdparty/svn_cleaner/SvnCleaner.xml
===================================================================
--- trunk/thirdparty/svn_cleaner/SvnCleaner.xml	2009-08-21 13:50:36 UTC (rev 2950)
+++ trunk/thirdparty/svn_cleaner/SvnCleaner.xml	2009-08-21 14:05:13 UTC (rev 2951)
@@ -111,7 +111,6 @@
           <value>*.ini</value>
           <value>*.dll</value>
           <value>*.pdb</value>
-          <value>QJediInstaller</value>
         </property>
      </setting>
 


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:[2950] trunk/jcl/install/BCB5-dcc32.cfg.mak

From: <ou...@us...> - 2009-08-21 13:50:43

Revision: 2950
          http://jcl.svn.sourceforge.net/jcl/?rev=2950&view=rev
Author:   outchy
Date:     2009-08-21 13:50:36 +0000 (Fri, 21 Aug 2009)

Log Message:
-----------
BCB5 is not supported anymore.

Removed Paths:
-------------
    trunk/jcl/install/BCB5-dcc32.cfg.mak

Deleted: trunk/jcl/install/BCB5-dcc32.cfg.mak
===================================================================
--- trunk/jcl/install/BCB5-dcc32.cfg.mak	2009-08-20 17:46:17 UTC (rev 2949)
+++ trunk/jcl/install/BCB5-dcc32.cfg.mak	2009-08-21 13:50:36 UTC (rev 2950)
@@ -1,26 +0,0 @@
-#--------------------------------------------------------------------------------------------------#
-#                                                                                                  #
-# JCL Install Helper for BCB 5                                                                     #
-#                                                                                                  #
-# Fixes problem with missing AccCtrl.dcu:                                                          #
-#   if Bin\dcc32.cfg does not exist, creates it & adds library paths.                              #
-#   if Bin\dcc32.cfg doesn't contain -LU"$(ROOT)\Lib\Obj\vcl50.dcp", inserts it.                   #
-#                                                                                                  #
-# Robert Rossmair, 2004-06-10                                                                      #
-#                                                                                                  #
-#--------------------------------------------------------------------------------------------------#
-
-!ifndef ROOT
-ROOT = $(MAKEDIR)\..
-!endif
-#---------------------------------------------------------------------------------------------------
-DccCfg = "$(MAKEDIR)\dcc32.cfg"
-
-$(ROOT)\Lib\Obj\AccCtrl.dcu:
-	@if exist $(DccCfg) (if not exist $(DccCfg).bak copy $(DccCfg) $(DccCfg).bak) else echo -u"$(ROOT)\Lib";"$(ROOT)\Lib\Obj" > $(DccCfg)
-	@if not exist "$(ROOT)\Lib\Obj\vcl50.dcp" goto Finis
-	-@"$(MAKEDIR)\grep" -i+ vcl50 $(DccCfg)
-	@if errorlevel 1 echo -LUvcl50 >> $(DccCfg)
-	@:Finis
-	
-.precious: "$(ROOT)\Lib\Obj\AccCtrl.dcu"
\ No newline at end of file


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:[2949] trunk/jcl/source/prototypes/win32api/ShlObj.int

From: <ou...@us...> - 2009-08-20 17:46:26

Revision: 2949
          http://jcl.svn.sourceforge.net/jcl/?rev=2949&view=rev
Author:   outchy
Date:     2009-08-20 17:46:17 +0000 (Thu, 20 Aug 2009)

Log Message:
-----------
rev 2948 should have updated the prototypes.

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

Modified Paths:
--------------
    trunk/jcl/source/prototypes/win32api/ShlObj.int

Modified: trunk/jcl/source/prototypes/win32api/ShlObj.int
===================================================================
--- trunk/jcl/source/prototypes/win32api/ShlObj.int	2009-08-16 08:54:28 UTC (rev 2948)
+++ trunk/jcl/source/prototypes/win32api/ShlObj.int	2009-08-20 17:46:17 UTC (rev 2949)
@@ -1,5 +1,6 @@
 
 const
+  CSIDL_LOCAL_APPDATA        = $001C; { <user name>\Local Settings\Application Data (non roaming) }
   CSIDL_COMMON_APPDATA       = $0023; { All Users\Application Data }
   CSIDL_WINDOWS              = $0024; { GetWindowsDirectory() }
   CSIDL_SYSTEM               = $0025; { GetSystemDirectory() }
@@ -21,6 +22,7 @@
   CSIDL_CDBURN_AREA          = $003B; { USERPROFILE\Local Settings\Application Data\Microsoft\CD Burning }
   CSIDL_COMPUTERSNEARME      = $003D; { Computers Near Me (computered from Workgroup membership) }
 
+  {$EXTERNALSYM CSIDL_LOCAL_APPDATA}
   {$EXTERNALSYM CSIDL_COMMON_APPDATA}
   {$EXTERNALSYM CSIDL_WINDOWS}
   {$EXTERNALSYM CSIDL_SYSTEM}


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

From: <ob...@us...> - 2009-08-16 08:54:37

Revision: 2948
          http://jcl.svn.sourceforge.net/jcl/?rev=2948&view=rev
Author:   obones
Date:     2009-08-16 08:54:28 +0000 (Sun, 16 Aug 2009)

Log Message:
-----------
Missing CSIDL_LOCAL_APPDATA

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

Modified: trunk/jcl/source/windows/JclWin32.pas
===================================================================
--- trunk/jcl/source/windows/JclWin32.pas	2009-08-13 14:24:24 UTC (rev 2947)
+++ trunk/jcl/source/windows/JclWin32.pas	2009-08-16 08:54:28 UTC (rev 2948)
@@ -5588,6 +5588,7 @@
 
 
 const
+  CSIDL_LOCAL_APPDATA        = $001C; { <user name>\Local Settings\Application Data (non roaming) }
   CSIDL_COMMON_APPDATA       = $0023; { All Users\Application Data }
   CSIDL_WINDOWS              = $0024; { GetWindowsDirectory() }
   CSIDL_SYSTEM               = $0025; { GetSystemDirectory() }
@@ -5609,6 +5610,7 @@
   CSIDL_CDBURN_AREA          = $003B; { USERPROFILE\Local Settings\Application Data\Microsoft\CD Burning }
   CSIDL_COMPUTERSNEARME      = $003D; { Computers Near Me (computered from Workgroup membership) }
 
+  {$EXTERNALSYM CSIDL_LOCAL_APPDATA}
   {$EXTERNALSYM CSIDL_COMMON_APPDATA}
   {$EXTERNALSYM CSIDL_WINDOWS}
   {$EXTERNALSYM CSIDL_SYSTEM}


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

From: <ou...@us...> - 2009-08-13 14:24:32

Revision: 2947
          http://jcl.svn.sourceforge.net/jcl/?rev=2947&view=rev
Author:   outchy
Date:     2009-08-13 14:24:24 +0000 (Thu, 13 Aug 2009)

Log Message:
-----------
Mantis 4838: Error while reading Property "Color" 
InternalGetAnsiString and InternalGetWideString should not raise exceptions when the parameter RaiseException is equal to False and when the data type does not denote a string type.

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

Modified: trunk/jcl/source/windows/JclRegistry.pas
===================================================================
--- trunk/jcl/source/windows/JclRegistry.pas	2009-08-13 13:13:34 UTC (rev 2946)
+++ trunk/jcl/source/windows/JclRegistry.pas	2009-08-13 14:24:24 UTC (rev 2947)
@@ -577,29 +577,38 @@
           RegKinds := [REG_BINARY, REG_SZ, REG_EXPAND_SZ, REG_MULTI_SZ]
         else
           RegKinds := [REG_BINARY, REG_SZ, REG_EXPAND_SZ];
-        if not (DataType in RegKinds) then
-          DataError(RootKey, Key, Name);
-        if Win32Platform = VER_PLATFORM_WIN32_NT then
+        if DataType in RegKinds then
         begin
-          DataLength := DataSize div SizeOf(WideChar);
-          SetLength(TmpRet, DataLength);
-          Result := InternalRegQueryValueEx(RegKey, PWideChar(Name), nil, nil, PWideChar(TmpRet), @DataSize) = ERROR_SUCCESS;
-          if Result then
-            RetValue := AnsiString(Copy(TmpRet, 1, DataLength - 1));
+          if Win32Platform = VER_PLATFORM_WIN32_NT then
+          begin
+            DataLength := DataSize div SizeOf(WideChar);
+            SetLength(TmpRet, DataLength);
+            Result := InternalRegQueryValueEx(RegKey, PWideChar(Name), nil, nil, PWideChar(TmpRet), @DataSize) = ERROR_SUCCESS;
+            if Result then
+              RetValue := AnsiString(Copy(TmpRet, 1, DataLength - 1));
+          end
+          else
+          begin
+            DataLength := DataSize div SizeOf(AnsiChar);
+            SetLength(RetValue, DataLength);
+            Result := InternalRegQueryValueEx(RegKey, PWideChar(Name), nil, nil, PAnsiChar(RetValue), @DataSize) = ERROR_SUCCESS;
+            if Result then
+              SetLength(RetValue, DataLength - 1);
+          end;
+          if not Result then
+          begin
+            RetValue := '';
+            if RaiseException then
+              ValueError(RootKey, Key, Name)
+            else
+              Result := False;
+          end;
         end
         else
         begin
-          DataLength := DataSize div SizeOf(AnsiChar);
-          SetLength(RetValue, DataLength);
-          Result := InternalRegQueryValueEx(RegKey, PWideChar(Name), nil, nil, PAnsiChar(RetValue), @DataSize) = ERROR_SUCCESS;
-          if Result then
-            SetLength(RetValue, DataLength - 1);
-        end;
-        if not Result then
-        begin
           RetValue := '';
           if RaiseException then
-            ValueError(RootKey, Key, Name)
+            DataError(RootKey, Key, Name)
           else
             Result := False;
         end;
@@ -643,17 +652,26 @@
           RegKinds := [REG_BINARY, REG_SZ, REG_EXPAND_SZ, REG_MULTI_SZ]
         else
           RegKinds := [REG_BINARY, REG_SZ, REG_EXPAND_SZ];
-        if not (DataType in RegKinds) then
-          DataError(RootKey, Key, Name);
-        DataLength := DataSize div SizeOf(WideChar);
-        SetLength(RetValue, DataLength);
-        if InternalRegQueryValueEx(RegKey, PWideChar(Name), nil, nil, PWideChar(RetValue), @DataSize) = ERROR_SUCCESS then
-          SetLength(RetValue, DataLength - 1)
+        if DataType in RegKinds then
+        begin
+          DataLength := DataSize div SizeOf(WideChar);
+          SetLength(RetValue, DataLength);
+          if InternalRegQueryValueEx(RegKey, PWideChar(Name), nil, nil, PWideChar(RetValue), @DataSize) = ERROR_SUCCESS then
+            SetLength(RetValue, DataLength - 1)
+          else
+          begin
+            RetValue := '';
+            if RaiseException then
+              ValueError(RootKey, Key, Name)
+            else
+              Result := False;
+          end;
+        end
         else
         begin
           RetValue := '';
           if RaiseException then
-            ValueError(RootKey, Key, Name)
+            DataError(RootKey, Key, Name)
           else
             Result := False;
         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:[2946] trunk/jcl/source/common/JclSysInfo.pas

From: <ou...@us...> - 2009-08-13 13:13:41

Revision: 2946
          http://jcl.svn.sourceforge.net/jcl/?rev=2946&view=rev
Author:   outchy
Date:     2009-08-13 13:13:34 +0000 (Thu, 13 Aug 2009)

Log Message:
-----------
revision 2945 donator name.

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

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

Modified: trunk/jcl/source/common/JclSysInfo.pas
===================================================================
--- trunk/jcl/source/common/JclSysInfo.pas	2009-08-13 13:11:22 UTC (rev 2945)
+++ trunk/jcl/source/common/JclSysInfo.pas	2009-08-13 13:13:34 UTC (rev 2946)
@@ -23,6 +23,7 @@
 {   Carl Clark                                                                                     }
 {   Eric S. Fisher                                                                                 }
 {   Florent Ouchet (outchy)                                                                        }
+{   Heiko Adams                                                                                    }
 {   James Azarja                                                                                   }
 {   Jean-Fabien Connault (cycocrew)                                                                }
 {   John C Molyneux                                                                                }


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

From: <ou...@us...> - 2009-08-13 13:11:30

Revision: 2945
          http://jcl.svn.sourceforge.net/jcl/?rev=2945&view=rev
Author:   outchy
Date:     2009-08-13 13:11:22 +0000 (Thu, 13 Aug 2009)

Log Message:
-----------
Mantis 4891: New Function GetLocalAppData 

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

Modified: trunk/jcl/source/common/JclSysInfo.pas
===================================================================
--- trunk/jcl/source/common/JclSysInfo.pas	2009-08-12 18:31:19 UTC (rev 2944)
+++ trunk/jcl/source/common/JclSysInfo.pas	2009-08-13 13:11:22 UTC (rev 2945)
@@ -132,6 +132,7 @@
 function GetCommonDesktopdirectoryFolder: string;
 function GetCommonAppdataFolder: string;
 function GetAppdataFolder: string;
+function GetLocalAppData: string;
 function GetCommonFavoritesFolder: string;
 function GetTemplatesFolder: string;
 function GetInternetCacheFolder: string;
@@ -1845,6 +1846,11 @@
   Result := GetSpecialFolderLocation(CSIDL_APPDATA);
 end;
 
+function GetLocalAppData: string;
+begin
+  Result := GetSpecialFolderLocation(CSIDL_LOCAL_APPDATA);
+end;
+
 function GetPrinthoodFolder: string;
 begin
   Result := GetSpecialFolderLocation(CSIDL_PRINTHOOD);


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

From: <ou...@us...> - 2009-08-12 18:31:29

Revision: 2944
          http://jcl.svn.sourceforge.net/jcl/?rev=2944&view=rev
Author:   outchy
Date:     2009-08-12 18:31:19 +0000 (Wed, 12 Aug 2009)

Log Message:
-----------
The RDI and RSI registers should be preserved.

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

Modified: trunk/jcl/source/common/JclSysInfo.pas
===================================================================
--- trunk/jcl/source/common/JclSysInfo.pas	2009-08-10 21:20:25 UTC (rev 2943)
+++ trunk/jcl/source/common/JclSysInfo.pas	2009-08-12 18:31:19 UTC (rev 2944)
@@ -4256,16 +4256,16 @@
       // CPUID
       CPUID
       // store results
-      MOV     RDI, ReturnedEAX
-      MOV     Cardinal PTR [RDI], EAX
-      MOV     RAX, ReturnedEBX
-      MOV     RDI, ReturnedECX
-      MOV     Cardinal PTR [RAX], EBX
-      MOV     Cardinal PTR [RDI], ECX
-      MOV     RAX, ReturnedEDX
-      MOV     Cardinal PTR [RAX], EDX
+      MOV     R8, ReturnedEAX
+      MOV     R9, ReturnedEBX
+      MOV     R10, ReturnedECX
+      MOV     R11, ReturnedEDX
+      MOV     Cardinal PTR [R8], EAX
+      MOV     Cardinal PTR [R9], EBX
+      MOV     Cardinal PTR [R10], ECX
+      MOV     Cardinal PTR [R11], EDX
       // restore context
-      POP  RBX
+      POP     RBX
       {$ENDIF CPU64}
     end;
   end;

Modified: trunk/jcl/source/common/JclWideStrings.pas
===================================================================
--- trunk/jcl/source/common/JclWideStrings.pas	2009-08-10 21:20:25 UTC (rev 2943)
+++ trunk/jcl/source/common/JclWideStrings.pas	2009-08-12 18:31:19 UTC (rev 2944)
@@ -816,6 +816,9 @@
        POP     ESI
        {$ENDIF CPU32}
        {$IFDEF CPU64}
+       // save context
+       PUSH    RDI
+       PUSH    RSI
        // --> RCX Str
        MOV     RSI, RCX
        MOV     RDI, RSI
@@ -828,6 +831,9 @@
        STOSW
        JMP     @@1
 @@2:
+       // restore context
+       POP     RSI
+       POP     RDI
        {$ENDIF CPU64}
 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:[2943] trunk/jcl/source/windows/JclDebugSerialization.pas

From: <ou...@us...> - 2009-08-10 21:20:32

Revision: 2943
          http://jcl.svn.sourceforge.net/jcl/?rev=2943&view=rev
Author:   outchy
Date:     2009-08-10 21:20:25 +0000 (Mon, 10 Aug 2009)

Log Message:
-----------
FPC warning fix.

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

Modified: trunk/jcl/source/windows/JclDebugSerialization.pas
===================================================================
--- trunk/jcl/source/windows/JclDebugSerialization.pas	2009-08-10 18:10:24 UTC (rev 2942)
+++ trunk/jcl/source/windows/JclDebugSerialization.pas	2009-08-10 21:20:25 UTC (rev 2943)
@@ -410,6 +410,7 @@
 var
   S: string;
 begin
+  S := '';
   ASerializer.WriteString(Self, 'VAddress', Format('%p', [VAddress]));
   ASerializer.WriteString(Self, 'ModuleName', ModuleName);
   ASerializer.WriteString(Self, 'Address', Format('%p', [Address]));


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 .. 36 37 38 39 40 .. 92 > >> (Page 38 of 92)