PDA

Ver la Versión Completa : imagen en RichEdit


jars
24-09-2014, 14:00:25
Hola amigos.
Tengo una ventana que es un chat, durante el chateo me quieren pasar una url que contiene una imagen y que esta se muestre en la ventana de chat (RichEdit), es esto posible?, alguna mano con algo de código.

Por otro lado tambien me quieren pasar unas coordenadas de posisionamiento (latitud y longitud) y de ser posible que tambien de alguna forma se muestre el mapa en la ventana de chat.
Estoy totalmente a oscuras con esto.
Alguien me tiende una mano.
Gracias

ecfisa
24-09-2014, 20:50:23
Hola jars.
...
Tengo una ventana que es un chat, durante el chateo me quieren pasar una url que contiene una imagen y que esta se muestre en la ventana de chat (RichEdit), es esto posible?, alguna mano con algo de código.
..
Un modo es usando un TImage:

procedure TForm1.PutImageInRE(RE: TRichEdit; Img: TImage;
const posX, PosY, aWidth, aHeight: Integer);
begin
RemoveControl(Img);
Img.Left := posX;
Img.Top := posY;
Img.Width := aWidth;
Img.Height:= aHeight;
RE.InsertControl(Img);
Img.Parent:= RE;
end;


Ejemplo de uso:

procedure TForm1.btnPutImageClick(Sender: TObject);
begin
PutImageInRE(RichEdit1, Image1, 510, 50, 80, 80);
end;


Muestra:
http://sia1.subirimagenes.net/img/2014/09/24/140924084254981273.jpg

Saludos :)