unit_capscr.dfm

DELPHI7程序编写的游戏截图器 生成.EXE文件可以进行游戏截图

object Form1: TForm1
  Left = 305
  Top = 154
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'CaptureScreen'
  ClientHeight = 338
  ClientWidth = 542
  Color = clGray
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignSize = (
    542
    338)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 256
    Top = 318
    Width = 713
    Height = 13
    Alignment = taCenter
    Anchors = []
    AutoSize = False
    BiDiMode = bdRightToLeft
    Caption = #21046#20316#20154':'#29141#20891' '#23433#24509#24037#31243#31185#25216#23398#38498' '#20840#23616#28909#38190':PrintScreen/Ctrl+Alt+C '#31243#24207#29305#33394':'#25903#25345#23450#26102#25130#22270#21644#33258#21160#20445#23384
    Color = clGray
    Font.Charset = GB2312_CHARSET
    Font.Color = clYellow
    Font.Height = -13
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentBiDiMode = False
    ParentColor = False
    ParentFont = False
  end
  object ScrollBox1: TScrollBox
    Left = 8
    Top = 8
    Width = 390
    Height = 300
    Color = 15198183
    ParentColor = False
    TabOrder = 0
    object Image1: TImage
      Left = 0
      Top = 0
      Width = 370
      Height = 280
    end
  end
  object Panel1: TPanel
    Left = 408
    Top = 8
    Width = 129
    Height = 299
    BorderStyle = bsSingle
    Color = clGray
    TabOrder = 1
    object Button1: TButton
      Left = 30
      Top = 43
      Width = 75
      Height = 25
      Caption = #20840#23631#25130#22270
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 30
      Top = 101
      Width = 75
      Height = 25
      Caption = #20445#23384#22270#20687
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 30
      Top = 160
      Width = 75
      Height = 25
      Caption = #31243#24207#36873#39033
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 30
      Top = 219
      Width = 75
      Height = 25
      Caption = #20851#20110#31243#24207
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = Button4Click
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 50
    OnTimer = Timer1Timer
    Left = 408
    Top = 72
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'JPG'
    FileName = 'capscr.jpg'
    Filter = 'JPEG Image File (*.jpg)|*.jpg|Bitmaps (*.bmp)|*.bmp'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 408
    Top = 104
  end
  object Timer2: TTimer
    Interval = 30
    OnTimer = Timer2Timer
    Left = 408
    Top = 40
  end
  object Timer3: TTimer
    Enabled = False
    Interval = 60000
    OnTimer = Timer3Timer
    Left = 408
    Top = 136
  end
  object PopupMenu1: TPopupMenu
    Left = 408
    Top = 8
    object Option1: TMenuItem
      Caption = 'Option'
      OnClick = Option1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object About1: TMenuItem
      Caption = 'About'
      OnClick = About1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Exit1: TMenuItem
      Caption = 'Exit'
      OnClick = Exit1Click
    end
  end
end