Fórum Tem como salvar StringGrid como Bitmap? #293330

var
  Bitmap: TBitmap;
  Stream: TFileStream;
...
  // StringGrid1 é um TStringGrid

  Bitmap := TBitmap.Create;
  try
    Bitmap.Width := StringGrid1.Width;
    Bitmap.Height := StringGrid1.Height;

    StringGrid1.PaintTo(Bitmap.Canvas.Handle, 0, 0);

    // salva numa arquivo de nome teste.bmp
    DeleteFile(´teste.bmp´);
    Stream := TFileStream.Create(´teste.bmp´, fmCreate);
    try
      Bitmap.SaveToStream(Stream);
    finally
      Stream.Free;
    end;
  finally
    Bitmap.Free;
  end;
...