Discussion :

[MarcS]

Bonjour,
Mon problème est le suivant :
J'ai crée des composants dérivés de TbitBtn, afin de normaliser les boutons dans mes applications,
Je charge le bitmap dans le constructeur :

Code :

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

1
2
3
4
5
6
7
 
procedure TtangBitBtn.ChargerGlyph(CName: String);
begin
 
  Self.Glyph:=TBitmap.Create;
  Self.Glyph.LoadFromResourceName(HInstance,CName);
End;

Jusque là tout fonctionne bien,
Maintenant je veux changer les images associées: je modifie mon fichier de ressources.
Après reconstruction, j'ai toujours les anciennes images. La seule solution est d'ouvrir toutes les fiches et d'effacer les glyphs.
Quelqu'un a t'il une idée ?
Merci.
MS

[ShaiLeTroll]

Dommage qu'il n'existe pas un TCustomBitBtn avec un Glyph non plublié !
Cela aurait évité ce problème !

Pense que Glyph a un accesseur donc ceci

Code :

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

 Self.Glyph:=TBitmap.Create;

revient à écrire cela

Code :

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

 Self.Glyph.Assign(TBitmap.Create);

Alors même si il n'y a pas une duplication complète du HBITMAP (voir le code de TBitmap.Assign et l'utilisation interne de TBitmapImage), il y a une petite fuite mémoire à cause de l'instance inutile de TBitmap

Normalement, tu peux retirer cette ligne !

Ensuite, au lieu de le faire dans le constructor fait le dans le Loaded, cela devrait écraser le contenu de la DFM

Tu as encore une autre solution, c'est redéclaré dans TtangBitBtn la propriété Glyph comme ceci

Code :

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

property Glyph: TBitmap read GetGlyph stored false;

Ainsi en lecture Seule elle ne sera pas enregistré dans le DFM
La c'est le mystère, va-t-il ignorer si la DFM contient déjà une valeur ?
ou va-t-il faire une erreur de flux ... à tester !

et refaire ta fonction ChargerGlyph comme ceci

Code :

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

1
2
3
4
procedure TtangBitBtn.ChargerGlyph(CName: String);
begin
  Glyph.LoadFromResourceName(HInstance,CName);
End;

Il aurait pu être intéressant de faire une propriété

Code :

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

property GlyphName: string read GetGlyphName write ChargerGlyph;

Normalement ChargerGlyph devrait s'appeler SetGlyphName

Sinon, du coup, tu n'as plus d'image en DesignTime, cela doit être un peu perturbant ?
Mais il est vrai que cela économise des ressources, la taille de l'exe doit être diminué si l'on ne répète pas les mêmes images standard n fois !

[MarcS]

Bonjour,
En le faisant dans le loaded, cela marche nickel .
Je regarde la seconde solution.
Merci de ton aide.
Bonne soirée.
MS

[MarcS]

Bonsoir,
Je garde la première solution, elle fait exactement ce que je désire, la seconde me génère une exception.
Par contre, j'ai bien les images en DesignTime.
Encore merci.
MS