Új hozzászólás Aktív témák

• #2045 Tomi_78 aktív tag

  Új Válasz 2022-04-07 16:02:55 #2045

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tomi_78

  aktív tag

  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?

Új hozzászólás Aktív témák