DGL • Thema anzeigen - TOpenControl lazarus probleme

TOpenControl lazarus probleme

Moderator: DGL-Team

Seite 1 von 1

[ 7 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Finalspace

Betreff des Beitrags: TOpenControl lazarus probleme

Verfasst: So Dez 06, 2009 14:15

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Hab hier grad probleme mit der TOpenGLControl Komponente von Lazarus.

Kompilieren lässt sich alles, aber meine ausgabe der Komponente ist aber immer schwarz.

Selbst ein glClearColor funktioniert nicht. Knallt nicht, aber es passiert nix -.-

Vom code her ist es wirklich simpel.

Ich hab ne neue LCL Anwendung erstellt mit einem Form.
Klebe auf das Form eine TOpenGLControl Komponente drauf, setzte das Align auf Client.
Nun pack ich noch nen TIdleTimer auf die Form, sag beim Idle repaint auf das Control fertig.

Was mach ich falsch ?

Hier der code (wirklich simpel):

Code:

 
unit mainform;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  // FPC
  Classes,
  SysUtils,
  FileUtil,
  LResources,
  Forms,
  Controls,
  Graphics,
  Dialogs, StdCtrls, ExtCtrls,
  OpenGLContext,
  DGLOpenGL;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    IdleTimer1: TIdleTimer;
    OpenGLControl1: TOpenGLControl;
    procedure FormCreate(Sender: TObject);
    procedure IdleTimer1Timer(Sender: TObject);
    procedure OpenGLControl1Paint(Sender: TObject);
    procedure OpenGLControl1Resize(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Init OpenGL
  glClearColor(1,1,1,1);
end;
 
procedure TForm1.IdleTimer1Timer(Sender: TObject);
begin
  OpenGLControl1.Invalidate;
end;
 
procedure TForm1.OpenGLControl1Paint(Sender: TObject);
begin
  // Render
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  glTranslatef(0,0,-4);
 
  glBegin(GL_TRIANGLES);
    glColor3f(1, 0, 0); glVertex3f(-1,-1, 0);
    glColor3f(0, 0, 1); glVertex3f( 1,-1, 0);
    glColor3f(0, 1, 0); glVertex3f( 0, 1, 0);
  glEnd;
 
  // Bild auf den Schirm bringen
  OpenGLControl1.SwapBuffers;
end;
 
procedure TForm1.OpenGLControl1Resize(Sender: TObject);
begin
  // Resize
  glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(60, ClientWidth/ClientHeight, 0.1, 100);
  glMatrixMode(GL_MODELVIEW);
end;
 
initialization
  {$I mainform.lrs}
  InitOpenGL;
  ReadExtensions;
 
end.

Nach oben

Traude

Betreff des Beitrags: Re: TOpenControl lazarus probleme

Verfasst: So Dez 06, 2009 19:08

DGL Member

Registriert: Di Okt 03, 2006 14:07
Beiträge: 1277
Wohnort: Wien

Ich häng Dir mal hier ein Lazarus-Programm dazu, damit funktioniert es bei mir unter Lazarus 0.9.28-2 mit Linux und GTK2. Sollte eigentlich auch in Windows keine Probleme bereiten.
Lg,
Traude

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Nach oben

Finalspace

Betreff des Beitrags: Re: TOpenControl lazarus probleme

Verfasst: Mo Dez 07, 2009 10:10

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Ah ok, danke damit gehts.

Seh ich also das richtig das mal dieses Control nicht mit der Standard DFM implementierung laufen lassen kann ?

Nach oben

Traude

Betreff des Beitrags: Re: TOpenControl lazarus probleme

Verfasst: Mo Dez 07, 2009 12:43

DGL Member

Registriert: Di Okt 03, 2006 14:07
Beiträge: 1277
Wohnort: Wien

Ich weiß jetzt nicht, was DFM heißt. Aber wenn Du damit meinst, dass man bei Verwenden der Lazarus-OpenGL-Komponente nicht das übliche "CreateRenderingContext" verwenden kann, dann hast Du recht, hab ich auch schon mehrmals geschrieben hier.

Arbeitest Du unter Windows? Dann müsste das normale Aufsetzen des RC eigentlich genauso wie in Delphi funktionieren - aber auf einem normalen Panel, ganz ohne die OpenGL-Komponente. Habe ich aber nie ausprobiert.

Nach oben

Finalspace

Betreff des Beitrags: Re: TOpenControl lazarus probleme

Verfasst: Di Dez 08, 2009 11:13

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Also mit DFM meinte ich, das man wie in Lazarus Komponenten auf die Form plazieren kann.
Um die initialisierung kümmert sich dann Lazarus normalerweise.

Und diese initialisierung wird in der .DFM (Bei Delphi) gemacht, da werden auch Standard Eigenschaften wie Farbe, Text, etc. festgelegt sowie die Ereignisse gemappt.

Diese Standard Initialiserung geht dann mit der TOpenControl dann nicht =)

Nach oben

Traude

Betreff des Beitrags: Re: TOpenControl lazarus probleme

Verfasst: Di Dez 08, 2009 14:28

DGL Member

Registriert: Di Okt 03, 2006 14:07
Beiträge: 1277
Wohnort: Wien

Ach so, das meinst Du. Nun, damit Du nicht soviel Arbeit hast, habe ich Dir das Ganze in einer leicht abgeänderten Form nochmals in der neuen 0.9.28-iger Version kompiliert. Hierbei erscheint die Opengl-Komponente im Objekt-Inspektor. Die Lazarus-Formulardatei heißt nicht DFM sondern LFM. Ich habe Dir die Pas- und die LFM-Datei eingepackt. Zusätzlich habe ich statt des OnIdle einen Timer verwendet.

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Nach oben

Finalspace

Betreff des Beitrags: Re: TOpenControl lazarus probleme

Verfasst: Di Dez 08, 2009 15:24

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Danke

Nach oben

Seite 1 von 1

[ 7 Beiträge ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.