ListView высота строк

← →
Maloric (2006-04-07 18:05) [0]

Добрый вечер, никак нимогу изменить высоту строк. Как это релизуеться? Или может кто-нибудь даст ссылку где можно прочитать как работать с OwnerDraw, вообще не нашел как это делаеться.

← →
ECM © (2006-04-07 18:42) [1]

http://delphimaster.net/view/11-1141296531/

← →
ECM © (2006-04-07 18:48) [2]

http://www.delphimaster.ru/cgi-bin/forum.pl?n=10&search=DrawItem

← →
Maloric (2006-04-08 13:11) [3]

А может кто-нибудь объяснить по проще, как изменить высоту строк.

А самому попробовать? ... Потом спросить что не получилось, показать что делал...:))

В инспекторе объектов
1) ListView1.Options -> lvoOwnerDrawFixed = True
2) ListView1.LVItemHeight = 30 (высота)
3) OnDrawItem :

function TForm1.ListView1DrawItem(Sender: PObj; DC: HDC; const Rect: TRect; ItemIdx: Integer; DrawAction: TDrawAction; ItemState: TDrawState): Boolean; var br: HBRUSH; S: String; R: TRect; begin Result := TRUE; if (odsFocused in ItemState) then begin br := GetSysColorBrush(COLOR_HIGHLIGHT); SetTextColor(DC,GetSysColor(COLOR_HIGHLIGHTTEXT)); end else begin br := GetSysColorBrush(COLOR_WINDOW); SetTextColor(DC,GetSysColor(COLOR_WINDOWTEXT)); end; FillRect(DC,Rect,br); S := "Line "+Int2Str(ItemIdx); R := Rect; Inc(R.Left,10); DrawText(DC,@S[1],Length(S),R,DT_VCENTER or DT_SINGLELINE); end;

← →
Maloric (2006-04-08 15:16) [5]

Огромное вам спасибо!
Я то пробовал, только я совершенно не предстовлял как это делаеться, теперь буду знать. =)

ListView высота строк Найти похожие ветки