Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

PFD_DOUBLEBUFFER;

iPixelType:= PFD_TYPE_RGBA;

cColorBits:= 16;

cDepthBits:= 64;

iLayerType:= PFD_MAIN_PLANE;

end;

nPixelFormat:=ChoosePixelFormat(DC,@pfd);

SetPixelFormat(DC,nPixelFormat,@pfd);

end;

procedure TForm1.BeginPaint;

begin

glEnable(GL_LIGHTING);

glEnable(GL_LIGHT0);

glEnable(GL_DEPTH_TEST);

glEnable(GL_NORMALIZE);

glEnable(GL_COLOR_MATERIAL);

timer1.enabled:=true;

end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

H:=Handle;

DC:=GetDC(H);

SetDCPixelFormat(DC);

RC:=wglCreateContext(DC);

Рекомендуем скачать другие рефераты по теме: реферат сила, культурология как наука.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата