- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
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;
Это какая-то магия Паскаля, или shr 16?
хотя для выделения rgb вроде и так есть функция.