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
2021-10-27 12:09:16 +00:00 · 2021-10-27 12:09:16 +00:00 · 88da99d33a
commit 88da99d33a
parent 61cd7e671c
7 changed files with 3 additions and 4 deletions
--- a/components/captcha/images/make_res.bat
+++ b/components/captcha/images/make_res.bat
@ -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
--- a/components/captcha/images/tcaptchalabel.png
+++ b/components/captcha/images/tcaptchalabel.png
--- a/components/captcha/images/tcaptchalabel_150.png
+++ b/components/captcha/images/tcaptchalabel_150.png
--- a/components/captcha/images/tcaptchalabel_200.png
+++ b/components/captcha/images/tcaptchalabel_200.png
--- a/components/captcha/images/tcaptchalabel_200.svg
+++ b/components/captcha/images/tcaptchalabel_200.svg
--- a/components/captcha/source/captcha_images.res
+++ b/components/captcha/source/captcha_images.res
--- a/components/captcha/source/captchactrl.pas
+++ b/components/captcha/source/captchactrl.pas
@ -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;
+  i, n: Integer;
  ok: Boolean;
  validChars: String;
  co: TCaptchaCharsOption;
 begin
		`@ -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`