unit1.dfm

《Delphi7编程100例》代码,书配资料

object Form1: TForm1
  Left = 179
  Top = 74
  Width = 446
  Height = 424
  Caption = #20116#23376#26827
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 8
    Width = 433
    Height = 385
    BevelInner = bvRaised
    BevelOuter = bvLowered
    BevelWidth = 2
    BorderWidth = 2
    BorderStyle = bsSingle
    Caption = 'Panel1'
    TabOrder = 0
    object DrawGrid1: TDrawGrid
      Left = 8
      Top = 8
      Width = 409
      Height = 361
      ColCount = 19
      DefaultColWidth = 20
      DefaultRowHeight = 20
      DefaultDrawing = False
      FixedCols = 0
      RowCount = 19
      FixedRows = 0
      ScrollBars = ssNone
      TabOrder = 0
      OnDrawCell = DrawGrid1DrawCell
      OnMouseDown = DrawGrid1MouseDown
    end
  end
end