Bonjour à toutes et à tous,

Je patine avec ce code, j'aimerai pouvoir lors du chargement de mon image, la réduire avec une largeur et une hauteur connue avant de l'exploiter, soit H = 400 x largeur = 470 au cas ou l'image de base aurait d'autres dimensions.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TMainForm.bchargerClick(Sender: TObject);
begin
  with Op1 do
    if Execute then
    begin
      Edcharger.Text := FileName;
 
//Code pour redimensionner l'image H400 Largeur 470 ici
 
      initBackgroundBitmap(Edcharger.Text); // Utilisation de mon image
      initBackgroundLines();
    end;  
end;
Merci d'avance,

Cincap