How to call DBGridEh1DrawColumnCell-CodePudding

Procedure TForm1. DBGridEh1DrawColumnCell (Sender: TObject;
Const the Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
The begin
Inherited;
If (DataCol<> 0) and (Not the Column. The Field. The IsNull) then
The begin
If the Column. The Field. The AsString='0' then//or other conditions of the judge
DBGrideh1. Canvas. FillRect (the Rect);
end;
end;

How to call in another procedure of the process, I tried a way, always say parameter wrong, how to specify the parameters, also need to define the parameters?

CodePudding user response:

Direct call this event can ah, how could you