mirror of
https://github.com/cheat-engine/cheat-engine
synced 2026-08-15 02:26:08 -04:00
124 lines
3 KiB
ObjectPascal
Executable file
124 lines
3 KiB
ObjectPascal
Executable file
unit formDifferentBitSizeUnit;
|
|
|
|
{$MODE Delphi}
|
|
|
|
//todo: this is REALLY REALLY OLD
|
|
|
|
interface
|
|
|
|
uses
|
|
{$ifdef darwin}
|
|
macport, LCLType,
|
|
{$endif}
|
|
{$ifdef windows}
|
|
Windows,
|
|
{$endif}
|
|
LCLIntf, SysUtils, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls,CEFuncProc, Menus, LResources, betterControls;
|
|
|
|
type
|
|
TformDifferentBitSize = class(TForm)
|
|
Labelold: TLabel;
|
|
LabelNew: TLabel;
|
|
Button1: TButton;
|
|
Label1: TLabel;
|
|
Edit1: TEdit;
|
|
PopupMenu1: TPopupMenu;
|
|
OhnoYoufoundme1: TMenuItem;
|
|
procedure FormShow(Sender: TObject);
|
|
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
|
|
procedure OhnoYoufoundme1Click(Sender: TObject);
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
|
|
public
|
|
{ Public declarations }
|
|
newbit: string;
|
|
oldbit: string;
|
|
delta: integer;
|
|
change: boolean;
|
|
end;
|
|
|
|
var
|
|
formDifferentBitSize: TformDifferentBitSize;
|
|
|
|
implementation
|
|
|
|
uses globals;
|
|
|
|
resourcestring
|
|
rsTheLastTimeYouScannedTheNumberOfBitsWasAndNowItIsP = 'The last time you scanned the number of bits was %s and now it is %s. Please tell me how and how much i must change the '
|
|
+'bit offset to scan successfully. (Left+right arrow keys move the bits)';
|
|
rsWellDoneYouFoundAEasterEgg = 'Well done, you found a easter egg!';
|
|
|
|
procedure TformDifferentBitSize.FormShow(Sender: TObject);
|
|
var i: integer;
|
|
begin
|
|
//convert the bits in bitscan to a string
|
|
oldbit:='';
|
|
for i:=length(bitscan)-1 downto 0 do
|
|
oldbit:=oldbit+IntToStr(bitscan[i]);
|
|
|
|
delta:=0;
|
|
|
|
labelold.caption:=oldbit;
|
|
labelnew.caption:=newbit;
|
|
|
|
labelnew.left:=labelold.left+labelold.Width-labelnew.Width;
|
|
|
|
label1.caption:=Format(rsTheLastTimeYouScannedTheNumberOfBitsWasAndNowItIsP, [IntToStr(length(oldbit)), IntToStr(length(newbit))]);
|
|
|
|
setlength(bitscan,0);
|
|
|
|
i:=GetFontData(font.reference.Handle).Height;
|
|
Labelold.Font.Height:=i;
|
|
LabelNew.Font.Height:=i;
|
|
end;
|
|
|
|
procedure TformDifferentBitSize.Edit1KeyDown(Sender: TObject;
|
|
var Key: Word; Shift: TShiftState);
|
|
begin
|
|
case key of
|
|
vk_left: begin
|
|
labelnew.Left:=labelnew.left-labelnew.Canvas.TextWidth('D');
|
|
inc(delta);
|
|
end;
|
|
|
|
vk_right: begin
|
|
labelnew.Left:=labelnew.left+labelnew.Canvas.TextWidth('B');
|
|
dec(delta);
|
|
end;
|
|
end;
|
|
key:=0;
|
|
end;
|
|
|
|
procedure TformDifferentBitSize.Edit1KeyPress(Sender: TObject;
|
|
var Key: Char);
|
|
begin
|
|
key:=chr(0);
|
|
end;
|
|
|
|
procedure TformDifferentBitSize.OhnoYoufoundme1Click(Sender: TObject);
|
|
begin
|
|
showmessage(rsWellDoneYouFoundAEasterEgg);
|
|
end;
|
|
|
|
procedure TformDifferentBitSize.Button1Click(Sender: TObject);
|
|
begin
|
|
|
|
close;
|
|
end;
|
|
|
|
procedure TformDifferentBitSize.FormCreate(Sender: TObject);
|
|
begin
|
|
change:=false;
|
|
end;
|
|
|
|
initialization
|
|
{$i formDifferentBitSizeUnit.lrs}
|
|
|
|
end.
|