Discussion :

[bjl]

Dans un composant (TcustomControl), est il possible d'intégrer une image (ou plusieurs) sans utiliser le Tcanvas ? l'utilisation d'un composant Timage est il possible et si oui, ou stocke t'on le .BMP ?

Nota : le Tcustomcontrol contient d'autres composants et l'image est une flèche pour indiquer le sens d'un échange.

Si quelqu'un a une idée ??


W98SE, Delphi 6 perso.

[Nono40]

Si tu veux stocker une image dans un composant, le plus simple est de la stocker dans un TBitMap. Pour l'afficher dans la méthode paint il faudra toujours utiliser le TCanvas.

Exemple :

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
Type
  TMonComposant=Class(TControl)
  Private
    FBitMap : TBitMap;
    Procedure SetBitMap(Valeur:TBitMap);
  Public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
  Published
    Property BitMap : TBitMap Read FBitMap Write SetBitMap;
  End;
 
{ TMonComposant }
 
constructor TMonComposant.Create(AOwner: TComponent);
begin
  inherited;
  FBitMap:=TBitMap.Create;
end;
 
destructor TMonComposant.Destroy;
begin
  FVitMap.Free;
  inherited;
end;
 
procedure TMonComposant.SetBitMap(Valeur: TBitMap);
begin
  FBitMap.Assign(Valeur);
end;

Le composant aura alors une propriété BitMap de type TBitmap qu'il sera possible de remplir à la conception, Cette propriété stockera le bitmap.

[bjl]

Merci pour la solution. Ca fonctionne. Et en mettant mon BMP en ressource du composant et avec l'aide d'un Timage dans le composant j'ai pu éviter le Tcanvas qui lui me fait franchement peur.

Salut