Additional Levels for Warcraft 2/WARII_LAOII.iso/tools/wardraft/wardraft.exe/0/RCDATA/TED278FORM/TED278FORM.txt

Text File | 1997-01-17 | 20KB | 740 lines

object Ed278Form: TEd278Form
  Left = 341
  Top = 125
  Width = 474
  Height = 532
  HelpContext = 70
  Caption = 'Entry 278 Editor'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 432
    Width = 466
    Height = 49
    Align = alBottom
    TabOrder = 0
    object LbStatus278: TLabel
      Left = 8
      Top = 13
      Width = 145
      Height = 16
      Caption = 'Entry #278 is not loaded.'
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Panel2: TPanel
      Left = 248
      Top = 1
      Width = 217
      Height = 47
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object BtLoad278: TButton
        Left = 8
        Top = 2
        Width = 57
        Height = 21
        Caption = '&Load...'
        TabOrder = 0
        OnClick = BtLoad278Click
      end
      object BtSave: TButton
        Left = 8
        Top = 24
        Width = 57
        Height = 21
        Caption = '&Save...'
        Enabled = False
        TabOrder = 1
        OnClick = BtSaveClick
      end
      object BtExit: TButton
        Left = 156
        Top = 24
        Width = 57
        Height = 21
        Cancel = True
        Caption = '&Exit'
        TabOrder = 2
        OnClick = BtExitClick
      end
      object BtDirectSave: TButton
        Left = 66
        Top = 24
        Width = 89
        Height = 21
        Caption = 'Direct Sa&ve...'
        Enabled = False
        TabOrder = 3
        OnClick = BtDirectSaveClick
      end
      object BtDirectLoad: TButton
        Left = 66
        Top = 2
        Width = 89
        Height = 21
        Caption = 'Direct L&oad...'
        TabOrder = 4
        OnClick = BtDirectLoadClick
      end
      object BtHelp: TButton
        Left = 156
        Top = 2
        Width = 57
        Height = 21
        Cancel = True
        Caption = '&Help'
        TabOrder = 5
        OnClick = BtHelpClick
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 481
    Width = 466
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Width = 150
      end>
    SimplePanel = False
    OnResize = StatusBarResize
  end
  object TabbedNotebook1: TTabbedNotebook
    Left = 0
    Top = 0
    Width = 466
    Height = 432
    Align = alClient
    TabFont.Color = clBtnText
    TabFont.Height = -13
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 2
    object TTabPage
      Left = 4
      Top = 27
      Caption = 'Speed Editor'
      object EdSpeedPage: TPanel
        Left = 0
        Top = 0
        Width = 458
        Height = 401
        Align = alClient
        BevelOuter = bvNone
        Caption = 'EdSpeedPage'
        TabOrder = 0
        object Bevel2: TBevel
          Left = 0
          Top = 81
          Width = 458
          Height = 7
          Align = alTop
          Shape = bsTopLine
        end
        object WaitSummary: TStatusBar
          Left = 0
          Top = 382
          Width = 458
          Height = 19
          Panels = <>
          SimplePanel = True
          SizeGrip = False
        end
        object TrackPanel: TPanel
          Left = 0
          Top = 328
          Width = 458
          Height = 54
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 1
          OnResize = TrackPanelResize
          object LbWait: TLabel
            Left = 8
            Top = 4
            Width = 36
            Height = 16
            Caption = '&Ticks:'
            Enabled = False
            FocusControl = TrackWait
          end
          object LbWaitType: TLabel
            Left = 8
            Top = 28
            Width = 35
            Height = 16
            Caption = 'Type:'
            Enabled = False
            FocusControl = TrackWait
          end
          object TrackWait: TTrackBar
            Left = 72
            Top = 0
            Width = 377
            Height = 29
            Enabled = False
            Max = 255
            Orientation = trHorizontal
            Frequency = 5
            Position = 1
            SelEnd = 0
            SelStart = 0
            TabOrder = 0
            TickMarks = tmBottomRight
            TickStyle = tsAuto
            OnChange = TrackWaitChange
            OnKeyPress = SrcKeyPress
          end
          object RbType1: TRadioButton
            Tag = 1
            Left = 80
            Top = 28
            Width = 33
            Height = 17
            Caption = '&1'
            Checked = True
            Enabled = False
            TabOrder = 1
            TabStop = True
            OnClick = RbTypeClick
            OnKeyPress = SrcKeyPress
          end
          object RbType2: TRadioButton
            Tag = 2
            Left = 112
            Top = 28
            Width = 33
            Height = 17
            Caption = '&2'
            Enabled = False
            TabOrder = 2
            OnClick = RbTypeClick
            OnKeyPress = SrcKeyPress
          end
          object RbType3: TRadioButton
            Tag = 3
            Left = 144
            Top = 28
            Width = 33
            Height = 17
            Caption = '&3'
            Enabled = False
            TabOrder = 3
            OnClick = RbTypeClick
            OnKeyPress = SrcKeyPress
          end
          object RbType4: TRadioButton
            Tag = 4
            Left = 176
            Top = 28
            Width = 33
            Height = 17
            Caption = '&4'
            Enabled = False
            TabOrder = 4
            OnClick = RbTypeClick
            OnKeyPress = SrcKeyPress
          end
        end
        object SrcPanel: TPanel
          Left = 0
          Top = 176
          Width = 458
          Height = 152
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 2
          object SrcTitlePanel: TPanel
            Left = 0
            Top = 0
            Width = 458
            Height = 16
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 0
            object LbSrc: TLabel
              Left = 0
              Top = 0
              Width = 88
              Height = 16
              Caption = 'Event &Handler:'
              Enabled = False
            end
            object LbGlobalEvent: TLabel
              Left = 120
              Top = 0
              Width = 97
              Height = 16
              Caption = ' Global Handler '
              Color = clInfoBk
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentColor = False
              ParentFont = False
              Visible = False
            end
            object CbVerbose: TCheckBox
              Left = 384
              Top = 0
              Width = 73
              Height = 17
              Caption = '&verbose'
              Enabled = False
              State = cbChecked
              TabOrder = 0
              OnClick = CbVerboseClick
              OnKeyPress = SrcKeyPress
            end
            object CbOpcodes: TCheckBox
              Left = 262
              Top = -1
              Width = 123
              Height = 17
              Caption = 'Show &Opcodes'
              Enabled = False
              TabOrder = 1
              OnClick = CbVerboseClick
              OnKeyPress = SrcKeyPress
            end
          end
          object SrcList: TListBox
            Left = 0
            Top = 16
            Width = 458
            Height = 136
            Align = alClient
            Enabled = False
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Courier'
            Font.Style = []
            ItemHeight = 16
            ParentFont = False
            Style = lbOwnerDrawFixed
            TabOrder = 1
            OnClick = SrcListClick
            OnDrawItem = SrcListDrawItem
            OnKeyDown = SrcListKeyDown
            OnKeyPress = SrcKeyPress
          end
        end
        object DragPanel: TPanel
          Left = 0
          Top = 173
          Width = 458
          Height = 3
          Cursor = crVSplit
          Align = alTop
          BevelInner = bvRaised
          BevelOuter = bvNone
          TabOrder = 3
          OnMouseDown = DragPanelMouseDown
          OnMouseMove = DragPanelMouseMove
          OnMouseUp = DragPanelMouseUp
        end
        object OthersPanel: TPanel
          Left = 0
          Top = 88
          Width = 458
          Height = 85
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 4
          object LbOthers: TLabel
            Left = 0
            Top = 0
            Width = 458
            Height = 16
            Align = alTop
            Caption = 'Other units affected by selected program:'
            Enabled = False
          end
          object Panel3: TPanel
            Left = 0
            Top = 82
            Width = 458
            Height = 3
            Align = alBottom
            BevelOuter = bvNone
            TabOrder = 0
          end
          object OthersList: TListBox
            Left = 0
            Top = 16
            Width = 458
            Height = 66
            Align = alClient
            Color = clInfoBk
            Enabled = False
            Font.Color = clInfoText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ItemHeight = 16
            ParentFont = False
            TabOrder = 1
            OnClick = RejectClickOnList
          end
        end
        object ComboPanel: TPanel
          Left = 0
          Top = 0
          Width = 458
          Height = 81
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 5
          OnResize = ComboPanelResize
          object LbProgram: TLabel
            Left = 10
            Top = 28
            Width = 133
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = 'Select &program for unit'
            Enabled = False
            FocusControl = ProgramCombo
          end
          object LbEvent: TLabel
            Left = 10
            Top = 52
            Width = 133
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = 'Select &event'
            Enabled = False
            FocusControl = EventCombo
          end
          object Label1: TLabel
            Left = 10
            Top = 4
            Width = 133
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = 'Sort units'
            Enabled = False
          end
          object ProgramCombo: TComboBox
            Left = 152
            Top = 24
            Width = 297
            Height = 24
            Style = csDropDownList
            Enabled = False
            ItemHeight = 16
            TabOrder = 0
            OnChange = ProgramComboChange
          end
          object EventCombo: TComboBox
            Left = 152
            Top = 48
            Width = 297
            Height = 24
            Style = csDropDownList
            Enabled = False
            ItemHeight = 16
            TabOrder = 1
            OnChange = EventComboChange
          end
          object RbSortByName: TRadioButton
            Left = 152
            Top = 4
            Width = 81
            Height = 17
            Caption = 'by &name'
            Enabled = False
            TabOrder = 2
            OnClick = RbSortByClick
          end
          object RbSortByNumber: TRadioButton
            Left = 232
            Top = 4
            Width = 97
            Height = 17
            Caption = 'by n&umber'
            Checked = True
            Enabled = False
            TabOrder = 3
            TabStop = True
            OnClick = RbSortByClick
          end
        end
      end
    end
    object TTabPage
      Left = 4
      Top = 27
      Caption = 'Grouping'
      object Panel5: TPanel
        Left = 0
        Top = 257
        Width = 458
        Height = 64
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object BtMoveSrcToDst: TButton
          Left = 95
          Top = 0
          Width = 265
          Height = 25
          Caption = '&Move unit from source to destination group'
          Enabled = False
          TabOrder = 0
          OnClick = BtMoveSrcToDstClick
        end
        object CbKeepSize: TCheckBox
          Left = 96
          Top = 32
          Width = 289
          Height = 17
          Caption = 'Try to &keep the same filesize (for direct save)'
          TabOrder = 1
        end
      end
      object GroupingPanel: TPanel
        Left = 0
        Top = 0
        Width = 458
        Height = 257
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object Label4: TLabel
          Left = 18
          Top = 4
          Width = 133
          Height = 16
          Alignment = taRightJustify
          AutoSize = False
          Caption = 'Sort units'
          Enabled = False
        end
        object Label2: TLabel
          Left = 2
          Top = 28
          Width = 151
          Height = 16
          Alignment = taRightJustify
          AutoSize = False
          Caption = 'Select a unit of the &group'
          Enabled = False
          FocusControl = GroupCombo
        end
        object RbSortByName1: TRadioButton
          Left = 160
          Top = 4
          Width = 81
          Height = 17
          Caption = 'by &name'
          Enabled = False
          TabOrder = 0
          OnClick = RbSortBy1Click
        end
        object RbSortByNumber1: TRadioButton
          Left = 240
          Top = 4
          Width = 97
          Height = 17
          Caption = 'by n&umber'
          Checked = True
          Enabled = False
          TabOrder = 1
          TabStop = True
          OnClick = RbSortBy1Click
        end
        object GroupCombo: TComboBox
          Left = 160
          Top = 24
          Width = 289
          Height = 24
          Style = csDropDownList
          Enabled = False
          ItemHeight = 16
          TabOrder = 2
          OnChange = GroupComboChange
        end
        object BtSetSrcGroup: TBitBtn
          Left = 96
          Top = 122
          Width = 129
          Height = 25
          Caption = 'Set &source group'
          Enabled = False
          TabOrder = 3
          OnClick = BtSetGroupClick
          Glyph.Data = {
            78010000424D7801000000000000760000002800000020000000100000000100
            04000000000000000000120B0000120B00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333333333333333333333333333333333FF333333333333300333333333
            33333773FF33333333333090033333333333373773FF33333333330990033333
            3333337F3773FF33333333099990033333333373F33773FFF333333099999007
            33333337F33337773333333099999903333333373F3333733333333309999033
            333333337F3337F333333333099990733333333373F3F77F3333333330900907
            3333333337F77F77F33333333003709073333333377377F77F33333337333709
            073333333733377F77F33333333333709033333333333377F7F3333333333337
            07333333333333377733333333333333333333333333333333330000}
          Layout = blGlyphRight
          NumGlyphs = 2
        end
        object BtSetDstGroup: TBitBtn
          Left = 232
          Top = 122
          Width = 153
          Height = 25
          Caption = 'Set &destination group'
          Enabled = False
          TabOrder = 4
          OnClick = BtSetGroupClick
          Glyph.Data = {
            78010000424D7801000000000000760000002800000020000000100000000100
            04000000000000000000120B0000120B00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333333333333333333333333333333333FFF3333333333333
            00333333333333FF77F3333333333300903333333333FF773733333333330099
            0333333333FF77337F3333333300999903333333FF7733337333333700999990
            3333333777333337F3333333099999903333333373F333373333333330999903
            33333333F7F3337F33333333709999033333333F773FF3733333333709009033
            333333F7737737F3333333709073003333333F77377377F33333370907333733
            33333773773337333333309073333333333337F7733333333333370733333333
            33333777333333333333333333333333333333333333333333330000}
          NumGlyphs = 2
        end
        object SrcGroupList: TListBox
          Left = 8
          Top = 152
          Width = 217
          Height = 97
          Enabled = False
          ItemHeight = 16
          TabOrder = 5
          OnClick = SrcGroupListClick
        end
        object BtClrDstGroup: TButton
          Left = 392
          Top = 122
          Width = 57
          Height = 25
          Caption = '&Clear'
          TabOrder = 6
          OnClick = BtSetGroupClick
        end
        object GroupList: TListBox
          Left = 8
          Top = 48
          Width = 441
          Height = 68
          Color = clInfoBk
          Enabled = False
          Font.Color = clInfoText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 16
          ParentFont = False
          TabOrder = 7
          OnClick = RejectClickOnList
        end
        object DstGroupList: TListBox
          Left = 232
          Top = 152
          Width = 217
          Height = 97
          Color = clInfoBk
          Enabled = False
          Font.Color = clInfoText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 16
          ParentFont = False
          TabOrder = 8
          OnClick = RejectClickOnList
        end
      end
    end
    object TTabPage
      Left = 4
      Top = 27
      Caption = '(Dis)assembler'
      object SourceMemo: TMemo
        Left = 0
        Top = 57
        Width = 458
        Height = 344
        Align = alClient
        Alignment = taCenter
        Enabled = False
        TabOrder = 0
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 458
        Height = 57
        Align = alTop
        BevelOuter = bvNone
        Caption = 'Sorry, the assembler/disassembler isn'#39't working yet.'
        TabOrder = 1
      end
      object Panel6: TPanel
        Left = 136
        Top = 120
        Width = 185
        Height = 41
        Caption = 'Out of order'
        Color = clSilver
        Font.Color = clMaroon
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
    end
  end
  object SaveDialog: TSaveDialog
    FileEditStyle = fsEdit
    Filter = 'All files (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Title = 'Save entry #278 as'
    Left = 180
    Top = 426
  end
  object OpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'All files (*.*)|*.*'
    InitialDir = 'c:\work\c'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Left = 168
    Top = 504
  end
end