structure dissect now shows the name of a column in the header as wel…

…l. d3d alpha fix fix , some ultimap2 WIP
cheat-engine · Dec 13, 2016 · 3513f9b · 3513f9b
1 parent a5b9091
commit 3513f9b
Show file tree

Hide file tree

Showing 17 changed files with 1,572 additions and 1,678 deletions.
diff --git a/Cheat Engine/AdvancedOptionsUnit.lfm b/Cheat Engine/AdvancedOptionsUnit.lfm
@@ -41,6 +41,24 @@ object AdvancedOptions: TAdvancedOptions
       OnClick = Button1Click
       TabOrder = 0
     end
+    object Button2: TButton
+      Left = 0
+      Height = 25
+      Top = 0
+      Width = 75
+      Caption = 'Button2'
+      OnClick = Button2Click
+      TabOrder = 1
+    end
+    object Button3: TButton
+      Left = 96
+      Height = 25
+      Top = 0
+      Width = 75
+      Caption = 'Button3'
+      OnClick = Button3Click
+      TabOrder = 2
+    end
   end
   object Panel2: TPanel
     Left = 0

diff --git a/Cheat Engine/AdvancedOptionsUnit.lrt b/Cheat Engine/AdvancedOptionsUnit.lrt
@@ -1,5 +1,7 @@
 TADVANCEDOPTIONS.CAPTION=Advanced Options
 TADVANCEDOPTIONS.BUTTON1.CAPTION=OK
+TADVANCEDOPTIONS.BUTTON2.CAPTION=Button2
+TADVANCEDOPTIONS.BUTTON3.CAPTION=Button3
 TADVANCEDOPTIONS.PAUSEBUTTON.HINT=Pause the game
 TADVANCEDOPTIONS.SAVEBUTTON.HINT=Create a standalone trainer
 TADVANCEDOPTIONS.LABEL1.CAPTION=Code list:

diff --git a/Cheat Engine/AdvancedOptionsUnit.pas b/Cheat Engine/AdvancedOptionsUnit.pas
@@ -19,6 +19,8 @@ interface
   { TAdvancedOptions }
 
   TAdvancedOptions = class(TForm)
+    Button2: TButton;
+    Button3: TButton;
     PopupMenu2: TPopupMenu;
     miReplaceWithNops: TMenuItem;
     miRestoreWithOriginal: TMenuItem;
@@ -40,6 +42,7 @@   TAdvancedOptions = class(TForm)
     Label1: TLabel;
     N3: TMenuItem;
     Codelist2: TListView;
