add copy to clipboard

cheat-engine · Jul 6, 2016 · 3de5cb1 · 3de5cb1
1 parent 8d631db
commit 3de5cb1
Show file tree

Hide file tree

Showing 3 changed files with 30 additions and 7 deletions.
diff --git a/Cheat Engine/frmDisassemblyscanunit.lfm b/Cheat Engine/frmDisassemblyscanunit.lfm
@@ -12,11 +12,11 @@ object frmDisassemblyscan: TfrmDisassemblyscan
   OnDestroy = FormDestroy
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.0.8.0'
+  LCLVersion = '1.6.0.4'
   object Label1: TLabel
     Left = 0
-    Height = 14
-    Top = 156
+    Height = 13
+    Top = 157
     Width = 447
     Align = alBottom
     Alignment = taCenter
@@ -25,23 +25,24 @@ object frmDisassemblyscan: TfrmDisassemblyscan
   end
   object ListBox1: TListBox
     Left = 0
-    Height = 156
+    Height = 157
     Top = 0
     Width = 381
     Align = alClient
     ItemHeight = 0
+    MultiSelect = True
     OnDblClick = ListBox1DblClick
     OnKeyDown = ListBox1KeyDown
     PopupMenu = PopupMenu1
     TabOrder = 0
   end
   object Panel1: TPanel
     Left = 381
-    Height = 156
+    Height = 157
     Top = 0
     Width = 66
     Align = alRight
-    ClientHeight = 156
+    ClientHeight = 157
     ClientWidth = 66
     TabOrder = 1
     OnClick = Panel1Click
@@ -70,5 +71,9 @@ object frmDisassemblyscan: TfrmDisassemblyscan
       ShortCut = 32
       OnClick = MenuItem1Click
     end
+    object MenuItem2: TMenuItem
+      Caption = 'Copy selection to clipboard'
+      OnClick = MenuItem2Click
+    end
   end
 end
diff --git a/Cheat Engine/frmDisassemblyscanunit.lrt b/Cheat Engine/frmDisassemblyscanunit.lrt
@@ -2,3 +2,4 @@ TFRMDISASSEMBLYSCAN.CAPTION=Assemblyscan
 TFRMDISASSEMBLYSCAN.LABEL1.CAPTION=                      
 TFRMDISASSEMBLYSCAN.BTNCANCEL.CAPTION=Cancel
 TFRMDISASSEMBLYSCAN.MENUITEM1.CAPTION=Go to this address
+TFRMDISASSEMBLYSCAN.MENUITEM2.CAPTION=Copy selection to clipboard
diff --git a/Cheat Engine/frmDisassemblyscanunit.pas b/Cheat Engine/frmDisassemblyscanunit.pas
@@ -7,7 +7,7 @@ interface
 uses
   windows, LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms,
   Dialogs,disassembler,{$ifndef net}NewKernelHandler,{$endif}CEFuncProc, ExtCtrls, StdCtrls,
-  ComCtrls, LResources, LCLProc, Menus, strutils, OldRegExpr, RegExpr;
+  ComCtrls, LResources, LCLProc, Menus, strutils, OldRegExpr, RegExpr, Clipbrd;
 
 type
   TfrmDisassemblyscan = class;
@@ -36,13 +36,15 @@   TfrmDisassemblyscan = class(TForm)
     ListBox1: TListBox;
     Label1: TLabel;
     MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
     Panel1: TPanel;
     PopupMenu1: TPopupMenu;
     Timer1: TTimer;
     procedure ListBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
       );
     procedure ListBox1KeyPress(Sender: TObject; var Key: char);
     procedure MenuItem1Click(Sender: TObject);
+    procedure MenuItem2Click(Sender: TObject);
     procedure Panel1Click(Sender: TObject);
     procedure Panel1Resize(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
@@ -202,6 +204,21 @@ procedure TfrmDisassemblyscan.MenuItem1Click(Sender: TObject);
   listbox1.OnDblClick(listbox1);
 end;
 
+procedure TfrmDisassemblyscan.MenuItem2Click(Sender: TObject);
+var
+   i: integer;
+   sl: tstringlist;
+begin
+  sl:=tstringlist.create;
+
+  for i:=0 to listbox1.Items.count-1 do
+    if listbox1.Selected[i] then
+      sl.add(listbox1.items[i]);
+
+  clipboard.AsText:=sl.text;
+  sl.free;
+end;
+
 procedure TfrmDisassemblyscan.ListBox1KeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin