Discussion :

[jmulans]

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 :

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

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

[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.

[jmulans]

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 :

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
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;

[cmen76]

Apparemment, ça vient de ce que tu ne fais pas de fillrect pour les cellules non sélectionnées...

[jmulans]

si je met

Code :

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

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)

[cmen76]

Dessiner une cellule, c'est d'abord effacer l'ancien dessin, donc au préalable

Code :

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

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...