Changeset 306

Cheat Engine/AdvancedOptionsUnit.dfm

r250	r306
1	1	object AdvancedOptions: TAdvancedOptions
2		Left = ~~468~~
3		Top = ~~203~~
4		Width = ~~377~~
5		Height = 258
	2	Left = 772
	3	Top = 158
	4	Width = 415
	5	Height = 297
6	6	Anchors = []
7	7	Caption = 'Advanced Options'
…	…
14	14	OldCreateOrder = False
15	15	Position = poScreenCenter
	16	Scaled = False
16	17	OnCreate = FormCreate
17	18	OnShow = FormShow
18	19	PixelsPerInch = 120
19	20	TextHeight = 16
20		~~object codelist: TListBox~~
21		~~Left = 0~~
22		~~Top = 38~~
23		~~Width = 359~~
24		~~Height = 133~~
25		~~Style = lbOwnerDrawFixed~~
26		~~Align = alClient~~
27		~~ItemHeight = 13~~
28		~~MultiSelect = True~~
29		~~PopupMenu = PopupMenu2~~
30		~~TabOrder = 0~~
31		~~OnDblClick = Openthedisassemblerhere1Click~~
32		~~OnDrawItem = codelistDrawItem~~
33		~~OnKeyDown = codelistKeyDown~~
34		~~OnMouseDown = codelistMouseDown~~
35		~~end~~
36	21	object Panel1: TPanel
37	22	Left = 0
38		Top = ~~171~~
39		Width = 359
	23	Top = 210
	24	Width = 397
40	25	Height = 42
41	26	Align = alBottom
42	27	BevelOuter = bvNone
43		TabOrder = 1
	28	TabOrder = 0
44	29	OnResize = Panel1Resize
45	30	DesignSize = (
46		359
	31	397
47	32	42)
48	33	object Button1: TButton
49		Left = ~~181~~
	34	Left = 205
50	35	Top = 6
51	36	Width = 92
…	…
67	52	end
68	53	object Button2: TButton
69		Left = 354
	54	Left = 392
70	55	Top = 21
71	56	Width = 100
…	…
81	66	Left = 0
82	67	Top = 0
83		Width = 359
	68	Width = 397
84	69	Height = 38
85	70	Align = alTop
86	71	BevelOuter = bvNone
87		TabOrder = 2
88		DesignSize = (
89		359
90		38)
	72	TabOrder = 1
	73	OnResize = Panel2Resize
91	74	object Pausebutton: TSpeedButton
92	75	Left = 42
…	…
151	134	end
152	135	object Label1: TLabel
153		Left = 198
	136	Left = 166
154	137	Top = 20
155	138	Width = 55
156	139	Height = 16
157		~~Anchors = [akTop]~~
158	140	Caption = 'Code list:'
159	141	end
	142	end
	143	object Codelist2: TListView
	144	Left = 0
	145	Top = 38
	146	Width = 397
	147	Height = 172
	148	Align = alClient
	149	Columns = <
	150	item
	151	Caption = 'Address'
	152	MinWidth = 10
	153	Width = 120
	154	end
	155	item
	156	AutoSize = True
	157	Caption = 'Name'
	158	MinWidth = 10
	159	end>
	160	ColumnClick = False
	161	HideSelection = False
	162	MultiSelect = True
	163	RowSelect = True
	164	PopupMenu = PopupMenu2
	165	TabOrder = 2
	166	ViewStyle = vsReport
	167	OnDblClick = Codelist2DblClick
160	168	end
161	169	object PopupMenu2: TPopupMenu
162	170	OnPopup = PopupMenu2Popup
163	171	Left = 112
164		Top = 96
	172	Top = 104
165	173	object Openthedisassemblerhere1: TMenuItem
166	174	Caption = 'Open the disassembler at this location'
167	175	Default = True
168		~~OnClick = Openthedisassemblerhere1Click~~
169	176	end
170	177	object N2: TMenuItem
…	…
197	204	object Remove1: TMenuItem
198	205	Caption = 'Remove from list'
	206	ShortCut = 46
199	207	OnClick = Remove1Click
200	208	end

Cheat Engine/AdvancedOptionsUnit.pas

r260	r306
19	19	Findoutwhatthiscodechanges1: TMenuItem;
20	20	Openthedisassemblerhere1: TMenuItem;
21		~~codelist: TListBox;~~
22	21	Findthiscodeinsideabinaryfile1: TMenuItem;
23	22	OpenDialog1: TOpenDialog;
…	…
36	35	Label1: TLabel;
37	36	N3: TMenuItem;
38		procedure codelistDrawItem(Control: TWinControl; Index: Integer;
39		Rect: TRect; State: TOwnerDrawState);
	37	Codelist2: TListView;
40	38	procedure FormShow(Sender: TObject);
41	39	procedure PopupMenu2Popup(Sender: TObject);
…	…
45	43	procedure Findoutwhatthiscodechanges1Click(Sender: TObject);
46	44	procedure Rename1Click(Sender: TObject);
47		~~procedure Openthedisassemblerhere1Click(Sender: TObject);~~
48	45	procedure Findthiscodeinsideabinaryfile1Click(Sender: TObject);
49	46	procedure Button1Click(Sender: TObject);
…	…
52	49	procedure PausebuttonMouseMove(Sender: TObject; Shift: TShiftState; X,
53	50	Y: Integer);
54		~~procedure codelistMouseDown(Sender: TObject; Button: TMouseButton;~~
55		~~Shift: TShiftState; X, Y: Integer);~~
56	51	procedure Replaceall1Click(Sender: TObject);
57	52	procedure Timer1Timer(Sender: TObject);
…	…
60	55	procedure Button2Click(Sender: TObject);
61	56	procedure Panel1Resize(Sender: TObject);
62		procedure ~~codelistKeyDown(Sender: TObject; var Key: Word~~;
63		~~Shift: TShiftState~~);
	57	procedure Codelist2DblClick(Sender: TObject);
	58	procedure Panel2Resize(Sender: TObject);
64	59	private
65	60	{ Private declarations }
…	…
86	81	end;
87	82
88		function AddToCodeList(address: ~~Dword; sizeofopcode: integer; changed:boolean~~):boolean;
	83	function AddToCodeList(address: dword; sizeofopcode: integer;changed: boolean; multiadd: boolean=false):boolean;
89	84	procedure UpdateAdvancedOptions;
90	85	end;
…	…
145	140
146	141
147		function TAdvancedOptions.AddToCodeList(address: dword; sizeofopcode: integer;changed: boolean):boolean;
	142	function TAdvancedOptions.AddToCodeList(address: dword; sizeofopcode: integer;changed: boolean; multiadd: boolean=false):boolean;
148	143	resourcestring
149	144	stralreadyinthelist = 'This byte is already part of another opcode already present in the list';
…	…
168	163	x: pchar;
169	164	canceled: boolean;
170		newstring: string;
	165	D,newstring: string;
	166	li: tlistitem;
171	167	begin
172	168	//check if the address is already in the list
173	169	for i:=0 to numberofcodes-1 do
174	170	begin
175		if (code[i].Address=address) then raise exception.create(strAddressAlreadyInTheList);
	171	//if (code[i].Address=address) then raise exception.create(strAddressAlreadyInTheList);
176	172
177	173	//I want to see if address to address+sizeofopcode-1 is overlapping with addresses[i] to length(actualopcode[i])-1
…	…
195	191
196	192
197		if changed then newstring:=Inputboxtop(strCECode,strNameCECode, strChangeOf+disassemble(address2,ignore),true,canceled)
198		else newstring:=Inputboxtop(strCECode,strNameCECode, strCode+disassemble(address2,ignore),true,canceled);
	193	d:=disassemble(address2,ignore);
	194	splitDisassembledString(d, false, ignore,ignore,d,ignore);
	195
	196	if changed then
	197	newstring:=strChangeOf+d
	198	else
	199	newstring:=strCode+d;
	200
	201	if not multiadd then
	202	begin
	203	newstring:=Inputboxtop(strCECode,strNameCECode, newstring,true,canceled)
	204	end
	205	else
	206	begin
	207	canceled:=false;
	208
	209	end;
	210
199	211
200	212	result:=not canceled;
…	…
202	214	if not result then exit;
203	215
204
205		if newstring='' then
206		codelist.items.add(strNoDescription)
207		else
208		codelist.Items.Add(newstring);
	216	if newstring='' then newstring:=strNoDescription;
	217
209	218
210	219	inc(numberofcodes);
…	…
264	273	end;
265	274	end;
266		end;
267
268
269		procedure TAdvancedOptions.codelistDrawItem(Control: TWinControl;
270		Index: Integer; Rect: TRect; State: TOwnerDrawState);
271		{copy/paste from example in help}
272		var
273		Bitmap: TBitmap; { temporary variable for the items bitmap }
274		Offset: Integer; { text offset width }
275		origcolor: tcolor;
276		begin
277		origcolor:=clBlack;
278
279		with codelist.Canvas do { draw on control canvas, not on the form }
280		begin
281		FillRect(Rect); { clear the rectangle }
282		Offset := 2; { provide default offset }
283		Bitmap := TBitmap(codelist.Items.Objects[Index]); { get the bitmap }
284		if Bitmap <> nil then
285		begin
286		Draw(Rect.Left + Offset, Rect.Top, Bitmap); {render bitmap}
287		Offset := Bitmap.width + 6; { add four pixels between bitmap and text}
288		end;
289
290		if (code[index].changed) then
291		begin
292		origcolor:=font.color;
293		font.Color:=clRed;
294		end;
295		TextOut(Rect.Left + Offset, Rect.Top, codelist.Items[Index]); { display the text }
296
297		if (code[index].changed) then font.color:=origcolor;
298		end;
299		end;
	275
	276	li:=self.Codelist2.Items.Add;
	277
	278	if code[numberofcodes-1].modulename<>'' then
	279	li.Caption:=code[numberofcodes-1].modulename+'+'+inttohex(code[numberofcodes-1].offset,1)
	280	else
	281	li.Caption:=inttohex(address,8);
	282
	283	li.SubItems.Add(newstring);
	284	end;
	285
300	286
301	287	procedure TAdvancedOptions.FormShow(Sender: TObject);
…	…
317	303	strFindWhatCodeWrites='Find out what addresses this code writes to';
318	304	begin
319		if ~~codelist.ItemIndex=-1~~ then
	305	if (codelist2.Items.Count=0) or (codelist2.ItemIndex=-1) then
320	306	begin
321	307	cc1.visible:=false;
…	…
326	312	Findoutwhatthiscodechanges1.visible:=false;
327	313	Findthiscodeinsideabinaryfile1.Visible:=false;
	314	Replaceall1.Visible:=false;
328	315	end else
329	316	begin
…	…
331	318	remove1.visible:=true;
332	319
	320	Replaceall1.Visible:=true;
333	321	Openthedisassemblerhere1.visible:=true;
334	322	Findthiscodeinsideabinaryfile1.Visible:=true;
335	323
336		if code[codelist.itemindex].modulename<>'' then
337		begin
338		symhandler.getmodulebyname(code[codelist.itemindex].modulename,mi);
339		code[codelist~~.itemindex].Address:=mi.baseaddress+code[codelist~~.itemindex].offset;
340		end;
341
342		if code[codelist.itemindex].changed then
	324	if code[codelist2.itemindex].modulename<>'' then
	325	begin
	326	symhandler.getmodulebyname(code[codelist2.itemindex].modulename,mi);
	327	code[codelist2.itemindex].Address:=mi.baseaddress+code[codelist2.itemindex].offset;
	328	end;
	329
	330	if code[codelist2.itemindex].changed then
343	331	begin
344	332	cc1.visible:=false;
…	…
352	340	//disassemble this address, and see if it a writer or reader
353	341	//if neither grey it out
354		offset:=code[codelist.itemindex].Address;
	342	offset:=code[codelist2.itemindex].Address;
355	343	opcode:=disassemble(offset,desc);
356	344
…	…
406	394	strnotthesame='The memory at this address isn''t what it should be! Continue?';
407	395	begin
408		for i:=0 to codelist.Count-1 do
409		begin
410		if not codelist.Selected[i] then continue;
	396	for i:=0 to codelist2.items.Count-1 do
	397	begin
	398
	399	if not codelist2.Items[i].Selected then continue;
411	400
412	401	lengthactualopcode:=length(code[i].actualopcode);
…	…
435	424	begin
436	425	code[i].changed:=false;
437		codelist.Repaint;
	426	codelist2.Repaint;
438	427	exit;
439	428	end;
…	…
460	449	end;
461	450
462		codelist.Repaint;
	451	codelist2.Repaint;
463	452
464	453	end;
…	…
474	463	begin
475	464	//search dselected in the addresslist
476		for index:=0 to codelist.Count-1 do
477		begin
478		if not codelist~~.Selected[index]~~ then continue;
	465	for index:=0 to codelist2.items.Count-1 do
	466	begin
	467	if not codelist2.items[index].Selected then continue;
479	468
480	469	a:=code[index].Address;
…	…
514	503	code[index].changed:=true;
515	504	end;
516		codelist.Repaint;
	505	codelist2.Repaint;
