[JVCL-Checkins] CVS: dev/JVCL3/run JvCombobox.pas,1.7,1.8

[Marcel B. <jed...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1:/tmp/cvs-serv20248/dev/JVCL3/run

Modified Files:
	JvCombobox.pas 
Log Message:
Stupid bug cause the ViewList to not be initialized properly (sub items where not added automatically)

Index: JvCombobox.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvCombobox.pas,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** JvCombobox.pas	18 Sep 2003 20:47:27 -0000	1.7
--- JvCombobox.pas	19 Sep 2003 08:45:31 -0000	1.8
***************
*** 903,909 ****
    VL: IJvDataConsumerViewList;
  begin
!   if Supports(SubSvc, IJvDataConsumerViewList, VL) then
    begin
      VL.ExpandOnNewItem := True;
      VL.RebuildView;
    end;
--- 903,910 ----
    VL: IJvDataConsumerViewList;
  begin
!   if SubSvc.GetInterface(IJvDataConsumerViewList, VL) then
    begin
      VL.ExpandOnNewItem := True;
+     VL.AutoExpandLevel := -1;
      VL.RebuildView;
    end;