Изменение высоты строк TListView

[JoLan]

Добрый вечер. Подскажите, как можно изменить высоту строк в ListView, помогает изменение размера шрифта, но в заголовках колонок он тоже меняется. Существует ли способ уменьшить высоту строки, оставив при этом тот же размер шрифта в заголовках? (стиль шрифта в ячейках неважен, т.к. использую OwnerDraw)

[ych_del]

Что-то попробовал - на вскидку не получилось.
Категорически необходим TListView? А то можно ведь посмотреть в сторону VirtualStringTree.

[JoLan]

Желательно именно TListView. Т.к. в программе много списков + все создается динамически. Под другой компонент придется переписывать много кода.

[volvo877]

использую OwnerDraw

Тогда лови CN_MEASUREITEM и по его получению увеличивай itemHeight как тебе нужно.

[JoLan]

Сообщение от volvo877

Тогда лови CN_MEASUREITEM и по его получению увеличивай itemHeight как тебе нужно.

Вписал в класс Vcl.ComCtrls.TCustomListView процедуру

procedure WMMeasureItem(var Message: TWMMeasureItem); message CN_MEASUREITEM;

И ниже

procedure TCustomListView.WMMeasureItem(var Message: TWMMeasureItem);
begin
  Message.MeasureItemStruct^.ItemHeight := 10;
  Message.Result := 1;
end;

Так же поставил OwnerDraw у ListView1, Рисую так:

procedure TForm1.ListView1DrawItem(Sender: TCustomListView; Item: TListItem;
  Rect: TRect; State: TOwnerDrawState);
var mRect: TRect;
begin
  mRect := Item.DisplayRect(drLabel);
  mRect.Left := mRect.Left - 4;
  mRect.Right := mRect.Right - 1;
  Sender.Canvas.Brush.Color := clWindow;
  Sender.Canvas.FillRect(mRect);
  Sender.Canvas.TextRect(mRect, mRect.Left+6, mRect.Top + 2, Item.Caption);
end;

Высота как была 18 пх, так и осталась. Я просто мало что в этом понимаю.

[volvo877]

type
   TListView = class(ComCtrls.TListView)
   private
      procedure CNMeasureItem(var Message : TWMMeasureItem); message CN_MEASUREITEM;
   end;

   TForm1 = class(TForm)
   // ...

procedure TListView.CNMeasureItem(var Message: TWMMeasureItem);
begin
   Message.MeasureItemStruct^.ItemHeight := 10;
   Message.Result := 1;
end;

procedure TForm1.ListView1DrawItem(Sender: TCustomListView; Item: TListItem;
  Rect: TRect; State: TOwnerDrawState);
var mRect : TRect;
begin
   mRect := Item.DisplayRect(drLabel);
   mRect.Left := mRect.Left - 4;
   mRect.Right := mRect.Right - 1;
   Sender.Canvas.Brush.Color := clWindow;
   Sender.Canvas.FillRect(mRect);
   Sender.Canvas.TextRect(mRect, mRect.Left+6, mRect.Top + 2, Item.Caption);
end;

Выводит вот такую картинку (то есть, высота все-таки изменяется) :

[JoLan]

Вопрос решен, спасибо огромное)

[JoLan]

Возможно ли изменить цвет сетки в TListView?

[Dee63]

Сообщение от JoLan

Вопрос решен, спасибо огромное)

Ну а решение то где?

[Caeles-Lupus]

Сообщение от Dee63

Ну а решение то где?

Вот-вот, долго нам его еще ждать?