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
(...)

[David]

Cl@udius,

merci, ta syntaxe est la bonne et tout s'exécute très bien maintenant
Tu auras compris que je n'ai pas encore souvent utilisé les pointeurs...

Kaféine,

Je ne suis pas sur qu'utiliser une propriété soit si différent, car à un moment donné il faut bien faire le lien vers un objet extérieur au code de ma classe.
Soit directement comme je le fais en affectant hors classe un bmp extérieur au bmp"intérieur"
ou par simple référence grâce au pointeur.
Mais peut-être n'ai-je pas compris ta façon de faire.

En tout ca, merci à tous pour vos lumières.

Par contre, et désolé d'insister sur ce point, je ne sais toujours pas si le fait d'utiliser une variable (pas un pointeur, donc) va créer un double du bitmap source
ou si au contraire, le fait d'écrire "BmpExt:=AnotherBmp" va utiliser AnotherBmp lorsque dans le code de la classe je vais appeler BmpExt...
C'est juste que je vais généraliser la méthode à d'autres objets et les bitmaps ne seront pas petits,
donc si j'ai tout en double en mémoire, c'est moyen... Et puis pour le principe

[Kaféine]

Salut,

je voulais dire que cela suffisait...

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
 
TMyFrame = Class (TGraphicControl)
    private
      BmpFond             :TBitmap;
      FBmpExt: TBitmap;
    public
       property BmpExt: TBitmap read FBmpExt write FBmpExt
...
 
var MyFrame : TMyFrame;
     MonBmpExterieur : TBitMap;
 
...
 
MyFrame := TMyFrame.Create;
MyFrame.BmpExt:=MonBmpExterieur;

[Dr.Who]

les objets sont déjà des pointeurs, donc aucune utilité de le déclarer en pointeur.


si on as :

Code :

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

1
2
3
4
5
6
7
var
  B1, B2 : TBitmap;
begin
  B1 := TBitmap.Create; (B1 = adresse mémoire)
  B2 := B1; (B2 = adresse mémoire de B1)
  B2.Free; (invalide B1)
end;

la meilleure façon de faire étant d'utiliser une propriété :

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
  TMaClasse = class
  private
    fInnerBitmap : TBitmap;
    fOuterBitmap : TBitmap;
    procedure SetInnerBitmap(value: TBitmap);
  protected
    procedure QuelqueChose;
  public
    property InnerBitmap : TBitmap read fInnerBitmap write SetInnerBitmap;
    property OuterBitmap : TBitmap read fOuterBitmap write fOuterBitmap;
    constructor Create;
  end;
 
constructor TMaClasse.Create;
begin
  fInnerBitmap := TBitmap.Create;
  fOuterBitmap := nil;
end;
 
procedure TMaClasse.SetInnerBitmap(value: TBitmap);
begin
  fInnerBitmap.Assign(Value);
end;
 
procedure TMaClasse.QuelqueChose;
begin
  if Assigned(fOuterBitmap) then
    fInnerBitmap.Canvas.Draw(fOuterBitmap);
end;

[David]

Kaféine,
désolé, je n'avais effectivement pas compris

Dr Who,
ton premier exemple répond bien à la question de la double utilisation ou non de la mémoire. Merci. Je peux donc écarter l'utilisation des pointeurs.

Pour ton second code, celui de la classe utilisant une propriété, il répond parfaitement à mon besoin et donne raison au passage à Kaféine.

Cependant, sachant que ma classe ne servira pas à créer de composant, pourrai-je me contenter de déclarer ma variable public (bmpExt) ,
de l'affecter hors classe (Myframe.bmpExt:=MonBmpExterieur)
puis de l'utiliser dans la classe (avec tests "if assigned(bmpExt)") ?
Ne crois pas que je cherche à utiliser absolument "ma" façon ou à en faire le moins possible par paresse.
Mais j'essaye de bien intégrer les bases de la poo. Donc si cette méthode n'est pas la bonne, j'aimerais juste comprendre en quoi.

Encore merci pour votre aide à tous

[Kaféine]

Cependant, sachant que ma classe ne servira pas à créer de composant, pourrai-je me contenter de déclarer ma variable public (bmpExt) ,
de l'affecter hors classe (Myframe.bmpExt:=MonBmpExterieur)
puis de l'utiliser dans la classe (avec tests "if assigned(bmpExt)") ?
Ne crois pas que je cherche à utiliser absolument "ma" façon ou à en faire le moins possible par paresse.
Mais j'essaye de bien intégrer les bases de la poo. Donc si cette méthode n'est pas la bonne, j'aimerais juste comprendre en quoi.

Tu peux, mais c'est pas top.
Les propriétés, à l'instar des Getters/Setters en Java, permettent des contrôles de validité...
Tu auras de toute façon besoin, enfin il me semble, lors de l'assignation du BmpExt de rafraîchir la frame pour mettre à jour l'affichage.
Et pour cela, l'emploi d'une propriété est parfait:

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
 
type
 TMyFrame = class(TGraphicControl) 
 private
   FBmpExt: TBitmap;
   procedure SetBmpExt(const Value: TBitmap);
 public
   property BmpExt: TBitmap read FBmpExt write SetBmpExt;
 
(...)
 
procedure TMyFrame.SetBmpExt(const Value: TBitmap);
begin
  FBmpExt := Value;
  Invalidate; //<-- rafraichir la frame 
end;

[David]

Entre temps j'ai réalisé l'assignation avec une procédure comme suit :

Code :

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

1
2
3
4
5
6
7
8
TMyFrame.AssignBmpExt(sourceBmp:Tbitmap);
begin
  try 
    BmpExt:=sourceBmp;
  except
  end; 
  ...
end;

que j'appelle donc depuis l'extérieur en faisant :

Code :

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

Frame1.AssignBmpExt(AnotherBmp);

Ça marche aussi. Mais je pense qu'il est dans mon intérêt de prendre de bonnes habitudes. Je passerai donc par une propriété.
Merci encore à tous

[Dr.Who]

pou info : ton bloc try except ne sert à rien ici ...

[Montor]

c'est le rôle de setter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
private
...
FBmpExt: TBitmap;
procedure SetBmpExt(B:TBitmap);
    public
       property BmpExt: TBitmap read FBmpExt write SetBmpExt
 
 
procedure TMyFrame.SetBmpExt(B:TBitmap);
begin
   if Assigned(B) and (B != FBmpExt) then 
    FBmpExt :=B
end;

..