anchor.diff:      procedure   CreateHintWindow;
       procedure   HintTimerFired(Sender: TObject);
       procedure   SetShowHint(const AValue: boolean);
  +    procedure   SetStartDragDistance(const AValue: integer);
     protected
       FDisplayParams: string;
       FScreenWidth: integer;
  
positive.code:   FHintPause      := DEFAULT_HINT_PAUSE;
    FHintWidget     := nil;   // widget the mouse is over and whos hint text we need.
    FShowHint       := True;
  
    try
      inherited Create(AParams);
  
negative.code:     FHintWidget: TfpgWindow;
      FHintPos: TPoint;
      FOnKeyPress: TKeyPressEvent;
      FStartDragDistance: integer;
      procedure   SetHintPause(const AValue: Integer);
      procedure   SetupLocalizationStrings;
      procedure   InternalMsgFreeMe(var msg: TfpgMessageRec); message FPGM_FREEME;
  