Hausaufgabe erledigt. Ich habe das durch das hier ausgetauscht. Das funktioniert. Ich habe auch das Event OnGetLinkStyle und alles was damit zusammenhängt (auch Font, FontHover in TLink) rausgenommen. Seitdem ist das in Ordnung. Die Farbwerte sind nur Testwerte.
Delphi-Quellcode:
if IsMouseOverLink(WordInfo.FLinkID) then
Canvas.Font.Color := clRed
else
Canvas.Font.Color := clYellow;
Die aktuelle Version ist oben zu finden.
Eine letzte Frage habe ich aber noch und da habe ich tatächlich keine Lösung für.
Warum muss ich am Ende der Caption eine Leerstelle angeben?
Code:
'0 <b>1<a>google.de</a>2</b> 3 '
Ohne die Leerstelle wird die
3 nicht gezeichnet.