Форум: "Система";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
ВнизИконка в ListBox Найти похожие ветки
← →
Song (2002-01-13 10:46) [1]Это возможно, если самому рисовать весь компонент по событию onDrawItem. Для этого нужно поставить свойство style на lbOwnerDrawFxed и обрабатывать событие onDrawItem. Но перед этим как вариант (можно и по другому)ложишь на форму компонент TImage или TImageList. В последнем соотвественно выставляешь свои 32х32 и загружаешь его туда. Дальше выставляем высоту поля в TListBox на 32 пикселя (чтобы выводимая картинка уместилась в строчку) - свойство lbOwnerDrawFxed как раз этим числом и руководствуется. Дальше вставляешь приведённый код:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);
Var BitMap:TBitMap;
begin
BitMap:=TBitMap.Create;
try
ImageList1.GetBitMap(1,BitMap);
With TListBox(Control) Do
Begin
Canvas.FillRect(Rect);
// рисуем твоё изображение
Canvas.Draw(Rect.Left+2,Rect.Top+2,BitMap);
// выводим строку текста
Canvas.TextOut(Rect.Left+20,Rect.Top+2,Items[Index]);
End;
finally
BitMap.Free;
end;
end;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c