paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 21:20:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 55592 #0b26ea5887 from trunk:

Browse Source 
Turbopower_ipro: Underline links only at mouse-over.
........

git-svn-id: branches/fixes_1_8@55625 -
This commit is contained in:
maxim 2017-08-01 22:34:38 +00:00
parent 06c1ab9a43
commit 271396d3ad
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/iphtml.pas
View File

@ -10083,7 +10083,7 @@ begin
Props.FontStyle := Props.FontStyle + [fsUnderline];
end else
if HasRef then begin
Props.FontStyle := Props.FontStyle + [fsUnderline];
Props.FontStyle := Props.FontStyle - [fsUnderline];
if Owner.LinkVisited(HRef) then
Props.FontColor := Props.VLinkColor
else