anchor.diff:  
   procedure TTrayMenu.DoInitWindow;
   var
  -  LSize: TSize;
  +  LSize, LScreenSize: TSize;
     LP: TPoint;
   begin
     inherited;
     LSize := InitSize;
     GetCursorPos(LP);
  +  LScreenSize := GetScreenSize;
  +  if LP.X + LSize.cx >= LScreenSize.cx then
  +    LP.X := LP.X - LSize.cx;
  +  if LP.Y + LSize.cy >= LScreenSize.cy then
  +    LP.Y := LP.Y - LSize.cy;
     MoveWindow(Handle, LP.X, LP.Y, LSize.cx, LSize.cy, False);
   end;
   
  
positive.code:     constructor Create(APaintManager: CPaintManagerUI);
    end;
  
  var
    AppsWindow: TAppsWindow;
  
  implementation
  
  { TAppsWindow }
  
  
negative.code:     FPaintManager.SendNotify(Msg.pSender, 'TrayMenuItemClick');
  end;
  
  
  
  end.
  