Discussion :

[Vulcanos]

bonjour à tous,

Dans une Form, j'ai plusieurs panels côte à côte. Quand je maximalise la Form, je voudrais que les panels se "dilatent" proportionnellement à la taille de la Form. J'ai essayé de jouer avec les paramètres Anchors et Align des TPanels, sans résultat satisfaisant.

Comment fait-on ?


Merci de votre coup de main.

[Pedro]

Salut
normalement les propriétés Anchors et Align devraient suffire...
C'est quoi qui ne te satisfait pas exactement?

[bjl]

Bonjour,

la propriété anchor permet de lier la composant à un endroit précis mais pas proportionnel.

je pense qu'il faut mémoriser la taille de la form avant de maximaliser, calculer le ratio et l'appliquer aux propriétés left, top , width et Height de chaque composant.

[Pedro]

Oui pour ça, tu as l'évènement OnResize de la TForm dans lequel tu pourra retailler tous tes composants à ta guise

[Vulcanos]

Salut bjl, salut Pedro204,

Merci pour vos réponses rapides. Je pense que c'est la solution. J'essaie et je passe en résolu.

A+

[Archimède]

pour un panel sur une form:

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
procedure TForm1.FormCreate(Sender: TObject);
begin
width:=screen.Width div 2;
height:=screen.Height div 2;
position:=poscreencenter;
end;
 
 
 
procedure TForm1.FormResize(Sender: TObject);
begin
with panel1 do begin
Width:=Form1.clientwidth div 2 ;
height:=form1.clientwidth div 2;
top:=(form1.ClientHeight-width) div 2;
left:=(form1.Clientwidth-width) div 2;
end;
end;

onresize, ça suffit

[TicTacToe]

amha
Si tu veux faire une fonction générique de redimensionnement auto. de panels, il faut

1. que tu répertories les panels ayant la proriétés align <> de alClient grace à la propriété Components et ComponentCount (et éventuellement Parent si tu veux faire ca uniquement pour un certain conteneur)

2. Que tu stockes dans cette liste, la derniere dim. de ces composants

3. qu'a chaque resize du conteneur, tu fasses le ratio entre nouvelle dim et ancienne dim, et que tu combine ce ratio au dim. de ta liste pour les affecters aux panels, PUIS mettre à jour la liste an so on...

Je pense que c'est la bonne méthode, et qu'il ne faut pas stocker
- ni les coords de positionnements
- ni les dim. des panels en alClient
Pour la bonne raison que le reste se repositionne tout seul rien qu'en changeant la dim de tes panels non alClient...

[Archimède]

en mettant 5 panels sur ta form :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.FormResize(Sender: TObject);
var i:integer;
begin
for i:=1 to 5 do begin
with (FindComponent('panel'+Inttostr(i)) as TPanel) do begin
width:=Form1.ClientWidth div 6;
height:=Form1.ClientHeight div 2;
top:=(Form1.ClientHeight-height) div 2;
left:=(Form1.clientwidth-5*width) div 2+(i-1)*width;
end;
end;
end;

il n'y pas de quoi sortir l'artillerie lourde...

[TicTacToe]

1. on ne sait pas s'il y a seulement 5 panels

2. on a jamais dit que tous les panels avaient la même taille, on a juste dit 'redimensionnement proportionnel', c'est pas la même chose

3. on ne sait pas s'il s'agit que de panels horizontaux

4. en effectuant des calculs de ce style, on tombe forcément sur des panels pas bien 'collés' les uns aux autres, la dimensions finale n'étant pas forcément un multiple du nombre de panel

5. on ne profite absulument pas des propriétés alClient, ce qui simplifie la vie pour bien coller les panels

Donc entre Générique et (spécifique totalement figé), effectivement, il faut voir si le jeu en vaut la chandelle !

[Archimède]

il est certain qu'il faudrait avoir davantage d'information...
Pour 5 panels pas problème de décalage...
c'est rare quand tu en mets 40 sur une largueur ou sur une hauteur !
même avec des dimensions différentes, on peut arriver à faire un code condensé.
En plus la form est liée à la screen dans le oncreate, sympa lors d'un changement de résolution.
ceci dit, tu as raison, il est intéressant de mettre en oeuvre les propriétés alclient...c'est bien d'avoir plusieurs pistes à exploiter.

Entre le Générique et (spécifique totalement figé) à voir.

[Vulcanos]

Salut,

Je vous livre le code que je viens de réaliser grâce à vos conseils. J'ai testé et ça semble convenir.

Note: les variables Hauteur, Gauche, Sommet, Largeur sont des tableaux que j'ai dimensionnés à 10. C'est pas trés fin, on peut améliorer

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 FormL := Form1.Width;
 FormH := Form1.Height;
end;

La procédure suivante est appelée dans le Activate

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
 
Procedure TForm1.CalculRatio;
var i,j : integer;
begin
 j:=0;
 for i:= 0 to ComponentCount-1 do
 begin
  if Components[i] is TPanel then
  begin
    j:= j+1;
    with (FindComponent('panel'+Inttostr(j)) as TPanel) do
    begin
      Hauteur[j]  := Height;
      Gauche[j]   := Left;
      Sommet[j]   := Top;
      Largeur[j]  := Width;
    end;
  end;
 end;
end;

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
 
procedure TForm1.FormResize(Sender: TObject);
var i,j  : integer;
begin
 j:=0;
 RatioL := Form1.Width / FormL;
//ShowMessage('Form1.W : '+inttostr(Form1.width)+' FormL : '+ inttostr(FormL)+' RatioL : '+ inttostr(RatioL));
 RatioH := Form1.Height / FormH;
 for i:= 0 to ComponentCount-1 do
 begin
  if Components[i] is TPanel then
  begin
    j:= j+1;
    with (FindComponent('panel'+Inttostr(j)) as TPanel) do
    begin
      Height := Round(Hauteur[j]*RatioH);
      Left     := Round(Gauche[j]*RatioL);
      Width  := Round(Largeur[j]*RatioL);
      Top     := Round(Sommet[j]*RatioH)
    end;
  end;
 end;
end;

Merci encore.
A+