Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ListView и многострочный текст, возможно ли? 
:(
    Опции темы
TP@MB@Y
Дата 21.5.2006, 23:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 370
Регистрация: 18.12.2004
Где: Москва

Репутация: нет
Всего: 4
Нужно в ячейке многострочный текст вывести
Я почитал аналогичные темы но про grid. Там написано, что надо сделать так:
Код

в uses надо добавить WinProcs: 

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow:
 Integer;
 Rect: TRect; State: TGridDrawState);
var
 Format: Word;
 C: array[0..255] of Char;
begin
 Format := DT_LEFT or DT_WORDBREAK;
 (Sender as TStringGrid).Canvas.FillRect(Rect);
 StrPCopy(C, (Sender as TStringGrid).Cells[ACol, ARow]);
 WinProcs.DrawText((Sender as TStringGrid).Canvas.Handle, C,
   StrLen(C), Rect, Format);
end;


Я переделал под ListView вот так:
Код

procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var
 Format: Word;
 C: array[0..255] of Char;
begin
 Format := DT_LEFT or DT_WORDBREAK;
 (Sender as TListView).Canvas.FillRect(Rect);
 StrPCopy(C, Item.Caption);
 WinProcs.DrawText((Sender as TListView).Canvas.Handle, C,
   StrLen(C), Rect, Format);
end;


Но никаких изменений не произошло. Вместо перехода на новую строку в строке отображаются жирные вертикальные черты.
пробовал все комбинации #10#13 и ^M^J - одно и тоже 

Как же быть? 
PM   Вверх
Yanis
Дата 21.5.2006, 23:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
TAdvListView с широкими возможностями, в том числе и с этим справляется. 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Poseidon
Дата 21.5.2006, 23:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
ListView1.ViewStyle:= ??? 


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Yanis
Дата 21.5.2006, 23:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Цитата(Poseidon @  22.5.2006,  00:27 Найти цитируемый пост)
ListView1.ViewStyle:= ???

Не стал спрашивать, потому что скорее всего vsReport smile 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
TP@MB@Y
Дата 22.5.2006, 00:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 370
Регистрация: 18.12.2004
Где: Москва

Репутация: нет
Всего: 4
Yanis,  вот скачал этот компонент, установил. Но никак не соображу какое поле там изменить, чтоб перенос заработал?

Теже самые черточки вместо переноса.
Попробовал функцию RichToItem - в сабитем пишется вообще какойто бред.

Как правильно? 
PM   Вверх
Yanis
Дата 22.5.2006, 00:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Цитата(TP@MB@Y @  22.5.2006,  01:21 Найти цитируемый пост)
Yanis,  вот скачал этот компонент, установил. Но никак не соображу какое поле там изменить, чтоб перенос заработал?

Ну там же пример имеется... smile 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
TP@MB@Y
Дата 22.5.2006, 18:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 370
Регистрация: 18.12.2004
Где: Москва

Репутация: нет
Всего: 4
Yanis,  да вот смотрю я в этот "пример" и всеравно не понятно. Очень уж навороченный пример. Мне всего лишь надо чтоб в ячейке отображался многострочный текст. Пробовал оформлять текст html-кодами. Не вышло) 

PS  Все, разобрался вроде. Надо было ownerdraw в true поставить smile И тогда html-теги действуют

Вобщем всем спасибо! smile
Если что - спрошу в этой теме 

Это сообщение отредактировал(а) TP@MB@Y - 22.5.2006, 18:22
PM   Вверх
TP@MB@Y
Дата 22.5.2006, 21:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 370
Регистрация: 18.12.2004
Где: Москва

Репутация: нет
Всего: 4
Эх, отличный компонент smile
Еще бы узнать, как делать чтобы высота итема делалась автоматически... Можно так? 
PM   Вверх
TP@MB@Y
Дата 22.5.2006, 23:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 370
Регистрация: 18.12.2004
Где: Москва

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

//Выравнивает высоту итемов(у меня все они одинаковой высоты)
procedure AutoHeight(lv:TAdvListView);
var i,l,k:integer;
    s:string;
begin
 s:=lv.Items.Item[0].Caption;
 l:=length(s);
 k:=1;
 for i:=1 to l do
  if s[i]=#13 then k:=k+1;
 lv.ItemHeight:=k*abs(lv.Font.Height)
end;


Вот так я сделал - работает.
А для отдельного Item'a можно высоту задать? 
PM   Вверх
Yanis
Дата 23.5.2006, 20:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Цитата(TP@MB@Y @  23.5.2006,  00:37 Найти цитируемый пост)
А для отдельного Item'a можно высоту задать?

В этом компоненте похоже, что нет. 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
thelv
  Дата 1.5.2009, 01:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Долго довольно провозился с ListItem. Хотел в каждом SubItem вывести по картинке (не только в начале строки каждой).
Вобщем в событии ListView1CustomDrawItem передается параметр "var DefaultDraw: Boolean". Делаем его False и тогда все нами нарисованное будет в ListView!! Может кому то поможет.

Добавлено @ 01:58
P.S. Просто иначе текст выведенный внутри обработчика ListView1CustomDrawItem так: ListView1.Canvas.TextOut(1,1,'asdasdas') не отображается


M
Rrader		thelv, какое отношение это имеет к теме трехлетней давности?


Это сообщение отредактировал(а) Rrader - 1.5.2009, 07:54
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0521 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.