Actualiser Bitmap Firemonkey

Question

J'utilise Delphi 10.2 Tokyo, et j'ai un TForm avec un TImage.

Je charge un fichier PNG à la propriété MultiResBitmap et définis WrapMode à Fit.

Lorsque j'exécute mon application et cliquez sur un bouton, j'ai besoin de changer cette image et de charger un fichier JPG.

J'utilise Image.Bitmap.LoadFromFile si le fichier est sur le disque dur ou Image.Bitmap.LoadFromStream si le fichier JPG provient d'un WebService (Get from IdHTTP). Les deux sont sur un Try...Finally avec Image.BeginUpdate et Image.EndUpdate;

C'est ok je vois ma nouvelle image mais le fond n'est pas vraiment bon, je vois une partie de l'image précédente. Je dois déplacer le TForm en dehors de mon écran pour le voir plein.

J'essaye Image.Repaint à la fin ou Effacer le Bitmap avant de charger le nouveau fichier avec Image.Bitmap.Clear(TAlphaColors.White) mais cela ne change rien.

Quelqu'un sait pourquoi?

Modifier: J'ai oublié de dire que TransparentColor est défini sur Blanc.

• Première:

• Deuxième:

• après avoir déménagé o écran f:

Answer 1

Essayez sans BeginUpdate et EndUpdate.

Answer 2

Il suffit de le faire comme:

Image1.MultiResBitmap[0].Bitmap.LoadFromFile('Location\Image.jpg');