1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
// Pas les lignes et colonnes fixes
if (aCol >= StringGrid1.FixedCols) and (aRow >= StringGrid1.FixedRows) then
begin
// Si ligne impaire
if Odd(ARow) then
StringGrid1.Canvas.Brush.Color := clYellow
else
StringGrid1.Canvas.Brush.Color := clWhite;
StringGrid1.Canvas.FillRect(Rect);
// Ecrit le texte centré en hauteur
StringGrid1.Canvas.TextOut( Rect.Left +2,
Rect.Top + (Rect.Bottom-Rect.Top-
StringGrid1.Canvas.TextHeight(StringGrid1.Cells[ACol,ARow])) div 2,
StringGrid1.Cells[ACol,ARow]);
end;
end; |
Partager