Показать сообщение отдельно
  #2  
Старый 20.07.2010, 19:21
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

искал да, плохо. смотри CreateFontIndirect и wglUseFontBitmaps, затем пиши что хочешь (в ортогональной проекции):
Код:
procedure glPrint(x,y: GLfloat; AText: PChar; VAlign: Byte = 0);
begin
  glEnable(GL_TEXTURE_2D);
  glPushAttrib(GL_LIST_BIT);
  glListBase(txtFont-32);
  if(VAlign=0)then
    glRasterPos2f(x,y+12)
  else
  if(VAlign=1)then
    glRasterPos2f(x,y+6)
  else
    glRasterPos2f(x,y);
  glCallLists(Length(AText), GL_UNSIGNED_BYTE, AText);
  glPopAttrib;
end;
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием