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;