Pintar el posicionamiento del Locate

[[Ivanzinho]]

Empezado por Neftali

Si lo que quieres es utilizar un DataSet diferente al del DGrid, deberás programar el evento "OnDrawColumnCell" del Grid.

A continuación te pongo un ejemplo de utilizacion

Código Delphi [-]
 
procedure TFRegMediciones.dbRejillaDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
   begin
      if qRegmedicionVal_rm.Value = qRegmedicionVop_rm.Value then
         begin
            dbRejilla.Canvas.brush.color := claqua;
            dbRejilla.DefaultDrawColumnCell(Rect, DataCol, Column, State);
         end
      else if ((qRegmedicionVal_rm.Value - qRegMedicionDsu_rm.Value) > qRegmedicionVop_rm.Value) or
              ((qRegmedicionVal_rm.Value + qRegMedicionDin_rm.Value) < qRegmedicionVop_rm.Value) then
         begin
            dbRejilla.Canvas.brush.color := cl3dlight;
            dbRejilla.DefaultDrawColumnCell(Rect, Datacol, Column, State);
         end; 
   end;

Nota: qRegMedicion es un TQuery