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

@@ -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=

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.

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|' +

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);
+  FPatcher.LogBox.Clear;
-  Application.Title := 'SmartPatcher '+Ver.FileVersion;
-  FPatcher.Caption := 'SmartPatcher '+Ver.FileVersion;
   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.