Подскажите пожалуйста, как можно получить все цвета 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 цветов градации серого.

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

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

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