GLScene/Examples/Demos/movements/tweening/fTweeningD.dfm

object FormTweening: TFormTweening
  Left = 325
  Top = 237
  Margins.Left = 5
  Margins.Top = 5
  Margins.Right = 5
  Margins.Bottom = 5
  Caption = 'Tweener'
  ClientHeight = 1092
  ClientWidth = 1400
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -19
  Font.Name = 'Tahoma'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 168
  TextHeight = 23
  object GLSceneViewer1: TGLSceneViewer
    Left = 0
    Top = 226
    Width = 1400
    Height = 866
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Camera = GLCamera1
    Buffer.BackgroundColor = clMedGray
    Buffer.Lighting = False
    FieldOfView = 166.826065063476600000
    PenAsTouch = False
    Align = alClient
    OnMouseDown = GLSceneViewer1MouseDown
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1400
    Height = 226
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 1
    object Label2: TLabel
      Left = 11
      Top = 135
      Width = 149
      Height = 23
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = 'Time to run (ms):'
    end
    object Label1: TLabel
      Left = 292
      Top = 135
      Width = 149
      Height = 23
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = 'Time to run (ms):'
    end
    object Label3: TLabel
      Left = 602
      Top = 81
      Width = 492
      Height = 22
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      AutoSize = False
      Caption = '- Use CTRL + (Left/Right) mouse to move points A and B'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Tahoma'
      Font.Style = [fsItalic]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 602
      Top = 114
      Width = 618
      Height = 23
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      AutoSize = False
      Caption = 
        '- Note that tweening can be used for any data (Position, Color, ' +
        'etc.)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Tahoma'
      Font.Style = [fsItalic]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 602
      Top = 147
      Width = 618
      Height = 51
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      AutoSize = False
      Caption = 
        '- Note that tweening is time dependant (it will play at the same' +
        ' speed on different computers)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Tahoma'
      Font.Style = [fsItalic]
      ParentFont = False
      WordWrap = True
    end
    object Button1: TButton
      Left = 11
      Top = 28
      Width = 271
      Height = 44
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = 'Go to state A'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 292
      Top = 28
      Width = 272
      Height = 44
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = 'Go to state B'
      TabOrder = 1
      OnClick = Button2Click
    end
    object UseCurrentPosition: TCheckBox
      Left = 574
      Top = 35
      Width = 380
      Height = 30
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = 'Use current position as initial value'
      TabOrder = 2
    end
    object EaseTypeA: TComboBox
      Left = 11
      Top = 82
      Width = 271
      Height = 31
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Style = csDropDownList
      TabOrder = 3
    end
    object EaseTypeB: TComboBox
      Left = 292
      Top = 82
      Width = 272
      Height = 31
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Style = csDropDownList
      TabOrder = 4
    end
    object TimeA: TSpinEdit
      Left = 165
      Top = 130
      Width = 117
      Height = 34
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      MaxValue = 0
      MinValue = 0
      TabOrder = 5
      Value = 1000
    end
    object TimeB: TSpinEdit
      Left = 446
      Top = 130
      Width = 118
      Height = 34
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      MaxValue = 0
      MinValue = 0
      TabOrder = 6
      Value = 2000
    end
  end
  object GLScene1: TGLScene
    Left = 24
    Top = 146
    object GLCamera1: TGLCamera
      DepthOfView = 100.000000000000000000
      FocalLength = 50.000000000000000000
      CameraStyle = csOrtho2D
    end
    object GLPlane1: TGLPlane
      Material.FrontProperties.Diffuse.Color = {B1B0303EF9F8F83DC3C2423F0000803F}
      OnProgress = GLPlane1Progress
      Height = 50.000000000000000000
      Width = 50.000000000000000000
    end
    object PointA: TGLPoints
      Position.Coordinates = {0000164400009643000000000000803F}
      NoZWrite = False
      Static = False
      Size = 10.000000000000000000
      Style = psRound
      object GLFlatText1: TGLFlatText
        Position.Coordinates = {000000000000A041000000000000803F}
        BitmapFont = GLWindowsBitmapFont1
        Text = 'Point A'
        Alignment = taCenter
        Layout = tlCenter
        Options = []
      end
    end
    object PointB: TGLPoints
      Position.Coordinates = {0000484200004842000000000000803F}
      NoZWrite = False
      Static = False
      Size = 10.000000000000000000
      Style = psRound
      object GLFlatText2: TGLFlatText
        Position.Coordinates = {000000000000A041000000000000803F}
        BitmapFont = GLWindowsBitmapFont1
        Text = 'Point B'
        Alignment = taCenter
        Layout = tlCenter
        Options = []
      end
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    Left = 24
    Top = 226
  end
  object GLWindowsBitmapFont1: TGLWindowsBitmapFont
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Left = 160
    Top = 146
  end
end