showimgu.dfm

很不错的delphi 画失量图的delphi源代码

object ShowImgF: TShowImgF
  Left = 231
  Top = 148
  BorderStyle = bsDialog
  Caption = 'ShowImgF'
  ClientHeight = 460
  ClientWidth = 620
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 620
    Height = 460
    Align = alClient
    BevelOuter = bvLowered
    Color = clWhite
    TabOrder = 0
    object Image1: TImage
      Left = 1
      Top = 1
      Width = 467
      Height = 297
      AutoSize = True
    end
    object Label1: TLabel
      Left = 1
      Top = 1
      Width = 618
      Height = 458
      Hint = #21452#20987#21487#20851#38381#31383#21475
      Align = alClient
      AutoSize = False
      Color = clWhite
      ParentColor = False
      ParentShowHint = False
      ShowHint = True
      Transparent = True
      OnDblClick = Label1DblClick
      OnMouseDown = Label1MouseDown
      OnMouseMove = Label1MouseMove
      OnMouseUp = Label1MouseUp
    end
  end
end