unit1.dfm

来自「delphi 最好的3D控件GLScene_Demos」· DFM 代码 · 共 166 行

object Form1: TForm1
  Left = 204
  Top = 99
  Width = 433
  Height = 338
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GLSceneViewer: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 425
    Height = 289
    Camera = GLCamera
    Align = alClient
    OnMouseDown = GLSceneViewerMouseDown
    OnMouseMove = GLSceneViewerMouseMove
  end
  object MainMenu1: TMainMenu
    Left = 8
    Top = 8
    object MIFile: TMenuItem
      Caption = 'File'
      object MIOpenImageFile: TMenuItem
        Caption = 'Open image file...'
        ShortCut = 16463
        OnClick = MIOpenImageFileClick
      end
      object MISaveCurrentImage: TMenuItem
        Caption = 'Save current image...'
        ShortCut = 16467
        OnClick = MISaveCurrentImageClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object MIExit: TMenuItem
        Caption = 'Exit'
        ShortCut = 32883
        OnClick = MIExitClick
      end
    end
    object MIQuality: TMenuItem
      Caption = 'Quality'
      object N1toomuch1: TMenuItem
        Tag = 2
        Caption = '2 (too much)'
        RadioItem = True
        OnClick = MIQualityOptionClick
      end
      object N4highquality1: TMenuItem
        Tag = 4
        Caption = '4 (high quality)'
        RadioItem = True
        OnClick = MIQualityOptionClick
      end
      object N8mediumquality1: TMenuItem
        Tag = 8
        Caption = '8 (medium quality)'
        RadioItem = True
        OnClick = MIQualityOptionClick
      end
      object N16lowquality1: TMenuItem
        Tag = 16
        Caption = '16 (low quality)'
        Checked = True
        RadioItem = True
        OnClick = MIQualityOptionClick
      end
      object MIQualityOption: TMenuItem
        Tag = 32
        Caption = '32 (super fast)'
        RadioItem = True
        OnClick = MIQualityOptionClick
      end
    end
    object MIRadius: TMenuItem
      Caption = 'Radius'
      object N10small1: TMenuItem
        Tag = 10
        Caption = '10 (small)'
        RadioItem = True
        OnClick = MIRadiusSettingClick
      end
      object N20medium1: TMenuItem
        Tag = 20
        Caption = '20 (medium)'
        Checked = True
        RadioItem = True
        OnClick = MIRadiusSettingClick
      end
      object MIRadiusSetting: TMenuItem
        Tag = 40
        Caption = '40 (large)'
        RadioItem = True
        OnClick = MIRadiusSettingClick
      end
      object N80extra1: TMenuItem
        Tag = 80
        Caption = '80 (extra)'
        RadioItem = True
        OnClick = MIRadiusSettingClick
      end
    end
    object MIEffect: TMenuItem
      Caption = 'Effect'
      object MIZoomEffect: TMenuItem
        Caption = 'Zoom'
        Checked = True
        RadioItem = True
        OnClick = MIZoomEffectClick
      end
      object MISpin: TMenuItem
        Tag = 1
        Caption = 'Spin'
        RadioItem = True
        OnClick = MIZoomEffectClick
      end
    end
  end
  object OpenPictureDialog: TOpenPictureDialog
    Left = 64
    Top = 8
  end
  object GLScene: TGLScene
    Left = 8
    Top = 56
    object HeightField: TGLHeightField
      Direction.Coordinates = {00000000000000800000803F00000000}
      Material.Texture.MinFilter = miLinear
      Material.Texture.TextureMode = tmReplace
      Material.Texture.MappingTCoordinates.Coordinates = {000000000000803F0000000000000000}
      Material.Texture.Disabled = False
      XSamplingScale.Max = 16
      XSamplingScale.Step = 8
      YSamplingScale.Max = 16
      YSamplingScale.Step = 8
      Options = [hfoTextureCoordinates, hfoTwoSided]
      OnGetHeight = HeightFieldGetHeight
    end
    object GLCamera: TGLCamera
      DepthOfView = 100
      FocalLength = 0.5
      CameraStyle = csOrthogonal
      Position.Coordinates = {0000803F0000803F000020410000803F}
      Left = 256
      Top = 152
    end
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'bmp'
    Filter = 'Bitmaps (*.bmp)|*.bmp|All files (*.*)|*.*'
    Left = 104
    Top = 8
  end
end