Discussion :

[peter27x]

Hello,

j'ai déjà regardé la FAQ, mais j'aimerais savoir de manière précise, lorsque l'on fait:

Code :

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

StringGrid1.Rows[ligne] := StringGrid1.Rows[ligne-1];

Ce qui se passe avec les objets associés à ligne et à ligne + 1.

Car le comportement est bizarre : parfois il semble recopier les objets de ligne vers ligne + 1, des fois pas... je m'y perds, dois je recopier moi même les objets à la mimine (comme ça OK : je serais sûr d'avoir les bons objets aux bons endroits) mais j'aimerais quand même avoir vos avis éclairés sur ce sujet.

Merci.

[ShaiLeTroll]

Bonne question !
C'est vrai que la TStringGrid c'est un code assez compliqué, même en lisant le code des Setters et EnsureColRow\EnsureDataRow, j'ai du mal à piger

As-tu regardé si les objets renvoyés par Rows sont bons ?
Juste à la lecture de la propriété !

[peter27x]

Salut Shail,

depuis j'ai abdiqué... Je mets en place un système plus simple auquel j'avais songé hier déjà, et confirmé par Guimouille, d'un côté la stringGrid basique sans objets... juste les données affichées à l'écran, de l'autre une StringList interne qui me permet de stocker un index (faisant le lien avec les lignes de la stringGrid) et pour chaque row un objet... plus besoin de copies hasardeuses à la noix.

L'algo général est lui même plus limpide.

Dommage que les stringGrid ne permettent pas de gérer les objets de manière plus souple, tout comme il est dommage qu'elles proposent pas une méthode de tri, et une méthode de suppression de row, faut tout se palucher à la main.

[ShaiLeTroll]

C'est vrai que lorsque j'ai fait ce genre de manip, je parcourais toujours à la main pour exlure les colonnes fixes, donc je n'ai jamais copié de Rows à la sauvage !

[guillemouze]

Alors premierement peter, moi c'est Guillemouze, pas Guimouille

J'utilise pas les StringGrid mais les AdvStringGrid (de TMS), alors je sais pas si ce que je vais te dire s'applique au StringGrid de base.
Ce que je fais, c'est que je n'ai aucun texte dans ma stringGrid, juste un objet dans la Cell[0, R]. Et sur le OnGetDisplText (c'est sur ce point que peut differer la StringGrid), je vais interroger l'objet de la ligne pour recuperer le texte. Comme ca, j'ai juste a modifier l'objet de ma row, et elle s'actualise automatiquement (apres un repaint).

Petit exemple:

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure MaAdvStringGridGetDisplText(ACol, ARow: integer; var AText: string; ...);
begin
  case ACol of
    COL_Nom : AText := TMonObjetDeLigne(MaAdvStringGrid.Objects[0, ARow]).Nom;
    COL_Age : AText := IntToStr(TMonObjetDeLigne(MaAdvStringGrid.Objects[0, ARow]).GetAge);
    ...
  end;
end;

[ShaiLeTroll]

Effectivement, la dernière fois que j'ai géré des objects dans une grille, c'était avec une TStringGrid, juste un affichage banal, le restant étant gérer avec FlexCell (TMS) et Excel

Lorsque j'ai utilisé la TAdvStringGrid (pour se débarasser de la dépendance à Excel justement) surtout pour la coloration qui est nettement plus simple qu'avec OnDrawCell, j'avais un objet controlleur qui s'occupait de remplir la grille en fonction d'un autre objet (celui-ci était une matrice), j'ai utilisé la propriété Cells pour l'affichage, et je n'avais plus de propriété objects qui devenait trop pénible à gérer !
Et surtout la Grille n'était manipulé que par une seule et unique fonction du Controlleur et donc tout balayage était manuel dans l'objet matrice, l'affichage était gérer à la fin !

Pour reproduire OnGetDisplText, faudrait passé par OnDrawCell et en plus faudrait voir avec les OnGetEditText et OnSetEditText lors de la modification d'une cellule, la plaie donc !