paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 20:40: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); Dec(ClientRect.Bottom, 1);
QtDC.save; QtDC.save;
try try
ColorDark := ColorToRGB(cl3DDkShadow); ColorDark := ColorToRGB(clBtnShadow);
ColorLight := ColorToRGB(cl3DLight); ColorLight := ColorToRGB(clBtnHighlight);
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
@ -1093,7 +1093,7 @@ begin
InflateRect(ClientRect, -1, -1); InflateRect(ClientRect, -1, -1);
if grfFlags and BF_MONO = 0 then if grfFlags and BF_MONO = 0 then
begin begin
ColorLight := ColorToRGB(clBtnHiLight); ColorLight := ColorToRGB(clBtnHighlight);
ColorDark := ColorToRGB(clBtnShadow); ColorDark := ColorToRGB(clBtnShadow);
end; end;
if Edge and (BDR_SUNKENINNER or BDR_RAISEDINNER) <> 0 then if Edge and (BDR_SUNKENINNER or BDR_RAISEDINNER) <> 0 then