Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Какие параметры цвета (RGB) для стандартного фона формы? [D7, Win95/98]


Страницы:   1 2

Гость ©   (2005-03-03 11:47:00) 

Какие параметры цвета (RGB) для стандартного фона формы (clBtnFace)?


Defunct   (2005-03-15 11:22:00) [1]

реклама АО МММ
- халявщик ты Лёнька!
- нет брат, я партнер.


Гость   (2005-03-15 11:03:00) [2]

Спасибо, нашел. Оказывается, достаточно Image1.Transparent:=true
Ну а кто такой "партнер", я так и не понял.


Гость   (2005-03-05 15:48:00) [3]

кто такой "партнер"?


Anatoly Podgoretsky   (2005-03-05 15:38:00) [4]

Так ты выполнил инструкцию по поводу Инспектора объектов или нет, посмотрел ли ты справку по компоненту?
Или ты партнер?


Гость   (2005-03-05 15:35:00) [5]

что значит "прозрачный цвет"? Мне надо только фон картинки сделать таким же как у формы. А что его (фон) можна убрать?


Anatoly Podgoretsky   (2005-03-05 14:51:00) [6]

Гость   (05.03.05 14:48) [23]
Ни какой, просто нет такого, это динамическая величина, управляемая пользователем. Зато можно получить это значение через ColorToRGB, но еще проще и возможно правильнее включить прозрачный цвет у рисунка (смотри свойства в инспекторе объектов), тогда этот цвет вообще не надо узнавать.


Cosinus   (2005-03-05 14:50:00) [7]


> Гость   (05.03.05 14:48) [23]
Тогда проще. Image.Transparent:=True;


Гость   (2005-03-05 14:48:00) [8]

Ребята, мне надо на форму положить рисунок с цветом фона как у формы. И все. Но не знаю, какой цвет в RGB поставить на фон самого рисунка. Насколько я понял, пример [12] разрешает поменять цвет формы на нужный, зная RGB цвета. А мне надо вывести (например в Label) номера цветов  R, G и В clBtnFace формы.
Спасибо.


IceBeerg   (2005-03-05 10:01:00) [9]

А если набрать clBtnFace и правой кнопкой его и т.д., а?


begin...end   (2005-03-04 20:39:00) [10]

> Defunct ©   (04.03.05 20:35) [20]

> сколько очков уже?

Я не ношу очки.


Defunct   (2005-03-04 20:35:00) [11]

begin...end ©   (04.03.05 20:09) [18]
bingo! сколько очков уже? ;>

Сорри Опечатка.
Поменять местами R и B.

В объявленном рекорде[12] - цвет пикселя из BMPStream'a.


Anatoly Podgoretsky   (2005-03-04 20:11:00) [12]

Ой, на порядок байт не посмотрел. Ты прав.


begin...end   (2005-03-04 20:09:00) [13]

> Defunct ©   (04.03.05 20:04) [17]

Из справки по типу TColor:

If you specify TColor as a specific 4-byte hexadecimal number instead of using the constants defined in the Graphics unit, the low three bytes represent RGB color intensities for blue, green, and red, respectively. The value $00FF0000(Delphi) or 0x00FF0000 (C++) represents full-intensity, pure blue, $0000FF00(Delphi) or 0x0000FF00 (C++) is pure green, and $000000FF(Delphi) or 0x000000FF (C++) is pure red. $00000000 (Delphi) or 0x00000000 (C++) is black and $00FFFFFF (Delphi) or 0x00FFFFFF (C++) is white.

Теперь посмотрите на объявленный Вами тип TRGBColor. Стало понятно?


Defunct   (2005-03-04 20:04:00) [14]

begin...end ©   (04.03.05 19:59) [15]

В чем заключается неверность ответа?


Defunct   (2005-03-04 20:03:00) [15]

begin...end ©   (04.03.05 19:44) [13]

Color : TColor тоже годится (TColor - 32Bit как и LongInt).

ответ был на пост [4]

Color := ColorToRGB(сlBtnFace);
дальше [12]


begin...end   (2005-03-04 19:59:00) [16]

> Anatoly Podgoretsky ©   (04.03.05 19:50) [14]

Тогда ответ [12] не имеет смысла в контексте данной ветки.

Возможно (судя по [4]), Color - это переменная типа LongInt, представляющая собой результат функции GetRGBColor. Тем не менее, в этом случае ответ [12] всё равно неверен.


Anatoly Podgoretsky   (2005-03-04 19:50:00) [17]

Это переменная типа TRGBColor


begin...end   (2005-03-04 19:44:00) [18]

> Defunct ©   (04.03.05 19:34) [12]

Если Color - это переменная типа TColor, то ответ неверный.


Defunct   (2005-03-04 19:34:00) [19]

> А как из этого "вырезать" номера цветов?

type
    TRGBColor = packed Record
      B          : byte;
      G          : byte;
      R          : byte;
      AlfaChanel : byte;
    end;

TRGBColor( Color ).R := ..
TRGBColor( Color ).G := ..
TRGBColor( Color ).B := ..

и т.п.


Poirot   (2005-03-04 18:38:00) [20]

Smithson   (04.03.05 18:26) [9]
Если он сменит значение то и ColorToRGB(clBtnFace) даст другое значение, которое и буит совпадать с текущими настройкамим палитры:) Только главное это нать отлоыить изменение темы:)


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо