CreatureOrGOUnit.pas

unit CreatureOrGOUnit;

interface

uses
  System.SysUtils,
  System.Types,
  System.UITypes,
  System.Classes,
  System.Variants,
  System.IniFiles,
  Data.DB,
  FMX.Types,
  FMX.Controls,
  FMX.Forms,
  FMX.Dialogs,
  FMX.Objects,
  FMX.Menus,
  FMX.Grid,
  FMX.ExtCtrls,
  FMX.ListBox,
  FMX.TreeView,
  FMX.Memo,
  FMX.TabControl,
  FMX.Layouts,
  FMX.Edit,
  FMX.Platform,
  FMX.Bind.DBEngExt,
  FMX.Bind.Editors,
  FMX.Bind.DBLinks,
  FMX.Bind.Navigator,
  Data.Bind.EngExt,
  Data.Bind.Components,
  Data.Bind.DBScope,
  Data.Bind.DBLinks,
  Datasnap.DBClient,
  Fmx.Bind.Grid,
  System.Rtti,
  System.Bindings.Outputs,
  Data.Bind.Grid,
  Fmx.StdCtrls,
  FMX.Header,
  FMX.Graphics;

type
  TCreatureOrGOForm = class(TForm)
    PageControl1: TTabControl;
    tsSearch: TTabItem;
    pnSearch: TPanel;
    edID: TEdit;
    edID_LBL: TLabel;
    edName: TEdit;
    edName_LBL: TLabel;
    btSearch: TButton;
    rgCreatureOrGO: TPanel;
    Panel1: TPanel;
    btOK: TButton;
    btCancel: TButton;
    MyQuery: TFDQuery;
    lvCreatureOrGO: TJvListView;
    btBrowseSite: TButton;
    btEditCreatureOrGO: TButton;
    pmBrowseSite: TPopupMenu;
    pmwowhead: TMenuItem;
    pmthottbot: TMenuItem;
    pmallakhazam: TMenuItem;
    btBrowseCreatureOrGOPopup: TButton;
    pmwowdb: TMenuItem;
    pmruwowhead: TMenuItem;
    procedure lvCreatureOrGOChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure FormShow(Sender: TObject);
    procedure btSearchClick(Sender: TObject);
    procedure btBrowseSiteClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btEditCreatureOrGOClick(Sender: TObject);
    procedure pmSiteClick(Sender: TObject);
    procedure lvCreatureOrGODblClick(Sender: TObject);
    procedure btBrowseCreatureOrGOPopupClick(Sender: TObject);
  private
    procedure Search();
  public
    procedure Prepare(Text: string);
  end;

var
  CreatureOrGOForm: TCreatureOrGOForm;

implementation

uses MainUnit, MyDataModule;

{$R *.FMX}

{ TCreatureOrGOForm }

procedure TCreatureOrGOForm.Prepare(Text: string);
var
  id: integer;
begin
  id:=StrToIntDef(Text,0);
  if id>0 then rgCreatureOrGO.ItemIndex:=0 else
  if id<0 then rgCreatureOrGO.ItemIndex:=1 else Exit;
  edID.Text:=IntToStr(ABS(id));
  Search;
end;

procedure TCreatureOrGOForm.Search;
var
  ID, Name, QueryStr, WhereStr, TableName,isminus: string;
