pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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"/>
</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>

2
components/captcha/demos/runtime/capcha_demo.lpr
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}

18
components/captcha/demos/runtime/main.lfm
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

2
components/captcha/demos/runtime/main.pas
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;