QBasic & Borland Pascal & C/Delphi5.iso/Runimage/Delphi50/Demos/Resxplor/RXMAIN.DFM/RXMAIN.txt

Text File | 1999-08-11 | 5.7 KB | 269 lines

object MainForm: TMainForm
  Left = 223
  Top = 151
  Width = 577
  Height = 260
  Caption = 'Resource Explorer'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu
  OldCreateOrder = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 190
    Width = 567
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 500
      end>
    SimplePanel = False
  end
  object TreeViewPanel: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 190
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 185
      Height = 21
      Align = alTop
      Alignment = taLeftJustify
      BevelInner = bvLowered
      BevelOuter = bvNone
      BorderWidth = 1
      Caption = ' Resources'
      TabOrder = 0
    end
    object TreeView: TTreeView
      Left = 0
      Top = 21
      Width = 185
      Height = 169
      Align = alClient
      Images = Small
      Indent = 19
      ReadOnly = True
      TabOrder = 1
      OnChange = TreeViewChange
    end
  end
  object Splitter: TPanel
    Left = 185
    Top = 0
    Width = 2
    Height = 190
    Cursor = crHSplit
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 2
    OnMouseDown = SplitterMouseDown
    OnMouseMove = SplitterMouseMove
    OnMouseUp = SplitterMouseUp
  end
  object ListViewPanel: TPanel
    Left = 187
    Top = 0
    Width = 380
    Height = 190
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object ListViewCaption: TPanel
      Left = 0
      Top = 0
      Width = 380
      Height = 21
      Align = alTop
      Alignment = taLeftJustify
      BevelInner = bvLowered
      BevelOuter = bvNone
      BorderWidth = 1
      TabOrder = 0
    end
    object Notebook: TNotebook
      Left = 0
      Top = 21
      Width = 380
      Height = 169
      Align = alClient
      Color = clBtnFace
      PageIndex = 1
      ParentColor = False
      TabOrder = 1
      OnEnter = NotebookEnter
      object TPage
        Left = 0
        Top = 0
        Caption = 'ListViewPage'
        object ListView: TListView
          Left = 0
          Top = 0
          Width = 382
          Height = 175
          Align = alClient
          Columns = <
            item
              Caption = 'Name'
              Width = 150
            end
            item
              Caption = 'Offset'
              Width = 80
            end
            item
              Caption = 'Size'
              Width = 80
            end>
          ColumnClick = False
          LargeImages = Large
          ReadOnly = True
          SmallImages = Small
          TabOrder = 0
          ViewStyle = vsReport
          OnEnter = ListViewEnter
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'ImageViewPage'
        object ImageViewer: TImage
          Left = 0
          Top = 0
          Width = 380
          Height = 169
          Align = alClient
          Center = True
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'StringViewPage'
        object StringViewer: TMemo
          Left = 0
          Top = 0
          Width = 382
          Height = 175
          Align = alClient
          ReadOnly = True
          ScrollBars = ssBoth
          TabOrder = 0
          WantReturns = False
          WordWrap = False
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'OtherViewPage'
      end
    end
  end
  object MainMenu: TMainMenu
    Left = 530
    Top = 161
    object miFile: TMenuItem
      Caption = '&File'
      object miFileOpen: TMenuItem
        Caption = '&Open...'
        OnClick = FileOpen
      end
      object miFileSave: TMenuItem
        Caption = '&Save Resource...'
        OnClick = SaveResource
      end
      object miN1: TMenuItem
        Caption = '-'
      end
      object miFileExit: TMenuItem
        Caption = 'E&xit'
        OnClick = FileExit
      end
    end
    object miView: TMenuItem
      Caption = '&View'
      OnClick = ViewMenuDropDown
      object miViewStatusBar: TMenuItem
        Caption = 'Status &Bar'
        OnClick = ToggleStatusBar
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object miViewLargeIcons: TMenuItem
        Caption = 'Lar&ge Icons'
        GroupIndex = 1
        RadioItem = True
        OnClick = SelectListViewType
      end
      object miViewSmallIcons: TMenuItem
        Tag = 1
        Caption = 'S&mall Icons'
        GroupIndex = 1
        RadioItem = True
        OnClick = SelectListViewType
      end
      object miViewList: TMenuItem
        Tag = 2
        Caption = '&List'
        GroupIndex = 1
        RadioItem = True
        OnClick = SelectListViewType
      end
      object miViewDetails: TMenuItem
        Tag = 3
        Caption = '&Details'
        GroupIndex = 1
        RadioItem = True
        OnClick = SelectListViewType
      end
    end
    object miHelp: TMenuItem
      Caption = '&Help'
      object miHelpAbout: TMenuItem
        Caption = '&About'
        OnClick = ShowAboutBox
      end
    end
  end
  object FileOpenDialog: TOpenDialog
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
    Left = 497
    Top = 161
  end
  object FileSaveDialog: TSaveDialog
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
    Left = 463
    Top = 161
  end
  object Small: TImageList
    Left = 384
    Top = 161
  end
  object Large: TImageList
    Height = 32
    Width = 32
    Left = 417
    Top = 161
  end
end