anchor.diff:  End;
   
   {-------------------------------------------}
  -
  +{
   procedure TPSCCustomListBox.WMSetCursor(Var Message: TLMSetCursor);
   Var
     P: TPoint;
  
positive.code:     Procedure WMKillFocus(Var Message: TLMSetFocus); message LM_KillFocus;
      //Procedure WMEraseBkgnd(Var Msg: TLMEraseBkgnd); message LM_EraseBkgnd;
      Procedure WMGetDlgCode(Var Msg: TLMessage); message LM_GetDlgCode;
      Procedure WMSetCursor(Var Message: TLMSetCursor); message LM_SetCursor;
      Procedure WMSize(Var Message: TLMSize); message LM_Size;
      Procedure CMFontChanged(Var Message: TLMessage); message CM_FontChanged;
  
  
negative.code: {-------------------------------------------}
  
  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;
  