Beibehalten von Panelgrößen beim Verschieben durch Splitter

[Yheeky]

Hi,

ich habe mal ein Beispiel gemacht, damit ihr mein Problem besser versteht. Beim Verschieben der Größe in horizontaler Richtung, soll das Verhältnis der beiden Panels gleich bleiben. Mein Problem ist jedoch das Maximieren und das Minimieren. Wurde die Form maximiert passt soweit noch alles, aber beim Minimieren kommt eine ganz andere Darstellung heraus. Woran liegt das denn?
Wäre nett, wenn mir da jemand helfen könnte. Danke schonmal!

[bitsetter]

Hi,
probiere mal meinen Code ob es jetzt anders ist. Besonders beim wiederherstellen des Fensters hatte ich bei deiner Version Schwierigkeiten, weniger bei minimieren.

Delphi-Quellcode:

  private
    FormBreiteTemp, Panel1BreiteTemp: integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
FormBreiteTemp:= self.Width;
Panel1BreiteTemp:=  Panel1.Width;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
Panel1.Width := Panel1BreiteTemp* self.Width div  FormBreiteTemp;
end;

procedure TForm1.Splitter1Moved(Sender: TObject);
begin
FormBreiteTemp:= self.Width;
Panel1BreiteTemp:=  Panel1.Width;
end;

[Yheeky]

Ja, danke schön! Das sieht so aus, wie ich es haben möchte.