Hacer que una columna de un DbGrid aparezca distinta según valor

[Casimiro Noteví]

Con la propuesta anterior es indiferente la posición.

Código Delphi [-]
procedure TForm1.UnCampoGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if sender.AsCurrency=0.0 then
    text:=''
  else
    text:=sender.AsString;
end;

[usuario1000]

Muchas gracias Casimiro Notevi, al final lo he solucionado de esta forma:

Código Delphi [-]
procedure TFPrograma.DBGrid1DrawColumnCell(Sender: TObject;
  const [Ref] Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
            if (column.Field.FieldName = 'datoCampo')then
                 begin
                    dbgrid1.Canvas.Font.Color := clblack;
                    dbgrid1.Canvas.Brush.Color := clWebGreenYellow;
                    dbgrid1.DefaultDrawColumnCell(rect,datacol, column, State);
                 end;
end;

De esta forma esté donde esté la columna lo hace perfecto.


Gracias.

[usuario1000]

Por cierto se me olvidaba, una cuestión más, en el DbGrid anterior lo que hago es colorear una celda, pero en vez de eso, podría poner en la celda un Gráfico sencillo, como un semaforo o un circulo rojo, verde, amarillo, el color que sea. Es decir dependiendo del dato que lea de la tabla, indico un gráfico en dicha celda. Algo parecido al punto verde que aparece en este foro al lado del nombre del usuario.


Gracias.....

[Casimiro Noteví]

También vale.

[ecfisa]

Hola.

Algunos ejemplos:

• Mostrar imagen/foto en DBgrid
• DBGrid con checks como ?

Saludos

[usuario1000]

Empezado por ecfisa

Hola.

Algunos ejemplos:

• Mostrar imagen/foto en DBgrid
• DBGrid con checks como ?

Saludos

Muchas Gracias ecfisa. Muy util la información.

[[ElDioni]]

Hola, si lo que quieres es poner solo un semáforo píntalo igual que lo estabas haciendo, con el canvas.brush y el font.color, cambiándolo a cllime y clred, según lo que necesites.
Así no tienes que cargar una imagen e irá más rápido.



Saludos.

[usuario1000]

Empezado por ElDioni

Hola, si lo que quieres es poner solo un semáforo píntalo igual que lo estabas haciendo, con el canvas.brush y el font.color, cambiándolo a cllime y clred, según lo que necesites.
Así no tienes que cargar una imagen e irá más rápido.



Saludos.

Gracias por la aportación.