Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Panelsize immer auf screensizevielfachem halten (https://www.delphipraxis.net/38755-panelsize-immer-auf-screensizevielfachem-halten.html)

MisterNiceGuy 23. Jan 2005 19:38


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.

Matze 23. Jan 2005 19:49

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.

MisterNiceGuy 23. Jan 2005 21:35

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!

Aenogym 23. Jan 2005 21:52

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:
procedure TForm1.Panel1Resize(Sender: TObject);
begin
  panel1.width := 3 * (panel1.height div 2);
end;
sollte doch klappen.

Aenogym

MisterNiceGuy 24. Jan 2005 12:45

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 24. Jan 2005 15:18

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

MisterNiceGuy 25. Jan 2005 15:00

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 00:29 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz