anchor.diff:  
   {--------------------------------------------}
   
  -Procedure TPSCCustomCalculator.cmEnabledChanged(Var Message: TMessage);
  +Procedure TPSCCustomCalculator.cmEnabledChanged(Var Message: TLMessage);
   Begin
     Inherited;
     Invalidate;
  
positive.code: 
  {--------------------------------------------}
  
  Procedure TPSCCustomCalculator.WMEraseBkgnd(Var Message: TWMEraseBkgnd);
  Begin
    Message.Result := 1;
  End;
  
  {-------------------------------------------}
  
  Procedure TPSCCustomCalculator.WMSize(Var Message: TWMSize);
  Begin
    Inherited;
    UpdateSize;
  
negative.code: 
  {--------------------------------------------}
  
  Procedure TPSCCustomCalculator.CMFontChanged(Var Message: TLMessage);
  Begin
    Inherited;
    FontChanged;
  