GDI/图象编程

开发平台：

Delphi

UnitFormCanvas.dfm：源码内容

							object FormCanvas: TFormCanvas
  Left = 395
  Top = 139
  BorderStyle = bsNone
  Caption = #30011#24067
  ClientHeight = 423
  ClientWidth = 664
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnShow = FormShow
  DesignSize = (
    664
    423)
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 664
    Height = 423
    Align = alClient
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Image2: TImage
    Left = 416
    Top = 0
    Width = 249
    Height = 177
    Anchors = [akTop, akRight]
  end
  object CursorColor: TShape
    Left = 3
    Top = 0
    Width = 6
    Height = 9
    Brush.Style = bsClear
    Enabled = False
    Pen.Mode = pmNot
    Shape = stCircle
  end
  object Imagecopy: TImage
    Left = 56
    Top = 112
    Width = 57
    Height = 33
  end
end

						