| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ListView высота строк [D6,KOL, WinXP]

Maloric ©   (2006-04-07 18:05:00) 

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

---

Maloric   (2006-04-08 15:16:00) [1]

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

---

ECM   (2006-04-08 14:02:00) [2]

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

В инспекторе объектов
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 13:11:00) [3]

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

---

ECM   (2006-04-07 18:48:00) [4]

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

---

ECM   (2006-04-07 18:42:00) [5]

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

---

Наверх