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

Qt: fixed LCLIntf.Frame3D. When FillBrush isn't filled then draw shaded box without brush (applies painter brush).issue #24445

Browse Source 
git-svn-id: trunk@41291 -
This commit is contained in:
zeljko 2013-05-19 13:00:21 +00:00
parent bdec439cd2
commit 15dc88089b
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2534,12 +2534,8 @@ begin
if lineWidth > 1 then if lineWidth > 1 then
q_DrawWinPanel(Widget, x, y, w, h, Palette, Sunken, FillBrush) q_DrawWinPanel(Widget, x, y, w, h, Palette, Sunken, FillBrush)
else else
begin q_DrawShadePanel(Widget, x, y, w, h, Palette, Sunken, 1, FillBrush);
if FillBrush = nil 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 if AppPalette <> nil then
begin begin
QPalette_destroy(AppPalette); QPalette_destroy(AppPalette);