main.dfm

一个曾经热门的网络游戏RO查看GRF工具的源码

    Top = 378
    Width = 627
    Height = 19
    Panels = <>
    ParentFont = True
    SimplePanel = True
    SimpleText = 'Click Open to open a GRF archive.'
    UseSystemFont = False
  end
  object PreviewPane: TPanel
    Left = 442
    Top = 58
    Width = 185
    Height = 297
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 3
    OnResize = PreviewPaneResize
    object Notebook1: TNotebook
      Left = 0
      Top = 25
      Width = 185
      Height = 272
      Align = alClient
      TabOrder = 0
      object TPage
        Left = 0
        Top = 0
        Caption = 'Image'
        object RichEdit1: TRichEdit
          Left = 0
          Top = 0
          Width = 185
          Height = 272
          Align = alClient
          Font.Charset = HANGEUL_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Courier New'
          Font.Style = []
          ParentFont = False
          PlainText = True
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'Text'
        object ScrollBox1: TScrollBox
          Left = 0
          Top = 0
          Width = 185
          Height = 274
          HorzScrollBar.Smooth = True
          HorzScrollBar.Tracking = True
          VertScrollBar.Smooth = True
          VertScrollBar.Tracking = True
          Align = alClient
          Color = clWhite
          ParentColor = False
          TabOrder = 0
          object Image1: TImage
            Left = 0
            Top = 0
            Width = 181
            Height = 161
            AutoSize = True
          end
        end
      end
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 185
      Height = 25
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Caption = 'Preview pane'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object SpeedButton1: TSpeedButton
        Left = 159
        Top = 2
        Width = 24
        Height = 21
        Hint = 'Hide preview pane'
        Flat = True
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000EB0A0000EB0A00000000000000000000FF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FF000000000000000000FF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FF000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          000000000000000000FF00FFFF00FFFF00FFFF00FF0000000000000000000000
          00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000000000FF00FFFF
          00FF000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FF000000000000000000000000000000000000000000FF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000000000
          0000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FF000000000000000000FF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000000000
          0000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FF000000000000FF00FF000000000000000000FF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000FF00FFFF
          00FF000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FF000000000000000000FF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
        OnClick = SpeedButton1Click
      end
    end
  end
  object ExtractorPanel: TPanel
    Left = 0
    Top = 355
    Width = 627
    Height = 23
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 4
    Visible = False
    object Panel3: TPanel
      Left = 570
      Top = 0
      Width = 57
      Height = 23
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object StopButton: TSpeedButton
        Left = 0
        Top = 0
        Width = 57
        Height = 23
        Hint = 'Stop extracting'
        Caption = 'Stop'
        Flat = True
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000EB0A0000EB0A00000000000000000000FF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFE200E27700772C002C05
          00050500052C002C770077E200E2FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FF9B009B05000506194B092C840B36A10A349E0727750311360500059B00
          9BFF00FFFF00FFFF00FFFF00FFFF00FF9B009B030712173A8E0F3EAF0D3CAE0D
          3BAD0D3AA90C38A60B359E07236D00030C9B009BFF00FFFF00FFFF00FFE200E2
          050005133A921440C2254AD2254BD61643C71B47BF2A4FD0284CD21C42CD0724
          71050005E200E2FF00FFFF00FF7700770A20540F44BC1F44C8D2D9F2DEE5F536
          5ED2416AC9E2E8F5E9EDF72347D80B359F03133A770077FF00FFFF00FF2C002C
          0B37990F48C61E46CDD7DDEAFDFDFDD3DDF4D3DDF4FFFFFFEAEEF8254AD40D39
          A907287A2C002CFF00FFFF00FF0500050E47C3104CCD114ECE2552D2EAEDF2FF
          FFFFFFFFFFDBE3F6355CD11541C60D3BAD0B36A1050005FF00FFFF00FF050005
          0F4BCA144DD8174BDB2352D6EEF0F5FFFFFFFFFFFFD3DEF5375CD91F46D50D3D
          B10B37A5050005FF00FFFF00FF2C002C1645AA164DDD2053D6DDE3F0FFFFFFE5
          EAF5E8EBF0FCFCFCEFF3FA2D52D90D3FB30A2E882C002CFF00FFFF00FF770077
          193164195BE12353D8E2E6EEE0E5EF2853CF2350CEDCE1EAF1F3F82A4FD60E3F
          B4051A4E770077FF00FFFF00FFE200E20500052555B41459E1214FCE1E4BCA17
          4DDD174BDB1F4CCD234BC61245BB0B328F050005E200E2FF00FFFF00FFFF00FF
          9B009B040B182757B7175DE71359E51357E01251D7104DCE0F48C40B36950106
          139B009BFF00FFFF00FFFF00FFFF00FFFF00FF9B009B0500051A33671F4FB113
          52D3104CCC0B3BA0061F570500059B009BFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFE200E27700772C002C0500050500052C002C770077E200E2FF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
        OnClick = StopButtonClick
      end
    end
    object ProgressBar1: TProgressBar
      Left = 0
      Top = 0
      Width = 570
      Height = 23
      Align = alClient
      Min = 0
      Max = 100
      Smooth = True
      TabOrder = 0
    end
  end
  object FileList: TVirtualStringTree
    Left = 0
    Top = 58
    Width = 438
    Height = 297
    Align = alClient
    Colors.SelectionRectangleBlendColor = 16767423
    Ctl3D = True
    DrawSelectionMode = smBlendedRectangle
    Header.AutoSizeIndex = 0
    Header.Font.Charset = DEFAULT_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -11
    Header.Font.Name = 'MS Sans Serif'
    Header.Font.Style = []
    Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoHotTrack, hoVisible]
    Header.Style = hsFlatButtons
    IncrementalSearch = isAll
    ParentCtl3D = False
    TabOrder = 2
    TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages, toUseBlendedSelection]
    TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toMultiSelect]
    OnClick = FileListClick
    OnCompareNodes = FileListCompareNodes
    OnDblClick = FileListDblClick
    OnGetText = FileListGetText
    OnHeaderClick = FileListHeaderClick
    OnKeyDown = FileListKeyDown
    Columns = <
      item
        Position = 0
        Width = 294
        WideText = 'Filename'
      end
      item