517	506	end;
518	507
519	508	procedure TAdvancedOptions.Remove1Click(Sender: TObject);
520		var i,index: integer;
521		begin
522
523		index:=codelist.ItemIndex;
524		if messagedlg('Delete '+codelist.Items[index]+' ?',mtConfirmation,[mbyes,mbno],0) = mrno then exit;
525
526
527		setlength(code[index].before,0);
528		setlength(code[index].actualopcode,0);
529		setlength(code[index].after,0);
530
531		for i:=index to numberofcodes-2 do
532		begin
533		code[i].before:=code[i+1].before;
534		code[i].actualopcode:=code[i+1].actualopcode;
535		code[i].after:=code[i+1].after;
536		code[i].Address:=code[i+1].Address;
537		code[i].changed:=code[i+1].changed;
538		code[i].modulename:=code[i+1].modulename;
539		code[i].offset:=code[i+1].offset;
540		end;
541
542		dec(numberofcodes);
543		setlength(code,numberofcodes);
544
545		codelist.Items.Delete(index);
	509	var i,j,index: integer;
	510	multidelete: boolean;
	511	begin
	512	codelist2.Items.BeginUpdate;
	513	multidelete:=codelist2.SelCount>1;
	514	while codelist2.SelCount>0 do
	515	begin
	516	index:=codelist2.Selected.Index;
	517	if (index=-1) or (codelist2.Items.Count=0) then exit;
	518
	519	if not multidelete then
	520	if messagedlg('Delete '+codelist2.Items[index].SubItems[0]+' ?',mtConfirmation,[mbyes,mbno],0) = mrno then exit;
	521
	522
	523	setlength(code[index].before,0);
	524	setlength(code[index].actualopcode,0);
	525	setlength(code[index].after,0);
	526
	527	for i:=index to numberofcodes-2 do
	528	begin
	529	code[i].before:=code[i+1].before;
	530	code[i].actualopcode:=code[i+1].actualopcode;
	531	code[i].after:=code[i+1].after;
	532	code[i].Address:=code[i+1].Address;
	533	code[i].changed:=code[i+1].changed;
	534	code[i].modulename:=code[i+1].modulename;
	535	code[i].offset:=code[i+1].offset;
	536	end;
	537
	538	dec(numberofcodes);
	539	setlength(code,numberofcodes);
	540
	541	codelist2.Items.Delete(index);
	542	end;
	543	codelist2.Items.endUpdate;
546	544	end;
547	545
548	546	procedure TAdvancedOptions.Findoutwhatthiscodechanges1Click(
549	547	Sender: TObject);
550		{var temp: dword;
551		int3: byte;
552		original: dword;}
553		var i: integer;
554		begin
555		{$ifndef net}
556		MemoryBrowser.FindWhatThisCodeAccesses(code[codelist.ItemIndex].Address);
557		{
558
559		}
560		{$endif}
	548	begin
	549	MemoryBrowser.FindWhatThisCodeAccesses(code[codelist2.ItemIndex].Address);
	550
561	551	end;
562	552
…	…
564	554	var index: integer;
565	555	begin
566		index:=codelist.ItemIndex;
567		codelist.Items[index]:=inputbox('New name','Give the new name of this entry',codelist.Items[index]);
568		end;
569
570		procedure TAdvancedOptions.Openthedisassemblerhere1Click(Sender: TObject);
571		var mi: TModuleInfo;
572		begin
573		if code[codelist.itemindex].modulename<>'' then
574		begin
575		symhandler.getmodulebyname(code[codelist.itemindex].modulename,mi);
576		code[codelist.itemindex].Address:=mi.baseaddress+code[codelist.itemindex].offset;
577		end;
578
579		memorybrowser.disassemblerview.SelectedAddress:=code[codelist.itemindex].Address;
580
581		if memorybrowser.Height<(memorybrowser.Panel1.Height+100) then memorybrowser.height:=memorybrowser.Panel1.Height+100;
582		memorybrowser.panel1.visible:=true;
583		memorybrowser.show;
	556	index:=codelist2.ItemIndex;
	557	codelist2.Items[index].SubItems[0]:=inputbox('New name','Give the new name of this entry',codelist2.Items[index].SubItems[0]);
584	558	end;
585	559
…	…
722	696	end;
723	697
724		~~procedure TAdvancedOptions.codelistMouseDown(Sender: TObject;~~
725		~~Button: TMouseButton; Shift: TShiftState; X, Y: Integer);~~
726		~~var tp: tpoint;~~
727		~~begin~~
728		~~tp.x:=x;~~
729		~~tp.y:=y;~~
730		~~if codelist.ItemAtPos(tp,true)<>-1 then codelist.ItemIndex:=codelist.ItemAtPos(tp,true);~~
731		~~end;~~
732
733	698	procedure TAdvancedOptions.Replaceall1Click(Sender: TObject);
734	699	var codelength: integer;
…	…
741	706	begin
742	707	//search dselected in the addresslist
743		for j:=0 to codelist.Items.Count-1 do
	708	for j:=0 to codelist2.Items.Count-1 do
744	709	begin
745	710	index:=j;
…	…
791	756	code[index].changed:=true;
792	757	end;
793		codelist.Repaint;
	758	codelist2.Repaint;
794	759	end;
795	760
…	…
936	901	end;
937	902
938		procedure TAdvancedOptions.codelistKeyDown(Sender: TObject; var Key: Word;
939		Shift: TShiftState);
940		begin
941		if key=vk_delete then
942		Remove1.Click;
	903	procedure TAdvancedOptions.Codelist2DblClick(Sender: TObject);
	904	var mi: TModuleInfo;
	905	begin
	906	if code[codelist2.itemindex].modulename<>'' then
	907	begin
	908	symhandler.getmodulebyname(code[codelist2.itemindex].modulename,mi);
	909	code[codelist2.itemindex].Address:=mi.baseaddress+code[codelist2.itemindex].offset;
	910	end;
	911
	912	memorybrowser.disassemblerview.SelectedAddress:=code[codelist2.itemindex].Address;
	913
	914	if memorybrowser.Height<(memorybrowser.Panel1.Height+100) then memorybrowser.height:=memorybrowser.Panel1.Height+100;
	915	memorybrowser.panel1.visible:=true;
	916	memorybrowser.show;
	917	end;
	918
	919	procedure TAdvancedOptions.Panel2Resize(Sender: TObject);
	920	begin
	921	label1.left:=(panel2.Width div 2)-(label1.Width div 2);
943	922	end;
944	923

Cheat Engine/Assemblerunit.pas

r305	r306
1692	1692
1693	1693	if length(value)=9 then result:=32 else
1694		if length(value)=5 then result:=16 else
1695		if length(value)=3 then result:=8;
	1694	if length(value)=5 then
	1695	begin
	1696	result:=16;
	1697	if x>65535 then result:=32;
	1698	end
	1699	else
	1700	if length(value)=3 then
	1701	begin
	1702	result:=8;
	1703	if x>255 then
	1704	result:=16;
	1705	end;
1696	1706
1697	1707	if result=0 then result:=ValueToType(x); //not a specific ammount of characters given

Cheat Engine/CommentsUnit.dfm

r305	r306
15	15	OldCreateOrder = False
16	16	Position = poScreenCenter
	17	OnClose = FormClose
17	18	PixelsPerInch = 120
18	19	TextHeight = 16
…	…
36	37	OnResize = Panel1Resize
37	38	object Button1: TButton
38		Left = 11
	39	Left = 184
39	40	Top = 6
40		Width = ~~412~~
	41	Width = 87
41	42	Height = 31
42	43	Caption = 'OK'

Cheat Engine/CommentsUnit.pas

r305	r306
14	14	procedure Button1Click(Sender: TObject);
15	15	procedure Panel1Resize(Sender: TObject);
	16	procedure FormClose(Sender: TObject; var Action: TCloseAction);
16	17	private
17	18	{ Private declarations }
…	…
25	26
26	27	implementation
	28
	29	uses MainUnit;
27	30
28	31	{$R *.dfm}
…	…
43	46	procedure TComments.Panel1Resize(Sender: TObject);
44	47	begin
45		button1.Left:=16;
46		button1.Width:=panel1.ClientWidth-32;
47		button1.top:=3;
48		button1.Height:=panel1.ClientHeight-6;
	48	button1.Left:=(panel1.ClientWidth div 2) - (button1.Width div 2);
	49
	50	end;
	51
	52	procedure TComments.FormClose(Sender: TObject; var Action: TCloseAction);
	53	begin
	54	if memo1.Lines.Count>0 then
	55	mainform.Commentbutton.font.style:=mainform.Commentbutton.font.style+[fsBold]
	56	else
	57	mainform.Commentbutton.font.style:=mainform.Commentbutton.font.style-[fsBold]
49	58	end;
50	59

Cheat Engine/FoundCodeUnit.dfm

r305	r306
82	82	169)
83	83	object btnExtraInfo: TButton
84		Left = 6
	84	Left = 4
85	85	Top = 128
86		Width = 120
	86	Width = 124
87	87	Height = 31
88	88	Hint =
…	…
98	98	end
99	99	object btnAddToCodeList: TButton
100		Left = 6
	100	Left = 4
101	101	Top = 89
102		Width = 120
	102	Width = 124
103	103	Height = 30
104	104	Hint =
…	…
113	113	end
114	114	object btnOpenDisassembler: TButton
115		Left = 6
	115	Left = 4
116	116	Top = 49
117		Width = 120
	117	Width = 123
118	118	Height = 31
119	119	Hint =
…	…
128	128	end
129	129	object btnReplacewithnops: TButton
130		Left = 6
	130	Left = 4
131	131	Top = 10
132		Width = 120
	132	Width = 124
133	133	Height = 31
134	134	Hint =

Cheat Engine/FoundCodeUnit.pas

r305	r306
342	342	var codelength: integer;
343	343	written: dword;
344		i: integer;
	344	i,j: integer;
345	345	nops: array of byte;
346	346	a: dword;
…	…
352	352	with foundcodelist do
353	353	begin
354		codelength:=coderecords[itemindex].size;
355		//add it to the codelist
356		if advancedoptions.AddToCodeList(coderecords[itemindex].address,codelength,true) then
357		begin
358		setlength(nops,codelength);
359		for i:=0 to codelength-1 do
360		nops[i]:=$90; //$90=nop
361
362
363		zeromemory(@mbi,sizeof(mbi));
364
365		if debuggerthread<>nil then debuggerthread.Suspend;
366		RewriteCode(processhandle,coderecords[itemindex].address,@nops[0],codelength);
367		if debuggerthread<>nil then debuggerthread.Resume;
	354	for j:=0 to foundcodelist.Count-1 do
	355	begin
	356	if foundcodelist.Selected[j] then
	357	begin
	358	codelength:=coderecords[itemindex].size;
	359	//add it to the codelist
	360	if advancedoptions.AddToCodeList(coderecords[itemindex].address,codelength,true, foundcodelist.SelCount>1) then
	361	begin
	362	setlength(nops,codelength);
	363	for i:=0 to codelength-1 do
	364	nops[i]:=$90; //$90=nop
	365
	366
	367	zeromemory(@mbi,sizeof(mbi));
	368
	369	if debuggerthread<>nil then debuggerthread.Suspend;
	370	RewriteCode(processhandle,coderecords[itemindex].address,@nops[0],codelength);
	371	if debuggerthread<>nil then debuggerthread.Resume;
	372	end;
	373	end;
368	374	end;
369	375	end;
…	…
384	390	begin
385	391	if foundcodelist.Selected[i] then
386		advancedoptions.AddToCodeList(coderecords[i].address,coderecords[i].size,false);
	392	advancedoptions.AddToCodeList(coderecords[i].address,coderecords[i].size,false, foundcodelist.SelCount>1);
387	393	end;
388	394	advancedoptions.Show;

Cheat Engine/MainUnit.dfm

r305	r306
1128	1128	Left = 1
1129	1129	Top = 1
1130		Width = ~~104~~
	1130	Width = 96
1131	1131	Height = 15
	1132	Hint =
	1133	'Some extra functions like pause and trainer maker. And some save' +
	1134	'd instruction locations'
1132	1135	Anchors = [akLeft, akBottom]
1133	1136	Caption = 'Advanced options'
…	…
1138	1141	end
1139	1142	object CommentButton: TSpeedButton
1140		Left = ~~506~~
	1143	Left = 417
1141	1144	Top = 1
1142		Width = 18
	1145	Width = 96
1143	1146	Height = 15
1144	1147	Hint = 'abcdefg'
1145	1148	Anchors = [akRight, akBottom]
1146		Caption = '?'
	1149	Caption = 'Table Comments'
1147	1150	Flat = True
1148	1151	Font.Charset = DEFAULT_CHARSET
1149	1152	Font.Color = clWindowText
1150		Font.Height = -11
	1153	Font.Height = -12
1151	1154	Font.Name = 'MS Sans Serif'
1152		Font.Style = [~~fsBold~~]
	1155	Font.Style = []
1153	1156	ParentFont = False
1154	1157	ParentShowHint = False
…	…
1883	1886	Width = 25
1884	1887	Height = 25
	1888	Hint = 'Select a process to open'
