Восстановление исходного изображения при FormResize

← →
Strimer © (2004-05-11 10:43) [0]

т.е. есть начальное положение системы, её поворачиваем 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 13:43) [1]

здесь полный текст модуля, если есть какие-нить предположения с чем может быть связана проблема - поделитесь, плз...

http://www.grifson.nm.ru/diplom.txt

Мастера, могли бы вы подробно пояснить, что и какие действия выполняются в процедуре FormResize на моей графической системе...

Восстановление исходного изображения при FormResize Найти похожие ветки