paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/captcha/demos/runtime/capcha_demo.lpi
View File

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

2
components/captcha/demos/runtime/capcha_demo.lpr
View File

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

18
components/captcha/demos/runtime/main.lfm
View File

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

2
components/captcha/demos/runtime/main.pas
View File

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

45
components/captcha/demos/simple_demo/simpledemo.lpi
View File

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

1
components/captcha/demos/simple_demo/simpledemo.lpr
View File

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