WebColorStrToColor

Модуль WebColorStrToColor 1.0.0

Нет прав для скачивания
Часто так бывает, что цвет из макета любого графического редактора нужно конвертировать ручками... Эта функция упрощает этот процесс и позволяет сразу получить необходимый цвет.

Использование: Font.Color := HTML('#E10000');

code_language.pascal:
function RGB(r, g, b: Byte): TColor;
begin
  Result := (Integer(r) or (Integer(g) shl 8) or (Integer(b) shl 16));
end;

function WebColorStrToColor(WebColor: string): TColor;
begin
  if (Length(WebColor) <> 7) or (WebColor[1] <> '#') then
    RaiseException('Invalid web color string');

  Result :=
    RGB(
      StrToInt('$' + Copy(WebColor, 2, 2)),
      StrToInt('$' + Copy(WebColor, 4, 2)),
      StrToInt('$' + Copy(WebColor, 6, 2)));
end;

function HTML(Color: string): TColor;
begin
   Result := WebColorStrToColor(Color);
end;

Первоисточник - stackoverflow
Автор
zettend
Скачивания
4
Просмотры
70
Первый выпуск
Обновление
Оценка
0.00 звёзд 0 оценок

Другие ресурсы пользователя zettend

  • Reborn Setup
    Reborn Setup
    Перерождение "легендарного" стиля
  • Reborn Setup
    Reborn Setup
    Сдержанный дизайн
  • Fluent Design
    Fluent Design
    Дизайн в стиле Windows 10
  • Yuwiz
    Yuwiz
    Функциональный дизайн
  • Reborn Setup
    Скрипт Reborn Setup
    Изменённый и доработанный Project BETA X. Новый дизайн.
Сверху