Вопрос по OpenGLControl

[TehnikHarlan]

Здраствуйте народ. Столкнулся с непонятной для меня проблемой, строго не судите , поскольку я не особо специалист. Проблема в следующем. Раньше писал на в Лазарусе 1.8.4. Сейчас пересел на другой компютер установил последнюю версию лазаруса 2.0.4 и теперь не могу работать))) Вот такой минимальный код отказывается работать:

procedure TForm1.FormCreate(Sender: TObject);
begin

glClearColor(220/255, 220/255, 220/255, 1); //задаю цвет
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); // очищаю буферы

form1.OpenGLControl.SwapBuffers; // тут экран должен заполнится выше заданим цветом

end;

Ошибок не видает но ничего не происходит.

Хотя на старом компютере в версии 1.8.4 он работает. Подскажите пожалуйста с чем это может бить связано.

[Vadim]

TehnikHarlan
А Вы свою программу из консоли запускаете? Если нет - попробуйте из консоли, возможно что-то напишет, тогда будет понятнее...

[TehnikHarlan]

Я под виндовс 10, через cmd запустилось да и все) ниче не написало. Кстате принесенное откомпилированое тестовое приложение с нового компа на старий, заработало на старом) Может не хватает каких то компонентов для свежоустановленого вин 10 на новом компютере?)

[serbod]

Насколько я понял из https://wiki.lazarus.freepascal.org/OpenGL_Tutorial
нужно отрисовку делать в событии OnPaint

[zub]

Подобным действиям не место в FormCreate

[TehnikHarlan]

Да неважно где визивать. Отрисоватся должно при .SwapBuffers, а где его вызывать SwapBuffers не важно, я отрисовую когда мне устройство накинет через езернет полний кадр. Проблема в том что у меня OpenGLControl какой то дохлый) ниче не рисует совсем, неважно в OnPaint, по кнопке, по таймеру нигде. А этот кусок кода простой пример, который я просто в новом проекте сделал. Вот сейчас кидаю на Форму OpenGLControl1, Button1 и текст юнита такой:


unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, OpenGLContext,
Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, gl, glu, LCLType,
Menus, ComCtrls, EditBtn;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
OpenGLControl1: TOpenGLControl;
procedure Button1Click(Sender: TObject);
private

public

end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
glClearColor(0.5, 0.6, 0.7, 1); //задаю цвет
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); // очищаю буферы
form1.OpenGLControl1.SwapBuffers; // тут экран должен заполнится выше заданим цветом
end;

end.

По нажатию кнопки должно зарисовать фон каким то цветом(0.5,0.6,0.7), а ничего не происходит))

[zub]

Дровишки от производителя видеочипа накатите на свежеустановленную десятку.
>>Да неважно где визивать.
Откуда инфа? вас обманули
Большинство опенглных функций работает только при наличии активного контекста. OpenGLControl конечно берет на себя создание контекста, но:
1. вы уверенны что в FormCreate контекст уже создан?
2. надо смотреть что за контекст создает по умолчанию OpenGLControl. вполне возможно что он полагается на то что делает драйвер по умолчанию. тогда откуда уверенность что на этом контексте будет двойная буферизация?

Добавлено спустя 3 минуты 55 секунд:
>>Сейчас пересел на другой компютер установил последнюю версию лазаруса 2.0.4 и теперь не могу работать)))
Вместо того что чтото кудато кинуть и чтото гдето прописать, проинициализируйте и проверте все. Тогда будет работать независммо от версий среды\оси, разрядности и производителя оборудования

[sts]

попробуйте стандартный пример
lazarus\examples\openglcontrol\openglcontrol_demo.lpi
если не поможет значит надо думать, например запустить под отладчиком

Добавлено спустя 7 минут 2 секунды:
по моим наблюдениям в вин10 работа с апи (любым) стала както более строгим, тобишь, формально обязательные для вызова функции инициализации ранее работало и без них а в 10ке уже нет, приходится разбираться и править старый код

