Version 1.2

Added support and built with Delphi 11
Added new version of Image32 Library

Author: carloBarazzetta

Build.bat

@@ -1,4 +1,4 @@
-call "C:\BDS\Studio\21.0\bin\rsvars.bat"
+call "C:\BDS\Studio\22.0\bin\rsvars.bat"
 msbuild.exe "Source\MDShellExtensions.dproj" /target:Clean;Build /p:Platform=Win64 /p:config=release
 msbuild.exe "Source\MDShellExtensions32.dproj" /target:Clean;Build /p:Platform=Win32 /p:config=release
 msbuild.exe "Source\MDTextEditor.dproj" /target:Clean;Build /p:Platform=Win64 /p:config=release

Ext/SVGIconImageList/Image32/source/Image32_CQ.pas renamed to Ext/SVGIconImageList/Image32/source/Img32.CQ.pas

@@ -1,9 +1,9 @@
-unit Image32_CQ;
+unit Img32.CQ;
 
 (*******************************************************************************
 * Author    :  Angus Johnson                                                   *
-* Version   :  2.0                                                             *
-* Date      :  6 March 2021                                                    *
+* Version   :  3.1                                                             *
+* Date      :  15 August 2021                                                    *
 * Website   :  http://www.angusj.com                                           *
 * Copyright :  Angus Johnson 2019-2021                                         *
 * Purpose   :  Color reduction for TImage32                                    *
@@ -13,11 +13,11 @@
 
 interface
 
-{$I Image32.inc}
+{$I Img32.inc}
 
 uses
   {$IFDEF MSWINDOWS} Windows,{$ENDIF}
-  SysUtils, Classes, Math, Image32, Image32_Vector;
+  SysUtils, Classes, Types, Math, Img32, Img32.Vector;
 
 function MakePalette(image: TImage32;
   MaxColors: integer): TArrayOfColor32; overload;
@@ -947,13 +947,13 @@ procedure DrawPalette(image: TImage32; const palette: TArrayOfColor32);
   if len < 16 then w := len else w := 16;
   h := (len +15) div 16;
   image.SetSize(w * 16, h * 16);
-  rec := Image32_Vector.Rect(0,0,16,16);
+  rec := Img32.Vector.Rect(0,0,16,16);
   for i := 0 to len -1 do
   begin
     image.FillRect(rec, palette[i] or $FF000000);
     if (i + 1) mod w = 0 then
-      OffsetRect(rec, -15 * w, 16) else
-      OffsetRect(rec, 16, 0);
+      Types.OffsetRect(rec, -15 * w, 16) else
+      Types.OffsetRect(rec, 16, 0);
   end;
 end;
 
@@ -1016,7 +1016,7 @@ procedure MakeDitherTables;
   img := TImage32.Create(i * 16, 16);
   for i := 0 to i -1 do
     DrawPolygon(img, Rectangle(i * 16, 0, (i +1) * 16, 16),
-      Image32_Vector.frEvenOdd, pal[i]);
+      Img32.Vector.frEvenOdd, pal[i]);
   img.SaveToFile('tmp.png');
   img.Free;
 *)

Ext/SVGIconImageList/Image32/source/Image32_Clipper.pas renamed to Ext/SVGIconImageList/Image32/source/Img32.Clipper.pas

