anchor.diff:    FVisible := AValue;
     if FOnScreen then
       if FVisible then
  -      HandleShow
  +    begin
  +//      writeln('DEBUG:  TfpgWidget.SetVisible - handleshow');
  +      HandleShow;
  +    end
       else
       begin
  +//      writeln('DEBUG:  TfpgWidget.SetVisible - handlehide');
         HandleHide;
         FOnScreen := True;
       end;
  
positive.code: destructor TfpgWidget.Destroy;
  begin
    {$IFDEF DEBUG}
    writeln('TfpgWidget.Destroy [', Classname, ']');
    {$ENDIF}
    HandleHide;
    inherited;
  
negative.code: 
  uses
    fpg_constants,
    fpg_hint,
    fpg_menu;
  
  
  var
  