Modify to use VCL GIF image unit

delphidabbler · delphidabbler · commit 92f3f8ff402a · 2021-11-28T20:44:22.000Z
Now use GIFImg unit (from VCL) instead of 3rd party GIFImage unit.
FmSplash now uses class helper to load GIF from resources.
diff --git a/Src/FmSplash.pas b/Src/FmSplash.pas
@@ -66,11 +66,9 @@ implementation
 
 uses
   // Delphi
-  Windows, Graphics,
-  // 3rd party
-  GIFImage,
+  Windows, Graphics, GIFImg,
   // Project
-  UAppInfo, UColours, UStructs, UWindowSettings;
+  UAppInfo, UClassHelpers, UColours, UStructs, UWindowSettings;
 
 
 {$R *.dfm}
@@ -149,7 +147,7 @@ procedure TSplashForm.pbMainPaint(Sender: TObject);
   // Load and display splash screen image
   GIF := TGIFImage.Create;
   try
-    GIF.LoadFromResourceName(HInstance, 'SPLASHIMAGE');
+    GIF.LoadFromResource(HInstance, 'SPLASHIMAGE', RT_RCDATA);
     Canvas.Draw(0, 0, GIF);
   finally
     GIF.Free;
diff --git a/Src/UGIFImageList.pas b/Src/UGIFImageList.pas
@@ -72,8 +72,8 @@ implementation
 
 
 uses
-  // 3rd party
-  GIFImage,
+  // Delphi
+  GIFImg, UClassHelpers,
   // Project
   UComparers;
 
