Add TGIFImage class helper

This class helper was added to replace direct loading of GIFs from
resources that was removed from 3rd party TGIFImage when it was
ported to the Delphi VCL

Author: delphidabbler

Src/UClassHelpers.pas

@@ -11,13 +11,15 @@
 
 unit UClassHelpers;
 
+{ TODO: Separate different helpers into their own units, within a ClassHelpers
+        scope. E.g. ClassHelpers.Controls, ClassHelper.Graphics }
 
 interface
 
 
 uses
   // Delphi
-  Controls, Menus, ImgList, Graphics, ActnList;
+  Controls, Menus, ImgList, Graphics, ActnList, GIFImg;
 
 
 type
@@ -70,6 +72,21 @@   TActionListHelper = class helper for TCustomActionList
     procedure Update;
   end;
 
+type
+  ///  <summary>Class helper that adds a method to TGIFImage that adds a similar
+  ///  method to one present in 3rd party TGIFImage to load an image from
+  ///   resources.</summary>
+  TGIFImageHelper = class helper for TGIFImage
+  public
+    ///  <summary>Load a GIF image from given resource.</summary>
+    ///  <param name="Module">HINSTANCE [in] Module containing resource.</param>
+    ///  <param name="ResName">string [in] Name of resource to be loaded.
+    ///  </param>
+    ///  <param name="ResType">PChar [in] Type of resource to be loaded.</param>
+    procedure LoadFromResource(const Module: HMODULE; const ResName: string;
+      const ResType: PChar);
+  end;
+
 
 implementation
 
@@ -174,5 +191,20 @@ procedure TActionListHelper.Update;
     Action.Update;
 end;
 
+{ TGIFImageHelper }
+
+procedure TGIFImageHelper.LoadFromResource(const Module: HMODULE;
+  const ResName: string; const ResType: PChar);
+var
+  Stm: TResourceStream;
+begin
+  Stm := TResourceStream.Create(Module, ResName, ResType);
+  try
+    LoadFromStream(Stm);
+  finally
+    Stm.Free;
+  end;
+end;
+
 end.