mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-09 10:58:14 +02:00
qt: fix DrawEdge colors
git-svn-id: trunk@17644 -
This commit is contained in:
parent
aa6a1cb30d
commit
cda2f61ad0
@ -1043,8 +1043,8 @@ begin
|
|||||||
Dec(ClientRect.Bottom, 1);
|
Dec(ClientRect.Bottom, 1);
|
||||||
QPainter_save(QtDC.Widget);
|
QPainter_save(QtDC.Widget);
|
||||||
try
|
try
|
||||||
ColorDark := ColorToRGB(clBtnShadow);
|
ColorDark := ColorToRGB(cl3DDkShadow);
|
||||||
ColorLight := ColorToRGB(clBtnHighlight);
|
ColorLight := ColorToRGB(cl3DLight);
|
||||||
if grfFlags and BF_FLAT <> 0 then
|
if grfFlags and BF_FLAT <> 0 then
|
||||||
ColorLight := clSilver;
|
ColorLight := clSilver;
|
||||||
if grfFlags and BF_MONO <> 0 then
|
if grfFlags and BF_MONO <> 0 then
|
||||||
|
Loading…
Reference in New Issue
Block a user