1885	1889	Glyph.Data = {
1886	1890	46050000424D4605000000000000360400002800000010000000110000000100

Cheat Engine/MainUnit.pas

r305	r306
12	12	foundlisthelper,disassembler, underc, psapi, peinfounit, PEInfoFunctions,
13	13	memscan, formsextra, speedhack2, menuitemExtra, AccessCheck, KIcon, frmCScriptUnit,
14		XMLDoc, XMLIntf, simpleaobscanner, pointervaluelist, ManualModuleLoader;
	14	XMLDoc, XMLIntf, simpleaobscanner, pointervaluelist, ManualModuleLoader, windows7taskbar;
15	15
16	16	//the following are just for compatibility
…	…
2320	2320	result:=not editedsincelastsave;
2321	2321
2322		if advancedoptions.codelist.Count=oldcodelistcount then
	2322	if advancedoptions.codelist2.items.Count=oldcodelistcount then
2323	2323	begin
2324	2324
…	…
3702	3702
3703	3703
3704		if (numberofrecords>0) or (advancedoptions.codelist.Count>0) then
	3704	if (numberofrecords>0) or (advancedoptions.codelist2.items.Count>0) then
3705	3705	begin
3706	3706	if (messagedlg(strKeepList, mtConfirmation, [mbYes, mbNo], 0)=mrNo) then
…	…
3740	3740
3741	3741
3742		if fileexists(expectedfilename) then
	3742
	3743	if fileexists(expectedfilename) or fileexists(cheatenginedir+expectedfilename) then
3743	3744	begin
3744	3745	if messagedlg('Load the associated table? ('+expectedFilename+')',mtConfirmation, [mbyes,mbno],0)=mryes then
3745	3746	begin
3746	3747	autoopen:=true;
3747		opendialog1.FileName:=expectedfilename;
	3748	if fileexists(expectedfilename) then
	3749	opendialog1.FileName:=expectedfilename
	3750	else
	3751	opendialog1.FileName:=cheatenginedir+expectedfilename;
	3752
3748	3753	LoadButton.Click;
3749	3754	end;
…	…
8171	8176	if comments.Memo1.Lines.Count=0 then
8172	8177	begin
8173		Commentbutton.Hint:='No Comments!';
	8178	Commentbutton.Hint:='No Comments';
8174	8179	exit;
8175	8180	end;
…	…
10190	10195	end;
10191	10196
10192		if advancedoptions.codelist.Count>0 then
	10197	if advancedoptions.codelist2.items.Count>0 then
10193	10198	begin
10194	10199	advancedoptions.Position:=podesigned;
…	…
10961	10966	progressbar1.Position:=0;
10962	10967
	10968	SetProgressState(tbpsNone);
	10969
	10970
10963	10971	foundcount:=memscan.GetFoundCount;
10964	10972
…	…
11001	11009
11002	11010	scanepilogue(canceled);
11003
11004	11011	end;
11005	11012
…	…
11589	11596	comments.Memo1.Lines.Add(strInfoAboutTable);
11590	11597	Numberofrecords:=0;
11591		advancedoptions.codelist.clear;
	11598	advancedoptions.codelist2.items.clear;
11592	11599	advancedoptions.numberofcodes:=0;
11593	11600	Updatescreen;

Cheat Engine/MemoryBrowserFormUnit.dfm

r304	r306
609	609	PopupMenu = pmStacktrace
610	610	TabOrder = 1
	611	Visible = False
611	612	object lvStacktraceData: TListView
612	613	Left = 2

Cheat Engine/NewKernelHandler.pas

r305	r306
7	7
8	8	const
9		CONTEXT_EXTENDED_REGISTERS = ~~0;//~~(CONTEXT_i386 or $00000020);
	9	CONTEXT_EXTENDED_REGISTERS = (CONTEXT_i386 or $00000020);
10	10
11	11	//credits to jedi code library for filling in the "extended registers"

Cheat Engine/OpenSave.pas

r303	r306
7	7	cefuncproc,classes,formmemorymodifier,formMemoryTrainerUnit,shellapi,
8	8	MemoryTrainerDesignUnit,StdCtrls,ExtraTrainerComponents,Graphics,Controls,
9		ExtCtrls,Dialogs,newkernelhandler, hotkeyhandler, structuresfrm, XMLDoc, XMLIntf, KIcon;
	9	ExtCtrls,Dialogs,newkernelhandler, hotkeyhandler, structuresfrm, XMLDoc, XMLIntf, KIcon, comctrls;
10	10
11	11
…	…
15	15	procedure SaveCEM(Filename:string;address,size:dword);
16	16
17		~~{$ifndef net}~~
18	17	procedure LoadExe(filename: string);
19		~~{$endif}~~
20	18
21	19
…	…
4279	4277	symbolname: string;
4280	4278	address: dword;
	4279	li: tlistitem;
4281	4280	begin
4282	4281	doc:=TXMLDocument.Create(application);
…	…
4409	4408	code[numberofcodes-1].offset:=tempoffset;
4410	4409
4411		codelist.Items.Add(tempdescription);
	4410	li:=codelist2.Items.Add;
	4411	if code[numberofcodes-1].modulename<>'' then
	4412	li.Caption:=code[numberofcodes-1].modulename+'+'+inttohex(code[numberofcodes-1].offset,1)
	4413	else
	4414	li.Caption:=inttohex(tempaddress,8);
	4415
	4416	li.SubItems.Add(tempdescription);
4412	4417	end;
4413	4418
…	…
4495	4500	symbolname: string;
4496	4501	addressstring: string;
	4502	li: tlistitem;
4497	4503	begin
4498	4504	ctfile.ReadBuffer(records,4);
…	…
4666	4672	code[numberofcodes-1].offset:=tempoffset;
4667	4673
4668		codelist.Items.Add(tempdescription);
	4674	li:=codelist2.Items.Add;
	4675	if code[numberofcodes-1].modulename<>'' then
	4676	li.Caption:=code[numberofcodes-1].modulename+'+'+inttohex(code[numberofcodes-1].offset,1)
	4677	else
	4678	li.Caption:=inttohex(tempaddress,8);
	4679
	4680	li.SubItems.Add(tempdescription);
4669	4681	end;
4670	4682	end;
…	…
4791	4803	tempaddress: dword;
4792	4804	tempdescription: string;
	4805	li: tlistitem;
4793	4806	begin
4794	4807	ctfile.ReadBuffer(records,4);
…	…
4923	4936	code[numberofcodes-1].Address:=tempaddress;
4924	4937
4925		codelist.Items.Add(tempdescription);
	4938	li:=codelist2.Items.Add;
	4939	if code[numberofcodes-1].modulename<>'' then
	4940	li.Caption:=code[numberofcodes-1].modulename+'+'+inttohex(code[numberofcodes-1].offset,1)
	4941	else
	4942	li.Caption:=inttohex(tempaddress,8);
	4943
	4944	li.SubItems.Add(tempdescription);
4926	4945	end;
4927	4946	end;
…	…
4955	4974	tempaddress: dword;
4956	4975	tempdescription: string;
	4976	li: tlistitem;
4957	4977	begin
4958	4978	ctfile.ReadBuffer(records,4);
…	…
5072	5092	code[numberofcodes-1].Address:=tempaddress;
5073	5093
5074		codelist.Items.Add(tempdescription);
	5094	li:=codelist2.Items.Add;
	5095	if code[numberofcodes-1].modulename<>'' then
	5096	li.Caption:=code[numberofcodes-1].modulename+'+'+inttohex(code[numberofcodes-1].offset,1)
	5097	else
	5098	li.Caption:=inttohex(tempaddress,8);
	5099
	5100	li.SubItems.Add(tempdescription);
5075	5101	end;
5076	5102	end;
…	…
5105	5131	tempaddress: dword;
5106	5132	tempdescription: string;
	5133	li: tlistitem;
5107	5134	begin
5108	5135	ctfile.ReadBuffer(records,4);
…	…
5229	5256	code[numberofcodes-1].Address:=tempaddress;
5230	5257
5231		codelist.Items.Add(tempdescription);
	5258	li:=codelist2.Items.Add;
	5259	if code[numberofcodes-1].modulename<>'' then
	5260	li.Caption:=code[numberofcodes-1].modulename+'+'+inttohex(code[numberofcodes-1].offset,1)
	5261	else
	5262	li.Caption:=inttohex(tempaddress,8);
	5263
	5264	li.SubItems.Add(tempdescription);
5232	5265	end;
5233	5266	end;
…	…
5261	5294	tempaddress: dword;
5262	5295	tempdescription: string;
	5296	li: tlistitem;
5263	5297	begin
5264	5298	ctfile.ReadBuffer(records,4);
…	…
5359	5393	code[numberofcodes-1].Address:=tempaddress;
5360	5394
5361		codelist.Items.Add(tempdescription);
	5395	li:=codelist2.Items.Add;
	5396	if code[numberofcodes-1].modulename<>'' then
	5397	li.Caption:=code[numberofcodes-1].modulename+'+'+inttohex(code[numberofcodes-1].offset,1)
	5398	else
	5399	li.Caption:=inttohex(tempaddress,8);
	5400
	5401	li.SubItems.Add(tempdescription);
5362	5402	end;
5363	5403	end;
…	…
5390	5430	tempaddress: dword;
5391	5431	tempdescription: string;
	5432	li: tlistitem;
5392	5433	begin
5393	5434	ctfile.ReadBuffer(records,4);
…	…
5487	5528	code[numberofcodes-1].Address:=tempaddress;
5488	5529
5489		codelist.Items.Add(tempdescription);
	5530	li:=codelist2.Items.Add;
	5531	if code[numberofcodes-1].modulename<>'' then
	5532	li.Caption:=code[numberofcodes-1].modulename+'+'+inttohex(code[numberofcodes-1].offset,1)
	5533	else
	5534	li.Caption:=inttohex(tempaddress,8);
	5535
	5536	li.SubItems.Add(tempdescription);
5490	5537	end;
5491	5538	end;
…	…
5628	5675	tempaddress: dword;
5629	5676	tempdescription: string;
	5677	li: tlistitem;
5630	5678	begin
5631	5679	assignfile(LoadFile,filename);
…	…
5767	5815	code[numberofcodes-1].Address:=tempaddress;
5768	5816
5769		codelist.Items.Add(tempdescription);
	5817	li:=codelist2.Items.Add;
	5818	if code[numberofcodes-1].modulename<>'' then
	5819	li.Caption:=code[numberofcodes-1].modulename+'+'+inttohex(code[numberofcodes-1].offset,1)
	5820	else
	5821	li.Caption:=inttohex(tempaddress,8);
	5822
	5823	li.SubItems.Add(tempdescription);
5770	5824	end;
5771	5825	end;
…	…
6371	6425
6372	6426	nrofbytes: byte;
6373
6374
6375	6427	begin
6376	6428	Extension:=uppercase(extractfileext(filename));
…	…
6397	6449	end;
6398	6450
6399		~~advancedoptions.codelist~~.Clear;
	6451	Codelist2.Clear;
6400	6452	setlength(code,0);
6401
6402		~~codelist.clear;~~
6403	6453	numberofcodes:=0;
6404	6454	end;
…	…
6424	6474	begin
6425	6475	oldnumberofrecords:=numberofrecords;
6426		oldcodelistcount:=advancedoptions.codelist.Count;
	6476	oldcodelistcount:=advancedoptions.codelist2.Items.Count;
6427	6477
6428	6478	setlength(oldmemrec,numberofrecords);
…	…
6461	6511
6462	6512	mainform.editedsincelastsave:=false;
	6513
	6514	if comments.memo1.Lines.Count>0 then
	6515	mainform.Commentbutton.font.style:=mainform.Commentbutton.font.style+[fsBold]
	6516	else
	6517	mainform.Commentbutton.font.style:=mainform.Commentbutton.font.style-[fsBold];
6463	6518	end;
6464	6519
…	…
6590	6645	begin
6591	6646	CodeRecord:=codes.AddChild('CodeEntry');
6592		CodeRecord.AddChild('Description').Text:=advancedoptions.codelist~~.Items[i~~];
	6647	CodeRecord.AddChild('Description').Text:=advancedoptions.codelist2.Items[i].SubItems[0];
6593	6648	CodeRecord.AddChild('Address').Text:=inttohex(advancedoptions.code[i].Address,8);
6594	6649	CodeRecord.AddChild('ModuleName').Text:=advancedoptions.code[i].modulename;
…	…
6764	6819	blockwrite(savefile,pointer(advancedoptions.code[i].after)^,nrofbytes,actualwritten);
6765	6820
6766		x:=pchar(advancedoptions.codelist~~.Items[i~~]);
	6821	x:=pchar(advancedoptions.codelist2.Items[i].SubItems[0]);
6767	6822	nrofbytes:=length(x);
6768	6823	blockwrite(savefile,nrofbytes,1,actualwritten);
…	…
6838	6893	begin
6839	6894	oldnumberofrecords:=numberofrecords;
6840		oldcodelistcount:=advancedoptions.codelist.Count;
	6895	oldcodelistcount:=advancedoptions.codelist2.items.count;
6841	6896
6842	6897	setlength(oldmemrec,numberofrecords);

Cheat Engine/Release/Cheat Engine.iss

r305	r306
3	3
4	4	[Setup]
5		AppName=Cheat Engine 5.6 BETA
6		AppVerName=Cheat Engine 5.6 BETA
	5	AppName=Cheat Engine 5.6 BETA 4
	6	AppVerName=Cheat Engine 5.6 BETA 4
7	7	AppPublisher=Dark Byte
8	8	AppPublisherURL=http://www.cheatengine.org/
9	9	AppSupportURL=http://www.cheatengine.org/
10	10	AppUpdatesURL=http://www.cheatengine.org/
11		DefaultDirName={pf}\Cheat Engine Beta3
12		DefaultGroupName=Cheat Engine 5.6 BETA
	11	DefaultDirName={pf}\Cheat Engine Beta4
	12	DefaultGroupName=Cheat Engine 5.6 BETA 4
13	13	AllowNoIcons=yes
14	14	LicenseFile=..\Release\License.txt
15	15	InfoAfterFile=..\Release\readme.txt
16		OutputBaseFilename=CheatEngine56Beta3
	16	OutputBaseFilename=CheatEngine56Beta4
17	17	PrivilegesRequired=admin
18	18	ChangesAssociations=yes

Cheat Engine/Structuresfrm.dfm

r294	r306
70	70	OnDblClick = tvStructureViewDblClick
71	71	OnExpanding = tvStructureViewExpanding
	72	OnKeyDown = tvStructureViewKeyDown
72	73	OnMouseDown = tvStructureViewMouseDown
73	74	end
…	…
152	153	OnPopup = PopupMenu1Popup
153	154	Left = 240
154		Top = 200
	155	Top = 208
155	156	object ChangeElement1: TMenuItem
156	157	Caption = 'Change element'

Cheat Engine/Structuresfrm.pas

r294	r306
128	128	procedure Newwindow1Click(Sender: TObject);
129	129	procedure Memorybrowsepointer1Click(Sender: TObject);
	130	procedure tvStructureViewKeyDown(Sender: TObject; var Key: Word;
	131	Shift: TShiftState);
130	132	private
131	133	{ Private declarations }
…	…
1162	1164	begin
1163	1165	s:=tstructure(tvStructureView.Selected.Data);
1164		elementnr:=tvStructureView.Selected.Index;
1165
1166		Memorybrowsepointer1.Visible:=(elementnr>=0) and definedstructures[s.basestructure].structelement[elementnr].pointerto;
	1166	if s<>nil then
	1167	begin
	1168	Addtoaddresslist1.Visible:=true;
	1169	Deleteelement1.Visible:=true;
	1170	n2.Visible:=true;
	1171	elementnr:=tvStructureView.Selected.Index;
	1172
	1173	Memorybrowsepointer1.Visible:=(elementnr>=0) and definedstructures[s.basestructure].structelement[elementnr].pointerto;
	1174	end else
	1175	begin
	1176	Deleteelement1.Visible:=false;
	1177	n2.Visible:=false;
	1178	Memorybrowsepointer1.Visible:=false;
	1179	Addtoaddresslist1.Visible:=false;
	1180	end;
1167	1181	end;
1168	1182
…	…
2133	2147	begin
2134	2148	s:=tstructure(tvStructureView.Selected.Data);
	2149	if s=nil then exit;
	2150
2135	2151	elementnr:=tvStructureView.Selected.Index;
2136	2152
…	…
2138	2154	begin
2139	2155	//find the position that is clicked
2140		GetWindowRect(~~TTreeview(sender)~~.Handle, tvrect);
	2156	GetWindowRect(tvStructureView.Handle, tvrect);
2141	2157
2142	2158	clickpos.X:=popupmenu1.PopupPoint.X-tvrect.Left;
…	…
2170	2186	end;
2171	2187
	2188	procedure TfrmStructures.tvStructureViewKeyDown(Sender: TObject;
	2189	var Key: Word; Shift: TShiftState);
	2190	var
	2191	i: integer;
	2192	s: Tstructure;
	2193	elementnr: integer;
	2194	tvrect: trect;
	2195	clickpos: tpoint;
	2196	section: integer;
	2197	address: dword;
	2198	x: dword;
	2199	begin
	2200	if key=vk_space then
	2201	begin
	2202	if (tvStructureView.selected<>nil) then
	2203	begin
	2204	s:=tstructure(tvStructureView.Selected.Data);
	2205	elementnr:=tvStructureView.Selected.Index;
	2206	if s=nil then exit;
	2207
	2208
	2209	if (elementnr>=0) then
	2210	begin
	2211	//find the position that is clicked
	2212	GetWindowRect(tvStructureView.Handle, tvrect);
	2213
	2214	clickpos.X:=popupmenu1.PopupPoint.X-tvrect.Left;
	2215	clickpos.Y:=popupmenu1.PopupPoint.Y-tvrect.Top;
	2216
	2217	section:=headercontrol1.Sections.Count-1;
	2218	for i:=0 to headercontrol1.Sections.Count-1 do
	2219	begin
	2220	if (clickpos.x>=headercontrol1.Sections[i].Left)
	2221	and
	2222	(clickpos.x<headercontrol1.Sections[i].Left+headercontrol1.Sections[i].width) then
	2223	begin
	2224	//found it
	2225	section:=i;
	2226	break;
	2227	end;
	2228	end;
	2229
	2230	if section>0 then
	2231	section:=section-1; //count starts from 1, so decrease
	2232
	2233	memorybrowser.memoryaddress:=s.addresses[section]+definedstructures[s.basestructure].structelement[elementnr].offset;
	2234	memorybrowser.RefreshMB;
	2235	end;
	2236	// definedstructures[s.basestructure].structelement[elementnr].
	2237	end;
	2238
	2239	end;
	2240
	2241
	2242
	2243	end;
	2244
2172	2245	end.
2173	2246

Cheat Engine/Valuechange.dfm

r7	r306
5	5	BorderStyle = bsDialog
6	6	Caption = 'Change Offset: ########'
7		ClientHeight = 83
8		ClientWidth = 214
	7	ClientHeight = 102
	8	ClientWidth = 263
9	9	Color = clBtnFace
10	10	Font.Charset = DEFAULT_CHARSET
11	11	Font.Color = clWindowText
12		Font.Height = -11
	12	Font.Height = -14
13	13	Font.Name = 'MS Sans Serif'
14	14	Font.Style = []
…	…
18	18	OnCreate = FormCreate
19	19	OnShow = FormShow
20		PixelsPerInch = 96
21		TextHeight = 13
	20	PixelsPerInch = 120
	21	TextHeight = 16
22	22	object VarType: TComboBox
23		Left = 16
24		Top = 25
25		Width = 121
26		Height = 21
	23	Left = 20
	24	Top = 31
	25	Width = 149
	26	Height = 24
27	27	Style = csDropDownList
28		ItemHeight = 13
	28	ItemHeight = 16
29	29	ItemIndex = 0
30	30	TabOrder = 0
…	…
42	42	end
43	43	object Button1: TButton
44		Left = 34
45		Top = 56
46		Width = 75
47		Height = 25
	44	Left = 42
	45	Top = 69
	46	Width = 92
	47	Height = 31
48	48	Caption = 'OK'
49	49	Default = True
…	…
52	52	end
53	53	object Button2: TButton
54		Left = 117
55		Top = 56
56		Width = 75
57		Height = 25
	54	Left = 144
	55	Top = 69
	56	Width = 92
	57	Height = 31
58	58	Cancel = True
59	59	Caption = 'Cancel'
…	…
62	62	end
63	63	object ValueText: TEdit
64		Left = 17
	64	Left = 21
65	65	Top = 1
66		Width = ~~192~~
	66	Width = 236
67	67	Height = 21
68	68	TabOrder = 3
…	…
70	70	end
71	71	object cbunicode: TCheckBox
72		Left = 144
73		Top = 27
74		Width = 65
75		Height = 17
	72	Left = 177
	73	Top = 33
	74	Width = 80
	75	Height = 21
76	76	Caption = 'Unicode'
77	77	TabOrder = 4

Cheat Engine/Valuechange.pas

r7	r306
112	112	valuetext.text:=IntToStr(value1);
113	113
114		cbunicode.visible:=~~tru~~e;
	114	cbunicode.visible:=false;
115	115	end;
116	116
…	…
124	124	valuetext.text:=IntToStr(value2);
125	125
126		cbunicode.visible:=~~tru~~e;
	126	cbunicode.visible:=false;
127	127	end;
128	128
…	…
135	135	valuetext.text:=IntToStr(value3);
136	136
137		cbunicode.visible:=~~tru~~e;
	137	cbunicode.visible:=false;
138	138	end;
139	139
…	…
146	146	valuetext.text:=IntToStr(value6);
147	147
148		cbunicode.visible:=~~tru~~e;
	148	cbunicode.visible:=false;
149	149	end;
150	150
…	…
157	157	valuetext.text:=FloatToStr(value4);
158	158
159		cbunicode.visible:=~~tru~~e;
	159	cbunicode.visible:=false;
160	160	end;
161	161
…	…
168	168	valuetext.text:=floatToStr(value5);
169	169
170		cbunicode.visible:=~~tru~~e;
	170	cbunicode.visible:=false;
171	171	end;
172	172

Cheat Engine/cheatengine.dof

r305	r306
189	189	MinorVer=6
190	190	Release=0
191		Build=44
	191	Build=46
192	192	Debug=0
193	193	PreRelease=1
…	…
200	200	CompanyName=
201	201	FileDescription=Cheat Engine 5.6
202		FileVersion=5.6.0.44
	202	FileVersion=5.6.0.46
203	203	InternalName=CheatEngine
204	204	LegalCopyright=none

Cheat Engine/cheatengine.dpr

r303	r306
158	158	PointerscanresultReader in 'PointerscanresultReader.pas',
159	159	frmReferencedStringsUnit in 'frmReferencedStringsUnit.pas' {frmReferencedStrings},
160		ManualModuleLoader in 'ManualModuleLoader.pas';
	160	ManualModuleLoader in 'ManualModuleLoader.pas',
	161	windows7taskbar in 'windows7taskbar.pas';
161	162
162	163	// frmOpenGLUnit in 'frmOpenGLUnit.pas' {frmOpenGL};

Cheat Engine/cheatengine.drc

r305	r306
9	9	*/
10	10
11		#define MainUnit_strhappybirthday 64944
12		#define MainUnit_strXMess 64945
13		#define MainUnit_strNewyear 64946
14		#define MainUnit_strfuture 64947
15		#define MainUnit_strdontbother 64948
16		#define MainUnit_strneeddebugger 64949
17		#define MainUnit_strfailuretosetspeed 64950
18		#define MainUnit_strIncorrectspeed 64951
19		#define MainUnit_strCantSetSpeed 64952
20		#define MainUnit_strHyperscanFailed 64953
21		#define MainUnit_strUnknownExtension 64954
22		#define MainUnit_strCustomScanConfig 64955
23		#define MainUnit_strDeleteAddress 64960
24		#define MainUnit_strRecalculateAddress 64961
25		#define MainUnit_strRecalculateSelectedAddresses 64962
26		#define MainUnit_strRecalculateAllAddresses 64963
27		#define MainUnit_strRemoveFromGroup 64964
28		#define MainUnit_strEnableCheat 64965
29		#define MainUnit_strDisableCheat 64966
30		#define MainUnit_strFindWhatWritesToPointer 64967
31		#define MainUnit_strFindWhatWritesToPointer2 64968
32		#define MainUnit_strcantdebugnow 64969
33		#define MainUnit_strpointercantberead 64970
34		#define MainUnit_strconfirmUndo 64971
35		#define MainUnit_strHideForeground 64972
36		#define MainUnit_strHideAll 64973
37		#define MainUnit_strUnHideForeground 64974
38		#define MainUnit_strUnhideAll 64975
39		#define MainUnit_strDelete1Group 64976
40		#define MainUnit_strDeleteMoreGroups 64977
41		#define MainUnit_strSelectedAddressIsAPointer 64978
42		#define MainUnit_strMorePointers 64979
43		#define MainUnit_strMorePointers2 64980
44		#define MainUnit_strNotAValidValue 64981
45		#define MainUnit_strdeleteall 64982
46		#define MainUnit_stralreadyin 64983
47		#define MainUnit_stralreadyinlistmultiple 64984
48		#define MainUnit_strsethotkey 64985
49		#define MainUnit_strshowasdecimal 64986
50		#define MainUnit_strshowashex 64987
51		#define MainUnit_strFreezeAddressInList 64988
52		#define MainUnit_strFreezeAllAddresses 64989
53		#define MainUnit_strUnfreezeAllAddresses 64990
54		#define MainUnit_strUnfreezeAddressInList 64991
55		#define MainUnit_strFirstSelectAProcess 64992
56		#define MainUnit_strCantdoNextScan 64993
57		#define MainUnit_strClickToGoHome 64994
58		#define MainUnit_strChangeDescription1 64995
59		#define MainUnit_strChangeDescription2 64996
60		#define MainUnit_strNotTheSameSize1 64997
61		#define MainUnit_strNotTheSameSize2 64998
62		#define MainUnit_strAdd0 64999
63		#define MainUnit_strNotAValidNotation 65000
64		#define MainUnit_strNotSameAmmountofBytes 65001
65		#define MainUnit_strNotAValidBinaryNotation 65002
66		#define MainUnit_strValue 65003
67		#define MainUnit_strChange1Value 65004
68		#define MainUnit_strChangeMoreValues 65005
69		#define MainUnit_strDelete1Address 65006
70		#define MainUnit_strDeleteMultipleAddresses 65007
71		#define MainUnit_strOpcodeChanged 65008
72		#define MainUnit_strAllowNegative 65009
73		#define MainUnit_strAllowPositive 65010
74		#define MainUnit_strNormalFreeze 65011
75		#define MainUnit_strAskToSave 65012
76		#define MainUnit_strScantextcaptiontotext 65013
77		#define MainUnit_strScantextcaptiontoValue 65014
78		#define MainUnit_strsearchForText 65015
79		#define MainUnit_strSearchForArray 65016
80		#define MainUnit_strConfirmProcessTermination 65017
81		#define MainUnit_strError 65018
82		#define MainUnit_strErrorwhileOpeningProcess 65019
83		#define MainUnit_strKeepList 65020
84		#define MainUnit_strInfoAboutTable 65021
85		#define MainUnit_strPhysicalMemory 65022
86		#define MainUnit_strfillInSomething 65023
87		#define MainUnit2_strexactvalue 65024
88		#define MainUnit2_strbiggerThan 65025
89		#define MainUnit2_strSmallerThan 65026
90		#define MainUnit2_strIncreasedValue 65027
91		#define MainUnit2_strIncreasedValueBy 65028
92		#define MainUnit2_strDecreasedValue 65029
93		#define MainUnit2_strDecreasedValueBy 65030
94		#define MainUnit2_strValueBetween 65031
95		#define MainUnit2_strChangedValue 65032
96		#define MainUnit2_strUnchangedValue 65033
97		#define MainUnit2_strUnknownInitialValue 65034
98		#define MainUnit2_strSameAsFirstScan 65035
99		#define MainUnit2_strtoolong 65036
100		#define FoundCodeUnit_strClose 65037
101		#define MainUnit_strWindowFailedToHide 65038
102		#define MainUnit_strAccessed 65039
103		#define AdvancedOptionsUnit_strnotthesame 65040
104		#define AdvancedOptionsUnit_strcouldntwrite 65041
105		#define AdvancedOptionsUnit_StrSelectExeFor3D 65042
106		#define AdvancedOptionsUnit_StrSelectExeForOpenGL3D 65043
107		#define formsettingsunit_strProcessWatcherWillPreventUnloader 65044
108		#define MainUnit2_strStart 65045
109		#define MainUnit2_strStop 65046
110		#define MainUnit2_strOK 65047
111		#define MainUnit2_strBug 65048
112		#define MainUnit2_strAutoAssemble 65049
113		#define MainUnit2_strAddressHasToBeReadable 65050
114		#define MainUnit2_strNewScan 65051
115		#define MainUnit2_strFirstScan 65052
116		#define MainUnit2_strNoDescription 65053
117		#define MainUnit2_strNeedNewerWindowsVersion 65054
118		#define MainUnit2_strexact 65055
	11	#define MainUnit_strXMess 64944
	12	#define MainUnit_strNewyear 64945
	13	#define MainUnit_strfuture 64946
	14	#define MainUnit_strdontbother 64947
	15	#define MainUnit_strneeddebugger 64948
	16	#define MainUnit_strfailuretosetspeed 64949
	17	#define MainUnit_strIncorrectspeed 64950
	18	#define MainUnit_strCantSetSpeed 64951
	19	#define MainUnit_strHyperscanFailed 64952
	20	#define MainUnit_strUnknownExtension 64953
	21	#define MainUnit_strCustomScanConfig 64954
	22	#define MainUnit_strRecalculateAddress 64960
	23	#define MainUnit_strRecalculateSelectedAddresses 64961
	24	#define MainUnit_strRecalculateAllAddresses 64962
	25	#define MainUnit_strRemoveFromGroup 64963
	26	#define MainUnit_strEnableCheat 64964
	27	#define MainUnit_strDisableCheat 64965
	28	#define MainUnit_strFindWhatWritesToPointer 64966
	29	#define MainUnit_strFindWhatWritesToPointer2 64967
	30	#define MainUnit_strcantdebugnow 64968
	31	#define MainUnit_strpointercantberead 64969
	32	#define MainUnit_strconfirmUndo 64970
	33	#define MainUnit_strHideForeground 64971
	34	#define MainUnit_strHideAll 64972
	35	#define MainUnit_strUnHideForeground 64973
	36	#define MainUnit_strUnhideAll 64974
	37	#define MainUnit_strhappybirthday 64975
	38	#define MainUnit_strDeleteMoreGroups 64976
	39	#define MainUnit_strSelectedAddressIsAPointer 64977
	40	#define MainUnit_strMorePointers 64978
	41	#define MainUnit_strMorePointers2 64979
	42	#define MainUnit_strNotAValidValue 64980
	43	#define MainUnit_strdeleteall 64981
	44	#define MainUnit_stralreadyin 64982
	45	#define MainUnit_stralreadyinlistmultiple 64983
	46	#define MainUnit_strsethotkey 64984
	47	#define MainUnit_strshowasdecimal 64985
	48	#define MainUnit_strshowashex 64986
	49	#define MainUnit_strFreezeAddressInList 64987
	50	#define MainUnit_strFreezeAllAddresses 64988
	51	#define MainUnit_strUnfreezeAllAddresses 64989
	52	#define MainUnit_strUnfreezeAddressInList 64990
	53	#define MainUnit_strDeleteAddress 64991
	54	#define MainUnit_strCantdoNextScan 64992
	55	#define MainUnit_strClickToGoHome 64993
	56	#define MainUnit_strChangeDescription1 64994
	57	#define MainUnit_strChangeDescription2 64995
	58	#define MainUnit_strNotTheSameSize1 64996
	59	#define MainUnit_strNotTheSameSize2 64997
	60	#define MainUnit_strAdd0 64998
	61	#define MainUnit_strNotAValidNotation 64999
	62	#define MainUnit_strNotSameAmmountofBytes 65000
	63	#define MainUnit_strNotAValidBinaryNotation 65001
	64	#define MainUnit_strValue 65002
	65	#define MainUnit_strChange1Value 65003
	66	#define MainUnit_strChangeMoreValues 65004
	67	#define MainUnit_strDelete1Address 65005
	68	#define MainUnit_strDeleteMultipleAddresses 65006
	69	#define MainUnit_strDelete1Group 65007
	70	#define MainUnit_strAllowNegative 65008
	71	#define MainUnit_strAllowPositive 65009
	72	#define MainUnit_strNormalFreeze 65010
	73	#define MainUnit_strAskToSave 65011
	74	#define MainUnit_strScantextcaptiontotext 65012
	75	#define MainUnit_strScantextcaptiontoValue 65013
	76	#define MainUnit_strsearchForText 65014
	77	#define MainUnit_strSearchForArray 65015
	78	#define MainUnit_strConfirmProcessTermination 65016
	79	#define MainUnit_strError 65017
	80	#define MainUnit_strErrorwhileOpeningProcess 65018
	81	#define MainUnit_strKeepList 65019
	82	#define MainUnit_strInfoAboutTable 65020
	83	#define MainUnit_strPhysicalMemory 65021
	84	#define MainUnit_strfillInSomething 65022
	85	#define MainUnit_strFirstSelectAProcess 65023
	86	#define MainUnit2_strbiggerThan 65024
	87	#define MainUnit2_strSmallerThan 65025
	88	#define MainUnit2_strIncreasedValue 65026
	89	#define MainUnit2_strIncreasedValueBy 65027
	90	#define MainUnit2_strDecreasedValue 65028
	91	#define MainUnit2_strDecreasedValueBy 65029
	92	#define MainUnit2_strValueBetween 65030
	93	#define MainUnit2_strChangedValue 65031
	94	#define MainUnit2_strUnchangedValue 65032
	95	#define MainUnit2_strUnknownInitialValue 65033
	96	#define MainUnit2_strSameAsFirstScan 65034
	97	#define MainUnit2_strtoolong 65035
	98	#define FoundCodeUnit_strClose 65036
	99	#define MainUnit_strWindowFailedToHide 65037
	100	#define MainUnit_strAccessed 65038
	101	#define MainUnit_strOpcodeChanged 65039
	102	#define AdvancedOptionsUnit_strcouldntwrite 65040
	103	#define AdvancedOptionsUnit_StrSelectExeFor3D 65041
	104	#define AdvancedOptionsUnit_StrSelectExeForOpenGL3D 65042
	105	#define formsettingsunit_strProcessWatcherWillPreventUnloader 65043
	106	#define MainUnit2_strStart 65044
	107	#define MainUnit2_strStop 65045
	108	#define MainUnit2_strOK 65046
	109	#define MainUnit2_strBug 65047
	110	#define MainUnit2_strAutoAssemble 65048
	111	#define MainUnit2_strAddressHasToBeReadable 65049
	112	#define MainUnit2_strNewScan 65050
	113	#define MainUnit2_strFirstScan 65051
	114	#define MainUnit2_strNoDescription 65052
	115	#define MainUnit2_strNeedNewerWindowsVersion 65053
	116	#define MainUnit2_strexact 65054
	117	#define MainUnit2_strexactvalue 65055
119	118	#define frmFindstaticsUnit_strStop 65056
120	119	#define frmFindstaticsUnit_strStopping 65057
…	…
124	123	#define AdvancedOptionsUnit_stralreadyinthelist 65061
125	124	#define AdvancedOptionsUnit_strPartOfOpcodeInTheList 65062
126		#define AdvancedOptionsUnit_str~~AddressAlreadyInTheList~~ 65063
127		#define AdvancedOptionsUnit_strCECode 65064
128		#define AdvancedOptionsUnit_str~~NameCECode~~ 65065
129		#define AdvancedOptionsUnit_strC~~hangeOf~~ 65066
130		#define AdvancedOptionsUnit_str~~Code~~ 65067
131		#define AdvancedOptionsUnit_strFindWhatCode~~accesse~~s 65068
132		#define AdvancedOptionsUnit_strFindWhatCode~~Read~~s 65069
133		#define AdvancedOptionsUnit_str~~FindWhatCodeWrites~~ 65070
134		#define AdvancedOptionsUnit_str~~couldntrestorecod~~e 65071
	125	#define AdvancedOptionsUnit_strCECode 65063
	126	#define AdvancedOptionsUnit_strNameCECode 65064
	127	#define AdvancedOptionsUnit_strChangeOf 65065
	128	#define AdvancedOptionsUnit_strCode 65066
	129	#define AdvancedOptionsUnit_strFindWhatCodeaccesses 65067
	130	#define AdvancedOptionsUnit_strFindWhatCodeReads 65068
	131	#define AdvancedOptionsUnit_strFindWhatCodeWrites 65069
	132	#define AdvancedOptionsUnit_strcouldntrestorecode 65070
	133	#define AdvancedOptionsUnit_strnotthesame 65071
135	134	#define SynEditStrConst_SYNS_AttrOctal 65072
136	135	#define SynEditStrConst_SYNS_AttrPreprocessor 65073
…	…
181	180	#define XMLConst_SNodeReadOnly 65118
182	181	#define XMLConst_SNoRefresh 65119
183		#define JclResources_RsIntelCacheDescrF0 65120
184		#define JclResources_RsIntelCacheDescrF1 65121
185		#define JclResources_Rs~~UnknownAMDModel~~ 65122
186		#define ~~ComConst_SOleError~~ 65123
187		#define ~~ComConst_SNoMethod~~ 65124
188		#define ~~ComConst_SVarNotObject~~ 65125
189		#define ~~ComConst_STooManyParams~~ 65126
	182	#define JclResources_RsIntelCacheDescrB0 65120
	183	#define JclResources_RsIntelCacheDescrB1 65121
	184	#define JclResources_RsIntelCacheDescrB3 65122
	185	#define JclResources_RsIntelCacheDescrB4 65123
	186	#define JclResources_RsIntelCacheDescrF0 65124
	187	#define JclResources_RsIntelCacheDescrF1 65125
	188	#define JclResources_RsUnknownAMDModel 65126
190	189	#define JConsts_sChangeJPGSize 65127
191	190	#define JConsts_sJPEGError 65128
…	…
197	196	#define KIcon_SIconGDIError 65134
198	197	#define KIcon_SIconResizingError 65135
199		#define JclResources_RsIntelCacheDescr79 65136
200		#define JclResources_RsIntelCacheDescr7A 65137
201		#define JclResources_RsIntelCacheDescr7B 65138
202		#define JclResources_RsIntelCacheDescr7C 65139
203		#define JclResources_RsIntelCacheDescr7D 65140
204		#define JclResources_RsIntelCacheDescr7F 65141
205		#define JclResources_RsIntelCacheDescr82 65142
206		#define JclResources_RsIntelCacheDescr83 65143
207		#define JclResources_RsIntelCacheDescr84 65144
208		#define JclResources_RsIntelCacheDescr85 65145
209		#define JclResources_RsIntelCacheDescr86 65146
210		#define JclResources_RsIntelCacheDescr87 65147
211		#define JclResources_RsIntelCacheDescrB0 65148
212		#define JclResources_RsIntelCacheDescrB1 65149
213		#define JclResources_RsIntelCacheDescrB3 65150
214		#define JclResources_RsIntelCacheDescrB4 65151
215		#define JclResources_RsIntelCacheDescr50 65152
216		#define JclResources_RsIntelCacheDescr51 65153
217		#define JclResources_RsIntelCacheDescr52 65154
218		#define JclResources_RsIntelCacheDescr56 65155
219		#define JclResources_RsIntelCacheDescr57 65156
220		#define JclResources_RsIntelCacheDescr5B 65157
221		#define JclResources_RsIntelCacheDescr5C 65158
222		#define JclResources_RsIntelCacheDescr5D 65159
223		#define JclResources_RsIntelCacheDescr60 65160
224		#define JclResources_RsIntelCacheDescr66 65161
225		#define JclResources_RsIntelCacheDescr67 65162
226		#define JclResources_RsIntelCacheDescr68 65163
227		#define JclResources_RsIntelCacheDescr70 65164
228		#define JclResources_RsIntelCacheDescr71 65165
229		#define JclResources_RsIntelCacheDescr72 65166
230		#define JclResources_RsIntelCacheDescr78 65167
231		#define JclResources_RsIntelCacheDescr2C 65168
232		#define JclResources_RsIntelCacheDescr30 65169
233		#define JclResources_RsIntelCacheDescr40 65170
234		#define JclResources_RsIntelCacheDescr41 65171
235		#define JclResources_RsIntelCacheDescr42 65172
236		#define JclResources_RsIntelCacheDescr43 65173
237		#define JclResources_RsIntelCacheDescr44 65174
238		#define JclResources_RsIntelCacheDescr45 65175
239		#define JclResources_RsIntelCacheDescr46 65176
240		#define JclResources_RsIntelCacheDescr47 65177
241		#define JclResources_RsIntelCacheDescr48 65178
242		#define JclResources_RsIntelCacheDescr49 65179
243		#define JclResources_RsIntelCacheDescr4A 65180
244		#define JclResources_RsIntelCacheDescr4B 65181
245		#define JclResources_RsIntelCacheDescr4D 65182
246		#define JclResources_RsIntelCacheDescr4E 65183
247		#define JclResources_RsHKDDShort 65184
248		#define JclResources_Rs~~IntelCacheDescr00~~ 65185
249		#define JclResources_Rs~~IntelCacheDescr01~~ 65186
250		#define JclResources_Rs~~IntelCacheDescr02~~ 65187
251		#define JclResources_Rs~~IntelCacheDescr03~~ 65188
252		#define JclResources_RsIntelCacheDescr04 65189
253		#define JclResources_RsIntelCacheDescr05 65190
254		#define JclResources_RsIntelCacheDescr06 65191
255		#define JclResources_RsIntelCacheDescr08 65192
256		#define JclResources_RsIntelCacheDescr0A 65193
257		#define JclResources_RsIntelCacheDescr0B 65194
258		#define JclResources_RsIntelCacheDescr0C 65195
259		#define JclResources_RsIntelCacheDescr22 65196
260		#define JclResources_RsIntelCacheDescr23 65197
261		#define JclResources_RsIntelCacheDescr25 65198
262		#define JclResources_RsIntelCacheDescr29 65199
263		#define ~~JclResources_RsCreateCompatibleDc~~ 65200
264		#define ~~JclResources_RsDibHandleAllocation~~ 65201
265		#define ~~JclResources_RsSelectObjectInDc~~ 65202
266		#define JclResources_Rs~~HKCRLong~~ 65203
267		#define JclResources_Rs~~HKCULong~~ 65204
268		#define JclResources_Rs~~HKLMLong~~ 65205
269		#define JclResources_Rs~~HKUSLong~~ 65206
270		#define JclResources_RsHKPDLong 65207
271		#define JclResources_RsHKCCLong 65208
272		#define JclResources_RsHKDDLong 65209
273		#define JclResources_RsHK~~CRShort~~ 65210
274		#define JclResources_RsHK~~CUShort~~ 65211
275		#define JclResources_RsHK~~LMShort~~ 65212
276		#define JclResources_RsHK~~USShort~~ 65213
277		#define JclResources_RsHKPDShort 65214
278		#define JclResources_RsHKCCShort 65215
	198	#define JclResources_RsIntelCacheDescr70 65136
	199	#define JclResources_RsIntelCacheDescr71 65137
	200	#define JclResources_RsIntelCacheDescr72 65138
	201	#define JclResources_RsIntelCacheDescr78 65139
	202	#define JclResources_RsIntelCacheDescr79 65140
	203	#define JclResources_RsIntelCacheDescr7A 65141
	204	#define JclResources_RsIntelCacheDescr7B 65142
	205	#define JclResources_RsIntelCacheDescr7C 65143
	206	#define JclResources_RsIntelCacheDescr7D 65144
	207	#define JclResources_RsIntelCacheDescr7F 65145
	208	#define JclResources_RsIntelCacheDescr82 65146
	209	#define JclResources_RsIntelCacheDescr83 65147
	210	#define JclResources_RsIntelCacheDescr84 65148
	211	#define JclResources_RsIntelCacheDescr85 65149
	212	#define JclResources_RsIntelCacheDescr86 65150
	213	#define JclResources_RsIntelCacheDescr87 65151
	214	#define JclResources_RsIntelCacheDescr4A 65152
	215	#define JclResources_RsIntelCacheDescr4B 65153
	216	#define JclResources_RsIntelCacheDescr4D 65154
	217	#define JclResources_RsIntelCacheDescr4E 65155
	218	#define JclResources_RsIntelCacheDescr50 65156
	219	#define JclResources_RsIntelCacheDescr51 65157
	220	#define JclResources_RsIntelCacheDescr52 65158
	221	#define JclResources_RsIntelCacheDescr56 65159
	222	#define JclResources_RsIntelCacheDescr57 65160
	223	#define JclResources_RsIntelCacheDescr5B 65161
	224	#define JclResources_RsIntelCacheDescr5C 65162
	225	#define JclResources_RsIntelCacheDescr5D 65163
	226	#define JclResources_RsIntelCacheDescr60 65164
	227	#define JclResources_RsIntelCacheDescr66 65165
	228	#define JclResources_RsIntelCacheDescr67 65166
	229	#define JclResources_RsIntelCacheDescr68 65167
	230	#define JclResources_RsIntelCacheDescr22 65168
	231	#define JclResources_RsIntelCacheDescr23 65169
	232	#define JclResources_RsIntelCacheDescr25 65170
	233	#define JclResources_RsIntelCacheDescr29 65171
	234	#define JclResources_RsIntelCacheDescr2C 65172
	235	#define JclResources_RsIntelCacheDescr30 65173
	236	#define JclResources_RsIntelCacheDescr40 65174
	237	#define JclResources_RsIntelCacheDescr41 65175
	238	#define JclResources_RsIntelCacheDescr42 65176
	239	#define JclResources_RsIntelCacheDescr43 65177
	240	#define JclResources_RsIntelCacheDescr44 65178
	241	#define JclResources_RsIntelCacheDescr45 65179
	242	#define JclResources_RsIntelCacheDescr46 65180
	243	#define JclResources_RsIntelCacheDescr47 65181
	244	#define JclResources_RsIntelCacheDescr48 65182
	245	#define JclResources_RsIntelCacheDescr49 65183
	246	#define JclResources_RsHKLMShort 65184
	247	#define JclResources_RsHKUSShort 65185
	248	#define JclResources_RsHKPDShort 65186
	249	#define JclResources_RsHKCCShort 65187
	250	#define JclResources_RsHKDDShort 65188
	251	#define JclResources_RsIntelCacheDescr00 65189
	252	#define JclResources_RsIntelCacheDescr01 65190
	253	#define JclResources_RsIntelCacheDescr02 65191
	254	#define JclResources_RsIntelCacheDescr03 65192
	255	#define JclResources_RsIntelCacheDescr04 65193
	256	#define JclResources_RsIntelCacheDescr05 65194
	257	#define JclResources_RsIntelCacheDescr06 65195
	258	#define JclResources_RsIntelCacheDescr08 65196
	259	#define JclResources_RsIntelCacheDescr0A 65197
	260	#define JclResources_RsIntelCacheDescr0B 65198
	261	#define JclResources_RsIntelCacheDescr0C 65199
	262	#define ComConst_SVarNotObject 65200
	263	#define ComConst_STooManyParams 65201
	264	#define PEInfoFunctions_strInvalidFile 65202
	265	#define JclResources_RsAssertUnpairedEndUpdate 65203
	266	#define JclResources_RsCreateCompatibleDc 65204
	267	#define JclResources_RsDibHandleAllocation 65205
	268	#define JclResources_RsSelectObjectInDc 65206
	269	#define JclResources_RsHKCRLong 65207
	270	#define JclResources_RsHKCULong 65208
	271	#define JclResources_RsHKLMLong 65209
	272	#define JclResources_RsHKUSLong 65210
	273	#define JclResources_RsHKPDLong 65211
	274	#define JclResources_RsHKCCLong 65212
	275	#define JclResources_RsHKDDLong 65213
	276	#define JclResources_RsHKCRShort 65214
	277	#define JclResources_RsHKCUShort 65215
279	278	#define ExtCtrls_clNameWindowText 65216
280	279	#define ComStrs_sTabFailClear 65217
…	…
291	290	#define ComStrs_sInvalidComCtl32 65228
292	291	#define WinHelpViewer_hNoKeyword 65229
293		#define ~~PEInfoFunctions_strInvalidFile~~ 65230
294		#define ~~JclResources_RsAssertUnpairedEndUpdate~~ 65231
	292	#define ComConst_SOleError 65230
	293	#define ComConst_SNoMethod 65231
295	294	#define ExtCtrls_clNameGrayText 65232
296	295	#define ExtCtrls_clNameHighlight 65233
…	…
599	598	STRINGTABLE
600	599	BEGIN
601		~~MainUnit_strhappybirthday, "Let's sing Happy Birthday for Dark Byte today!"~~
602	600	MainUnit_strXMess, "Merry christmas and happy new year"
603	601	MainUnit_strNewyear, "And what are your good intentions for this year? ;-)"
…	…
611	609	MainUnit_strUnknownExtension, "Unknown extension"
612	610	MainUnit_strCustomScanConfig, "Custom scan config"
613		~~MainUnit_strDeleteAddress, "Delete this address"~~
614	611	MainUnit_strRecalculateAddress, "Recalculate address"
615	612	MainUnit_strRecalculateSelectedAddresses, "Recalculate selected addresses"
…	…
627	624	MainUnit_strUnHideForeground, "will bring the foreground window back"
628	625	MainUnit_strUnhideAll, "will bring all windows back"
629		MainUnit_str~~Delete1Group, "Also delete the group this address is a member of?~~"
	626	MainUnit_strhappybirthday, "Let's sing Happy Birthday for Dark Byte today!"
630	627	MainUnit_strDeleteMoreGroups, "Also delete the groups of the addresses you selected?"
631	628	MainUnit_strSelectedAddressIsAPointer, "The selected address is a pointer. Are you sure? (the base pointer will get the address)"
…	…
643	640	MainUnit_strUnfreezeAllAddresses, "Unfreeze all addresses in this list"
644	641	MainUnit_strUnfreezeAddressInList, "Unfreeze the address in this list"
645		MainUnit_str~~FirstSelectAProcess, "First select a proc~~ess"
	642	MainUnit_strDeleteAddress, "Delete this address"
646	643	MainUnit_strCantdoNextScan, "You can't do a Next Scan with the current selected way of scanning!"
647	644	MainUnit_strClickToGoHome, "Click here to go to the Cheat Engine homepage"
…	…
659	656	MainUnit_strDelete1Address, "Delete this address?"
660	657	MainUnit_strDeleteMultipleAddresses, "Delete these addresses?"
661		MainUnit_str~~OpcodeChanged, "The following opcodes changed the selected address~~"
	658	MainUnit_strDelete1Group, "Also delete the group this address is a member of?"
662	659	MainUnit_strAllowNegative, "Allow negative changes"
663	660	MainUnit_strAllowPositive, "Allow positive changes"
…	…
675	672	MainUnit_strPhysicalMemory, "Physical Memory"
676	673	MainUnit_strfillInSomething, "Please fill in something!"
677		MainUnit~~2_strexactvalue, "Exact Value~~"
	674	MainUnit_strFirstSelectAProcess, "First select a process"
678	675	MainUnit2_strbiggerThan, "Bigger than..."
679	676	MainUnit2_strSmallerThan, "Smaller than..."
…	…
691	688	MainUnit_strWindowFailedToHide, "A window failed to hide"
692	689	MainUnit_strAccessed, "The following opcodes accessed the selected address"
693		~~AdvancedOptionsUnit_strnotthesame, "The memory at this address isn't what it should be! Continue?~~"
	690	MainUnit_strOpcodeChanged, "The following opcodes changed the selected address"
694	691	AdvancedOptionsUnit_strcouldntwrite, "The memory at this address couldn't be written"
695	692	AdvancedOptionsUnit_StrSelectExeFor3D, "Select the executable of the Direct-3D game"
…	…
707	704	MainUnit2_strNeedNewerWindowsVersion, "This function only works in Windows 2000+ (perhaps also NT but not tested)"
708	705	MainUnit2_strexact, "Exact"
	706	MainUnit2_strexactvalue, "Exact Value"
709	707	frmFindstaticsUnit_strStop, "Stop"
710	708	frmFindstaticsUnit_strStopping, "Stopping..."
…	…
714	712	AdvancedOptionsUnit_stralreadyinthelist, "This byte is already part of another opcode already present in the list"
715	713	AdvancedOptionsUnit_strPartOfOpcodeInTheList, "At least one of these bytes is already in the list"
716		~~AdvancedOptionsUnit_strAddressAlreadyInTheList, "This address is already in the list"~~
717	714	AdvancedOptionsUnit_strCECode, "Cheat Engine code:"
718	715	AdvancedOptionsUnit_strNameCECode, "What name do you want to give this code?"
…	…
723	720	AdvancedOptionsUnit_strFindWhatCodeWrites, "Find out what addresses this code writes to"
724	721	AdvancedOptionsUnit_strcouldntrestorecode, "Error when trying to restore this code!"
	722	AdvancedOptionsUnit_strnotthesame, "The memory at this address isn't what it should be! Continue?"
725	723	SynEditStrConst_SYNS_AttrOctal, "Octal"
726	724	SynEditStrConst_SYNS_AttrPreprocessor, "Preprocessor"
…	…
771	769	XMLConst_SNodeReadOnly, "Node is readonly"
772	770	XMLConst_SNoRefresh, "Refresh is only supported if the FileName or XML properties are set"
	771	JclResources_RsIntelCacheDescrB0, "Instruction TLB: 4 KByte pages, 4-way set associative, 128 entries"
	772	JclResources_RsIntelCacheDescrB1, "Instruction TLB: 2 MByte pages, 4-way, 8 entries or 4 MByte pages, 4-way, 4 entries"
	773	JclResources_RsIntelCacheDescrB3, "Data TLB: 4 KByte pages, 4-way set associative, 128 entries"
	774	JclResources_RsIntelCacheDescrB4, "Data TLB1: 4 KByte pages, 4-way set associative, 256 entries"
773	775	JclResources_RsIntelCacheDescrF0, "64-Byte Prefetching"
774	776	JclResources_RsIntelCacheDescrF1, "128-Byte Prefetching"
775	777	JclResources_RsUnknownAMDModel, "Unknown AMD (Model %d)"
776		~~ComConst_SOleError, "OLE error %.8x"~~
777		~~ComConst_SNoMethod, "Method '%s' not supported by automation object"~~
778		~~ComConst_SVarNotObject, "Variant does not reference an automation object"~~
779		~~ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"~~
780	778	JConsts_sChangeJPGSize, "Cannot change the size of a JPEG image"
781	779	JConsts_sJPEGError, "JPEG error #%d"
…	…
787	785	KIcon_SIconGDIError, "GDI object could not be created"
788	786	KIcon_SIconResizingError, "Error while resizing icon"
	787	JclResources_RsIntelCacheDescr70, "Trace cache: 12 K-Ops, 8-way set associative"
	788	JclResources_RsIntelCacheDescr71, "Trace cache: 16 K-Ops, 8-way set associative"
	789	JclResources_RsIntelCacheDescr72, "Trace cache: 32 K-Ops, 8-way set associative"
	790	JclResources_RsIntelCacheDescr78, "2nd-level cache: 1 MBytes, 4-way set associative, 64 bytes line size"
789	791	JclResources_RsIntelCacheDescr79, "2nd-level cache: 128 KBytes, 8-way set associative, 64 bytes line size, 2 lines per sector"
790	792	JclResources_RsIntelCacheDescr7A, "2nd-level cache: 256 KBytes, 8-way set associative, 64 bytes line size, 2 lines per sector"
…	…
799	801	JclResources_RsIntelCacheDescr86, "2nd-level cache: 512 KByte, 4-way set associative, 64 byte line size"
800	802	JclResources_RsIntelCacheDescr87, "2nd-level cache: 1 MByte, 8-way set associative, 64 byte line size"
801		JclResources_RsIntelCacheDescr~~B0, "Instruction TLB: 4 KByte pages, 4-way set associative, 128 entries~~"
802		JclResources_RsIntelCacheDescr~~B1, "Instruction TLB: 2 MByte pages, 4-way, 8 entries or 4 MByte pages, 4-way, 4 entries~~"
803		JclResources_RsIntelCacheDescr~~B3, "Data TLB: 4 KByte pages, 4-way set associative, 128 entries~~"
804		JclResources_RsIntelCacheDescr~~B4, "Data TLB1: 4 KByte pages, 4-way set associative, 256 entries~~"
	803	JclResources_RsIntelCacheDescr4A, "3rd-level cache: 6MByte, 12-way set associative, 64 byte line size"
	804	JclResources_RsIntelCacheDescr4B, "3rd-level cache: 8MByte, 16-way set associative, 64 byte line size"
	805	JclResources_RsIntelCacheDescr4D, "3rd-level cache: 16MByte, 16-way set associative, 64 byte line size"
	806	JclResources_RsIntelCacheDescr4E, "2nd-level cache: 6MByte, 24-way set associative, 64 byte line size"
805	807	JclResources_RsIntelCacheDescr50, "Instruction TLB: 4 KByte and 2 MByte or 4 MByte pages, 64 Entries"
806	808	JclResources_RsIntelCacheDescr51, "Instruction TLB: 4 KByte and 2 MByte or 4 MByte pages, 128 Entries"
…	…
815	817	JclResources_RsIntelCacheDescr67, "1st-level data cache: 16 KBytes, 4-way set associative, 64 byte line size"
816	818	JclResources_RsIntelCacheDescr68, "1st-level data cache: 32 KBytes, 4-way set associative, 64 byte line size"
817		JclResources_RsIntelCacheDescr~~70, "Trace cache: 12 K-Ops, 8-way set associative~~"
818		JclResources_RsIntelCacheDescr~~71, "Trace cache: 16 K-Ops, 8-way set associative~~"
819		JclResources_RsIntelCacheDescr~~72, "Trace cache: 32 K-Ops, 8-way set associative~~"
820		JclResources_RsIntelCacheDescr~~78, "2nd-level cache: 1 MBytes, 4-way set associative, 64 bytes line size~~"
	819	JclResources_RsIntelCacheDescr22, "3rd level cache: 512 KBytes, 4-way set associative, 64 byte line size, 2 lines per sector"
	820	JclResources_RsIntelCacheDescr23, "3rd level cache: 1 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector"
	821	JclResources_RsIntelCacheDescr25, "3rd level cache: 2 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector"
	822	JclResources_RsIntelCacheDescr29, "3rd level cache: 4 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector"
821	823	JclResources_RsIntelCacheDescr2C, "1st level data cache: 32 KBytes, 8-way set associative, 64 byte line size"
822	824	JclResources_RsIntelCacheDescr30, "1st level instruction cache: 32 KBytes, 8-way set associative, 64 byte line size"
…	…
831	833	JclResources_RsIntelCacheDescr48, "3rd-level cache: 8 MByte, 8-way set associative, 64 byte line size"
832	834	JclResources_RsIntelCacheDescr49, "2nd-level cache: 4 MBytes, 16-way set associative, 64 byte line size"
833		JclResources_Rs~~IntelCacheDescr4A, "3rd-level cache: 6MByte, 12-way set associative, 64 byte line size~~"
834		JclResources_Rs~~IntelCacheDescr4B, "3rd-level cache: 8MByte, 16-way set associative, 64 byte line size~~"
835		JclResources_Rs~~IntelCacheDescr4D, "3rd-level cache: 16MByte, 16-way set associative, 64 byte line size~~"
836		JclResources_Rs~~IntelCacheDescr4E, "2nd-level cache: 6MByte, 24-way set associative, 64 byte line size~~"
	835	JclResources_RsHKLMShort, "HKLM"
	836	JclResources_RsHKUSShort, "HKUS"
	837	JclResources_RsHKPDShort, "HKPD"
	838	JclResources_RsHKCCShort, "HKCC"
837	839	JclResources_RsHKDDShort, "HKDD"
838	840	JclResources_RsIntelCacheDescr00, "Null descriptor"
…	…
847	849	JclResources_RsIntelCacheDescr0B, "Instruction TLB: 4 MByte pages, 4-way set associative, 4 entries"
848	850	JclResources_RsIntelCacheDescr0C, "1st level data cache: 16 KBytes, 4-way set associative, 32 byte line size"
849		~~JclResources_RsIntelCacheDescr22, "3rd level cache: 512 KBytes, 4-way set associative, 64 byte line size, 2 lines per sector~~"
850		~~JclResources_RsIntelCacheDescr23, "3rd level cache: 1 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector~~"
851		~~JclResources_RsIntelCacheDescr25, "3rd level cache: 2 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector~~"
852		JclResources_Rs~~IntelCacheDescr29, "3rd level cache: 4 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector~~"
	851	ComConst_SVarNotObject, "Variant does not reference an automation object"
	852	ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
	853	PEInfoFunctions_strInvalidFile, "Invalid file"
	854	JclResources_RsAssertUnpairedEndUpdate, "Unpaired BeginUpdate EndUpdate"
853	855	JclResources_RsCreateCompatibleDc, "Could not create compatible DC"
854	856	JclResources_RsDibHandleAllocation, "Could not allocate handle for DIB"
…	…
863	865	JclResources_RsHKCRShort, "HKCR"
864	866	JclResources_RsHKCUShort, "HKCU"
865		~~JclResources_RsHKLMShort, "HKLM"~~
866		~~JclResources_RsHKUSShort, "HKUS"~~
867		~~JclResources_RsHKPDShort, "HKPD"~~
868		~~JclResources_RsHKCCShort, "HKCC"~~
869	867	ExtCtrls_clNameWindowText, "Window Text"
870	868	ComStrs_sTabFailClear, "Failed to clear tab control"
…	…
881	879	ComStrs_sInvalidComCtl32, "This control requires version 4.70 or greater of COMCTL32.DLL"
882	880	WinHelpViewer_hNoKeyword, "No help keyword specified."
883		~~PEInfoFunctions_strInvalidFile, "Invalid file~~"
884		~~JclResources_RsAssertUnpairedEndUpdate, "Unpaired BeginUpdate EndUpdate~~"
	881	ComConst_SOleError, "OLE error %.8x"
	882	ComConst_SNoMethod, "Method '%s' not supported by automation object"
885	883	ExtCtrls_clNameGrayText, "Gray Text"
886	884	ExtCtrls_clNameHighlight, "Highlight Background"

Cheat Engine/disassembler.pas

r305	r306
3673	3673	description:='Unpack Low Packed Data';
3674	3674	tempresult:=tempresult+'PUNPCKLBW '+xmm(memory[2])+','+modrm(memory,prefix2,2,4,last);
	3675	tempresult:=copy(tempresult,1,length(tempresult)-1);
3675	3676	inc(offset,last-1);
3676	3677	end
…	…
3679	3680	description:='Unpack Low Packed Data';
3680	3681	tempresult:=tempresult+'PUNPCKLBW '+mm(memory[2])+','+modrm(memory,prefix2,2,3,last);
	3682	tempresult:=copy(tempresult,1,length(tempresult)-1);
3681	3683	inc(offset,last-1);
3682	3684	end;
…	…
3688	3690	description:='Unpack Low Packed Data';
3689	3691	tempresult:=tempresult+'PUNPCKLWD '+xmm(memory[2])+','+modrm(memory,prefix2,2,4,last);
	3692	tempresult:=copy(tempresult,1,length(tempresult)-1);
3690	3693	inc(offset,last-1);
3691	3694	end
…	…
3694	3697	description:='Unpack Low Packed Data';
3695	3698	tempresult:=tempresult+'PUNPCKLWD '+mm(memory[2])+','+modrm(memory,prefix2,2,3,last);
	3699	tempresult:=copy(tempresult,1,length(tempresult)-1);
3696	3700	inc(offset,last-1);
3697	3701	end;
…	…
3703	3707	description:='Unpack Low Packed Data';
3704	3708	tempresult:=tempresult+'PUNPCKLDQ '+xmm(memory[2])+','+modrm(memory,prefix2,2,4,last);
	3709	tempresult:=copy(tempresult,1,length(tempresult)-1);
3705	3710	inc(offset,last-1);
3706	3711	end
…	…
3709	3714	description:='Unpack Low Packed Data';
3710	3715	tempresult:=tempresult+'PUNPCKLDQ '+mm(memory[2])+','+modrm(memory,prefix2,2,3,last);
	3716	tempresult:=copy(tempresult,1,length(tempresult)-1);
3711	3717	inc(offset,last-1);
3712	3718	end;

Cheat Engine/formMemoryTrainerAddEntry.pas

r279	r306
74	74
75	75	procedure TFrmMemoryTrainerAddEntry.FormCreate(Sender: TObject);
76		begin
77		listbox1.Items:=advancedoptions.codelist.Items;
	76	var i: integer;
	77	begin
	78	listbox1.Items.Clear;
	79	for i:=0 to advancedoptions.codelist2.Items.Count-1 do
	80	listbox1.Items.Add(advancedoptions.codelist2.Items[i].SubItems[0]);
78	81	end;
79	82

Cheat Engine/formPatcherMaker.dfm

r7	r306
8	8	Font.Charset = DEFAULT_CHARSET
9	9	Font.Color = clWindowText
10		Font.Height = -11
	10	Font.Height = -14
11	11	Font.Name = 'MS Sans Serif'
12	12	Font.Style = []
…	…
15	15	OnClose = FormClose
16	16	OnShow = FormShow
17		PixelsPerInch = 96
18		TextHeight = 13
	17	PixelsPerInch = 120
	18	TextHeight = 16
19	19	object Label1: TLabel
20	20	Left = 0
21	21	Top = 0
22		Width = ~~273~~
23		Height = 13
	22	Width = 339
	23	Height = 16
24	24	Caption = 'Select the code entries you want to remove from the file(s)'
25	25	end
26	26	object PatchCodeList: TListBox
27	27	Left = 1
28		Top = 16
29		Width = ~~273~~
30		Height = 137
31		ItemHeight = 13
	28	Top = 20
	29	Width = 336
	30	Height = 168
	31	ItemHeight = 16
32	32	MultiSelect = True
33	33	TabOrder = 0
34	34	end
35	35	object Button1: TButton
36		Left = 56
37		Top = 160
38		Width = 75
39		Height = 25
	36	Left = 69
	37	Top = 197
	38	Width = 92
	39	Height = 31
40	40	Caption = 'OK'
41	41	Default = True
…	…
44	44	end
45	45	object Button3: TButton
46		Left = 144
47		Top = 160
48		Width = 75
49		Height = 25
	46	Left = 177
	47	Top = 197
	48	Width = 93
	49	Height = 31
50	50	Cancel = True
51	51	Caption = 'Cancel'

Cheat Engine/formPatcherMaker.pas

r7	r306
46	46	var i: integer;
47	47	begin
48		patchcodelist.Items:=advancedoptions.codelist.items;
	48	patchcodelist.Items.Clear;
	49	for i:=0 to advancedoptions.codelist2.items.Count-1 do
	50	patchcodelist.Items.Add(advancedoptions.codelist2.items[i].subitems[0]);
49	51	end;
50	52

Cheat Engine/formsettingsunit.dfm

r305	r306
59	59	Width = 617
60	60	Height = 505
61		ActivePage = ~~CodeFinder~~
	61	ActivePage = GeneralSettings
62	62	Align = alClient
63	63	Style = tsFlatButtons
…	…
354	354	Height = 21
355	355	Caption = 'Pointer adding: Append pointerline instead of insert'
	356	Checked = True
	357	State = cbChecked
356	358	TabOrder = 18
357	359	end
…	…
743	745	Left = 0
744	746	Top = 155
745		Width = ~~609~~
	747	Width = 595
746	748	Height = 32
747	749	Caption =
…	…
882	884	Left = 0
883	885	Top = 455
884		Width = ~~609~~
	886	Width = 424
885	887	Height = 16
886	888	Align = alBottom

Cheat Engine/frmFindCodeInFileUnit.dfm

r7	r306
5	5	BorderStyle = bsDialog
6	6	Caption = 'Found offsets'
7		ClientHeight = ~~282~~
8		ClientWidth = ~~279~~
	7	ClientHeight = 347
	8	ClientWidth = 343
9	9	Color = clBtnFace
10	10	Font.Charset = DEFAULT_CHARSET
11	11	Font.Color = clWindowText
12		Font.Height = -11
	12	Font.Height = -14
13	13	Font.Name = 'MS Sans Serif'
14	14	Font.Style = []
…	…
19	19	OnShow = FormShow
20	20	DesignSize = (
21		~~279~~
22		~~282~~)
23		PixelsPerInch = 96
24		TextHeight = 13
	21	343
	22	347)
	23	PixelsPerInch = 120
	24	TextHeight = 16
