MBonaldo/hfs2
1
0
Fork 0
mirror of https://github.com/rejetto/hfs2.git synced 2025-12-19 10:03:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

dismissed 3rd party's gif lib

Browse Source
This commit is contained in:
Massimo Melina 2020-05-17 18:43:03 +02:00
parent 08062c8325
commit 32b90d2e50
3 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
developer notes.txt
View File

@ -4,5 +4,4 @@ Icons are generated at http://fontello.com/ . Use fontello.json for further modi
=== LIBS USED === LIBS USED
ICS v8.58 by François PIETTE http://www.overbyte.be 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 TRegExpr v0.952 by Andrey V. Sorokin http://www.regexpstudio.com/TRegExpr/TRegExpr.html

6
main.pas
View File

@ -29,7 +29,7 @@ uses
Windows, Messages, SysUtils, Forms, Menus, Graphics, Controls, ComCtrls, Dialogs, math, Windows, Messages, SysUtils, Forms, Menus, Graphics, Controls, ComCtrls, Dialogs, math,
registry, ExtCtrls, shellapi, ImgList, ToolWin, StdCtrls, strutils, AppEvnts, types, registry, ExtCtrls, shellapi, ImgList, ToolWin, StdCtrls, strutils, AppEvnts, types,
winsock, clipbrd, shlobj, activex, Buttons, FileCtrl, dateutils, iniFiles, Classes, 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 // 3rd part libs. ensure you have all of these, the same version reported in dev-notes.txt
OverbyteIcsWSocket, OverbyteIcsHttpProt, regexpr, OverbyteIcsZLibHigh, OverbyteIcsZLibObj, OverbyteIcsWSocket, OverbyteIcsHttpProt, regexpr, OverbyteIcsZLibHigh, OverbyteIcsZLibObj,
// rejetto libs // rejetto libs
@ -1956,9 +1956,6 @@ function gif2str(gif:TgifImage):ansistring;
var var
stream: Tbytesstream; stream: Tbytesstream;
begin 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(); stream:=Tbytesstream.create();
gif.SaveToStream(stream); gif.SaveToStream(stream);
setLength(result, stream.size); setLength(result, stream.size);
@ -1973,7 +1970,6 @@ begin
gif:=TGIFImage.Create(); gif:=TGIFImage.Create();
try try
gif.ColorReduction:=rmQuantize; gif.ColorReduction:=rmQuantize;
gif.Compression:=gcLZW;
gif.Assign(bmp); gif.Assign(bmp);
result:=gif2str(gif); result:=gif2str(gif);
finally gif.free; finally gif.free;

2
utillib.pas
View File

@ -24,7 +24,7 @@ unit utilLib;
interface interface
uses 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, shlobj, shellapi, activex, comobj, strutils, forms, stdctrls, controls, psAPI, menus, math,
longinputDlg, OverbyteIcsWSocket, OverbyteIcshttpProt, comCtrls, iniFiles, richedit, sysutils, classesLib{, fastmm4}; longinputDlg, OverbyteIcsWSocket, OverbyteIcshttpProt, comCtrls, iniFiles, richedit, sysutils, classesLib{, fastmm4};