OpenGL => openglcontrol example

[PeterS]

Hallo,

ich habe mal - als Fingerübung - das Example openglcontrol auf den aktuellen Stand gebracht.
Also ausgehend von einem leeren, neuen Projekt alles neu "befüllt".

Siehe Anhang.

[TSchnuckenbock]

Bei mir auf Win10 mit 64Bit und Lazarus 3.2 geht's kompilieren problemlos und läuft.

Beim Anschauen des Codes sind mir auf die Schnelle zwei Dinge aufgefallen, die du vielleicht mal Checken solltest:

1.) Im FormDestroy würde ich bei der Schleife mit Low und High beim Array arbeiten:

Code: Alles auswählen

for i := Low(Textures) to High(Textures) do begin
    Textures[i]:= 0;
    FreeAndNil( MyglTextures[i]);
end; 
...  

2.) In FormResize mit assigned prüfen

Code: Alles auswählen

procedure TExampleFormV2.FormResize(Sender: TObject);
begin
  if assigned(OpenGLControl1) then
      OpenGLControl1.SetBounds( Scale96ToForm( 16),
                                Scale96ToForm( 30),
                                Width -Scale96ToForm( 120),
                                Height -Scale96ToForm( 70));
end;                                

Nachtrag: Ich habe gerade in meinen gesammelten Werken rumgestöbert und dabei festgestellt, daß ich das Projekt in 2008 oder 2009 auch mal lauffähig gemacht hatte.
Da war das mit dem " <> nil" auch drinne im Originalcode....und ich hatte es so gelassen...

[Mathias]

ich habe mal - als Fingerübung - das Example openglcontrol auf den aktuellen Stand gebracht.
Also ausgehend von einem leeren, neuen Projekt alles neu "befüllt".

Bei mir läuft das Original-Beispiel. welches bei Lazarus dabei ist.

Linux 64Bit.

[PeterS]

ich habe mal - als Fingerübung - das Example openglcontrol auf den aktuellen Stand gebracht.
Also ausgehend von einem leeren, neuen Projekt alles neu "befüllt".

Bei mir läuft das Original-Beispiel. welches bei Lazarus dabei ist.
Linux 64Bit.

Das Original Example compiliert und läuft bei mir auch einwandfrei.

Ist (nur unter Windows ?) halt merkwürdig, daß erstmal ein CMD Fenster aufpoppt.
Und das OpenGL Control wird im Original-Beispiel zu Fuß "created".
Ebenso wie all die Buttons.

Ansonsten, der neue Code berücksichtigt das Windows-Scaling.
Und verwendet Anchors für die Buttons.

[PeterS]

2.) In FormResize mit assigned prüfen

Code: Alles auswählen

procedure TExampleFormV2.FormResize(Sender: TObject);
begin
  if assigned(OpenGLControl1) then
  ...

Besteht denn die Gefahr daß das OpenGL-Objekt bei OnResize mal ungültig ist ?
In diesem neuen Code wird es doch "autocreatet", durch die FORM-Datei .. ???

[TSchnuckenbock]

Eventuell ist der check mit dem assigned überflüssig. Ich könnte mir spontan vorstellen, daß es vielleicht schmettern könnte, wenn man beim Beenden des Programms noch mal im FormResize landet.
Du kannst es ja mal weglassen, und schauen was passiert.

Bei der (unbenutzten?) Funktion "LoadFileToMemStream" war mir auch aufgefallen, daß es da eventuell ein Speicherleck geben könnte, wenn der Result, also der TMemoryStream, nicht irgendwo nach dem Aufrufen wieder vernichtet wird.

Aber alles ohne Gewähr...das war nur mein fixer Blick auf den Code.

Was das CMD-Fenster im Original-Code anbelangt: Ich könnte mir vorstellen, daß das vor Jahrzehnten noch irgendwie erforderlich gewesen sein könnte.
FreePascal und Lazarus haben sich in den viele Jahren seit ihrer Schöpfung massiv weiterentwickelt. Ich glaube ich hatte das erstemal mir damals die Version 0.9.6 installiert. Das müßte dann laut Wikipedia im Jahre 2005 gewesen sein. Seitdem ist viel passiert.
Man stolpert auch immer wieder über Pascal-Code aus der Delphi-Anfangs-Zeit oder gar Turbo-Pascal, was dann irgendwie immer wieder rübergerettet wurde zu neueren Versionen. Damals mußte man z.B. auch viel mit Pointern rummachen, wo es heute viel einfachere fertige Klassen für gibt.

[Mathias]

Wen es nach mir ginge, könnte man die Examples alle entfernen. Dies ist alles unnötiger Ballast. Vor allem merkt man dies, wen man mehrere Lazarus Installationen parallel hat.
Und heute wo fast jeder Internet hat, konnte man die Examples als Download anbieten.

[af0815]

zu dem herausnehmen der Examples gibt es schon Bestrebungen im englischen Forum, nur ist es leiser drum geworden.