unit1.dfm

这是个可以划出不同几何图形的程序

object Form1: TForm1
  Left = 164
  Top = 128
  Width = 506
  Height = 429
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 177
    Height = 402
    Align = alLeft
    BevelOuter = bvLowered
    TabOrder = 0
    object RGroup: TRadioGroup
      Left = 1
      Top = 1
      Width = 175
      Height = 168
      Align = alTop
      Caption = 'Items'
      Columns = 2
      Ctl3D = False
      ItemIndex = 0
      Items.Strings = (
        '     none'
        'SingleLine'
        'Rectangle'
        'SArrow'
        'Cylinder'
        'Diamond'
        'Echelon'
        'Ellipse'
        'Triangle')
      ParentCtl3D = False
      TabOrder = 0
    end
    object Panel5: TPanel
      Left = 1
      Top = 169
      Width = 175
      Height = 232
      Align = alClient
      BevelInner = bvLowered
      TabOrder = 1
      object GroupBox1: TGroupBox
        Left = 2
        Top = 2
        Width = 171
        Height = 63
        Align = alTop
        Caption = 'Brush'
        TabOrder = 0
        object CheckBox1: TCheckBox
          Left = 8
          Top = 40
          Width = 137
          Height = 17
          Caption = 'Transparent'
          Checked = True
          State = cbChecked
          TabOrder = 0
        end
        object CBBrush: TColorBox
          Left = 8
          Top = 16
          Width = 145
          Height = 22
          Selected = clLime
          ItemHeight = 16
          TabOrder = 1
          OnChange = CBBrushChange
        end
      end
      object GroupBox2: TGroupBox
        Left = 2
        Top = 65
        Width = 171
        Height = 80
        Align = alTop
        Caption = 'Pen'
        TabOrder = 1
        object CBPen: TColorBox
          Left = 8
          Top = 16
          Width = 145
          Height = 22
          ItemHeight = 16
          TabOrder = 0
          OnChange = CBBrushChange
        end
        object CBPenWidth: TComboBox
          Left = 8
          Top = 48
          Width = 145
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 1
          Text = '1'
          OnChange = CBBrushChange
          Items.Strings = (
            '1'
            '1'
            '2'
            '3'
            '4')
        end
      end
      object Button1: TButton
        Left = 40
        Top = 159
        Width = 75
        Height = 25
        Caption = 'Add'
        TabOrder = 2
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 40
        Top = 191
        Width = 75
        Height = 25
        Caption = 'Delete'
        TabOrder = 3
        OnClick = Button2Click
      end
    end
  end
  object Panel2: TPanel
    Left = 177
    Top = 0
    Width = 321
    Height = 402
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 1
  end
end