Discussion :

[Raylemon]

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,

[sjrd]

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.
pour plus de détails

[Raylemon]

oui, c'est une propriété perso

Code :

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

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é

[Manopower]

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 :

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

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 ?

[Raylemon]

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.

[phplive]

Bjr,

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


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é


@+
Php

[Raylemon]

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

[phplive]

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 :

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

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 :

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
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

[Raylemon]

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 ?

[sjrd]

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 :

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

<Delphi>\source\ToolsAPI\

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

[Raylemon]

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