mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-22 06:00:26 +02:00
IdeIntf: Improve a comment about hint fonts added in previous commit.
git-svn-id: trunk@64027 -
This commit is contained in:
parent
fa76f4f43b
commit
8088c1378b
@ -2401,14 +2401,17 @@ var
|
|||||||
fPropRow: TOIPropertyGridRow;
|
fPropRow: TOIPropertyGridRow;
|
||||||
|
|
||||||
procedure DoShow(pt: TPoint); inline;
|
procedure DoShow(pt: TPoint); inline;
|
||||||
//var
|
//var HintFont: TFont;
|
||||||
// HintFont: TFont;
|
|
||||||
begin
|
begin
|
||||||
if WidgetSet.GetLCLCapability(lcTransparentWindow)=LCL_CAPABILITY_NO then
|
if WidgetSet.GetLCLCapability(lcTransparentWindow)=LCL_CAPABILITY_NO then
|
||||||
Inc(pt.Y, fPropRow.Height);
|
Inc(pt.Y, fPropRow.Height);
|
||||||
{ if HintType<>pehValue then By Juha :
|
{ By Juha :
|
||||||
HintFont := Screen.HintFont <- This is not usable at least in my Linux+KDE.
|
FValueFont and FDefaultValueFont are nearly unreadable.
|
||||||
else Tested with GTK2 and QT5 bindings.
|
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
|
if fPropRow.Editor.ValueIsStreamed then
|
||||||
HintFont:=FValueFont
|
HintFont:=FValueFont
|
||||||
else
|
else
|
||||||
|
Loading…
Reference in New Issue
Block a user