unitroom.~dfm

自己做过的工程

object formroom: Tformroom
  Left = 67
  Top = 56
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = #23458#25151#31649#29702
  ClientHeight = 477
  ClientWidth = 672
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clRed
  Font.Height = -19
  Font.Name = 'MS PMincho'
  Font.Pitch = fpFixed
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  DesignSize = (
    672
    477)
  PixelsPerInch = 96
  TextHeight = 19
  object Label1: TLabel
    Left = 94
    Top = 448
    Width = 10
    Height = 19
  end
  object room401: TPanel
    Left = 16
    Top = 50
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8401'
    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 = 0
    OnClick = room401Click
  end
  object room402: TPanel
    Left = 16
    Top = 106
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8402'
    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 = 1
    OnClick = room402Click
  end
  object room403: TPanel
    Left = 16
    Top = 162
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8403'
    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 = 2
    OnClick = room403Click
  end
  object room404: TPanel
    Left = 16
    Top = 218
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8404'
    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 = 3
    OnClick = room404Click
  end
  object room405: TPanel
    Left = 16
    Top = 273
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8405'
    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 = 4
    OnClick = room405Click
  end
  object room406: TPanel
    Left = 16
    Top = 329
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8406'
    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 = 5
    OnClick = room406Click
  end
  object room411: TPanel
    Left = 112
    Top = 218
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8412'
    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 = 6
    OnClick = room411Click
  end
  object room503: TPanel
    Left = 208
    Top = 162
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8503'
    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 = 7
    OnClick = room503Click
  end
  object room508: TPanel
    Left = 308
    Top = 50
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8508'
    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 = 8
    OnClick = room508Click
  end
  object room513: TPanel
    Left = 308
    Top = 329
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8518'
    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 = 9
    OnClick = room513Click
  end
  object room605: TPanel
    Left = 409
    Top = 273
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8610'
    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 = 10
    OnClick = room605Click
  end
  object room407: TPanel
    Left = 16
    Top = 385
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8407'
    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 = 11
    OnClick = room407Click
  end
  object room412: TPanel
    Left = 112
    Top = 273
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8416'
    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 = 12
    OnClick = room412Click
  end
  object room504: TPanel
    Left = 208
    Top = 218
    Width = 65
    Height = 41
    BevelInner = bvLowered
    Caption = '8504'
    Color = clCaptionText