15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как изменить цвет и шрифт ячеек в DataGrid

Такие атрибуты как цвет текта, цвет фона и шрифт ячеек в Sheridan's DataGrid можно просто изменять путём установки свойств RowCellxxxx (RowCellForeColor, RowCellBackColor, RowCellItalic), и делать это в событии формы RowLoaded. Это событие вызывается, когда таблица изначально загружается. Следующий код устанавливает фон нулевой колонки в красный цвет, текст в белый, а шрифт делает наклонным:

Sub SSDataGrid1_RowLoaded (BookMark As String, _ 
RowNum As Long) 
SSDataGrid1.RowCellForeColor(0) = _ 
RGB(255,255,255) 
'set foreground to white 
SSDataGrid1.RowCellBackColor(0) = RGB(255,0,0) 
'set background to red 
SSDataGrid1.RowCellItalics(0) = True 
'set font to italics 
End Sub 

Можно сделать по другому. Указать в свойстве EvalRowNumber количество строк, а затем устанавливать соответствующие свойства RowCellxxxx. Следующий пример иллюстрирует этот способ:

Sub Command1_Click() 
SSDataGrid1.EvalRowNumber = 10 
'row to be manipulated 
SSDataGrid1.RowCellForeColor(2) = _ 
RGB(255,255,255) 
'set foreground at column 2 to white 
SSDataGrid1.RowCellBackColor(2) = RGB(255,0,0) 
'set background to red 
SSDataGrid1.RowCellItalics(2) = True 
'set font to italics 
End Sub