- //
- procedure createOGLFont(dc : HDC);
- var oldFont : HGDIOBJ;
- begin
- fontListBase:= glGenLists(256);
- oldFont:= SelectObject(dc,GetStockObject(SYSTEM_FONT));
- //
- wglUseFontBitmaps(dc,0,255,fontListBase); //invalides Handle momentan
- SelectObject(dc,oldFont);
- end;