Сохранение области формы

[Marsik]

А я то думал надо с правого края формы считать! А почему сохраняется просто белый фон,а не нужная область?Размеры сохраняются,а само изображение нет!Кстати сохраняю так if q!.execute then
image1.picture.loadfromfile(q1.file name);
где q1 tsavepicturedialog.
Как исправить?

[mihali4]

Кстати сохраняю так
if q!.execute then
image1.picture.loadfromfile(q1.filename);

Так "сохраняю" или "загружаю"?

Грузин дал в другой теме ответ на этот вопрос:

var
  Desktopcanvas :TCanvas ;
 BitMap  :TBitMap;
begin

 //n 001
  DesktopCanvas:=TCanvas.Create;
  DesktopCanvas.Handle:=GetDC(Hwnd_Desktop);
  BitMap := TBitMap.Create;
  BitMap.Width := Screen.Width;
  BitMap.Height:=Screen.Height;
  Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,
  DesktopCanvas, DesktopCanvas.ClipRect);
  bitmap.SaveToFile('c:\windows\screen.bmp');
 //k 001
 image1.Picture.LoadFromFile('c:\windows\screen.bmp');
end;

Надо подкорректировать для нашего случая:
- ввести Bitmap.Left, Bitmap.Top
- изменить значения BitMap.Width, BitMap.Height