Panelsize immer auf screensizevielfachem halten

[MisterNiceGuy]

Hi ich versuche grade ein Programm ähnlich Powerpoint zu erstellen, was jedoch nur auf das wesentlich e beschränkt ist.
Leider habe ich schon beim Design der Oberfläche erste Schwierigkeiten. Ich will, dass das Fenster auf dem ich die Texte und Bilder platziere, also was man später auch als die eigentliche Präsentations sieht, immer ein Vielfaches der Bildschirmgröße als eigene Größe hat.
Die Breite soll also zur Höhe im Verhältnis 3:2 stehen.

Hat einer eine Idee wie ich das realisieren könnte?

Vielen Dank schon ma im Voraus

//EDIT: Ich hänge nochmal das Projekt an, vielleicht ist das Problem dann einfacher zu verstehen.

[Matze]

Schau dir mal die Eigenschaft Anchors der einlenzen Komponenten an. Das passt deren Größe an das Formular an, falls du das meinst.

[MisterNiceGuy]

Nein Anchors taugt dazu leider nichts, weil wenn man das Formular z.b. 600 Einheiten hoch macht und 200 breit, dann ist die Breite des Panels nicht mehr im Verhältnis 2:1 zur Länge sondern evtl. 1:3

//Hab mal ein Bild zur Erklärung angehängt!

[Aenogym]

hi,

im OnResize-Event des Panels müsstest du lediglich die größen anpassen.
also etwa so:

Delphi-Quellcode:

procedure TForm1.Panel1Resize(Sender: TObject);
begin
  panel1.width := 3 * (panel1.height div 2);
end;

sollte doch klappen.

Aenogym

[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;

[MisterNiceGuy]

hier nochmal das komplette Programm...