ItemUnit.fmx

object ItemForm: TItemForm
  Left = 241
  Top = 174
  Caption = 'Item'
  ClientHeight = 367
  ClientWidth = 498
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnShow = FormShow
  object Panel1: TPanel
Position.X = 0.000000000000000000
Position.Y = 326.000000000000000000
    Width = 498
    Height = 41
    Align = alBottom
    TabOrder = 0
    object btOK: TButton
Position.X = 335.000000000000000000
Position.Y = 8.000000000000000000
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Text = 'OK'
      Enabled = False
      ModalResult = 1
      TabOrder = 0
      OnClick = btOKClick
    end
    object btCancel: TButton
Position.X = 415.000000000000000000
Position.Y = 8.000000000000000000
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Cancel = True
      Text = 'Cancel'
      ModalResult = 2
      TabOrder = 1
    end
    object btBrowseSite: TButton
Position.X = 8.000000000000000000
Position.Y = 8.000000000000000000
      Width = 75
      Height = 25
      Text = 'BrowseSite'
      Enabled = False
      TabOrder = 2
      OnClick = btBrowseSiteClick
    end
    object btLoot: TButton
Position.X = 109.000000000000000000
Position.Y = 8.000000000000000000
      Width = 75
      Height = 25
      Text = 'View Loot'
      Enabled = False
      TabOrder = 3
      OnClick = btLootClick
    end
    object btBrowseItemPopup: TButton
Position.X = 82.000000000000000000
Position.Y = 8.000000000000000000
      Width = 17
      Height = 25
      Enabled = False
      PopupMenu = pmBrowseSite
      TabOrder = 4
      OnClick = btBrowseItemPopupClick
WordWrap = True
    end
  end
  object PageControl1: TTabControl
TabIndex = 0
Position.X = 0.000000000000000000
Position.Y = 0.000000000000000000
    Width = 498
    Height = 326
    Align = alClient
    TabOrder = 1
    object tsSearch: TTabItem
      Text = 'Search'
      object pnSearch: TPanel
Position.X = 0.000000000000000000
Position.Y = 0.000000000000000000
        Width = 490
        Height = 49
        Align = alTop
        TabOrder = 0
        object edItemID: TEdit
Position.X = 8.000000000000000000
Position.Y = 16.000000000000000000
          Width = 121
          Height = 21
          TabOrder = 0
        end
object edItemID_LBL: TLabel
Position.X = 8.000000000000000000
Position.Y = 2.000000000000000000
Width = 34
Height = 13
Text = 'Item ID'
WordWrap = False
end
        object edItemName: TEdit
Position.X = 136.000000000000000000
Position.Y = 16.000000000000000000
          Width = 265
          Height = 21
          TabOrder = 1
        end
object edItemName_LBL: TLabel
Position.X = 136.000000000000000000
Position.Y = 2.000000000000000000
Width = 28
Height = 13
Text = 'Name'
WordWrap = False
end
        object btSearch: TButton
Position.X = 411.000000000000000000
Position.Y = 16.000000000000000000
          Width = 75
          Height = 25
          Anchors = [akTop, akRight]
          Text = 'Search'
          Default = True
          TabOrder = 2
          OnClick = btSearchClick
        end
      end
      object lvItem: TJvListView
        Left = 0
        Top = 49
        Width = 490
        Height = 249
        Align = alClient
        BorderStyle = bsNone
        Columns = <
          item
            Caption = 'Item ID'
            Width = 60
          end
          item
            Caption = 'Name'
            Width = 300
          end>
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        TabOrder = 1
        ViewStyle = vsReport
        OnChange = lvItemChange
        OnDblClick = lvItemDblClick
        ColumnsOrder = '0=60,1=300'
        Groups = <>
        ExtendedColumns = <
          item
          end
          item
          end>
      end
    end
  end
  object MyQuery: TFDQuery
    Connection = MainForm.MyTrinityConnection
    Params = <>
    Left = 276
    Top = 64
  end
  object pmBrowseSite: TPopupMenu
    Left = 424
    Top = 82
    object pmwowhead: TMenuItem
      Text = 'wowhead'
      OnClick = pmSiteClick
    end
    object pmruwowhead: TMenuItem
      Text = 'ruwowhead'
    end
    object pmthottbot: TMenuItem
      Text = 'thottbot'
      OnClick = pmSiteClick
    end
    object pmallakhazam: TMenuItem
      Text = 'allakhazam'
      OnClick = pmSiteClick
    end
    object pmwowdb: TMenuItem
      Text = 'wowdb'
      OnClick = pmSiteClick
    end
  end
end