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

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

Подскажите пожалуйста, как можно получить все цвета 256-цветной [D7]

alkin ©   (2006-06-08 15:28:00) 

Есть 256 панелей. Подскажите пожалуйста, как можно получить все цвета 256-цветной палитры, чтобы каждая панель была цветом из этого набора. Спасибо.

---

MBo   (2006-06-08 16:18:00) [1]

Пример с серой палитрой
procedure TForm1.Button1Click(Sender: TObject);
var
 Cols: array[byte] of TColor;
 b: Byte;
begin
 for b := 0 to 255 do begin
   Cols[b] := RGB(b,b,b);
   Canvas.Brush.Color := Cols[b];
   Canvas.FillRect(Rect(b*2, 0, b*2 + 2, 200));
 end;
end;

---

McSimm   (2006-06-08 15:50:00) [2]

> alkin

Например, 256 цветов градации серого.

Вопрос в том, какая именно палитра нужна.

---

alkin   (2006-06-08 15:38:00) [3]

MBo
А поконкретней, если можно?

---

MBo   (2006-06-08 15:31:00) [4]

Различных 256 - цветных палитр может быть очень много...

---

Наверх