paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 23:17:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: check if LCLObject.Color = clDefault if paint background

Browse Source 
git-svn-id: trunk@25575 -
This commit is contained in:
zeljko 2010-05-22 11:59:49 +00:00
parent cb7c832e25
commit ffca852a3e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/qt/qtwidgets.pas
View File

@ -2842,7 +2842,10 @@ var
Color: TQColor;
R: TRect;
begin
ColorRefToTQColor(ColorToRGB(LCLObject.Color), Color);
if LCLObject.Color = clDefault then
Color := Palette.DefaultColor
else
ColorRefToTQColor(ColorToRGB(LCLObject.Color), Color);
Painter := QPainter_create(QWidget_to_QPaintDevice(Widget));
Brush := QBrush_create(@Color, QtSolidPattern);
try