Difficultés avec OnDrawCell

**michel71** · 27/10/2008, 17h06

Bonjour,

J'utilise la fonction OnDrawCell dans un TstringGird mais je suis obligé de cliquer dans la grille pour que l'affichage est lieu ?
Quel la solution pour un affichage instantané ?

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
 
procedure Tplacements.gril_histoDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var grd : TDrawGrid;
begin
  grd := TDrawGrid(sender);
 
    with Sender as TStringGrid do with Canvas do
  begin
   //Sélection de la couleur de fond
    if gdFixed in State then
      Brush.Color := clWhite
    else if gdSelected in State then
            Brush.Color := clWhite
          else Brush.Color := clWhite;
 
    // Dessin du fond
    FillRect(Rect);
   end;
 
if Arow<=enregplace.index-1 then
begin
 
  case ACol of
 
  0 :   begin
        grd.Canvas.Font.Color:=ClBlack;
        grd.Canvas.Brush.Color :=ClWhite;
        grd.Canvas.TextOut(Rect.Left, Rect.Top, tab_fich_place[Arow].date_operat);
        end;
  1 : begin
        grd.Canvas.Font.Color:=ClBlue;
        grd.Canvas.Font.Style:=[fsBold];
        grd.Canvas.TextRect(Rect, Rect.Left, Rect.Top, CurrToStr(tab_fich_place[Arow].ajout));
      end;
  2 : begin
        grd.Canvas.Font.Color:=ClRed;
        grd.Canvas.Font.Style:=[fsBold];
        grd.Canvas.TextRect(Rect, Rect.Left, Rect.Top, CurrToStr(tab_fich_place[Arow].retrait));
      end;
   end; // fin case ACol of
 end; // fin de if Arow<=enregnomplace.index-1
 
end;// fin de procédure
 
//================================================
// bout de code qui charge dans les données dans le tableau qui sert pour l'affichage
 
for i:=1 to enregplace.index do
begin
Seek(fich_place,i);Read(fich_place,enregplace);
tab_fich_place[i-1]:=enregplace;
end;

**ShaiLeTroll** · 27/10/2008, 17h17

Etrange !!!
Ajoute un Invalidate dans le OnShow ... par exemple

**edam** · 27/10/2008, 20h52

la lecture de fichier est length par raport à l'affichage, enléve ta boucle et voir le résulta

**ShaiLeTroll** · 28/10/2008, 15h17

hein ? Edam, la fin du code n'est pas dans la fonction mais en dehors, cela n'a aucun rapport ...

**LeGEC** · 28/10/2008, 15h43

Envoyé par ShaiLeTroll

Etrange !!!
Ajoute un Invalidate dans le OnShow ... par exemple

ou un : gril_histo.Invalidate; juste après la boucle for que tu as écrite en bas de ton code.

La procédure OnDrawCell n'est appelée que si le programme a reçu un message qui lui demande explicitement de redessiner le composant. Si tu veux réafficher ta grille à partir du code - par exemple après avoir rempli le tableau tab_fich_place - tu dois appeler explicitement la fonction de réaffichage, ou la redéclencher.

*LeGEC*

**ShaiLeTroll** · 28/10/2008, 15h57

Bien vu, LeGEC, effectivement, tout dépend où la boucle est faite, si dans le OnCreate ou OnActivate, le dessin prendra en compte le remplissage, si fait après dans un bouton, effectivement, la grille ne peut pas savoir que les données ont changés !!!