anchor.diff:  procedure TfpgHyperlink.HandleMouseEnter;
   begin
     inherited HandleMouseEnter;
  -  fOldColor   := TextColor;
  -  TextColor   := fHotTrackColor;
  -  fOldFont    := FontDesc;
  -  FontDesc    := fHTFont;
  +  FOldColor   := TextColor;
  +  TextColor   := FHotTrackColor;
  +  FOldFont    := FontDesc;
  +  FontDesc    := FHTFont;
     MouseCursor := mcHand;
   end;
   
   procedure TfpgHyperlink.HandleMouseExit;
   begin
     inherited HandleMouseExit;
  -  TextColor   := fOldColor;
  +  TextColor   := FOldColor;
     MouseCursor := mcDefault;
  -  FontDesc    := fOldFont;
  +  FontDesc    := FOldFont;
   end;
   
   procedure TfpgHyperlink.HandleLMouseDown(x, y: integer; shiftstate: TShiftState);
  
positive.code: 
    TfpgHyperlink = class(TfpgCustomLabel)
    private
      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);
  
negative.code: begin
    inherited Create(AOwner);
    Width           := 120;
    FHotTrackColor  := clBlue;
    TextColor       := clBlue;
    FUrl            := 'http://opensoft.homeip.net/fpgui/';
    FText           := 'fpGUI website';
    FHTFont         := 'Arial-8:antialias=true:underline:bold';
    FontDesc        := 'Arial-8:antialias=true:underline';
  end;
  
  procedure TfpgHyperlink.SetURL(const Value: TfpgString);
  begin
    if FUrl <> Value then
      FUrl := Value;
  end;
  
  procedure TfpgHyperlink.SetHotTrackFont(const AValue: TfpgString);
  begin
    if FHTFont = AValue then
      Exit;
    FHTFont := AValue;
  end;
  
  procedure TfpgHyperlink.SetHotTrackColor(const AValue: TfpgColor);
  begin
    if FHotTrackColor = AValue then
      Exit;
    FHotTrackColor := AValue;
  end;
  
  procedure TfpgHyperlink.GoHyperLink;
  