Discussion :

[David]

Salut à tous,

Je n'arrive pas à trouver la syntaxe adéquate pour déclarer une référence à un objet extérieur à ma classe.
Mon code :

Code :

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

1
2
3
4
TMyFrame = Class (TGraphicControl)
    private
      BmpFond             :TBitmap;
      BmpExt               : ???????

Pour être précis, dans mon expl j'ai un bitmap qui sera créé avec la classe et qui servira au dessin du fond. Mais en plus j'aimerais utiliser un bitmap extérieur à la classe pour le dessiner par dessus ce fond mais sans le récréer puisqu'il existe deja dans l'appli qui va créer un objet MyFrame.
En fait j'aimerai juste que MyFrame puisse utiliser un Bitmap dont on ne lui passerait que la référence, comme on assigne par expl un popupmenu à une Form. Je voudrais éviter de récréer un bitmap et d'y assigner un qui existe deja.

La solution est surement enfantine, mais je n'ai que depuis peu une approche réellement objet dans mon code
Merci pour votre aide (et votre indulgence...)

[mick605]

Salut

Si j'ai bien compris, un pointeur ferait l'affaire ... Tu déclares ton BmpExt en tant que pointeur sur un TBitMap, et pendant l'execution, tu donnes l'adresse de ton BitMap extérieur à ton TMyFrame.

Ex:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
TMyFrame = Class (TGraphicControl)
    private
      BmpFond             :TBitmap;
      BmpExt              : ^TBitMap;
...
 
var MyFrame : TMyFrame;
     MonBmpExterieur : TBitMap;
 
...
 
MyFrame := TMyFrame.Create;
MyFrame.BmpExt:=@MonBmpExterieur;

Je sais pas si c'est bien ca que tu cherchais

Bonne chance !

[David]

merci mick605 pour ta réponse rapide
je ne l'ai pas testée encore mais je dois avouer que je viens de résoudre mon problème.

en fait je déclare comme suit :

Code :

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

1
2
3
4
5
TMyFrame = Class (TGraphicControl)
    private
      BmpFond             :TBitmap;
    public
      BmpExt               : TBitmap;

puis dans le code de l'appli, apres la création de MyFrame,

Code :

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

BmpExt:=AnotherBmp;

Je ne sais pas pourquoi je me suis mis en tête que si je déclarais une variable TBitmap il fallait forcement passer par un .create.

La preuve que non.
Maintenant peut-être que cette façon de faire n'est pas la meilleure ou va me causer du soucis à l'usage.Donc si quelqu'un à un commentaire, je suis preneur.
Mais pour le coup je pense pas (la honte x 2)

[David]

Voila, je viens d'essayer ta solution, mick605. Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
TMyFrame = Class (TGraphicControl)
    private
      BmpFond             :TBitmap;
    public
      BmpExt              : ^TBitMap;  <-- mis en public pour accès extérieur
...
 
var MyFrame : TMyFrame;
     MonBmpExterieur : TBitMap;
 
...
 
MyFrame := TMyFrame.Create;
MyFrame.BmpExt:=@MonBmpExterieur;

Jusque là, compilation ok.
Mais lorsque je veux utiliser BmpExt dans la procedure de dessin de ma classe, ça coince:

Code :

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

1
2
3
4
5
6
7
Procedure TMyFrame.Paint;
 
 {dessin du bitmap du fond}
  if BmpFond<>nil then Canvas.Draw(0,0,BmpFond);
 
{essai dessin du bitmap extérieur}
  Canvas.Draw(20,20,extBmp); '<--Erreur de compilation

le message d'erreur est le suivant : "aucune version surchargée de Draw ne peut être appelée avec ces arguments".

J'ai donc tenté ceci :

Code :

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

Canvas.Draw(20,20,Tbitmap(extBmp));

A la compilation, ça passe. A l'execution : plantage grave. Restart Delphi obligé

J'en reviens donc à ma solution. Mais ça m'embête de n'avoir pas pu mettre la tienne en œuvre.
Surtout que le fait de pointer un objet me garanti de ne pas dupliquer le bitmap.
Dans ma solution je n'en suis pas sur à 100%.
Si quelqu'un peut lever le doute...

[Cl@udius]

Salut

BmpExt est défini comme un pointeur vers le TBitmap. D'où l'erreur de compilation (il devrait d'ailleurs être nommé PBmpExt ).

Essaye comme ceci:

Code :

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

  Canvas.Draw(20, 20, BmpExt^);

@+

[Kaféine]

Salut,

Une propriété doit suffire non ?!

Code :

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

1
2
3
4
5
6
7
 
(...)
private
  FExtBmp: TBitmap;
public  
  property ExtBmp: TBitmap read FExtBmp write FExtBmp
(...)