begin
  ID:= edID.Text;

  case rgCreatureOrGO.ItemIndex of
    0:
      begin
        TableName := 'creature_template';
        isminus:='';
      end;
    1:
      begin
        isminus:='-';
        TableName := 'gameobject_template';
      end;
  end;

  Name:=edName.Text;
  Name:=StringReplace(Name, '''', '\''', [rfReplaceAll]);
  Name:=StringReplace(Name, ' ', '%', [rfReplaceAll]);
  Name:='%'+Name+'%';

  QueryStr:='';
  WhereStr:='';
  
  if ID<>'' then
    WhereStr:=Format('WHERE (`entry` = %s)',[ID]);

  if Name<>'' then
  begin
    if WhereStr<> '' then
      WhereStr:=Format('%s AND (`name` LIKE ''%s'')',[WhereStr, Name])
    else
      WhereStr:=Format('WHERE (`name` LIKE ''%s'')',[Name]);
  end;

  QueryStr:=Format('SELECT * FROM `%s` %s',[TableName, WhereStr]);

  MyQuery.SQL.Text:=QueryStr;
  lvCreatureOrGO.Items.BeginUpdate;
  try
    MyQuery.Open;
    lvCreatureOrGO.Clear;
    while not MyQuery.Eof do
    begin
      with lvCreatureOrGO.Items.Add do
      begin
        Caption:=isminus+MyQuery.FieldByName('entry').AsString;
        SubItems.Add(MyQuery.FieldByName('name').AsString);
        MyQuery.Next;
      end;
    end;
  finally
    lvCreatureOrGO.Items.EndUpdate;
    MyQuery.Close;
  end;
end;

procedure TCreatureOrGOForm.lvCreatureOrGOChange(Sender: TObject;
  Item: TListItem; Change: TItemChange);
begin
  btOK.Enabled:=Assigned(lvCreatureOrGO.Selected);
  btBrowseSite.Enabled:=Assigned(lvCreatureOrGO.Selected);
  btBrowseCreatureOrGOPopup.Enabled:=Assigned(lvCreatureOrGO.Selected);
  btEditCreatureOrGO.Enabled:=Assigned(lvCreatureOrGO.Selected);
end;

procedure TCreatureOrGOForm.lvCreatureOrGODblClick(Sender: TObject);
begin
  if Assigned(TJvListView(Sender).Selected) then ModalResult:=mrOk;
end;

procedure TCreatureOrGOForm.FormShow(Sender: TObject);
begin
  with lvCreatureOrGO do if Items.Count>0 then begin SetFocus; Selected:=Items[0]; end;
end;

procedure TCreatureOrGOForm.btSearchClick(Sender: TObject);
begin
  Search();
  with lvCreatureOrGO do if Items.Count>0 then begin SetFocus; Selected:=Items[0]; end;
end;

procedure TCreatureOrGOForm.btBrowseCreatureOrGOPopupClick(Sender: TObject);
var
  pt: TPoint;
begin
  pt.X := TButton(Sender).Width;
  pt.Y := 0;
  pt := TButton(Sender).ClientToScreen(pt);
  TButton(Sender).PopupMenu.PopupComponent := TButton(Sender);
  TButton(Sender).PopupMenu.Popup(pt.X, pt.Y);
end;

procedure TCreatureOrGOForm.btBrowseSiteClick(Sender: TObject);
begin
  if assigned(lvCreatureOrGO.Selected) then
  begin
    case rgCreatureOrGO.ItemIndex of
      0: dmMain.BrowseSite(ttNPC, StrToInt(lvCreatureOrGO.Selected.Caption));
      1: dmMain.BrowseSite(ttObject, StrToInt(lvCreatureOrGO.Selected.Caption));
    end;
  end;
end;

procedure TCreatureOrGOForm.FormCreate(Sender: TObject);
begin
  dmMain.Translate.CreateDefaultTranslation(TForm(Self));
  dmMain.Translate.TranslateForm(TForm(Self));
end;

procedure TCreatureOrGOForm.btEditCreatureOrGOClick(Sender: TObject);
begin
  if (rgCreatureOrGO.ItemIndex=0) and Assigned(lvCreatureOrGO.Selected) then
  begin
    ModalResult:=mrCancel;
    MainForm.PageControl1.ActivePageIndex:=1;
    MainForm.PageControl3.ActivePageIndex:=1;
    MainForm.edctEntry.Text:=lvCreatureOrGO.Selected.Caption;
    MainForm.edctEntry.Button.Click;
  end;
  if (rgCreatureOrGO.ItemIndex=1) and Assigned(lvCreatureOrGO.Selected) then
  begin
    ModalResult:=mrCancel;
    MainForm.PageControl1.ActivePageIndex:=2;
    MainForm.PageControl4.ActivePageIndex:=1;
    MainForm.edgtentry.Text:=IntToStr(abs(StrToInt(lvCreatureOrGO.Selected.Caption)));
    MainForm.edgtentry.Button.Click;
  end;
end;

procedure TCreatureOrGOForm.pmSiteClick(Sender: TObject);
var
  par : TType;
begin
  if rgCreatureOrGO.ItemIndex=0 then par:=ttNPC else par:=ttObject;
  if Assigned(lvCreatureOrGO.Selected) then
  begin
    if TMenuItem(Sender).Name='pmwowhead' then
        dmMain.wowhead(par, StrToInt(lvCreatureOrGO.Selected.Caption));
    if TMenuItem(Sender).Name='pmruwowhead' then
        dmMain.ruwowhead(par, StrToInt(lvCreatureOrGO.Selected.Caption));
    if TMenuItem(Sender).Name='pmallakhazam' then
        dmMain.allakhazam(par, StrToInt(lvCreatureOrGO.Selected.Caption));
    if TMenuItem(Sender).Name='pmthottbot' then
        dmMain.thottbot(par, StrToInt(lvCreatureOrGO.Selected.Caption));
    if TMenuItem(Sender).Name='pmwowdb' then
        dmMain.wowdb(par, StrToInt(lvCreatureOrGO.Selected.Caption));
  end;
end;


end.