fedan, сделай OpenGLControl.MakeCurrent перед Load_GL_VERSION_3_1().
Добавлено спустя 30 секунд:
Только это можно сделать уже после создания формы...
Модератор: Модераторы
shyub писал(а):простой квадрат загружает одно ядро на 50%, второе - на 75
procedure TForm1.FormCreate(Sender: TObject);
begin
OpenGLControl1.AutoResizeViewport := true;
// Application.AddOnIdleHandler(@OnAppIdle);
end;
procedure TForm1.IdleFunc(Sender: TObject; var Done: boolean);
begin
Done:=true; // true - метод вызывается при наличиии сообщений, false - постоянно.
if flagRepainGL then OpenGLControl1.Invalidate;
end;
OpenGLControl1.AutoResizeViewport := true;
shyub писал(а):если AutoResizeViewport установлен в инспекторе объектов
Сейчас этот форум просматривают: Yandex [Bot] и гости: 63