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:     property    ScreenWidth: integer read FScreenWidth;
      property    ScreenHeight: integer read FScreenHeight;
      property    ShowHint: boolean read FShowHint write SetShowHint default True;
      property    StartDragDistance: integer read FStartDragDistance write SetStartDragDistance default 5;
      property    StopOnException: Boolean read FStopOnException write FStopOnException;
      property    OnException: TExceptionEvent read FOnException write FOnException;
      property    OnKeyPress: TKeyPressEvent read FOnKeyPress write FOnKeyPress;
  