[D7] Effacement d'un bitmap

Bonjour à tous et bonnes fêtes de fin d'année,

Est ce que quelqu'un pourrait m'expliquer pourquoi le Bitmap contenu dans mon Image1 s'efface quand je fais ceci :

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Var H, L : Integer ; begin H := Image1.Picture.Bitmap.Height ; L := Image1.Picture.Bitmap.Width ; Label1.Caption := Format('Dimensions : %d x %d - Curseur : %d ; %d ' , [ L, H, X, Y]) ; end;

---

à noter que si je fais :

Code:

---

1 2	H := Image1.Picture.Height ; L := Image1.Picture.Width ;

---

Mon bitmap ne s'efface pas.

Bizarre ? j'aimerais bien savoir pourquoi.

A+
Charly

parce que ton image n'est pas un TBitmap, dans ce cas la consultation de picture.bitmap force la création d'un bitmap vide

Merci ExoSEven, mais c'est quand même un comportement bizarre ? pourquoi le fait de lire une propriété provoque une mise à Nil ?

c'est un choix, tu es assuré que la lecture retourne toujours une valeur valide et pas nil, et comme Picture ne peux contenir qu'une seule image cela remplace l'ancienne.

c'est le même comportement si tu accèdes directement aux autres formats supportés

Picture.Icon, Picture.Metafile et Picture.WICImage

pour éviter cela tu peux passer par Picture.Graphic

Picture.width est codé comme cela

Code:

---

1 2 3 4 5

function TPicture.GetWidth: Integer; begin Result := 0; if FGraphic <> nil then Result := FGraphic.Width; end;

---

Ok merci, j'ai compris. Est ce que Image1.Picture.Bitmap.Width et Image1.Picture.Width renvoient toujours le même résultat quand Image1 contient un Bitmap ?

oui puisque dans tous les cas cela retourne Graphic.width

Merci

A+
Charly