[Midmal]

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

[NIch]

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

[Midmal]

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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]

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

Код:

1 2 3 4 5 6 7 8

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;

[Sevas55]

Вроде тема подходящая, не стал новую создавать, может кто-то поможет.

Создаю имитацию работы осциллографа. для отображения графиков хочу использовать Image, т.к. есть фотография экрана реального осциллографа с сеткой, т.е. она как подложка. график должен выводится поверх этой подложки.
но при попытке рисовать на canve imag`а, вылазит ошибка.
возможно ли рисовать в Делфи поверх фотографии в Image?

[x128]

возможно, только картинка должна быть битмапом, а у тебя скорее всего джипег, вот и ругается.

[lmikle]

А вот руки оторвать за такое программирование. Да, на TImage можно рисовать, но кто вам сказал, что это правильный путь. Рисовать в таком слцчае надо на TPaintBox. Грузишь свою фотку в буферный объект и потом отрисовываешь ее на TPaintBox и сверху еще свой график.

[Aristarh Dark]

Оффтоп:
А потом еще ругаются: "А чего это у нас такие тормозные программы?"

[Sevas55]

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

А вот руки оторвать за такое программирование. Да, на TImage можно рисовать, но кто вам сказал, что это правильный путь. Рисовать в таком слцчае надо на TPaintBox. Грузишь свою фотку в буферный объект и потом отрисовываешь ее на TPaintBox и сверху еще свой график.

Был бы я программером наверно стоит оторвать, но увы (буферный объект - для меня китайская грамота). Хотя на примерчик бы не прочь глянуть если есть поделитесь. Искал тут, но то ли нет подходящего, то ли не вижу.

Сообщение от Aristarh Dark

Оффтоп:
А потом еще ругаются: "А чего это у нас такие тормозные программы?"

скорость мне в данной работе не особо нужна.динамики почти нет. так что хоть и неверно пытаюсь, но как могу.

хоть и криво но проблему решил, просто график на formcreate не рисуется.
за TPaintBox спасибо. поищу, но если не трудно или примерчик, или где читать.

[lmikle]

Примерчик будет типа такой.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

type   TForm1 = class(TForm)     PaintBox1 : TPaintBox;   ...   private     Bmp : TBitmap; // Буфер. Можно JPEG, то тогда будет каждый раз                          // преобразовывать. Лучше руками самому все подготовить     ...   end;   procedure TForm1.FormCreate(Sender : TObject); begin   Bmp := TBitmap.Create;   Bmp.LoadFromFile('template.bmp'); end;   procedure TForm1.FormDestroy(Sender : TObject); begin   Bmp.Free; end;   procedure TForm1.PaintBox1Paint(Sender : TObject); begin   // сначала рисуем подложку   PaintBox1.Canvas.Draw(0,0,Bmp);     // А теперь поверх подложки рисуем функцию   PaintBox1.Canvas.MoveTo(10,10);   PaintBox1.Canvas.LineTo(100,100); end;

Естественно, это только пример. При этом - самый грубый.
Лучше сделать еще один промежуточный буфер, на котором отрисовать подложку и график, а потом уже это копировать в PaintBox целиком одной командой. Ну и рисование функции в примере примитивное - у тебя будет сложнее.

[Sevas55]

спасибо за совет!
как очищать график на канве? PaintBox1.Canvas.Refresh почемуто не удаляет нарисованное с помощью moveto-lineto. в результате графики накладываются друг на друга при каждом нажатии на SpeedButton

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.SpeedButton6Click(Sender: TObject); begin        PaintBox1.Canvas.Refresh;           for x:=0 to 100 do             begin               PaintBox1.Canvas.Pen.Color:=cllime;               PaintBox1.Canvas.moveto(x,214);               PaintBox1.Canvas.lineto(x+1,random(214));             end; end;

[x128]

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

...PaintBox1.Canvas.Refresh почемуто не удаляет нарисованное...

используй как писали ранее PaintBox1.Canvas.Draw(0,0,Bmp);

[Sevas55]

для отображения графиков в PaintBox разобрался, всем огромное спасибо!
для создания внешнего вида осциллографа использую Image, загружая в него фото отдельных частей прибора, т.е. после компиляции фотографии получаются в exe файле проекта, их присутствие в папке с проектом не обязательно.

как сделать так чтобы фотография подложки для канвы PaintBox также была недоступна для юзера? чтобы он её случайно/специально не удалил и тогда проект вообще не запустится.