Скриншот объекта

[Maxs]

Мне нужно сделать скриншот объекта(DBGRID) в Timage (чтобы распечатать).

Вот так почему-то не получается снять объект

MyJpeg := TBitmap.Create;
    BitBlt(MyJpeg.Canvas.Handle, DBGrid1.Left,DBGrid1.Top, DBGrid1.Width, DBGrid1.Height,
           GetDC(0), 0,0,SRCCOPY);
    Image1.Width := Screen.Width;
    Image1.Height := Screen.Height;
    Image1.Picture.Assign(MyJpeg);
И если напечатать целый экран, он на бумаге почему-то маленький(7*5см). Это зависит от функции снятия скриншота или от печати?

if PrintDialog1.Execute then
  begin
    Printer.BeginDoc;
    BltTBitmapAsDib(Printer.Canvas.Handle,
      0,
      0,
      Image1.Picture.Bitmap.Width,
      Image1.Picture.Bitmap.Height,
      Image1.Picture.Bitmap);
    Printer.EndDoc;
  end;
end;

Вот функция печати:
http://www.cyberguru.ru/delphi-sourc...-kartinku.html

[Пепел Феникса]

сначало задавай размеры а потом уже делай скриншот

[Maxs]

Сообщение от Пепел Феникса

сначало задавай размеры а потом уже делай скриншот

Не подскажешь как делать размеры?

[Пепел Феникса]

MyJpeg := TBitmap.Create;
    MyJpeg.Width := Screen.Width;
    MyJpeg.Height := Screen.Height;
    Image1.Width := Screen.Width;
    Image1.Height := Screen.Height;
    BitBlt(MyJpeg.Canvas.Handle, DBGrid1.Left,DBGrid1.Top, DBGrid1.Width, DBGrid1.Height,
           GetDC(0), 0,0,SRCCOPY);
    Image1.Picture.Assign(MyJpeg);

примерно так(это если ошибка в функции скриншота)

[Maxs]

Сообщение от Пепел Феникса

MyJpeg := TBitmap.Create;
    MyJpeg.Width := Screen.Width;
    MyJpeg.Height := Screen.Height;
    Image1.Width := Screen.Width;
    Image1.Height := Screen.Height;
    BitBlt(MyJpeg.Canvas.Handle, DBGrid1.Left,DBGrid1.Top, DBGrid1.Width, DBGrid1.Height,
           GetDC(0), 0,0,SRCCOPY);
    Image1.Picture.Assign(MyJpeg);

примерно так(это если ошибка в функции скриншота)

Не помогает

[Пепел Феникса]

проверь через отладку размер Printer.Canvas
значит дело в печати

[Maxs]

Все, разобрался. Я просто умножил длину и ширину картинки:

if PrintDialog1.Execute then
  begin
    Printer.BeginDoc;
    BltTBitmapAsDib(Printer.Canvas.Handle,
      0,
      0,
      Image1.Picture.Bitmap.Width*5,
      Image1.Picture.Bitmap.Height*5,
      Image1.Picture.Bitmap);
    Printer.EndDoc;
  end;
end;

И при захвате изображения была ошибка в координатах, потому что ДБГрид находился на панеле и координаты считались от её начала.