Forráskód Böngészése

optimize Gif frames

Johann ELSASS 4 éve
szülő
commit
4dfda41efe
1 módosított fájl, 1 hozzáadás és 0 törlés
  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);