Merge pull request EtheaDev#274 from DeveloppeurPascal/master

Fixed TSVGIconImageCollection registration for FMX projects
edsontmarques · May 22, 2024 · 3c8d406 · 3c8d406
2 parents 7e8ca9d + 4c984dc
commit 3c8d406
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/Source/SVGIconImageCollection.pas b/Source/SVGIconImageCollection.pas
@@ -139,6 +139,7 @@ implementation
 
 uses
   System.SysUtils
+  , VCL.Controls
   , {$IFDEF DXE4+}System.Messaging{$ELSE}SVGMessaging{$ENDIF};
 
 { TSVGIconImageCollection }
@@ -527,4 +528,13 @@ procedure TSVGIconImageCollection.Draw(ACanvas: TCanvas; ARect: TRect; AIndex: I
   LSVG.PaintTo(ACanvas.Handle, TRectF.Create(ARect), AProportional);
 end;
 
+initialization
+
+{$IF NOT DEFINED(CLR)}
+  StartClassGroup(VCL.Controls.TControl);
+  ActivateClassGroup(VCL.Controls.TControl);
+  GroupDescendentsWith(TSVGIconImageCollection, VCL.Controls.TControl);
+{$ENDIF}
+
+
 end.