Discussion :

[elecpic]

Bonjour a tous,

Débutant en Delphi, je me heurte a un probleme d'affichage :
- je colore les 3 premieres lignes d'un StringGrid
- je bouge l'ascenseur du StringGrid pour aller en derniere position
- Quand je remonte l'ascenseur, mes lignes ont disparu

Bien entendu, j'ai consulté l'aide de Delphi, la Faq et le forum .

Merci a tous pour vos réponses

Bonne journée

elecpic

[sebyo]

Bonjour ,

Peux tu montrer ton code qu'on vois un peu ce qui se passe ...
essay de mettre

Code :

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

Mastringgrid.refresh;

© Seb ®

[elecpic]

Voila ce bout de 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
 
procedure TFichePrincipale.MaProcedure; // colorise une ligne multicolore
var
  rect : trect;
  col: integer;
  ligne : integer;
 
begin
  for ligne:=0 to nbligne do begin  // nb ligne= variable globale
    for col:=0 to 7 do begin
    StringGrid1.canvas.brush.color := StrToInt(ConfigSpot[col]);
    rect := StringGrid1.CellRect(col,ligne);
    StringGrid1.Canvas.FillRect(rect);
    end;
    StringGrid1.Repaint;
  end;
end;

Le code : StringGrid1.repaint ne donne rien.
Je pense que la soluce est de savoir si l'ascensseur a ete bougé, et si oui, faire un Repaint ... ???

[ero-sennin]

Bonjour,

Pourquoi ne pas utiliser l'événement OnDrawCell du StringGrid ?
Il y a tout d'expliqué dans la FAQ

Suffit juste que tu testes sur quelques lignes / colonnes tu veux faire la colorisation en faisant un test sur ACol et ARow ...

En espérant que ça t'aide...

A+,
Ero

[sebyo]

essai ca

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
 
procedure TFichePrincipale.MaProcedure; // colorise une ligne multicolore
var
  rect : trect;
  col: integer;
  ligne : integer;
 
begin
  for ligne:=0 to nbligne do begin  // nb ligne= variable globale
    for col:=0 to 7 do begin
    StringGrid1.canvas.brush.color := StrToInt(ConfigSpot[col]);
    rect := StringGrid1.CellRect(col,ligne);
    StringGrid1.Canvas.FillRect(rect);
    end;
    StringGrid1.ondrawcell := StringGrid1Drawcell;
  end;
end;

comme ca a la fin de ta procédure tu repaint ta stringgrid!

dit moi si jamais ca marche !!

[elecpic]

Merci seybo, mais ca ne marche pas.
L'aide de delphi dit que DrowCell une procedure pour Un DRawGrid, pas pour un StringGrid (enfin, si j'ai tout compris )
Je vais chercher encore mais, si tu as une soluce n'hesite pas

Merci

[Cl@udius]

Salut

L'aide de delphi dit que DrowCell une procedure pour Un DRawGrid, pas pour un StringGrid (enfin, si j'ai tout compris )

La classe TStringGrid hérite directement de TDrawGrid. Et c'est dans cette dernière qu'est définit l'évènement OnDrawCell. Donc l'aide fait naturellement référence à la classe TDrawGrid.

Tu constateras d'ailleurs que dans l'inspecteur d'objet du StringGrid, l'évènement OnDrawCell est bien présent.

@+ Claudius