![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Уважаемые пользователя форума, пожалуйста подскажите, как вставить
иконку из ImageList'а в ListBox? И возможно ли такое? |
#2
|
||||
|
||||
![]() У листбокса ставиш style в lbOwnerDrawFixed.
по onDrawItem вызываеш процедуру PaintImage(ListBoxSite, Control, Index, Rect); и описываеш процедуру Код:
Procedure TForm1.PaintImage(List1 :TListBox; Control: TWinControl; Index: Integer; Rect: TRect); const W = 24; H = 24; var BMPRect: TRect; begin with (Control as TListBox).Canvas do begin FillRect(Rect); List1.Canvas.Draw(0, Rect.Top, Image1.Picture.Graphic); BMPRect := Bounds(Rect.Left, Rect.Top, W, H); TextOut(Rect.Left+W+10, Rect.Top+10, List1.Items[index]); end; end; Примерно так. Но это с image рисует. Переделаеш под свои нужды Либо вот статейка Последний раз редактировалось :S.p.a.m., 06.01.2009 в 09:15. |
#3
|
|||
|
|||
![]() Спасибо, очень помог
![]() |