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

* more loopvar sorting by Lagwaggon.

Browse Source 
(cherry picked from commit 4d0b397029)
This commit is contained in:
marcoonthegit 2023-04-23 15:54:06 +02:00
parent 155b065ecd
commit 62a326553e
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-image/src/fpimage.inc
View File

@ -463,7 +463,7 @@ Procedure TFPCustomImage.Assign(Source: TPersistent);
Var Var
Src : TFPCustomImage; Src : TFPCustomImage;
X,Y : Integer; x,y : Integer;
begin begin
If Source is TFPCustomImage then If Source is TFPCustomImage then
@ -482,13 +482,13 @@ begin
// Copy image. // Copy image.
SetSize(Src.Width,Src.height); SetSize(Src.Width,Src.height);
If UsePalette then If UsePalette then
For x:=0 to Src.Width-1 do For y:=0 to src.Height-1 do
For y:=0 to src.Height-1 do For x:=0 to Src.Width-1 do
pixels[X,Y]:=src.pixels[X,Y] pixels[x,y]:=src.pixels[x,y]
else else
For x:=0 to Src.Width-1 do For y:=0 to src.Height-1 do
For y:=0 to src.Height-1 do For x:=0 to Src.Width-1 do
self[X,Y]:=src[X,Y]; self[x,y]:=src[x,y];
end end
else else
Inherited Assign(Source); Inherited Assign(Source);