[Composant] Dialogue dans une propriété

Bonjour,

Toujours dans ma conception de composants, je suis en train de dériver un composant TImage.

Malheureusement, mon composant ne dipose pas de la boîte de dialogue pour choisir une image (les [...] au niveau de la propriété).comment puis-je faire pour obtenir cette boîte de dialogue ?

Merci d'avance,

C'est étrange, surtout si tu dérives de TImage. C'est une propriété que tu as ajoutée en plus ?
En tout cas, la solution est de faire appel à RegisterPropertyEditor dans la procédure Register qui recense ton compo.
:f1: pour plus de détails ;)

oui, c'est une propriété perso

Code:

---

1 2	property Image: String read fImage write fImage

---

En fait, je voudrais que ma propriété "image" me permettre de choisir le chemin d'un fichier. En même temps, je charge l'image dans le composant par cette même propriété.

j'ai déjà regardé dans l'aide de delphi, mais j'ai pas trouvé :?

ta nouvelle propriété Image, si tu veux voir l'éditeur de propriété en conception (avoir les [...] pour charger ton image) doit être déclarée non pas en String mais en TPicture

Code:

---

1 2	Published property Picture2 : TPicture read FPicture write SetPicture;

---

Mais comme dit srjd pourquoi n'utilises-tu pas la propriété Picture héritée de Timage ?

En fait, j'ai plus besoin du path de l'image que de l'image en elle-même. Afficher l'image n'est qu'un "plus" esthétique. C'est plus facile d'avoir le path correct en cliquant sur [...] pour ouvrir une boîte de dialogue que d'entrer le chemin à la main.

Bjr,

Oui tu dois écrire un éditeur de propriété : c'est assez simple si tu as l'habitude d'écrire des composants :D


Voici un ex qui date un peu mais qui correspond exactement à ton cas.

La partie TFileNameProperty :

http://www.drbob42.com/delphi/property.htm

C'est en anglais mais c'est bien expliqué, je l'ai déjà utilisé :wink:


@+
Php

Merci, en effet, ça a l'air simple, mais le problème, c'est qu'il faut utiliser une unité (voire plus) qu'apparemment je ne possède pas :? c'est DsgnIntf.

Peux-tu me dire où il se situe ? j'ai fait une recherche avec Windows, et il n'a rien trouvé...

J'utilise Delphi 7 pour écrire ce compo

Merci

Remoi,


Oui c'est normal car DsgnIntf c'était pour D6

Voici comment il faut faire

Tu créé une unité dans laquel tu définis ton type
ex

Code:

---

1 2 3 4 5

unit MesTypes;   type   TFileName = type string;

---

Tu créés une seconde unité dans laquelle tu codes ton éditeur de propriété

Code:

---

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 29 30 31 32 33 34 35 36

unit MonEditeurReg;   interface   uses Windows, Messages, Classes, SysUtils, // A toi de voir si c'est utile // Delphi 6 ou supérieure DesignIntf, DesignEditors, // <-- Obligatoire TypInfo;     TFileNameProperty = class(TPropertyEditor) public function GetAttributes: TPropertyAttributes; override; procedure Edit; override;   end;     procedure Register;   implementation   uses MesTypes; // Ici tu utilises la 1ere unité     procedure Register; begin RegisterPropertyEditor(TypeInfo(TFileName), nil, '', TFileNameProperty); end;   // Le code de TFileNameProperty     end.

---

Dans un paquet tu places MonEditeurReg et éventuellement MesTypes et tu l'installes

Voilà , ca doit fonctionner après adaptation of course !

@+
Php

Merci, mais le problème reste le même...
Je n'ai pas les unités DesignIntf et DesignEditors, ou même une unité dont le nom est ressemblant !

Normallement, si je fais un ctrl+clic sur une unité , elle doit s'ouvrir, et ici ça ne le fait pas. J'ai essyé de rechercher les fichiers, et j'ai rien trouvé...

Peux tu me dire où se trouvent ces unités ? Ou alors, où puis-je les trouver ?

Citation:

---

Envoyé par Big

Je n'ai pas les unités DesignIntf et DesignEditors, ou même une unité dont le nom est ressemblant !

---

Normalement elles sont dans

Code:

---

<Delphi>\source\ToolsAPI\

---

Quelle édition de Delphi as-tu ? Je pense que les tools API ne sont pas distribués avec l'édition perso.

Ah oais, merci, elles sont là...
C'est bizarre que Delphi ne les retrouve pas, et Windows non plus !

Sinon, j'utilise la version 7 pro.

Je vais donc essayer ça

merci :wink: