Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ListView и многострочный текст

Автор: TP@MB@Y 21.5.2006, 23:07

Нужно в ячейке многострочный текст вывести
Я почитал аналогичные темы но про 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 - одно и тоже

Как же быть?

Автор: Yanis 21.5.2006, 23:17

TAdvListView с широкими возможностями, в том числе и с этим справляется.

Автор: Poseidon 21.5.2006, 23:27

ListView1.ViewStyle:= ???

Автор: Yanis 21.5.2006, 23:37

Цитата(Poseidon @ 22.5.2006, 00:27

)

ListView1.ViewStyle:= ???

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

Автор: TP@MB@Y 22.5.2006, 00:21

Yanis, вот скачал этот компонент, установил. Но никак не соображу какое поле там изменить, чтоб перенос заработал?

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

Как правильно?

Автор: Yanis 22.5.2006, 00:32

Цитата(TP@MB@Y @ 22.5.2006, 01:21

)

Yanis, вот скачал этот компонент, установил. Но никак не соображу какое поле там изменить, чтоб перенос заработал?

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

Автор: TP@MB@Y 22.5.2006, 18:04

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

PS Все, разобрался вроде. Надо было ownerdraw в true поставить smile

И тогда html-теги действуют

Вобщем всем спасибо! smile

Если что - спрошу в этой теме

Автор: TP@MB@Y 22.5.2006, 21:35

Эх, отличный компонент smile

Еще бы узнать, как делать чтобы высота итема делалась автоматически... Можно так?

Автор: TP@MB@Y 22.5.2006, 23:37

Код


//Выравнивает высоту итемов(у меня все они одинаковой высоты)
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 можно высоту задать?

Автор: Yanis 23.5.2006, 20:38

Цитата(TP@MB@Y @ 23.5.2006, 00:37

)

А для отдельного Item'a можно высоту задать?

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

Автор: thelv 1.5.2009, 01:56

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

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

M
Rrader

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