Quadratisches Fenster auch während Resize

[DevilsCamp]

Zitat von Satty67:

Wie ist es damit?

Delphi-Quellcode:

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  NewWidth := NewHeight;
  Resize := True;
end;

Verhältnis lässt sich darin entsprechend berechnen.

hab' zu spät gesehen, dass es um Lazarus geht, denke aber solche Basic's sollte da identisch sein.

Leider gibt es TForm.OnCanResize bei Lazarus (noch) nicht.

Ich habe jetzt auch mal WM_ENTERSIZEMOVE und WM_EXITSIZEMOVE getestet. Kommen ebenfalls nicht bei der Form an.
Entweder ich gewöhne mich an dieses "Flackern" oder ich schreibe das Programm in Delphi...