TDrawGrid als Bitmap speichern

[omata]

Moin,

schau dir mal folgendes an...

Delphi-Quellcode:

procedure DrawGridToClipboard(DrawGrid: TDrawGrid);
var Bitmap: TBitMap;
    i, Hoehe, Breite:integer;
begin
  Bitmap:=TBitmap.Create;
  try
    Bitmap.HandleType:=bmDIB;
    Hoehe:=0;
    for i:=1 to DrawGrid1.RowCount do
      Hoehe:=Hoehe + DrawGrid.RowHeights[i-1] + DrawGrid.GridLineWidth;
    Breite:=0;
    for i:=1 to DrawGrid.ColCount do
      Breite:=Breite + DrawGrid.ColWidths[i-1] + DrawGrid.GridLineWidth;
    Bitmap.Width:=Breite;
    Bitmap.Height:=Hoehe;
    BitBlt(Bitmap.Canvas.Handle, 0, 0, breite, hoehe,
           DrawGrid.Canvas.Handle, 0, 0, cmSrcCopy);
    Clipboard.Assign(Bitmap);
  finally
    Bitmap.free;
  end;
end;

MfG
Thorsten