7
red,green,blue,alpha : word;
12
function ColorColorAlpha16 (CD:TColorData) : TFPColor;
15
function tcl.ColorColorAlpha16 (CD:TColorData) : TFPColor;
21
c := qword($FFFF0000);
22
green := (CD and c) shr 16;
24
blue := (CD and c) shr 32;
26
alpha := (CD and c) shr 48;
36
c.colorcoloralpha16(cd);