Форум: "Начинающим";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];
ВнизПодскажите пожалуйста, как можно получить все цвета 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c