искал да, плохо. смотри 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;
|