diff -U 5 gtk1/gtklistsl.inc gtk/gtklistsl.inc
--- gtk1/gtklistsl.inc	2006-10-28 15:07:08.000000000 +0000
+++ gtk/gtklistsl.inc	2006-11-23 12:56:16.000000000 +0000
@@ -706,10 +706,11 @@
   if S<>'' then
     NewText:=PChar(S)
   else
     NewText:=#0;
   gtk_label_set_text(ALabel, NewText);
+  //set default font
   
   // repair sorting
   if Sorted and (SortedIndex<>Index) then begin
     Move(Index,SortedIndex);
   end;
@@ -871,11 +872,11 @@
   Returns: 
 
  ------------------------------------------------------------------------------}
 procedure TGtkListStringList.Insert(Index : integer; const S : string);
 var
-  li, cb, box: PGtkWidget;
+  li, cb, box,aLabel: PGtkWidget;
   item_requisition: TGtkRequisition;
   OldCount: LongInt;
   
   procedure RaiseIndexOutOfBounds;
   begin
@@ -904,14 +905,24 @@
       li := gtk_list_item_new;
       box := gtk_hbox_new(False, 0); //^Pointer(PGTKBox(box)^.children^.Next^.Data)^
       gtk_container_add(PGTKContainer(li), box);
       cb := gtk_check_button_new;
       gtk_box_pack_start(PGTKBox(box), cb, False, False, 0);
-      gtk_box_pack_start(PGTKBox(box), gtk_label_new(PChar(S)), False, False, 0);
+
+      aLabel:=gtk_label_new(PChar(S));
+      GtkWidgetSet.SetWidgetColor(aLabel, TListBox(Owner).font.color, clNone,
+            [GTK_STATE_NORMAL,GTK_STATE_ACTIVE,GTK_STATE_PRELIGHT,GTK_STATE_SELECTED]);
+      GtkWidgetSet.SetWidgetFont(aLabel, TListBox(Owner).Font);
+      gtk_box_pack_start(PGTKBox(box), aLabel, False, False, 0);
     end
     else begin
       li:=gtk_list_item_new_with_label(PChar(S));
+       aLabel:=PGtkBin(li)^.child;
+       GtkWidgetSet.SetWidgetColor(aLabel, TListBox(Owner).font.color, clNone,
+            [GTK_STATE_NORMAL,GTK_STATE_ACTIVE,GTK_STATE_PRELIGHT,GTK_STATE_SELECTED]);
+       GtkWidgetSet.SetWidgetFont(aLabel, TListBox(Owner).Font);
+
     end;
     {$IFDEF DebugLCLComponents}
     DebugGtkWidgets.MarkCreated(li,dbgsName(Owner)+' Index='+dbgs(Index)+' Count='+dbgs(Count));
     {$ENDIF}
     {$IFDEF EventTrace}
diff -U 5 gtk1/gtkwsstdctrls.pp gtk/gtkwsstdctrls.pp
--- gtk1/gtkwsstdctrls.pp	2006-10-10 06:52:57.000000000 +0000
+++ gtk/gtkwsstdctrls.pp	2006-11-23 13:15:35.000000000 +0000
@@ -119,10 +119,11 @@
     class procedure SetItemIndex(const ACustomListBox: TCustomListBox; const AIndex: integer); override;
     class procedure SetSelectionMode(const ACustomListBox: TCustomListBox; const AExtendedSelect, AMultiSelect: boolean); override;
     class procedure SetSorted(const ACustomListBox: TCustomListBox; AList: TStrings; ASorted: boolean); override;
     class procedure SetTopIndex(const ACustomListBox: TCustomListBox; const NewTopIndex: integer); override;
     class procedure SetColor(const AWinControl: TWinControl); override;
+    class procedure SetFont(const AWinControl: TWinControl; const AFont : tFont); override;
   end;
 
   { TGtkWSListBox }
 
   TGtkWSListBox = class(TWSListBox)
@@ -629,10 +630,38 @@
     AWinControl.Color,
     [GTK_STATE_NORMAL,GTK_STATE_ACTIVE,GTK_STATE_PRELIGHT,GTK_STATE_SELECTED,
      GTK_STYLE_BASE]);
 end;
 
+class procedure TGtkWSCustomListBox.SetFont(const AWinControl: TWinControl;
+  const AFont : TFont);
+var
+  Widget: PGtkWidget;
+  GList: PGList;
+  ChildWidget: PGTKLabel;
+begin
+  if not AWinControl.HandleAllocated then exit;
+  if AFont.IsDefault then exit;
+  //DebugLn('TGtkWSCustomListBox.SetFont ');
+
+              { Get the selections }
+        Widget:=GetWidgetInfo(Pointer(AWinControl.Handle),True)^.CoreWidget;
+        GList:=  PGtkList(Widget)^.children;
+        while Assigned(GList) do
+            begin
+
+         //  DebugLn('TGtkWSCustomListBox.SetFont for item ',PGTKLabel(PGtkBin(GList^.data)^.child)^.thelabel);
+          ChildWidget := PGTKLabel(PGtkBin(GList^.data)^.child);
+
+            GtkWidgetSet.SetWidgetColor(PGtkWidget(ChildWidget), AWinControl.font.color, clNone,
+            [GTK_STATE_NORMAL,GTK_STATE_ACTIVE,GTK_STATE_PRELIGHT,GTK_STATE_SELECTED]);
+            GtkWidgetSet.SetWidgetFont(PGtkWidget(ChildWidget), AFont);
+            GList := GList^.Next;
+            end;
+end;
+
+
 { TGtkWSCustomComboBox }
 
 class function  TGtkWSCustomComboBox.GetSelStart(
   const ACustomComboBox: TCustomComboBox): integer;
 begin
Общие подкаталоги: gtk1/tests и gtk/tests