FillRect
no pinta la celda completa TStringGrid
en Delphi XE2. Hay un espacio de 3 píxeles en el lado izquierdo en el color predeterminado (con BiDiMode
establecido en bdLeftToRight
). Este problema no existe en Delphi 6 que utilicé antes.FillRect no pinta la celda completa de TStringGrid en Delphi XE2
procedure TShapeline.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
Stringgrid1.Canvas.Brush.Color:=$00FF80FF;
StringGrid1.Canvas.FillRect(Rect);
end;
He intentado cambiar todas las propiedades (incluyendo la) y diferentes estilos de pincel, el rectángulo pintado no llena la célula completa.
¿Qué sucede si OP quiere las líneas de la cuadrícula? –
Entonces mi respuesta probablemente no ayude, pero simplemente apagar las líneas fijas parece ayudar. –
@Bruce, su solución es correcta para XE pero no para XE2. Literalmente hay código en TStringGrid.DrawCell que hace ARect.Left: = ARect.Left + 4 si DefaultDrawing es verdadero y StyleServices está habilitado. –