Discussion :

[maredami]

Bonjour,

J'aimerais créer un composant qui affiche des feux (rouge, orange, vert).

J'ai donc 3 images mais je ne sais pas comment les intégrées au composant .

Est-ce le chemin de chaque image qui doit être placé dans une propriété non publiée ? Si oui, les images doivent toujours suivre le package ?

[rbh]

Salut
Je serais toi je les stockerai, à la conception, dans un TImageList, pour que les Bitmaps soit vraiment stockés dans le composant et pas liés à un emplacement du disque dur (qui peut changer, disparaitre, ne pas exister si tu déplois ton appli).

[maredami]

Je comprends pas bien ce que tu entends par "à la conception".

La TImageList aura les images par rapport à un chemin. Comment dois-je faire pour que ce soit fait qu'une seule fois (à la conception)?

[Pedro]

Salut
A la conception: pendant que tu dessines ta Form i.e. dans Delphi
Sinon, tu as plusieurs possibilités:
- soit, comme le dit rbh, mettre un lien vers une TImageList dans ton composant qui ira chercher par exemple l'image 0: le vert, l'image 1: l'orange, l'image 2: le rouge
- Soit définir 3 TBitmap dans ton composant qui te serviront à charger les 3 images soit à la conception soit à l'exécution.
- Soit mettre les 3 images en ressource
Bon dév

[maredami]

Salut
A la conception: pendant que tu dessines ta Form i.e. dans Delphi
Sinon, tu as plusieurs possibilités:
- soit, comme le dit rbh, mettre un lien vers une TImageList dans ton composant qui ira chercher par exemple l'image 0: le vert, l'image 1: l'orange, l'image 2: le rouge
- Soit définir 3 TBitmap dans ton composant qui te serviront à charger les 3 images soit à la conception soit à l'exécution.
- Soit mettre les 3 images en ressource
Bon dév

Je comprends de moins en moins...

J'aimerais avoir un composant qui, en mode conception, soit une des images.

Ensuite, selon une propriété, l'image changerait.

Quand charger les images dans la TImageList vu que ça a l'air LA solution ?

Qu'entends-tu par 3 images en ressource ?

[Pedro]

Quand charger les images dans la TImageList vu que ça a l'air LA solution ?

Non ce n'en est qu'une parmi les 3 autre que je t'ai donné

Qu'entends-tu par 3 images en ressource ?

Chaque composant a un fichier de resource lui correspondant et il est possible d'ajouter des images (ou n'importe quoi d'autre) dans ces fichiers

Le composant pourrait donner quelque chose comme ça:

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
37
38
39
 
interface
...
const
  Couleur_Vert:integer=0;
  Couleur_Orange:integer=1;
  Couleur_Rouge:integer=2;
  //Ces trois constantes sont pour éviter de se rappeler que 0 c'est vert, 1 c'est orange et 2 c'est rouge ^^
 
type
  TCompo=class(TPaintBox)//C'est à toi de voir si cet héritage te convient
  private
    FImageList:TImageList;
    procedure SetCouleur(Value: Integer);
  protected
    procedure Paint;override;
  published
    ImageList:TImageList read FImageList;
    Couleur:integer read FCouleur write SetCouleur;
  end;
 
implementation
procedure TCompo.Paint;
var t:TBitmap;
begin
  t:=TBitmap.Create;
  FImageList.GetBitmap(FCouleur,t);//Ici peut-être vérifier que FCouleur soit bien compris entre 0 et 2
  Canvas.Draw(0,0,t);
  t.Free;
end;
 
procedure TCompo.SetCouleur(Value: Integer);
begin
  if Value<>FCouleur then
  begin
    FCouleur:=Value;
    Invalidate;
  end;
end;

Voila donc dans ce cas, il te faut un TImageList que tu mettras dans la propriété ImageList. Dans celui-ci, il y aura les 3 images que tu veux afficher.
Attention: code non testé...

[maredami]

Merci pour ton aide.

Chaque composant a un fichier de resource lui correspondant et il est possible d'ajouter des images (ou n'importe quoi d'autre) dans ces fichiers Wink

Où est ce fichier et comment lui ajouter des images ? C'est le fichier .dcu ?

Le problème est que les images de la TImageList seront toujours les mêmes. J'aimerais donc les charger une bonne fois pour toute (je sais pas comment).

Un héritage de TCustomControl peut aussi fonctionner ?

[Pedro]

Où est ce fichier et comment lui ajouter des images ? C'est le fichier .dcu ?

Non c'est un fichier .res. Tu peux créer de tels fichiers avec l'éditeur d'image de Delphi. Fais nouveau puis Fichier de resources (.res)
Ensuite, ajoute des Bitmap (Click droit, ajouter bitmap) et édite les pour les façonner comme tu le veux. Enregistre de préférence dans le répertoire de l'unité du composant.
Ensuite, Dans la fiche de ton contrôle (le .pas) ajoute juste en dessous de implementation:

Code :

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

1
2
 
{$R MonFichierResource.res}

Evidemment, MonFichierResource.res est à remplacer par le fichier que tu as créé avec l'éditeur d'images
Ensuite, pour les appeler, tu fais, avec des TBitmap par exemple:

Code :

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

1
2
 
  bitmap.Handle:=loadbitmap(HInstance,Resourcename);

Bitmap étant ton TBitmap et ResourceName représente le nom que tu as donné à ta resource. Note laisse HInstance tel quel C'est une variable globale...

Le problème est que les images de la TImageList seront toujours les mêmes. J'aimerais donc les charger une bonne fois pour toute (je sais pas comment).

OK alors il faut utiliser la méthode des resources

Un héritage de TCustomControl peut aussi fonctionner ?

Bien sûr t'as essayé de remplacer? Du moment que tu as un Canvas

[Cl@udius]

Bonjour,

@Pedro204

J'ai regardé avec intérêt ton code, et je me pose une question.
Dans ton code tu écris:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TCompo.Paint; 
var t:TBitmap; 
begin 
  t:=TBitmap.Create; 
  FImageList.GetBitmap(FCouleur,t);//Ici peut-être vérifier que FCouleur soit bien compris entre 0 et 2 
  Canvas.Draw(0,0,t); 
end;

N'est-il pas nécessaire de faire un t.Free après le Canvas.Draw, ou bien la variable t est-elle libérée à la sortie de la procédure ?

Merci d'éclairer ma lanterne.
@+ Claudius.

[Pedro]

N'est-il pas nécessaire de faire un t.Free après le Canvas.Draw, ou bien la variable t est-elle libérée à la sortie de la procédure ?

Tu as parfaitement raison... Désolé pour cette erreur...
Merci d'avoir corrigé
Je l'ajoute au code original de ce pas

[maredami]

Ça marche nickel !

A noter que sans le t.Free, ça fonctionne également !

Merci

[Pedro]

A noter que sans le t.Free, ça fonctionne également !

Certes mais tu laissais de la mémoire en plan

Merci

Mais avec plaisir