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

gtk intf: clWindow now maps to background of a list

Browse Source 
git-svn-id: trunk@11723 -
This commit is contained in:
mattias 2007-08-03 09:49:56 +00:00
parent 90ab9a2a73
commit 8fdda10624
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/interfaces/gtk/gtkproc.inc
View File

@ -1727,7 +1727,7 @@ begin
EnsureAsColor;//GC's with Pixmaps can't work w/Hatch's (yet)
exit;
end;
Case TColor(GDIColor^.ColorRef) of
//clScrollbar: see above
clInfoBk,
@ -8492,19 +8492,11 @@ begin
COLOR_WINDOW :
begin
ThemeWidget:=GetWidgetWithBackgroundWindow(ThemeWidget);
if ThemeWidget<>nil then begin
if GtkWidgetIsA(ThemeWidget,GTK_TYPE_LIST_ITEM) then
Style:=GetStyle(lgsList);
if Style=nil then
Style:=PGtkStyle(gtk_widget_get_style(ThemeWidget));
end;
if Style=nil then
Style := GetStyle(lgsDefault);
If Style = nil then
Style := GetStyle(lgsList);
if Style = nil then
exit;
GC := Style^.base_gc[GTK_STATE_NORMAL];
If (GC = nil) then begin
if (GC = nil) then begin
Result.Fill := GDK_Solid;
if Style^.base[GTK_STATE_NORMAL].Pixel<>0 then begin
Result.foreground := Style^.base[GTK_STATE_NORMAL];