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 = '2.3.0.0' object Panel1: TPanel Left = 0 Height = 262 Top = 0 Width = 400 Align = alClient BevelOuter = bvNone TabOrder = 0 end object Panel2: TPanel Left = 0 Height = 38 Top = 262 Width = 400 Align = alBottom AutoSize = True BevelOuter = bvNone ClientHeight = 38 ClientWidth = 400 TabOrder = 1 object Label1: TLabel AnchorSideLeft.Control = Panel2 AnchorSideTop.Control = ComboBox1 AnchorSideTop.Side = asrCenter Left = 4 Height = 21 Top = 9 Width = 171 BorderSpacing.Left = 4 Caption = 'Sprite movement by...' end object ComboBox1: TComboBox AnchorSideLeft.Control = Label1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Panel2 AnchorSideTop.Side = asrCenter AnchorSideRight.Control = Panel2 AnchorSideRight.Side = asrBottom Left = 183 Height = 29 Top = 5 Width = 213 Anchors = [akTop, akLeft, akRight] ArrowKeysTraverseList = False BorderSpacing.Left = 8 BorderSpacing.Top = 4 BorderSpacing.Right = 4 BorderSpacing.Bottom = 4 ItemHeight = 0 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