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

Qt: disable automatic setAutoFillBackground() for TQtPage,TQtTabWidget,TQtScrollbar and others for qt >= 4.6.0

Browse Source 
git-svn-id: trunk@26380 -
This commit is contained in:
zeljko 2010-07-01 07:18:20 +00:00
parent 597d5aa030
commit 0dee08ed14
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5236,7 +5236,8 @@ begin
else
Parent := nil;
Result := QFrame_create(Parent);
QWidget_setAutoFillBackground(Result, True);
if (QtVersionMajor = 4) and (QtVersionMinor < 6) then
QWidget_setAutoFillBackground(Result, True);
QWidget_setAttribute(Result, QtWA_NoMousePropagation);
end;
@ -5695,7 +5696,8 @@ begin
Parent := nil;
Result := QScrollBar_create(Parent);
QWidget_setFocusPolicy(Result, QtNoFocus);
QWidget_setAutoFillBackground(Result, True);
if (QtVersionMajor = 4) and (QtVersionMinor < 6) then
QWidget_setAutoFillBackground(Result, True);
FHasPaint := True;
end;
@ -6651,7 +6653,8 @@ begin
{$ifdef darwin}
QTabWidget_setUsesScrollButtons(QTabWidgetH(Result), True);
{$endif}
QWidget_setAutoFillBackground(Result, True);
if (QtVersionMajor = 4) and (QtVersionMinor < 6) then
QWidget_setAutoFillBackground(Result, True);
end;
destructor TQtTabWidget.Destroy;
@ -9756,7 +9759,8 @@ begin
else
Parent := nil;
Result := QTableView_create(Parent);
QWidget_setAutoFillBackground(Result, True);
if (QtVersionMajor = 4) and (QtVersionMinor < 6) then
QWidget_setAutoFillBackground(Result, True);
end;
function TQtTableView.verticalHeader: TQtHeaderView;
@ -10460,7 +10464,8 @@ begin
else
Parent := nil;
Result := QStatusBar_create(Parent);
QWidget_setAutoFillBackground(Result, True);
if (QtVersionMajor = 4) and (QtVersionMinor < 6) then
QWidget_setAutoFillBackground(Result, True);
Widget := Result;
end;
@ -10839,7 +10844,8 @@ begin
if (LCLObject is TScrollingWinControl) then
begin
if not (csDesigning in LCLObject.ComponentState) then
if (QtVersionMajor = 4) and (QtVersionMinor < 6) and
not (csDesigning in LCLObject.ComponentState) then
QWidget_setAutoFillBackground(Result, True);
FChildOfComplexWidget := ccwScrollingWinControl;
end else
@ -11555,7 +11561,8 @@ begin
else
Parent := nil;
Result := QWidget_create(Parent);
QWidget_setAutoFillBackground(Result, True);
if (QtVersionMajor = 4) and (QtVersionMinor < 6) then
QWidget_setAutoFillBackground(Result, True);
QWidget_setAttribute(Result, QtWA_NoMousePropagation);
end;