Скачать: CL | DM;

Восстановление исходного изображения при 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c