anchor.diff:  
     TfpgHyperlink = class(TfpgCustomLabel)
     private
  -    fHotTrackColor: TfpgColor;
  -    fOldColor: TfpgColor;
  -    fOldFont: TfpgString;
  -    fHTFont: TfpgString;
  -    fUrl: TfpgString;
  +    FHotTrackColor: TfpgColor;
  +    FOldColor: TfpgColor;
  +    FOldFont: TfpgString;
  +    FHTFont: TfpgString;
  +    FUrl: TfpgString;
       procedure   SetHotTrackColor(const AValue: TfpgColor);
       procedure   SetHotTrackFont(const AValue: TfpgString);
       procedure   SetURL(const Value: TfpgString);
  
positive.code:     property    Height;
      property    Hint;
      property    HotTrackColor: TfpgColor read FHotTrackColor write SetHotTrackColor default clBlue;
      property    HotTrackFont: TfpgString read fHTFont write SetHotTrackFont;
      property    Left;
      property    Text;
      property    TextColor default clBlue;
  
negative.code: procedure TfpgHyperlink.HandleMouseEnter;
  begin
    inherited HandleMouseEnter;
    FOldColor   := TextColor;
    TextColor   := FHotTrackColor;
    FOldFont    := FontDesc;
    FontDesc    := FHTFont;
    MouseCursor := mcHand;
  end;
  
  procedure TfpgHyperlink.HandleMouseExit;
  begin
    inherited HandleMouseExit;
    TextColor   := FOldColor;
    MouseCursor := mcDefault;
    FontDesc    := FOldFont;
  end;
  
  procedure TfpgHyperlink.HandleLMouseDown(x, y: integer; shiftstate: TShiftState);
  