- procedure BuildFont;
- var Font: HFONT;
- begin
- base := glGenLists(96);
- font := CreateFont(-14, 0, 0, 0, FW_BOLD, 0, 0, 0, ANSI_CHARSET, OUT_TT_PRECIS, CLIP_DEFAULT_PRECIS, ANTIALIASED_QUALITY, FF_DONTCARE or DEFAULT_PITCH, 'Courier New');
- SelectObject(h_dc,font);
- wglUseFontBitmaps(h_dc,32,96,base);
- end;
- procedure KillFont;
- begin
- glDeleteLists(base,96);
- end;
- procedure glPrint(text: string);
- begin
- if text = '' then exit;
- glPushAttrib(GL_LIST_BIT);
- glListBase(base - 32);
- glCallLists(length(text),GL_UNSIGNED_BYTE,Pchar(text));
- glPopAttrib;
- end;