TForm und EndResize?

[Komoluna]

Liebes Forum

ich habe in meiner Andorra2D(ne 2D Engine für OGL oder DirectX)-Testanwendung ein Problem:
Wenn man die Fenstergröße verändert, behält das gezeichnete Bild seinen Abstand zum unteren Fensterrand.
Die lässt sich umgehen, indem man bei OnResize

Code: Alles auswählen

[Dein TAdDraw].Initialize

aufruft.

Leider hakt dann das Fenster beim Resize stark, da Initialize scheinbar ein sehr Resourcenintensiver Aufruf ist.
Es würde für meine Zwecke reichen, wenn Initialize nur aufgerufen wird, wenn dem User die Fenstergröße passt(er den Rand loslässt).


Gibt es ein Event wie EndResize oder ResizeDone von TForm, das aufgerufen wird, wenn der User den Fensterrand wieder "loslässt"?

MFG

Komoluna

[theo]

Gibt es ein Event wie EndResize oder ResizeDone von TForm, das aufgerufen wird, wenn der User den Fensterrand wieder "loslässt"?

Ist mir nicht bekannt. Ich würde mit einem Timer die Frequenz runterschrauben.

Code: Alles auswählen

procedure TForm1.FormResize(Sender: TObject);
begin
  if not Timer1.Enabled then Timer1.Enabled:=true;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  [Dein TAdDraw].Initialize
  Timer1.Enabled:=false;
end;   

[Komoluna]

gute idee, probier ich morgen mal aus...

Gn8

Komoluna

[Skereta]

Die Idee mit dem Timer finde ich sehr passend.

[Komoluna]

Japp, das stimmt wohl.
Aber leider ist es nur ein workaround.
Ein Event in TForm währe viel praktischer.

MFG

Komoluna

[theo]

@Komoluna: Spammer in der Vorbereitungsphase bitte nicht füttern!

[Komoluna]

ups, hab ich nicht bemerkt...
danke für den Hinweis.

(trozdem wäre ei solche sEvent praktisch)

MFG

Komoluna