25	25	object Label1: TLabel
26	26	Left = 0
27		Top = 204
28		Width = 36
29		Height = 13
	27	Top = 251
	28	Width = 46
	29	Height = 16
30	30	Anchors = [akLeft, akBottom]
31	31	Caption = 'Legend'
…	…
33	33	object Label2: TLabel
34	34	Left = 0
35		Top = 220
36		Width = 215
37		Height = 13
	35	Top = 271
	36	Width = 273
	37	Height = 16
38	38	Hint = 'Recommended (I am almost sure this is what you need)'
39	39	Anchors = [akLeft, akBottom]
…	…
41	41	Font.Charset = DEFAULT_CHARSET
42	42	Font.Color = clBlack
43		Font.Height = -11
	43	Font.Height = -15
44	44	Font.Name = 'MS Sans Serif'
45	45	Font.Style = []
…	…
50	50	object Label3: TLabel
51	51	Left = 0
52		Top = 236
53		Width = 213
54		Height = 13
	52	Top = 290
	53	Width = 268
	54	Height = 16
55	55	Hint = 'Recommended (if you needed to nop a opcode near this one)'
56	56	Anchors = [akLeft, akBottom]
…	…
58	58	Font.Charset = DEFAULT_CHARSET
59	59	Font.Color = clWindowText
60		Font.Height = -11
	60	Font.Height = -15
