G goddy Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-21 #1 如何color=26367 转成color='#ff8100'
Z zqw0117 Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-21 #2 var I: Integer; begin I := ColorToRGB(clRed); ShowMessage('#' + IntToHex(GetRValue(I), 2) + IntToHex(GetGValue(I), 2) + IntToHex(GetBValue(I), 2)); end;
var I: Integer; begin I := ColorToRGB(clRed); ShowMessage('#' + IntToHex(GetRValue(I), 2) + IntToHex(GetGValue(I), 2) + IntToHex(GetBValue(I), 2)); end;
S smithcouple Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-21 #3 楼主，你的那个FF8100是不是错了？我这怎么是FF6600呢 function ColorToHex(const Color: TColor): string; begin Result := Format('#%2.2x%2.2x%2.2x', [GetRValue(Color), GetGValue(Color), GetBValue(Color)]); end;
楼主，你的那个FF8100是不是错了？我这怎么是FF6600呢 function ColorToHex(const Color: TColor): string; begin Result := Format('#%2.2x%2.2x%2.2x', [GetRValue(Color), GetGValue(Color), GetBValue(Color)]); end;
S smithcouple Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-21 #6 我用vba设置好颜色，用取色工具看的，确实是FF6600
