Einzelnen Beitrag anzeigen

Lerbermatt

Registriert seit: 6. Apr 2017
1 Beiträge
 
#1

Fenstergröße anpassen?

  Alt 6. Apr 2017, 16:01
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.
  Mit Zitat antworten Zitat