OmarPerez
24-11-2003, 20:04:19
Hola. Quiero reemplazar un texto en RichEdit por una imagen de un archivo, pero no me funciona y ya no se como hacer.
Lo que hago en resumen es lo siguiente:
Var
vPos :Integer;
vPic : TGifImage;
Begin
vPic := TGifImage.Create;
Clipboard.Open;
vPos:= vRichEdit.FindText(':=>',0, Length(vTx), [stMatchCase]);
if vPos > 1 then
Begin
vPic.LoadFromFile( 'imagen.gif' );
Clipboard.Assign( vPic );
vRich.SelStart:= vPos;
vRich.SelLength:= 3;
vRich.PasteFromClipboard;
end;
que es lo que esta mal? en el clipboard tengo la imagen porque otras aplicaciones si hago Paste lo pega. Muchas gracias
Lo que hago en resumen es lo siguiente:
Var
vPos :Integer;
vPic : TGifImage;
Begin
vPic := TGifImage.Create;
Clipboard.Open;
vPos:= vRichEdit.FindText(':=>',0, Length(vTx), [stMatchCase]);
if vPos > 1 then
Begin
vPic.LoadFromFile( 'imagen.gif' );
Clipboard.Assign( vPic );
vRich.SelStart:= vPos;
vRich.SelLength:= 3;
vRich.PasteFromClipboard;
end;
que es lo que esta mal? en el clipboard tengo la imagen porque otras aplicaciones si hago Paste lo pega. Muchas gracias