📄 unit_capscr.dfm
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -