TextSuite will nicht

[EWeiss]

Danke für den Tip mit den Border..

Zitat:

Ich persönlich würde da wohl die sauberere Schrift vorziehen. Aber diese Entscheidung liegt bei dir.

Auf jedenfall eine saubere Schrift.

das Sample sieht jetzt schon mal besser aus.

Delphi-Quellcode:

procedure glPrintXY(x, y : GLFloat;
                    fWidth,
                    fHeight : GLFloat;
                    text    : pchar;
                    fontset : tsFontID; Textalign: Integer);

begin

  tsTextColor3f(1, 1, 1);
  tsFontBind(fontset);
  tsSetParameteri(TS_ALIGN, Textalign);

  glMatrixMode(GL_PROJECTION);
  glLoadIdentity(); 
  glOrtho(0,fWidth,0,fHeight,-100,100); 
  glMatrixMode(GL_MODELVIEW); 
  glLoadIdentity();

  glPushMatrix();
    glTranslated(x, y, 0);
    glScalef(1, -1, 1);
    tsTextOutA(text);
  glPopMatrix();

end;


procedure TMainForm.FormPaint(Sender: TObject);
begin

  glClear(GL_COLOR_BUFFER_BIT);

  glMatrixMode(GL_PROJECTION); 
  glLoadIdentity; 
  gluPerspective(45, ClientWidth / ClientHeight,  1, 1000.0); 
  glMatrixMode(GL_MODELVIEW); 
  glLoadIdentity;

  glPrintXY(15,
            13,
            Width,
            Height,
            'TextSuite Sample - Single Line',
            fLargeFontID,
            TS_ALIGN_LEFT);

  // Check for Errors
  CheckError;

  SwapBuffers(fDC);
end;

Kommt natürlich auch auf den Font an den man benutzt
Habe zum testen mal cyberbit.ttf genommen .. geht aber nicht als standard 12MB für einen Font ist schon arg

Sample Ok kann ich gut mit leben
Vis unidentifizierbare Blöcke von irgendwas
Da ist arg was daneben.
EDIT:
openGL error 1282

Bilder im Anhang

gruss Emil