[SOLVED] TAlphaColors : what am I doing wrong ?

[weabow 6]

Fault is mine : no problem at all

 

Hi there,

 

I need to extract evry filed in TAlphaColor. Here's my sample code :
 

var Red, Green, Blue, Alpha: byte;
begin

  paletteColor:= TAlphaColorRec.Create(TAlphaColors.Blue)

  Alpha := paletteColor.A;
  Red := paletteColor.R;
  Green := paletteColor.G;
  Blue := paletteColor.B;

 

My problem is that Alpha is OK (255), but other fields return 0

 

An idea ?

 

 

Edited February 13 by weabow
error