anchor.diff:  {-------------------------------------------}
   
   Procedure TPSCCustomListBox.MouseMove(Shift: TShiftState; X,Y: Integer);
  +var
  +  P: TPoint;
   begin
     inherited;
  +  P := PSCGetClientCursorPos(Self);
  +  If {PtInRect(ClientRect,P) And} (IsURLPos(P) Or IsOverCreateObject(P)) Then
  +    SetCursor(crHandpoint)
  +  else
  +    SetCursor(crDefault);
     If (ssLeft in Shift) and Focused then
       EnableTimer;
   end;
  
positive.code:         Inherited;
      end;
  End;
  
  {-------------------------------------------}
  
  procedure TPSCCustomListBox.ChangeItemIndex(Item: TPSCListItem; NewIndex: Integer);
  
negative.code: End;
  
  {-------------------------------------------}
  {
  procedure TPSCCustomListBox.WMSetCursor(Var Message: TLMSetCursor);
  Var
    P: TPoint;
  