Discussion :

[jambonstar]

Bonjour à tous,

J'ai un probleme qui me semblait simple à mettre en oeuvre, mais voilà j'ai suréstimé mes competences visiblement.

Voilà ce que je voudrais faire.

J'ai une forme TForm classique.
Un ratio Hauteur / Largeur (qui provient d'une image pour la petite histoire)

Et ce que je voudrais c'est que lorsque je redimensionne ma fenetre; elle garde automatiquement les proportions données par le ratio. Vous voyez ce que je veux dire ?

Dans le cas ou vous avez déjà la solution, à peine apres avoir lu ma question, je voudrais savoir si c'est également possible que le cadre apparaissant lorsque je redimensionne garde également le ratio. Pour que l'utilisateur ai une réele idée de la gueule de la fenetre en cours de resize.


Merci beaucoup pour vos propositions.

[xenos]

salut,

Imaginons que ton image fasse 400 * 500.

Tu mets dans l'évenement OnResize de ta form, un code du genre :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormResize(Sender: TObject);
var
  ratio_hauteur : Extended;
 
begin
  ratio_hauteur := (Form1.Height / 400);          //400 = hauteur image
  Form1.Width := Trunc(ratio_hauteur * 500);           //500 = largeur image
end;

[Matt2094]

Cherche du côté de la proprété "contraints" de ta Form, je penses que c'est ce que tu cherches : ça permet de limiter le redimensionnement d'une TForm ...

[jambonstar]

Merci de vos propositions.

Mais en fait je suis passer par les messages ( pour garder le cadre temporaire de redimensionnement)

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
29
30
31
32
33
34
35
36
37
38
39
40
41
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    fRatio : Single;
    procedure WMSizing(var Message: TMessage); message WM_SIZING;
  public
    { Déclarations publiques }
  end;
var
  Form1: TForm1;
implementation
uses Types;
{$R *.dfm}
{ TForm1 }
procedure TForm1.WMSizing(var Message: TMessage);
var
  lprc: PRect;
begin
  with Message do begin
    lprc := PRect(LParam);
    case Message.WParam of
      WMSZ_TOP, WMSZ_BOTTOM, WMSZ_TOPRIGHT:
        lprc^.Right := round( (lprc^.Bottom - lprc^.Top) / fRatio + lprc^.Left);
      WMSZ_TOPLEFT :
        lprc^.top := round( - fRatio * (lprc^.Right - lprc^.Left) + lprc^.bottom);
      WMSZ_BOTTOMLEFT, WMSZ_BOTTOMRIGHT, WMSZ_RIGHT, WMSZ_LEFT:
        lprc^.Bottom := round(fRatio * (lprc^.Right - lprc^.Left) + lprc^.Top);
    end;
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  with BoundsRect do
    fRatio := (Bottom - Top)/(Right - Left);
end;
end.

Voilà essayer si vous le souhaiter ca fonctionne à la toque. Ensuite il vous suffit de calculer votre ratio, comme vous le voulez.

Enjoy