Heap monitor have same palette as Clock.

packages/ide/fpviews.pas

@@ -55,6 +55,7 @@ type
       constructor Init(var Bounds: TRect);
       constructor InitKb(var Bounds: TRect);
       procedure   HandleEvent(var Event: TEvent); virtual;
+      function    GetPalette: PPalette; virtual;
     end;
 
     PFPClockView = ^TFPClockView;
@@ -2354,6 +2355,12 @@ begin
   inherited HandleEvent(Event);
 end;
 
+function TFPHeapView.GetPalette: PPalette;
+const P: string[length(CFPClockView)] = CFPClockView;
+begin
+  GetPalette:=@P;
+end;
+
 constructor TFPClockView.Init(var Bounds: TRect);
 begin
   inherited Init(Bounds);