Ver Mensaje Individual
  #6  
Antiguo 14-08-2008
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
Se me ocurre que utilices la propiedad Objects del TStringGrid. Asi cuando asignes la propiedad Cells, tambies asignas la propiedad Objects.

Por ejemplo:
Código Delphi [-]
// Si queremos pintarla
GrDetalle.Objects[col+2,memfila] := Pointer(1);
// Y si no quieres pintarlas
GrDetalle.Objects[col+2,memfila] := Pointer(0);

GrDetalle.Cells[col+2,memfila] := IntToStr(Suma);

Luego en el evento OnDrawCell comprueba la propiedad Object de esa celda:
Código Delphi [-]
if  GrDetalle.Objects[ACol,ARow] = Pointer(1)  then
  begin
    Font.Style := [fsBold];     // negrita
  end;
Responder Con Cita