Текущий архив: 2007.01.21;
Скачать: CL | DM;

Вниз

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]

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

---

← →
ECM ©   (2006-04-08 14:02) [4]

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

В инспекторе объектов
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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2007.01.21;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.037 c