anchor.diff:  
   uses
     fpg_constants,
  -  fpg_hint;
  +  fpg_hint,
  +  fpg_menu;
   
   
   var
  
positive.code:   FVisible := AValue;
    if FOnScreen then
      if FVisible then
        HandleShow
      else
      begin
        HandleHide;
        FOnScreen := True;
      end;
  
negative.code:   n: integer;
    c: TComponent;
  begin
    FOnScreen := True;
    AllocateWindowHandle;
    DoSetWindowVisible(FVisible);
  
    for n := 0 to ComponentCount - 1 do
    begin
      c := Components[n];
      if (c is TfpgWidget) and (TfpgWidget(c).Parent = self) then
      begin
        if not (c is TfpgPopupMenu) then  // these should not be created yet
        begin
          TfpgWidget(c).Visible := FVisible;
          TfpgWidget(c).HandleShow;
        end;
      end;
    end;
  end;
  
  