anchor.diff:  
   {-------------------------------------}
   
  -Procedure TPSCCustomPartsEdit.WMGetDlgCode(var Msg: TWMGetDlgCode);
  +Procedure TPSCCustomPartsEdit.WMGetDlgCode(var Msg: TLMessage);
   Begin
     With Msg Do
       Begin
  -      Result := DLGC_WANTMESSAGE Or
  +      Result := //DLGC_WANTMESSAGE Or
           DLGC_WANTALLKEYS Or
           DLGC_WANTARROWS Or
           DLGC_WANTCHARS;
  
positive.code:     Procedure KeyDown(Var Key: Word; Shift: TShiftState); override;
      Procedure DoButtonClick(BtnIndex: Integer); override;
      Procedure DoExit; override;
      Procedure WMGetDlgCode(Var Msg: TWMGetDlgCode); message WM_GetDlgCode;
      
    public
      Function GetMaxTextWidth(AWithBorder:Boolean): integer; virtual;
  
negative.code: {$I psc_defines.inc}
  
  Uses
    LCLIntf,
    Lmessages,
    forms,
    controls,
    classes,
    types,
    LCLType,
  
    myla_system,
    myla_interfaces,
  