anchor.diff:        FButtonHeight := Round(TextHeight('0') * 1.8);
       End;
   
  -  SendMessage(Handle,WM_SIZE,0,0);
  +  SendMessage(Handle,LM_SIZE,0,0);
   End;
   
   {--------------------------------------------}
  
positive.code: 
  {--------------------------------------------}
  
  Procedure TPSCCustomCalculator.CMFontChanged(Var Message: TMessage);
  Begin
    Inherited;
    FontChanged;
  
negative.code: 
  Uses
    sysutils,
    LCLIntf,
    LCLType,
    LCLProc,
    Lmessages,
    forms,
    controls,
    classes,
    Types,
  
    myla_system,
    myla_interfaces,
  