DGL • Thema anzeigen

Fonts

Moderator: DGL-Team

Seite 2 von 3

[ 44 Beiträge ]

Gehe zu Seite Vorherige 1, 2, 3 Nächste

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Sascha Willems

Betreff des Beitrags:

Verfasst: Mo Mär 24, 2003 14:38

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Hmpfff :blink:

Bist du dir auch sicher, das du den Renderkontext vor dem Erstellen des Fonts via ActivateRenderContext(DC,RC) aktiviert hast?
Ansonsten werden deine Displaylisten nämlich nicht erstellt!

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Mo Mär 24, 2003 15:12

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Guest hat geschrieben:

ich benutze gar kein activaterendering context... aber mein namestack zeugs funktioniert ja auch...

Dann halt anders :
Hast du den vorher erstellten Rendercontext vor dem Erstellen des Fonts auch aktiviert?Dies geschieht entweder via ActivateRenderingContext oder wglMakeCurrent.
Irgendwo mußt du den Rendercontest doch aktivieren, ansonsten kanns nicht gehen!

Poste also am besten mal den Initialisierungscode deines Programms.

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

chuckylein

Betreff des Beitrags:

Verfasst: Mo Mär 24, 2003 15:28

DGL Member

Registriert: Fr Mär 14, 2003 23:00
Beiträge: 24

main.pas:

Code:

 
procedure CreateRC;
begin
  //Rendering Context initialisieren
  RC := wglCreateContext(MainForm.Canvas.Handle);
  if (RC=0) then
  begin
    MessageDlg('Rendering Context kann nicht erstellt werden.', mtError, [mbOk], 0);
    Halt(100)
  end;
 
  if (not wglMakeCurrent(MainForm.Canvas.Handle, RC)) then
  begin
    MessageDlg('Rendering Context kann nicht aktiviert werden.', mtError, [mbOk], 0);
    Halt(100)
  end
end; (*StartGL*)
 
 
procedure SetupGL;
begin
  glShadeModel(GL_SMOOTH);
  glClearColor(0.0, 0.0, 0.0, 0.5);
  glClearDepth(1.0);
  glEnable(GL_DEPTH_TEST);
  glDepthFunc(GL_LEQUAL);
  glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
end; (*SetupGL*)
 
 
procedure TMainForm.DrawScene(mode: Integer);
begin
  glMatrixMode(GL_MODELVIEW);
  glClearColor(0,0,0,0);
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  glLoadIdentity;
  glTranslatef(0,0,-2);
  glColor3f(1.0, 1.0, 0.0);
  glRasterPos2i(20, 50);
  PrintText2D('abcdefghijklmnwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz');
end;
 
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
  OpenGLInitialized:=false;
  If not LoadOpenGL() then Halt(100);
  //...
end; {*FormCreate*}
 
 
procedure TMainForm.FormShow(Sender: TObject);
begin
  RC:=0;
 
  //pixelformat setzen und rendering context erstellen
  _SetPixelFormat(MainForm.Canvas);
  CreateRC;
 
  //opengl extensions auslesen
  ClearExtensions;
  ReadExtensions;
 
  //initialize glObjects
  glObject[1].id:=1;
  glObject[1].name:='linkes Objekt';
  glObject[2].id:=2;
  glObject[2].name:='zentrales Objekt';
  glObject[3].id:=3;
  glObject[3].name:='rechtes Objekt';
 
  //opengl szene initialisieren
  SetupGL;
 
  Application.OnIdle:=ApplicationEventsIdle;
 
  OpenGLInitialized:=true;
 
  BuildFont2D;
end; {*FormShow*}
 
 
procedure TMainForm.ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
var
  error: longint;
begin
  if not OpenGLInitialized then Exit;
 
  done:=false;
 
  //szene zeichnen
  DrawScene(GL_RENDER);
 
  //errorhandler
  error := glgetError;
  if Error<>GL_NO_ERROR then
  begin
    Caption:=gluErrorString(error);
    Done:=true; //rendern kurz anhalten
    FlashWindow(handle, true)
  end;
 
 
  SwapBuffers(Canvas.Handle)
