anchor.diff:      constructor Create(APaintManager: CPaintManagerUI);
     end;
   
  +
  +
   var
     AppsWindow: TAppsWindow;
   
   implementation
  +
  +function GetScreenSize: TSize;
  +begin
  +  Result.cx := GetSystemMetrics(SM_CXSCREEN);
  +  Result.cy := GetSystemMetrics(SM_CYSCREEN);
  +end;
   
   { TAppsWindow }
   
  
positive.code: 
  procedure TTrayMenu.DoInitWindow;
  var
    LSize: TSize;
    LP: TPoint;
  begin
    inherited;
    LSize := InitSize;
    GetCursorPos(LP);
    MoveWindow(Handle, LP.X, LP.Y, LSize.cx, LSize.cy, False);
  end;
  
  
negative.code: 
  procedure TRichEditMenu.DoInitWindow;
  var
    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;
  
  