denuvo-ref/cheat-engine
1
0
Fork 0
mirror of https://github.com/cheat-engine/cheat-engine synced 2026-08-15 02:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

some more gui fixes/improvements

Browse source
This commit is contained in:
Dark Byte 2016-08-21 04:23:46 +02:00
parent 48987ac578
commit cfa3a0fc57
10 changed files with 430 additions and 260 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Cheat Engine/CEFuncProc.pas
View file

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

9
Cheat Engine/FindWindowUnit.pas
View file

@ -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';

37
Cheat Engine/MainUnit.pas
View file

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

570
Cheat Engine/cheatengine.lpi
View file

File diff suppressed because it is too large Load diff

19
Cheat Engine/cheatengine.lpr
View file

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

BIN
Cheat Engine/cheatengine.res
View file

Binary file not shown.

3
Cheat Engine/first.pas
View file

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

5
Cheat Engine/formdesignerunit.pas
View file

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

16
Cheat Engine/formsettingsunit.lfm
View file

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

27
Cheat Engine/formsettingsunit.pas
View file

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