Browse Source

optimize Gif frames

Johann ELSASS 4 years ago
parent
commit
4dfda41efe
1 changed files with 1 additions and 0 deletions
  1. 1 0
      lazpaint/image/uimage.pas

+ 1 - 0
lazpaint/image/uimage.pas

@@ -677,6 +677,7 @@ begin
       gif.ReplaceFullFrame(newFrameIndex, RenderedImage, gif.FrameDelayMs[newFrameIndex]);
     end;
 
+    gif.OptimizeFrames;
     s := FileManager.CreateFileStream(AOutputFilename,fmCreate);
     try
       gif.SaveToStream(s);