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