[Alex2013]

Так работает (Лазарус 2.04 32-х битная версия под Win10 64 )...

Код: Выделить всё

unit Unit1;
{$mode objfpc}{$H+}
interface
uses
  Windows,  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
  gl, glu,    OpenGLContext;
type
  { TForm1 }
  TForm1 = class(TForm)
    Button1: TButton;
    OpenGLControl1: TOpenGLControl;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure OpenGLControl1Paint(Sender: TObject);
  private
  public
  end;
var
  Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
OpenGLControl1.OnPaint:=@OpenGLControl1Paint;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
glClearColor(1, 0, 0, 0);
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
OpenGLControl1.SwapBuffers;
end;
procedure TForm1.OpenGLControl1Paint(Sender: TObject);
begin
glClearColor(0, 1, 0, 0);
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
OpenGLControl1.SwapBuffers;
end;
end.


Причем кнопка тоже (хотя и "не правильно" то есть пока не вызывается полная перерисовка формы )...
..но только при OpenGLControl1.OnPaint:=@OpenGLControl1Paint;

[zub]

>>Так работает ...
И еще есть миллион случайных комбинаций которые гденибудь работают

[Alex2013]

В этом случае все понятно .
При наличии правильной ссылки OpenGLControl1.OnPaint происходит инициализация контекста .
(Кто помнит "чистый OpenGL"(Через WinAPI) знает что он требует ссылки на "DC"(Дисплейный контекст) который нужно получить отдельно )
А OpenGLControl из лазаруса делет это "скрыто от пользователя" но понятное дело перед первым вызовом процедуры на которую ссылается OpenGLControl1.OnPaint . То есть, можно вообще, оставить процедуру TForm1.OpenGLControl1Paint ПУСТОЙ но кнопка сработает .
Зы
Проверил "пустая процедура" действительно работает . ( Возможно в старой версии DC получали при создании OpenGLContro-а или в программе все-же была рабочая ссылка в OpenGLControl1.OnPaint )
Зы Зы
Минимизация "убила красный флаг" так что OpenGLControl1Paint нужно все же использовать нормально .

[zub]

>>Да нет, в этом случае все понятно .
Дак да или нет? что понятно?

>>При наличии правильной ссылки OpenGLControl1.OnPaint происходит инициализация контекста .
Инициализация контекста происходит и без ссылки. только в какой момент? кто гарантирует что до вызова FormCreate? на всех поддерживаемых платформах?

>>(Кто помнит "чистый OpenGL" знает что он требует ссылки на "DC"(Дисплейный контекст) который нужно получить отдельно )
пьем таблетки, лечим виндовс головного мозга

>>А OpenGLControl из лазаруса делет это "скрыто от пользователя" но понятное дело перед первым вызовом процедуры на которую ссылается
И он такой умный, делает всегда как нам надо... если ты хочешь чтоб ктото сделал так как тебе надо (двойная буферизация, буфера цвета, глубины, да малоли что) - будь добр, управляй этим или хотябы контролируй это.

>>То есть, можно вообще, оставить процедуру TForm1.OpenGLControl1Paint ПУСТОЙ но кнопка сработает .
ты врешь. кнопка сработает не везде. например в qt она не сработает - там запрещена отрисовка снаружи paintmessage

[Alex2013]

по моим наблюдениям в вин10 работа с апи (любым) стала как-то более строгим, тобишь, формально обязательные для вызова функции инициализации ранее работало и без них а в 10ке уже нет, приходится разбираться и править старый код

То-же вариант ... Возможно ранее DC каким-то образом брался "по умолчанию ".

Добавлено спустя 2 минуты 28 секунд:

ты врешь. кнопка сработает не везде. например в qt она не сработает - там запрещена отрисовка снаружи paintmessage

