anchor.diff:  Begin
     Inherited;
     FBorderStyle := bsSingle;
  +  FMergingPopup := False;
   End;
   
   {-------------------------------------------------------------}
  
positive.code: 
  function TPSCCustomControl.GetPopup: TPopupMenu;
  Begin
    Result := PSCGetControlPopupMenuEx(Self,Self);
  
    If (FDefaultPopup <> Nil) And (ShowDefaultPopup Or MergePopupMenus) Then
      Begin
        if Assigned(FMergedPopup) then
          FMergedPopup.Free;
        FMergedPopup:=nil;
  
negative.code:     FDefaultPopup: TPopupMenu;
      FMergedPopup: TPopupMenu;
      FMergePopupMenus: boolean;
      FMergingPopup: Boolean;
  
      Procedure SetBorderStyle(Value: TBorderStyle);
    protected
  