|
#1
|
|||
|
|||
DrawColumnCell
Привет! Помогите плизз. Такая проблема: есть приведенная ниже процедура. как мне ее вызывать в нужном месте программы?
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 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; При вызове TDBGrid( Sender ).DefaultDrawColumnCell( Rect, DataCol, Column, State ); и TForm1.DBGrid1DrawColumnCell(Sender; const Rect:; DataCol; Column; State); в различных вариантах выдаюцца ошибки. Заранее спасиба!!! |