anchor.diff:                  lasttaborder := w.TabOrder;
                 end;
   
  -        end;
  +        end; { case }
  +      end; { if w.Enabled... }
       end;
   end;
   
  
positive.code:     FOnResize(Self);
  end;
  
  procedure TfpgWidget.SetPosition(aleft, atop, awidth, aheight: TfpgCoord);
  begin
    MoveAndResize(aleft, atop, awidth, aheight);
  
negative.code: 
  type
    TFocusSearchDirection = (fsdFirst, fsdLast, fsdNext, fsdPrev);
  
    THintEvent = procedure(Sender: TObject; var AHint: TfpgString) of object;
  
  
    TfpgWidget = class(TfpgWindow)
  