Ascenseur du StringGrid et affichage

**elecpic** · 27/05/2009, 10h58

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** · 27/05/2009, 11h06

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;

**elecpic** · 27/05/2009, 11h32

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** · 27/05/2009, 11h54

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** · 27/05/2009, 11h55

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** · 27/05/2009, 12h52

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** · 27/05/2009, 13h20

Salut

Envoyé par elecpic

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

**elecpic** · 27/05/2009, 13h31

Je viens de m'en appercevoir, et je suis confus. J'ai pas encore ce reflexe

J'ai bien essayé ton code:

Code :

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

StringGrid1.ondrawcell := StringGrid1Drawcell;

mais j'ai une erreur a la compil

Bon je cherche encore et merci pour ta patience

elecpic

**Cl@udius** · 27/05/2009, 13h35

Re,

Tu construis ton StringGrid dynamiquement ?
Si oui, comment est défini ta procédure StringGrid1Drawcell (son prototype) ?

**elecpic** · 27/05/2009, 13h43

Non, le composant est present sur la fiche lors de sa création. Il n'est pas crée dynamiquement.

**ero-sennin** · 27/05/2009, 14h01

En fait, tu as dans l'inspecteur d'objet de la TStringGrid, dans l'onglet évènement, l'évènement OnDrawCell ...

Dans la FAQ (le lien que je t'ai fourni plus haut), il y a le code à mettre dans cette évènement.
Il te faut l'adapter à ton besoin mais logiquement ça devrait fonctionner sans soucis