61	61	Font.Name = 'MS Sans Serif'
62	62	Font.Style = []
…	…
67	67	object Label4: TLabel
68	68	Left = 0
69		Top = ~~252~~
70		Width = 227
71		Height = 13
	69	Top = 310
	70	Width = 284
	71	Height = 16
72	72	Hint =
73	73	'Not really recommended. (The bytes before this opcode, or the by' +
…	…
78	78	Font.Charset = DEFAULT_CHARSET
79	79	Font.Color = clWindowText
80		Font.Height = -11
	80	Font.Height = -15
81	81	Font.Name = 'MS Sans Serif'
82	82	Font.Style = []
…	…
87	87	object Label5: TLabel
88	88	Left = 0
89		Top = ~~268~~
90		Width = 238
91		Height = 13
	89	Top = 330
	90	Width = 298
	91	Height = 16
92	92	Hint =
93	93	'Not Recommended!! (The bytes arround the opcode dont even look t' +
…	…
97	97	Font.Charset = DEFAULT_CHARSET
98	98	Font.Color = clWindowText
99		Font.Height = -11
	99	Font.Height = -15
100	100	Font.Name = 'MS Sans Serif'
101	101	Font.Style = []
…	…
107	107	Left = 0
108	108	Top = 0
109		Width = ~~276~~
110		Height = 13
	109	Width = 343
	110	Height = 16
