Статьи
|
Есть ли функция или процедура для преобразования значений цвета в HEX формате в Delphi формат, типа этого: Cornsilk1 Cornsilk1 255 248 220 #FFF8DC в $00DCF8FF? Конечно есть!
function Swap32(aLong: Longint): Longint; assembler;
asm
BSWAP eax
end;
function HexColorToColor(HexColor: string): TColor;
{ вход: строка '#FFF8DC' -> выход $DCF8FF как TColor,
используйте IntToHex для преобразования в строку, если нужно }
begin
Assert(Length(HexColor) > 1);
Assert(HexColor[1] = '#');
HexColor[1] := '$';
Result := Swap32(StrToInt(HexColor));
end;
|
Комментарии
RSS лента комментариев этой записи