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

* initializing data on transparent black color

Browse Source 
* copied to much when changing sizes
This commit is contained in:
luk 2003-07-02 07:54:13 +00:00
parent ecf5190d17
commit df9ba460ca
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fcl/image/fpimage.inc
View File

@ -232,6 +232,7 @@ constructor TFPMemoryImage.Create (AWidth,AHeight:integer);
begin
inherited create (AWidth,AHeight);
UsePalette := True;
Palette.Add (clTransparent);
end;
destructor TFPMemoryImage.Destroy;
@ -264,7 +265,6 @@ procedure TFPMemoryImage.SetSize (AWidth, AHeight : integer);
var w, h, r, old : integer;
NewData : PFPIntegerArray;
begin
// MG: bug: was 'and'
if (AWidth <> Width) or (AHeight <> Height) then
begin
old := Height * Width;
@ -274,7 +274,7 @@ begin
else
begin
GetMem (NewData, r);
Fillchar (Newdata^[0], r, $FF);
Fillchar (Newdata^[0], r, 0);
end;
// MG: missing "and (NewData<>nil)"
if (old <> 0) and assigned(FData) and (NewData<>nil) then
@ -283,7 +283,7 @@ begin
begin
w := Lowest(Width, AWidth);
h := Lowest(Height, AHeight);
for r := 0 to h do
for r := 0 to h-1 do
move (FData^[r*Width], NewData^[r*AWidth], w);
end;
FreeMem (FData);