anchor.diff:  begin
     inherited Create(AOwner);
     Width           := 120;
  -  fHotTrackColor  := clBlue;
  +  FHotTrackColor  := clBlue;
     TextColor       := clBlue;
  -  fUrl            := 'http://opensoft.homeip.net/fpgui/';
  -  Text            := 'fpGUI website';
  -  fHTFont         := 'Arial-8:antialias=true:underline:bold';
  +  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;
  +  if FUrl <> Value then
  +    FUrl := Value;
   end;
   
   procedure TfpgHyperlink.SetHotTrackFont(const AValue: TfpgString);
   begin
  -  if fHTFont = AValue then
  +  if FHTFont = AValue then
       Exit;
  -  fHTFont := AValue;
  +  FHTFont := AValue;
   end;
   
   procedure TfpgHyperlink.SetHotTrackColor(const AValue: TfpgColor);
   begin
  -  if fHotTrackColor = AValue then
  +  if FHotTrackColor = AValue then
       Exit;
  -  fHotTrackColor := AValue;
  +  FHotTrackColor := AValue;
   end;
   
   procedure TfpgHyperlink.GoHyperLink;
  
positive.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);
  
negative.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);
  