Показать сообщение отдельно
  #2  
Старый 16.04.2013, 14:09
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Все довольно несложно, надо только иметь ввиду, что кроме BMP все остальные фарматы хранения картинок, это "архивы" и для их изменения надо картинку сначала распаковать т.е. преобразовать в BMP, а уже потом снова поместить в "архив". Как только вы получили распакованную картинку, дальше вы можете делать с ней что угодно. Вот примерчик, наложения:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
 if not OpenPictureDialog1.Execute then Exit;
 Mark.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if not OpenPictureDialog2.Execute then Exit;
 ListBox1.Items.AddStrings(OpenPictureDialog2.Files);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
Var
  Bmp: TBitmap;
  Jpg: TJpegImage;
begin
 if ListBox1.ItemIndex = -1 then Exit;
 Jpg := TJpegImage.Create;
 Jpg.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]);
 Bmp := TBitmap.Create;
 Bmp.Assign(Jpg);
 Bmp.Canvas.Draw(1, 1, Mark.Picture.Graphic);
 Image1.Picture.Assign(Bmp);
 Bmp.Free;
 Jpg.Free;
end;
Что касается трансформации накладываемого изображения, то тут надо более подробно. С примерами, до и после.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием