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