Discussion :

[mateuil]

bonjour,
pour une application de gestion de comptes, j'ai besoin que la couleur de police soit rouge pour certaine ligne et noir pour d'autre, donc dans l'évênement Drawcell, je mets ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
procedure TForm2.recapDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  var
  s:string;
  x,y:integer;
begin
 
                with recap.Canvas do
                begin
 
                        if ARow mod 2 = 0 then
                        begin
                                brush.Color:=clWhite;
                                recap.Font.Color:= clBlue;
                        end
                        else
                        begin
                                brush.Color:=clLtGray;
                                recap.Font.Color:= clred;
                        end;
 
 
                        recap.Canvas.TextRect(Rect,10,2,recap.Cells[ACol,Arow]);
                        s:=recap.Cells[ACol,Arow];
                        x:=12+Rect.Left;
                        y:=1+Rect.Top+(Rect.Bottom-Rect.Top-TextHeight(s))div 2;
                        TextOut(x,y,s);
                        Pen.Style:=psSolid;
                end;
        end;

Problème : le texte clignotte tt le temps.... comment éviter ca svp?

Merci

[Aka Guymelef]

Est-ce que par hasard votre code ne ferait pas déborder la peinture d'une cellule sur une autre cellule ? Dans ce cas c'est ça qui pose problème car les cellules n'arrêtent pas de se demander d'être repeintes récursivement.

Sinon vous pouvez aussi essayer la propriété DoubleBuffered pour voir.

[Franck SORIANO]

Je pense que le problème est ici :

Code :

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

recap.Font.Color:= clBlue;

Utilise plutôt :

Code :

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

recap.Canvas.Font.Color:= clBlue;

Dans ton code, tu modifies la font de la grille. Donc les paramètres d'affichage de la grille, ce qui fait que la grille se redessine continuellement en boucle.

Si tu te contente de modifier la font du canvas, ça change uniquement les propriétés du dessin.

Il est parfaitement possible de déborder et dessiner sur les cellules d'à côté. Ca ne provoque pas de dessin en boucle, c'est comme ça qu'on dessine des cellules fusionnées !