e541f5c5df
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8112 8e941d3f-bd1b-0410-a28a-d453659cc2b4
96 lines
2.5 KiB
Plaintext
96 lines
2.5 KiB
Plaintext
object Form1: TForm1
|
|
Left = 285
|
|
Height = 280
|
|
Top = 131
|
|
Width = 600
|
|
AutoSize = True
|
|
Caption = 'CAPTCHA Demo'
|
|
ClientHeight = 280
|
|
ClientWidth = 600
|
|
Constraints.MinWidth = 600
|
|
OnActivate = FormActivate
|
|
OnCreate = FormCreate
|
|
ShowHint = True
|
|
LCLVersion = '2.3.0.0'
|
|
object Captcha1: TCaptchaLabel
|
|
Left = 16
|
|
Height = 97
|
|
Hint = 'CAPTCHA text. Try to read this text and input its characters in the box below.'
|
|
Top = 16
|
|
Width = 568
|
|
Font1.Height = -48
|
|
Font2.Height = -48
|
|
Font2.Name = 'Courier New'
|
|
LowercaseChars = 'abcdefghijklmnopqrstuvwxyz'
|
|
NumericChars = '0123456789'
|
|
NewCaptchaEvent = nceDblClick
|
|
UppercaseChars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
|
|
Align = alTop
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Top = 16
|
|
BorderSpacing.Right = 16
|
|
BorderSpacing.Bottom = 8
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 16
|
|
Height = 71
|
|
Top = 129
|
|
Width = 568
|
|
Align = alTop
|
|
AutoSize = True
|
|
BorderSpacing.Around = 16
|
|
Caption = 'Enter CAPTCHA code to verify that you are a human'
|
|
ClientHeight = 51
|
|
ClientWidth = 564
|
|
TabOrder = 0
|
|
object edCaptcha: TEdit
|
|
AnchorSideLeft.Control = GroupBox1
|
|
AnchorSideTop.Control = GroupBox1
|
|
AnchorSideRight.Control = btnVerify
|
|
Left = 16
|
|
Height = 23
|
|
Hint = 'Enter the CAPTCHA here'
|
|
Top = 12
|
|
Width = 366
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Top = 12
|
|
BorderSpacing.Right = 8
|
|
BorderSpacing.Bottom = 16
|
|
TabOrder = 0
|
|
TextHint = 'Enter the CAPTCHA code here...'
|
|
end
|
|
object btnVerify: TButton
|
|
AnchorSideTop.Control = edCaptcha
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = btnRetry
|
|
Left = 390
|
|
Height = 25
|
|
Hint = 'Compares the user input with the CAPTCHA text'
|
|
Top = 11
|
|
Width = 75
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Verify'
|
|
OnClick = btnVerifyClick
|
|
TabOrder = 1
|
|
end
|
|
object btnRetry: TButton
|
|
AnchorSideTop.Control = edCaptcha
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = GroupBox1
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 473
|
|
Height = 25
|
|
Hint = 'Create a new CAPTCHA text (or double-click on the CAPTCHA)'
|
|
Top = 11
|
|
Width = 75
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 16
|
|
Caption = 'Retry'
|
|
OnClick = btnRetryClick
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
end
|