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

• #2053 Tomi_78 aktív tag Fire/SOUL/CD #2052

  Új Válasz 2022-04-09 14:14:14 #2053

  Ú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

  válasz Fire/SOUL/CD #2052 üzenetére

  Várj csak, kezdem érteni: a Panel2RightGap ugye nálad a jobb oldali panel jobb szélének távolsága a főablak jobb szélétől?
  Ez alapján:
  procedure TForm1.FormCreate(Sender: TObject);
begin
  oldalsotav:=Form1.ClientWidth-(Alaprajz.left+Alaprajz.width); //Az Alaprajz jobb szegélyének távolsága a főablak jobb szegélyétől.
alsotav:=Form1.ClientHeight-(Kep3d.height+Kep3d.top);
end;  
procedure TForm1.FormResize(Sender: TObject);
begin
  Kep3d.left:=8;
  Kep3d.top:=8;
  Kep3d.width:=(Form1.ClientWidth-(8+8+oldalsotav)) div 2;
  Kep3d.height:=Form1.ClientHeight-(8+alsotav);
  //
  Alaprajz.left:=Kep3d.left+Kep3d.width+8;
  Alaprajz.top:=Kep3d.top;
  Alaprajz.width:=Kep3d.width;
Alaprajz.height:=Kep3d.height;
end;
  És akkor így jó is lett az egész, mert ha az oldalsotav változóban az Alaprajz.width-et kisebbre állítom vagy kivonást írok a végéhez, akkor kisebb méretnél is megfelelő arányú lesz az átméretezés.
  Nagyszerű; ezt akartam! Még egyszer, ezer köszönet érte neked!

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