From 461bc42fabd1aca384f7e36abd2193de2853ff91 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Fri, 1 Oct 2021 21:21:14 +0000 Subject: [PATCH] Captcha: Fix layout of runtime demo git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8114 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/captcha/README.txt | 6 +- components/captcha/demos/runtime/main.lfm | 93 ++++++++++++----------- 2 files changed, 51 insertions(+), 48 deletions(-) diff --git a/components/captcha/README.txt b/components/captcha/README.txt index 5e9424d2e..40c45b45f 100644 --- a/components/captcha/README.txt +++ b/components/captcha/README.txt @@ -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. diff --git a/components/captcha/demos/runtime/main.lfm b/components/captcha/demos/runtime/main.lfm index fcacf017b..3826992bd 100644 --- a/components/captcha/demos/runtime/main.lfm +++ b/components/captcha/demos/runtime/main.lfm @@ -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