unitroom.dfm

自己做过的工程

    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 13
    OnClick = room504Click
  end
  object room509: TPanel
    Left = 308
    Top = 106
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8509'
    Color = clCaptionText
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 14
    OnClick = room509Click
  end
  object room601: TPanel
    Left = 409
    Top = 50
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8602'
    Color = clCaptionText
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 15
    OnClick = room601Click
  end
  object room606: TPanel
    Left = 409
    Top = 329
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8612'
    Color = clCaptionText
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 16
    OnClick = room606Click
  end
  object room408: TPanel
    Left = 112
    Top = 50
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8408'
    Color = clCaptionText
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 17
    OnClick = room408Click
  end
  object room413: TPanel
    Left = 112
    Top = 329
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8418'
    Color = clCaptionText
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 18
    OnClick = room413Click
  end
  object room505: TPanel
    Left = 208
    Top = 273
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8505'
    Color = clCaptionText
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 19
    OnClick = room505Click
  end
  object room510: TPanel
    Left = 308
    Top = 162
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8510'
    Color = clCaptionText
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 20
    OnClick = room510Click
  end
  object room602: TPanel
    Left = 409
    Top = 106
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8604'
    Color = clCaptionText
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 21
    OnClick = room602Click
  end
  object room409: TPanel
    Left = 112
    Top = 106
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8409'
    Color = clCaptionText
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 22
    OnClick = room409Click
  end
  object room501: TPanel
    Left = 208
    Top = 50
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8501'
    Color = clCaptionText
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 23
    OnClick = room501Click
  end
  object room506: TPanel
    Left = 208
    Top = 329
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8506'
    Color = clCaptionText
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 24
    OnClick = room506Click
  end
  object room511: TPanel
    Left = 308
    Top = 218
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8512'
    Color = clCaptionText
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 25
    OnClick = room511Click
  end
  object room603: TPanel
    Left = 409
    Top = 162
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8606'
    Color = clCaptionText
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 26
    OnClick = room603Click
  end
  object room410: TPanel
    Left = 112
    Top = 162
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8410'
    Color = clCaptionText
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS PMincho'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 27
    OnClick = room410Click
  end
  object room502: TPanel
    Left = 208
    Top = 106
    Width = 65
    Height = 41
    BevelInner = bvLowered