
Essaye ça!
procedure TFP.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
With StringGrid1.Canvas do
begin
Brush.Style:=BsClear;//Ne remplit pas l'intérieur du rectangle entourant le texte
Pen.color:=clWhite;
Font.Height:=30;
TextOut(10,200,'Voici le message')
Ellipse(0, 0, 10,200);// autre dessin sur la grille
end;
end;
Jean_Jean
