Ver Mensaje Individual
  #3  
Antiguo 25-10-2005
Avatar de Ivanzinho
[Ivanzinho] Ivanzinho is offline
Miembro Premium
 
Registrado: ene 2005
Ubicación: Galicia
Posts: 595
Reputación: 22
Ivanzinho Va por buen camino
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
__________________
Si no lees esto no vivirás tranquilo
Non lle poñades chatas â obra namentras non se remata. O que pense que vai mal que traballe n’ela; hai sitio para todos. (Castelao)

Última edición por Ivanzinho fecha: 25-10-2005 a las 12:49:09.
Responder Con Cita