Перевод Color в rgb

[NIQK]

надо что бы в компоненте label показывалось значение rgb (Red, Green, Blue) того пикселя где находиться курсор. Помогите 2ку исправить...

[IT-man]

 ColorToRGB(form1.Canvas.Pixels(x,y))

[raxp]

сие було... pixels или getpixels канваса, координаты мыши из mousemove (если в форме), а tcolor...

type
  intRGB = record
  R, G, B: Byte;
 end;

function Color2RGB(Color: TColor): intRGB;
begin
 result.R:= Color and $FF;
 result.G:= (Color and $FF00) shr 8;
 result.B:= (Color and $FF0000) shr 16
end;

[russian-stalker]

procedure TForm1.Timer1Timer(Sender: TObject);
var
c:tcolor;
begin
c:=getpixel(getdc(0),mouse.CursorPos.X,mouse.CursorPos.Y);
label1.Caption:='R: '+inttostr(getrvalue(c))+#10+#13+'G: '+inttostr(getgvalue(c))+#10+#13+'B: '+inttostr(getbvalue(c));
end;