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

* more loopvar sorting by Lagwaggon.

Browse Source
This commit is contained in:
marcoonthegit 2023-04-23 15:54:06 +02:00
parent 8d0b822a27
commit 4d0b397029
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
Src : TFPCustomImage;
X,Y : Integer;
x,y : Integer;
begin
If Source is TFPCustomImage then
@ -482,13 +482,13 @@ begin
// Copy image.
SetSize(Src.Width,Src.height);
If UsePalette then
For x:=0 to Src.Width-1 do
For y:=0 to src.Height-1 do
pixels[X,Y]:=src.pixels[X,Y]
For y:=0 to src.Height-1 do
For x:=0 to Src.Width-1 do
pixels[x,y]:=src.pixels[x,y]
else
For x:=0 to Src.Width-1 do
For y:=0 to src.Height-1 do
self[X,Y]:=src[X,Y];
For y:=0 to src.Height-1 do
For x:=0 to Src.Width-1 do
self[x,y]:=src[x,y];
end
else
Inherited Assign(Source);