Captcha: Rename component to TCaptchaLabel. Add demos folder. Add new simple_demo project. Move runtime_demo to demos folder.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8112 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/captcha/demos/runtime/main.pas

@@ -59,7 +59,7 @@ type
     procedure seCharCountChange(Sender: TObject);
     procedure seLinesCountChange(Sender: TObject);
   private
-    FCaptcha: TCaptcha;
+    FCaptcha: TCaptchaLabel;
 
   public
 

components/captcha/demos/simple_demo/main.lfm

@@ -0,0 +1,95 @@
+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

components/captcha/demos/simple_demo/main.pas

@@ -0,0 +1,70 @@
+unit Main;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, CaptchaCtrl;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    btnVerify: TButton;
+    btnRetry: TButton;
+    Captcha1: TCaptchaLabel;
+    edCaptcha: TEdit;
+    GroupBox1: TGroupBox;
+    procedure btnRetryClick(Sender: TObject);
+    procedure btnVerifyClick(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+
+  public
+
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.lfm}
+
+{ TForm1 }
+
+procedure TForm1.btnRetryClick(Sender: TObject);
+begin
+  Captcha1.NewCaptcha;
+  edCaptcha.Clear;
+end;
+
+procedure TForm1.btnVerifyClick(Sender: TObject);
+begin
+  if edCaptcha.Text = '' then
+    ShowMessage('No CAPTCHA code entered.')
+  else
+  if Captcha1.Verify(edCaptcha.Text) then
+    ShowMessage('Input accepted.')
+  else
+    ShowMessage('Sorry. Your input does not match.' + LineEnding +
+      'The correct value would have been: ' + Captcha1.Text);
+end;
+
+procedure TForm1.FormActivate(Sender: TObject);
+begin
+  Constraints.MinHeight := Height;
+  Constraints.MaxHeight := Height;
+end;
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  Randomize;
+  cInputQueryEditSizePercents := 0;
+end;
+
+end.
+

components/captcha/demos/simple_demo/simpledemo.lpi

@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="12"/>
+    <PathDelim Value="\"/>
+    <General>
+      <SessionStorage Value="InProjectDir"/>
+      <Title Value="SimpleDemo"/>
+      <Scaled Value="True"/>
+      <ResourceType Value="res"/>
+      <UseXPManifest Value="True"/>
+      <XPManifest>
+        <DpiAware Value="True"/>
+      </XPManifest>
+      <Icon Value="0"/>
+    </General>
+    <BuildModes>
+      <Item Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+      <UseFileFilters Value="True"/>
+    </PublishOptions>
+    <RunParams>
+      <FormatVersion Value="2"/>
+    </RunParams>
+    <RequiredPackages>
+      <Item>
+        <PackageName Value="captcha_pkg"/>
+      </Item>
+      <Item>
+        <PackageName Value="LCL"/>
+      </Item>
+    </RequiredPackages>
+    <Units>
+      <Unit>
+        <Filename Value="SimpleDemo.lpr"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
+      <Unit>
+        <Filename Value="main.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="Form1"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="Main"/>
+      </Unit>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <PathDelim Value="\"/>
+    <Target>
+      <Filename Value="SimpleDemo"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <Linking>
+      <Options>
+        <Win32>
+          <GraphicApplication Value="True"/>
+        </Win32>
+      </Options>
+    </Linking>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions>
+      <Item>
+        <Name Value="EAbort"/>
+      </Item>
+      <Item>
+        <Name Value="ECodetoolError"/>
+      </Item>
+      <Item>
+        <Name Value="EFOpenError"/>
+      </Item>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

components/captcha/demos/simple_demo/simpledemo.lpr

@@ -0,0 +1,25 @@
+program SimpleDemo;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}
+  cthreads,
+  {$ENDIF}
+  {$IFDEF HASAMIGA}
+  athreads,
+  {$ENDIF}
+  Interfaces, // this includes the LCL widgetset
+  Forms, Main
+  { you can add units after this };
+
+{$R *.res}
+
+begin
+  RequireDerivedFormResource:=True;
+  Application.Scaled:=True;
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.
+

components/captcha/source/captchactrl.pas

@@ -52,7 +52,7 @@ const
   DEFAULT_CAPTCHA_NUMLINES = 30;
 
 type
