From 30aaa6127ce16d62b7d6816bbdc933b3ed0c3854 Mon Sep 17 00:00:00 2001
From: marcoonthegit <marco@freepascal.org>
Date: Fri, 14 Apr 2023 16:39:54 +0200
Subject: [PATCH] * fix #40242 by inverting some more x and y loops

---
 packages/fcl-image/src/pixtools.pp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/packages/fcl-image/src/pixtools.pp b/packages/fcl-image/src/pixtools.pp
index b8baccb5bb..ced475e9d1 100644
--- a/packages/fcl-image/src/pixtools.pp
+++ b/packages/fcl-image/src/pixtools.pp
@@ -73,9 +73,9 @@ begin
   SortRect (x1,y1, x2,y2);
   with Canv do
     begin
-    for x := x1 to x2 do
       for y := y1 to y2 do
-        DrawPixel(x,y,color);
+        for x := x1 to x2 do
+          DrawPixel(x,y,color);
     end;
 end;
 
@@ -555,8 +555,8 @@ procedure FillRectangleImage (Canv:TFPCustomCanvas; x1,y1, x2,y2:integer; const
 var x,y : integer;
 begin
   with image do
-    for x := x1 to x2 do
-      for y := y1 to y2 do
+    for y := y1 to y2 do
+      for x := x1 to x2 do
         Canv.DrawPixel(x,y, colors[x mod width, y mod height]);
 end;
 
@@ -564,8 +564,8 @@ procedure FillRectangleImageRel (Canv:TFPCustomCanvas; x1,y1, x2,y2:integer; con
 var x,y : integer;
 begin
   with image do
-    for x := x1 to x2 do
-      for y := y1 to y2 do
+    for y := y1 to y2 do
+      for x := x1 to x2 do
         Canv.DrawPixel(x,y, colors[(x-x1) mod width, (y-y1) mod height]);
 end;