Discussion :

[Jon Shannow]

Bonjour,
Dans un dbgrid, j'affiche la liste du personnel de la société. Dans cette liste, il y a le personnel actuel et le personnel qui est parti (quelle qu'en soit la raison).
Je n'affiche, par défaut que le personnel actuel. Mais, selon un Checkbox, je peux choisir ou non d'afficher en plus le personnel "parti".

Je passe par un TZQuery (de Zeos) et j'ai une requête paramétrée. A chaque changement du checkbox, je fais un "disablecontrols" sur le ZQuery, je le ferme, mets à jour le paramètre, ouvre le ZQuery et fais un "enablecontrols".

Jusque là, ça va !

Le problème, c'est que je souhaite mettre en évidence le personnel "parti". Pour cela, je me suis dit, je vais mettre les colonnes en italique des lignes "parti".
Pour cela je me suis dit que j'allais utilisé le "OnColumnDrawCell", modifier le "column.font.style".

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure Tfrm_ChxUser.grd_UsersDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  If SQL_Userusr_statut.AsString='N' Then //Ça veut dire que la personne est "parti"
    Column.Font.Style:=[ fsItalic]
  Else
    Column.Font.Style:=[];
end;

Ça me provoque un affichage clignotant horrible et il y a de l'italique ou pas un peut partout...
Je pense que je m'y prends comme un manche, mais je ne vois pas comment faire.

Quelqu'un a une idée ?

Merci d'avance
JS

[e-ric]

Salut

Ca fait longtemps que je n'ai pas fait ce genre de code(et encode dans Delphi) alors j'ai dû rechercher un peu dans mes souvenirs.

La propriété Column.Font vaut pour toute la colonne et le gestionnaire est appelé cellule par cellule, ce qui explique sans doute l'effet de clignotement et l'affichage erroné de l'italique.

Comme tu es en cours de dessin sur le canevas quand ce gestionnaire est appelé, il est logique d'agir plutôt sur les propriétés du canevas de la grille. Ainsi, ton code doit s'écrire de préférence comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
// La propriété grd_Users.DefaultDrawing vaut True
procedure Tfrm_ChxUser.grd_UsersDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  If SQL_Userusr_statut.AsString='N' Then //Ça veut dire que la personne est "parti"
  begin
    grd_Users.Canvas.Font.Style:=[ fsItalic]
    grd_Users.DefaultDrawColumnCell(Rect, DataCol,Column, State);
  end;
end;

Assez curieusement, l'appel à DefaultDrawColumnCell est nécessaire pour que tout se passe bien.

Il ne me semble pas que cela se passait comme cela dans Delphi.

[tintinux]

Bonjour

Eric a globalement raison, mais il me semble qu'il faut appeler DefaultDrawColumnCell dans tous les cas, pas seulement pour les lignes qu'on veut mettre en italiques, sinon quand seront dessinées les autres ?

Il est toutefois plus simple d'utiliser OnPrepareCanvas qui permet d'obtenir le même résultat sans avoir à dessiner, juste en définissant les attributs du texte ou des cellules.

[Jon Shannow]

Bonjour,

Et merci de vos réponses.

En fait, ça ne marche pas en utilisant UsersDrawColumnCell (avec DefaultDrawing à faux ou à vrai).
Comme le dit Tintinux, il faut utiliser OnPrepareCanvas.

J'ai fais ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure Tfrm_ChxUser.grd_UsersPrepareCanvas(sender: TObject;
  DataCol: Integer; Column: TColumn; AState: TGridDrawState);
begin
  If SQL_Userusr_statut.AsString='N' Then // Ça veut dire que la personne est "parti"
    Begin
      If Not (fsItalic in grd_Users.Canvas.Font.Style) Then
        grd_Users.Canvas.Font.Style:=grd_Users.Canvas.Font.Style+[fsItalic];
    end
    Else
      If fsItalic in grd_Users.Canvas.Font.Style Then
        grd_Users.Canvas.Font.Style:=grd_Users.Canvas.Font.Style-[fsItalic];
end;

Et ça fonctionne nickel.

Encore merci à vous deux.
JS

[e-ric]

Salut

@Jon Shannow: ma solution fonctionne, je l'ai testée avec la dernière version de Lazarus et les composants ZeosDB (sur une base SqLite) car j'ai remarqué que les composant SqlDb n'ont pas toujours un bon comportement. Je peux fournir mon exemple éventuellement.

@tintinux:après plusieurs essais j'ai retenu la solution que j'ai publié. L'appel à DefaultDrawColumnCell n'est semble-t-il pas utile pour le cas par défaut. Ce comportement est, je trouve aussi, assez bizarre. Cela m'a laissé penser que l'affichage par défaut pouvait être réalisé deux fois, il faudrait analyser en profondeur le code du composant pour obtenir la réponse.

Je ne connaissais pas l'événement OnPrepareCanvas car je me base sur mon expérience avec Delphi7 dans laquelle cet événement n'existe pas. Ca semble plus efficace, il faudra que je teste cela.

[Jon Shannow]

E-ric, la base que j'utilise est MySQL, et je suis en Lazarus 1.2.0 sous Seven 64 bits, et ta solution ne fonctionnait pas. Désolé. Par contre, ça marche nickel avec OnPrepareCanvas.