Source position: ctOpenGL2DCanvas.pas line 379
function TColorToARGB(
rgb: TColor;
alpha: Byte = 255
):ARGB;