Zwei Bereiche im Verhältnis verkleinern bei Größenänderung

[thkerkmann]

Hallo,

das geht nur durch Programmieren....

Ich würde es mal so versuchen...

Delphi-Quellcode:

var
  Verhaeltnis: extended;

procedure TForm1.OnCreate(Sender:tObject);
begin
  Verhaeltnis := Tabelle1.Width / Self.Width;
end;

procedure TForm1.OnResize(Sender:tObject);
begin
  Tabelle1.Width := Round(Self.Width * Verhaeltnis); 
end;

procedure TForm1.Splitter1OnMoved(Sender:tObject);
begin
  Verhaeltnis := Tabelle1.Width / Self.Width;
end;

Gruss

Thomas.