Pintar el posicionamiento del Locate

[ilichhernandez]

Hola a todos nuevamente....mi duda es la siguiente, realizao un Locate sobre una dbgrid, entonces quiero que el lregistro que es apuntado tenga un color cualquiera....pero no cacho como hacerlo.... no tengo ni una idea.... revise el foro pero lo que encontre no supe como poder implementarlo...
Sugerencias seran todas agradecidas.....


Ilich

[Neftali [Germán.Estévez]]

¿El Locate lo estás haciendo sobre el mismo DataSet que tienes conectado el DBGrid?
Si es así, el registro activo debe ser el que has encontrado utilizando Locate.
Activando las opciones dgRowSelect y dgAlwaysShowSelection del DBGrid debberías poder ver el registro activo (toda la línea seleccionada) aunque el DBGrid no tenga el foco.

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

Pruébalo y ya dirás...

[[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