Buscar

Inserir imagem no rxrichedit

Código

//Olá, está dica é muito facil e util. Ela usa o CLipboard como
//ponte para que a imagem se estabeleça no RxRichEdit

//Insira um RxRichEdit no Form, um ImageList, e um Button,,,
//No ImageList1 insira uma imagem por exemplo um smile do MSN

//No evento OnClick do button1 coloque...
Procedure Tform1.Button1Onclick(Sender: Tobject);
var temp : Tbitmap;//Bitmap Temporario
begin
temp := Tbitmap.create;//Cria a imagem temporaria
imagelist1.GetBitmap(0,temp);//Pega a imagem numero 0 e joga pro Temp
clipboard.assign(temp);//Passa a imagem pro Clipboard
Rxrichedit1.PastFromClipBoard;//Insere a imagem!
end;

//Não se esqueça de declarar a unit Clipbrd na uses...
//Acho q só funciona com a RxRichEdit q faz parte da Rxlib..

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Imagens
Adicionada dia: 12/05/07
Por: Lucas Náiade
Visualizada: 5547 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009