![]() |
Panelsize immer auf screensizevielfachem halten
Liste der Anhänge anzeigen (Anzahl: 1)
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. |
Re: Panelsize immer auf screensizevielfachem halten
Schau dir mal die Eigenschaft Anchors der einlenzen Komponenten an. Das passt deren Größe an das Formular an, falls du das meinst.
|
Re: Panelsize immer auf screensizevielfachem halten
Liste der Anhänge anzeigen (Anzahl: 1)
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! |
Re: Panelsize immer auf screensizevielfachem halten
hi,
im OnResize-Event des Panels müsstest du lediglich die größen anpassen. also etwa so:
Delphi-Quellcode:
sollte doch klappen.
procedure TForm1.Panel1Resize(Sender: TObject);
begin panel1.width := 3 * (panel1.height div 2); end; Aenogym |
Re: Panelsize immer auf screensizevielfachem halten
Hat noch nicht so ganz geklappt aber ich hab's heute morgen endlich hinbekommen :roll:
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; |
DP-Maintenance
Dieses Thema wurde von "Christian Seehase" von "Windows API" nach "VCL-Komponenten und Controls" verschoben.
Hat nichts mit der Windows-API zu tun |
Re: Panelsize immer auf screensizevielfachem halten
Liste der Anhänge anzeigen (Anzahl: 1)
hier nochmal das komplette Programm...
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:34 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz