Como inserir uma imagem num TRichEdit

Question

Ol� pessoal,tenho que inserir uma imagem dentro de um TRichEdit e n�o tenho a menor id�ia de como posso fazer. A imagem dever� ser um BMP ou JPG....

Imoreira · Answer

uses p tRXRichEdit e fa�a assimprocedure TForm1.SpeedButton1Click(Sender: TObject);var   Pict: TPicture;begin   with OpenPictureDialog1 do begin      if Execute then begin         Pict := TPicture.Create;         try            Pict.LoadFromFile(FileName);            Clipboard.Assign(Pict);            Editor.PasteFromClipboard;         finally            Pict.Free;         end;      end;   end;end;...

Imoreira · Answer

Adione clipbrd � se��o uses....

Carlosib · Answer

Desculpe amigo, mas n�o consegui.N�o consigo colocar a imagem com o c�digo que vc passou.N�o consigo abrir um RTF no word e por uma imagem, salvar o documento no word e abrir o arquivo em meu aplicativo e ver a imagem....

Imoreira · Answer

Pelo que eu entendi voc� quer abrir um documento rtf com imagens, certo?

Ent�o fa�a assim:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if opendialog1.Execute then begin
editor.Lines.LoadFromFile(opendialog1.filename);
end;
end;

Carlosib · Answer

Com esse c�digo n�o consigo....Uso Delphi 7....

Imoreira · Answer

Voc� est� utilizando o componente rxRichEdit?Testei esse c�digo aqu� e funcionou....

Carlosib · Answer

Consigo ver o texto...a imagem nao....[code:1:d646cd129a]  if OpenDialog1.Execute then  begin    Texto.Lines.LoadFromFile(OpenDialog1.FileName);  end;[/code:1:d646cd129a]Tenho que alterar algo nas propriedades do RichEdit?...

Carlosib · Answer

sim:[code:1:10bc08ff23]    Texto: TRichEdit;[/code:1:10bc08ff23]...

Imoreira · Answer

N�o Utilize o RichEdit pois ao que me parece ele n�o d� suporte � imagens.

Utilize o Componente [b:cf798e6bd0]RXRichEdit[/b:cf798e6bd0] da palheta RXControls

A Propriedade PlainText deve estar setado false.

F�rum Como inserir uma imagem num TRichEdit #281334