unit1.dfm

画图应用程序

object Form1: TForm1
  Left = 187
  Top = 99
  Width = 581
  Height = 473
  Caption = #25105#30340#30011#22270#26495
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    573
    446)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 440
    Top = 168
    Width = 60
    Height = 13
    Anchors = [akRight, akBottom]
    Caption = #24038#38190#39068#33394#65306
  end
  object Label2: TLabel
    Left = 504
    Top = 168
    Width = 12
    Height = 13
    Anchors = [akRight, akBottom]
    Caption = #32418
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 440
    Top = 200
    Width = 60
    Height = 13
    Anchors = [akRight, akBottom]
    Caption = #21491#38190#39068#33394#65306
  end
  object Label4: TLabel
    Left = 504
    Top = 200
    Width = 12
    Height = 13
    Anchors = [akRight, akBottom]
    Caption = #34013
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 440
    Top = 256
    Width = 65
    Height = 13
    Anchors = [akRight, akBottom]
    AutoSize = False
    Caption = #32447#26465#31895#32454
  end
  object Button1: TButton
    Left = 440
    Top = 48
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #28165#31354#30011#22270#26495
    TabOrder = 0
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 16
    Top = 24
    Width = 402
    Height = 402
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelInner = bvLowered
    TabOrder = 1
    object PaintBox1: TPaintBox
      Left = 2
      Top = 2
      Width = 398
      Height = 398
      Align = alClient
      OnMouseDown = PaintBox1MouseDown
      OnMouseMove = PaintBox1MouseMove
      OnMouseUp = PaintBox1MouseUp
    end
  end
  object Button2: TButton
    Left = 440
    Top = 96
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #36864#20986
    TabOrder = 2
    OnClick = Button2Click
  end
  object Edit1: TEdit
    Left = 440
    Top = 280
    Width = 57
    Height = 21
    Anchors = [akRight, akBottom]
    ReadOnly = True
    TabOrder = 3
    Text = '1'
  end
  object UpDown1: TUpDown
    Left = 497
    Top = 280
    Width = 15
    Height = 21
    Anchors = [akRight, akBottom]
    Associate = Edit1
    Min = 1
    Max = 8
    Position = 1
    TabOrder = 4
    OnClick = UpDown1Click
  end
end