Examples/Demos/interface/SimpleNavigation/fSimpleNaviD.dfm - master - stud_22-365/GLXEngine

Examples/Demos/interface/SimpleNavigation/fSimpleNaviD.dfm

74 строки2 KB

GLScene

Upgraded transparancyadv sample and fixed physics dpk installation

07 янв 2023, 01:57

07 янв 2023, 01:572546c59

object FormSimpleNavigation: TFormSimpleNavigation
  Left = 326
  Top = 126
  Caption = 'Simple Navigation'
  ClientHeight = 357
  ClientWidth = 514
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  TextHeight = 13
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 514
    Height = 357
    Camera = GLCamera1
    Buffer.BackgroundColor = clBackground
    FieldOfView = 148.703598022460900000
    PenAsTouch = False
    Align = alClient
    TabOrder = 0
    ExplicitWidth = 492
    ExplicitHeight = 338
  end
  object GLScene1: TGLScene
    Left = 48
    Top = 24
    object GLLightSource1: TGLLightSource
      ConstAttenuation = 1.000000000000000000
      Position.Coordinates = {000020410000A0410000C8420000803F}
      SpotCutOff = 180.000000000000000000
    end
    object GLCamera1: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      TargetObject = GLCube1
      Position.Coordinates = {000080400000A0400000C0400000803F}
    end
    object GLCube1: TGLCube
      Material.FrontProperties.Ambient.Color = {D5D4543EBDBC3C3FA7A6263F0000803F}
      Scale.Coordinates = {00000040000000400000004000000000}
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    OnProgress = GLCadencer1Progress
    Left = 128
    Top = 24
  end
  object GLSimpleNavigation1: TGLSimpleNavigation
    Form = Owner
    GLSceneViewer = GLSceneViewer1
    FormCaption = 'Simple Navigation - %FPS'
    KeyCombinations = <
      item
        ShiftState = [ssLeft, ssRight]
        Action = snaZoom
      end
      item
        ShiftState = [ssLeft]
        Action = snaMoveAroundTarget
      end
      item
        ShiftState = [ssRight]
        Action = snaMoveAroundTarget
      end>
    Left = 232
    Top = 24
  end
end