Tem como salvar StringGrid como Bitmap?

Delphi

26/08/2005

Pessoal,

Meu string grid possui células que devem ser pintadas, e depois tenho que exportar o grid pintado para um arquivo.Bmp. Alguem sabe como?

Tipo dar um printScreen somente da área do stringGrid e salvar como bmp.

Ou conhecem algum componente que faca mais ou menos isso...

Obrigado!


Tiagops

Tiagops

Curtidas 0

Respostas

Massuda

Massuda

26/08/2005

Experimente fazer algo assim...
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;
...



GOSTEI 0
Tiagops

Tiagops

26/08/2005

Show!

Valeu!


GOSTEI 0
POSTAR