anchor.diff:      exit;
   
     FMenu.PopupComponent := Self;
  -  P := ClientToScreen(Point(X,Y));
  +  P := ClientToScreen(classes.Point(X,Y));
     FMenu.Popup(P.X,P.Y);
   End;
   
  
positive.code:     FInstanceID:Integer;
    protected
      FRefCount: Integer;
      function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
      function _AddRef: Integer; stdcall;
      function _Release: Integer; stdcall;
    public
      procedure BeforeDestruction; override;
      procedure AfterConstruction; override;
  
negative.code:     procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer);
      procedure TextOut(X, Y: Integer; const AText: WideString);
      procedure TextRect(const ARect: TPSCRect; X, Y: Integer; const AText: WideString);
      //procedure SetTextFlags(AValue : integer);
      procedure SetTextStyle(AValue: TTextStyle);
      procedure SetBrush(const AValue:IPSCBrush);
      procedure SetPen(const AValue:IPSCPen);
      procedure SetFont(const AValue:IPSCFont);
  