Ver.2.1.0

Update sample images
Updated Image32 version

Author: carloBarazzetta

Ext/SVGIconImageList/Image32/source/Img32.SVG.Core.pas

@@ -55,6 +55,8 @@ interface
     function  GetValue(relSize: double; assumeRelValBelow: Double): double;
     function  GetValueXY(const relSize: TRectD; assumeRelValBelow: Double): double;
     function  IsValid: Boolean;
+    function  IsRelativeValue(assumeRelValBelow: double): Boolean;
+      {$IFDEF INLINE} inline; {$ENDIF}
     function  HasFontUnits: Boolean;
     function  HasAngleUnits: Boolean;
   end;
@@ -88,10 +90,10 @@ interface
   UTF8Char  = Char;
   PUTF8Char = PChar;
   {$ELSE}
-    {$IF COMPILERVERSION < 31}
-    UTF8Char = AnsiChar;
-    PUTF8Char = PAnsiChar;
-    {$IFEND}
+  {$IF COMPILERVERSION < 31}
+  UTF8Char = AnsiChar;
+  PUTF8Char = PAnsiChar;
+  {$IFEND}
   {$ENDIF}
 
   TAnsi = {$IFDEF RECORD_METHODS} record {$ELSE} object {$ENDIF}
@@ -1228,12 +1230,15 @@ function MakeDashArray(const dblArray: TArrayOfDouble; scale: double): TArrayOfI
     Result[i] := Ceil(dblArray[i] * scale);
     dist := Result[i] + dist;
   end;
+
   if dist = 0 then
-    Result := nil
-  else if len = 1 then
   begin
-    SetLength(Result, 2);
-    Result[1] := Result[0];
+    Result := nil;
+  end
+  else if Odd(len) then
+  begin
+    SetLength(Result, len *2);
+    Move(Result[0], Result[len], len * SizeOf(integer));
   end;
 end;
 //------------------------------------------------------------------------------
@@ -2337,7 +2342,7 @@ function TValue.GetValue(relSize: double; assumeRelValBelow: Double): double;
 begin
   if not IsValid or (rawVal = 0) then
     Result := 0
-  else if (unitType = utNumber) and (Abs(rawVal) <= assumeRelValBelow) then
+  else if IsRelativeValue(assumeRelValBelow) then
     Result := rawVal * relSize
   else
     Result := ConvertValue(self, relSize);
@@ -2351,6 +2356,12 @@ function TValue.GetValueXY(const relSize: TRectD; assumeRelValBelow: Double): do
 end;
 //------------------------------------------------------------------------------
 
+function  TValue.IsRelativeValue(assumeRelValBelow: double): Boolean;
+begin
+  Result := (unitType = utNumber) and (Abs(rawVal) <= assumeRelValBelow);
+end;
+//------------------------------------------------------------------------------
+
 function TValue.IsValid: Boolean;
 begin
   Result := (unitType <> utUnknown) and Img32.Vector.IsValid(rawVal);

Ext/SVGIconImageList/Image32/source/Img32.SVG.HashConsts.inc

@@ -4,6 +4,8 @@ const
   harithmetic                 = $978C7D6F;    // arithmetic
   hAtop                       = $7655315D;    // Atop
   hauto_045_start_045_reverse = $EE4545A2;    // auto-start-reverse
+  hBackgroundAlpha            = $DA55EB83;    // BackgroundAlpha
+  hBackgroundImage            = $0313D8C9;    // BackgroundImage
   hBaseline                   = $C7461648;    // Baseline
   hbaseline_045_shift         = $56FA5107;    // baseline-shift
   hBevel                      = $BF36E150;    // Bevel
@@ -74,10 +76,10 @@ const
   hIn2                        = $FBFE02B1;    // In2
   hIntercept                  = $7CBB607F;    // Intercept
   hItalic                     = $F07E7786;    // Italic
-  hk1                         = $33176D43;    // k1
-  hk2                         = $DD11C139;    // k2
-  hk3                         = $CF4B25AC;    // k3
-  hk4                         = $77CCF6AD;    // k4
+  hK1                         = $33176D43;    // K1
+  hK2                         = $DD11C139;    // K2
+  hK3                         = $CF4B25AC;    // K3
+  hK4                         = $77CCF6AD;    // K4
   hkernelUnitLength           = $3B25E980;    // kernelUnitLength
   hletter_045_spacing         = $5130BCF5;    // letter-spacing
   hLighten                    = $85E826DE;    // Lighten