SibIntel1/model_test_app/Main.dfm

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