redimensionner paintbox selon form.resizeRésolu

Question

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 ...

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

seba31stien · Accepted Answer

merci pour anchors, je ne connaissais pas , ça me sera utile pour la suite. voici comme j'ai fait :
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

ThWilliam · Answer

Tu peux essayer ceci :

tu calcules au d&#233;part le rapport entre la hauteur et la largeur de ton PaintBox  :
PbScale:= PaintBox1.Height / PaintBox1.Width;

dans la propri&#233;t&#233; AnChors de PaintBox1 : Left, Top et Right = true

dans l'&#233;v&#233;nement Form1Resize :
      with PaintBox1 do Height:= Round(Width * PbScale);

A +
Thierry

Redimensionner paintbox selon form.resize

2 réponses

Votre réponse

Discussions similaires