Discussion :

[XeGregory]

Bonjour à tous,

Je suis à la recherche d'une méthode pour calculer le ratio d'une image en fonction de sa taille.

J'ai une TScrollBox avec un l'intérieur une TImage, j'aimerais adapter mon image par rapport à la largeur (Width) de ma TScrollBox.

Mon image (TImage) est définie par la propriété Stretch = True

Exemple :
Si je charge une image de taille (Width 1000 px X Height 500 px), si je redéfini l'image (TImage) a la largeur de ma TScrollBox (Width) 500 px, de combien serait la hauteur (Height) de l'image (TImage) pour gardé la proportion de l'image ?

Cela doit forcément se calculer.

Il n’y a pas des fonctions déjà existent sous embarcadero pour calculer les proportions d'une image ? Graphics32, Vcl.Graphics, Vcl.Imaging

Merci beaucoup

[Bernard B]

Ce n'est qu'un calcul de proportions.
Soit Li largeur initiale de l'image, Hi hauteur initiale tu peux calculer k=Hi/Li par exemple.
Ensuite si Lsb est la largeur de ta scrollbox et la hauteur Hsb de ton image sont telles que Hsb/Lsb= k pour conserver les proportions.
Donc Hsb=k*Lsb.

Graphic32 à des méthodes permettant de faire cela sans calcul.

[ShaiLeTroll]

C'est juste une règle de trois

Si je charge une image de taille (Width 1000 px X Height 500 px), si je redéfini l'image (TImage) a la largeur de ma TScrollBox (Width) 500 px, de combien serait la hauteur (Height) de l'image (TImage) pour gardé la proportion de l'image ?

W1 = 1000
H1 = 500
W2 = 500
H2 = H1 / W1 * W2 (Trunc) -> 250

[Papy214]

Selon le rapport hauteur/Largeur, il faut adapter l'une ou l'autre dimension.
Quelqu'un avait mis le code suivant ici et je l'avais conservé.
Merci à lui s'il se reconnait !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses System.Types, System.Math;
 
function RectBestFit(Src: TGraphic; const ADestRect: TRect): TRect;
var
  DstWidth, DstHeight: integer;
  NewWidth, NewHeight: integer;
  Scale              : Single;
begin
  DstWidth  := ADestRect.Right - ADestRect.Left;
  DstHeight := ADestRect.Bottom - ADestRect.Top;
  Scale     := min(DstWidth / Src.Width, DstHeight / Src.Height);
  if Scale < 1 then
  begin
    NewWidth  := Trunc(Src.Width * Scale);
    NewHeight := Trunc(Src.Height * Scale);
  end else
  begin
    NewWidth  := Src.Width;
    NewHeight := Src.Height;
  end;
 
  Result := Bounds((DstWidth - NewWidth) div 2,
    (DstHeight - NewHeight) div 2,
    NewWidth,
    NewHeight);
 
  OffsetRect(Result, ADestRect.Left, ADestRect.Top);
end;

[XeGregory]

Merci pour votre aide.

Voici ce que j'ai réalisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
{ AutoResize }
procedure TFImEdit.AutoResize(Frame: TscPanel);
var
  X, Y: Integer;
  Ratio: Variant;
begin
  X := Frame.Width;
  Y := Frame.Height;
  Ratio := X / Y;
 
  if (Frame.Width > ScrollBox.Width) then
  begin
    Frame.Width := ScrollBox.Width - (Ratio) - (Frame.Left * 2);
    Frame.Height := ScrollBox.Width / Ratio;
  end;
 
  if (Frame.Height > ScrollBox.Height) then
  begin
    Frame.Width := ScrollBox.Height / Ratio;
    Frame.Height := ScrollBox.Height - (Ratio) - (Frame.Top * 2);
  end;
end;

Taille d'origine :


En passent par ma procédure AutoResize

[XeGregory]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
{ AutoResize }
procedure TFImEdit.AutoResize(Frame: TscPanel);
var
  X, Y: Integer;
  Ratio: Variant;
begin
  X := Frame.Width;
  Y := Frame.Height;
 
  // Si la taille de l'image excède la largeur de la TScrollBox
  if (Frame.Width > ScrollBox.Width) then
  begin
    Ratio := X / Y;
    Frame.Width := (ScrollBox.Width - Ratio) - (Frame.Left * 2);
    Frame.Height := ScrollBox.Width / Ratio;
  end;
 
  // Si la taille de l'image excède la hauteur de la TScrollBox
  if (Frame.Height > ScrollBox.Height) then
  begin
    Ratio := Y / X;
    Frame.Width := ScrollBox.Height / Ratio;
    Frame.Height := (ScrollBox.Height - Ratio) - (Frame.Top * 2);
  end;
end;

[Jipété]

Mon image (TImage) est définie par la propriété Stretch = True

Et tu passes aussi Proportional à True.