Animated GIF in TAdvRichEditor

VCL TMS VCL UI Pack
1

Hello,

I'm attempting to insert user-supplied images in a TAdvRichEditor and I'm having an issue when the user selects an animated GIF: while I can successfully insert the static version, I can't find a way to have the animation running.

here is the code I'm using:

procedure TfmSlotMachineMain.InsertPicture(APict: TPicture);
begin
  if Assigned(APict) then
  begin
    redtLog.BeginUpdate;
    APict.Graphic.Transparent := True;
    if APict.Graphic is TGIFImage then
    begin
      (APict.Graphic as TGIFImage).Animate := true;
    end;
    redtLog.AddImage(APict);
    redtLog.EndUpdate;
  end;
end;

Is there a way to trigger the animation ?

Thanks,
regards,
Stephane

2

Sorry, there is at this time no built-in support for animated gifs like neither MS Word or MS WordPad do.