+    procedure Button3Click(Sender: TObject);
     procedure Codelist2Resize(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormResize(Sender: TObject);
@@ -301,6 +304,11 @@ procedure TAdvancedOptions.Codelist2Resize(Sender: TObject);
 
 end;
 
+procedure TAdvancedOptions.Button3Click(Sender: TObject);
+begin
+    ntResumeProcess(processhandle);
+end;
+
 procedure TAdvancedOptions.FormDestroy(Sender: TObject);
 begin
   saveformposition(self,[]);
@@ -648,7 +656,7 @@ procedure TAdvancedOptions.PausebuttonClick(Sender: TObject);
 
       if (assigned(ntsuspendprocess)) then
       begin
-        OutputDebugString('Calling ntsuspendProcess');
+       // OutputDebugString('Calling ntsuspendProcess');
         ntsuspendProcess(processhandle);
       end;
 
@@ -799,7 +807,7 @@ procedure TAdvancedOptions.FormCreate(Sender: TObject);
 
 procedure TAdvancedOptions.Button2Click(Sender: TObject);
 begin
-
+  ntSuspendProcess(processhandle);
 end;
 
 procedure TAdvancedOptions.Panel1Resize(Sender: TObject);

diff --git a/Cheat Engine/MainUnit.pas b/Cheat Engine/MainUnit.pas
@@ -474,6 +474,7 @@   TMainForm = class(TForm)
     procedure CreateGroupClick(Sender: TObject);
     procedure Foundlist3SelectItem(Sender: TObject; Item: TListItem;
       Selected: boolean);
+    procedure Label3Click(Sender: TObject);
     procedure MenuItem12Click(Sender: TObject);
     procedure miFlFindWhatAccessesClick(Sender: TObject);
     procedure miBindDeactivationClick(Sender: TObject);
@@ -3039,6 +3040,11 @@ procedure TMainForm.Foundlist3SelectItem(Sender: TObject; Item: TListItem;
 
 end;
 
+procedure TMainForm.Label3Click(Sender: TObject);
+begin
+
+end;
+
 procedure TMainForm.MenuItem12Click(Sender: TObject);
 begin
   shellexecute(0, 'open', pchar(cheatenginedir+'Tutorial-x86_64.exe'), nil, nil, sw_show);

diff --git a/Cheat Engine/StructuresFrm2.lrt b/Cheat Engine/StructuresFrm2.lrt
@@ -37,6 +37,7 @@ TFRMSTRUCTURES2.MIAUTODESTROYLOCAL.CAPTION=Autodestroy local structures when clo
 TFRMSTRUCTURES2.MIDONOTSAVELOCAL.CAPTION=Do not save autocreated local structures
 TFRMSTRUCTURES2.MIAUTOFILLGAPS.CAPTION=Fill gaps automatically
 TFRMSTRUCTURES2.MIDEFAULTHEXADECIMAL.CAPTION=New integer types default to hexadecimal
+TFRMSTRUCTURES2.MIRLECOMPRESSION.CAPTION=Enable RLE Compression
 TFRMSTRUCTURES2.MICHANGEVALUE.CAPTION=Change value
 TFRMSTRUCTURES2.MICHANGEELEMENT.CAPTION=Change element
 TFRMSTRUCTURES2.MIADDELEMENT.CAPTION=Add element

diff --git a/Cheat Engine/StructuresFrm2.pas b/Cheat Engine/StructuresFrm2.pas
@@ -2493,12 +2493,23 @@ procedure TStructColumn.SpiderClick(sender: TObject);
 end;
 
 procedure TStructColumn.SetCaptionClick(sender: TObject);
-var newname: string;
+var
+  i: integer;
+  newname: string;
 begin
   newname:=lblname.caption;
   if InputQuery(rsSF2NewColumnName, rsSF2WhatNameShouldThisColumnHave, newname) then
     lblname.caption:=newname;
 
+  //update the header text as well
+  for i:=0 to parent.parent.columnCount-1 do
+    if parent.parent.columns[i]=self then
+    begin
+      parent.parent.HeaderControl1.Sections[i+1].Text:=newname;
+      break;
+    end;
+
+
   parent.setPositions;
 end;
 

diff --git a/Cheat Engine/cecore.lpi b/Cheat Engine/cecore.lpi
@@ -31,13 +31,10 @@
         <FormatVersion Value="1"/>
       </local>
     </RunParams>
-    <RequiredPackages Count="2">
+    <RequiredPackages Count="1">
       <Item1>
-        <PackageName Value="FCL"/>
-      </Item1>
-      <Item2>
         <PackageName Value="LazUtils"/>
-      </Item2>
+      </Item1>
     </RequiredPackages>
     <Units Count="38">
       <Unit0>
@@ -47,7 +44,6 @@
       <Unit1>
         <Filename Value="networkInterfaceApi.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="networkInterfaceApi"/>
       </Unit1>
       <Unit2>
         <Filename Value="networkInterface.pas"/>
@@ -56,7 +52,6 @@
       <Unit3>
         <Filename Value="NewKernelHandler.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="NewKernelHandler"/>
       </Unit3>
       <Unit4>
         <Filename Value="unixporthelper.pas"/>
@@ -73,6 +68,7 @@
       <Unit7>
         <Filename Value="processlist.pas"/>
         <IsPartOfProject Value="True"/>
+        <UnitName Value="ProcessList"/>
       </Unit7>
       <Unit8>
         <Filename Value="memscan.pas"/>
@@ -131,7 +127,6 @@
       <Unit21>
         <Filename Value="symbolhandler.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="symbolhandler"/>
       </Unit21>
       <Unit22>
         <Filename Value="dotnettypes.pas"/>
@@ -144,7 +139,6 @@
       <Unit24>
         <Filename Value="byteinterpreter.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="byteinterpreter"/>
       </Unit24>
       <Unit25>
         <Filename Value="jni\jnisymbolhandler.pas"/>
@@ -199,7 +193,6 @@
       <Unit36>
         <Filename Value="disassembler.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="disassembler"/>
       </Unit36>
       <Unit37>
         <Filename Value="jni\jnitdisassembler.pas"/>
@@ -212,7 +205,7 @@
     <Version Value="11"/>
     <PathDelim Value="\"/>
     <Target>
-      <Filename Value="..\ceandroid\workspace\CheatEngine\libs\armeabi\cecore.so"/>
+      <Filename Value="..\ceandroid\workspace\CheatEngine\libs\armeabi\cecore"/>
     </Target>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>
@@ -225,7 +218,7 @@
       </SyntaxOptions>
     </Parsing>
     <CodeGeneration>
-      <RelocatableUnit Value="True"/>
+      <TargetCPU Value="arm"/>
       <TargetOS Value="android"/>
     </CodeGeneration>
     <Linking>
@@ -235,6 +228,8 @@
     </Linking>
     <Other>
       <CustomOptions Value="-OoFASTMATH
+-Cg
+-fPIC
 -dJNI
 -dlowmemoryusage
 -dNOLUA"/>