procedure TListeDesFiches.StringGrid1DrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState); begin if (gdSelected in state) then begin //changement de couleur de fond et de police lorsqu'une ligne est séléctionnée stringgrid1.canvas.brush.color:=clnavy;//$0095B8FF; stringgrid1.canvas.FillRect(rect); stringgrid1.canvas.font.color:=clwhite;//clblue; stringgrid1.canvas.font.style:=stringgrid1.canvas.font.style; stringgrid1.canvas.textout(rect.left+2,rect.top+2,stringgrid1.cells[col,row]); end; End;