1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
object frmScreenshot: TfrmScreenshot
Left = 291
Height = 240
Top = 152
Width = 320
Caption = 'Screenshot Test'
ClientHeight = 240
ClientWidth = 320
LCLVersion = '0.9.31'
object imgScreenshot: TImage
Left = 0
Height = 176
Top = 64
Width = 320
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
end
object btnScreenshot: TBitBtn
Left = 17
Height = 30
Top = 15
Width = 143
Caption = 'Take Screenshot'
OnClick = btnScreenshotClick
TabOrder = 0
end
end
|