Вроде разговор про Виндовс 10...
И мои надежды на "хитрый" OpenGL прогнозируемо провалились и я рекомендую использовать нормальный рендер в OpenGLControl1Paint . Впрочем например в моей программе используется "вывод на битмап" как что варианты все-же есть (но это уже точно не про ТOpenGLControl, а про "чистый OpenGL через WniAPI " так что офф топ ).

Зы
Как очищать при запуске? Ну думаю достаточно отследить первый запуск перерисовки ...
Как-то так .

Код: Выделить всё

procedure TForm1.OpenGLControl1Paint(Sender: TObject);
Const FStart:Boolean= true;
begin
// Очистка при старте..
if FStart then begin
glClearColor(0, 1, 0, 0);
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
OpenGLControl1.SwapBuffers;
FStart:=False;
end;

//.... Основной код рендера .

end;


Хотя если честно то это "мартышкин труд " ( потому что рендер так или иначе должен уметь перерисовывать текущий кадр целиком в любой момент времени . )

[zub]

Разговор о том как сделать правильно.
Настроить контрол. В нужные моменты вызывать перерисовку контрола соответствующими методами. В OnPaint контрола рисовать то что надо.
А фантазии про пустые кнопки и диси поумолчанию лучше держать при себе

[Alex2013]

А фантазии про кнопки ...

Проверил в Вин 10 работает.. (Причем именно так как и ожидалось. )

и диси по умолчанию лучше держать при себе....

Код: Выделить всё

procedure TCustomOpenGLControl.Paint;
begin
  if IsVisible and HandleAllocated then begin
    UpdateFrameTimeDiff;
    if IsOpenGLRenderAllowed and ([csDestroying]*ComponentState=[]) then begin
      if AutoResizeViewport then begin
        if not MakeCurrent then exit;
        LOpenGLViewport(Handle,0,0,Width,Height);
      end;
    end;
    //LOpenGLClip(Handle);
    DoOnPaint;
  end;
end;
procedure TCustomOpenGLControl.DoOnPaint;
begin
  if Assigned(OnPaint) then begin
    if not MakeCurrent then exit;
    OnPaint(Self);
  end;
end;
...
TCustomOpenGLControl...
function MakeCurrent(SaveOldToStack: boolean = false): boolean; virtual;
...
function TCustomOpenGLControl.MakeCurrent(SaveOldToStack: boolean): boolean;
var
  Allowed: Boolean;
begin
  if not IsOpenGLRenderAllowed then exit(false);
  if Assigned(FOnMakeCurrent) then begin
    Allowed:=true;
    OnMakeCurrent(Self,Allowed);
    if not Allowed then begin
      Result:=False;
      exit;
    end;
  end;
  // make current
  Result:=LOpenGLMakeCurrent(Handle);
  if Result and SaveOldToStack then begin
    // on success push on stack
    if OpenGLControlStack=nil then
      OpenGLControlStack:=TList.Create;
    OpenGLControlStack.Add(Self);
  end;
end;

и т.д.


Что непонятного ? Инициализация происходит при наличии OnPaint<>Nil
" if Assigned(OnPaint) then begin..."
(Хотя если совсем честно то копать весь код OpenGLContext (что-бы встановить, что именно не срабатывает при OnPaint=Nil )мне лень, но что там еще может быть ? )
Зы

Насчет DC: Да, вероятно в нормальном случае в Лазарусе (А не как у меня с выводом на битмап ) достаточно готового Handle но это уже вопрос реализации надстройки над WinAPI .

Код: Выделить всё

procedure LOpenGLSwapBuffers(Handle: HWND);
var
  Info: PWGLControlInfo;
begin
  Info:=GetWGLControlInfo(Handle);
  // don't use wglSwapLayerBuffers or wglSwapBuffers!
  SwapBuffers(Info^.DC);
end;


Зы Зы
Кстати, проверить перед ответом суть проблемы "на практике" никто кроме меня в теме не удосужился ... Теоретики ...