-  TCaptcha = class(TGraphicControl)
+  TCaptchaLabel = class(TGraphicControl)
   private
     FBuffer: TBitmap;
     FCaptchaChars: TCaptchaCharArray;
@@ -137,7 +137,7 @@ uses
 
 procedure Register;
 begin
-  RegisterComponents('Misc', [TCaptcha]);
+  RegisterComponents('Misc', [TCaptchaLabel]);
 end;
 
 
@@ -168,9 +168,9 @@ begin
 end;
 
 
-{ TCaptcha }
+{ TCaptchaLabel }
 
-constructor TCaptcha.Create(AOwner: TComponent);
+constructor TCaptchaLabel.Create(AOwner: TComponent);
 begin
   inherited;
   with GetControlClassDefaultSize do
@@ -209,7 +209,7 @@ begin
     Randomize;
 end;
 
-destructor TCaptcha.Destroy;
+destructor TCaptchaLabel.Destroy;
 begin
   Finalize(FCaptchaChars);
   Finalize(FCaptchaLines);
@@ -219,7 +219,7 @@ begin
   inherited;
 end;
 
-function TCaptcha.AlmostBackgroundColor(AColor: TColor): Boolean;
+function TCaptchaLabel.AlmostBackgroundColor(AColor: TColor): Boolean;
 const
   TOLERANCE = 64;
 var
@@ -231,7 +231,7 @@ begin
   Result := abs(colorL - bgColorL) < TOLERANCE;
 end;
 
