fpspreadsheet: Initial version to display embedded images in the WorksheetGrid

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5800 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/fpspreadsheet/source/common/fpspreadsheet.pas

@@ -4025,6 +4025,7 @@ var
   img: PsImage;
 begin
   img := PsImage(FImages[AIndex]);
+  if (img <> nil) and (img^.Bitmap <> nil) then img^.Bitmap.Free;
   Dispose(img);
   FImages.Delete(AIndex);
 end;

components/fpspreadsheet/source/common/fpstypes.pas

@@ -801,6 +801,7 @@ type
     Index: Integer;           // index into the workbook's embedded streams list
     OffsetX, OffsetY: Double; // mm, relative to anchor
     ScaleX, ScaleY: Double;   // scaling factor of image
+    Bitmap: TObject;          // used for bitmap for display in grid
   end;
   PsImage = ^TsImage;
 

components/fpspreadsheet/source/common/fpsutils.pas

@@ -2127,6 +2127,7 @@ begin
   AValue.OffsetY := AOffsetY;
   AValue.ScaleX := AScaleX;
   AValue.ScaleY := AScaleY;
+  AValue.Bitmap := nil;     // to be initialized by viewing application
   AValue.Index := -1;
 end;