Discussion :

[chourmo]

Bonjour,
je souhaiterais redimensionner les dimensions de ma paintbox en fonction de la taille de la form.
si l'utilisateur divise par deux la fiche, alors la paint box devra être diviser par deux.
j'ai essayé avec l'évènement onresize mais comme les dimensions ne sont que des entiers alors les rapports de dimensions ne sont que 1,2,3 ...

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.FormResize(Sender: TObject);
begin
PaintBox1.Width:=PaintBox1.Width*round(width_originale_form/Form1.Width);// 781
PaintBox1.Height:=PaintBox1.Height*round(height_originale_form/Form1.Height);// 
PaintBox1Paint(self);
end;

merci
Seb

[Matt2094]

Utilise la fonction Round, qui permet de passer des flotants vers les entiers.
Ou la propriété Align de ton composant, il y a une valeur personnalisée, regarde de ce côté.

[nihao]

essaye :

Code :

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

1
2
 
PaintBox1.Width:=round(PaintBox1.Width*width_originale_form/Form1.Width);

tu mes le round le plus tard possible

[Rayek]

Au lieu d'utiliser / utilise la fonction Div qui est spécifique pour les divisions d'entiers.

Code :

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

1
2
 
PaintBox1.Width:=PaintBox1.Width*width_originale_form Div Form1.Width;

Puis sinon comme l'a dit plus haut Matt2094, utilise la propriété Align du Paintbox, si tu la mets à AlClient elle prendra la totalité de l'espace possible de la form et en plus s'étirera ou rétréciera selon la taille de la form.

[chourmo]

merci pour vos aides. Pour ceux que ça intéresse, il me fallait aussi redimensionner le bitmap que j'avais dans le paintbox donc voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
if (Form1.Width/750<Form1.Height/600)
then coef_retreci:=Form1.Width/750  // je prends pour coef
else coef_retreci:=Form1.Height/600; // le plus grand des redimensionnements
 
PaintBox1.Width:=round((500*coef_retreci));// 781
PaintBox1.Height:=round((500*coef_retreci));// 532
BmpM.Width:=  PaintBox1.Width;
BmpM.Height:=  PaintBox1.Height;
 
Rafraichir_carte; // j'appelle ma fonction qui redessine le bitmap sur le
                       //paintbox

merci à tous
Seb