Ergebnis der Suchanfrage

• Forum: FreePascal

  Re: Quadratisches Fenster auch während Resize

   
    by Satty67, 23. Jun 2009
  Wie ist es damit?
  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.