pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity
Files
master
lazarus-ccr/components/captcha/demos/runtime/main.lfm
wp_xxyyzz 461bc42fab Captcha: Fix layout of runtime demo 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8114 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2021-10-01 21:21:14 +00:00

422 lines
11 KiB
Plaintext
Raw Permalink Blame History

object DemoForm: TDemoForm
Left = 285
Height = 385
Top = 131
Width = 729
AutoSize = True
Caption = 'Captcha Demo'
ClientHeight = 385
ClientWidth = 729
OnCreate = FormCreate
LCLVersion = '2.3.0.0'
object SettingsPanel: TPanel
Left = 16
Height = 238
Top = 131
Width = 697
Align = alBottom
AutoSize = True
BorderSpacing.Around = 16
BevelOuter = bvNone
ClientHeight = 238
ClientWidth = 697
TabOrder = 1
object clbBackgroundColor: TColorBox
AnchorSideLeft.Control = cmbNewCaptchaEvent
AnchorSideTop.Control = SettingsPanel
AnchorSideRight.Control = cmbNewCaptchaEvent
AnchorSideRight.Side = asrBottom
Left = 113
Height = 22
Top = 0
Width = 123
Anchors = [akTop, akLeft, akRight]
DropDownCount = 32
ItemHeight = 16
OnChange = clbBackgroundColorChange
TabOrder = 0
end
object lblBackgroundColor: TLabel
AnchorSideLeft.Control = SettingsPanel
AnchorSideTop.Control = clbBackgroundColor
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 4
Width = 94
Caption = 'Background color'
end
object lblMaxAngle: TLabel
AnchorSideLeft.Control = SettingsPanel
AnchorSideTop.Control = seMaxAngle
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 30
Width = 55
Caption = 'Max angle'
end
object seMaxAngle: TSpinEdit
AnchorSideLeft.Control = cmbNewCaptchaEvent
AnchorSideTop.Control = clbBackgroundColor
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cmbNewCaptchaEvent
AnchorSideRight.Side = asrBottom
Left = 113
Height = 23
Top = 26
Width = 123
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
Increment = 5
MaxValue = 90
OnChange = seMaxAngleChange
TabOrder = 1
end
object cgOptions: TCheckGroup
AnchorSideLeft.Control = clbBackgroundColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SettingsPanel
Left = 260
Height = 103
Top = 0
Width = 420
AutoFill = True
AutoSize = True
BorderSpacing.Left = 24
Caption = 'Options'
ChildSizing.LeftRightSpacing = 16
ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 12
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4
ClientHeight = 83
ClientWidth = 416
Columns = 4
Items.Strings = (
'Alpha upper-case'
'Alpha lower-case'
'Numeric'
'Custom'
'Rotated'
'Font 1'
'Font 2'
'Lines'
)
OnItemClick = cgOptionsItemClick
TabOrder = 4
Data = {
080000000202020202020202
}
object Label6: TLabel
Left = 16
Height = 25
Top = 52
Width = 111
Caption = ' '
end
object btnFont2: TButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrBottom
Left = 139
Height = 25
Top = 52
Width = 70
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Font 2...'
Constraints.MaxWidth = 70
Constraints.MinWidth = 70
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
AnchorSideTop.Control = seCharCount
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 57
Width = 88
Caption = 'Character count:'
end
object seCharCount: TSpinEdit
AnchorSideLeft.Control = cmbNewCaptchaEvent
AnchorSideTop.Control = seMaxAngle
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cmbNewCaptchaEvent
AnchorSideRight.Side = asrBottom
Left = 113
Height = 23
Top = 53
Width = 123
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
MaxValue = 90
OnChange = seCharCountChange
TabOrder = 2
end
object lblLinesCount: TLabel
AnchorSideLeft.Control = SettingsPanel
AnchorSideTop.Control = seLinesCount
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 84
Width = 61
Caption = 'Lines count'
end
object seLinesCount: TSpinEdit
AnchorSideLeft.Control = cmbNewCaptchaEvent
AnchorSideTop.Control = seCharCount
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cmbNewCaptchaEvent
AnchorSideRight.Side = asrBottom
Left = 113
Height = 23
Top = 80
Width = 123
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
MaxValue = 90
OnChange = seLinesCountChange
TabOrder = 3
end
object cmbNewCaptchaEvent: TComboBox
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seLinesCount
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = seLinesCount
AnchorSideRight.Side = asrBottom
Left = 113
Height = 23
Top = 107
Width = 123
BorderSpacing.Left = 12
BorderSpacing.Top = 4
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'none'
'Click'
'Double Click'
)
OnChange = cmbNewCaptchaEventChange
TabOrder = 5
Text = 'none'
end
object Label1: TLabel
AnchorSideLeft.Control = SettingsPanel
AnchorSideTop.Control = cmbNewCaptchaEvent
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 111
Width = 101
Caption = 'New captcha event'
end
object edUppercaseChars: TEdit
AnchorSideLeft.Control = cmbNewCaptchaEvent
AnchorSideTop.Control = cmbNewCaptchaEvent
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cgOptions
AnchorSideRight.Side = asrBottom
Left = 113
Height = 23
Top = 134
Width = 567
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
OnChange = edUppercaseCharsChange
TabOrder = 6
TextHint = 'Upper-case characters to be used'
end
object Label2: TLabel
AnchorSideLeft.Control = SettingsPanel
AnchorSideTop.Control = edUppercaseChars
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 138
Width = 60
Caption = 'Upper-case'
end
object Label3: TLabel
AnchorSideLeft.Control = SettingsPanel
AnchorSideTop.Control = edLowercaseChars
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 165
Width = 60
Caption = 'Lower-case'
end
object edLowercaseChars: TEdit
AnchorSideLeft.Control = cmbNewCaptchaEvent
AnchorSideTop.Control = edUppercaseChars
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cgOptions
AnchorSideRight.Side = asrBottom
Left = 113
Height = 23
Top = 161
Width = 567
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
OnChange = edLowercaseCharsChange
TabOrder = 7
TextHint = 'Lower-case characters to be used'
end
object Label4: TLabel
AnchorSideLeft.Control = SettingsPanel
AnchorSideTop.Control = edNumericChars
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 192
Width = 77
Caption = 'Numeric chars'
end
object edNumericChars: TEdit
AnchorSideLeft.Control = cmbNewCaptchaEvent
AnchorSideTop.Control = edLowercaseChars
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cgOptions
AnchorSideRight.Side = asrBottom
Left = 113
Height = 23
Top = 188
Width = 567
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
OnChange = edNumericCharsChange
TabOrder = 8
TextHint = 'Numeric characters'
end
object Label5: TLabel
AnchorSideLeft.Control = SettingsPanel
AnchorSideTop.Control = edCustomChars
AnchorSideTop.Side = asrCenter
Left = 0
Height = 15
Top = 219
Width = 95
Caption = 'Any custom chars'
end
object edCustomChars: TEdit
AnchorSideLeft.Control = cmbNewCaptchaEvent
AnchorSideTop.Control = edNumericChars
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cgOptions
AnchorSideRight.Side = asrBottom
Left = 113
Height = 23
Top = 215
Width = 567
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
OnChange = edCustomCharsChange
TabOrder = 9
TextHint = 'Any other characters to be included'
end
end
object gbVerify: TGroupBox
Left = 16
Height = 69
Top = 26
Width = 697
Align = alBottom
AutoSize = True
BorderSpacing.Around = 16
Caption = 'Enter CAPTCHA code'
ClientHeight = 49
ClientWidth = 693
TabOrder = 0
object edTestCode: TEdit
AnchorSideLeft.Control = gbVerify
AnchorSideTop.Control = gbVerify
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnVerify
Left = 16
Height = 23
Top = 13
Width = 508
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 16
TabOrder = 0
TextHint = 'Enter the CAPTCHA code here'
end
object btnVerify: TButton
AnchorSideLeft.Control = edTestCode
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbVerify
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnTryAgain
Left = 536
Height = 25
Top = 12
Width = 56
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Right = 8
BorderSpacing.Bottom = 12
Caption = 'Verify'
OnClick = btnVerifyClick
TabOrder = 1
end
object btnTryAgain: TButton
AnchorSideTop.Control = gbVerify
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = gbVerify
AnchorSideRight.Side = asrBottom
Left = 600
Height = 25
Top = 12
Width = 77
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 16
Caption = 'Try again!'
OnClick = btnTryAgainClick
TabOrder = 2
end
end
object Bevel1: TBevel
Left = 0
Height = 4
Top = 111
Width = 729
Align = alBottom
Shape = bsBottomLine
end
object FontDialog: TFontDialog
MinFontSize = 0
MaxFontSize = 0
Left = 496
Top = 288
end
end
Reference in New Issue View Git Blame Copy Permalink