version 4.1.0 (VCL+FMX)

- Aligned Image32 Library released on 03/09/2023 - Fixed #254 issue - Fixed demo (removed "obsolete" SVGColor uses)
EtheaDev · Sep 3, 2023 · 07ed7dd · 07ed7dd
1 parent 99ade4c
commit 07ed7dd
Show file tree

Hide file tree

Showing 16 changed files with 385 additions and 405 deletions.
diff --git a/Demo/Source/UMain.pas b/Demo/Source/UMain.pas
@@ -130,7 +130,6 @@ implementation
   {$IFDEF DXE3+}
   , UITypes
   {$ENDIF}
-  , SVGColor
   , SVGIconUtils
   , SVGIconImageListEditorUnit;
 

diff --git a/Demo/Source/UMainNew.pas b/Demo/Source/UMainNew.pas
@@ -135,7 +135,6 @@ implementation
   {$IFDEF DXE3+}
   , UITypes
   {$ENDIF}
-  , SVGColor
   , SVGIconUtils
   , SVGTextPropertyEditorUnit
   , SVGIconImageListEditorUnit;

diff --git a/Image32/source/Img32.CQ.pas b/Image32/source/Img32.CQ.pas
@@ -3,7 +3,7 @@
 (*******************************************************************************
 * Author    :  Angus Johnson                                                   *
 * Version   :  4.4                                                             *
-* Date      :  14 May 2023                                                     *
+* Date      :  4 July 2023                                                     *
 * Website   :  http://www.angusj.com                                           *
 * Copyright :  Angus Johnson 2019-2021                                         *
 * Purpose   :  Color reduction for TImage32                                    *
@@ -399,20 +399,20 @@ procedure MedianCutInternal(var cfArr: TArrayOfColFreq;
   if (gx >= rx) and (gx >= bx) then
   begin
     PaletteSort(cfArr, start, finish, PalGreenSorter);
-    midC := (loG + hiG) * 6 div 11;
+    midC := (loG + hiG) div 2;
     while (mid <> finish) and
       (TARGB(cfArr[mid].color).G > midC) do inc(mid);
   end
   else if (bx >= rx) then
   begin
     PaletteSort(cfArr, start, finish, PalBlueSorter);
-    midC := (loB + hiB) * 6 div 11;
+    midC := (loB + hiB) div 2;
     while (mid <> finish) and
       (TARGB(cfArr[mid].color).B > midC) do inc(mid);
   end else
   begin
     PaletteSort(cfArr, start, finish, PalRedSorter);
-    midC := (loR + hiR) * 6 div 11;
+    midC := (loR + hiR) div 2;
     while (mid <> finish) and
       (TARGB(cfArr[mid].color).R > midC) do inc(mid);
   end;