|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
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; Спасибо |
#2
|
|||
|
|||
Изначально заполнять их чётными и нечётными данными на мой взгляд было бы разумнее.
|