paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 12:41:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix #40242 by inverting some more x and y loops

Browse Source
This commit is contained in:
marcoonthegit 2023-04-14 16:39:54 +02:00 committed by Pierre Muller
parent ec134a2117
commit 30aaa6127c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-image/src/pixtools.pp
View File

@ -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;