111	111	Caption = 'Select the addresses you want to patch and click Replace'
112	112	end
113	113	object FoundList: TListBox
114	114	Left = 0
115		Top = 16
116		Width = ~~185~~
117		Height = ~~189~~
	115	Top = 20
	116	Width = 228
	117	Height = 232
118	118	Anchors = [akLeft, akTop, akBottom]
119		ItemHeight = 13
	119	ItemHeight = 16
120	120	MultiSelect = True
121	121	ParentShowHint = False
…	…
126	126	end
127	127	object Button2: TButton
128		Left = ~~192~~
129		Top = 88
130		Width = 81
131		Height = 25
	128	Left = 236
	129	Top = 108
	130	Width = 100
	131	Height = 31
132	132	Cancel = True
133	133	Caption = 'OK'
…	…
136	136	end
137	137	object btnReplace: TButton
138		Left = ~~192~~
139		Top = 16
140		Width = 81
141		Height = 25
	138	Left = 236
	139	Top = 20
	140	Width = 100
	141	Height = 30
142	142	Hint =
143	143	'This will replace the selected addresses with code that does not' +

Cheat Engine/frmFindCodeInFileUnit.pas

r7	r306
91	91	a:=StrToInt(temp);
92	92	inc(mempointer,a);
93		for j:=0 to length(code[codelist.itemindex].actualopcode)-1 do
	93	for j:=0 to length(code[codelist2.itemindex].actualopcode)-1 do
