Рисование поверх картинки

[rokotokobot]

Доброго времени суток. Подскажите с проблемкой. Не могу понять никак, как решить её.

Загружаю в Image картинку jpg. теперь хочу сделать такую вещь, что-то типо стандартного выделения области, когда пользователь делает маусДаун и тянет в какую-нить сторону то рисуется прямоугольник с начальной вершиной в точке маусДаун и до точки текущего положения курсора.

Т.к. подгружаю джипег, следовательно в этом имейдже уже нельзя рисовать. Пытался ставить второй Image поверх и рисовать в нем, но фон он выставляет белый, даже если ставить флаг Transparent=true; Да и даже когда белый фон, при каждом рисовании почему-то имейдж не обновлялся (стопка квадратов рисовалось), даже используя стандартные методы как Refresh.

что хотелось бы узнать:

1. как нарисовать одно изображение поверх другого.
2. как сделать прозрачный фон у image
3. как заставить image обновляться

Спасибо =)

[x128]

Преобразовывай джипег в битмап и рисуй на имидже.
например так:

jpg:=TJPEGImage.Create;
jpg.LoadFromFile('моя картика.jpg');
Image1.Picture.Bitmap.Assign(jpg);
jpg.Free;

[ArtGrek]

четко понял что работаете с картинками, больше ниичего

маусДаун и тянет в какую-нить сторону то рисуется прямоугольник
с начальной вершиной в точке маусДаун и до точки текущего положения курсора.

метод резинового выделения в гугле

3. как заставить image обновляться

Repaint;

2. как сделать прозрачный фон у image

Transparent := True;

1. как нарисовать одно изображение поверх другого.

что например?

[rokotokobot]

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

Repaint;

Я писал, что стандартные методы обновления не помогают.

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

Transparent := True;

я вроде как писал что выставлять этот флаг не помагает.

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

что например?

например квадратную рамку поверх картинки

[rokotokobot]

Третий вопрос снят, актуален первый+второй вопрос.
Есть два Имеджа, один поверх другого, в "нижний" подгружается картинка джипег (что означает что в нем недьзя рисовать). Нужно рисовать в верхнем. Но при рисовании в канвасе фон заливается белым цветом и соответственно не видно нижнюю картинку. Каааааак сделать так чтобы фон не заливался белым, а оставался прозрачным?

[rokotokobot]

Тема не актуальна, но если кому понадобиться сделал так, по оптимальности понимаю что далеко не идеально, но лучше так чем никак.

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

var
  img: TJPEGImage;
  bmp: TBitmap;

img := TJPEGImage.Create;
img.LoadFromFile('...My.Jpg');
bmp := TBitmap.Create;
bmp.Assign(img);
Image1.Picture.Bitmap.Assign(bmp);

потом при событии каком-то, которое нужо перерисовывание делал так

Image1.Picture:=nil;
Image1.Picture.Bitmap.Assign(bmp);
Image1.Canvas... //рисовал что надо

[ArtGrek]

так получается, что всегда, читаю вашу тему глубокои ночью, и уже сильно не соображаю, но
для того что б рисовать на джпг загруженом в имадже, надо обращаться к

Image1.LoadFromFile('...My.Jpg');
Image1.Picture.BitMap.Canvas.Brush := bsCleare; //что б фон не был белым, задаите стил кисти соответствуюшии
Image1.Picture.BitMap.Canvas.????? ....

[rokotokobot]

Может я чего не понимаю, но как можно будет рисовать кистью которая будет цветом - "чистым"?

[Rigard_sh45rus]

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

так получается, что всегда, читаю вашу тему глубокои ночью, и уже сильно не соображаю, но
для того что б рисовать на джпг загруженом в имадже, надо обращаться к

Image1.LoadFromFile('...My.Jpg');
Image1.Picture.BitMap.Canvas.Brush := bsCleare; //что б фон не был белым, задаите стил кисти соответствуюшии
Image1.Picture.BitMap.Canvas.????? ....

Я сделал так рисование прозрачного квадрата. Может кому пригодится.

 Image1.Canvas.Pen.Color:= clRed;
  Image1.Canvas.Pen.Mode:= pmNotXor;
  Image1.Canvas.Pen.Width:=2;
 Image1.Canvas.Rectangle(0,0,500,500);

Pen.Color:= clRed - цвет рамки красный
Pen.Mode:= pmNotXor - Сделает нарисованный квадрат прозрачным
Pen.Width:=2 - Ширина рамки
Rectangle(0,0,500,500) - рисуем сам квадрат

[MeTeOpA]

Такой вопрос...

В Image1 загружен tested.bmp

Пробуем :

 Image1.Canvas.Pen.Color:= clRed;
  Image1.Canvas.Pen.Width:=2;
 Image1.Canvas.Rectangle(0,0,100,100);

Получаем не красный(как ожидалось)квадрат а черный закрашенный квадрат поверх изображения....

В чем дело не подскажете?