Текущий архив: 2006.06.25;
Скачать: CL | DM;

Вниз

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

← →
alkin   (2006-06-08 15:28) [0]

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

---

← →
MBo ©   (2006-06-08 15:31) [1]

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

---

← →
alkin   (2006-06-08 15:38) [2]

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

---

← →
McSimm ©   (2006-06-08 15:50) [3]

> alkin

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

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

---

← →
MBo ©   (2006-06-08 16:18) [4]

Пример с серой палитрой
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;

---

Страницы: 1 вся ветка

Текущий архив: 2006.06.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.042 c