Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#6

Re: Layout der GUI Fullscreen / geteilter Bildschirm

  Alt 12. Okt 2003, 17:47
Moin Helpliner,

also ich habe mal folgendes gemacht:
  1. Neue Anwendung
  2. TWebbrowser auf das Formular
  3. Webbrowser1.Align := alTop
  4. TSplitter auf das Formular
  5. Splitter1.Align := alTop
  6. TWebbrowser auf das Formular
  7. Webbrowser2.Align := alClient

Anschliessend hab' ich dann noch folgendes Ereignisprozeduren hinzugefügt.

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Webbrowser1.Height := (self.ClientHeight-Splitter1.Height) div 2;
  Splitter1.Tag := 50; // Höhe Webbrowser1 = 50% des Clientbereiches
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  Webbrowser1.Height := ((self.ClientHeight-Splitter1.Height) * Splitter1.Tag) div 100;
end;

procedure TForm1.Splitter1Moved(Sender: TObject);
begin
  // Prozentualen Anteil neu berechnen
  Splitter1.Tag := (Webbrowser1.Height * 100) div (self.ClientHeight-Splitter1.Height);
end;
Jetzt kann man das Fenster in der Grösse verändern, und die anteilige Verteilung der beiden Webbrowser bleibt gleich.
Entscheidend ist, dass die Verteilung der Controls von Webbrowser1 abhängt, da sich, auf Grund der Einstellung alClient, Webbrowser2 immer anpasst.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat