[Midmal]

У меня вопрос каким образом можно организовать управление гаммой, палитрой контактностью для canvas???

[NIch]

А что конкретно ты хочешь сделать?
Canvas - это просто холст на котором можно рисовать примитивы (линии, фигуры, текст)...

[Midmal]

Короче говоря тема такая, смотри код ниже:

Код:

var
  bitmap: tbitmap;
begin
  bitmap: tbitmap.create;
  try
    bitmap.assign(image1.picture.bitmap);
    form1.canvas.draw(0, 0, bitmap);
  finally
    bitmap.free;
  end;
end;

Как видишь данный код создаёт "bitmap" с рисунком из объекта "image1" и помещает его на "холст" моей формы. Мне бы хотелось как нибудь сделать возможным управление "гаммой, палитрой и контактностью" данного изображения на "холсте".
Поможешь разобраться???

[ART]

Делать это прямо на канве имхо глупо. Нужно все это сначала проделать с битмапом, а уже потом, выводить его на канву. Для гаммы, контрастности и и т.п. существуют специальные алгоритмы, которые можно найти в инете.

[Midmal]

Сообщение от ART

Делать это прямо на канве имхо глупо. Нужно все это сначала проделать с битмапом, а уже потом, выводить его на канву. Для гаммы, контрастности и и т.п. существуют специальные алгоритмы, которые можно найти в инете.

Я не спрашиваю "глупо" это или нет, "глупо"!!! Я спрашиваю помощи в первую очередь.

[ART]

Ну бери каждый пиксель и преобразуй по алгоритму.

Код:

procedure MyProc(C: TCanvas; P1, P2: TPoint);
var
 i, j: integer;
begin
 for i := P1.y to P2.y do
  for j := P1.x to P2.x do
   C.Pixels[j, i] := Algoritm(C.Pixels[j, i]);
end;