Commit d1dc3757 authored by Željan Rikalo's avatar Željan Rikalo 🏊🏼
Browse files

Qt,Qt5: fixed painting of TQtHintWindow. issue #32354

git-svn-id: trunk@55760 -
parent 2b31dde1
......@@ -713,6 +713,7 @@ type
public
procedure InitializeWidget; override;
procedure DeInitializeWidget; override;
function CanPaintBackground: Boolean; override;
procedure SetDefaultColorRoles; override;
procedure setVisible(AVisible: Boolean); override;
property NeedRestoreVisible: Boolean read FNeedRestoreVisible write FNeedRestoreVisible;
......@@ -18243,6 +18244,12 @@ begin
inherited DeInitializeWidget;
end;
 
function TQtHintWindow.CanPaintBackground: Boolean;
begin
Result := CanSendLCLMessage and getEnabled and
(LCLObject.Color <> clDefault);
end;
procedure TQtHintWindow.SetDefaultColorRoles;
begin
WidgetColorRole := QPaletteToolTipBase;
......
......@@ -713,6 +713,7 @@ type
public
procedure InitializeWidget; override;
procedure DeInitializeWidget; override;
function CanPaintBackground: Boolean; override;
procedure SetDefaultColorRoles; override;
procedure setVisible(AVisible: Boolean); override;
property NeedRestoreVisible: Boolean read FNeedRestoreVisible write FNeedRestoreVisible;
......@@ -18195,6 +18196,12 @@ begin
inherited DeInitializeWidget;
end;
 
function TQtHintWindow.CanPaintBackground: Boolean;
begin
Result := CanSendLCLMessage and getEnabled and
(LCLObject.Color <> clDefault);
end;
procedure TQtHintWindow.SetDefaultColorRoles;
begin
WidgetColorRole := QPaletteToolTipBase;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment