[TListColumn] Comment le surcharger notemment pour l'IDE ?

Bsr,

Je pose la question à tout hasard :

existe-t-il un moyen de surcharger (surtout de rajouter des propriétés à l'objet TListColumn) utilisé par le TListView sans avoir à tout recoder ?

Evidemment il faudrait que ce fonctionne dans l'IDE .


Si quelqu'un à un idée géniale je suis preneur :)

@+
php

Salut
surcharger quoi?

Bien sûr que tu peux surcharger TListColumn. Qu'est-ce qui te gène ?

Bsr,

Je m'explique.

Je veux pouvoir faire ceci.

Je créé un nouveau composant TBOListView dérivé de TListView : ok


Je créé un nouvelle classe TBOListColumn dérivée de TListColumn mais avec en plus la propriété publiée DisplayFormat

Je dépose un composant TBOListView sur une fiche.
Ds l'inspecteur d'objets je clique dans sa propriété Columns ce qui lance l'éditeur de collection.

Je veux que ma collection Columns contienne des élts de type TBOListColumn et pas simplement TListColumn : bref je veux voir apparaître dans l'inspecteur d'objets toutes les propriétés du TListColumn avec en plus ma propriété DisplayFormat .

Je veux surtout que mes nouvelles propriétés "suivent" lorsqu'on modifie l'ordre de colonne.


Comment faire ?

@+
Php

De quel type est TListColumn? TObjectList? TCollection?

Good morning ...

Et bien en fait un TListColumn dérive de TCollectionItem et TListColumns de TCollection.

Ces 2 classes font parties de la VCL et se trouvent dans l'unité ComCtrls.
Elles sont utilisées par le TLisTView.

Voilà

@+
Php

OK ben il ne te reste plus qu'à créer une TBOCollection et une TBOCollectionItem qui répond à tes attentes :D :wink:

Qu'est-ce qui te bloque alors?
cf :http://www.developpez.net/forums/viewtopic.php?t=346422

Le TListView se base en interne sur la variable
FListColumns: TListColumns;

Cette variable est créé ici :

Code:

---

1 2 3 4 5 6 7

constructor TCustomListView.Create(AOwner: TComponent); begin inherited Create(AOwner); ... FListColumns := TListColumns.Create(Self); ... end;

---

avec

Code:

---

1 2 3 4 5

constructor TListColumns.Create(AOwner: TCustomListView); begin inherited Create(TListColumn); FOwner := AOwner; end;

---

Le pb est que le constructeur de TListColumns !

Autrement dit lorsque je dérive ma classe TBOListColumns de TListColumns je ne peux pas faire ceci :

Code:

---

1 2 3 4 5

constructor TBOListColumns.Create(AOwner: TCustomListView); begin inherited Create(TBOListColumn); <-- Impossible FOwner := AOwner; end;

---

En fait inherited Create correspond à TListColumns.Create(AOwner: TCustomListView);


Maintenant si j'écris :

Code:

---

1 2 3 4 5

constructor TBOListColumns.Create(AOwner: TCustomListView); begin TCollection(Self).Create(TBOListColumn); FOwner := AOwner; end;

---

Qu'est-ce que ca fait ?

@+
Php

Ben et le cast ça sert à quoi? :wink:

Code:

---

1 2 3

inherited Create(TBOListView(AOwner)); <-- C'est possible FOwner := AOwner;

---

Voila :D
Sinon, si tu fais:

Citation:

---

Envoyé par phplive

Code:

---

1 2 3 4 5 6

constructor TBOListColumns.Create(AOwner: TCustomListView); begin TCollection(Self).Create(TBOListColumn); FOwner := AOwner; end;

---

---

Déjà, le cast de TCollection ne sert à rien puisque self descend d'un TCollection... Et puis tu crées quelque chose mais tu n'as plus aucun moyen de le retrouver... Ce n'est pas la bonne méthode...
Si tu as DelphiX, je te conseille d'aller voir les sources de TDXImageList qui utilise un descendant de TCollection et de TCollectionItem... C'est de cette source que je me suis inspiré pour mes composants...
Bon dev' :D

Citation:

---

Envoyé par Pedro204

Ben et le cast ça sert à quoi? :wink:

Code:

---

1 2 3

inherited Create(TBOListView(AOwner)); <-- C'est possible FOwner := AOwner;

---

---

Par TBOListView tu entends TBOListColumn je suppose ...

Là je ne vois pas à quoi un cast de AOwner peut bien me servir ?
AOwner contient la listview ca n'a rien à voir

Houla attends je crois qu'on se mélange les pinceaux là...
Reprenons du début:
- L'objet de départ est un TListView
- Il contient un descendant de TCollection avec un Create(AOwner:TComponent)
- Dans ce TCollection, il y a des TCollectionItems qui ont leur Create(Collection:TCollection)...
Donc tu as uniquement à caster dans le Create du TCollectionItems avec:

Code:

---

1 2 3 4 5 6

constructor TBOCollectionItems.Create(Collection: TBOCollection); begin inherited Create(TCollection(AOwner)); FOwner := AOwner; end;

---

Et quand tu crées un TBOCollectionItems, tu mets le TBOCollection qui la contient...

Oui d'accord

Mais je crois qu'on est pas en phase :lol:

Ici TListColumns (avec un s) est l'objet TCollection !
TListColumn (sans s) lui est l'item !

En fait le code complet tiré de la VCL est :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

TListColumns = class(TCollection) private FOwner: TCustomListView; function GetItem(Index: Integer): TListColumn; procedure SetItem(Index: Integer; Value: TListColumn); procedure UpdateCols; protected function GetOwner: TPersistent; override; procedure Update(Item: TCollectionItem); override; public constructor Create(AOwner: TCustomListView); function Add: TListColumn; function Owner: TCustomListView; property Items[Index: Integer]: TListColumn read GetItem write SetItem; default; end;

---

C'est Delphi qui va créer automatiquement les éléments TListColum de le listview (et pas moi !) lors de la lecture du DFM on est bien d'accord en s'appuyant sur la propriété Columns qui elle est LA collection.

La collection Columns, elle, sait comment créer ses éléments grâce à sa propriété FItemClass qui contient TListColum (sous entendu item)


Mon pb se résume donc à parvenir à initialiser FItemClass dans la collection avec TBOListColumn

j'vais jamais y arriver :lol:

Citation:

---

Envoyé par phplive

Ici TListColumns (avec un s) est l'objet TCollection !
TListColumn (sans s) lui est l'item !

---

Ca j'avais bien compris :lol:
Je disais ça pour résumer :D

En fait si tu regarde bien, Dans ton TListView, tu n'accède pas directement à son TListColumns mais à une propriété Columns qui est juste une TStrings...
En modifiant cette propriété, le composants crée et détruit les TListColumn... Il ne tient donc qu'à toi d'intercepter le changement de cette propriété...

Citation:

---

Envoyé par phplive

j'vais jamais y arriver :lol:

---

Meuh si :D

Bon,

ben j'essairai de créer un compo à partir de tout ca

si ca marche je le mettrais en ligne :lol:

Merci

@+
Php