Скачать: CL | DM;

выделение в ListView   Найти похожие ветки 

← →
Neox ©   (2003-04-10 21:51) [0]

в сво-вах для ListView выставлено OwnerDraw := True и имеется,соответсвенно, процедура:

procedure TForm1.LinksListDrawItem(Sender: TCustomListView;
Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var
Brush: TBrush;
begin
Brush := TBrush.Create;

with LinksList.Canvas do
begin
if Odd(Item.Index) = True then
Brush.Color := $E4E4E4
else
Brush.Color := clWhite;

Windows.FillRect(handle, Rect, Brush.Handle);
TextOut(Rect.Left + 5, Rect.Top, Item.Caption);
TextOUt(LinksList.Columns[0].Width + Rect.Left + 5, Rect.Top,
Item.SubItems[0]);
end;
Brush.Free;
end;

проблема в том, при щелчке по объектам ListView не появляется подсветки. что надо дописать/исправить в OnDrawItem?

---

← →
Neox ©   (2003-04-10 23:03) [1]

вопрос исчерпан, решение найдено

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.015 c