echo/cheat-engine
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

createD3DHook was correct, it just wasn't lowercase

Browse Source
This commit is contained in:
cheatengine@gmail.com 2013-06-09 12:21:33 +00:00
parent a82502d976
commit 1c00387b57
4 changed files with 45 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
Cheat Engine/frmD3DTrainerGeneratorOptionsUnit.lfm
View File

@ -10,7 +10,7 @@ object frmD3DTrainerGeneratorOptions: TfrmD3DTrainerGeneratorOptions
ClientWidth = 418
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.1'
LCLVersion = '1.0.8.0'
object cbUseD3DKeys: TCheckBox
Left = 8
Height = 19
@ -25,9 +25,9 @@ object frmD3DTrainerGeneratorOptions: TfrmD3DTrainerGeneratorOptions
end
object Label1: TLabel
Left = 8
Height = 15
Height = 16
Top = 56
Width = 71
Width = 72
Caption = 'Transparency'
ParentColor = False
end
@ -116,9 +116,9 @@ object frmD3DTrainerGeneratorOptions: TfrmD3DTrainerGeneratorOptions
end
object Label2: TLabel
Left = 216
Height = 15
Height = 16
Top = 4
Width = 43
Width = 44
Caption = 'Position'
ParentColor = False
end
@ -174,10 +174,11 @@ object frmD3DTrainerGeneratorOptions: TfrmD3DTrainerGeneratorOptions
end
object lblTextColor: TLabel
Left = 352
Height = 15
Height = 16
Top = 336
Width = 46
Width = 47
Caption = 'Font text'
Font.Color = clWhite
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
@ -228,9 +229,9 @@ object frmD3DTrainerGeneratorOptions: TfrmD3DTrainerGeneratorOptions
end
object Label3: TLabel
Left = 208
Height = 15
Height = 16
Top = 96
Width = 107
Width = 108
Caption = 'Background picture:'
ParentColor = False
end
@ -251,17 +252,17 @@ object frmD3DTrainerGeneratorOptions: TfrmD3DTrainerGeneratorOptions
end
object Label4: TLabel
Left = 9
Height = 15
Height = 16
Top = 152
Width = 165
Width = 166
Caption = 'Distance between lines in pixels'
ParentColor = False
end
object Label5: TLabel
Left = 9
Height = 15
Height = 16
Top = 196
Width = 119
Width = 120
Caption = 'Text distance from top'
ParentColor = False
end
@ -283,9 +284,9 @@ object frmD3DTrainerGeneratorOptions: TfrmD3DTrainerGeneratorOptions
end
object Label6: TLabel
Left = 9
Height = 15
Height = 16
Top = 240
Width = 136
Width = 137
Caption = 'Text distance from border'
ParentColor = False
end

25
Cheat Engine/frmD3DTrainerGeneratorOptionsUnit.pas
View File

@ -57,6 +57,7 @@ type
procedure FormCreate(Sender: TObject);
private
{ private declarations }
procedure updatefontexample;
public
{ public declarations }
d3dkeys: TKeycombo;
@ -78,6 +79,8 @@ begin
imgPreview.Picture.Bitmap.width:=imgPreview.width;
imgPreview.Picture.Bitmap.Height:=imgPreview.height;
imgPreview.Picture.Bitmap.Canvas.Pixels[0,0]:=imgPreview.Picture.Bitmap.Canvas.Pixels[0,0];
updatefontexample;
end;
procedure TfrmD3DTrainerGeneratorOptions.Button4Click(Sender: TObject);
@ -130,16 +133,8 @@ begin
imgPreview.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
procedure TfrmD3DTrainerGeneratorOptions.Button3Click(Sender: TObject);
procedure TfrmD3DTrainerGeneratorOptions.updatefontexample;
begin
fontdialog1.font.assign(lblTextColor.Font);
if fontdialog1.execute then
begin
lblTextColor.font.assign(fontdialog1.font);
lblTextColor.font.Quality:=fqNonAntialiased;
end;
//reset
TextOverlayImage.Picture.Bitmap.Width:=0;
TextOverlayImage.Picture.Bitmap.Height:=0;
@ -153,9 +148,19 @@ begin
TextOverlayImage.Picture.Bitmap.Canvas.font.Quality:=fqNonAntialiased;
TextOverlayImage.picture.Bitmap.Canvas.TextOut(0,0,'Example text');
end;
procedure TfrmD3DTrainerGeneratorOptions.Button3Click(Sender: TObject);
begin
fontdialog1.font.assign(lblTextColor.Font);
if fontdialog1.execute then
begin
lblTextColor.font.assign(fontdialog1.font);
lblTextColor.font.Quality:=fqNonAntialiased;
end;
updatefontexample;
end;

2
Cheat Engine/frmExeTrainerGeneratorUnit.pas
View File

@ -542,7 +542,7 @@ begin
cbSpeedhack.checked:=pos('speedhack_',s)>0;
cbXMPlayer.checked:=pos('xmplayer_',s)>0;
cbKernelDebug.checked:=pos('dbk_',s)>0;
cbD3DHook.checked:=pos('d3dhook_initializeHook',s)>0;
cbD3DHook.checked:=pos('created3dhook',s)>0;
if mainform.LuaForms.count=1 then //if there is only one form use that icon as default

26
Cheat Engine/trainergenerator.lfm
View File

@ -12,7 +12,7 @@ object frmTrainerGenerator: TfrmTrainerGenerator
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.1'
LCLVersion = '1.0.8.0'
object Panel1: TPanel
Left = 201
Height = 359
@ -33,9 +33,9 @@ object frmTrainerGenerator: TfrmTrainerGenerator
end
object Label2: TLabel
Left = 8
Height = 15
Height = 16
Top = 24
Width = 70
Width = 71
Caption = 'Processname'
ParentColor = False
end
@ -67,9 +67,9 @@ object frmTrainerGenerator: TfrmTrainerGenerator
end
object Label1: TLabel
Left = 271
Height = 15
Height = 16
Top = 176
Width = 165
Width = 166
Caption = 'Freeze interval (in milliseconds)'
ParentColor = False
end
@ -148,9 +148,9 @@ object frmTrainerGenerator: TfrmTrainerGenerator
end
object Label3: TLabel
Left = 6
Height = 15
Height = 16
Top = 40
Width = 58
Width = 59
Caption = 'About text:'
ParentColor = False
end
@ -183,9 +183,9 @@ object frmTrainerGenerator: TfrmTrainerGenerator
end
object Label4: TLabel
Left = 6
Height = 15
Height = 16
Top = 0
Width = 23
Width = 24
Caption = 'Title'
ParentColor = False
end
@ -271,9 +271,9 @@ object frmTrainerGenerator: TfrmTrainerGenerator
end
object Label5: TLabel
Left = 276
Height = 15
Height = 16
Top = 288
Width = 38
Width = 39
Caption = 'Output'
ParentColor = False
end
@ -297,8 +297,8 @@ object frmTrainerGenerator: TfrmTrainerGenerator
end
object Label6: TLabel
Left = 0
Height = 30
Top = 329
Height = 31
Top = 328
Width = 502
Align = alBottom
Caption = 'Tip: The trainer generator is a tool for beginners. It is recommended to learn lua and the formdesigner and save as .exe manually to experience the full power of a Cheat Engine trainer'