Discussion :

[Charly910]

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 :

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

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 :

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

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

Mon bitmap ne s'efface pas.

Bizarre ? j'aimerais bien savoir pourquoi.

A+
Charly

[exoseven]

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

[Charly910]

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

[exoseven]

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 :

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

1
2
3
4
5
function TPicture.GetWidth: Integer;
begin
  Result := 0;
  if FGraphic <> nil then Result := FGraphic.Width;
end;

[Charly910]

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 ?

[exoseven]

oui puisque dans tous les cas cela retourne Graphic.width

[Charly910]

Merci

A+
Charly