94	94	begin
95	95	mempointer^:=$90;
…	…
135	135
136	136
137		indeX:=codelist.itemindex;
	137	indeX:=codelist2.itemindex;
138	138	setlength(searchstring,length(code[index].before)+length(code[index].actualopcode)+length(code[index].after));
139	139	j:=0;

Cheat Engine/frmFloatingPointPanelUnit.dfm

r305	r306
1	1	object frmFloatingPointPanel: TfrmFloatingPointPanel
2		Left = 1355
3		Top = ~~168~~
4		Width = 312
5		Height = ~~416~~
	2	Left = 1313
	3	Top = 239
	4	Width = 353
	5	Height = 322
6	6	BorderStyle = bsSizeToolWin
7	7	Caption = 'FPU'
…	…
13	13	Font.Style = []
14	14	OldCreateOrder = False
	15	OnCreate = FormCreate
15	16	OnShow = FormShow
16	17	PixelsPerInch = 120
…	…
19	20	Left = 0
20	21	Top = 0
21		Width = ~~294~~
22		Height = ~~371~~
23		ActivePage = TabSheet2
	22	Width = 335
	23	Height = 277
	24	ActivePage = TabSheet1
24	25	Align = alClient
25	26	TabOrder = 0
…	…
29	30	Left = 0
30	31	Top = 139
31		Width = ~~286~~
32		Height = ~~201~~
	32	Width = 327
	33	Height = 107
