unit2.dfm

由DELPHI制作的可以直接抓取屏幕,并在上面写字绘图的一个软件,请指正.

object Form2: TForm2
  Left = 390
  Top = 120
  BorderStyle = bsNone
  Caption = 'Form2'
  ClientHeight = 602
  ClientWidth = 555
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 555
    Height = 602
    Align = alClient
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Panel1: TPanel
    Left = 216
    Top = 118
    Width = 241
    Height = 171
    TabOrder = 0
    Visible = False
    object BitBtn1: TBitBtn
      Left = 208
      Top = 136
      Width = 19
      Height = 17
      Caption = 'X'
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object GroupBox1: TGroupBox
      Left = 8
      Top = 8
      Width = 145
      Height = 153
      Caption = #21442#25968#35774#32622#65306
      TabOrder = 1
      object Label1: TLabel
        Left = 5
        Top = 23
        Width = 36
        Height = 13
        Caption = #31895#32454#65306
      end
      object Label2: TLabel
        Left = 5
        Top = 42
        Width = 36
        Height = 13
        Caption = #39068#33394#65306
      end
      object SpinEdit1: TSpinEdit
        Left = 41
        Top = 20
        Width = 41
        Height = 22
        MaxValue = 20
        MinValue = 1
        TabOrder = 0
        Value = 3
      end
      object ColorGrid1: TColorGrid
        Left = 40
        Top = 45
        Width = 100
        Height = 100
        TabOrder = 1
        OnClick = ColorGrid1Click
      end
      object Edit2: TEdit
        Left = 7
        Top = 60
        Width = 25
        Height = 77
        BevelKind = bkFlat
        BevelOuter = bvRaised
        BorderStyle = bsNone
        Color = clRed
        Ctl3D = True
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 2
      end
    end
    object GroupBox2: TGroupBox
      Left = 160
      Top = 8
      Width = 73
      Height = 113
      Caption = #38085#31508#35774#32622#65306
      TabOrder = 2
      object RadioButton1: TRadioButton
        Left = 8
        Top = 24
        Width = 49
        Height = 17
        Caption = #38085#31508
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object RadioButton2: TRadioButton
        Left = 8
        Top = 48
        Width = 49
        Height = 17
        Caption = #30697#24418
        TabOrder = 1
      end
      object RadioButton3: TRadioButton
        Left = 8
        Top = 80
        Width = 49
        Height = 17
        Caption = #22278#24418
        TabOrder = 2
      end
    end
  end
  object Panel2: TPanel
    Left = 32
    Top = 144
    Width = 121
    Height = 257
    Caption = 'Panel2'
    TabOrder = 1
    Visible = False
    object Edit1: TEdit
      Left = 0
      Top = 1
      Width = 121
      Height = 19
      BevelInner = bvNone
      BevelKind = bkFlat
      BevelOuter = bvNone
      Color = clInactiveCaptionText
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      OnKeyPress = Edit1KeyPress
    end
    object ListBox1: TListBox
      Left = 0
      Top = 21
      Width = 121
      Height = 236
      BevelInner = bvNone
      Ctl3D = False
      ItemHeight = 13
      ParentCtl3D = False
      TabOrder = 1
      OnClick = ListBox1Click
    end
  end
  object Memo1: TMemo
    Left = 56
    Top = 432
    Width = 185
    Height = 33
    TabOrder = 2
    Visible = False
  end
end