castlemanage.dfm

来自「2009最新 传奇汉化0599代码 传奇汉化」· DFM 代码 · 共 275 行

object frmCastleManage: TfrmCastleManage
  Left = 187
  Top = 224
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Castle Manager'
  ClientHeight = 338
  ClientWidth = 705
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '??'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 15
  object GroupBox1: TGroupBox
    Left = 10
    Top = 10
    Width = 241
    Height = 321
    Caption = 'Castles'
    TabOrder = 0
    object ListViewCastle: TListView
      Left = 10
      Top = 20
      Width = 221
      Height = 291
      Hint = 'List of available castles'
      Columns = <
        item
          Caption = 'ID'
          Width = 45
        end
        item
          Caption = 'ID'
          Width = 45
        end
        item
          Caption = 'Name'
          Width = 125
        end>
      GridLines = True
      ReadOnly = True
      RowSelect = True
      TabOrder = 0
      ViewStyle = vsReport
      OnClick = ListViewCastleClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 260
    Top = 10
    Width = 441
    Height = 321
    Caption = 'Selected Castle Status'
    TabOrder = 1
    object PageControlCastle: TPageControl
      Left = 10
      Top = 20
      Width = 421
      Height = 291
      ActivePage = TabSheet2
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = 'Status'
        object GroupBox3: TGroupBox
          Left = 6
          Top = 14
          Width = 402
          Height = 115
          TabOrder = 0
          object Label2: TLabel
            Left = 10
            Top = 25
            Width = 71
            Height = 15
            Caption = 'Owner Guild:'
          end
          object Label1: TLabel
            Left = 10
            Top = 55
            Width = 59
            Height = 15
            Caption = 'Total Gold:'
          end
          object Label3: TLabel
            Left = 10
            Top = 85
            Width = 87
            Height = 15
            Caption = 'Todays Income:'
          end
          object Label7: TLabel
            Left = 222
            Top = 55
            Width = 98
            Height = 15
            Caption = 'Technology Level:'
          end
          object Label8: TLabel
            Left = 222
            Top = 85
            Width = 38
            Height = 15
            Caption = 'Power:'
          end
          object EditOwenGuildName: TEdit
            Left = 104
            Top = 20
            Width = 169
            Height = 23
            Hint = 'Guild that owns the selected castle'
            TabOrder = 0
          end
          object EditTotalGold: TSpinEdit
            Left = 104
            Top = 50
            Width = 101
            Height = 24
            Hint = 'Total amount of gold stored in castle'
            MaxValue = 2000000000
            MinValue = 0
            TabOrder = 1
            Value = 0
          end
          object EditTodayIncome: TSpinEdit
            Left = 104
            Top = 80
            Width = 101
            Height = 24
            Hint = 'Total of income made today'
            MaxValue = 2000000000
            MinValue = 0
            TabOrder = 2
            Value = 0
          end
          object EditTechLevel: TSpinEdit
            Left = 326
            Top = 50
            Width = 61
            Height = 24
            Hint = 'Tech level of castle'
            MaxValue = 2000000000
            MinValue = 0
            TabOrder = 3
            Value = 0
          end
          object EditPower: TSpinEdit
            Left = 326
            Top = 80
            Width = 61
            Height = 24
            Hint = 'Castle power level'
            MaxValue = 2000000000
            MinValue = 0
            TabOrder = 4
            Value = 0
          end
        end
      end
      object TabSheet3: TTabSheet
        Caption = 'Castle Defences'
        ImageIndex = 2
        object GroupBox5: TGroupBox
          Left = 6
          Top = 0
          Width = 398
          Height = 251
          TabOrder = 0
          object ListViewGuard: TListView
            Left = 10
            Top = 20
            Width = 375
            Height = 181
            Columns = <
              item
                Caption = 'ID'
                Width = 45
              end
              item
                Caption = 'Name'
                Width = 100
              end
              item
                Caption = 'Co-Ordinates'
                Width = 100
              end
              item
                Caption = 'HP'
                Width = 75
              end
              item
                Caption = 'Status'
                Width = 75
              end>
            GridLines = True
            ReadOnly = True
            RowSelect = True
            TabOrder = 0
            ViewStyle = vsReport
          end
          object ButtonRefresh: TButton
            Left = 300
            Top = 210
            Width = 81
            Height = 31
            Caption = '&Reload'
            TabOrder = 1
            OnClick = ButtonRefreshClick
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Unknown'
        ImageIndex = 1
        object GroupBox4: TGroupBox
          Left = 6
          Top = 6
          Width = 402
          Height = 112
          TabOrder = 0
          object Label4: TLabel
            Left = 10
            Top = 25
            Width = 31
            Height = 15
            Caption = 'lbl4:'
          end
          object Label5: TLabel
            Left = 10
            Top = 55
            Width = 31
            Height = 15
            Caption = 'lbl5:'
          end
          object Label6: TLabel
            Left = 210
            Top = 25
            Width = 17
            Height = 15
            Caption = 'l6:'
          end
          object Edit4: TEdit
            Left = 80
            Top = 20
            Width = 101
            Height = 23
            TabOrder = 0
            Text = 'Edit4'
          end
          object Edit5: TEdit
            Left = 80
            Top = 50
            Width = 101
            Height = 23
            TabOrder = 1
            Text = 'Edit5'
          end
          object Edit6: TEdit
            Left = 280
            Top = 20
            Width = 101
            Height = 23
            TabOrder = 2
            Text = 'Edit6'
          end
        end
      end
    end
  end
end