Cita:
|
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