Apex True DBGrid Pro 8.0 + Colored lines

[Scuder]

Перерыл все настройки грида, но так и не нашёл, как можно раскрасить записи. Нашёл как поменять цвет текста в отдельном столбце, но как изменить цвет текста у конкретных строк?? Так хочется красивый грид поиметь!

Или, может, какой-нибудь другой грид умеет быть цветным?

[Ennor]

А поячеечно? Должно работать.

[Scuder]

Не-а.

Есть куча свойств у столбца, но нет свойств вообще ни у строки, ни у ячейки. Выцепить текст у текущей ячейки можно: msgbox grid.text, но это всё, что можно сделать с ячейкой.

Я в шоке просто.

[Ennor]

Ты че, чувак! На прошлой работе мы на основе тогда еще 6-го TrueDBGrid'a делали собственный компонент для распечатки флекса и листвью. Прекрасно там ячейки закрашивались!
Смотри внимательнее, скорее всего, ты просто не заметил этого свойства. Оно, в общем, и немудрено: я хорошо помню, как там объектная модель с ног на голову перевернута...

[Scuder]

Блин! "Критикуя - предлагай"!

Код: Выделить всё

Me.Grid1.Row = 2
MsgBox Me.Grid1.Columns.Item(3).Text

Показывает текст ячейки 3,2.

Код: Выделить всё

Me.Grid1.Row = 2
Me.Grid1.Columns.Item(3).ForeColor = &HFF&

Окрашивает ВЕСЬ 3-й столбец!
Ну как это понимать? Заставить бы их наизусть всю объектную модель выучить! (

[Scuder]

О! Ни за что бы не догадался!!
А примерчик, оказывается, прямо на http://www.componentone.com был..

Код: Выделить всё

Private Sub Grid1_FetchCellStyle(ByVal Condition As Integer, ByVal Split As Integer, Bookmark As Variant, ByVal Col As Integer, ByVal CellStyle As TrueOleDBGrid80.StyleDisp)

ATempRS.Bookmark = Bookmark

If ATempRS.Fields("Field") = "xxx" Then
    CellStyle.ForeColor = &HC0FFC0
ElseIf ATempRS.Fields("Field") = "yyy" Then
    CellStyle.ForeColor = &HFF00FF
ElseIf ATempRS.Fields("Field") = "zzz" Then
    CellStyle.ForeColor = &HFFFF&
End If

End Sub

[Ennor]

Про что я тебе и говорил...

[Scuder]

Да, но здесь раскраска идёт во время заполнения грида. А вот как потом изменить цвет ячейки или строки я так и не понял..

[sash]

Попробуй воспользоваться 'Microsoft Hierarhical FlexGrid'. В нём можно что угодно сделать с ячейкой. Вот небольшой примерчик:

Код: Выделить всё

Private Sub Form_Load()
    With MSHFlexGrid1
        'пермещаемся в ячейку (1,1)
        .Col = 1   'Столбец 1
        .Row = 1   'Строка 1
        .CellBackColor = vbWhite
        .CellFontBold = True
        .CellForeColor = vbBlack
    End With
End Sub