anchor.diff:      procedure   SetVisible(const AValue: boolean); virtual;
       procedure   SetShowHint(const AValue: boolean); virtual;
       procedure   SetParentShowHint(const AValue: boolean); virtual;
  -    procedure   SetHint(const AValue: string); virtual;
  +    function    GetHint: TfpgString; virtual;
  +    procedure   SetHint(const AValue: TfpgString); virtual;
       procedure   DoUpdateWindowPosition; override;
       procedure   DoAlign(AAlign: TAlign);
       procedure   DoResize;
  +    procedure   DoShowHint(var AHint: TfpgString);
       procedure   HandlePaint; virtual;
       procedure   HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: boolean); virtual;
       procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); virtual;
  
positive.code:             if startwg = w then
                FoundIt := True
              else if w.TabOrder < lasttaborder then
                if (startwg = nil) or
                  (w.TabOrder > startwg.TabOrder) or
                  (FoundIt and (w.TabOrder = startwg.TabOrder)) then
  
negative.code:   for i := 0 to ComponentCount - 1 do
    begin
      if Components[i] is TfpgWidget then
        TfpgWidget(Components[i]).Enabled := FEnabled;
    end;
    RePaint;
  end;
  