captcha: Less hints and warnings. Recreate palette icon.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8121 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-10-27 12:09:16 +00:00
parent 61cd7e671c
commit 88da99d33a
7 changed files with 3 additions and 4 deletions

View File

@ -1 +1 @@
lazres ../source/captcha_images.res tcaptcha.png tcaptcha_150.png tcaptcha_200.png
lazres ../source/captcha_images.res tcaptchalabel.png tcaptchalabel_150.png tcaptchalabel_200.png

View File

Before

Width:  |  Height:  |  Size: 1.3 KiB

After

Width:  |  Height:  |  Size: 1.3 KiB

View File

Before

Width:  |  Height:  |  Size: 2.0 KiB

After

Width:  |  Height:  |  Size: 2.0 KiB

View File

Before

Width:  |  Height:  |  Size: 2.8 KiB

After

Width:  |  Height:  |  Size: 2.8 KiB

View File

Before

Width:  |  Height:  |  Size: 6.6 KiB

After

Width:  |  Height:  |  Size: 6.6 KiB

View File

@ -11,7 +11,7 @@
unit CaptchaCtrl;
{$mode OBJFPC}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface
uses
@ -472,8 +472,7 @@ end;
procedure TCaptchaLabel.InitText(ACount: Integer; KeepExisting: Boolean);
var
i, j, n: Integer;
ok: Boolean;
i, n: Integer;
validChars: String;
co: TCaptchaCharsOption;
begin