L lovefox Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-04 #1 如何把COLORDIALOG里面的颜色信息，换算成R G B
Y yanlei Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-04 #2 getbvalue getrvalue getgvalue
T TYZhang Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-04 #3 function ColorToRGB(Color: TColor): Longint;
T TYZhang Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-04 #5 I:=ColorToRGB(TColor); R:=I Mod 256; G:=(I Div 256) Mod 256; B:=I Div (256*256);
T TYZhang Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-04 #6 或者： RGB:=ColorToRGB(TColor); R:=GetRValue(RGB); G:=GetGValue(RGB); B:=GetBValue(RGB);
B beta Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-04 #7 function ColorToHex(color: TColor): string; begin result := inttohex(colortorgb(color), 6); result := copy(result, 5, 2) + copy(result, 3, 2) + copy(result, 1, 2); result := '#' + result; end;
function ColorToHex(color: TColor): string; begin result := inttohex(colortorgb(color), 6); result := copy(result, 5, 2) + copy(result, 3, 2) + copy(result, 1, 2); result := '#' + result; end;
青 青萍 Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-04 #8 to TYZhang: 不需要RGB:=ColorToRGB(TColor); 直接 R:=GetRValue(RGB); G:=GetGValue(RGB); B:=GetBValue(RGB); 即可。 其实TColor就是Longword
to TYZhang: 不需要RGB:=ColorToRGB(TColor); 直接 R:=GetRValue(RGB); G:=GetGValue(RGB); B:=GetBValue(RGB); 即可。 其实TColor就是Longword
