如何调整listbox前图标的大小

                            
如何调整listbox前图标的大小?再大的图标我放在里面也变的很小!   
  procedure   TForm1.ListBox1DrawItem(Control:   TWinControl;   Index:   Integer;  
      Rect:   TRect;   State:   TOwnerDrawState);  
  var  
          Icon:   TIcon;  
  begin  
          Icon:=TIcon.Create;  
          ImageList1.GetIcon(0,Icon);  
          ListBox1.Canvas.FillRect(rect);  
          ListBox1.Canvas.Draw(rect.Left,rect.Top,Icon);  
  end;

查看回复