paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-16 07:29:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

qt: fix DrawEdge colors

Browse Source 
git-svn-id: trunk@17644 -
This commit is contained in:
paul 2008-12-01 13:35:25 +00:00
parent aa6a1cb30d
commit cda2f61ad0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt/qtwinapi.inc
View File

@ -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