Форум: "Media";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];
ВнизВосстановление исходного изображения при 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
← →
Strimer © (2004-05-11 15:58) [2]Мастера, могли бы вы подробно пояснить, что и какие действия выполняются в процедуре FormResize на моей графической системе...
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.032 c