@@ -1,4 +1,4 @@
-unit Image32_Clipper;
+unit Img32.Clipper;
 
 (*******************************************************************************
 * Author    :  Angus Johnson                                                   *
@@ -14,7 +14,7 @@ interface
 
 uses
   ClipperCore, Clipper, ClipperOffset,
-  Image32, Image32_Draw, Image32_Vector;
+  Img32, Img32.Draw, Img32.Vector;
 
 //nb: InflatePath assumes that there's consistent winding where
 //outer paths wind in one direction and inner paths in the other

Ext/SVGIconImageList/Image32/source/Image32_Draw.pas renamed to Ext/SVGIconImageList/Image32/source/Img32.Draw.pas

@@ -1,9 +1,9 @@
-unit Image32_Draw;
+unit Img32.Draw;
 
 (*******************************************************************************
 * Author    :  Angus Johnson                                                   *
-* Version   :  2.25                                                            *
-* Date      :  30 June 2021                                                    *
+* Version   :  3.1                                                             *
+* Date      :  15 August 2021                                                    *
 * Website   :  http://www.angusj.com                                           *
 * Copyright :  Angus Johnson 2019-2021                                         *
 *                                                                              *
@@ -16,16 +16,16 @@
 
 interface
 
-{$I Image32.inc}
+{$I Img32.inc}
 
 {.$DEFINE MemCheck} //for debugging only (adds a minimal cost to performance)
 
 uses
-  SysUtils, Classes, Types, Math, Image32, Image32_Vector,
-  Image32_Transform; //experimental;
+  SysUtils, Classes, Types, Math, Img32, Img32.Vector,
+  Img32.Transform; //experimental;
 
 type
-  TFillRule = Image32_Vector.TFillRule;
+  TFillRule = Img32.Vector.TFillRule;
 
   //TGradientColor: used internally by both
   //TLinearGradientRenderer and TRadialGradientRenderer
@@ -280,9 +280,9 @@   TBarycentricRenderer = class(TCustomRenderer)
 
   //Both DrawBoolMask and DrawAlphaMask require
   //'mask' length to equal 'img' width * height
-  procedure DrawBoolMask(img: TIMage32;
+  procedure DrawBoolMask(img: TImage32;
     const mask: TArrayOfByte; color: TColor32 = clBlack32);
-  procedure DrawAlphaMask(img: TIMage32;
+  procedure DrawAlphaMask(img: TImage32;
     const mask: TArrayOfByte; color: TColor32 = clBlack32);
 
   procedure Rasterize(const paths: TPathsD;
@@ -292,7 +292,7 @@ implementation
 
 {$IFDEF MemCheck}
 resourcestring
-  sMemCheckError = 'Image32_Draw: Memory allocation error';
+  sMemCheckError = 'Img32.Draw: Memory allocation error';
 {$ENDIF}
 
 type
@@ -341,7 +341,7 @@ procedure ApplyClearType(img: TImage32;
 begin
   // Precondition: the background to text drawn onto 'img' must be transparent
 
-  // multiplication tables (see Image32.pas)
+  // multiplication tables (see Img32.pas)
   // 85 + (2 * 57) + (2 * 28) == 255
   primeTbl := PByteArray(@MulTable[85 + centerWeighting *2]);
   nearTbl  := PByteArray(@MulTable[57]);
@@ -961,7 +961,7 @@ procedure Rasterize(const paths: TPathsD; const clipRec: TRect;
 begin
   //See also https://nothings.org/gamedev/rasterize/
   if not assigned(renderer) then Exit;
-  clipRec2 := Image32_Vector.IntersectRect(clipRec, GetBounds(paths));
+  Types.IntersectRect(clipRec2, clipRec, GetBounds(paths));
   if IsEmptyRect(clipRec2) then Exit;
 
   paths2 := OffsetPath(paths, -clipRec2.Left, -clipRec2.Top);
@@ -1732,6 +1732,7 @@ procedure DrawLine(img: TImage32; const lines: TPathsD;
   if not assigned(lines) then exit;
   if (lineWidth < MinStrokeWidth) then lineWidth := MinStrokeWidth;
   lines2 := Outline(lines, lineWidth, joinStyle, endStyle, miterLimit);
+
   cr := TColorRenderer.Create(color);
   try
     if cr.Initialize(img) then
@@ -2026,7 +2027,7 @@ procedure ErasePolygon(img: TImage32; const polygons: TPathsD;
 end;
 //------------------------------------------------------------------------------
 
-procedure DrawBoolMask(img: TIMage32; const mask: TArrayOfByte; color: TColor32);
+procedure DrawBoolMask(img: TImage32; const mask: TArrayOfByte; color: TColor32);
 var
   i, len: integer;
   pc: PColor32;
@@ -2050,7 +2051,7 @@ procedure DrawBoolMask(img: TIMage32; const mask: TArrayOfByte; color: TColor32)
 end;
 //------------------------------------------------------------------------------
 
-procedure DrawAlphaMask(img: TIMage32; const mask: TArrayOfByte; color: TColor32);
+procedure DrawAlphaMask(img: TImage32; const mask: TArrayOfByte; color: TColor32);
 var
   i, len: integer;
   pc: PColor32;