Animovaný GIF zobrazíte pomocí přístroje panel, do kterého umístíte na pozadí obrázkové DataView. Přehrávání animace můžete řídit pomocí OCL procedur přístroje panel BackgroudPlay(), BackgroundPlayRepeat() a BackgroundStop().

  panel panel_1;
    gui
      owner = background;
      position = 23, 26, 284, 181;
      window
        type = normal;
        title = 'Animated GIF';
      end_window;
    end_gui;
    graphics_mode = direct2d;
  end_panel;

  switch switch_1;
    gui
      owner = panel_1;
      position = 197, 66, 40, 40;
      window
        disable = zoom, maximize;
      end_window;
    end_gui;
    mode = rocker_red;
    transparent = true;

    procedure OnOutput( Output : boolean );
    begin
      if Output then
        pGIF.BackgroundPlayRepeat();
      else
        pGIF.BackgroundStop();
      end;
    end_procedure;

  end_switch;

  panel pGIF;
    gui
      owner = panel_1;
      position = 15, 17, 151, 150;
    end_gui;
    background
      type = '.IMG';
      file = 'flames.gif';
    end_background;
  end_panel;

Celý ukázkový příklad si můžete stáhnout zde.