Insertar imagen en RxRichEdit

[SCH]

Estoy haciendo un pequeño editor con un RxRichEdit, pero no sé como insertar una imagen; si la tengo en el portapapeles sí, claro, pero si el usuario elige un archivo de imagen como puedo cargarlo en el RxRich?

Salu2 a tod@s.

[delphi.com.ar]

Hay muchas formas de hacerlo, esta creo que es más que fácil:

var
  Pic: TPicture;
begin
  if OpenPictureDialog1.Execute Then
  begin
    Pic := TPicture.Create;
    try
      Pic.LoadFromFile(OpenPictureDialog1.FileName);
      Clipboard.Assign(Pic);
      RxRichEdit1.PasteFromClipboard;
    finally
      Pic.Free;
    end;
  end;

Saludos!

[SCH]

Gracias, lo acabo de probar y va bastante bien, el único problema es cuando quiero insertar un gif con transparencias, que la transparencia "se la salta" y pone un fondo de imagen negro ¿alguna idea?

Un saludo

[delphi.com.ar]

Desconozco si el RTF y el RichEdit soportan imágenes transparentes.

Saludos!

[SCH]

Creo que sí porque cuando lo pego con Control+V sí coge bien las transparencias.

Salu2

[delphi.com.ar]

Probé usar el TGIFImage de las RxLibs, pero también falla porque lo copia al portapapeles como si cada frame del Gif fuera un Bitmap:

 Frames[0].Bitmap.SaveToClipboardFormat(AFormat, AData, APalette);

Habría que investigar como pasarle un GIF al clipboard. Este es el código que hice, por si te interesa:

uses
  RxGIF, Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var
  GIF: TGIFImage;
  MyFormat : Word;
  AData    : THandle;
  APalette : HPALETTE;
begin
  if OpenPictureDialog1.Execute Then
  begin
    GIF := TGIFImage.Create;
    try
      GIF.LoadFromFile(OpenPictureDialog1.FileName);
      GIF.SaveToClipBoardFormat(MyFormat, AData, APalette);
      ClipBoard.SetAsHandle(MyFormat, AData);
      RxRichEdit1.PasteFromClipboard;
    finally
      GIF.Free;
    end;
  end;
end;

Saludos!