end; (*ApplicationEventsIdle*)
 

font2d.pas:

Code:

 
procedure BuildFont2D;
var
  font, oldfont: HFONT;
 
begin
  //Schriftart erstellen
  Font2DBase := glGenLists(96);
 
  font := CreateFont(16,              // height of font
       0,                             // average character width
       0,                             // angle of escapement
       0,                             // base-line orientation angle
       FW_MEDIUM,                     // font weight
       0,                             // italic
       0,                             // underline
       0,                             // strikeout
       ANSI_CHARSET,                  // character set
       OUT_TT_PRECIS,                 // output precision
       CLIP_DEFAULT_PRECIS,           // clipping precision
       ANTIALIASED_QUALITY,           // output quality
       FF_DONTCARE or DEFAULT_PITCH,  // pitch and family
       'Courier New');                    // font
 
    oldfont := SelectObject(MainForm.canvas.handle, font);
    wglUseFontBitmaps(MainForm.canvas.handle, 32, 96, font2dbase);
    SelectObject(MainForm.canvas.handle, oldfont);
    DeleteObject(font);
 
end; (*Build Font*)
 
 
procedure KillFont2D;
begin
    glDeleteLists(Font2DBase, 96);
end;
 
 
 
procedure PrintText2D(const Text: String);
begin
  if (Text = '') then
    Exit;
  glPushAttrib(GL_LIST_BIT);
    glListBase(Font2DBase - 32);  // Set the base list to our character list
    glCallLists(Length(text), GL_UNSIGNED_BYTE, PChar(Text)); // Display the text
  glPopAttrib()
end; (*PrintText*)
 

_SetPixelFormat(handle: THandle) ist in einer separaten unit... aber das funzt ja sonst würd ich ja nen fehler bekommen oder es würde gar nichts anzeigen...

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Mo Mär 24, 2003 15:33

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Also ich sags nochmal, denn es hat schon oft Probleme gemacht.Esetz deshalb MainForm.Canvas.Handle überall durch MainForm.Handle.

Außerdem gibt man Text normalerweise im 2D-Modus (sprich glOrtho) aus.Wechsel also mal vor der Textausgabe in den orthogonalen Modus und versuch den Text nochmal auszugeben.

Wenn das auch nix bringt, dann lad dein Programm mal irgendwo hoch und ich werds mir vielleicht mal genauer ansehen.

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

chuckylein

Betreff des Beitrags:

Verfasst: Mo Mär 24, 2003 15:51

DGL Member

Registriert: Fr Mär 14, 2003 23:00
Beiträge: 24

dann kann erstens kein RC erstellt werden
und zweitens kommt eine Delphi meldung "Cannot change Visible in OnShow or OnHide"
-> Bild bleibt grau (gar nix passiert)

hab es mal geuppt, wenn du dirs ma anschaust, wär echt nett:
<a href='http://www.2-ways.de/websites/chucky/unused/test.rar' target='_blank'>http://www.2-ways.de/websites/chucky/unused/test.rar</a>

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Mo Mär 24, 2003 15:54

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Werds mir dann mal ansehen...allerdings ist es eine schlechte Idee, den Rendercontext in OnShow zu erstellen, da dort der DC gewechselt wird, und es auch sonst ne schlechte Stelle für Initialisierungen ist, da dieses Ereignis ja z.B. beim Taskswichtung nochmal aufgerufen wird.

Erstelle deinen Rendercontext also im OnCreate-Ereignis und dann sollte die Sache mit dem MainForm.Handle ohne Probs funzen.Vielleicht klappt dann auch die Schriftausgabe!

Edit :
Wäre toll, wenn du auch das richtige Projekt hochgeladen hättest.Ihn dem Projekt das sich hinter deinem Link versteckt, iss nix zum Thema 2D-Font drinne... :angry:

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

chuckylein

Betreff des Beitrags:

Verfasst: Mo Mär 24, 2003 16:04

DGL Member

Registriert: Fr Mär 14, 2003 23:00
Beiträge: 24

rofl ich depp.. so habs jetzt geuppt.. sorry :/ lag daran weil ich die beiden projekte gleich benannt hab ...

