paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 17:29:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* switch loops in TFPCustomCanvas.Erase closes #40246

Browse Source
This commit is contained in:
marcoonthegit 2023-04-11 11:16:37 +02:00
parent 6fe22044e7
commit 5e47b4a7b9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-image/src/fpcanvas.inc
View File

@ -586,8 +586,8 @@ procedure TFPCustomCanvas.Erase;
var var
x,y:Integer; x,y:Integer;
begin begin
for x:=0 to Width-1 do for y:=0 to Height-1 do
for y:=0 to Height-1 do for x:=0 to Width-1 do
Colors[x,y]:=colTransparent; Colors[x,y]:=colTransparent;
end; end;