Z zhihuali Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-19 #2 var C : TColor; R,G,B : Word; begin C := Image1.Canvas.Pixels[10,10]; R := GetRValue(C); G := GetGValue(C); B := GetBValue(C); end;
var C : TColor; R,G,B : Word; begin C := Image1.Canvas.Pixels[10,10]; R := GetRValue(C); G := GetGValue(C); B := GetBValue(C); end;
Y yzhshi Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-19 #3 取得颜色,如:$00CBD6D2 这里面没两位就应该是RGB了