geht auch nich wenn ichs im oncreate hab

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Mo Mär 24, 2003 16:17

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Naja, wie ich in meinem letzten Posting gesagt hab!
Schalt vor der Textausgabe in den Orthomodus, und die Sache funzt ohne Probleme :

Code:

 
[...]
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
glOrtho(0,640,480,0,-2,2);
glMatrixMode(GL_MODELVIEW);
glColor3f(1.0, 1.0, 1.0);
LineOut(5, 6,'Hilfe:');
glColor3f(1.0, 1.0, 0.0);
glRasterPos2i(20, 50);
PrintText2D('abcd');
[...]
 

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

SchodMC

Betreff des Beitrags:

Verfasst: Mo Mär 24, 2003 16:19

DGL Member

Registriert: Fr Jul 12, 2002 07:15
Beiträge: 916
Wohnort: Dietzhölztal / Hessen
Programmiersprache: C/C++, Obj-C

Also, ich hatte mit Canvas auch Probleme. Hab' dann einen eigenen DC erstelle (GetDC(Form.Handle)) und ab da keinerlei Probleme mehr. Font darstellen ging bei mir mit VCL, aber nur wenn ich mit Hilfe von glOrtho eben die Ortho-Matrix gesetzt hab. Sonst hab' ich auch keine Schrift angezeigt bekommen. Die Schrift im Projection-Matrix Modus anzuzeigen Funktioniert wohl nur mit OutlinedFont. Würd' ich aber für die Normale Text-Ausgabe nicht empfehlen, da hier keine Quads zur Darstellung sondern richtige 3D-Objekte verwendet werden. Dadurch leidet die Performance und der verwendete Speicher. Als OutlinedFont nur dann verwenden, wenn's auch Sinn macht!

_________________
Und was würdest Du tun, wenn Du wüsstest, dass morgen Dein letzter Tag auf dieser Erde ist?

Nach oben

chuckylein

Betreff des Beitrags:

Verfasst: Mo Mär 24, 2003 16:40

DGL Member

Registriert: Fr Mär 14, 2003 23:00
Beiträge: 24

cool jetzt gehts.. danke

allerdings beisst sich das jetzt mit der namestack funktion getselectedbufferhit...
bekomme accessviolations

liegt aber daran dass ich irgendwie glOrtho mach
wie kann ich denn den view zurücksetzen wie er war? mit push und pop klappts irgendwie nich

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Mo Mär 24, 2003 17:01

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Das Problem war bei mir auch.Das hat aber nix mit glOrtho zu tun, sondern der Tatsache das deine Schrift ja auch ein Objekt darstellt und diese beim Klick einen Namen zurückliefert.
Dieser ist dann aber ungültig und ihm ist ja logischerweise kein Platz in deinem glObject-Array zugewiesen.Also führt das beim Klick auf die Schrift zu nem Überschreiten deiner Arraygrenzen.

Umgehen lässt sich das aber ganz einfach indem du vor dem Ausgeben der Schrift mittels glPushName(0); ne 0 auf den Namestack legst.Das müsste einwandfrei funzen!

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

chuckylein

Betreff des Beitrags:

Verfasst: Mo Mär 24, 2003 17:27

DGL Member

Registriert: Fr Mär 14, 2003 23:00
Beiträge: 24

jepp, fehler weg, aber getselectedbufferhit gibt jetzt nur noch -1 zurück.. mach ich wohl irgendwas mit push und pop matrix falsch oder?

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Mo Mär 24, 2003 17:37

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

Das sollte funzen :

Code:

 
[...]
if Mode <> GL_SELECT then
 begin
 glMatrixMode(GL_PROJECTION);
 glPushMatrix;
 glMatrixMode(GL_MODELVIEW);
 glPushMatrix; 
 
 // Text ausgeben
 
 glMatrixMode(GL_PROJECTION);
 glPopMatrix;
 glMatrixMode(GL_MODELVIEW);
 glPopMatrix; 
end;
[...]
 

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

Seite 2 von 3

[ 44 Beiträge ]

Gehe zu Seite Vorherige 1, 2, 3 Nächste

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 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.