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