From cc6aea6256a79574413f0139353645c4c5d7505d Mon Sep 17 00:00:00 2001
From: mbirth <mbirth>
Date: Wed, 8 Dec 2004 09:43:25 +0000
Subject: [PATCH] modified   SmartPatcher.dof modified   SmartPatcher.txt
 modified   USmartPatcher.dfm modified   USmartPatcher.pas + Double-click on
 status Listbox copies contents to Clipboard + "Clear"-button for status
 Listbox

---
 SmartPatcher.dof  |  4 ++--
 SmartPatcher.txt  |  9 +++++++++
 USmartPatcher.dfm | 16 ++++++++++++++++
 USmartPatcher.pas | 31 ++++++++++++++++++++++++++-----
 4 files changed, 53 insertions(+), 7 deletions(-)

diff --git a/SmartPatcher.dof b/SmartPatcher.dof
index 8bdaa3b..3048b3e 100644
--- a/SmartPatcher.dof
+++ b/SmartPatcher.dof
@@ -115,7 +115,7 @@ AutoIncBuild=1
 MajorVer=1
 MinorVer=0
 Release=1
-Build=6
+Build=7
 Debug=0
 PreRelease=0
 Special=1
@@ -126,7 +126,7 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=riddick
 FileDescription=SmartPatcher for new versions of cracked software.
-FileVersion=1.0.1.6
+FileVersion=1.0.1.7
 InternalName=SmartPatcher
 LegalCopyright=
 LegalTrademarks=
diff --git a/SmartPatcher.txt b/SmartPatcher.txt
index c778b7c..1c9463b 100644
--- a/SmartPatcher.txt
+++ b/SmartPatcher.txt
@@ -41,3 +41,12 @@ username there is "riddick".
 
 
 -riddick
+
+
+
+
+
+2004-07-29 (1.0.1.7)
+  NEW Double-clicking the status listbox copies its contents to the
+      Clipboard.
+  NEW "Clear"-button clears the status listbox.
diff --git a/USmartPatcher.dfm b/USmartPatcher.dfm
index f902402..ed565d0 100644
--- a/USmartPatcher.dfm
+++ b/USmartPatcher.dfm
@@ -1458,6 +1458,7 @@ object FPatcher: TFPatcher
     ItemHeight = 13
     ParentCtl3D = False
     TabOrder = 3
+    OnDblClick = LogBoxDblClick
   end
   object ButtExit: TButton
     Left = 448
@@ -1468,6 +1469,21 @@ object FPatcher: TFPatcher
     TabOrder = 4
     OnClick = ButtExitClick
   end
+  object ButtClear: TButton
+    Left = 504
+    Top = 227
+    Width = 33
+    Height = 14
+    Caption = 'Clear'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -9
+    Font.Name = 'MS Sans Serif'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 5
+    OnClick = ButtClearClick
+  end
   object OpenDialog: TOpenDialog
     Filter = 
       'All files (*.*)|*.*|Windows (*.exe)|*.exe|Symbian (*.app)|*.app|' +
diff --git a/USmartPatcher.pas b/USmartPatcher.pas
index 6d02419..83edc6f 100644
--- a/USmartPatcher.pas
+++ b/USmartPatcher.pas
@@ -4,7 +4,7 @@ interface
 
 uses
   Windows, SysUtils, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Classes, Graphics, StrUtils, Math,
-  Gauges;
+  Gauges, Clipbrd;
 
 type
   TFPatcher = class(TForm)
@@ -31,12 +31,15 @@ type
     ImgLogoRiddickLeft: TImage;
     CheckExtSearch: TCheckBox;
     Gauge: TGauge;
+    ButtClear: TButton;
     procedure ButBrowseOrigClick(Sender: TObject);
     procedure ButtExitClick(Sender: TObject);
     procedure ButBrowseModClick(Sender: TObject);
     procedure ButtBrowseNewClick(Sender: TObject);
     procedure ButtSmartPatchClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure LogBoxDblClick(Sender: TObject);
+    procedure ButtClearClick(Sender: TObject);
   private
     { Private declarations }
   public
@@ -386,17 +389,35 @@ begin
   end;
 end;
 
-procedure TFPatcher.FormCreate(Sender: TObject);
+procedure InitLogBox;
 begin
-  Ver := TVersionInfo.Create(Application.ExeName);
-  Application.Title := 'SmartPatcher '+Ver.FileVersion;
-  FPatcher.Caption := 'SmartPatcher '+Ver.FileVersion;
+  FPatcher.LogBox.Clear;
   Log('Welcome to SmartPatcher by riddick');
   Log('');
   Log('NOTE: You can damage your files - use this app wisely!');
   Log(DupeString('-',140));
 end;
 
+procedure TFPatcher.FormCreate(Sender: TObject);
 begin
+  Ver := TVersionInfo.Create(Application.ExeName);
+  Application.Title := 'SmartPatcher '+Ver.FileVersion;
+  FPatcher.Caption := 'SmartPatcher '+Ver.FileVersion;
+  InitLogBox;
+end;
+
+procedure TFPatcher.LogBoxDblClick(Sender: TObject);
+var tmp: String;
+begin
+  FPatcher.LogBox.Items.Delimiter := Chr(255);
+  tmp := FPatcher.LogBox.Items.DelimitedText;
+  tmp := StringReplace(tmp, Chr(255), Chr(13)+Chr(10), [rfReplaceAll]);
+  Clipboard.AsText := tmp;
+end;
+
+procedure TFPatcher.ButtClearClick(Sender: TObject);
+begin
+  InitLogBox;
+end;
 
 end.