Fix text change in BCImageButton

bcimagebutton.pas

@@ -256,6 +256,7 @@ type
     procedure DrawControl; override;
     procedure RenderControl; override;
     procedure TextChanged; override;
+    procedure FontChanged(Sender: TObject); override;
     procedure CMChanged(var {%H-}Message: TLMessage); message CM_CHANGED; virtual;
     {$IFDEF DEBUG}
     function GetDebugText: string;
@@ -1128,6 +1129,13 @@ begin
   Invalidate;
 end;
 
+procedure TBCCustomImageButton.FontChanged(Sender: TObject);
+begin
+  inherited;
+  RenderControl;
+  Invalidate;
+end;
+
 procedure TBCCustomImageButton.CMChanged(var Message: TLMessage);
 begin
   if csReadingState in ControlState then