anchor.diff:    DrawingStyle: TDrawingStyle);
   Const
     ROP_DSPDxax = $00E20746;
  -  DrawingStyles: Array[TDrawingStyle] Of Longint = (ILD_FOCUS,ILD_SELECTED,
  -    ILD_NORMAL,ILD_TRANSPARENT);
  +  //DrawingStyles: Array[TDrawingStyle] Of Longint = (ILD_FOCUS,ILD_SELECTED,
  +  //  ILD_NORMAL,ILD_TRANSPARENT);
   Var
     R: TRect;
     DestDC,SrcDC: HDC;
  
positive.code:     Procedure SetImageInactive(Value: Integer);
      Procedure SetImagePressed(Value: Integer);
      Procedure CMHintShow(Var Message: TCMHintShow); message CM_HINTSHOW;
      Procedure CMMouseEnter(Var Message: TMessage); message CM_MOUSEENTER;
      Procedure CMMouseLeave(Var Message: TMessage); message CM_MOUSELEAVE;
      Procedure PopupDeactivate(Sender: TObject; PrevWindow: HWND);
      Procedure UpdateTracking;
      Procedure SetStyle(Value: TPSCColorBoxStyle);
  
negative.code: 
  {-------------------------------------}
  
  Procedure TPSCDragBar.CMMouseEnter(Var Message: TLMessage);
  Begin
    Inherited;
    If Not FMouseInControl And Enabled Then
  