diff --git a/Cheat Engine/CEFuncProc.pas b/Cheat Engine/CEFuncProc.pas
index 7077af86..90f9958d 100644
--- a/Cheat Engine/CEFuncProc.pas
+++ b/Cheat Engine/CEFuncProc.pas
@@ -3102,6 +3102,8 @@ end;
procedure Log(s: string);
begin
OutputDebugString(pchar(s));
+
+
end;
initialization
@@ -3125,6 +3127,8 @@ initialization
username:=GetUserNameFromPID(GetCurrentProcessId);
+ Screen.HintFont;
+
finalization
diff --git a/Cheat Engine/FindWindowUnit.pas b/Cheat Engine/FindWindowUnit.pas
index 259dde61..c6be69c3 100644
--- a/Cheat Engine/FindWindowUnit.pas
+++ b/Cheat Engine/FindWindowUnit.pas
@@ -7,7 +7,7 @@ interface
uses
LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,CEFuncProc,ComCtrls, ExtCtrls, LResources, memscan,
- commonTypeDefs, math;
+ commonTypeDefs, math, win32proc;
const wm_fw_scandone=wm_user+1;
type
@@ -123,16 +123,19 @@ begin
end;
procedure TFindWindow.FormShow(Sender: TObject);
+const EM_GETMARGINS=$d4;
var m: DWord;
begin
progressbar.Position:=0;
if firstscan then
begin
- editstart.Text:=Inttohex(TMemoryBrowser(Owner).memoryaddress, processhandler.pointersize*2);
+ if WindowsVersion>=wvVista then
+ m:=sendmessage(editstart.Handle, EM_GETMARGINS, 0,0)
+ else
+ m:=0;
- m:=sendmessage(editstart.Handle, $D4, 0,0);
if processhandler.is64bit then
begin
editstop.text:='7FFFFFFFFFFFFFFF';
diff --git a/Cheat Engine/MainUnit.pas b/Cheat Engine/MainUnit.pas
index 6ec483cd..bce84b88 100644
--- a/Cheat Engine/MainUnit.pas
+++ b/Cheat Engine/MainUnit.pas
@@ -6894,6 +6894,8 @@ var
Position: integer;
c: TControl;
+
+ bm: TBitmap;
begin
if onetimeonly then
exit;
@@ -7140,6 +7142,41 @@ begin
fromaddress.Font.Height:=i;
toaddress.Font.Height:=i;
+
+ bm:=TBitmap.Create;
+ bm.width:=scalex(sbOpenProcess.Glyph.Width, 70);
+ bm.height:=scaley(sbOpenProcess.Glyph.Height, 70);
+ bm.Canvas.CopyRect(rect(0,0,bm.width,bm.height), sbOpenProcess.Glyph.Canvas, rect(0,0,sbOpenProcess.Glyph.width,sbOpenProcess.Glyph.height));
+
+ sbOpenProcess.Width:=scalex(sbOpenProcess.Width, 70);
+ sbOpenProcess.Height:=scaley(sbOpenProcess.Height, 70);
+ sbOpenProcess.Glyph:=bm;
+ bm.free;
+
+ bm:=TBitmap.Create;
+ bm.width:=scalex(LoadButton.Glyph.Width, 96);
+ bm.height:=scaley(LoadButton.Glyph.Height, 96);
+ bm.Canvas.CopyRect(rect(0,0,bm.width,bm.height), LoadButton.Glyph.Canvas, rect(0,0,LoadButton.Glyph.width,LoadButton.Glyph.height));
+
+ LoadButton.Width:=scalex(LoadButton.Width, 96);
+ LoadButton.Height:=scaley(LoadButton.Height, 96);
+ LoadButton.Glyph:=bm;
+ bm.free;
+
+ bm:=TBitmap.Create;
+ bm.width:=scalex(SaveButton.Glyph.Width, 96);
+ bm.height:=scaley(SaveButton.Glyph.Height, 96);
+ bm.Canvas.CopyRect(rect(0,0,bm.width,bm.height), SaveButton.Glyph.Canvas, rect(0,0,SaveButton.Glyph.width,SaveButton.Glyph.height));
+
+ SaveButton.Width:=scalex(SaveButton.Width, 96);
+ SaveButton.Height:=scaley(SaveButton.Height, 96);
+ SaveButton.Glyph:=bm;
+ bm.free;
+
+
+
+
+ // ImageList2.GetBitmap(0);
end;
diff --git a/Cheat Engine/cheatengine.lpi b/Cheat Engine/cheatengine.lpi
index 15dfb82e..d9c7b49d 100644
--- a/Cheat Engine/cheatengine.lpi
+++ b/Cheat Engine/cheatengine.lpi
@@ -25,7 +25,7 @@
-
+
@@ -330,14 +330,15 @@
-
+
-
-
-
+
+
+
+
@@ -346,7 +347,7 @@
-
+
@@ -354,10 +355,13 @@
-
-
-
+
+
+
+
+
+
@@ -371,8 +375,8 @@
-
-
+
+
@@ -398,8 +402,8 @@
-
-
+
+
@@ -460,12 +464,10 @@
-
+
-
-
@@ -495,10 +497,12 @@
-
-
-
+
+
+
+
+
@@ -547,12 +551,10 @@
-
-
-
+
+
+
-
-
@@ -568,12 +570,10 @@
-
+
-
-
@@ -633,12 +633,10 @@
-
+
-
-
@@ -646,13 +644,10 @@
-
-
-
-
+
+
+
-
-
@@ -853,15 +848,13 @@
-
+
-
-
@@ -927,8 +920,8 @@
-
-
+
+
@@ -937,10 +930,14 @@
-
-
-
+
+
+
+
+
+
+
@@ -1244,12 +1241,10 @@
-
+
-
-
@@ -1547,8 +1542,9 @@
-
-
+
+
+
@@ -1795,18 +1791,21 @@
-
-
-
+
+
+
+
+
-
-
-
+
+
+
+
@@ -1836,17 +1835,16 @@
-
-
+
+
+
-
-
+
+
-
-
@@ -1868,8 +1866,8 @@
-
-
+
+
@@ -2028,12 +2026,10 @@
-
+
-
-
@@ -2057,8 +2053,8 @@
-
-
+
+
@@ -3267,7 +3263,7 @@
-
+
@@ -3275,7 +3271,7 @@
-
+
@@ -3291,7 +3287,7 @@
-
+
@@ -3299,7 +3295,7 @@
-
+
@@ -3307,7 +3303,7 @@
-
+
@@ -3315,7 +3311,7 @@
-
+
@@ -3323,64 +3319,65 @@
-
+
-
+
-
+
-
-
-
+
+
+
+
-
+
-
+
-
+
-
+
-
+
@@ -3393,40 +3390,42 @@
-
-
-
+
+
+
+
-
-
-
-
+
+
+
+
+
-
+
-
-
+
-
-
-
+
+
+
+
-
+
@@ -3434,7 +3433,7 @@
-
+
@@ -3450,40 +3449,39 @@
-
+
-
-
-
-
-
-
+
+
+
+
+
-
+
-
-
-
-
+
+
+
+
-
+
@@ -3491,21 +3489,21 @@
-
+
-
+
-
+
@@ -3513,13 +3511,11 @@
-
+
-
-
@@ -3527,14 +3523,14 @@
-
+
-
+
@@ -3549,21 +3545,21 @@
-
+
-
+
-
-
+
+
@@ -3571,113 +3567,230 @@
-
+
-
+
-
-
-
-
+
+
+
+
+
-
-
-
-
+
+
+
+
+
-
-
-
-
+
+
+
+
+
-
-
-
+
+
+
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -3690,127 +3803,107 @@
-
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
@@ -3865,7 +3958,7 @@
-
+
@@ -3913,43 +4006,50 @@
-
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
+
+
+
+
+
+
+
diff --git a/Cheat Engine/cheatengine.lpr b/Cheat Engine/cheatengine.lpr
index 7082da59..28264822 100644
--- a/Cheat Engine/cheatengine.lpr
+++ b/Cheat Engine/cheatengine.lpr
@@ -206,11 +206,28 @@ begin
mainform.visible:=mainformvisible;
end;
-var i: integer;
+type TFormFucker=class
+ private
+ procedure addFormEvent(Sender: TObject; Form: TCustomForm);
+end;
+
+procedure TFormFucker.addFormEvent(Sender: TObject; Form: TCustomForm);
+begin
+ //fuuuuucking time
+ if form<>nil then
+ form.Font.Size:=15;
+end;
+
+var
+ i: integer;
+ ff: TFormFucker;
begin
Application.Title:='Cheat Engine 6.6';
Application.Initialize;
+ // ff:=TFormFucker.Create;
+// //screen.PixelsPerInch;
+ //screen.AddHandlerFormAdded(@ff.addFormEvent);
getcedir;
diff --git a/Cheat Engine/cheatengine.res b/Cheat Engine/cheatengine.res
index 7e19aeaa..01621f27 100644
Binary files a/Cheat Engine/cheatengine.res and b/Cheat Engine/cheatengine.res differ
diff --git a/Cheat Engine/first.pas b/Cheat Engine/first.pas
index f4cf7f25..e2ed230b 100644
--- a/Cheat Engine/first.pas
+++ b/Cheat Engine/first.pas
@@ -9,7 +9,7 @@ uses
implementation
-uses windows;
+uses windows, registry, Win32Int;
procedure setDPIAware;
type
@@ -23,6 +23,7 @@ var
Metrics: TNonClientMetrics;
begin
+
l:=LoadLibrary('Shcore.dll');
if l<>0 then
begin
diff --git a/Cheat Engine/formdesignerunit.pas b/Cheat Engine/formdesignerunit.pas
index 7b608161..7fb762c5 100644
--- a/Cheat Engine/formdesignerunit.pas
+++ b/Cheat Engine/formdesignerunit.pas
@@ -196,6 +196,7 @@ resourcestring
rsFormFilesLfmLFM = 'Form files(*.lfm)|*.LFM';
rsShowCheckboxesForBoolean = 'Show checkboxes for boolean';
+
procedure TFormDesigner.setFormName;
begin
if (GlobalDesignHook.LookupRoot<>nil) and (GlobalDesignHook.LookupRoot is TComponent) then
@@ -1111,10 +1112,6 @@ begin
f.designsurface.PopupMenu:=controlPopup;
f.show;
-
- f.BringToFront;
-
-
end;
diff --git a/Cheat Engine/formsettingsunit.lfm b/Cheat Engine/formsettingsunit.lfm
index 7b716bf7..45c2511e 100644
--- a/Cheat Engine/formsettingsunit.lfm
+++ b/Cheat Engine/formsettingsunit.lfm
@@ -21,6 +21,7 @@ object formSettings: TformSettings
Top = 0
Width = 816
Align = alClient
+ AutoSize = True
ClientHeight = 493
ClientWidth = 816
TabOrder = 0
@@ -60,9 +61,9 @@ object formSettings: TformSettings
Height = 491
Top = 1
Width = 666
- ActivePage = Extra
+ ActivePage = Assembler
Align = alClient
- TabIndex = 6
+ TabIndex = 5
TabOrder = 1
OnChange = pcSettingChange
object GeneralSettings: TTabSheet
@@ -1392,9 +1393,6 @@ object formSettings: TformSettings
Visible = False
end
object GroupBox3: TGroupBox
- AnchorSideLeft.Control = Extra
- AnchorSideTop.Control = Extra
- AnchorSideRight.Control = Extra
Left = 5
Height = 77
Top = 0
@@ -1472,14 +1470,6 @@ object formSettings: TformSettings
TabOrder = 3
Visible = False
end
- object Panel1: TPanel
- Left = 183
- Height = 19
- Top = 134
- Width = 368
- BevelOuter = bvNone
- TabOrder = 4
- end
end
object tsTools: TTabSheet
Caption = 'tsTools'
diff --git a/Cheat Engine/formsettingsunit.pas b/Cheat Engine/formsettingsunit.pas
index 4ca09da8..6697e20d 100644
--- a/Cheat Engine/formsettingsunit.pas
+++ b/Cheat Engine/formsettingsunit.pas
@@ -5,7 +5,7 @@ unit formsettingsunit;
interface
uses
- windows, LCLProc, LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+ windows, win32proc, LCLProc, LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,registry, Menus,ComCtrls,CEFuncProc,ExtCtrls,{tlhelp32,}CheckLst,
Buttons, LResources, frameHotkeyConfigUnit, math,
@@ -94,7 +94,6 @@ type
Label8: TLabel;
lblThreadFollowing: TLabel;
LoadButton: TSpeedButton;
- Panel1: TPanel;
Panel9: TPanel;
pcDebugConfig: TPageControl;
pnlConfig: TPanel;
@@ -938,7 +937,8 @@ procedure TformSettings.FormShow(Sender: TObject);
result:=true;
end;
var reg: TRegistry;
- i: integer;
+ i,j: integer;
+ m: dword;
begin
tempstatepopuphide:=laststatePopupHide;
@@ -987,8 +987,29 @@ begin
i:=max(rbVEHUseProcessWatcher.Top+rbVEHUseProcessWatcher.Height+4, groupbox2.clientheight);
groupbox2.clientheight:=i;
+ j:=tvMenuSelection.Width;
+ for i:=0 to tvMenuSelection.Items.Count-1 do
+ j:=max(j,tvMenuSelection.Canvas.TextWidth(tvMenuSelection.Items[i].Text)+tvMenuSelection.BorderWidth+tvMenuSelection.Indent*2);
+
+
+ tvMenuSelection.Width:=j;
+
+
+ if WindowsVersion>=wvVista then
+ m:=sendmessage(edtStacksize.Handle, EM_GETMARGINS, 0,0)
+ else
+ m:=0;
+
+
+ i:=max(edtStacksize.ClientWidth, canvas.TextWidth('4096')+(m shr 16)+(m and $ffff));
+ edtStacksize.clientwidth:=i;
+
autosize:=false;
+
+
+
+
// GroupBox2.top:=rbgDebuggerInterface.top+rbgDebuggerInterface.height+4;
end;