33	34	Align = alClient
34	35	BevelOuter = bvNone
…	…
38	39	Left = 0
39	40	Top = 0
40		Width = ~~286~~
	41	Width = 327
41	42	Height = 139
42	43	Align = alTop
…	…
131	132	Left = 0
132	133	Top = 0
133		Width = ~~286~~
	134	Width = 327
134	135	Height = 57
135	136	Align = alTop
…	…
175	176	Left = 0
176	177	Top = 57
177		Width = ~~286~~
178		Height = ~~283~~
	178	Width = 327
	179	Height = 189
179	180	Align = alClient
180	181	Font.Charset = ANSI_CHARSET

Cheat Engine/frmFloatingPointPanelUnit.pas

r305	r306
35	35	procedure Label4Click(Sender: TObject);
36	36	procedure Label6DblClick(Sender: TObject);
	37	procedure FormCreate(Sender: TObject);
37	38	private
38	39	{ Private declarations }
…	…
74	75	e: extended;
75	76	str: string;
	77	tempstr: string;
76	78	begin
77	79	if context=nil then exit;
…	…
120	122	2: memo1.Lines.Add(inttohex(context.ext.FPURegisters[i].Data.MMRegister.dwords[0],8)+' - '+inttohex(context.ext.FPURegisters[i].Data.MMRegister.dwords[1],8)); //4byte
121	123	3: memo1.Lines.Add(inttohex(context.ext.FPURegisters[i].Data.MMRegister.qwords,16)); //8 byte
122		4: memo1.Lines.Add(f~~loattostr(context.ext.FPURegisters[i].Data.MMRegister.Singles[0])+' - '+floattostr(context.ext.FPURegisters[i].Data.MMRegister.Singles[1~~])); //2 singles
123		5: memo1.Lines.Add(f~~loattostr(context.ext.FPURegisters[i].Data.MMRegister.Doubles~~)); //double
124		6: memo1.Lines.Add(f~~loattostr(context.ext.FPURegisters[i].Data.FloatValue~~)); //extended
	124	4: memo1.Lines.Add(format('%f', [context.ext.FPURegisters[i].Data.MMRegister.Singles[0]]) +' - '+format('%f', [context.ext.FPURegisters[i].Data.MMRegister.Singles[1]])); //2 singles
	125	5: memo1.Lines.Add(format('%f', [context.ext.FPURegisters[i].Data.MMRegister.Doubles])); //double
	126	6: memo1.Lines.Add(format('%f', [context.ext.FPURegisters[i].Data.FloatValue])); //extended
125	127	end;
126	128
…	…
151	153	end;
152	154
153		memo1.Lines.Add(str);
	155	memo1.Lines.Add('xmm'+inttostr(i)+':'+str);
154	156	end;
155	157
…	…
164	166	end;
165	167
166		memo1.Lines.Add(str);
	168	memo1.Lines.Add('xmm'+inttostr(i)+':'+str);
167	169	end;
168	170
…	…
177	179	end;
178	180
179		memo1.Lines.Add(str);
	181	memo1.Lines.Add('xmm'+inttostr(i)+':'+str);
180	182	end;
181	183
…	…
183	185	begin
184	186	str:='';
	187	for j:=0 to 1 do
	188	begin
	189	str:=str+inttohex(context.ext.XMMRegisters.LegacyXMM[i].qwords[j],16);
	190	if j<1 then
	191	str:=str+' - ';
	192	end;
	193
	194	memo1.Lines.Add('xmm'+inttostr(i)+':'+str);
	195	end;
	196
	197	4:
	198	begin
	199	str:='';
185	200	for j:=0 to 3 do
186	201	begin
187		str:=str+~~inttohex(context.ext.XMMRegisters.LegacyXMM[i].qwords[j],16~~);
	202	str:=str+format('%f',[context.ext.XMMRegisters.LegacyXMM[i].singles[j]]);
188	203	if j<3 then
189	204	str:=str+' - ';
190	205	end;
191	206
192		memo1.Lines.Add(str);
193		end;
194
195		4:
196		begin
197		str:='';
198		for j:=0 to 3 do
199		begin
200		str:=str+floattostr(context.ext.XMMRegisters.LegacyXMM[i].singles[j]);
201		if j<3 then
202		str:=str+' - ';
203		end;
204
205		memo1.Lines.Add(str);
	207	memo1.Lines.Add('xmm'+inttostr(i)+':'+str);
206	208	end;
207	209
…	…
211	213	for j:=0 to 1 do
212	214	begin
213		str:=str+f~~loattostr(context.ext.XMMRegisters.LegacyXMM[i].doubles[j~~]);
	215	str:=str+format('%f',[context.ext.XMMRegisters.LegacyXMM[i].doubles[j]]);
214	216	if j<1 then
215	217	str:=str+' - ';
216	218	end;
217	219
218		memo1.Lines.Add(str);
	220	memo1.Lines.Add('xmm'+inttostr(i)+':'+str);
219	221	end;
220	222	end;
…	…
406	408	end;
407	409
	410	procedure TfrmFloatingPointPanel.FormCreate(Sender: TObject);
	411	begin
	412	PageControl1.ActivePageIndex:=0;
	413	end;
	414
408	415	end.

Cheat Engine/memscan.pas

r299	r306
9	9
10	10	uses windows,sysutils, classes,ComCtrls,dialogs, cefuncproc,
11		newkernelhandler, math, SyncObjs
	11	newkernelhandler, math, SyncObjs, windows7taskbar
12	12	{$ifndef standalonetrainerwithassemblerandaobscanner}
13	13	,SaveFirstScan, firstscanhandler, autoassembler, symbolhandler
…	…
2779	2779	//runs in mainthread
2780	2780	if OwningMemScan.progressbar<>nil then
	2781	begin
2781	2782	OwningMemScan.progressbar.Position:=OwningMemScan.GetProgress(totaladdressestoscan,currentlyscanned);
	2783	SetProgressValue(OwningMemScan.progressbar.Position, OwningMemScan.progressbar.Max);
	2784	end;
2782	2785	end;
2783	2786
…	…
3826	3829	constructor TScanController.create(suspended: boolean);
3827	3830	begin
	3831	SetProgressstate(tbpsNormal);
	3832
3828	3833	isdoneevent:=TEvent.create(nil,true,false,'');
3829	3834	scannersCS:=TCriticalSection.Create;

Context Navigation

Legend:

Cheat Engine/AdvancedOptionsUnit.dfm

Cheat Engine/AdvancedOptionsUnit.pas

Cheat Engine/Assemblerunit.pas

Cheat Engine/CommentsUnit.dfm

Cheat Engine/CommentsUnit.pas

Cheat Engine/FoundCodeUnit.dfm

Cheat Engine/FoundCodeUnit.pas

Cheat Engine/MainUnit.dfm

Cheat Engine/MainUnit.pas

Cheat Engine/MemoryBrowserFormUnit.dfm

Cheat Engine/NewKernelHandler.pas

Cheat Engine/OpenSave.pas

Cheat Engine/Release/Cheat Engine.iss

Cheat Engine/Structuresfrm.dfm

Cheat Engine/Structuresfrm.pas

Cheat Engine/Valuechange.dfm

Cheat Engine/Valuechange.pas

Cheat Engine/cheatengine.dof

Cheat Engine/cheatengine.dpr

Cheat Engine/cheatengine.drc

Cheat Engine/disassembler.pas

Cheat Engine/formMemoryTrainerAddEntry.pas

Cheat Engine/formPatcherMaker.dfm

Cheat Engine/formPatcherMaker.pas

Cheat Engine/formsettingsunit.dfm

Cheat Engine/frmFindCodeInFileUnit.dfm

Cheat Engine/frmFindCodeInFileUnit.pas

Cheat Engine/frmFloatingPointPanelUnit.dfm

Cheat Engine/frmFloatingPointPanelUnit.pas

Cheat Engine/memscan.pas

Download in other formats: