Добрый день! Пытаюсь выделить цветом отдельные Item-ы в ListView по правой кнопке
мыши. Примерно вот так
procedure TMainForm.FileListLMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
i: integer;
Item: TListItem;
c: integer;
begin
if (Button = mbRight) then begin
Item := FileListL.GetItemAt( X, Y );
if Item = nil then
Exit;
c:= SendMessage (Item.Handle, LVM_GETTEXTCOLOR, 0, 0);
if (c = clBlack) then
SendMessage( Item.Handle, LVM_SETTEXTCOLOR, 0, clRed)
else
SendMessage( Item.Handle, LVM_SETTEXTCOLOR, 0, clBlack);
end;
но что-то работает не так,как надо - то меняет цвет через строку, то
не снимает выделение.Объясните популярно, как проблему-то решить!