Как сохранить изображение Image и всё что на нём, в файл?

[Лукманов Александр]

Здесь и в гугле все варианты перерыл. Они сохраняют не так как надо.

На Image находятся динамические label's и image's, как сохранить всё это в файл jpg?

[Лукманов Александр]

Нашёл на форуме код от mihali4. Делаю скрин экрана (размером Image), вырезаю "шапки" окна. Тему можно закрыть. Спасибо.

procedure TForm1.btn12Click(Sender: TObject);
var
ScreenDC:HDC;
Canvas:TCanvas;
myjpg:  TBitmap;
Image: TImage;
Begin
Image:=TImage.Create(nil);
myjpg:= TBitMap.Create;
ScreenDC := GetDC(0);
Canvas:=TCanvas.Create();
Canvas.Handle:=ScreenDC;
Image.Width := Image1.Width;
Image.Height := Image1.Height;
Image.Left:= Image2.Left;
Image.Top:= Image2.Top;
Image.Canvas.CopyRect(Rect(0, -20, Image1.Width, Image1.Height), Canvas, Rect(7, 7, Image1.Width, Image1.Height+26));
ReleaseDC(0,ScreenDC);
myjpg.Assign(Image.Picture.Bitmap);

{устанавливаем параметры качества. Должно быть от 1 до 100. Если 100, то качество наилучшее, 1 наихудшее}
 {производим сжатие данных картинки}
myjpg.SaveToFile('prob.bmp');
Image.Free;
Canvas.Free;
end;

[mihali4]

Посмотрите тему http://programmersforum.ru/showthread.php?t=14666
Она довольно хороша.
Вам только нужно будет выставить нужные значения для rcSrc.right, rcSrc.left, rcSrc.bottom и rcSrc.top...

[Лукманов Александр]

Спасибо, нашёл чуть другой способ (правда полупрозрачные окна не видит) (post№2). Попробую Ваш. Хотя они в принципе оба Ваши.

http://programmersforum.ru/showthread.php?t=14666

тут не дошло до меня какие параметры функции вводить