diff --git a/lcl/graphics.pp b/lcl/graphics.pp
index 751248c378..5f684df2fb 100644
--- a/lcl/graphics.pp
+++ b/lcl/graphics.pp
@@ -1457,6 +1457,7 @@ type
     function GetPixelFormat: TPixelFormat; override;
     function GetRawImage: PRawImage; override;
     function GetRawImageDescription: PRawImageDescription; override;
+    function GetTransparent: Boolean; override;
     class function GetSharedImageClass: TSharedRasterImageClass; override;
     procedure HandleNeeded; override;
     function InternalReleaseBitmapHandle: HBITMAP; override;
@@ -1465,6 +1466,7 @@ type
     procedure ReadData(Stream: TStream); override;
     procedure ReadStream(AStream: TMemoryStream; ASize: Longint); override;
     procedure SetPixelFormat(AValue: TPixelFormat); override;
+    procedure SetTransparent(Value: Boolean); override;
     procedure UnshareImage(CopyContent: boolean); override;
     procedure UpdateCurrentView;
     function  UpdateHandles(ABitmap, AMask: HBITMAP): Boolean; override;
diff --git a/lcl/include/icon.inc b/lcl/include/icon.inc
index 4abc038d65..42f1845d0b 100644
--- a/lcl/include/icon.inc
+++ b/lcl/include/icon.inc
@@ -386,6 +386,11 @@ begin
   else Result := @TIconImage(TSharedIcon(FSharedImage).FImages[FCurrent]).FImage.Description;
 end;
 
+function TCustomIcon.GetTransparent: Boolean;
+begin
+  Result := True;
+end;
+
 class function TCustomIcon.GetSharedImageClass: TSharedRasterImageClass;
 begin
   Result := TSharedIcon;
@@ -705,6 +710,11 @@ begin
   raise EInvalidGraphicOperation.Create('Cannot change format of icon image');
 end;
 
+procedure TCustomIcon.SetTransparent(Value: Boolean);
+begin
+  // nothing
+end;
+
 procedure TCustomIcon.SetSize(AWidth, AHeight: integer);
 begin
   raise EInvalidGraphicOperation.Create('Cannot change size of icon image');