(Resolvido) Tranformar Richedit Em Um Bitmap

[Erso]

ola pessoal!!!!

eu preciso transformar o conteudo de um RichEdit em um bitmap,

mantendo as caracteristicas do texto!!!

 

 

obrigado!!!1!!!

[Ricardo_PF]

Eu nunca fiz isso, mas tenta utilizar os recursos de TGraphic (ou TGraphics, não lembro o certo).

Ai pode ser que tenha alguma função ou procedimento que te ajude.

falou.

[Thales Pontes Martins]

porque que você não tenta usar Bitmap.Canvas.textout(x,y,Richedit.lines[n])

Aí você vai ter que fazer um algoritmo pra ordenar isso dentro do bitmap, não é difícil.

[Erso]

:unsure: Eu já tentei isso!!!, assim não da pra manter as formatações de fonte.

obrigado!!!!

[Thales Pontes Martins]

Claro que dá, O Canvas tem uma propriedade Font, e o RichEdit tem também uma propriedade Font, iguale as duas, depois iguale a cor do fundo e tudo mais.

[Thales Pontes Martins]

Aí vai um código que transforma um RichEdit em Bmp mantendo a formatação de fonte exata. Adapte aí.

procedure TForm1.Button1Click(Sender: TObject);
var bmp : TBitmap;
  rec, rec2 : TRect;
begin
  rec.Left:=Richedit1.left;
  rec.Top:=richedit1.Top;
  rec.Bottom:=richedit1.Top+richedit1.Height;
  rec.Right:=richedit1.Left+richedit1.Width;
  bmp:=TBitmap.Create;
  bmp.Height:=richedit1.Height;
  bmp.Width:=richedit1.Width;
  rec2.Top:=0;
  rec2.Left:=0;
  rec2.Right:=richedit1.Width;
  rec2.Bottom:=richedit1.Height;
  bmp.Canvas.CopyRect(rec2,Canvas,rec);
  bmp.SaveToFile('i:\rich.bmp');
  bmp.Free;
end;

Na verdade copia qualquer componente ou qualquer parte do form. Nesse caso o meu form tinha um TRichEdit e um TButton.

[Erso]

:lol: cara valeu!!!!! muito obrigado!!!!