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.