Cita:
|
Empezado por richi
El caso es que tengo un procedimiento que llamo desde destintas zonas del programa para colorear la stringgrid; el problema viene cuando tengo texto introducido en donde e coloreado no me lo muestra. El procedimiento que utilizo es el siguiente:
Código Delphi [-]procedure form.pintarStringGrid(color : TColor; fila,desde,hasta : integer); var i : integer; begin stringGridPEriodo.Enabled := false; StringGridPeriodo.Canvas.brush.Color := color; for i:= desde to hasta do begin StringGridPeriodo.Canvas.FillRect(StringGridPeriodo.CellRect(i,fila)); end; stringGridPEriodo.Enabled := true; end;
Al procedimiento le paso el color la fila y en esa fila desde donde hasta donde pintar.
Gracias. |
haces fillRect y pintas todo de nuevo (incluido el texto) te falta añadir un TextRect o un DrawText para escribir otra vez el texto de la celda