unit1.dfm

delphi 最好的3D控件GLScene_Demos

object Form1: TForm1
  Left = 182
  Top = 91
  Width = 515
  Height = 504
  Caption = 'Gui Paint'
  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
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 13
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 507
    Height = 458
    Camera = GLCamera1
    Buffer.BackgroundColor = clBlack
    Align = alClient
    OnMouseDown = GLSceneViewer1MouseDown
    OnMouseMove = GLSceneViewer1MouseMove
    OnMouseUp = GLSceneViewer1MouseUp
  end
  object GLScene1: TGLScene
    ObjectsSorting = osNone
    Left = 16
    Top = 16
    object GLLightSource1: TGLLightSource
      ConstAttenuation = 1
      Position.Coordinates = {0000204100002041000020410000803F}
      SpotCutOff = 180
    end
    object GuiRoot: TGLBaseControl
      RedrawAtOnce = False
      NoZWrite = False
      Width = 10000
      Height = 10000
      object GLForm1: TGLForm
        RedrawAtOnce = False
        GuiLayout = GLGuiLayout1
        GuiLayoutName = 'form'
        AlphaChannel = 0.5
        NoZWrite = False
        Width = 300
        Height = 300
        Left = 100
        Top = 100
        Position.Coordinates = {0000C8420000C842000000000000803F}
        BitmapFont = WindowsBitmapFont1
        DefaultColor = clMaroon
        Caption = 'Paint'
        TitleColor = clWhite
        OnMoving = GLForm1Moving
        object PenButton: TGLButton
          RedrawAtOnce = False
          GuiLayout = GLGuiLayout1
          GuiLayoutName = 'button'
          NoZWrite = False
          Width = 40
          Height = 40
          Left = 110
          Top = 132
          Position.Coordinates = {0000DC4200000443000000000000803F}
          BitmapFont = WindowsBitmapFont1
          DefaultColor = clBlack
          Focused = False
          FocusedColor = clBlack
          Group = 1
          BitBtn.MaterialLibrary = GLMaterialLibrary1
          BitBtn.LibMaterialName = 'Pen'
          Pressed = True
          OnButtonClick = PenButtonButtonClick
          GuiLayoutNamePressed = 'buttonpressed'
          LogicWidth = 32
          LogicHeight = 34
          YOffset = 1
          AllowUp = True
        end
        object BrushButton: TGLButton
          RedrawAtOnce = False
          GuiLayout = GLGuiLayout1
          GuiLayoutName = 'button'
          NoZWrite = False
          Width = 40
          Height = 40
          Left = 150
          Top = 132
          Position.Coordinates = {0000164300000443000000000000803F}
          BitmapFont = WindowsBitmapFont1
          DefaultColor = clBlack
          Focused = False
          FocusedColor = clBlack
          Group = 1
          BitBtn.MaterialLibrary = GLMaterialLibrary1
          BitBtn.LibMaterialName = 'Brush'
          Pressed = False
          OnButtonClick = BrushButtonButtonClick
          GuiLayoutNamePressed = 'buttonpressed'
          LogicWidth = 32
          LogicHeight = 34
          YOffset = 1
          AllowUp = True
        end
        object GLPanel1: TGLPanel
          RedrawAtOnce = False
          GuiLayout = GLGuiLayout1
          GuiLayoutName = 'button'
          NoZWrite = False
          Width = 280
          Height = 214
          Left = 110
          Top = 176
          Position.Coordinates = {0000DC4200003043000000000000803F}
          object GLCanvas: TGLCustomControl
            RedrawAtOnce = False
            GuiLayout = GLGuiLayout1
            GuiLayoutName = 'button'
            NoZWrite = False
            Width = 274
            Height = 208
            Left = 113
            Top = 179
            Position.Coordinates = {0000E24200003343000000000000803F}
            OnMouseDown = GLCanvasMouseDown
            OnMouseMove = GLCanvasMouseMove
            OnMouseUp = GLCanvasMouseUp
            OnAcceptMouseQuery = GLCanvasAcceptMouseQuery
            BitmapFont = WindowsBitmapFont1
            DefaultColor = clBlack
            Focused = False
            FocusedColor = clBlack
            OnRender = GLCanvasRender
            MaxInvalidRenderCount = 0
          end
        end
        object WhiteButton: TGLButton
          RedrawAtOnce = False
          GuiLayout = GLGuiLayout1
          GuiLayoutName = 'button'
          NoZWrite = False
          Width = 20
          Height = 20
          Left = 190
          Top = 132
          Position.Coordinates = {00003E4300000443000000000000803F}
          BitmapFont = WindowsBitmapFont1
          DefaultColor = clBlack
          Focused = False
          FocusedColor = clBlack
          Group = 2
          BitBtn.MaterialLibrary = GLMaterialLibrary1
          BitBtn.LibMaterialName = 'White'
          Pressed = False
          OnButtonClick = WhiteButtonButtonClick
          GuiLayoutNamePressed = 'buttonpressed'
          LogicWidth = 13
          LogicHeight = 10
          AllowUp = True
        end
        object BlackButton: TGLButton
          RedrawAtOnce = False
          GuiLayout = GLGuiLayout1
          GuiLayoutName = 'button'
          NoZWrite = False
          Width = 20
          Height = 20
          Left = 210
          Top = 132
          Position.Coordinates = {0000524300000443000000000000803F}
          BitmapFont = WindowsBitmapFont1
          DefaultColor = clBlack
          Focused = False
          FocusedColor = clBlack
          Group = 2
          BitBtn.MaterialLibrary = GLMaterialLibrary1
          BitBtn.LibMaterialName = 'Black'
          Pressed = True
          OnButtonClick = BlackButtonButtonClick
          GuiLayoutNamePressed = 'buttonpressed'
          LogicWidth = 13
          LogicHeight = 10
          AllowUp = True
        end
        object RedButton: TGLButton
          RedrawAtOnce = False
          GuiLayout = GLGuiLayout1
          GuiLayoutName = 'button'
          NoZWrite = False
          Width = 20
          Height = 20
          Left = 230
          Top = 132
          Position.Coordinates = {0000664300000443000000000000803F}
          BitmapFont = WindowsBitmapFont1
          DefaultColor = clBlack
          Focused = False
          FocusedColor = clBlack
          Group = 2
          BitBtn.MaterialLibrary = GLMaterialLibrary1
          BitBtn.LibMaterialName = 'Red'
          Pressed = False
          OnButtonClick = RedButtonButtonClick
          GuiLayoutNamePressed = 'buttonpressed'
          LogicWidth = 13
          LogicHeight = 10
          AllowUp = True
        end
        object GreenButton: TGLButton
          RedrawAtOnce = False
          GuiLayout = GLGuiLayout1
          GuiLayoutName = 'button'
          NoZWrite = False
          Width = 20
          Height = 20
          Left = 250
          Top = 132
          Position.Coordinates = {00007A4300000443000000000000803F}
          BitmapFont = WindowsBitmapFont1
          DefaultColor = clBlack
          Focused = False
          FocusedColor = clBlack
          Group = 2
          BitBtn.MaterialLibrary = GLMaterialLibrary1
          BitBtn.LibMaterialName = 'Green'
          Pressed = False
          OnButtonClick = GreenButtonButtonClick
          GuiLayoutNamePressed = 'buttonpressed'
          LogicWidth = 13
          LogicHeight = 10
          AllowUp = True
        end
        object BlueButton: TGLButton
          RedrawAtOnce = False
          GuiLayout = GLGuiLayout1
          GuiLayoutName = 'button'
          NoZWrite = False
          Width = 20
          Height = 20
          Left = 270
          Top = 132
          Position.Coordinates = {0000874300000443000000000000803F}
          BitmapFont = WindowsBitmapFont1
          DefaultColor = clBlack
          Focused = False
          FocusedColor = clBlack
          Group = 2
          BitBtn.MaterialLibrary = GLMaterialLibrary1
          BitBtn.LibMaterialName = 'Blue'
          Pressed = False
          OnButtonClick = BlueButtonButtonClick
          GuiLayoutNamePressed = 'buttonpressed'
          LogicWidth = 13
          LogicHeight = 10
          AllowUp = True
        end
      end
    end
    object GLCamera1: TGLCamera
      DepthOfView = 100
      FocalLength = 50
      Position.Coordinates = {0000A04000004040000080400000803F}
      Left = 240
      Top = 152
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    OnProgress = GLCadencer1Progress
    Left = 16
    Top = 48
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 16
    Top = 80
  end
  object WindowsBitmapFont1: TGLWindowsBitmapFont
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 56
    Top = 48
  end
  object MainMenu1: TMainMenu
    Left = 112
    Top = 48
    object File1: TMenuItem
      Caption = '&File'
      object Open1: TMenuItem
        Caption = '&Open'
        OnClick = Open1Click
      end
      object Save1: TMenuItem
        Caption = '&Save'
        OnClick = Save1Click
      end
    end
    object Font1: TMenuItem
      Caption = 'Font'
      object WindowsFont1: TMenuItem
        Caption = 'Set New Font'
        OnClick = WindowsFont1Click
      end
    end
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 112
    Top = 16
  end
  object GLGuiLayout1: TGLGuiLayout
    BitmapFont = WindowsBitmapFont1
    Material.MaterialLibrary = GLMaterialLibrary1
    Material.LibMaterialName = 'Gui'
    GuiComponents = <
      item
        Elements = <
          item
            TopLeft.Coordinates = {00004041000084420000000000000000}
            BottomRight.Coordinates = {000018420000B8420000000000000000}
            Scale.Coordinates = {0000803F0000803F0000000000000000}
            Align = GLAlCenter
            Name = 'center1'
          end
          item
            TopLeft.Coordinates = {00000000000000000000000000000000}
            BottomRight.Coordinates = {000088410000F0410000000000000000}
            Scale.Coordinates = {0000803F0000803F0000000000000000}
            Align = GLAlTopLeft
            Name = 'TopLeft1'
          end
          item
            TopLeft.Coordinates = {00008841000000000000000000000000}
            BottomRight.Coordinates = {0000E0420000F0410000000000000000}
            Scale.Coordinates = {0000803F0000803F0000000000000000}
            Align = GLAlTop
            Name = 'Top1'
          end
          item
            TopLeft.Coordinates = {000000000000F8410000000000000000}
            BottomRight.Coordinates = {000000410000DA420000000000000000}
            Scale.Coordinates = {0000803F0000803F0000000000000000}
            Align = GLAlLeft
            Name = 'Left1'
          end
          item
            TopLeft.Coordinates = {0000E042000000000000000000000000}