Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−66
function ColorToHTML(Color: TColor): string;
begin
{RGB составляющие цвета переводим в шестнадцатеричную
систему счисления}
FmtStr(Result,
'#%.2x%.2x%.2x',
[Lo(Color), {красный}
Lo(Color shr 8), {зелёный}
Lo((Color shr 8) shr 8) {синий}]);
end;Тро-Ло-ло-ло
Запостил: 
rotretS,
03 Декабря 2016
Follow us!
Это какая-то магия Паскаля, или shr 16?
хотя для выделения rgb вроде и так есть функция.