[StringGrid] problème d'affichage

Version imprimable

25/09/2006, 16h54
krokmitaine

[StringGrid] problème d'affichage

Bonjour monde !
Je dispose d'un StringGrid. Je redéfinis la méthode onDrawCell afin de la remplir avec les données que je dois afficher et de le colorier une ligne sur deux (le problème ne vient pas de là). Je remplis bien ma grille et je colorie bien une ligne sur deux mais le problème c'est qu'il y a un horrible clignotement et j'ai bien l'impression que ma grille est constemment redessinée (12 cases seulement).

Ma question est la suivante : Existe-t-il une fonction qui interdit à ma grille de se redessiner ?

merci d'avance
25/09/2006, 17h10
slimjoe

Ça n'empêche pas de redessiner, mais ça corrige beaucoup de problèmes de clignotements :

Code:

MaGrille.DoubleBuffered := true;
25/09/2006, 17h12
krokmitaine

merci SlimJoe mais j'avais déjà mis la grille en double buffered. D'autres idées ?
25/09/2006, 17h43
jula2i

Peux tu nous en dire un peu plus sur les propriétés de la StringGrid et sur ton code pour redessiner (onDrawCell).

Merci.

D'après un p'tit test perso, sans modifier les propriétés de la StringGrid et en mettant trois lignes de code pour redessiner les cases => aucun effet de "clignotement" !
25/09/2006, 17h47
Graffito

Bonjour,

Peut-être qu'il n'y a dans le ondrawcell aucune modification de propriété des cellules ou de la grid.
25/09/2006, 20h19
Sunchaser

Bonsoir,

Comme d'habitude, je pense que qq lignes de code pourraient permettre a ceux qui peuvent t'aider d'y voir plus clair...

@ + ;)
25/09/2006, 22h04
OutOfRange

Salut
Ton code est-il bien optimisé ?
L'événement ondrawcell se produit à chaque fois qu'une cellule est redessinée...
Une grille de 12 cases = l'événement ondrawcell appelé 12 fois !!!
Je dirais aussi montre nous ton code

Bonjour,
voici mon code (je doute que vous puissiez y décoder grand chose):

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
procedure TfmMain.sgTravelsListDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var i, j, nb_rows, som : Integer;
    flag : Boolean;
begin
  // on règle le nombre de lignes
  nb_rows := 0;
  for i := 0 to Length(FFilteredTravels) do
    nb_rows := nb_rows + Length(FFilteredTravels[i].segments);
  if (nb_rows + 1 < paList.Height / 18) then
    sgTravelsList.RowCount := round(paList.Height / 18)
  else
    sgTravelsList.RowCount := nb_rows + 1;
  printf(IntToStr(nb_rows));
  // on règle le nombre de colonnes
  sgTravelsList.ColCount := 4;
  sgTravelsList.ColWidths[0] := 18;
  som := 19;
  j := sgTravelsList.ColCount;
  for i := 1 to sgTravelsList.ColCount - 2 do
  begin
    sgTravelsList.ColWidths[i] := 180;
    som := som + 180 + 1;
  end;
  if paList.Width - som > 0 then
    sgTravelsList.ColWidths[sgTravelsList.ColCount - 1] := paList.Width - som
  else
    sgTravelsList.ColWidths[sgTravelsList.ColCount - 1] := 0;
 
  // On remplit les lignes avec les segments
  som := 0;
  for i := 0 to Length(FFilteredTravels) - 1 do
    for j := 0 to Length(FFilteredTravels[i].segments) - 1 do
      begin
        sgTravelsList.Cells[1, som] := FFilteredTravels[i].name;
        sgTravelsList.Cells[2, som] := FFilteredTravels[i].segments[j].segmentKind;
        som := som + 1;
      end;
 
  // colorier une ligne sur deux
  if (ARow mod 2) <> 1 then
    begin
      sgTravelsList.Canvas.Brush.Color := $00F6F3EC;
      sgTravelsList.Canvas.FillRect(Rect);
    end
  else
    begin
      sgTravelsList.Canvas.Brush.Color := clWhite;
      sgTravelsList.Canvas.FillRect(Rect);
    end;
  if gdFixed in state then
    begin
      sgTravelsList.Canvas.Brush.Color := clSkyBlue;
      sgTravelsList.Canvas.FillRect(Rect);
    end;
 
end;

comme vous pouvez le voir je fais un gros traitement. Votre avis ?

Salut

C'est bien ce que je craignais
J'ai rapidement repéré dans ton code des modifications des propriétés de ta grille qui, pour moi, n'ont rien à y faire...
Code:

1 2 3 4 5 sgTravelsList.ColCount := 4; sgTravelsList.ColWidths[0] := 18; sgTravelsList.ColWidths[i] := 180; sgTravelsList.Cells[1, som] := FFilteredTravels[i].name; sgTravelsList.Cells[2, som] := FFilteredTravels[i].segments[j].segmentKind;
Toutes ces commandes ont pour effet de redessiner toute la grille et donc d'appeler un événement ondrawcell, qui est déclenché à chaque fois que la cellule de coordonnée acol, arow est dessinée

..et le chien se mord le queue ;)

Mets ce code dans une autre procédure :)

26/09/2006, 10h59
krokmitaine

C'est bon, c'est réglé.
C'est moi qui aie fait mon idiot.
Je viens de comprendre que DrawCell ça ne sert qu'à "redessiner les cellules".
J'ai fait mon remplissage de grille dans une procédure à part et tout roule.
Désolé tout le monde.