| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Растровые шрифты в классах (OpenGL API) [Delphi, Windows]

Toxic ©   (2005-06-03 22:39:00) 

Здравствуйте, Уважаемые.
Нужна консультация по такому вопросу, как генерация растровых шрифтов с использованием wglUseFontBitmaps.
Есть две функции:
F1
var font : HFONT;
begin
_FNT := 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,
'TemplateCapsSSK');
SelectObject(wglGetCurrentDC, font);      
wglUseFontBitmaps(h_DC, 32, 96, _FNT);  
end;
и
F2 для рендера надписей
var drawRect : TRect;
begin
glPushAttrib(GL_DEPTH_TEST);  
glDisable(GL_DEPTH_TEST);    
glDisable(GL_TEXTURE_2D);    
glMatrixMode(GL_PROJECTION);  
glPushMatrix();              
glLoadIdentity();

GetWindowRect(GetDesktopWindow(), drawRect);  
glOrtho(0, drawRect.right, 0, drawRect.bottom, -1, 1);
glMatrixMode(GL_MODELVIEW);
glPushMatrix();            
glLoadIdentity();
glColor3f(0.0, 0.4, 0.0);  

glRasterPos2i(X, Y);                    
glPushAttrib(GL_LIST_BIT);              
glListBase(_FNT - 32);            
glCallLists(length(text), GL_UNSIGNED_BYTE, PChar(text));
glPopAttrib();                                      

glMatrixMode(GL_PROJECTION);
glPopMatrix();              
glMatrixMode(GL_MODELVIEW);  
glPopMatrix();              
glEnable(GL_TEXTURE_2D);    
glPopAttrib();              

Эти функции были мной позаимствованы с чужих исходников. И до тех пор, пока они висели вне всяких классов, все было нормально.
Стоило поместить их в классы, как все надписи прекратили существовать.
От чего это и как с этим бороться?

P.S.: Пока писал это, посетила мысль, что, возможно, проблема в том, что wglGetCurrentDC, находясь в классе или не может получить контекст текущего устройства, т.к. находится в отдельном потоке или чего-нибудь в этом роде. Возможно ли это?

---

XProger   (2005-06-04 00:05:00) [1]


SelectObject(h_DC, font);      
wglUseFontBitmaps(h_DC, 32, 96, _FNT);
DeleteObject(font);

А если так?

---

WondeRu   (2005-06-04 00:00:00) [2]

Стоило поместить их в классы, как все надписи прекратили существовать.
От чего это и как с этим бороться?
Еще раз проверять!

---

Наверх