Discussion :

[Basile le disciple]

Je voudrais que, quand je redimensionne une form, le width soit égal à 75% du Height. Mais le problème, c'est que ce que j'ai mis ne marche pas :

code:

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.FormResize(Sender: TObject);
var oldWidth,oldHeight : integer;
begin
  if Width <> oldWidth then Width:=round(0.75*Height);
  if Height <> oldHeight then Height:=round(1.25*Width);
  oldWidth:=Width;
  oldHeight:=Height;
end;

Comment faire???

[Lung]

Mais le problème, c'est que ce que j'ai mis ne marche pas

Normal.
Déjà, il ne faut surtout pas stocker les valeurs dans des variables locales qui disparaissent en sortie de la procédure.
Ensuite, si tu ne veux pas un appel en boucle sans fin, il faut couper l'évènement le temps du 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
procedure TForm1.FormResize(Sender: TObject);
begin
   OnResize := nil;
   try
      if Width <> oldWidth then
         Width := Round(0.75 * Height);
      if Height <> oldHeight then
         Height := Round(1.25 * Width);
      oldWidth := Width;
      oldHeight := Height;
   finally
      OnResize := FormResize;
   end;
end;

[Basile le disciple]

Le problème c'est que j'ai essayé de le faire mais cela ne marche que quand je redimensionne sur un angle(en plus ça scintille), pas sur un côté. Voilà ce que j'ai marqué :

code :

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
 
procedure TForm1.FormResize(Sender: TObject);
begin
  OnResize := nil;
   try
      if Width <> oldWidth then
         Width := Round(0.75 * Height);
      if Height <> oldHeight then
         Height := Round(1.25 * Width);
      oldWidth := Width;
      oldHeight := Height;
   finally
      OnResize := FormResize;
   end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  oldwidth:=width;
  oldheight:=height;
end;

Quant aux variables locales, c'est simplement une (grosse) distraction!!!

[ShaiLeTroll]

Peut-être plutôt TForm.OnCanResize qui est conçu pour la modification de ce type via les paramètres var NewWidth et NewHeight, ce qui n'est pas le cas de TForm.OnResize

Code :

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

1
2
3
4
5
6
7
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth: integer; var NewHeight: integer; var Resize: boolean);
begin
      if Height <> NewHeight then
         NewWidth := Round(0.75 * NewHeight);
      else if Width <> NewWidth then
         NewHeight := Round(NewWidth / 0.75);
end;

Je ne crois pas 1.25 soit l'inverse de 0.75 mais plutôt 1.33
Donc semble être une proportion toujours en "4:3" (Quatre tiers)
mais vertical ?

En plus, il y avait une inversion d'axe non ?
Si l'on change Height en NewHeight, il faut recalculer NewWidth, hors c'est l'inverse qui était fait

[cincap]

Bonsoir à toutes et à tous,

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth: integer; var NewHeight: integer; var Resize: boolean);
begin
      if Height <> NewHeight then
         NewWidth := Round(0.75 * NewHeight); //ici
      else if Width <> NewWidth then
         NewHeight := Round(NewWidth / 0.75);
end;

A enlever avant un "else".

@+,

Cincap

[Basile le disciple]

Merci pour toutes vos réponses mais cela ne marche toujours pas!!!
En effet,4/3 n'a jamais fait 1.25.Désolé!