UfrmCapture.dfm
上传用户:hndmjx
上传日期:2014-09-16
资源大小:3369k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. object frmCapture: TfrmCapture
  2.   Left = 279
  3.   Top = 314
  4.   BorderStyle = bsNone
  5.   Caption = 'frmCapture'
  6.   ClientHeight = 439
  7.   ClientWidth = 688
  8.   Color = clBlack
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object imgScreenshot: TImage
  18.     Left = 0
  19.     Top = 0
  20.     Width = 688
  21.     Height = 439
  22.     Align = alClient
  23.     Center = True
  24.     Proportional = True
  25.     OnMouseDown = imgScreenshotMouseDown
  26.     OnMouseMove = imgScreenshotMouseMove
  27.   end
  28.   object Label1: TLabel
  29.     Left = 8
  30.     Top = 0
  31.     Width = 36
  32.     Height = 24
  33.     Caption = 'Exit'
  34.     Font.Charset = DEFAULT_CHARSET
  35.     Font.Color = clRed
  36.     Font.Height = -19
  37.     Font.Name = 'MS Sans Serif'
  38.     Font.Style = [fsBold]
  39.     ParentFont = False
  40.     Transparent = True
  41.     OnClick = Label1Click
  42.   end
  43.   object Timer1: TTimer
  44.     Enabled = False
  45.     OnTimer = Timer1Timer
  46.     Left = 616
  47.     Top = 376
  48.   end
  49. end