Enumération ET entier correspondant

Version imprimable

08/02/2007, 11h24
avigeilpro

Enumération ET entier correspondant
Bonjour à tous.
Je suis en train de développer un composant, et je cherche à faire une propriété un peu comme Color.
Je m'explique :
J'ai une batterie de constante et j'aimerais créer une propriété qui m'affiche la petite fleche et où s'afficherai la liste de tous les noms de constantes. Mais j'aimerais aussi pouvoir y affecter sa valeur numérique.
Dans le cas de la propriété Color de type TColor, on a la liste de toutes les couleurs (clWhite ...) mais on peux aussi faire :

Code:

Form1.Color:=$FFFFFF;

Quelqu'un saurait-il la syntaxe pour definir le type permettant de faire cela ?

Je redonne un autre exemple car j'ai peur de ne pas être très précis dans mes explication:
Je voudrais pouvoir faire cela un peu :
Code:

1 2 Type TSemaine = (Lundi=1,Mardi=2,Mercredi=3,Jeudi=4,Vendredi=5,Samedi=6,Dimanche=7);
Puis pouvoir faire :
Code:

1 2 3 4 5 var MonJour:TSemaine; begin MonJour:=Mardi;
Ou
Code:

1 2 3 4 5 var MonJour:TSemaine; begin MonJour:=5; //Vendredi
08/02/2007, 12h16
TicTacToe
Bonjour

Il suffit de caster ta valeur
Code:

1 2 3 4 var MonJour:TSemaine; begin MonJour:=TSemaine( 5 ); //Vendredi
08/02/2007, 12h17
ShaiLeTroll

La TColor, n'est pas associée à une Enumération mais à un Ensemble de constante, c'est pour cela qu'il n'y a pas besoin de faire Ord(clTruc) ...

Il faut savoir que derrière, il y a un tableau, de chaine qui associe via des TIdentMapEntry, une valeur numérique TColor et une Chaine

ensuite dans la section initialisation, tu as

Code:

RegisterIntegerConsts(TypeInfo(TColor), IdentToColor, ColorToIdent);

Qui permet d'associer au Type TColor, les fonctions de conversion Integer vers Chaine et Chaine vers Integer;
08/02/2007, 12h19
avigeilpro

Pourrais-je avoir un petit exemple concret s'il te plait ShaiLeTroll ?
Je suis débutant en Delphi.
Merci de vos réponses ;)

Code:

1
2
3
4
5
6
const
  lundi=1;
  mardi=2;
 
type
  TJour=lundi..dimanche;

08/02/2007, 12h26
avigeilpro

Merci tourlourou mais lorsque j'utilise mon type pour une propriété, la liste ne s'affiche pas :(
08/02/2007, 14h02
tourlourou

yes !
il faut pê regarder du côté de RegisterPropertyEditor, avec TEnumPropertyEditor comme éditeur de propriété
09/02/2007, 13h57
avigeilpro

OK je vais regarder ça, merci ;)
10/02/2007, 15h28
avigeilpro

Euh... je capte strictement rien :oops: :oops: :oops:
j'ai eu beau regarder l'aide sur RegisterPropertyEditor j'ai absolument rien compris
Personne n'aurait un exemple à me donner ? :oops:
Je voudrait "simplement" une propriété de type Integer qui affiche quelque constantes dans l'inspecteur d'objet, mais que l'on puisse lui affecter toutes les valeurs que l'on veut.
Je vous remercie tous d'avance :D
12/02/2007, 10h48
ShaiLeTroll

C'est justement ce qu'il te faut, le développement de composant n'est pas un exercice aisé, tu devrais chercher des tutoriels à ce sujet ...
12/02/2007, 13h39
avigeilpro

Le développement de composant en général ne me pose pas de problème, c'est juste ce type de propriété que j'ai du mal à comprendre. En fait la propriété doit être de type Integer puisqu'elle reçoit un nombre entier, malgrer tout elle doit afficher une liste de constantes dans l'inspecteur d'objet, et la je bloque.
Si quelqu'un a une piste, un lien ou un tuto je suis preneur. J'en ai besoin pour un projet à l'IUT et même le prof il sait pas faire. ;)
12/02/2007, 14h57
tourlourou

si tu as une bibliothèque à l'IUT : D7 Studio ou D6 Student Edition traitent des éditeurs de propriétés.

