Discussion :

[Invité]

Bonjour,

Supposons un composant TmyStringGrid = class(TStringGrid)
J'aimerais "surveiller" RowCount.

Pour l'instant, j'override :

Code :

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

1
2
3
procedure ColRowDeleted(IsColumn: Boolean;index: Integer); override;
procedure ColRowInserted(IsColumn: Boolean;index: Integer);override;         
(* qui évidemment modifient RowCount si isColumn = False *)

couplées à

Code :

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

1
2
procedure SizeChanged(OldColCount, OldRowCount: Longint); override;
(* qui n'est pas modifiée par un appel à ColRowInserted : Curieux *)

Naïvement, j'avais pensé qu'il était possible d'overrider SetRowCount... mais cela semble ne pas l'être.

Dans mon composant, je modifie un SetLength(aArray, RowCount) où aArray est un tableau de Boolean si RowCount varie (d'où la "surveillance")... et ceci dès l'évènement Loaded. Y a-t-il une autre méthode que celle que j'utilise et que je trouve peu élégante ?

Merci. Cordialement.
Gilles

[tintinux]

Bonjour

Plutôt que de créer et gérer un second tableau, on peut associer un objet à chaque cellule, ou dans ton cas à chaque première cellule de chaque ligne.

Code :

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

MaTable.Objects[0,MaLigne] := TMonObjet.Create( MesParametres);

Il faut évidemment penser à libérer les objets en même temps que les lignes ou colonnes.

Cela se fait très bien dans un descendant, et rend inutile la "surveillance" de RowCount, qui semble effectivement problématique.

[Invité]

Bonjour,

En effet, cela semble nettement plus élégant. je vais essayer d'intégrer cette approche.

Cordialement. Gilles

[mick605]

Salut

L'inconvénient de cette méthode est que l'utilisateur risque de modifier la valeur de Object, et donc déclencher une erreur. Tu peux soit rendre cette propriété privée, soit il te faut trouver une solution de contournement ...

Pour ton probleme, je ne vois pas comment faire par contre ...

Bonne chance

[Invité]

Bonjour Mick605,

Pour contourner j'utilise actuellement

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
private
    { Private declarations }
       bLineSelected : array of boolean; 
 
procedure TmyStringGrid.SizeChanged(OldColCount, OldRowCount: Longint); {override}
begin
 inherited;
 if not (csDesigning in ComponentState) then begin
  nbRow := RowCount;
  if nbRow > 0 then
   SetLength(bLineSelected, nbRow)
  else
   SetLength(bLineSelected, 1);
  FocusOnLine(FixedRows); {Nécessaire si FixedCols := 0; Bug Lazarus}
 end;
end;

Cela donne satisfaction mais... il faut gérer les

• procedure ColRowDeleted(IsColumn: Boolean;index: Integer); override;
• procedure ColRowInserted(IsColumn: Boolean;index: Integer);override;
• procedure ColRowMoved(IsColumn: Boolean;FromIndex: Integer; ToIndex: Integer); override;

...si on veut maintenir la sélection persistante. L'avantage qu'aurait la méthode de Tintinux, c'est que si on associe l'objet à la ligne, je suppose qu'il la "suit" en cas de mouvement de la ligne, suppression...

Je n'ai pas eu le temps de regarder et je ne comprends pas pleinement le problème que vous évoquez... Je vais chercher un peu de Doc, là-dessus.
Cordialement. Gilles

[mick605]

La propriété Objects est une propriété publique. Et la méthode de Tintinux utilise la proprété Objects de la grille. Mais cette propriété est souvent utilisée par les utilisateurs. Donc, avec cette méthode, tu dois condamner l'utilisation de la propriété Objects par l'utilisateur (cad mettre cette propriété en private), sinon l'utilisateur risque de modifier tes valeurs.

Mais je comprends tres bien que tu ne puisse faire autrement. C'est juste pour te prevenir des risques.

[Invité]

Bonjour,

OK, j'ai compris. Donc je ne l'utiliserai pas puisque ce "confort" ampute un autre potentiel. La gestion du Tableau de booleans ne pose pas vraiment de problème.

Cordialement. Gilles

[mick605]

Il existe quand même une technique pour pallier a ca. C'est pas spécialement propre, mais tu peux le faire :

Le truc c'est de créer un TAnObject pour chaque case de ta grille, et de faire pointer la propriété Object de ta grille sur une propriété Data du TAnObject.

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
  TAnObject = class
  private
    FMonBoolean : boolean;
    FData : TObject;
  public
    property MonBoolean : boolean read FMonBoolean write FMonBoolean;
    property Data : TObject read FData write FData ;
  end;
 
  TMyStringGrid = class
  private
    function GetObject(ACol, ARow : integer):TObject;
    procedure SetObject(ACol, ARow : integer; AObject : TObject);
  public
    property Objects [ACol, ARow : integer] : TObject read GetObject write   SetObject;
  end;
 
...
 
function TMyStringGrid.GetObject(ACol, ARow : integer):TObject;
begin
  Result:=TAnObject(TMyStringGrid.Objects[ACol,ARow]).Data;
end;
 
procedure TMyStringGrid.SetObject(ACol, ARow : integer; AObject : TObject);
begin
  TAnObject(TMyStringGrid.Objects[ACol,ARow]).Data:=AObject;
end;

C'est peut être pas tres clair ...

Bonne chance en tout cas