object Form1: TForm1
  Left = 252
  Top = 109
  Width = 410
  Height = 334
  HorzScrollBar.Range = 377
  HorzScrollBar.Visible = False
  VertScrollBar.Range = 249
  VertScrollBar.Visible = False
  ActiveControl = ScrollBar1
  AutoScroll = False
  Caption = 'Form1'
  Font.Color = clWindowText
  Font.Height = -21
  Font.Name = 'System'
  Font.Style = []
  Menu = MainMenu1
  PixelsPerInch = 120
  OnResize = FormResize
  TextHeight = 20
  object Shape1: TShape
    Left = 8
    Top = 8
    Width = 41
    Height = 33
    Brush.Color = clGreen
    Pen.Color = clAqua
    Shape = stEllipse
    IsControl = True
  end
  object ScrollBar1: TScrollBar
    Left = 0
    Top = 226
    Width = 353
    Height = 23
    TabOrder = 0
    OnChange = ScrollBar1Change
    IsControl = True
  end
  object ScrollBar2: TScrollBar
    Left = 352
    Top = -1
    Width = 25
    Height = 229
    Kind = sbVertical
    TabOrder = 1
    OnChange = ScrollBar2Change
    IsControl = True
  end
  object ColorDialog1: TColorDialog
    Left = 160
  end
  object MainMenu1: TMainMenu
    Left = 192
    object Shapes1: TMenuItem
      Caption = ''
      object ShapeColor1: TMenuItem
        Caption = ' '
        OnClick = ShapeColorClick
      end
      object FormColor1: TMenuItem
        Caption = ' '
        OnClick = FormColorClick
      end
    end
    object Shapes2: TMenuItem
      Caption = ''
      object Rectangle1: TMenuItem
        Caption = ''
        OnClick = NewShapeClick
      end
      object Square1: TMenuItem
        Tag = 1
        Caption = ''
        HelpContext = 1
        OnClick = NewShapeClick
      end
      object RoundRect1: TMenuItem
        Tag = 2
        Caption = ' '
        HelpContext = 2
        OnClick = NewShapeClick
      end
      object RoundSquare1: TMenuItem
        Tag = 3
        Caption = ' '
        HelpContext = 3
        OnClick = NewShapeClick
      end
      object Ellipes1: TMenuItem
        Tag = 4
        Caption = ''
        HelpContext = 4
        OnClick = NewShapeClick
      end
      object Circle1: TMenuItem
        Tag = 5
        Caption = ''
        HelpContext = 5
        OnClick = NewShapeClick
      end
    end
    object ExitItem: TMenuItem
      Caption = ''
      OnClick = ExitItemClick
    end
  end
end