Сохранить изображение компонента в файл, даже если он частично не виден.

[Son]

Здравствуйте. Мне надо сохранить изображение компонента в файл. Делаю так:

var BMP : Graphics.TBitmap;
begin
  if not SaveDialog1.Execute then exit;
  BMP := Graphics.TBitmap.Create;
  BMP.Width:=Lenta.Width;
  BMP.Height:=Lenta.Height;
  BMP.Canvas.CopyRect(Rect(0,0,Lenta.Width,Lenta.Height),Lenta.Canvas,Rect(0,0,Lenta.Width,Lenta.Height));

  BMP.SaveToFile(SaveDialog1.FileName);
  BMP.Free;
end;

При таком коде, если компонент частично перекрыт, то сохраняется отображение того, что находится поверх его. Можно ли сохранить именно то, что отрисовано в компоненте?

[WorldMaster]

А зачем так делать если не секрет?

[Кольша]

Не уверен что сработает но все же:

var
h:Thandle;
rect:Trect;
begin
 if not SaveDialog1.Execute then exit;
h:=lenta.handle;
getwindowrect(h,rect);
with TBitmap.Create do
  begin
Width :=rect.Right-rect.Left;
Height :=rect.Bottom-rect.Top;

    BitBlt(Canvas.Handle, 0, 0, Width, Height,
        GetDC(h), 0, 0, SRCCOPY);
 
    SaveToFile(SaveDialog1.FileName);
    Free;
  end;

[Son]

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

А зачем так делать если не секрет?

Программа аналогична графическому редактору. И рабочая область может быть сдвинута за пределы окна.

[Son]

Сообщение от Кольша

Не уверен что сработает но все же:

var
h:Thandle;
rect:Trect;
begin
 if not SaveDialog1.Execute then exit;
h:=lenta.handle;
getwindowrect(h,rect);
with TBitmap.Create do
  begin
Width :=rect.Right-rect.Left;
Height :=rect.Bottom-rect.Top;

    BitBlt(Canvas.Handle, 0, 0, Width, Height,
        GetDC(h), 0, 0, SRCCOPY);
 
    SaveToFile(SaveDialog1.FileName);
    Free;
  end;

черный прямоугольник сохранят.