memorytrainerdesignunit.pas

冒险岛吸怪源码ＵＣＥ的制作材料 用于冒险岛游戏的外挂

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;
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');
    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);
      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('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');
    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.ItemProps['Activation color'].EditStyle:=esEllipsis;
      valuelisteditor1.ItemProps['Background color'].EditStyle:=esEllipsis;
      valuelisteditor1.ItemProps['Text color'].EditStyle:=esEllipsis;

      fillboolean('Show hotkey');
      fillboolean('Show checkbox');
    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);
      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);
      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;