Cambiar el color en una celda de un DBGrid

[RoyTan]

Hasta para escribir soy torpe, bendito se escribe con B no con V.

Lo siento.

[jandok238]

Empezado por RoyTan

Hasta para escribir soy torpe, bendito se escribe con B no con V.

Lo siento.

y hasta para copiar... (es broma) ....
mi Nick no lleva 'C' es Jandok238 sin 'C' ...

salu2!!!!!!!!!

[RoyTan]

Po zi. Je Je Je

Gracias Jandok238

Saludos.

[dmassive]

Tengo una duda:

¿Para que sirve verificar si tiene foco?

Código Delphi [-]
 if (Column.Index = 2) and (Column.Field.Dataset.FieldbyName('PRECIO').AsFloat < 0) then  
     if (gdFocused in State) then    
     Begin      
         DBGrid1.canvas.brush.color := clBlue;    
     end    
     else    
     Begin      
         DBGrid1.Canvas.Font.Color := clRed;
         DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
     end;

pues si lo hago de esta manera funciona igual:

Código Delphi [-]
 if (Column.Index = 2) and (Column.Field.Dataset.FieldbyName('PRECIO').AsFloat < 0) then
     Begin      
         DBGrid1.Canvas.Font.Color := clRed;
         DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
     end;

[jandok238]

Esa comparacion es solo para cambiar el COLOR si la fila tiene el foco ....

si la fila tiene el foco, en lugar de pintarla ROJA, la pinta AZUL ....

salu2!!!!!!!

[dmassive]

ah, pues, es que mi duda surgio porque jamas aparecio el color azul en todo el DBGrid... es por eso que no saco a qué foco se refiere, el codigo se ve logico, pero, en el DBGrid no aparece ningun azul por ningun lado...

[jandok238]

Empezado por dmassive

ah, pues, es que mi duda surgio porque jamas aparecio el color azul en todo el DBGrid... es por eso que no saco a qué foco se refiere, el codigo se ve logico, pero, en el DBGrid no aparece ningun azul por ningun lado...

perdon... tienes razon ... no habia checado bien el codigo ....

ahi va... ahora si... bien revisado ...

Código Delphi [-]
if (gdFocused in State) then
     Begin
         DBGrid1.canvas.Font.color := clBlue; //Corregir la linea, cambiar bursh  por  font
         DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);  //Faltaba esta linea
     end
     else
     Begin
         DBGrid1.Canvas.Font.Color := clRed;
         DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
     end;

ahora si, si la celda tiene el foco, las letras toman el color especificado...

salu2!!!!!!!