ListView1.Canvas

← →
alex732 (2004-03-19 18:54) [0]

Добрый день... Необходимо в ListView-е выделить некий елемент..
Пишу

procedure TForm1.ListView1Click(Sender: TObject);
begin
ListView1DrawItem(ListView1,
ListView1.Selected,
ListView1.Selected.DisplayRect(drLabel),
[odSelected]);
end;

procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
Item: TListItem; Rect: TRect; State: TOwnerDrawState);
begin
with sender.Canvas do
begin
Brush.Color := clBlue;
Font.Color := clWhite;
FrameRect(Rect);
end;
end;

Все нормально.. Но при переходе фокуса на другой объект выделение это пропадает... Как мне от этого избавиться???

← →
Yuri Btr © (2004-03-19 19:30) [1]

Хе-хех
может это поможет ?

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if not Item.Checked
then
begin
(Sender as TCustomListView).Canvas.Brush.Color:=clCream;
(Sender as TCustomListView).Canvas.Font.Color:=clRed;
end
else
begin
(Sender as TCustomListView).Canvas.Brush.Color:=clMoneyGreen;
(Sender as TCustomListView).Canvas.Font.Color:=clBlue;
end;
if (Item.Caption="1") and Item.Checked
then
(Sender as TCustomListView).Canvas.Font.Style:=[fsBold];
DefaultDraw:=true;
end;

Внутри ListView1CustomDrawItem
можешь делать любую проверку на состояние Item

ListView1.Canvas Найти похожие ветки