anchor.diff:  
   {-------------------------------------}
   
  -Procedure TPSCColorButton.CMMouseLeave(Var Message: TMessage);
  +Procedure TPSCColorButton.CMMouseLeave(Var Message: TLMessage);
   Begin
     Inherited;
     FMouseInside := false;
  
positive.code:     FMouseInControl: Boolean;
      FMagnetic: Boolean;
  
      Procedure CMMouseEnter(Var Message: TMessage); message CM_MOUSEENTER;
      Procedure CMMouseLeave(Var Message: TMessage); message CM_MOUSELEAVE;
      Procedure CMDialogKey(Var Message: TCMDialogKey); message CM_DIALOGKEY;
    protected
      Procedure Paint; override;
  
negative.code:       End;
      ACanvas.Brush.Color := color;
      DestDC := ACanvas.Handle;
      {Windows.}SetTextColor(DestDC,clPSCWhite);
      {Windows.}SetBkColor(DestDC,clPSCBlack);
      BitBlt(DestDC,X + disp,Y + disp,ImageList.Width,ImageList.Height,SrcDC,
        0,0,ROP_DSPDxax);
    End;
  