|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Загрузка изображения в ListView
Подскажите пожалуйста, как из папки загрузить полноразмерное изображение в ListView. Картинка 700x400 px.
|
#2
|
||||
|
||||
Боюсь спросить какая цель преследуется? Совсем не для этого этот класс.
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
NumLock
Да, Вы правы, ListView не для этого. Изменил задачу. Есть ImageList1, в который загружено 6 картинок. Есть поле Image1. Требуется по нажатию Image1 перебирать изображения из ImageList1 поочерёдно. Пишу вот так: Код:
procedure TForm1.Image1Click(Sender: TObject); var i: integer; begin for i:= 0 to 5 do Imagelist1.GetBitmap(i, Image1.Picture.Bitmap); end; Что-то не работает. Отображает только 6-ю картинку и всё. |
#4
|
||||
|
||||
Ну правильно Delphi работает. Все 6 картинок из коллекции по очереди грузятся в изображение. Логично что последняя остаётся там навсегда.
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Terran_Star (06.09.2017)
|
#5
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject); begin with TPicture.Create do begin LoadFromFile('C:\Картинка 700x400 px 8bit.bmp'); ImageList1.Height:= 700; ImageList1.Width:= 400; ImageList1.Add(Bitmap, nil); ListView1.LargeImages:= ImageList1; ListView1.Items.Add; Free; end; end; Цитата:
Код:
var i: integer = 0; procedure TForm1.Image1Click(Sender: TObject); begin Imagelist1.GetBitmap(i, Image1.Picture.Bitmap); inc(i); if i > 5 then i:= 0; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Terran_Star (06.09.2017)
|
#6
|
|||
|
|||
Alegun
Благодарю! Свою ошибку понял! |