Пока закомментировал строки в FMX.ListView XE7
Потом может чз стиль уберу
Sep := GetItemGroupSeparators(I);
FBrush.Color := FItemStyleFrameColor;
if (Sep and ItemSeparatorTop > 0) and (ItemObjects.Purpose = TListItemPurpose.None) then
begin
SepRect.Left := DrawRect.Left;
SepRect.Right := DrawRect.Right;
SepRect.Top := AlignValueToPixel(DrawRect.Top);
SepRect.Bottom := SepRect.Top + SepHeight;
Canvas.FillRect(SepRect, 0, 0, AllCorners, Opacity, FBrush);
end;
if (ItemObjects.Purpose = TListItemPurpose.None) and ((I >= Items.Count - 1) or
(Items[I + 1].Purpose = TListItemPurpose.None)) then
begin
SepRect.Left := DrawRect.Left - 1;
SepRect.Right := DrawRect.Right + 1;
SepRect.Top := AlignValueToPixel(DrawRect.Bottom - SepHeight);
SepRect.Bottom := SepRect.Top + SepHeight;
Canvas.FillRect(SepRect, 0, 0, AllCorners, Opacity, FBrush);
end;