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

Qt: set color to mdiArea if we are fsMDIForm in case when color <> clDefault.

Browse Source 
git-svn-id: trunk@44932 -
This commit is contained in:
zeljko 2014-05-06 13:51:00 +00:00
parent 67cb9cc43c
commit ba53e7f947
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -650,6 +650,7 @@ type
function MdiChildCount: integer;
procedure OffsetMousePos(APoint: PQtPoint); override;
procedure setAcceptDropFiles(AValue: Boolean);
procedure setColor(const Value: PQColor); override;
procedure setFocusPolicy(const APolicy: QtFocusPolicy); override;
procedure SlotActivateWindow(vActivate: Boolean); cdecl;
procedure slotWindowStateChange; cdecl;
@ -6890,6 +6891,19 @@ begin
QWidget_setAcceptDrops(Widget, AValue);
end;
procedure TQtMainWindow.setColor(const Value: PQColor);
var
p: QPaletteH;
begin
inherited setColor(Value);
if Assigned(MDIAreaHandle) and Assigned(FCentralWidget) then
begin
p := QWidget_palette(FCentralWidget);
if p <> nil then
QMdiArea_setBackground(QMdiAreaH(MdiAreaHandle.Widget), QPalette_background(P));
end;
end;
procedure TQtMainWindow.setFocusPolicy(const APolicy: QtFocusPolicy);
begin
{$IFDEF QTSCROLLABLEFORMS}