Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.09.2014, 16:40   #1
firstoxe
Пользователь
 
Регистрация: 24.11.2011
Сообщений: 11
По умолчанию картинка и текст в одной строке listbox

Всем привет, нужна помощь с кодом. Программа по ссылке записывает изображения формата jpg (размер 50х50) в поток, затем вставляет его в listbox и после картинки ещё дописывает текст в этой же строке. Как это реализовать или есть что то получше listboxa для этой цели?
firstoxe вне форума Ответить с цитированием
Старый 10.09.2014, 17:17   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,442
По умолчанию

ListView, VirtualDrawTree, VirtualStringTree. Хотя у листбокса оже вроде есть DawItem событие.
Человек_Борща вне форума Ответить с цитированием
Старый 11.09.2014, 14:03   #3
firstoxe
Пользователь
 
Регистрация: 24.11.2011
Сообщений: 11
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
ListView, VirtualDrawTree, VirtualStringTree. Хотя у листбокса оже вроде есть DawItem событие.
не эти компоненты даже близко не то =))
как я понял событие ItemDraw срабатывает при фокусе listbox (неважно для какого написано событие, срабатывает если нажать на другой listbox)

Код:
   for m := 1 to kop do
    begin
      url_photo := '';
      vv := copy(vv, pos('img_50":"', vv));
      delete(vv, 1, 11);
      tt := 1;
      while vv[tt] <> '"' do
      begin
        url_img := url_img + vv[tt];
        inc(tt);
      end;
      memo2.Lines.Add(url_img);
    end;
этим кодом я получаю список ссылок для listbox'a.
Осталось узнать как их отправить в listbox (получилось только то, что все картинки поочередно прорисовываются в первом итеме и во всю длину)
Код:
 ListBox2.Canvas.StretchDraw(Rect, img);
использовал эту функцию для прорисовки в событии DrawItem

Если добавлять listbox.items.add() то у listbox при параметре style =lbOwnerDrawFixed или lbOwnerDrawVariable текст не отображается

получилось реализовать данную затею, вот только он рисует всем одну картинку а не разные...

Последний раз редактировалось Stilet; 12.09.2014 в 18:42.
firstoxe вне форума Ответить с цитированием
Старый 12.09.2014, 18:36   #4
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Нарисуй, как это должно выглядеть на практике. А то мы тут гадаем, а на деле может оказаться, что надо совсем не то.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 12.09.2014, 18:48   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Хотя у листбокса оже вроде есть DawItem событие.
Угу. Оно родимое. Там и рисовать.
http://www.programmersforum.ru/showthread.php?t=86730
http://www.programmersforum.ru/showthread.php?t=53326
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разные стили в одной строке ListBox rota Общие вопросы Delphi 14 26.02.2012 21:48
Печать Image несколько копий в одной строке, + текст в низу картинки... Oleg Romanchuk Общие вопросы Delphi 0 10.11.2011 12:57
Картинка и текст Abuhamed HTML и CSS 1 24.02.2011 08:20
Картинка в строке Виталька Помощь студентам 2 06.04.2010 17:33
картинка в listbox-e blackstersl Мультимедиа в Delphi 5 05.06.2009 18:08