anchor.diff:      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.
  
positive.code: procedure TfpgWidget.InternalHandleShow;
  begin
    FOnScreen := True;
    FVisible := False;
    AllocateWindowHandle;
    DoSetWindowVisible(False);
  end;
  
  procedure TfpgWidget.HandleHide;
  
negative.code:   FBackgroundColor := clWindowBackground;
    FTextColor  := clText1;
  
    inherited Create(AOwner);
  
    if (AOwner <> nil) and (AOwner is TfpgWidget) then
    begin
      Parent := TfpgWidget(AOwner);
  