anchor.diff:    protected
       function FloatToStrFormatted(const AValue:Extended;AForDisplay:Boolean):String;
   
  -    Procedure WMSize(Var Message: TWMSize); message WM_Size;
  -    Procedure CMEnabledChanged(Var Message: TMessage); message
  +    Procedure WMSize(Var Message: TLMSize); message LM_Size;
  +    Procedure CMEnabledChanged(Var Message: TLMessage); message
         CM_ENABLEDCHANGED;
       Procedure CreateParams(Var Params: TCreateParams); override;
       Procedure CreateWnd; override;
  
positive.code:       FButtonHeight := Round(TextHeight('0') * 1.8);
      End;
  
    SendMessage(Handle,WM_SIZE,0,0);
  End;
  
  {--------------------------------------------}
  
negative.code: 
  {--------------------------------------------}
  
  Procedure TPSCCustomCalculator.cmEnabledChanged(Var Message: TLMessage);
  Begin
    Inherited;
    Invalidate;
  