GUIDUnit.pas

unit GUIDUnit;

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
  TGUIDForm = class(TForm)
    PageControl1: TTabControl;
    tsSearch: TTabItem;
    pnSearch: TPanel;
    edID: TEdit;
    edID_LBL: TLabel;
    edName: TEdit;
    edName_LBL: TLabel;
    btSearch: TButton;
    Panel1: TPanel;
    btOK: TButton;
    btCancel: TButton;
    MyQuery: TFDQuery;
    lvGUID: TJvListView;
    lvCreatureOrGO: TJvListView;
    procedure lvGUIDChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure btSearchClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure lvGUIDSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
    procedure lvCreatureOrGOSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
    procedure FormShow(Sender: TObject);
    procedure lvGUIDDblClick(Sender: TObject);
  private
    Fotype : string;
    procedure Search();

  public
    GUID: string;
//    Entry: string;
//    Name: string;
    procedure Prepare(Text: string);
    constructor CreateEx(AOwner: TComponent; otype: string);
  end;


implementation

uses MainUnit, MyDataModule;

{$R *.FMX}

{ TGUIDForm }

procedure TGUIDForm.Prepare(Text: string);
var
  i: integer;
begin
  MyQuery.SQL.Text := Format('SELECT `id` FROM `%s` WHERE `guid`=%s',[Fotype, Text]);
  MyQuery.Open;
  if not MyQuery.Eof then
  begin
    edID.Text := MyQuery.Fields[0].AsString;
    Search;
    with lvCreatureOrGO do if Items.Count>0 then begin Selected:=Items[0]; end;
    for I := 0 to lvGUID.Items.Count - 1 do
    begin
      if lvGUID.Items[i].Caption = Text  then 
      begin
        lvGUID.Items[i].Selected := true;
        lvGUID.Items[i].MakeVisible(false);
        exit;
      end;
    end;
  end;
  MyQuery.Close;
end;

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

  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_template` %s',[Fotype, WhereStr]);

  MyQuery.SQL.Text:=QueryStr;
  lvCreatureOrGO.Items.BeginUpdate;
  try
    MyQuery.Open;
    lvCreatureOrGO.Items.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 TGUIDForm.lvCreatureOrGOSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
var
  entry : string;
begin
  if Item.Selected then
  begin
    entry := Item.Caption;
    MyQuery.SQL.Text := Format('SELECT * FROM `%s` WHERE `id`=%s',[Fotype, entry]);
    lvGUID.Items.BeginUpdate;
    try
      lvGUID.Items.Clear;
      MyQuery.Open;
      while not MyQuery.Eof do
      begin
        with lvGUID.Items.Add do
        begin
          Caption := MyQuery.FieldByName('guid').AsString;
          SubItems.Add(MyQuery.FieldByName('map').AsString);
          SubItems.Add(MyQuery.FieldByName('position_x').AsString);
          SubItems.Add(MyQuery.FieldByName('position_y').AsString);
          SubItems.Add(MyQuery.FieldByName('position_z').AsString);
        end;
        MyQuery.Next;
      end;
    finally
      MyQuery.Close;
      lvGUID.Items.EndUpdate;
    end;
  end;
end;

procedure TGUIDForm.lvGUIDChange(Sender: TObject;
  Item: TListItem; Change: TItemChange);
begin
  btOK.Enabled:=Assigned(lvCreatureOrGO.Selected);
end;

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

procedure TGUIDForm.lvGUIDSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
  if Assigned(lvGUID.Selected) then
    GUID := lvGUID.Selected.Caption;
end;

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

constructor TGUIDForm.CreateEx(AOwner: TComponent; otype: string);
begin
  inherited Create(AOwner);
  Fotype := otype;
  caption := 'Get GUID for ' + otype;
end;

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

procedure TGUIDForm.FormShow(Sender: TObject);
begin
  lvGUID.SetFocus;
end;

end.