Sziasztok!
Egy Lazarus (FreePascal) programomban úgy kellene méreteznem a főformon lévő két PaintBox méretét, hogy arányosan kövessék a fő form új méretét, akár nagyításról, akár kicsinyítésről van szó.
Amit én csináltam hozzá kód, az hol jól működik, hol eltolja méretileg a PaintBoxokat:
procedure TForm1.FormResize(Sender: TObject);
var ujszel,ujmag: real;
begin
  Kep3d.left:=8;
  Kep3d.top:=8;
  ujszel:=regikep3dszel*(Form1.width/regiform1szel);
  ujmag:=regikep3dmag*(Form1.height/regiform1mag);
  Kep3d.width:=round(ujszel);
Kep3d.height:=round(ujmag);
  //
  Alaprajz.left:=Kep3d.left+Kep3d.width+8;
  Alaprajz.top:=Kep3d.top;
  Alaprajz.width:=Kep3d.width;
  Alaprajz.height:=Kep3d.height;
  //
  regiform1szel:=Form1.width;
  regiform1mag:=Form1.height;
  regikep3dszel:=Kep3d.width;
regikep3dmag:=Kep3d.height;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  regiform1szel:=Form1.width;
  regiform1mag:=Form1.height;
  regikep3dszel:=Kep3d.width;
regikep3dmag:=Kep3d.height;
end;
Már napok óta töröm a fejem, hogy mi lehet a baj az arányszámításommal a méretezőkódban, de nem tudok rájönni. Valaki tud segíteni?