object MainForm: TMainForm Left = 1064 Top = 470 Width = 527 Height = 485 Caption = 'Test Building' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object lbl: TLabel Left = 44 Top = 28 Width = 23 Height = 13 Caption = 'state' end object TLabel Left = 32 Top = 56 Width = 36 Height = 13 Caption = 'building' end object TLabel Left = 32 Top = 84 Width = 20 Height = 13 Caption = 'floor' end object TLabel Left = 32 Top = 112 Width = 19 Height = 13 Caption = 'strip' end object DomeColor: TShape Left = 304 Top = 80 Width = 37 Height = 21 Brush.Color = 4227327 OnMouseDown = DomeColorMouseDown end object RoomColor2: TShape Left = 304 Top = 52 Width = 37 Height = 21 Brush.Color = 8454016 OnMouseDown = RoomColor2MouseDown end object RoomColor1: TShape Left = 304 Top = 24 Width = 37 Height = 21 Brush.Color = 16744448 OnMouseDown = RoomColor1MouseDown end object RoomLabel1: TLabel Left = 264 Top = 28 Width = 32 Height = 13 Caption = 'color 1' end object RoomLabel2: TLabel Left = 264 Top = 56 Width = 32 Height = 13 Caption = 'color 2' end object DomeLabel: TLabel Left = 264 Top = 84 Width = 26 Height = 13 Caption = 'dome' end object Label1: TLabel Left = 292 Top = 348 Width = 45 Height = 13 Caption = 'IP Adress' end object Port: TLabel Left = 320 Top = 372 Width = 19 Height = 13 Caption = 'Port' end object SetBuilding: TButton Left = 164 Top = 52 Width = 75 Height = 21 Caption = 'Set building' TabOrder = 5 OnClick = SetBuildingClick end object ExitButton: TButton Left = 16 Top = 400 Width = 75 Height = 25 Cancel = True Caption = 'E&xit' TabOrder = 34 OnClick = ExitButtonClick end object State: TUpDown Left = 133 Top = 24 Width = 16 Height = 21 Associate = Edit1 Max = 10 Position = 1 TabOrder = 1 end object Edit1: TEdit Left = 76 Top = 24 Width = 57 Height = 21 TabOrder = 0 Text = '1' end object Building: TUpDown Left = 133 Top = 52 Width = 16 Height = 21 Associate = Edit2 Max = 10 TabOrder = 4 end object Edit2: TEdit Left = 76 Top = 52 Width = 57 Height = 21 TabOrder = 3 Text = '0' end object SetFloor: TButton Left = 164 Top = 80 Width = 75 Height = 21 Caption = 'Set floor' TabOrder = 8 OnClick = SetFloorClick end object Floor: TUpDown Left = 133 Top = 80 Width = 16 Height = 21 Associate = Edit3 Max = 30 TabOrder = 7 end object Edit3: TEdit Left = 76 Top = 80 Width = 57 Height = 21 TabOrder = 6 Text = '0' end object SetRoom: TButton Left = 164 Top = 108 Width = 75 Height = 21 Caption = 'Set room' TabOrder = 11 OnClick = SetRoomClick end object Strip: TUpDown Left = 133 Top = 108 Width = 16 Height = 21 Associate = Edit4 Max = 10 TabOrder = 10 end object Edit4: TEdit Left = 76 Top = 108 Width = 57 Height = 21 TabOrder = 9 Text = '0' end object DomeOn: TButton Left = 164 Top = 148 Width = 75 Height = 21 Caption = 'DomeOn' TabOrder = 15 OnClick = DomeOnClick end object DomeOff: TButton Left = 244 Top = 148 Width = 75 Height = 21 Caption = 'DomeOff' TabOrder = 16 OnClick = DomeOffClick end object BuildingsOn: TButton Left = 164 Top = 176 Width = 75 Height = 21 Caption = 'BuildingsOn' TabOrder = 18 OnClick = BuildingsOnClick end object BuildingsOff: TButton Left = 244 Top = 176 Width = 75 Height = 21 Caption = 'BuildingsOff' TabOrder = 19 OnClick = BuildingsOffClick end object StreetOn: TButton Left = 164 Top = 204 Width = 75 Height = 21 Caption = 'StreetOn' TabOrder = 21 OnClick = StreetOnClick end object StreetOff: TButton Left = 244 Top = 204 Width = 75 Height = 21 Caption = 'StreetOff' TabOrder = 22 OnClick = StreetOffClick end object OfficeOn: TButton Left = 164 Top = 232 Width = 75 Height = 21 Caption = 'OfficeOn' TabOrder = 24 OnClick = OfficeOnClick end object OfficeOff: TButton Left = 244 Top = 232 Width = 75 Height = 21 Caption = 'OfficeOff' TabOrder = 25 OnClick = OfficeOffClick end object AutoMode: TButton Left = 164 Top = 280 Width = 75 Height = 21 Caption = 'Auto mode' TabOrder = 31 OnClick = AutoModeClick end object SetAll: TButton Left = 164 Top = 24 Width = 75 Height = 21 Caption = 'Set all' TabOrder = 2 OnClick = SetAllClick end object StaticMode: TButton Left = 244 Top = 280 Width = 75 Height = 21 Caption = 'Static mode' TabOrder = 32 OnClick = StaticModeClick end object Dome: TCheckBox Left = 60 Top = 280 Width = 97 Height = 17 Caption = 'Dome' TabOrder = 27 end object Buildings: TCheckBox Left = 60 Top = 300 Width = 97 Height = 17 Caption = 'Buildings' TabOrder = 28 end object Street: TCheckBox Left = 60 Top = 320 Width = 97 Height = 17 Caption = 'Street' TabOrder = 29 end object Office: TCheckBox Left = 60 Top = 340 Width = 97 Height = 17 Caption = 'Office' TabOrder = 30 end object Auto: TButton Left = 204 Top = 316 Width = 75 Height = 21 Caption = 'Auto' TabOrder = 33 OnClick = AutoClick end object DomeAuto: TButton Left = 324 Top = 148 Width = 75 Height = 21 Caption = 'DomeAuto' TabOrder = 17 OnClick = DomeAutoClick end object BuildingsAuto: TButton Left = 324 Top = 176 Width = 75 Height = 21 Caption = 'BuildingsAuto' TabOrder = 20 OnClick = BuildingsAutoClick end object StreetAuto: TButton Left = 324 Top = 204 Width = 75 Height = 21 Caption = 'StreetAuto' TabOrder = 23 OnClick = StreetAutoClick end object OfficeAuto: TButton Left = 324 Top = 232 Width = 75 Height = 21 Caption = 'OfficeAuto' TabOrder = 26 OnClick = OfficeAutoClick end object RoomEdit1: TEdit Left = 348 Top = 24 Width = 121 Height = 21 TabOrder = 12 OnContextPopup = EditCopy end object RoomEdit2: TEdit Left = 348 Top = 52 Width = 121 Height = 21 TabOrder = 13 OnContextPopup = EditCopy end object DomeEdit: TEdit Left = 348 Top = 80 Width = 121 Height = 21 TabOrder = 14 OnContextPopup = EditCopy end object IP: TEdit Left = 348 Top = 344 Width = 121 Height = 21 TabOrder = 35 Text = '192.168.30.177' end object MyPort: TEdit Left = 348 Top = 368 Width = 121 Height = 21 TabOrder = 36 Text = '1201' end object Clear: TButton Left = 248 Top = 108 Width = 37 Height = 21 Caption = 'Clear' TabOrder = 37 OnClick = ClearClick end object Reconnect: TButton Left = 348 Top = 400 Width = 75 Height = 25 Caption = 'Reconnect' TabOrder = 38 OnClick = ReconnectClick end object Timer: TTimer Interval = 15000 OnTimer = TimerTimer Left = 136 Top = 400 end object Socket: TTcpClient Left = 244 Top = 352 end end