fmainform.dfm

都是关于Glscene的实例

object MainForm: TMainForm
  Left = 138
  Top = 100
  Width = 591
  Height = 473
  Caption = 'TerrainPack v1.0'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object StringGrid: TStringGrid
    Left = 0
    Top = 137
    Width = 583
    Height = 267
    Align = alClient
    BorderStyle = bsNone
    ColCount = 4
    DefaultColWidth = 140
    DefaultRowHeight = 19
    FixedCols = 0
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goThumbTracking]
    PopupMenu = PopupMenu
    TabOrder = 0
    OnSelectCell = StringGridSelectCell
  end
  object Panel1: TPanel
    Left = 0
    Top = 28
    Width = 583
    Height = 109
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    DesignSize = (
      583
      109)
    object Label1: TLabel
      Left = 8
      Top = 83
      Width = 48
      Height = 13
      Caption = 'DEM path'
    end
    object Label2: TLabel
      Left = 8
      Top = 11
      Width = 54
      Height = 13
      Caption = 'HTF output'
    end
    object Label3: TLabel
      Left = 8
      Top = 35
      Width = 51
      Height = 13
      Caption = 'World Size'
    end
    object Label4: TLabel
      Left = 120
      Top = 35
      Width = 17
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = 'x'
    end
    object Label5: TLabel
      Left = 336
      Top = 35
      Width = 66
      Height = 13
      Caption = 'Default height'
    end
    object Label6: TLabel
      Left = 208
      Top = 35
      Width = 40
      Height = 13
      Caption = 'Tile Size'
    end
    object Label7: TLabel
      Left = 192
      Top = 59
      Width = 55
      Height = 13
      Caption = 'Tile overlap'
    end
    object Label8: TLabel
      Left = 336
      Top = 59
      Width = 72
      Height = 13
      Caption = 'Filter to default:'
    end
    object EDHTFName: TEdit
      Left = 72
      Top = 8
      Width = 475
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 0
    end
    object EDDEMPath: TEdit
      Left = 72
      Top = 80
      Width = 475
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 1
      OnChange = EDDEMPathChange
    end
    object BUDEMPath: TButton
      Left = 549
      Top = 80
      Width = 24
      Height = 21
      Anchors = [akTop, akRight]
      Caption = '...'
      TabOrder = 2
      OnClick = BUDEMPathClick
    end
    object Button3: TButton
      Left = 549
      Top = 8
      Width = 24
      Height = 21
      Anchors = [akTop, akRight]
      Caption = '...'
      TabOrder = 3
      OnClick = Button3Click
    end
    object EDSizeX: TEdit
      Left = 72
      Top = 32
      Width = 49
      Height = 21
      TabOrder = 4
    end
    object EDSizeY: TEdit
      Left = 136
      Top = 32
      Width = 49
      Height = 21
      TabOrder = 5
    end
    object EDDefaultZ: TEdit
      Left = 416
      Top = 32
      Width = 49
      Height = 21
      TabOrder = 6
      Text = '0'
      OnChange = EDDefaultZChange
    end
    object EDTileSize: TEdit
      Left = 256
      Top = 32
      Width = 49
      Height = 21
      TabOrder = 7
      Text = '256'
    end
    object EDTileOverlap: TEdit
      Left = 256
      Top = 56
      Width = 49
      Height = 21
      Hint = 
        'Tile overlap in samples'#13#10'When overlap is 1, righternmost and bot' +
        'tommost undefined samples '#13#10'will be filled completed with last r' +
        'ow value in place of default value'
      TabOrder = 8
      Text = '0'
    end
    object EDZFilter: TEdit
      Left = 416
      Top = 56
      Width = 157
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 9
      OnChange = EDZFilterChange
    end
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 583
    Height = 28
    AutoSize = True
    BorderWidth = 1
    Caption = 'ToolBar'
    Flat = True
    Images = ImageList
    TabOrder = 2
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Action = ACOpen
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 0
      Action = ACSave
    end
    object ToolButton3: TToolButton
      Left = 46
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 54
      Top = 0
      Action = ACNewDEM
    end
    object ToolButton5: TToolButton
      Left = 77
      Top = 0
      Action = ACRemoveDEM
    end
    object ToolButton6: TToolButton
      Left = 100
      Top = 0
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object ToolButton7: TToolButton
      Left = 108
      Top = 0
      Action = ACProcess
    end
    object ToolButton8: TToolButton
      Left = 131
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton9: TToolButton
      Left = 139
      Top = 0
      Action = ACViewer
    end
  end
  object CBType: TComboBox
    Left = 392
    Top = 168
    Width = 139
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 3
    Visible = False
    OnChange = CBTypeChange
    Items.Strings = (
      '16 bits (Intel)'
      '16 bits unsigned (Intel)'
      '16 bits (non-Intel)'
      'VTP'#39's BT (single)'
      'BMP (Windows)'
      '32 bits FP ([0; 1], Intel)')
  end
  object CBFile: TComboBox
    Left = 0