anchor.diff:  procedure TfpgWidget.InternalHandleShow;
   begin
     FOnScreen := True;
  -  FVisible := False;
     AllocateWindowHandle;
  -  DoSetWindowVisible(False);
  +  DoSetWindowVisible(FVisible);
   end;
   
   procedure TfpgWidget.HandleHide;
  
positive.code:     FWindowType := wtChild;
      FShowHint   := Parent.ShowHint;
    end;
  
    inherited Create(AOwner);
  
    // This is for components that are created at runtime, after it's
    // parent has already been shown.
  
negative.code:   FBackgroundColor := clWindowBackground;
    FTextColor  := clText1;
  
    inherited Create(AOwner);
  
    if (AOwner <> nil) and (AOwner is TfpgWidget) then
    begin
      Parent := TfpgWidget(AOwner);
  