|
#1
|
||||
|
||||
Записи Грида
Народ, подскажите, если кто знает, как в ДБГриде выделить записи разным цветом???
Можно перевернуть мир, не имея даже пресловутой точки опоры, - из чистого пижонства. Ага? |
#2
|
||||
|
||||
Юзай OnDrawColumnCell
|
#3
|
||||
|
||||
Точно, вот пример:
Код:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin // Красим фон нечетных строк if TDBGrid( Sender ).DataSource.DataSet.RecNo mod 2 <> 0 then TDBGrid( Sender ).Canvas.Brush.Color := clInfoBk; // Меняем стиль и цвет шрифта первой колонки if Column.Index = 0 then begin TDBGrid( Sender ).Canvas.Font.Style := TDBGrid( Sender ).Canvas.Font.Style + [fsBold]; TDBGrid( Sender ).Canvas.Font.Color := clRed; end; // Восстанавливаем выделение текущей позиции курсора if gdSelected in State then begin TDBGrid( Sender ).Canvas.Brush.Color := clHighLight; TDBGrid( Sender ).Canvas.Font.Color := clHighLightText; end; // Перерисовываем GRID TDBGrid( Sender ).DefaultDrawColumnCell( Rect, DataCol, Column, State ); end; |
#4
|
||||
|
||||
Спасибки, всё получилось!!!! а то я уперлась в OnDrawDataCell, с обеда сижу-не выходит... всем респект...
Можно перевернуть мир, не имея даже пресловутой точки опоры, - из чистого пижонства. Ага? |