Images comme sous-propriété d'une composante

Version imprimable

Bonjour à tous,

Je crée une nouvelle composante dérivée de TGraphicControl dans laquel j'aimerais avoir des paramètres comme "sous-propriété" de la composante. Ces paramètres étant soit une images soit une liste d'images et un numéro d'index.

J'ai donc créé une première classe qui contient les paramètres (dont l'image)
et j'intègre cette classe dans ma classe principale.

Mes problèmes sont:
- En runtime, mes paramètres sont vides (alors qu'en design-time j'arrive bien à charger une image)
- J'ai une erreur lorsque j'essaye de lier un TImageList* à la propriété "Images" des paramètres en design-time
- Comment puis-je lier faire pour que l'index soit associé à la liste ?

PS: je me suis inspiré de TJvTransparentButton pour faire cette classe.

Les "sous-paramètres":
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 class TMyButtonImages : public TPersistent { protected: Graphics::TPicture * FImage; //!< Default Picture (created in ctor) TCustomImageList* FImages; //!< List of images (created in ctor) TImageIndex FImagesIndex; //!< Index of the image in the list //----- Accessors ----- void __fastcall SetImage(Graphics::TPicture* Value); void __fastcall SetImages(TCustomImageList* Value); void __fastcall SetImagesIndex(TImageIndex Value); __published: __property Graphics::TPicture* Image = {read=FImage, write=SetImage}; __property TCustomImageList* Images={read=FImages,write=SetImages }; __property TImageIndex ImagesIndex={read=FImagesIndex,write=SetImagesIndex,default=-1}; };
La classe principale:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 class PACKAGE TMyButton : public TGraphicControl { public: TMyButtonImages *FImages; //!< The images (created in ctor) //! Get the list of images TMyButtonImages* __fastcall GetImages() const; //! Set the list of images void __fastcall SetImages(TMyButtonImages* him); __published: __property TMyButtonImages* Images={read=GetImages,write=SetImages}; };

15/04/2009, 10h56
totoche76
Hello,

Est-ce qu'il ne faut pas rajouter PACKAGE dans la déclaration de TMyButtonImages ?

Code:

class PACKAGE TMyButtonImages : public TPersistent {

Citation:

- Comment puis-je lier faire pour que l'index soit associé à la liste ?

Tu voudrais avoir une propriété du genre de ceci ??
Code:

1 2 3 4 TImage* __fastcall GetUneImage(int indice); void __fastcall SetUneImage(int indice, TImage* nouvelleImage); ... __property TImage* UneImage[int indice] = {read=GetUneImage, write=SetUneImage};
15/04/2009, 11h09
Patrick Seuret

J'ai essayé avec PACKAGE mais ça ne change rien :-(

Pour les propriétés, j'aimerais plutôt qu'on puisse choisir l'index en design-time depuis une combo qui affiche la liste des images stockées dans la TCustomImageList. Comme pour une Action d'un TActionList: on choisi la TImageList dans la TActionList et l'ImageIndex pour une TAction.

Mais pour commencer, je n'arrive même pas à sélectionner un TCustomImageList à ma propriété "Images"

http://www.seuret.ch/external/ImageIndex.gif

Hello,

Sous 2007 ce qui suit à l'air de gazer, en design et à l'exécution:

GraphicControl1.h:

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
#ifndef GraphicControl1H
#define GraphicControl1H
 
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
 
class TMyButtonImages : public TPersistent {
  protected:
    Graphics::TPicture * FImage;     //!< Default Picture (created in ctor)
    TCustomImageList* FImages;       //!< List of images (created in ctor)
    TImageIndex FImagesIndex;        //!< Index of the image in the list
 
    //----- Accessors -----
    void __fastcall SetImage(Graphics::TPicture* Value) { FImage = Value; }
    void __fastcall SetImages(TCustomImageList* Value) { FImages = Value; }
    void __fastcall SetImagesIndex(TImageIndex Value) {   FImagesIndex = Value; }
 
    public:
    __fastcall TMyButtonImages(void) { FImage = new TPicture; }
    __fastcall ~TMyButtonImages(void) { delete FImage; }
  __published:
    __property Graphics::TPicture*  Image = {read=FImage, write=SetImage};
    __property TCustomImageList* Images={read=FImages,write=SetImages };
    __property TImageIndex       ImagesIndex={read=FImagesIndex,write=SetImagesIndex,default=-1};
 
};
 
class PACKAGE TMyButton : public TGraphicControl
{
private:
protected:
public:
    TMyButtonImages *FImages;  //!< The  images  (created in ctor)
    //! Get the list of images
    TMyButtonImages*  __fastcall GetImages() const { return FImages; }
    //! Set the list of images
    void __fastcall SetImages(TMyButtonImages* him) { FImages  = him; }
 
  __fastcall TMyButton(TComponent* Owner) : TGraphicControl(Owner) { FImages = new TMyButtonImages; }
  __fastcall ~TMyButton(void) { delete FImages; }
__published:
    __property TMyButtonImages* Images={read=GetImages,write=SetImages};
};
#endif

GraphicControl1.cpp:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <vcl.h>
 
#pragma hdrstop
#include "GraphicControl1.h"
#pragma package(smart_init)
 
static inline void ValidCtrCheck(TMyButton *)
{
  new TMyButton(NULL);
}
namespace Graphiccontrol1
{
  void __fastcall PACKAGE Register()
  {
     TComponentClass classes[1] = {__classid(TMyButton)};
     RegisterComponents("Samples", classes, 0);
  }
}
--

15/04/2009, 15h14
Patrick Seuret

Merci beaucoup!

J'ai regardé et je crois que mes problèmes venaient que j'avais mis tout mon composant dans un namespace différent. Ca marche avec "un seul niveau" de propriétés mais plus lorsque j'ai une classe comme sous-propriété.

J'ai repris tes classes et ça marche bien chez moi (sauf le "ImageIndex" qui n'affiche pas une combobox comme dans la copie d'écran de mon post précédent, mais c'est mineur comme problème).

Je vais faire plus de tests demain mais je crois que c'était ça le problème.

:)