object Form1: TForm1 Left = 1066 Height = 448 Top = 323 Width = 606 Caption = 'MMBN5-6M' ClientHeight = 448 ClientWidth = 606 Font.CharSet = ANSI_CHARSET Font.Height = -16 Font.Name = 'Liberation Mono' Font.Pitch = fpFixed Font.Quality = fqDraft OnClose = FormClose OnCreate = FormCreate Position = poScreenCenter LCLVersion = '2.2.6.0' object room_name_label: TLabel AnchorSideLeft.Control = start_stop_button AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Owner Left = 192 Height = 18 Top = 8 Width = 320 BorderSpacing.Left = 8 BorderSpacing.Top = 8 Caption = 'Run the game, then press "Start"' Color = clGradientInactiveCaption ParentColor = False Transparent = False end object map_image: TImage AnchorSideLeft.Control = room_name_label AnchorSideTop.Control = room_name_label AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 192 Height = 406 Top = 34 Width = 406 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Top = 8 BorderSpacing.Right = 8 BorderSpacing.Bottom = 8 Center = True OnPaint = map_imagePaint Proportional = True Stretch = True end object start_stop_button: TSpeedButton AnchorSideLeft.Control = Owner AnchorSideTop.Control = gamebox AnchorSideTop.Side = asrBottom Left = 8 Height = 30 Top = 40 Width = 176 AllowAllUp = True BorderSpacing.Left = 8 BorderSpacing.Top = 8 Caption = 'Start' GroupIndex = 1 Transparent = False OnClick = start_stop_buttonClick end object edit_room_button: TButton AnchorSideLeft.Control = Owner AnchorSideTop.Control = start_stop_button AnchorSideTop.Side = asrBottom AnchorSideRight.Control = map_image Left = 8 Height = 30 Top = 78 Width = 176 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Right = 8 Caption = 'Edit Room' OnClick = edit_room_buttonClick TabOrder = 0 end object spoils_listbox: TListBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = spoils_label AnchorSideTop.Side = asrBottom AnchorSideRight.Control = map_image AnchorSideBottom.Control = plus_spoil Left = 8 Height = 250 Top = 142 Width = 176 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Right = 8 BorderSpacing.Bottom = 8 BorderStyle = bsNone Color = clGradientInactiveCaption ItemHeight = 0 OnDblClick = spoils_listboxDblClick TabOrder = 1 end object spoils_label: TLabel AnchorSideLeft.Control = Owner AnchorSideTop.Control = edit_room_button AnchorSideTop.Side = asrBottom AnchorSideRight.Control = map_image Left = 8 Height = 18 Top = 116 Width = 176 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Right = 8 Caption = 'Spoils:' ParentColor = False end object plus_spoil: TButton AnchorSideLeft.Control = Owner AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 8 Height = 40 Top = 400 Width = 56 Anchors = [akLeft, akBottom] BorderSpacing.Left = 8 BorderSpacing.Bottom = 8 Caption = '+' OnClick = plus_spoilClick TabOrder = 2 end object minus_spoil1: TButton AnchorSideLeft.Control = plus_spoil AnchorSideLeft.Side = asrBottom AnchorSideRight.Control = map_image AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 72 Height = 40 Top = 400 Width = 112 Anchors = [akLeft, akRight, akBottom] BorderSpacing.Left = 8 BorderSpacing.Right = 8 BorderSpacing.Bottom = 8 Caption = '-' OnClick = minus_spoil1Click TabOrder = 3 end object map_stretch_checkbox: TCheckBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = spoils_listbox AnchorSideTop.Side = asrBottom AnchorSideRight.Control = map_image AnchorSideBottom.Control = plus_spoil Left = 8 Height = 22 Top = 370 Width = 176 Anchors = [akLeft, akRight, akBottom] BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Right = 8 BorderSpacing.Bottom = 8 Caption = 'Stretch' OnChange = map_stretch_checkboxChange TabOrder = 4 end object gamebox: TComboBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner AnchorSideRight.Control = start_stop_button AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = start_stop_button Left = 8 Height = 24 Top = 8 Width = 176 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Bottom = 8 ItemHeight = 18 ItemIndex = 0 Items.Strings = ( 'MMBN 5' 'MMBN 6' ) OnSelect = gameboxSelect ReadOnly = True Style = csOwnerDrawFixed TabOrder = 5 Text = 'MMBN 5' end object Timer1: TTimer Enabled = False OnTimer = Timer1Timer Left = 24 Top = 192 end end