| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Восстановление исходного изображения при FormResize [D6, D7, Win2k, WinXP]
Strimer © (2004-05-11 10:43:00)т.е. есть начальное положение системы, её поворачиваем glRotatef и glTranslatef, а когда разворачиваю форму "на весь экран" востанавливается начальное положение...
так понимаю, что проблема где-то здесь, но разобраться с описанными здесь действиями не могу... :(
procedure TfrmGL.FormResize(Sender: TObject);
var
gldAspect : GLdouble;
begin
wglMakeCurrent(Canvas.Handle, hrc);
gldAspect := ClientWidth / ClientHeight;
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluPerspective(30.0, gldAspect,1.0,50.0);
glViewport(0, 0, ClientWidth, ClientHeight);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity;
glTranslatef (0.0, 0.0, -25.0);
Invalidate;
wglMakeCurrent(0, 0);
end;
Strimer (2004-05-11 15:58:00) [1]Мастера, могли бы вы подробно пояснить, что и какие действия выполняются в процедуре FormResize на моей графической системе...
Strimer (2004-05-11 13:43:00) [2]здесь полный текст модуля, если есть какие-нить предположения с чем может быть связана проблема - поделитесь, плз...
http://www.grifson.nm.ru/diplom.txt
| |
