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...