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

Qt: fixed delayed initialization of palettes under X11 (inactiveTitleColor, disabled controls color) by initializing palette imediatelly (as suggested from qt-nokia devels).

Browse Source 
git-svn-id: trunk@27277 -
This commit is contained in:
zeljko 2010-09-07 14:23:03 +00:00
parent bcb791dcb6
commit 83b0b2ef87
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lcl/interfaces/qt/qtobject.inc
View File

@ -15,6 +15,34 @@
}
//---------------------------------------------------------------
{$IFDEF HASX11}
// palette initialisation for X11, fixed delayed initialization of palettes
// with various styles under X11.
procedure QtX11InitializePalettes;
var
StyleName: WideString;
Palette: QPaletteH;
Brush: QBrushH;
begin
QObject_objectName(QApplication_style(), @StyleName);
//palette for disabled viewports and edit controls
Palette := QPalette_create();
QApplication_palette(Palette);
Brush := QPalette_window(Palette);
QPalette_setBrush(Palette, QPaletteDisabled, QPaletteBase, Brush);
QApplication_setPalette(Palette);
QPalette_destroy(Palette);
//palette for inactive titlebars
Palette := QPalette_create();
QApplication_palette(Palette);
Brush := QPalette_dark(Palette);
QPalette_setBrush(Palette, QPaletteInactive, QPaletteHighlight, Brush);
QApplication_setPalette(Palette);
QPalette_destroy(Palette);
end;
{$ENDIF}
{------------------------------------------------------------------------------
Method: TQtWidgetSet.Create
Params: None
@ -42,6 +70,7 @@ begin
FEatNextDeactivate := False;
{$IFDEF HASX11}
FLastMinimizeEvent := 0;
QtX11InitializePalettes;
{$ENDIF}
end;