anchor.diff:  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);
  
positive.code:     FHintWidget: TfpgWindow;
      FHintPos: TPoint;
      FOnKeyPress: TKeyPressEvent;
      procedure   SetHintPause(const AValue: Integer);
      procedure   SetupLocalizationStrings;
      procedure   InternalMsgFreeMe(var msg: TfpgMessageRec); message FPGM_FREEME;
  
negative.code:     procedure   CreateHintWindow;
      procedure   HintTimerFired(Sender: TObject);
      procedure   SetShowHint(const AValue: boolean);
      procedure   SetStartDragDistance(const AValue: integer);
    protected
      FDisplayParams: string;
      FScreenWidth: integer;
  