Discussion :

[Benjamin GAGNEUX]

Bonjour,

Je souhaiterais savoir s'il est possible d'avoir un même setter pour plusieurs propriétés.

La raison est qu'il existe un bon nombre de propriétés devant être visualisable dans l'inspecteur d'objet mais dont le setter aura, à peu de chose près, un comportement unique (dépendant évidemment de la propriété qui l'aura déclenché).

Voici une réalisation pratique (qui ne marche pas) de ce que je souhaiterais faire en théorie

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
 
//définition de l'énumération
TBTheme_Cell = (btce_TopLeft, btce_TopCenter, btce_TopRight, btce_Left,
    btce_Center, btce_Right, btce_BottomLeft, btce_BottomCenter,
    btce_BottomRight);
 
[...]
private
  // tableau de pictures
  FCell     : array [TBTheme_Cell] of TPicture;
 
  // setter
  procedure FSetCell(Const Index : TBTheme_Cell; Value : TPicture);
 
  [...]
 
published
 
// multiples procédures visualisables dans l'éditeur d'objet
      property Pic_TopLeft      : TPicture read FCell[btce_TopLeft] write FSetCell;
      property Pic_TopCenter    : TPicture read FCell[btce_TopCenter] write FSetCell;
      property Pic_TopRight     : TPicture read FCell[btce_TopRight] write FSetCell;
      ...

Je ne sais absolument pas si cela est possible. Pour des raisons de lisibilité de code, je souhaiterais éviter d'avoir autant de setters que de propriétés.

Merci d'avance

[Paul TOTH]

oui c'est possible

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
 
 TBTheme_Cell = (btce_TopLeft, btce_TopCenter, btce_TopRight, btce_Left,
    btce_Center, btce_Right, btce_BottomLeft, btce_BottomCenter,
    btce_BottomRight);
 
[...]
private
  // tableau de pictures
  FCell     : array [TBTheme_Cell] of TPicture;
 
  // setter
  function GetCell(Index: TBTheme_Cell) : TPicture;
  procedure SetCell(Const Index : TBTheme_Cell; Value : TPicture);
 
  [...]
 
published
 
// multiples procédures visualisables dans l'éditeur d'objet
      property Pic_TopLeft      : TPicture index btce_TopLeft read GetCell write SetCell;
      property Pic_TopCenter    : TPicture index btce_TopCenter read GetCell write SetCell;
      property Pic_TopRight     : TPicture index btce_TopRight read GetCell write SetCell;
      ...

[Benjamin GAGNEUX]

C'est tout à fait ce que je cherchais.

Paul