Bonjour,

Je viens d'installer Lazarus 0.9.30. Curieusement, je n'arrive plus à faire afficher correctement les couleurs du texte. Objectif recherché : si la colonne 3 est vide, on a du bleu sinon c'est du vert.
Voici le code utilisé :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
procedure TForm9.mygridDrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
    if mygrid.Cells[3,arow]<>'' then mygrid.Canvas.font.Color:=clGreen
       else mygrid.font.Color:=clNavy;
end;

Avec ça, toutes les lignes sont en bleu, y compris celles dont la colonne 3 est vide. Pourtant ce code fonctionnait très bien avec la version 0.9.28. Où est le problème, à votre avis ?

Merci d'avance