anchor.diff:                  Message.Result := 1;
                   Exit
                 End;
  -    WM_ACTIVATE:
  +    LM_ACTIVATE:
         Begin
  -        If TWMActivate(Message).Active <> WA_INACTIVE Then
  +        If TLMActivate(Message).Active <> WA_INACTIVE Then
             Begin
               For I := 0 To FPopups.Count - 1 Do
                 With TPSCPopupWindow(FPopups[I]) Do
  
positive.code:     Procedure UpdateDragBar;
      Procedure DoDragBarMouseUp(Sender: TObject; Button: TMouseButton;
        Shift: TShiftState; X,Y: Integer);
      Procedure WMNCActivate(Var Message: TWMNCActivate); message WM_NCACTIVATE;
      Procedure WMActivate(Var Message: TWMActivate); message WM_ACTIVATE;
      Procedure WMWindowPosChanging(Var Message: TWMWindowPosChanging);
        message WM_WINDOWPOSCHANGING;
      Procedure WMSysCommand(Var Message: TWMSysCommand); message WM_SYSCOMMAND;
      Procedure CMDialogKey(Var Message: TCMDialogKey); message CM_DIALOGKEY;
      Procedure CMActiveChanged(Var Message: TMessage);
        message CM_ACTIVECHANGED;
    protected
      Procedure Notification(AComponent: TComponent;
  
negative.code: 
  {-------------------------------------}
  
  Procedure TPSCColorButton.CMMouseEnter(Var Message: TLMessage);
  Begin
    Inherited;
    FMouseInside := true;
  