Panelsize immer auf screensizevielfachem halten

[MisterNiceGuy]

Hat noch nicht so ganz geklappt aber ich hab's heute morgen endlich hinbekommen

Am Ende sah der Code so aus (Wen's interessiert):

Delphi-Quellcode:

panel4.width := 3 * (panel4.height div 2);
while panel4.Width > (panel3.Width - 20) do
  begin
   panel4.Width := panel4.Width - 15;
   panel4.height := panel4.height - 10;
  end;
panel4.Top := (panel3.Height div 2) - (panel4.Height div 2);
panel4.Left :=(panel3.Width div 2) - (panel4.Width div 2);
end;