anchor.diff:  
   {-------------------------------------}
   
  -Procedure TPSCCustomColorBox.WMNCHitTest(Var Message: TWMNCHitTest);
  +Procedure TPSCCustomColorBox.WMNCHitTest(Var Message: TLMNCHitTest);
   Var
     Rect: TRect;
   Begin
  
positive.code:     Procedure SetHideSelection(Value: TPSCHideSelection);
      Procedure CMControlListChange(Var Message: TCMControlListChange);
        message CM_CONTROLLISTCHANGE;
      Procedure CMMouseEnter(Var Message: TMessage); message CM_MOUSEENTER;
      Procedure CMMouseLeave(Var Message: TMessage); message CM_MOUSELEAVE;
      Procedure CMFontChanged(Var Message: TMessage); message CM_FONTCHANGED;
      Procedure CMColorChanged(Var Message: TMessage); message CM_COLORCHANGED;
      Procedure CMCancelMode(Var Message: TWMCancelMode); message CM_CANCELMODE;
      Procedure CMHintShowPause(Var Message: TCMHintShowPause);
        message CM_HINTSHOWPAUSE;
      Procedure CMHintShow(Var Message: TCMHintShow); message CM_HINTSHOW;
      Procedure WMNCHitTest(Var Message: TWMNCHitTest); message WM_NCHITTEST;
      Procedure WMGetDlgCode(Var Message: TMessage); message WM_GETDLGCODE;
      Procedure WMEnable(Var Message: TWMEnable); message WM_ENABLE;
      Procedure WMPaint(Var Message: TWMPaint); message WM_PAINT;
      Procedure WMWindowPosChanging(Var Message: TWMWindowPosChanging);
        message WM_WINDOWPOSCHANGING;
  
      // IPSCDraw
      Procedure Draw(Canvas: TPSCCanvas; Const BoundsRect: TRect);
  
negative.code: 
  Type
    TControlAccess = Class(TControl);
    TWndProc = Procedure(Var Message: TLMessage) Of Object;
  
  Procedure TPSCCustomColorBox.WndProc(Var Message: TLMessage);
  Var
    Method: TPSCMethod;
  Begin
    If Not (csDesigning In ComponentState) Then
      Case Message.Msg Of
        LM_MOUSEFIRST..LM_MOUSELAST:
          Begin
            Method.Code := @TControlAccess.WndProc;
            Method.Data := Self;
  