Hola rotsen26.
Cita:
Empezado por rotsen26
La cuestión que si se colorea, pero nomas el primer dato que cumple con la condición, pero los demás ya no!!!
|
Y es lógico que así suceda ya que estás posicionando a ADOQuery1 en el primer registro cada vez que el evento
OnDrawColumnCell se ejecuta.
No lo he probado, pero a simple vista parece que debería ser:
Código Delphi
[-]
procedure Tfrm_Agrega.dbg_bsqDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if qry_articulopk_articulo.Value=ADOQuery1dpk.Value then
begin
dbg_bsq.Canvas.Brush.Color := $00E6DC64;
dbg_bsq.Font.Color := clBlack;
end;
dbg_bsq.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Saludos.