pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Captcha: Fix layout of runtime demo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8114 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-10-01 21:21:14 +00:00
parent c1a83cfa81
commit 461bc42fab
2 changed files with 51 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/captcha/README.txt
View File

@ -5,9 +5,9 @@
Description
-----------
The component TCaptcha descends from TGraphicControl and contains its own drawing
routine. Just place it on the form and use it. It displays a random string with
slanted characters and overlaid lines.
The component TCaptchaLabel descends from TGraphicControl and contains its own
drawing routine. Just place it on the form and use it. It displays a random
string with slanted characters and overlaid lines.
The method Verify() checks whether a user-provided string matches the
captcha string and returns true.

93
components/captcha/demos/runtime/main.lfm
View File

@ -2,24 +2,24 @@ object DemoForm: TDemoForm
Left = 285
Height = 385
Top = 131
Width = 693
Width = 729
AutoSize = True
Caption = 'Captcha Demo'
ClientHeight = 385
ClientWidth = 693
ClientWidth = 729
OnCreate = FormCreate
LCLVersion = '2.3.0.0'
object SettingsPanel: TPanel
Left = 16
Height = 239
Top = 130
Width = 661
Height = 238
Top = 131
Width = 697
Align = alBottom
AutoSize = True
BorderSpacing.Around = 16
BevelOuter = bvNone
ClientHeight = 239
ClientWidth = 661
ClientHeight = 238
ClientWidth = 697
TabOrder = 1
object clbBackgroundColor: TColorBox
AnchorSideLeft.Control = cmbNewCaptchaEvent
@ -81,7 +81,7 @@ object DemoForm: TDemoForm
Left = 260
Height = 103
Top = 0
Width = 412
Width = 420
AutoFill = True
AutoSize = True
BorderSpacing.Left = 24
@ -96,11 +96,11 @@ object DemoForm: TDemoForm
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4
ClientHeight = 83
ClientWidth = 408
ClientWidth = 416
Columns = 4
Items.Strings = (
'Alpha uppercase'
'Alpha lowercase'
'Alpha upper-case'
'Alpha lower-case'
'Numeric'
'Custom'
'Rotated'
@ -117,25 +117,13 @@ object DemoForm: TDemoForm
Left = 16
Height = 25
Top = 52
Width = 106
Width = 111
Caption = ' '
end
object btnFont1: TButton
AnchorSideTop.Side = asrBottom
Left = 134
Height = 25
Top = 52
Width = 70
AutoSize = True
Caption = 'Font 1...'
Constraints.MaxWidth = 70
OnClick = btnFont1Click
TabOrder = 0
end
object btnFont2: TButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrBottom
Left = 250
Left = 139
Height = 25
Top = 52
Width = 70
@ -148,6 +136,18 @@ object DemoForm: TDemoForm
OnClick = btnFont2Click
TabOrder = 1
end
object btnFont1: TButton
AnchorSideTop.Side = asrBottom
Left = 260
Height = 25
Top = 52
Width = 68
AutoSize = True
Caption = 'Font 1...'
Constraints.MaxWidth = 70
OnClick = btnFont1Click
TabOrder = 0
end
end
object lblCharCount: TLabel
AnchorSideLeft.Control = SettingsPanel
@ -239,13 +239,16 @@ object DemoForm: TDemoForm
end
object edUppercaseChars: TEdit
AnchorSideLeft.Control = cmbNewCaptchaEvent
AnchorSideTop.Control = cmbNewCaptchaEvent
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cgOptions
AnchorSideRight.Side = asrBottom
Left = 113
Height = 23
Top = 135
Width = 559
Top = 134
Width = 567
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
OnChange = edUppercaseCharsChange
TabOrder = 6
TextHint = 'Upper-case characters to be used'
@ -256,7 +259,7 @@ object DemoForm: TDemoForm
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 139
Top = 138
Width = 60
Caption = 'Upper-case'
end
@ -266,7 +269,7 @@ object DemoForm: TDemoForm
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 166
Top = 165
Width = 60
Caption = 'Lower-case'
end
@ -278,8 +281,8 @@ object DemoForm: TDemoForm
AnchorSideRight.Side = asrBottom
Left = 113
Height = 23
Top = 162
Width = 559
Top = 161
Width = 567
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
OnChange = edLowercaseCharsChange
@ -292,7 +295,7 @@ object DemoForm: TDemoForm
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 193
Top = 192
Width = 77
Caption = 'Numeric chars'
end
@ -304,8 +307,8 @@ object DemoForm: TDemoForm
AnchorSideRight.Side = asrBottom
Left = 113
Height = 23
Top = 189
Width = 559
Top = 188
Width = 567
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
OnChange = edNumericCharsChange
@ -318,7 +321,7 @@ object DemoForm: TDemoForm
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 220
Top = 219
Width = 95
Caption = 'Any custom chars'
end
@ -330,8 +333,8 @@ object DemoForm: TDemoForm
AnchorSideRight.Side = asrBottom
Left = 113
Height = 23
Top = 216
Width = 559
Top = 215
Width = 567
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
OnChange = edCustomCharsChange
@ -342,14 +345,14 @@ object DemoForm: TDemoForm
object gbVerify: TGroupBox
Left = 16
Height = 69
Top = 25
Width = 661
Top = 26
Width = 697
Align = alBottom
AutoSize = True
BorderSpacing.Around = 16
Caption = 'Enter CAPTCHA code'
ClientHeight = 49
ClientWidth = 657
ClientWidth = 693
TabOrder = 0
object edTestCode: TEdit
AnchorSideLeft.Control = gbVerify
@ -359,7 +362,7 @@ object DemoForm: TDemoForm
Left = 16
Height = 23
Top = 13
Width = 472
Width = 508
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 16
TabOrder = 0
@ -371,7 +374,7 @@ object DemoForm: TDemoForm
AnchorSideTop.Control = gbVerify
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnTryAgain
Left = 500
Left = 536
Height = 25
Top = 12
Width = 56
@ -389,7 +392,7 @@ object DemoForm: TDemoForm
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = gbVerify
AnchorSideRight.Side = asrBottom
Left = 564
Left = 600
Height = 25
Top = 12
Width = 77
@ -404,8 +407,8 @@ object DemoForm: TDemoForm
object Bevel1: TBevel
Left = 0
Height = 4
Top = 110
Width = 693
Top = 111
Width = 729
Align = alBottom
Shape = bsBottomLine
end