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