Карта сайтаСсылкиКонтакты

Как преобразовать HEX цвета в формат Delphi

PDF Печать
Статьи

Есть ли функция или процедура для преобразования значений цвета в 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;

 

Комментарии   

 
0 #1 samsim 17.06.2014 23:51
Спасибо. Пригодилась программка.
Цитировать
 

Добавить комментарий


Защитный код
Обновить