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

723 lines
25 KiB
ObjectPascal
Raw Permalink Normal View History

2011-07-04 19:52:19 +00:00
unit MemoryTrainerDesignUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,handles, ExtCtrls, StdCtrls,ExtraTrainerComponents,grids, Menus;
type
TfrmTrainerDesigner = class(TForm)
PaintBox1: TPaintBox;
PopupMenu1: TPopupMenu;
Bringtofront1: TMenuItem;
Sendtoback1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Bringtofront1Click(Sender: TObject);
procedure Sendtoback1Click(Sender: TObject);
private
{ Private declarations }
drawrect: TRect;
paint: boolean;
changed: boolean;
stretchhandle: TStretchHandle;
procedure FillBevelInOutList(x: string);
procedure stretchhandleKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
public
{ Public declarations }
AddItem: integer;
startx,starty: integer;
selectedobject: tobject;
procedure updatecheats;
procedure updateeditor;
procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure stretchhandleDblClick(Sender: TObject);
end;
var
frmTrainerDesigner: TfrmTrainerDesigner;
implementation
uses MemoryTrainerDesignObjectViewUnit, MemoryTrainerDesignControlsUnit,
formMemoryModifier, formMemoryTrainerUnit;
{$R *.dfm}
function cursortostr(x: tcursor):string;
begin
if x=crhandpoint then result:='Handpoint' else result:='Default';
end;
procedure fillcursor;
begin
with frmTrainerDesignObjectView do
begin
valuelisteditor1.ItemProps['Cursor'].ReadOnly:=true;
valuelisteditor1.ItemProps['Cursor'].PickList.Add('Handpoint');
valuelisteditor1.ItemProps['Cursor'].PickList.Add('Default');
end;
end;
function bevelkindToStr(x:tbevelkind): string;
begin
case x of
bkNone: result:='None';
bkTile: result:='Tile';
bkSoft: result:='Soft';
bkFlat: result:='Flat';
end;
end;
procedure fillboolean(x:string);
begin
with frmTrainerDesignObjectView do
begin
valuelisteditor1.ItemProps[x].ReadOnly:=true;
valuelisteditor1.ItemProps[x].PickList.Text:='';
valuelisteditor1.ItemProps[x].PickList.Add(Booltostr(true,true));
valuelisteditor1.ItemProps[x].PickList.Add(Booltostr(false,true));
end;
end;
procedure fillclick;
var i: integer;
begin
with frmTrainerDesignObjectView do
begin
valuelisteditor1.ItemProps['On Click'].ReadOnly:=true;
valuelisteditor1.ItemProps['On Click'].PickList.Text:='';
valuelisteditor1.ItemProps['On Click'].PickList.Add('Nothing');
valuelisteditor1.ItemProps['On Click'].PickList.Add('Exit');
valuelisteditor1.ItemProps['On Click'].PickList.Add('Launch App');
valuelisteditor1.ItemProps['On Click'].PickList.Add('Show Aboutbox');
valuelisteditor1.ItemProps['On Click'].picklist.add('Execute command');
for i:=0 to length(frmmemorymodifier.trainerdata)-1 do
valuelisteditor1.ItemProps['On Click'].picklist.add('Execute cheat '+inttostr(i));
valuelisteditor1.ItemProps['On Click'].EditStyle:=esPickList;
end;
end;
procedure fillBevelKindList(x:string);
begin
with frmTrainerDesignObjectView do
begin
valuelisteditor1.ItemProps[x].PickList.Text:='';
valuelisteditor1.ItemProps[x].PickList.Add('None');
valuelisteditor1.ItemProps[x].PickList.Add('Tile');
valuelisteditor1.ItemProps[x].PickList.Add('Soft');
valuelisteditor1.ItemProps[x].PickList.Add('Flat');
end;
end;
function bevelinout(x:TBevelCut):string;
begin
case x of
bvNone: result:='None';
bvLowered:result:='Lowered';
bvRaised: result:='Raised';
bvSpace: result:='Space';
end;
end;
procedure tfrmtrainerdesigner.FillBevelInOutList(x: string);
begin
with frmTrainerDesignObjectView do
begin
valuelisteditor1.ItemProps[x].PickList.Text:='';
valuelisteditor1.ItemProps[x].PickList.Add('None');
valuelisteditor1.ItemProps[x].PickList.Add('Lowered');
valuelisteditor1.ItemProps[x].PickList.Add('Raised');
valuelisteditor1.ItemProps[x].PickList.Add('Space');
end;
end;
procedure TfrmTrainerDesigner.stretchhandleDblClick(Sender: TObject);
begin
frmTrainerDesignObjectView.Show;
end;
procedure tfrmtrainerdesigner.updateeditor;
var i: integer;
a: string;
begin
//set the info in the valuelisteditor
if selectedobject<>nil then
with frmTrainerDesignObjectView do
begin
valuelisteditor1.Strings.text:=''; //clear (valuelist editor is buggy)
if (selectedobject is tbutton) then
begin
valuelisteditor1.InsertRow('Text',tbutton2(selectedobject).Caption,true);
valuelisteditor1.InsertRow('Word Wrap',booltostr(tbutton2(selectedobject).WordWrap,true),true);;
//with the tag of the object i define what happens when clicked
case tbutton2(selectedobject).Tag of
0: valuelisteditor1.InsertRow('On Click','Nothing',true);
1: valuelisteditor1.InsertRow('On Click','Exit',true);
2: valuelisteditor1.InsertRow('On Click','Launch App',true);
3: valuelisteditor1.InsertRow('On Click','Show Aboutbox',true);
4: valuelisteditor1.InsertRow('On Click','Execute command',true);
else
begin
if tbutton2(selectedobject).Tag>=5 then //it has an cheat assigned
valuelisteditor1.InsertRow('On Click','Execute cheat '+inttostr(tbutton2(selectedobject).Tag-5),true);
end;
end;
valuelisteditor1.InsertRow('Command',tbutton2(selectedobject).command,true);
fillclick;
fillboolean('Word Wrap');
end;
if (selectedobject is tcheatlist) then
begin
valuelisteditor1.InsertRow('Activation color',inttohex(tcheatlist(selectedobject).activationcolor,6),true);
valuelisteditor1.InsertRow('Background color',inttohex(tcheatlist(selectedobject).color,6),true);
valuelisteditor1.InsertRow('Text color',IntToHex(tcheatlist(selectedobject).TextColor,6),true);
valuelisteditor1.InsertRow('Hotkey left',Inttostr(tcheatlist(selectedobject).hotkeyleft),true);
valuelisteditor1.InsertRow('Description left',Inttostr(tcheatlist(selectedobject).descriptionleft),true);
valuelisteditor1.InsertRow('Edit left',Inttostr(tcheatlist(selectedobject).editleft),true);
valuelisteditor1.InsertRow('Edit width',Inttostr(tcheatlist(selectedobject).editwidth),true);
valuelisteditor1.InsertRow('Show hotkeys',booltostr(tcheatlist(selectedobject).ShowHotkeys,true),true);
valuelisteditor1.InsertRow('Show checkboxes',booltostr(tcheatlist(selectedobject).HasCheckbox,true),true);
valuelisteditor1.InsertRow('Beep on activate',booltostr(tcheatlist(selectedobject).beepOnActivate,true),true);
valuelisteditor1.InsertRow('Bevel Inner',bevelinout(tcheatlist(selectedobject).BevelInner),true);
valuelisteditor1.InsertRow('Bevel Outer',bevelinout(tcheatlist(selectedobject).BevelOuter),true);
valuelisteditor1.InsertRow('Bevel Width',IntToStr(tcheatlist(selectedobject).BevelWidth),true);
valuelisteditor1.InsertRow('Bevel Kind',bevelkindTostr(tcheatlist(selectedobject).bevelkind),true);
FillBevelInOutList('Bevel Inner');
FillBevelInOutList('Bevel Outer');
FillBevelKindList('Bevel Kind');
valuelisteditor1.ItemProps['Bevel Inner'].ReadOnly:=true;
valuelisteditor1.ItemProps['Bevel Outer'].ReadOnly:=true;
valuelisteditor1.ItemProps['Bevel Kind'].ReadOnly:=true;
valuelisteditor1.ItemProps['Activation color'].EditStyle:=esEllipsis;
valuelisteditor1.ItemProps['Background color'].EditStyle:=esEllipsis;
valuelisteditor1.ItemProps['Text color'].EditStyle:=esEllipsis;
fillboolean('Show hotkeys');
fillboolean('Show checkboxes');
fillboolean('Beep on activate');
end;
if (selectedobject is tcheat) then
begin
valuelisteditor1.InsertRow('Cheat',IntToStr(tcheat(selectedobject).cheatnr),true);
valuelisteditor1.ItemProps['Cheat'].ReadOnly:=true;
//add the existing cheats to the list
valuelisteditor1.ItemProps['Cheat'].PickList.Text:='';
for i:=0 to length(frmmemorymodifier.trainerdata)-1 do
valuelisteditor1.ItemProps['Cheat'].PickList.Add(inttostr(i));
valuelisteditor1.ItemProps['Cheat'].EditStyle:=esPickList;
valuelisteditor1.InsertRow('Text color',inttohex(tcheat(selectedobject).textcolor,6),true);
valuelisteditor1.InsertRow('Background color',inttohex(tcheat(selectedobject).color,6),true);
valuelisteditor1.InsertRow('Activation color',inttohex(tcheat(selectedobject).activationcolor,6),true);
valuelisteditor1.InsertRow('Hotkey left',inttostr(tcheat(selectedobject).hotkeyleft),true);
valuelisteditor1.InsertRow('Description left',inttostr(tcheat(selectedobject).descriptionleft),true);
valuelisteditor1.InsertRow('Edit left',inttostr(tcheat(selectedobject).editleft),true);
valuelisteditor1.InsertRow('Edit width',inttostr(tcheat(selectedobject).editwidth),true);
valuelisteditor1.InsertRow('Show hotkey',booltostr(tcheat(selectedobject).showhotkey,true),true);
valuelisteditor1.InsertRow('Show checkbox',booltostr(tcheat(selectedobject).HasCheckbox,true),true);
valuelisteditor1.InsertRow('Beep on activate',booltostr(tcheat(selectedobject).beeponactivate,true),true);
valuelisteditor1.ItemProps['Activation color'].EditStyle:=esEllipsis;
valuelisteditor1.ItemProps['Background color'].EditStyle:=esEllipsis;
valuelisteditor1.ItemProps['Text color'].EditStyle:=esEllipsis;
fillboolean('Show hotkey');
fillboolean('Show checkbox');
fillboolean('Beep on activate');
end;
if (selectedobject is timage2) then
begin
valuelisteditor1.InsertRow('Cursor',cursortostr(timage2(selectedobject).cursor),true);
valuelisteditor1.InsertRow('Picture','...',true);
valuelisteditor1.InsertRow('Stretch',booltostr(timage2(selectedobject).Stretch,true),true);
valuelisteditor1.InsertRow('Transparent',booltostr(timage2(selectedobject).Transparent,true),true);
case timage(selectedobject).Tag of
0: valuelisteditor1.InsertRow('On Click','Nothing',true);
1: valuelisteditor1.InsertRow('On Click','Exit',true);
2: valuelisteditor1.InsertRow('On Click','Launch App',true);
3: valuelisteditor1.InsertRow('On Click','Show Aboutbox',true);
4: valuelisteditor1.InsertRow('On Click','Execute command',true);
else
begin
if tbutton2(selectedobject).Tag>=5 then //it has an cheat assigned
valuelisteditor1.InsertRow('On Click','Execute cheat '+inttostr(tbutton2(selectedobject).Tag-5),true);
end;
end;
valuelisteditor1.InsertRow('Command',tImage2(selectedobject).command,true);
fillclick;
fillcursor;
fillboolean('Stretch');
fillboolean('Transparent');
valuelisteditor1.ItemProps['Picture'].EditStyle:=esEllipsis;
end;
if (selectedobject is tlabel2) then
begin
valuelisteditor1.Strings.text:='';
valuelisteditor1.InsertRow('Text',tlabel2(selectedobject).Caption,true);
valuelisteditor1.InsertRow('Word Wrap',booltostr(tlabel2(selectedobject).WordWrap,true),true);
valuelisteditor1.InsertRow('Color',IntToHex(tlabel2(selectedobject).font.Color,6),true);
valuelisteditor1.ItemProps['Color'].EditStyle:=esEllipsis;
Valuelisteditor1.InsertRow('Underline',booltostr(tlabel2(selectedobject).Font.Style=[fsUnderline],true),true);;
valuelisteditor1.InsertRow('Cursor',cursortostr(tlabel2(selectedobject).cursor),true);
case tlabel2(selectedobject).Tag of
0: valuelisteditor1.InsertRow('On Click','Nothing',true);
1: valuelisteditor1.InsertRow('On Click','Exit',true);
2: valuelisteditor1.InsertRow('On Click','Launch App',true);
3: valuelisteditor1.InsertRow('On Click','Show Aboutbox',true);
4: valuelisteditor1.InsertRow('On Click','Execute command',true);
else
begin
if tbutton2(selectedobject).Tag>=5 then //it has an cheat assigned
valuelisteditor1.InsertRow('On Click','Execute cheat '+inttostr(tbutton2(selectedobject).Tag-5),true);
end;
end;
valuelisteditor1.InsertRow('Command',tlabel2(selectedobject).command,true);
fillclick;
fillcursor;
fillboolean('Word Wrap');
fillBoolean('Underline');
end;
end;
end;
procedure tfrmtrainerdesigner.updatecheats;
var i,j:integer;
begin
//this procedure searches all cheats and updates them
//cheatlists alse got updated
//cheats that dont exist anymore will be set to undefined
for i:=0 to ControlCount-1 do
begin
if (Controls[i] is tcheat) then
begin
j:=tcheat(controls[i]).cheatnr;
if j<=length(frmmemorymodifier.trainerdata)-1 then
begin
tcheat(controls[i]).Description:=frmmemorymodifier.trainerdata[j].description;
tcheat(controls[i]).Hotkey:=frmmemorymodifier.trainerdata[j].hotkeytext;
tcheat(controls[i]).HasEditBox:=frmmemorymodifier.trainerdata[j].hasedit;
tcheat(controls[i]).Editvalue:=frmmemorymodifier.trainerdata[j].editvalue;
end
else
begin
tcheat(controls[i]).Description:='undefined '+IntToStr(j);
tcheat(controls[i]).Hotkey:='undefined '+IntToStr(j);
end;
if selectedobject=controls[i] then
begin
// frmTrainerDesignObjectView.valuelisteditor1.ItemProps['Cheat'].PickList.Text:='';
// for j:=0 to length(frmmemorymodifier.trainerdata)-1 do
// frmTrainerDesignObjectView.valuelisteditor1.ItemProps['Cheat'].PickList.Add(inttostr(j));
end
end;
if (controls[i] is tcheatlist) then
begin
while tcheatlist(controls[i]).Count>length(frmmemorymodifier.trainerdata) do tcheatlist(controls[i]).deletelast;
for j:=0 to tcheatlist(controls[i]).Count-1 do
begin
tcheatlist(controls[i]).Items[j].Description:=frmmemorymodifier.trainerdata[j].description;
tcheatlist(controls[i]).Items[j].Hotkey:=frmmemorymodifier.trainerdata[j].hotkeytext;
tcheatlist(controls[i]).Items[j].HasEditBox:=frmmemorymodifier.trainerdata[j].hasedit;
tcheatlist(controls[i]).Items[j].Editvalue:=frmmemorymodifier.trainerdata[j].editvalue;
end;
//add the cheats
while tcheatlist(controls[i]).Count<length(frmmemorymodifier.trainerdata) do
tcheatlist(controls[i]).addcheat(frmmemorymodifier.trainerdata[tcheatlist(controls[i]).Count].hotkeytext,frmmemorymodifier.trainerdata[tcheatlist(controls[i]).Count].description,frmmemorymodifier.trainerdata[tcheatlist(controls[i]).Count].editvalue,frmmemorymodifier.trainerdata[tcheatlist(controls[i]).Count].hasedit);
end;
end
end;
procedure TfrmTrainerDesigner.MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
paintbox1.OnMouseup(sender,button,shift,twincontrol(sender).left+x,twincontrol(sender).top+y);
end;
procedure TfrmTrainerDesigner.MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
paintbox1.OnMousemove(sender,shift,twincontrol(sender).left+x,twincontrol(sender).top+y);
end;
procedure TfrmTrainerDesigner.MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if stretchhandle.Attached then stretchhandle.Detach;
if additem=0 then
begin
if ((sender is tlabel) or (sender is tedit)) and (twincontrol(sender).Parent is tcheat) then
sender:=twincontrol(sender).Parent;
if (sender is tcheat) and (tcheat(sender).Parent is tcheatlist) then
sender:=(tcheat(sender).Parent);
stretchhandle.Attach(tcontrol(sender));
selectedobject:=sender;
updateEditor;
end
else paintbox1.OnMouseDown(sender,button,shift,twincontrol(sender).left+x,twincontrol(sender).top+y);
end;
procedure TfrmTrainerDesigner.stretchhandleKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
var i: integer;
check: integer;
found: boolean;
begin
inherited;
case key of
vk_right:
begin
if ssshift in shift then
begin
stretchhandle.Width:=stretchhandle.Width+1;
stretchhandle.Left:=stretchhandle.Left-1;
end;
end;
vk_left:
begin
if ssshift in shift then
begin
stretchhandle.Width:=stretchhandle.Width-1;
stretchhandle.Left:=stretchhandle.Left+1;
end;
end;
vk_up:
begin
if ssshift in shift then
begin
stretchhandle.Width:=stretchhandle.height-1;
stretchhandle.Left:=stretchhandle.top+1;
end;
end;
vk_down:
begin
if ssshift in shift then
begin
stretchhandle.Width:=stretchhandle.height+1;
stretchhandle.Left:=stretchhandle.top-1;
end;
end;
vk_delete:
begin
for i:=0 to stretchhandle.ChildCount-1 do
stretchhandle.Children[i].Free;
stretchhandle.Detach;
end;
vk_escape:
begin
stretchhandle.Detach;
application.ProcessMessages;
frmtrainerdesigner.HorzScrollBar.Position:=0;
frmtrainerdesigner.VertScrollBar.Position:=0;
frmtrainerdesigner.width:=frmtrainerdesigner.width+1;
frmtrainerdesigner.height:=frmtrainerdesigner.height+1;
frmtrainerdesigner.width:=frmtrainerdesigner.width-1;
frmtrainerdesigner.height:=frmtrainerdesigner.height-1;
end;
ord('N'):
if ssctrl in shift then
begin
found:=false;
for i:=0 to frmTrainerDesigner.ControlCount-1 do
begin
if frmtrainerdesigner.Controls[i]=selectedobject then
begin
check:=i+1;
check:=check mod frmTrainerDesigner.ControlCount;
while (not found) and (check<>i) do
begin
if (frmtrainerdesigner.Controls[check] is tlabel) or
(frmtrainerdesigner.Controls[check] is tbutton) or
(frmtrainerdesigner.Controls[check] is tcheat) or
(frmtrainerdesigner.Controls[check] is tcheatlist) or
(frmtrainerdesigner.Controls[check] is timage) then
begin
found:=true;
stretchhandle.Detach;
stretchhandle.Attach(frmtrainerdesigner.Controls[check]);
selectedobject:=frmtrainerdesigner.Controls[check];
updateeditor;
break;
end;
inc(check);
check:=check mod frmTrainerDesigner.ControlCount;
end;
if found then break;
end;
end;
end;
end;
end;
procedure TfrmTrainerDesigner.FormCreate(Sender: TObject);
begin
stretchhandle:=tstretchhandle.Create(self);
stretchhandle.OnKeyDown:=stretchhandleKeyDown;
stretchhandle.OnDblClick:=stretchhandledblclick;
stretchhandle.PopupMenu:=popupmenu1;
// frmTrainerDesigner.KeyPreview:=true;
frmTrainerDesignObjectView:=tfrmTrainerDesignObjectView.create(self);
frmTrainerDesignControls:= tfrmTrainerdesignControls.create(self);
end;
procedure TfrmTrainerDesigner.FormShow(Sender: TObject);
begin
frmTrainerDesignControls.Left:=frmMemorymodifier.Left;
frmTrainerDesignControls.Width:=frmMemorymodifier.width;
frmTrainerDesignControls.top:=frmMemorymodifier.top-frmTrainerDesignControls.height;
frmTrainerDesignObjectView.show;
frmTrainerDesignControls.show;
frmTrainerDesignObjectView.valuelisteditor1.Strings.text:='';
frmTrainerDesignObjectView.valuelisteditor1.Col:=1;
end;
procedure TfrmTrainerDesigner.PaintBox1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
stretchhandle.Detach;
selectedobject:=nil;
frmTrainerDesignObjectView.ValueListEditor1.Strings.Text:='';
if additem<>0 then
begin
startx:=x;
starty:=y;
drawrect.Left:=x;
drawrect.Top:=y;
drawrect.Right:=x;
drawrect.Bottom:=y;
paint:=true;
end;
end;
procedure TfrmTrainerDesigner.PaintBox1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var temp: integer;
begin
if paint then
begin
frmTrainerDesigner.Repaint;
if (startx>x) and (starty>y) then //exchange them
drawrect:=rect(x,y,startx,starty);
if (startx>x) and (starty<y) then
drawrect:=rect(x,starty,startx,y);
if (startx<x) and (starty>y) then
drawrect:=rect(startx,y,x,starty);
if (startx<x) and (starty<y) then
drawrect:=rect(startx,starty,x,y);
dec(drawrect.Left,frmTrainerDesigner.HorzScrollBar.ScrollPos);
deC(drawrect.Right,frmTrainerDesigner.HorzScrollBar.ScrollPos);
dec(drawrect.top,frmTrainerDesigner.VertScrollBar.ScrollPos);
deC(drawrect.bottom,frmTrainerDesigner.VertScrollBar.ScrollPos);
frmTrainerDesigner.Canvas.DrawFocusRect(drawrect);
end;
end;
procedure TfrmTrainerDesigner.PaintBox1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var comp: Tcontrol;
i:integer;
begin
//reset trainerdesignercontrols
for i:=0 to frmTrainerDesignControls.toolbar1.ButtonCount-1 do
frmTrainerDesignControls.toolbar1.Buttons[i].Down:=false;
if paint then
begin
changed:=true;
paint:=false;
case additem of
1: begin
comp:=tbutton2.create(self);
tbutton(comp).OnMouseDown:=mousedown;
tbutton(comp).OnMouseMove:=mousemove;
tbutton(comp).OnMouseUp:=mouseup;
end;
2: begin
comp:=tcheatlist.Create(self);
tcheatlist(comp).OnMouseDown:=mousedown;
tcheatlist(comp).OnMouseMove:=mousemove;
tcheatlist(comp).OnMouseUp:=mouseup;
end;
3: begin
comp:=tcheat.Create(self);
tcheat(comp).OnMouseDown:=mousedown;
tcheat(comp).OnMouseMove:=mousemove;
tcheat(comp).OnMouseUp:=mouseup;
end;
4: begin //image
comp:=timage2.Create(self);
timage(comp).OnMouseDown:=mousedown;
timage(comp).Width:=100;
timage(comp).Height:=100;
timage(comp).OnMouseMove:=mousemove;
timage(comp).OnMouseUp:=mouseup;
end;
5: begin
comp:=TLabel2.Create(self);
tlabel(comp).Caption:='Type some text';
tlabel(comp).OnMouseDown:=mousedown;
tlabel(comp).OnMouseMove:=mousemove;
tlabel(comp).OnMouseUp:=mouseup;
end;
6: begin
comp:=TScrollbox.Create(self);
tscrollbox(comp).OnMouseDown:=mousedown;
tscrollbox(comp).OnMouseMove:=mousemove;
tscrollbox(comp).OnMouseUp:=mouseup;
end;
end;
with comp do
begin
if drawrect.Right-drawrect.Left<=1 then
begin
top:=drawrect.top;
left:=drawrect.Left;
end else BoundsRect:=drawrect;
parent:=frmTrainerDesigner;
end;
selectedobject:=comp;
stretchhandle.Attach(comp);
end;
updatecheats;
updateeditor;
additem:=0;
end;
procedure TfrmTrainerDesigner.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
stretchhandle.Free;
frmTrainerDesignObjectView.free;
frmTrainerDesignControls.free;
frmMemoryTrainerPreview.visible:=true;
frmmemorymodifier.Button2.Enabled:=true;
frmmemorymodifier.Button7.Caption:='Design own userinterface';
action:=cafree;
end;
procedure TfrmTrainerDesigner.FormDestroy(Sender: TObject);
begin
frmTrainerDesigner:=nil;
end;
procedure TfrmTrainerDesigner.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
canclose:=(not changed) or (messagedlg('If you close this window you''ll lose your changes! Continue?',mtwarning,[mbyes,mbno],0)=mryes);
end;
procedure TfrmTrainerDesigner.Bringtofront1Click(Sender: TObject);
begin
twincontrol(selectedobject).BringToFront;
end;
procedure TfrmTrainerDesigner.Sendtoback1Click(Sender: TObject);
begin
twincontrol(selectedobject).SendToBack;
end;
end.
Reference in a new issue Copy permalink