Problema con DbGrid.

[[gluglu]]

Código Delphi [-]
if table1estatus := 'finalizado' then
  DBGrid1.canvas.brush.color :=clBlue
else
  DBGrid1.canvas.brush.color :=clRed;
DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);

Tenías el DefaultDrawColumnCell dentro del segundo bloque de la condición. Debe ser ejecutado en ambos casos por lo que hay que sacarlo fuera.

[redimido]

Pués lo he hecho y nada.
Me gustaría saber si es que este bloque (DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State)
no permite la ejecución debido a que estoy trabando con campos tipos String.

Código Delphi [-]
TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if table1estatus := 'finalizado' then
begin
DBGrid1.canvas.brush.color :=clBlue;
end else
DBGrid1.canvas.brush.color :=clRed;
DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State) 
End;
End;
End;

La otra forma:

Código Delphi [-]
TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if table1estatus := 'finalizado' then
begin
DBGrid1.canvas.brush.color :=clBlue;
end else
if table1estatus := 'pendiente' then
begin
DBGrid1.canvas.brush.color :=clRed;
DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State) 
End;
End;
End;

[[gluglu]]

No tiene nada que ver que sea tipo String o cualquier otro tipo.

De nuevo insisto en que tu código tiene que ser de la siguiente manera para que te funciona correctamente :

Código Delphi [-]
TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if table1estatus := 'finalizado' then
  begin
    DBGrid1.canvas.brush.color :=clBlue;
  end else
  begin
    DBGrid1.canvas.brush.color :=clRed;
  end;
  DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
End;

Al menos, en el código que expones, sobra un End; y después no sé si tu mismo te aclaras donde debe de ir el begin y el end de cada bloque.

He modificado tu código dejando el begin y end para cada bloque. Pero de hecho dichos begin y end sobran en el caso particular propuesto, por lo que podría quedar así :

Código Delphi [-]
TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if table1estatus := 'finalizado' then
    DBGrid1.canvas.brush.color :=clBlue
  else
    DBGrid1.canvas.brush.color :=clRed;
  DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
End;

tal y como expuse anteriormente.

Además en la línea del DBGrid1.DefaultDrawColumnCell te falta terminarla con ';'.

La otra forma que pones, también le sobra un end;

Código Delphi [-]
TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if table1estatus := 'finalizado' then
  begin
    DBGrid1.canvas.brush.color :=clBlue;
  end else
    if table1estatus := 'pendiente' then
    begin
      DBGrid1.canvas.brush.color :=clRed;
      DBGrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
    End;
End;

y tampoco está terminada con ';' la fila del DefaultDrawColumnCell.

Fíjate bien en los bloques Begin End. Ahí es donde tienes el error. No en si es de tipo String u otro tipo.

[[Luis M.]]

Hola.

Cuando compilas, ¿no te da ningún error?.

Más que nada lo digo por esto:
Código Delphi [-]if table1estatus := 'finalizado' then



Un saludo.

[[gluglu]]

Anda ! Vaya, ni siquiera me había fijado en lo que comenta Luis M. que es totalmente cierto.

[redimido]

Muchas gracias amigo Gluglu, bueno en cuanto a lo que comentas amigo Luis del " := " funciona perfecto, ahí no era donde por lo visto estaba el problema sino más bien en la última línea de código y que gracias a la aclaración realizada por el Sr. Gluglu pude resolver.

Gracias a ambos por su valioso tiempo.