procedure DoShow(pt: TPoint); inline;
//var HintFont: TFont;
begin
if WidgetSet.GetLCLCapability(lcTransparentWindow)=LCL_CAPABILITY_NO then
Inc(pt.Y, fPropRow.Height);
{ By Juha :
FValueFont and FDefaultValueFont are nearly unreadable.
We should maybe get their negated color as the hint background is black.
if HintType<>pehValue then
HintFont := Screen.HintFont
else
if fPropRow.Editor.ValueIsStreamed then
HintFont:=FValueFont
else
HintFont:=FDefaultValueFont; }
FHintManager.ShowHint(ClientToScreen(pt), TheHint, False{, HintFont});
if FHintManager.CurHintWindow<>nil then
FHintManager.CurHintWindow.OnMouseLeave := @HintMouseLeave;
end;