Главная » Статьи по Delphi » Цвета и палитра » Конвертировать RGB в TColor

Конвертировать RGB в TColor

Автор: Борисов Сергей

Можно использовать функцию из модуля Windows:

function RGB(r, g, b: Byte): COLORREF;

Пример использования:

Form1.Color := RGB(50, 200, 50);

Можно написать функцию вручную (не используя модуль Windows):

function RGBToColor(R, G, B: Byte): TColor;
begin
  Result := B shl 16 or G shl 8 or R;
end;

• Фотоаппараты sony

  Статьи и обзоры. Сайт производителя электронной техники.

  fotik.com

• Проекты деревянных домов

  Фотографии готовых построек. Информация о коттеджных поселках Greenside.

  izba-iz-brevna.ru

Просмотров: 3316

Обсудить на форуме

---

Имя *:
Email:
Все смайлы
Код *:

Copyright © 2008-2012 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта

Гостевая книга