paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 19:57:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: use clBtnShadow and clBtnHighlight in TQtWidgetSet.DrawEdge(). issue #27278

Browse Source 
git-svn-id: trunk@47329 -
This commit is contained in:
zeljko 2015-01-10 18:40:04 +00:00
parent f2491ead05
commit 60baaafb4a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1078,8 +1078,8 @@ begin
Dec(ClientRect.Bottom, 1);
QtDC.save;
try
ColorDark := ColorToRGB(cl3DDkShadow);
ColorLight := ColorToRGB(cl3DLight);
ColorDark := ColorToRGB(clBtnShadow);
ColorLight := ColorToRGB(clBtnHighlight);
if grfFlags and BF_FLAT <> 0 then
ColorLight := clSilver;
if grfFlags and BF_MONO <> 0 then
@ -1093,7 +1093,7 @@ begin
InflateRect(ClientRect, -1, -1);
if grfFlags and BF_MONO = 0 then
begin
ColorLight := ColorToRGB(clBtnHiLight);
ColorLight := ColorToRGB(clBtnHighlight);
ColorDark := ColorToRGB(clBtnShadow);
end;
if Edge and (BDR_SUNKENINNER or BDR_RAISEDINNER) <> 0 then