Rafraichissement d'une stringgrid

Version imprimable

06/06/2007, 09h10
jmulans

Rafraichissement d'une stringgrid
bonjour,

j'utilise une stringgrid pour gerer un planning de tache
j'ai sur la ligne du haut les jours de la semaine, et sur la colonne de gauche les personnes.. et j'affiche les tache par jour en face de chaque personne.
avec le drawcell j'aligne les textes au centre des cellules et je change une cellule de couleur en fonction de l'urgence de la tache.

j'ai des boutons qui permettent de passer a la semaine precedente ou suivante.
quand je change de seamine, je vide ma grille et je la remplit avec les taches de la semaine concernée.
mais le probleme c'est que ma grille garde les taches des semaine d'avant, elle ne se rafraichit pas bien. pourtant avant de remplir je la vide bien a chaque fois
Code:

1 2 3 4 5 6 7 //On nettoie la Grille k := 0; while k < StringGrid_planning.RowCount do begin StringGrid_planning.Rows[k].Clear; Inc(k); end;
je ne comprend pas :?
06/06/2007, 09h38
Graffito

Bonjour,

Pour effacer une grid, j'ai jamais essayé de faire MyGrid.rows[y].Clear.
En tout cas une double boucle ligne colonne, MyGrid.Cells[x,y]="" fonctionne.

j'ai essayé ça aussi, mais ça ne m'efface pas non plus le contenu de mes cellules :?

j'ai l'impression que ça viens de ce que je fait dans DrawCell

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
procedure TFenetrePrincipale.StringGrid_planningDrawCell(Sender: TObject;
  ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  sql: String;
  rs: _Recordset;
  urgence: integer;
  i: Integer;
  valeur: String;
  couleur: TColor;
  X,Y:Integer;
begin
 
  //Couleur de fond de l'élément sélectionné
  if gdSelected in State then
    begin
      StringGrid_Planning.Canvas.Brush.Style := bsSolid;
      StringGrid_Planning.Canvas.fillrect (rect);
  end;
 
   if (ACol <> 0) and (ARow <> 0) then
   begin
      valeur := StringGrid_Planning.Cells[ACol,ARow];
      couleur := clWhite; // couleur par defaut
 
      if (valeur <> '') then
        begin
          sql := 'Select urgence from Demande where numero_demande='+valeur;
          rs := requete.execCommande(sql,FenetrePrincipale.ADODataSet_Global);
          urgence := rs.Fields[0].Value;
 
          //Couleur du fond de la cellule
          if (urgence=3) then
            begin
              //faible 3
              couleur := clWhite;
           end
          else if (urgence=2) then
            begin
             //normale 2
             couleur := clSkyBlue;
           end
          else if (urgence=1) then
            begin
              //urgente 1
              couleur := clYellow;
            end
          else if (urgence=0) then
            begin
              //tres urgente 0
              couleur := clRed;
            end;
      end;
 
      if (valeur <> '') then
      begin
        StringGrid_Planning.Canvas.Brush.Color := couleur;
        StringGrid_Planning.Canvas.FrameRect(rect);
        //alignement horizontal
        X:=Rect.Left + (Rect.Right-Rect.Left-StringGrid_Planning.Canvas.TextWidth(valeur)) div 2;
        // alignement vetical
        Y:=Rect.Top + (Rect.Bottom-Rect.Top-StringGrid_Planning.Canvas.TextHeight(valeur)) div 2;
        StringGrid_Planning.Canvas.TextRect(Rect,X,Y,valeur);
      end;
 
   end;
 
    //alignement des cellules de titre
    for i:=1 to StringGrid_Planning.RowCount do
      begin
        valeur := StringGrid_Planning.Cells[i,0];
        //alignement horizontal
        X:=Rect.Left + (Rect.Right-Rect.Left-StringGrid_Planning.Canvas.TextWidth(valeur)) div 2;
        // alignement vetical
        Y:=Rect.Top + (Rect.Bottom-Rect.Top-StringGrid_Planning.Canvas.TextHeight(valeur)) div 2;
        if ((ACol = i) and (ARow = 0)) then
          StringGrid_Planning.Canvas.TextRect(Rect,X,Y,valeur);
      end;
 
    //alignement des cellules de personnes
    for i:=0 to StringGrid_Planning.RowCount do
      begin
        valeur := StringGrid_Planning.Cells[0,i];
        //alignement horizontal
        X:=Rect.Left + (Rect.Right-Rect.Left-StringGrid_Planning.Canvas.TextWidth(valeur)) div 2;
        // alignement vetical
        Y:=Rect.Top + (Rect.Bottom-Rect.Top-StringGrid_Planning.Canvas.TextHeight(valeur)) div 2;
        if ((ACol = 0) and (ARow = i)) then
          StringGrid_Planning.Canvas.TextRect(Rect,X,Y,valeur);
      end;
 
 
end;

06/06/2007, 10h39
cmen76

Apparemment, ça vient de ce que tu ne fais pas de fillrect pour les cellules non sélectionnées...
06/06/2007, 10h48
jmulans

si je met

Code:

StringGrid_Planning.Canvas.fillrect (rect);

comme ça sans condition, ça me met des couleur un peu partout ou il ne faut pas
et si je passe a la semaine suivante ça me garde des taches de la semaine d'avant quand meme (un peu moins cela dit)
06/06/2007, 11h04
cmen76
Dessiner une cellule, c'est d'abord effacer l'ancien dessin, donc au préalable
Code:

1 2 3 4 5 // dans tous les cas canvas.brush.color := clWhite; canvas.brush.style := bssolid; canvas.fillrect(r);
Puis ensuite, choix de la couleur et dessin particulier en fonction du contenu de la cellule.
Si tu ne réaffectes pas la couleur, c'est la dernière utilisée...
06/06/2007, 11h13
jmulans

ça marche! merci beaucoup :D
c'est bien ce que je pensais, je ne vidais pas correctement toutes les cases