object PlayGroundForm: TPlayGroundForm Left = 305 Height = 300 Top = 224 Width = 400 HorzScrollBar.Page = 399 VertScrollBar.Page = 299 Caption = 'PlayGroundForm' ClientHeight = 300 ClientWidth = 400 KeyPreview = True OnClose = PlayGroundFormClose OnCreate = PlayGroundFormCreate OnDestroy = PlayGroundFormDestroy LCLVersion = '1.9.0.0' object Panel1: TPanel Left = 0 Height = 268 Top = 0 Width = 400 Align = alClient BevelOuter = bvNone TabOrder = 0 end object Panel2: TPanel Left = 0 Height = 32 Top = 268 Width = 400 Align = alBottom AutoSize = True BevelOuter = bvNone ClientHeight = 32 ClientWidth = 400 TabOrder = 1 object Label1: TLabel AnchorSideLeft.Control = Panel2 AnchorSideTop.Control = ComboBox1 AnchorSideTop.Side = asrCenter Left = 4 Height = 15 Top = 9 Width = 116 BorderSpacing.Left = 4 Caption = 'Sprite movement by...' ParentColor = False end object ComboBox1: TComboBox AnchorSideLeft.Control = Label1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Panel2 AnchorSideTop.Side = asrCenter AnchorSideRight.Control = Panel2 AnchorSideRight.Side = asrBottom Left = 128 Height = 23 Top = 5 Width = 268 Anchors = [akTop, akLeft, akRight] ArrowKeysTraverseList = False BorderSpacing.Left = 8 BorderSpacing.Top = 4 BorderSpacing.Right = 4 BorderSpacing.Bottom = 4 ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'code' 'mouse' 'arrow keys' 'arrow keys (smooth)' 'arrow keys with inertia' ) OnChange = ComboBox1Change Style = csDropDownList TabOrder = 0 Text = 'code' end end object Timer1: TTimer Enabled = False Interval = 40 OnTimer = Timer1Timer left = 164 top = 49 end end