Привествую всех, возникла проблема с вышеуказанным событием, постоянно вылетают ошибки List Index Out Of Bounds (3), вроде делал как по "учебнику" и всяко разно менял код, но все равно одно и тоже. Ткине носом на ошибку в коде, всего столбцов 5 (те заголовок и 4 подпункта):
Код:
procedure TMainForm.FoundFilesCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
//if Sender.Items.Count = 0 then EXIT;
if SubItem = 0 then EXIT;
//try
if (SubItem = 3) and (POS('Hidden', Item.SubItems.Strings[SubItem - 1]) > 0) or
(POS('System', Item.SubItems.Strings[SubItem - 1]) > 0) then
Sender.Canvas.Font.Color := clRed else
Sender.Canvas.Font.Color := clBlack;
//except
//end;
//Sender.Canvas.Brush.Color := clLime
end;