Discussion :

[smk01]

Bonjour

Je travaille en Delphi 7 sous WinXP.

Sur ma Fiche, j'ai 3 TGroupBox et 1 barre d'etat(Align=Bottom)
je souhaite que lors d'un redimensionnent de la fiche, les 3 GroupBox, puissent se redimensionner en gardant leur proportion, et emplacement les uns par rapports aux autres.

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
 
//A la creation j ai ceci
  GrpBox_Actions.Align := Top;//==> Lui doit toujours rester en haut
 
  //Les 2 sui suivent doivent se partager l espace client qui reste
  GrpBox_Cal.Align := AlClient:
  GrpBox_Src.Align := Bottom;
 
  BarreEtat.Align := Bottom;---->Normal
---------------
procedure TFichePrcp.FormResize(Sender: TObject);
Var  Htr:Integer;
Begin
  Htr := ClientHeight-(GrpBox_Actions.Height+BarreEtat.Height);
  GrpBox_Src.Height := (Htr Div 2);
End;

Quand je redimensionne "à la main" (souris bords de la fenetre), c'est Ok.
Quand je click sur le menu system "Agrandissement", ou quand je fais
WindowState := WsMaximized;
Ca part legerement en vrille. La Barre d'Etat se retrouve entre
les 2 GrpBox(_Cal et _Src)

Merci pour vos pistes

[Qwazerty]

SAlut
Ca parait normal, ils se partagent tous les 2 le bottom, apres c'est comme les chaise musicales, 1 place 2 personnes.
le mieux c de forcer ton grouperadio a se mettre au dessus en le poussant de la chaise

Code :

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

1
2
3
4
5
6
7
procedure TFichePrcp.FormResize(Sender: TObject);
Var  Htr:Integer;
Begin
  Htr := ClientHeight-(GrpBox_Actions.Height+BarreEtat.Height);
  GrpBox_Src.Height := (Htr Div 2);
End;
GrpBox_Src.Top :=10;

En esperant que ca a l'effet escompté
A++
Qwaz

[smk01]

Super ça marche.

Il me semble qu'il y a qlq années j'avais utilisé un truc similaire, dans une situation identique.

Faut croire que je ne me bonnifie pas avec le temps

En tout cas, MERCI