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

gtk2: set font color to ListBox from anatol (issue #0009824)

Browse Source 
git-svn-id: trunk@12259 -
This commit is contained in:
paul 2007-10-01 00:41:35 +00:00
parent f15b6e751b
commit 07085f0cb0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -515,9 +515,9 @@ begin
Widget:=GetWidgetInfo(Pointer(AWinControl.Handle),True)^.CoreWidget;
Gtk2WidgetSet.SetWidgetColor(Widget, AWinControl.Font.Color, clNone,
[GTK_STATE_NORMAL,GTK_STATE_ACTIVE,GTK_STATE_PRELIGHT,GTK_STATE_SELECTED]);
Gtk2WidgetSet.SetWidgetFont(Widget, AFont);
[GTK_STATE_NORMAL,GTK_STATE_ACTIVE,GTK_STATE_PRELIGHT,GTK_STATE_SELECTED,
GTK_STYLE_TEXT]);
Gtk2WidgetSet.SetWidgetFont(Widget, AFont);
end;
class function TGtk2WSCustomListBox.CreateHandle(const AWinControl: TWinControl;