VPF::Отрисовка эскизов изображений ListView

Quatrox7m

Дата 2.12.2011, 13:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 9.6.2009

Репутация: нет
Всего: нет

Использую TdirectoryListBox,ImageList,ListView.

Подскажите как сделать чтобы всместо отрисовки белых квадратов рисовались изображения.

вот это выводить все jpeg но только под белой маской)

Код



procedure Form1.Button1Click(Sender: TObject);
var
  img: TPicture;
  bmp: TBitmap;
  pic: TBitMap;
  ListItem: TListItem;
  sr: tsearchrec;
  NewColumn: TListColumn;
begin
img := TPicture.Create;
  bmp := TBitMap.Create;
  pic := TBitMap.Create;
  NewColumn := Form1.ListView.Columns.Add;
  NewColumn := Form1.ListView.Columns.Add; // добавдяются колонки
      if FindFirst('*.jpg*', faAnyFile, sr) = 0 then
      begin
        ListItem :=Form1.ListView.Items.Add; // создается объект
              ListItem.Caption := sr.name;
            while FindNext(sr) = 0 do
               begin
              bmp.Assign(img.Graphic);
              pic.Width := Form1.ImageList1.Width;
             pic.Height:= Form1.ImageList1.Height;
             pic.Canvas.StretchDraw(Rect(0,0,pic.Width, pic.Height), bmp);
              ListItem :=Form1.ListView.Items.Add; // создается объект
              ListItem.Caption := sr.name;
              Form1.ImageList1.Add(pic, nil);
               end;
              FindClose(sr);
               end;
            img.Free; bmp.Free; pic.Free;
      end;

Snowy

Дата 2.12.2011, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Нужно добавить
ImageIndex := ListView1.Items.Count-1;
В то же место, где это сделано в оригинале.

Quatrox7m

Дата 2.12.2011, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 9.6.2009

Репутация: нет
Всего: нет

Цитата(Snowy @ 2.12.2011, 13:30)

Нужно добавить
ImageIndex := ListView1.Items.Count-1;
В то же место, где это сделано в оригинале.

нет,не работает.

MetalFan

Дата 2.12.2011, 16:29 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Ну так жеж фигня написана...
Я вообще не вижу кода, загружающего картинку из файла....

Добавлено через 5 минут и 2 секунды
Snowy, кстати, а зачем в том примере проверка на то, что у файла атрибут faArchive?

--------------------

There are always someone smarter than you...

Snowy

Дата 2.12.2011, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Цитата(MetalFan @ 2.12.2011, 17:29

)

Snowy, кстати, а зачем в том примере проверка на то, что у файла атрибут faArchive?

Чтобы отсеять всё, что не faArchive.
Пилювать хотела FindFirst на указанный аттрибут. В результат поиска сыпятся и каталоги.
Древний досовский атавизм...

Добавлено через 1 минуту и 23 секунды
Quatrox7m, просто возьми код, что я указал. Он точно работает.
В твоём ковыряться - проще заново написать.

Quatrox7m

Дата 2.12.2011, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 9.6.2009

Репутация: нет
Всего: нет

Цитата(Snowy @ 2.12.2011, 17:57)

Цитата(MetalFan @ 2.12.2011, 17:29

)

Snowy, кстати, а зачем в том примере проверка на то, что у файла атрибут faArchive?

Чтобы отсеять всё, что не faArchive.
Пилювать хотела FindFirst на указанный аттрибут. В результат поиска сыпятся и каталоги.
Древний досовский атавизм...

Добавлено @ 17:58
Quatrox7m, просто возьми код, что я указал. Он точно работает.
В твоём ковыряться - проще заново написать.

ага тот то работет,но при загрузке больше 50 фоток моя минисофта виснет,понятно пачему там канва используется...а вот в этом создаются колонки ,и если бы не вот это *.jpg* у меня бы отображались все файлы(в зависимости от выставленного атрибута).
Этот вариант изложенный выше быстрее,но он походу кривой на столько что аж чито теоретически невозможно)))

~FoX~

Дата 3.12.2011, 10:45 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

http://forum.vingrad.ru/forum/topic-281044...y2029208/0.html
В теме есть пример простенькой реализации, используется GDI+, быстро, красиво, маштабируемо.... Может отображать *.bmp, *.dib, *.jpeg/*.jpg, *.emf, *.wmf, *.gif, *.tif/tiff, *.png, *.ico

Это сообщение отредактировал(а) ~FoX~ - 3.12.2011, 10:46

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »