13-11-23

EnvelopeGenerator.Common/Helpers.vb

@@ -1,4 +1,5 @@
 Imports System.Drawing
+Imports DevExpress.Utils.Svg
 Imports EnvelopeGenerator.Common.Constants
 
 Public Class Helpers
@@ -71,4 +72,17 @@ Public Class Helpers
 
         End Select
     End Function
+
+    Public Shared Function GetColorCircle(pBaseImage As SvgImage, pColor As Color) As SvgImage
+        Dim oColoredImage As SvgImage = pBaseImage.
+            Clone(Sub(el As SvgElement, table As Hashtable)
+                      If TypeOf el Is SvgCircle Then
+                          el.Styles.Clear()
+                          table("StyleName") = String.Empty
+                          table("Fill") = ColorTranslator.ToHtml(pColor)
+                      End If
+                  End Sub)
+
+        Return oColoredImage
+    End Function
 End Class