Discussion :

[phplive]

Bjr

Je cherche à stocker des propriétés non publiées dans le DFM
J'ai cru comprendre qu'il fallait utiliser DefinyProperty avec TWriter et TReader, pour ca je pense que ca devrait aller.

Par contre j'aimerais savoir qd il faut tester le propriété Ancestor, comment, à quoi elle sert et ce qu'elle contient ?

Que se passe-t-il se j'ignore complètement Ancestor ?

Merci

@+
Php

[sjrd]

De quelle propriété Ancestor parles-tu ? J'ai déjà souvent utilisé DefineProperty, TReader et TWriter et je n'ai jamais entendu parlé de cette propriété

[phplive]

Ben dans l'aide de Delphi 7 ils parlent de tester la propriété Ancestor de TFiler

Non seulement ils en parlent mais ils le font

L'explication est pas très claire


@+
Php

[sjrd]

Bon j'ai fouillé un peu mon aide (Delphi 2005 Archi) et j'ai trouvé pour la propriété TFiler.Ancestor, au début de la description :

N'utilisez pas directement Ancestor. Cette propriété est à usage interne pour les méthodes des objets écrivain afin d'écrire les composants de fiches dérivées.

Ca me semble clair non ?

[phplive]

Ouais, bon je vais faire sans ...

En fait j'ai un composant grille perso et je désire stocker les largeurs des colonnes dans le dfm un peu à la manière du TStringGrid

Dans le code de la VCL on trouve :

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
procedure TCustomGrid.DefineProperties(Filer: TFiler);
 
  function DoColWidths: Boolean;
  begin
    if Filer.Ancestor <> nil then
      Result := not CompareExtents(TCustomGrid(Filer.Ancestor).FColWidths, FColWidths)
    else
      Result := FColWidths <> nil;
  end;
 
  function DoRowHeights: Boolean;
  begin
    if Filer.Ancestor <> nil then
      Result := not CompareExtents(TCustomGrid(Filer.Ancestor).FRowHeights, FRowHeights)
    else
      Result := FRowHeights <> nil;
  end;
 
 
begin
  inherited DefineProperties(Filer);
  if FSaveCellExtents then
    with Filer do
    begin
      DefineProperty('ColWidths', ReadColWidths, WriteColWidths, DoColWidths);
      DefineProperty('RowHeights', ReadRowHeights, WriteRowHeights, DoRowHeights);
    end;
end;

D'où mes recherches sur Ancestor ...

@+
Php

[sjrd]

Oui je commence à piger... c'est très spécial leur système.
Perso ce que j'ai toujours fait c'est de passer True en dernier paramètre de DefineProperty. Et ça fonctionne très bien comme ça. Leur code sert certainement à économiser de la place quand ça ne sert à rien de stocker les valeurs...