RGB или TColor->HSB
Имхо. Как можно преобразовать формат RGB в формат который понимает HTML тобишь HSB???
Цитата:
Originally posted by Shedy
Имхо. Как можно преобразовать формат RGB в формат который понимает HTML тобишь HSB???
Имхо. Как можно преобразовать формат RGB в формат который понимает HTML тобишь HSB???
Все просто:
function ColorToHTML(Color: TColor): string;
var
RGBColor: TColor;
begin
if Color < 0 then
RGBColor := GetSysColor(Color and $000000FF) else
RGBColor := Color;
//Возращаяем строку в необходимом формате
Result := Format('#%.2x%.2x%.2x', [Byte(RGBColor), Byte(RGBColor shr 8), Byte(RGBColor shr 16)]);
end;