diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2014-01-25 15:42:19 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2014-01-25 15:42:19 +0000 |
commit | 77168d95ac6dbeedef7e3759a4915ee83e193d0a (patch) | |
tree | fa708ed267f8432d228e5afb4b16ed4e8a5fcd37 /src/gui | |
parent | 36ce140591212572d60d249e924632dfaec635ea (diff) | |
download | fpGUI-77168d95ac6dbeedef7e3759a4915ee83e193d0a.tar.xz |
hyperlink: defined a new named color clHyperLink and used in in TfpgHyperLink
This makes it easier to customise in themes - without needing to override
TfpgCanvas.DrawString()
Diffstat (limited to 'src/gui')
-rw-r--r-- | src/gui/fpg_hyperlink.pas | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/gui/fpg_hyperlink.pas b/src/gui/fpg_hyperlink.pas index 2fb7bdbc..78e46342 100644 --- a/src/gui/fpg_hyperlink.pas +++ b/src/gui/fpg_hyperlink.pas @@ -1,7 +1,7 @@ { fpGUI - Free Pascal GUI Toolkit - Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this + Copyright (C) 2006 - 2014 See the file AUTHORS.txt, included in this distribution, for details of the copyright. See the file COPYING.modifiedLGPL, included in this distribution, @@ -58,7 +58,7 @@ type property FontDesc; property Height; property Hint; - property HotTrackColor: TfpgColor read FHotTrackColor write SetHotTrackColor default clBlue; + property HotTrackColor: TfpgColor read FHotTrackColor write SetHotTrackColor default clHyperLink; property HotTrackFont: TfpgString read FHTFont write SetHotTrackFont; property Layout; property Left; @@ -66,7 +66,7 @@ type property ParentShowHint; property ShowHint; property Text; - property TextColor default clBlue; + property TextColor default clHyperLink; property URL: TfpgString read FUrl write SetURL; property Top; property Width; @@ -91,8 +91,8 @@ constructor TfpgHyperlink.Create(AOwner: TComponent); begin inherited Create(AOwner); Width := 120; - FHotTrackColor := clBlue; - TextColor := clBlue; + FHotTrackColor := clHyperLink; + TextColor := clHyperLink; FUrl := fpGUIWebsite; FText := 'fpGUI website'; FHTFont := 'Arial-8:antialias=true:underline:bold'; |