Ver Mensaje Individual
  #3  
Antiguo 29-12-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.309
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Necesitas un campo Booleano en u tabla que te indique si se ha convertido ya o no.

Si no quieres programar mucho puedes utilizar el componente TCustomizeGrid.

Basta con que lo sueltes en el formulario, le asignes tu DBGrid, lo actives y en el evento PaintCellImage coloque algo como ésto:

Código Delphi [-]
 
   // Para la columna pulsada
   if (FieldName = 'Convertido') then begin
       // Es verdadero
       if (Field.AsBoolean) then begin
         // Cargar el recurso
         Bitmap.LoadFromFile('.\Punto_verde.bmp');
       end
       else begin
         Bitmap.LoadFromFile('.\Punto_Rojo.bmp');
       end;
       // Indicar que ha cambiado
       Change := True;
   end;

En una de las demos del componente está implementado lo que necesitas.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita