+ if len = 3 then begin
+ Result.Red := StrToInt('$' + AText[1]);
+ Result.Green := StrToInt('$' + AText[2]);
+ Result.Blue := StrToInt('$' + AText[3]);
+ end;not OK: #abe means color components $aa $bb $ee, not $a $b $e.
Regards,
Alexey
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20170704/86948bc7/attachment.html>