anchor.diff:      Procedure SetDigits(V:Integer);
       Procedure SetFormat(V:TFloatFormat);
       Procedure SetPrecision(V:Integer);
  -    Procedure WMEraseBkgnd(Var Message: TWMEraseBkgnd); message WM_EraseBkgnd;
  -    Procedure WMTimer(Var Message: TMessage); message WM_TIMER;
  -    Procedure CMFontChanged(Var Message: TMessage); message CM_FontChanged;
  +    Procedure WMEraseBkgnd(Var Message: TLMEraseBkgnd); message LM_EraseBkgnd;
  +    Procedure WMTimer(Var Message: TLMessage); message LM_TIMER;
  +    Procedure CMFontChanged(Var Message: TLMessage); message CM_FontChanged;
       Procedure SetValue(V: Extended);
       Procedure SetCalcValue(Const V: String);
       Procedure SetBorderStyle(V: TBorderStyle);
  
positive.code: 
  {--------------------------------------------}
  
  Procedure TPSCCustomCalculator.cmEnabledChanged(Var Message: TMessage);
  Begin
    Inherited;
    Invalidate;
  
negative.code:       FButtonHeight := Round(TextHeight('0') * 1.8);
      End;
  
    SendMessage(Handle,LM_SIZE,0,0);
  End;
  
  {--------------------------------------------}
  