paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed bug #3922, as suggested by poster Aleksa Todorovic

Browse Source 
git-svn-id: trunk@119 -
This commit is contained in:
michael 2005-05-26 06:42:35 +00:00
parent 88877284df
commit 792d252aa3
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fcl/image/fpimage.inc
View File

@ -531,12 +531,15 @@ begin
end
else
begin
OldPixels:=PFPIntegerArray(FData);
GetMem(FData,FWidth*FHeight*SizeOf(TFPColor));
for r:=0 to FHeight-1 do
for c:=0 to FWidth-1 do
Colors[c,r]:=FPalette.Color[OldPixels^[r*FWidth+c]];
FreeMem(OldPixels);
if Assigned(FData) then
begin
OldPixels:=PFPIntegerArray(FData);
GetMem(FData,FWidth*FHeight*SizeOf(TFPColor));
for r:=0 to FHeight-1 do
for c:=0 to FWidth-1 do
Colors[c,r]:=FPalette.Color[OldPixels^[r*FWidth+c]];
FreeMem(OldPixels);
end;
FPalette.Free;
FPalette:=nil;
end;