Сделать скрин формы

[andreyjn]

Я вот придумал как можно вывести текст рядом с фоткой но незнаю как в один Image поместить две картинки ! Подскажите !!!!!!!!!

[Stilet]

CopyRect сначала из одного осточника, потом из другого.
или BitBlt

[andreyjn]

А можно полный код - потому как я с картинками не работал кроме как сохранить на диск !

[SunKnight]

Вот пжалуста:[ATTACH]3235[/ATTACH]

[andreyjn]

Не такой вариант не катит потому как будет открываться другая форма а оно захватывает и другие куски кроме той формы !
Вот другой вариант мне подсказали ! Короче вот код - принцып копирует два Image в один но проблема с jpeg работает только с bmp подскажите как чтоб с jpeg
Код

var
s:string;
  Img: TBitmap;
begin
Img:= TBitmap.Create;
img.LoadFromFile(s+'\Temp\temp1.bmp');
Form4.Image3.Canvas.Draw(10, 10, Img);

img.LoadFromFile(s+'\Temp\temp2.bmp');
Form4.Image3.Canvas.Draw(100, 100, Img);
Img.Free;


        GetDir(0,s);
        Form4.Image3.Picture.SaveToFile(s+'\Foto\'+inttostr(DataModule2.IBQuery1.FieldByName('TABNOM').Value)+'.jpg');
end;

[SunKnight]

uses jpeg
..........
var   
  s:string;
  JpegIm:TJpegImage;
begin
  JpegIm := TJpegImage.Create;
  JpegIm.LoadFromFile('1.jpg');
  Form1.Image1.Canvas.Draw(0, 0, JpegIm);
  JpegIm.LoadFromFile('2.jpg');
  Form1.Image1.Canvas.Draw(100, 100, JpegIm);
  JpegIm.Free;
  Form1.Image1.Picture.SaveToFile('D:\dddddd.jpg');
end;

[Квэнди]

название темы...
закрыто