Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Внизвыделение в 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c