+ 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
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus-ide.org/listinfo/lazarus
