������� ���������� ����������: ��� � �������� �����

����� ��������� �������� �� ������ ���������� ���������. ����� ������������ ������� - GetDC, wglMakeCurrent, glEnable(� ���������� 3 �����������) - � ��������� TForm1.FormCreate, glNormal3f - � TForm1.Paint.

��� ������� ��������� ��������������� ���������� 3 ��������:

1. C������� ����� - OnCreate, � ����������� ����� ������� ��������� ������ ���������� �� ��������� ����������: ��������� ���������� (�������� �� -180 �� 180, ���� ������ ����, ������ � ������ ���� �����) � ���� ����� �������� 400 �� 400 �������� (Form1.Width := 400 � Form1.Height := 400) , ����� � ���������� DC �������� ������ �� ���������� �� ������� ����� ��������, ��� �������� ��������� SetDCPixelFormat(DC) ���������� ������ ������� ���������� (� ������ ������ ��� ������ Form) - ����� ��� ��������� ���: ������, ��� ����� - �������� ��� ����. � ��� ��� ���� ���������� - wglCreateContext(DC) - ����������� ���� ���-�� ������������ � ���������� - wglMakeCurrent(DC,hrc). ����� �������� ���� - � ����� ������� ����������: ���� ������ ���������, ��� ����� ������������ ���� - glEnable ( GL_LIGHTING ), ������ ���� �������� - glEnable ( GL_LIGHT0 ) � �������� ���� - glEnable ( GL_DEPTH_TEST ).
2. �������-����������� OnPaint �� ������ ���������� �� ���������� �������� - ������� ���������� ��������� ��������� ������� - glClear ������ � ����� ����������� (���������� ������� �� �������), ������� glNormal3f - ��������� �����������-������ "����� �����" - ���������� �������� �������� �� ����� ��������������� (�.� '1.0' �� '-1.0' � ��������) - � ��� ������? - � �� ��� ���� �������� ������ ����� ���������� �������.
3. ��� ���������� ���������� ������ ��������� OnDestroy ���������� ������� �� ����� ���� - ���, ��� �������� ������������ � �������� ��������� - ��� ������ � �������� ���������. �������� ���������� ���������� � ��� ��� ������� (������ ����� �� ������������-�������� OpenGL � ������������� ��� ���������).
� ���������� � ����������

��� �������� ���� ��������� � Delphi ���������� ��������� ��������� ��������:

1. ��������� ����� ��������� ��� ����� ������ � ������� TXT - ��������� / ��������� ��� ��������� - � ���������� ������ ������� "��� �����" ������� "��������� ���� (*.txt)".
2. ������� ���� ����� ��������� ���� � ����� ��������� � ����������� ���� ����� � ����� ������.
3. ��������� Delphi � ������ ����� ������ - ��� �������� ����� ���� �������� �� ���������, ������� ��� �� ������� �������� �� - ��� �����.
4. ������� �� ������� ������� Events � ��������� ������� ������ � ����� OnCreate, OnDestroy � OnPaint. ��� �� ���������� �������� 2 ��������� � ����� ����� ����� - ������ ������������ Standart\ScrollBar � ������ �������� �� ������� ���������.
5. ������� � ������ ��������� Unit1, ������� ��� ���� � �� ��� ����� �������� ����� �� ������ ������, ����� ��������������� ����������� ������ Ctrl+V.
6. ��������� ��� ����� ������ - F9.
���� ��� ������� ��������� - �� �������� ��� �� ���������, ��� � � Book3D ���������.
� ���������� � ����������