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
@ -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
|
Before Width: | Height: | Size: 1.3 KiB After Width: | Height: | Size: 1.3 KiB |
Before Width: | Height: | Size: 2.0 KiB After Width: | Height: | Size: 2.0 KiB |
Before Width: | Height: | Size: 2.8 KiB After Width: | Height: | Size: 2.8 KiB |
Before Width: | Height: | Size: 6.6 KiB After Width: | Height: | Size: 6.6 KiB |
@ -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
|
||||
|