|  | @@ -684,26 +684,16 @@ var
 | 
	
		
			
				|  |  |  begin
 | 
	
		
			
				|  |  |    ExtractTemporaryFile(Name);
 | 
	
		
			
				|  |  |    Bitmap := TAlphaBitmap.Create();
 | 
	
		
			
				|  |  | +  Bitmap.AlphaFormat := afDefined;
 | 
	
		
			
				|  |  |    FileName := ExpandConstant('{tmp}\' + Name);
 | 
	
		
			
				|  |  |    Bitmap.LoadFromFile(FileName);
 | 
	
		
			
				|  |  |    // we won't need this anymore
 | 
	
		
			
				|  |  |    DeleteFile(FileName);
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  | -  if BackgroundColor <> 0 then
 | 
	
		
			
				|  |  | -  begin
 | 
	
		
			
				|  |  | -    // Solving transparency on run-time to avoid having to
 | 
	
		
			
				|  |  | -    // change the background color in the image file,
 | 
	
		
			
				|  |  | -    // so they can stay identical to the original
 | 
	
		
			
				|  |  | -    // (except for conversion from png to bmp)
 | 
	
		
			
				|  |  | -    Image.ReplaceColor := clFuchsia;
 | 
	
		
			
				|  |  | -    Bitmap.Canvas.Brush.Color := Image.ReplaceColor;
 | 
	
		
			
				|  |  | -    Bitmap.Canvas.FloodFill(0, 0, Bitmap.Canvas.Pixels[0, 0], fsSurface);
 | 
	
		
			
				|  |  | -    Image.ReplaceWithColor := BackgroundColor;
 | 
	
		
			
				|  |  | -  end;
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  |    Image.Bitmap := Bitmap;
 | 
	
		
			
				|  |  |    Bitmap.Free;
 | 
	
		
			
				|  |  |    Image.AutoSize := True;
 | 
	
		
			
				|  |  | +  Image.BackColor := BackgroundColor;
 | 
	
		
			
				|  |  |  end;
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |  function GetScalingFactor: Integer;
 |