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

Qt: fixed problem with TCustomPanel.Color, when panel is painted via Frame3d.Problem raised with r41291 #15dc88089b while fixing #24445

Browse Source 
git-svn-id: trunk@41475 -
This commit is contained in:
zeljko 2013-05-31 13:10:33 +00:00
parent 7a48891a3d
commit fc08e9727f
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/qt/qtobjects.pas
View File

@ -2528,7 +2528,14 @@ begin
if lineWidth > 1 then
q_DrawWinPanel(Widget, x, y, w, h, Palette, Sunken, FillBrush)
else
q_DrawShadePanel(Widget, x, y, w, h, Palette, Sunken, 1, FillBrush);
begin
if (FillBrush = nil) and Assigned(Parent) and
QObject_inherits(Parent,'QFrame') then
q_DrawShadePanel(Widget, x, y, w, h, Palette, Sunken, 1, QPalette_background(Palette))
else
q_DrawShadePanel(Widget, x, y, w, h, Palette, Sunken, 1, FillBrush);
end;
if AppPalette <> nil then
begin