Komponente zeichnet sich nicht neu, bei Font Änderung

[Rumpi]

Hi

Delphi-Quellcode:

 TStatusScroll = class(TGraphicControl) 
 private
  ... 
  procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;


procedure TStatusScroll.CMFontChanged(var Message: TMessage);
begin
  inherited;
  Invalidate;
end;

versuchs mal...


mfg Rumpu