anchor.diff:      FHintWidget: TfpgWindow;
       FHintPos: TPoint;
       FOnKeyPress: TKeyPressEvent;
  +    FStartDragDistance: integer;
       procedure   SetHintPause(const AValue: Integer);
       procedure   SetupLocalizationStrings;
       procedure   InternalMsgFreeMe(var msg: TfpgMessageRec); message FPGM_FREEME;
  
positive.code:     procedure   CreateHintWindow;
      procedure   HintTimerFired(Sender: TObject);
      procedure   SetShowHint(const AValue: boolean);
    protected
      FDisplayParams: string;
      FScreenWidth: integer;
  
negative.code: begin
  //writeln('>> SetShowHint to :', AValue);
    FShowHint := AValue;
  end;
  
  procedure TfpgApplication.SetStartDragDistance(const AValue: integer);
  begin
    if AValue < 0 then
      FStartDragDistance := 0
    else
      FStartDragDistance := AValue;
  end;
  
  procedure TfpgApplication.FreeFontRes(afontres: TfpgFontResource);
  