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

Qt: refactored TQtWidget.CanPaintBackground() until clDefault implemented. fixes #7320

Browse Source 
git-svn-id: trunk@23937 -
This commit is contained in:
zeljko 2010-03-11 11:05:29 +00:00
parent 71be1de7d4
commit 12e669587d
1 changed files with 37 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -136,7 +136,7 @@ type
procedure Release; override;
public
function CanSendLCLMessage: Boolean;
function CanPaintBackground: Boolean;
function CanPaintBackground: Boolean; virtual;
function DeliverMessage(var Msg): LRESULT; virtual;
function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; override;
function getAcceptDropFiles: Boolean; virtual;
@ -385,6 +385,7 @@ type
TQtViewPort = class(TQtWidget)
public
function CanPaintBackground: Boolean; override;
function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; override;
end;
@ -408,6 +409,7 @@ type
TQtAbstractButton = class(TQtWidget)
public
function CanPaintBackground: Boolean; override;
function getIconSize: TSize;
function getText: WideString; override;
procedure setIcon(AIcon: QIconH);
@ -500,6 +502,7 @@ type
protected
function CreateWidget(const AParams: TCreateParams):QWidgetH; override;
public
function CanPaintBackground: Boolean; override;
function getText: WideString; override;
procedure setText(const W: WideString); override;
procedure setAlignment(const AAlignment: QtAlignment);
@ -542,6 +545,7 @@ type
protected
function CreateWidget(const AParams: TCreateParams):QWidgetH; override;
public
function CanPaintBackground: Boolean; override;
function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; override;
function getText: WideString; override;
procedure setText(const W: WideString); override;
@ -1638,21 +1642,11 @@ end;
------------------------------------------------------------------------------}
function TQtWidget.CanPaintBackground: Boolean;
begin
Result := CanSendLCLMessage and
(not HasPaint or
((ClassType = TQtGroupBox) and
(LCLObject.Color <> clBtnFace) and
// DO NOT REMOVE ! because QGroupBox default = clBackground not clBtnFace !
(LCLObject.Color <> clBackground))) and
getEnabled and not
getAutoFillBackground;
if Result and (ClassType <> TQtGroupBox) then
Result := ((WidgetColorRole = QPaletteButton) or
(ClassType = TQtStaticText)) and
(LCLObject.Color <> clBtnFace) and
// DO NOT REMOVE ! QCheckBox,QRadioButton,QLabel default = clBackground !
(LCLObject.Color <> clBackground);
{TODO: we must override this function for some classes
until clDefault is implemented in LCL.Then we can easy
ask EqualTQColor() for diff between
Palette.DefaultColor and current LCLObject.Color}
Result := False;
end;
{$IFDEF VerboseQt}
@ -4029,6 +4023,13 @@ begin
QAbstractButton_setText(QAbstractButtonH(Widget), @W);
end;
function TQtAbstractButton.CanPaintBackground: Boolean;
begin
Result := CanSendLCLMessage and getEnabled and
(LCLObject.Color <> clBtnFace) and (LCLObject.Color <> clBackground);
// DO NOT REMOVE ! QCheckBox,QRadioButton default = clBackground !
end;
function TQtAbstractButton.getIconSize: TSize;
begin
QAbstractButton_iconSize(QAbstractButtonH(Widget), @Result);
@ -4673,6 +4674,12 @@ begin
Result := QLabel_create(Parent);
end;
function TQtStaticText.CanPaintBackground: Boolean;
begin
Result := CanSendLCLMessage and getEnabled and
(LCLObject.Color <> clBtnFace) and (LCLObject.Color <> clBackground);
end;
{------------------------------------------------------------------------------
Function: TQtStaticText.SetText
Params: None
@ -4887,6 +4894,13 @@ begin
setLayoutThemeMargins(Layout, Result);
end;
function TQtGroupBox.CanPaintBackground: Boolean;
begin
Result := CanSendLCLMessage and getEnabled and
(LCLObject.Color <> clBtnFace) and (LCLObject.Color <> clBackground);
// DO NOT REMOVE ! QGroupBox default = clBackground not clBtnFace !
end;
function TQtGroupBox.EventFilter(Sender: QObjectH; Event: QEventH): Boolean;
cdecl;
begin
@ -9203,6 +9217,13 @@ end;
{ TQtViewPort }
function TQtViewPort.CanPaintBackground: Boolean;
begin
Result := CanSendLCLMessage and getEnabled and
(LCLObject is TScrollingWinControl) and
(LCLObject.Color <> clBtnFace) and (LCLObject.Color <> clBackground);
end;
function TQtViewPort.EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
begin
case QEvent_type(Event) of