-procedure TCaptcha.CalculatePreferredSize(
+procedure TCaptchaLabel.CalculatePreferredSize(
   var PreferredWidth, PreferredHeight: integer;
   WithThemeSpace: Boolean);
 begin
@@ -254,14 +254,14 @@ begin
   PreferredHeight := 3*PreferredHeight div 2;
 end;
 
-procedure TCaptcha.Click;
+procedure TCaptchaLabel.Click;
 begin
   inherited;
   if FNewCaptchaEvent = nceClick then
     NewCaptcha;
 end;
 
-procedure TCaptcha.CreateNewCaptcha(ANumChars, ANumLines: Integer;
+procedure TCaptchaLabel.CreateNewCaptcha(ANumChars, ANumLines: Integer;
   KeepText, KeepLines: Boolean);
 begin
   if not KeepText then
@@ -276,14 +276,14 @@ begin
   DrawBuffer;
 end;
 
-procedure TCaptcha.DblClick;
+procedure TCaptchaLabel.DblClick;
 begin
   inherited;
   if FNewCaptchaEvent = nceDblClick then
     NewCaptcha;
 end;
 
-procedure TCaptcha.DrawBuffer;
+procedure TCaptchaLabel.DrawBuffer;
 var
   i: Integer;
 begin
@@ -325,12 +325,12 @@ begin
   end;
 end;
 
-function TCaptcha.GetFont(AIndex: Integer): TFont;
+function TCaptchaLabel.GetFont(AIndex: Integer): TFont;
 begin
   Result := FFonts[AIndex];
 end;
 
-function TCaptcha.GetCaptchaText: string;
+function TCaptchaLabel.GetCaptchaText: string;
 var
   i: Integer;
 begin
@@ -339,12 +339,12 @@ begin
     Result := Result + FCaptchaChars[i].Character;
 end;
 
-function TCaptcha.GetValidChars(AIndex: Integer): String;
+function TCaptchaLabel.GetValidChars(AIndex: Integer): String;
 begin
   Result := FValidChars[TCaptchaCharsOption(AIndex)];
 end;
 
-procedure TCaptcha.InitAngles;
+procedure TCaptchaLabel.InitAngles;
 var
   i: Integer;
 begin
@@ -356,7 +356,7 @@ end;
   When KeepVertPos is false, the vertical position of the characters is selected
   randomly within the height of the control. Otherwise the already stored
   vertical positions are used. }
-procedure TCaptcha.InitCharPos(KeepVertPos: Boolean);
+procedure TCaptchaLabel.InitCharPos(KeepVertPos: Boolean);
 var
   x: Integer;
   i: Integer;
@@ -409,7 +409,7 @@ begin
   FBuffer.SetSize(x, maxHeight);
 end;
 
-procedure TCaptcha.InitFontIndex;
+procedure TCaptchaLabel.InitFontIndex;
 var
   i: Integer;
 begin
@@ -427,7 +427,7 @@ end;
 
 { Pick random color for a line.
   Make sure that the color is not too close to the background color. }
-procedure TCaptcha.InitLineColors;
+procedure TCaptchaLabel.InitLineColors;
 var
   i: Integer;
 begin
@@ -439,7 +439,7 @@ begin
       until not AlmostBackgroundColor(FCaptchaLines[i].Color);
 end;
 
-procedure TCaptcha.InitLines(ACount: Integer; KeepExisting: Boolean);
+procedure TCaptchaLabel.InitLines(ACount: Integer; KeepExisting: Boolean);
 var
   i, n: Integer;
 begin
@@ -470,7 +470,7 @@ begin
   end;
 end;
 
-procedure TCaptcha.InitText(ACount: Integer; KeepExisting: Boolean);
+procedure TCaptchaLabel.InitText(ACount: Integer; KeepExisting: Boolean);
 var
   i, j, n: Integer;
   ok: Boolean;
@@ -539,7 +539,7 @@ end;
 
 { Pick random color for a character.
   Make sure that the color is not too close to the background color. }
-procedure TCaptcha.InitTextColors;
+procedure TCaptchaLabel.InitTextColors;
 var
   i: Integer;
 begin
@@ -551,18 +551,18 @@ begin
       until not AlmostbackgroundColor(FCaptchaChars[i].Color);
 end;
 
-procedure TCaptcha.NewCaptcha;
+procedure TCaptchaLabel.NewCaptcha;
 begin
   CreateNewCaptcha(FNumChars, FNumLines, false, false);
   Invalidate;
 end;
 
-procedure TCaptcha.Paint;
+procedure TCaptchaLabel.Paint;
 begin
   Canvas.Draw((Width - FBuffer.Width) div 2, (Height - FBuffer.Height) div 2, FBuffer);
 end;
 
-procedure TCaptcha.Resize;
+procedure TCaptchaLabel.Resize;
 begin
   inherited;
   if Assigned(FBuffer) and not FInitialized then
@@ -572,7 +572,7 @@ begin
   end;
 end;
 
-procedure TCaptcha.SetColor(AValue: TColor);
+procedure TCaptchaLabel.SetColor(AValue: TColor);
 begin
   if AValue = Color then
     exit;
@@ -583,7 +583,7 @@ begin
   Invalidate;
 end;
 
-procedure TCaptcha.SetFont(AIndex: Integer; const AValue: TFont);
+procedure TCaptchaLabel.SetFont(AIndex: Integer; const AValue: TFont);
 begin
   if FFonts[AIndex].IsEqual(AValue) then
     exit;
@@ -594,7 +594,7 @@ begin
   Invalidate;
 end;
 
-procedure TCaptcha.SetMaxAngle(const AValue: Integer);
+procedure TCaptchaLabel.SetMaxAngle(const AValue: Integer);
 begin
   if AValue = FMaxAngle then
     exit;
@@ -605,7 +605,7 @@ begin
   Invalidate;
 end;
 
-procedure TCaptcha.SetNumChars(const AValue: Integer);
+procedure TCaptchaLabel.SetNumChars(const AValue: Integer);
 begin
   if AValue = FNumChars then
     exit;
@@ -618,7 +618,7 @@ begin
   Invalidate;
 end;
 
-procedure TCaptcha.SetNumLines(const AValue: Integer);
+procedure TCaptchaLabel.SetNumLines(const AValue: Integer);
 begin
   if AValue = FNumLines then
     exit;
@@ -628,7 +628,7 @@ begin
   Invalidate;
 end;
 
-procedure TCaptcha.SetOptions(const AValue: TCaptchaOptions);
+procedure TCaptchaLabel.SetOptions(const AValue: TCaptchaOptions);
 var
   oldOptions: TCaptchaOptions;
 begin
@@ -656,7 +656,7 @@ begin
   Invalidate;
 end;
 
-procedure TCaptcha.SetValidChars(AIndex: Integer; const AValue: String);
+procedure TCaptchaLabel.SetValidChars(AIndex: Integer; const AValue: String);
 begin
   if FValidChars[TCaptchaCharsOption(AIndex)] = AValue then
     exit;
@@ -665,7 +665,7 @@ begin
 end;
 
 
-function TCaptcha.Verify(const AText: String): Boolean;
+function TCaptchaLabel.Verify(const AText: String): Boolean;
 begin
   Result := (AText = GetCaptchaText);
 end;