Показать сообщение отдельно
  #1  
Старый 14.10.2021, 09:27
tovarz tovarz вне форума
Прохожий
 
Регистрация: 26.11.2011
Сообщения: 4
Репутация: 10
По умолчанию Stringgrid - исчезают границы между строками

Здравствуйте
Необходимо, чтобы при добавлении новой строки в Stringgrid программа проверяла ее номер и, в зависимости от ее четности/нечетности скрывала ее. Скрытие делаю присваиванием высоте значения -1 (значение 0 не устраивает, т.к. линии между строками выглядят толстыми).
Код
Код:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  sg.RowCount:=sg.RowCount+1;
  for i:=1 to sg.RowCount-1 do begin
    if i mod 2 = 0 then
      sg.RowHeights[i]:=-1;
  end;
end;
Но при таком подходе границы между строками вообще исчезают, когда добавляю несколько строк. Как сделать, чтобы границы оставались?
Спасибо
Ответить с цитированием