Discussion :

[Alchemist]

Salut à tous.

Je viens de créer un nouveau composant qui est en fait un bouton contenant 2 objets 'picture' ( jpg ou bitmap ), un pour l'état appuyé et un pour l'état normal.

Tout ceci marche très bien, mais j'aimerais pouvoir partager les 2 images entre plusieurs boutons.

Exemple :
- J'ai une fiche contenant 20 boutons (pire des cas) contenants chacun 2 images.
- Avec un poids de 10 ko par image ( jpg ou petit bitmap ), on gonfle l'executable de 400 ko, alors que la même image est utilisée à chaque fois.

Questions :
----------

N'y a t'il pas un moyen de stocker seulement 2 images et les réutiliser pour tous les boutons ?

1 - Sachant que OnPaint fait référence à l'image (l'une ou l'autre suivant l'état), y aura t'il un accès disque à chaque onPaint si je stoque mes images en tant que ressource de l'appli ? ou alors, les ressources sont-elles chargées en mémoire lors du lancement ? (Il faut encore pouvoir acceder aux ressources depuis mon composant ... )

2 - N'est-il pas possible de simplement déclarer une variable dans le parent, et de pouvoir y acceder depuis mon composant avec quelque chose de la forme : Parent.Shared_ImgPushed et Parent.Shared_ImgNormal ? (Peut-être fais-je un petit rêve ... )

Désolé pour ces phrases un peu longues ...

Merci.

[Bruno@Chrysis]

Dans ce cas, une ImageList et dans les boutons tu stockes ImageList et l'index de l'image (enfin dans ton cas 2 index)...

Bruno

[Alchemist]

Le problème est que mon ImageList n'est pas accéssible par mon composant, ou alors je ne sais pas comment m'y prendre.

[Linkin]

Il faudrait mettre une propriété TImageList à ton composant en published non (et une propriété Index pour savoir quelle image récupérer?

un peu comme pour les TToolBars

[Alchemist]

Linkin : Si j'ajoute une propriété TimageList à mon contrôle ( ainsi qu'une var pour l'index ), dès l'affectation de mes 2 images à mon Timagelist :

Mon contrôle (un bouton graphique) stockera les infos, et mes autres boutons seront obligés de stocker eux aussi les mêmes infos, car ils ne pourront pas accéder aux images de mon premier bouton !

Le fait de rajouter une timagelist en published revient pratiquement au même que ce que j'ai fait, cad publier 2 propriétés Tpicture.
Mais le problème ne vient pas de là.

Je ne sais pas si j'ai été très clair sur ce coup, ça parrait toujours plus simple d'expliquer son pb que de comprendre celui des autres.

En tout cas, merci

[Bruno@Chrysis]

non, dans le cas de TImageListe et des index, tu ne stockes pas les images mais juste un pointer et 2 entiers... en taille ca fait une grosse difference.

Code :

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

1
2
3
4
5
6
7
8
 
TMonBouton = Class(TButton)
  ...
  ImgList: TImageList; // ce n'est qu'un pointer vers une imagelist de la form comme pour la TToolBar par exemple
  indexOn: interger;    // index dans la liste
  indexOff: integer;    // index dans la liste
  ...
end;

Bon la c'est simplifié, mais l'idée y est...

Bruno.