Captcha: Fix demos after renaming the component in prev commit.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8113 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2021-10-01 20:11:47 +00:00
parent e541f5c5df
commit c1a83cfa81
6 changed files with 40 additions and 34 deletions

View File

@ -45,9 +45,9 @@
<ResourceBaseClass Value="Form"/>
</Unit1>
<Unit2>
<Filename Value="..\source\captchactrl.pas"/>
<Filename Value="..\..\source\captchactrl.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="CaptchaUnit"/>
<UnitName Value="CaptchaCtrl"/>
</Unit2>
</Units>
</ProjectOptions>
@ -59,7 +59,7 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="..\source"/>
<OtherUnitFiles Value="..\..\source"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>

View File

@ -10,7 +10,7 @@ uses
athreads,
{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, main
Forms, main, CaptchaCtrl
{ you can add units after this };
{$R *.res}

View File

@ -81,7 +81,7 @@ object DemoForm: TDemoForm
Left = 260
Height = 103
Top = 0
Width = 418
Width = 412
AutoFill = True
AutoSize = True
BorderSpacing.Left = 24
@ -96,7 +96,7 @@ object DemoForm: TDemoForm
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4
ClientHeight = 83
ClientWidth = 414
ClientWidth = 408
Columns = 4
Items.Strings = (
'Alpha uppercase'
@ -117,12 +117,12 @@ object DemoForm: TDemoForm
Left = 16
Height = 25
Top = 52
Width = 108
Width = 106
Caption = ' '
end
object btnFont1: TButton
AnchorSideTop.Side = asrBottom
Left = 136
Left = 134
Height = 25
Top = 52
Width = 70
@ -135,7 +135,7 @@ object DemoForm: TDemoForm
object btnFont2: TButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrBottom
Left = 254
Left = 250
Height = 25
Top = 52
Width = 70
@ -244,7 +244,7 @@ object DemoForm: TDemoForm
Left = 113
Height = 23
Top = 135
Width = 565
Width = 559
Anchors = [akTop, akLeft, akRight]
OnChange = edUppercaseCharsChange
TabOrder = 6
@ -279,7 +279,7 @@ object DemoForm: TDemoForm
Left = 113
Height = 23
Top = 162
Width = 565
Width = 559
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
OnChange = edLowercaseCharsChange
@ -305,7 +305,7 @@ object DemoForm: TDemoForm
Left = 113
Height = 23
Top = 189
Width = 565
Width = 559
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
OnChange = edNumericCharsChange
@ -331,7 +331,7 @@ object DemoForm: TDemoForm
Left = 113
Height = 23
Top = 216
Width = 565
Width = 559
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
OnChange = edCustomCharsChange

View File

@ -80,7 +80,7 @@ var
begin
Randomize;
FCaptcha := TCaptcha.Create(self);
FCaptcha := TCaptchaLabel.Create(self);
FCaptcha.Width := Width;
FCaptcha.Parent := self;
FCaptcha.Color := clWhite;

View File

@ -4,6 +4,9 @@
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="SimpleDemo"/>
<Scaled Value="True"/>
@ -14,8 +17,8 @@
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
@ -24,26 +27,28 @@
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<RequiredPackages>
<Item>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="captcha_pkg"/>
</Item>
<Item>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item>
</Item2>
</RequiredPackages>
<Units>
<Unit>
<Filename Value="SimpleDemo.lpr"/>
<Units Count="2">
<Unit0>
<Filename Value="simpledemo.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
<UnitName Value="SimpleDemo"/>
</Unit0>
<Unit1>
<Filename Value="main.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Main"/>
</Unit>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
@ -65,16 +70,16 @@
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item>
<Item>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item>
<Item>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

View File

@ -17,6 +17,7 @@ uses
begin
RequireDerivedFormResource:=True;
Application.Title:='SimpleDemo';
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);