* Correct IFresnelRenderer interface

tests/base/TCFresnelCSS.pas

@@ -61,6 +61,7 @@ type
     procedure TextOut(const aLeft, aTop: TFresnelLength;
       const aFont: IFresnelFont; const aColor: TFPColor;
       const aText: string); override;
+    procedure DrawImage(const aLeft, aTop, aWidth, aHeight: TFresnelLength; const aImage: TFPCustomImage); override;
   public
     constructor Create(AOwner: TComponent); override;
   end;
@@ -391,6 +392,13 @@ begin
   if aText='' then ;
 end;
 
+procedure TTestRenderer.DrawImage(const aLeft, aTop, aWidth, aHeight: TFresnelLength; const aImage: TFPCustomImage);
+begin
+  if (aLeft=aTop) then ;
+  if (aWidth=aHeight) then ;
+  if (aImage=nil) then ;
+end;
+
 constructor TTestRenderer.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);