ok, alors merci à tous pour toutes les piste que vous m'avez donné. J'ai résolu une énorme partie de mon problème, mais un problème en cache un autre !!
voici ou j'en suis :
J'ai réussi à créer la 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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
 
unit UMonComposant;
 
interface
 
uses
  SysUtils, Classes,DesignEditors,DesignIntf;
 
Type
  TJour=1..7;
 
Type TJourProperty=class(TIntegerProperty)
  public
    function  GetAttributes: TPropertyAttributes;override;
    Function  GetValue: String;override;
    Procedure GetValues(Proc: TGetStrProc); override;
    procedure SetValue(Const Value: String);override;
end;
 
type
  TMonComposant = class(TComponent)
  private
    { Déclarations privées }
    MJour:TJour;
  protected
    { Déclarations protégées }
  public
    { Déclarations publiques }
    Constructor Create(AOwner:TComponent);override;
    destructor destroy;override;
  published
    { Déclarations publiées }
    property Fonction:TJour Read MJour Write MJour;
  end;
 
 
{Fonction de conversion TJour <-> String.}
Function JourToIdent(Jour: Longint; Var Ident: String): Boolean;
{Fonction de conversion String <-> TJour.}
Function IdentToJour(Const Ident: String; Var Jour: Longint): Boolean;
 
procedure Register;
 
implementation
 
Const
  Jours: Array[1..7] Of TIdentMapEntry = (
  (Value:1;Name:'Lundi'),
  (Value:2;Name:'Mardi'),
  (Value:3;Name:'Mercredi'),
  (Value:4;Name:'Jeudi'),
  (Value:5;Name:'Vendredi'),
  (Value:6;Name:'Samedi'),
  (Value:7;Name:'Dimanche'));
//*****************************************************************************
//*****************************************************************************
 
Function JourToIdent(Jour: Longint; Var Ident: String): Boolean;
Begin
  Result := IntToIdent(Jour, Ident, Jours);
End;
 
Function IdentToJour(Const Ident: String; Var Jour: Longint): Boolean;
Begin
  Result := IdentToInt(Ident, Jour, Jours);
End;
 
//*****************************************************************************
//*****************************************************************************
 
function  TJourProperty.GetAttributes;
begin
 result := [PaValueList];
end;
 
Function TJourProperty.GetValue: String;
Begin
  If Not JourToIdent(TJour(GetOrdValue), Result) Then Result:=IntToStr(GetOrdValue);
End;
 
Procedure TJourProperty.GetValues(Proc: TGetStrProc);
Var i:Integer;
Begin
  For I := Low(Jours) To High(Jours) Do Proc(Jours[I].Name);
End;
 
Procedure TJourProperty.SetValue(Const Value: String);
Var
  NewValue: Longint;
Begin
  If IdentToJour(Value, NewValue) Then
    SetOrdValue(NewValue)
  Else
    Inherited SetValue(Value);
End;
 
//*****************************************************************************
//*****************************************************************************
 
constructor TTest.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
end;
 
destructor TTest.destroy;
begin
inherited Destroy;
end;
 
//*****************************************************************************
//*****************************************************************************
 
procedure Register;
begin
  RegisterComponents('Perso', [TMonComposant]);
  RegisterPropertyEditor(TypeInfo(TJour), Nil, '', TJourProperty);
end;
 
Initialization
  RegisterIntegerConsts(TypeInfo(TJour), IdentToJour, JourToIdent);
 
end.

Losque j'ai voulu compiler mon composant il m'a affiché :

Citation:

Fichier non trouvé : DesignEditors.dcu

J'ai fait une petite recherche et j'ai trouvé qu'il fallait ajouter dans le Requires du dpk le fichier designide.dcp, ca à fonctionné.
Je pose le composant sur une fiche, pas de problème, la propriété fonctionne tout à fait correctement.
Mais lorsque j'essaye de compiler l'appli, il me ressort le même message d'erreur :piou:

12/02/2007, 17h27
avigeilpro

J'ai trouvé une solution :
Il faut aller dans Projet --> Options --> Paquets --> cocher "construire les paquets d'execution" --> Ajouter --> Parcourir puis selectionner le fichier Designide.dcp dans le répèrtoire Lib du dossier d'installation de Delphi.
C'est ce même fichier qu'il faut ajouter dans le dpk du composant dans la partie Requires ;)
Merci à tous pour toutes les participations !!! :king: