Hallo liebe Community,
ich habe ein Problem beim Anpassen der Fenstergröße. Die Idee wäre, dass die Breite des Fensters immer 1.3x grösser ist als die Höhe. Das heißt, dass wenn man nur eine Seite des Fensters vergrößert, wird die andere automatisch angepasst. Ich habe dies mit der "procedure TForm1.OnCanResize" gemacht. Es hat leider nicht so funktioniert, wie ich es wollte. Mir ist aber nicht bekannt, wo der Fehler liegt.
Code:
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
if (NewHeight <> Form1.Height) then
NewWidth := Round(NewHeight*1.3)
else
NewHeight := Round(NewWidth/1.3);
end;
Das Verhältnis wird nur zum Teil ausgeführt und es besteht ein Flackern beim Versuch das Fenster zu vergrößern. Zusätzlich besteht noch das Problem, dass die Größe nur ab und zu angepasst wird.
Wäre sehr nett von euch, wenn mir jemand dabei helfen könnte, das Programm funktionsfähig zu machen.