unit1.dfm

一个delphi画图板的例子源码

object Form1: TForm1
  Left = 156
  Top = 209
  Width = 697
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 689
    Height = 29
    ButtonHeight = 21
    ButtonWidth = 55
    Caption = 'ToolBar1'
    Flat = True
    ShowCaptions = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Caption = #22635#20805
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 55
      Top = 0
      Caption = #26354#32447
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 110
      Top = 0
      Caption = #30697#24418
      ImageIndex = 2
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 165
      Top = 0
      Caption = #22278#24418
      ImageIndex = 3
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 220
      Top = 0
      Caption = #30011#32447#39068#33394
      ImageIndex = 4
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 275
      Top = 0
      Caption = #22635#20805#39068#33394
      ImageIndex = 5
      OnClick = ToolButton6Click
    end
    object ToolButton7: TToolButton
      Left = 330
      Top = 0
      Caption = #27880#37322
      ImageIndex = 6
      OnClick = ToolButton7Click
    end
    object ToolButton8: TToolButton
      Left = 385
      Top = 0
      Caption = #22270#24418
      ImageIndex = 7
      OnClick = ToolButton8Click
    end
    object ToolButton9: TToolButton
      Left = 440
      Top = 0
      Caption = #28165#38500#22270#35937
      ImageIndex = 8
      OnClick = ToolButton9Click
    end
    object Label1: TLabel
      Left = 495
      Top = 0
      Width = 60
      Height = 21
      Caption = #27880#37322#31867#22411#65306
    end
    object ComboBox1: TComboBox
      Left = 555
      Top = 0
      Width = 78
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      OnChange = ComboBox1Change
      Items.Strings = (
        #22235#26041#22411
        #24102#25351#21521#28857)
    end
  end
  object PaintPanel: TPaintPanel
    Left = 0
    Top = 29
    Width = 689
    Height = 405
    Align = alClient
    FillColor = clBlack
    DrawClass = dcGraph
    Color = clBlack
    GraphClass = gcLine
  end
  object MainMenu1: TMainMenu
    Left = 208
    Top = 48
    object N1: TMenuItem
      Caption = #25991#20214
      object N2: TMenuItem
        Caption = #26032#24314#25991#20214
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object N6: TMenuItem
        Caption = #25171#24320#25991#20214
        OnClick = N6Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object PX1: TMenuItem
        Caption = #20445#23384#20026'PX'#25991#20214
        OnClick = PX1Click
      end
      object N3: TMenuItem
        Caption = #20445#23384#20026#22270#24418#25991#20214
        OnClick = N3Click
      end
      object N4: TMenuItem
        Caption = #36864#20986
        OnClick = N4Click
      end
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.PX'
    Filter = '*.PX|*.PX|*.*|*.*'
    Left = 280
    Top = 56
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.px'
    Filter = '*.PX|*.PX|*.*|*.*'
    Left = 496
    Top = 48
  end
  object ColorDialog1: TColorDialog
    Left = 408
    Top = 40
  end
end