From 32b90d2e507317712e254827b7e5efe70ae5e5b7 Mon Sep 17 00:00:00 2001 From: Massimo Melina Date: Sun, 17 May 2020 18:43:03 +0200 Subject: [PATCH] dismissed 3rd party's gif lib --- developer notes.txt | 1 - main.pas | 6 +----- utillib.pas | 2 +- 3 files changed, 2 insertions(+), 7 deletions(-) diff --git a/developer notes.txt b/developer notes.txt index b594703..29151db 100644 --- a/developer notes.txt +++ b/developer notes.txt @@ -4,5 +4,4 @@ Icons are generated at http://fontello.com/ . Use fontello.json for further modi === LIBS USED ICS v8.58 by François PIETTE http://www.overbyte.be -GIFimage v2.2r5 by Anders Melander http://www.tolderlund.eu/delphi/ TRegExpr v0.952 by Andrey V. Sorokin http://www.regexpstudio.com/TRegExpr/TRegExpr.html diff --git a/main.pas b/main.pas index d5352a7..d8bf59e 100644 --- a/main.pas +++ b/main.pas @@ -29,7 +29,7 @@ uses Windows, Messages, SysUtils, Forms, Menus, Graphics, Controls, ComCtrls, Dialogs, math, registry, ExtCtrls, shellapi, ImgList, ToolWin, StdCtrls, strutils, AppEvnts, types, winsock, clipbrd, shlobj, activex, Buttons, FileCtrl, dateutils, iniFiles, Classes, - System.ImageList, system.Generics.Collections, GIFimage, + System.ImageList, system.Generics.Collections, Vcl.Imaging.GIFImg, // 3rd part libs. ensure you have all of these, the same version reported in dev-notes.txt OverbyteIcsWSocket, OverbyteIcsHttpProt, regexpr, OverbyteIcsZLibHigh, OverbyteIcsZLibObj, // rejetto libs @@ -1956,9 +1956,6 @@ function gif2str(gif:TgifImage):ansistring; var stream: Tbytesstream; begin -{ the gif component has a GDI object leak while reducing colors of -{ transparent images. this seems to be not a big problem since the -{ icon cache system was introduced, but a real fix would be nice. } stream:=Tbytesstream.create(); gif.SaveToStream(stream); setLength(result, stream.size); @@ -1973,7 +1970,6 @@ begin gif:=TGIFImage.Create(); try gif.ColorReduction:=rmQuantize; - gif.Compression:=gcLZW; gif.Assign(bmp); result:=gif2str(gif); finally gif.free; diff --git a/utillib.pas b/utillib.pas index 963cb77..86368f9 100644 --- a/utillib.pas +++ b/utillib.pas @@ -24,7 +24,7 @@ unit utilLib; interface uses - IOUtils, main, hslib, regexpr, types, windows, graphics, dialogs, registry, classes, dateUtils, gifimage, + IOUtils, main, hslib, regexpr, types, windows, graphics, dialogs, registry, classes, dateUtils, Vcl.Imaging.GIFImg, shlobj, shellapi, activex, comobj, strutils, forms, stdctrls, controls, psAPI, menus, math, longinputDlg, OverbyteIcsWSocket, OverbyteIcshttpProt, comCtrls, iniFiles, richedit, sysutils, classesLib{, fastmm4};