Дельфи и OpenGL + прозрачность цвета

[ImmortalAlexSan]

Всем привет. OpenGL выводит на контекст устройства графику. Так если я задаю вывод на канву формы (обычной) вот таким кодом к примеру:

procedure pSetDCPixelFormat(aHDC:HDC);
var
  nPFD:TPixelFormatDescriptor;
  nPixelFormat:Integer;
begin
  FillChar(nPFD,sizeof(nPFD),0);
  nPFD.dwFlags  := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
  nPixelFormat:=ChoosePixelFormat(aHDC,@nPFD);
  SetPixelFormat(aHDC,nPixelFormat,@nPFD);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  pSetDCPixelFormat(Canvas.Handle);
  HRC:=wglCreateContext(Canvas.Handle);
  WindowState:=wsMaximized;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  wglDeleteContext(HRC);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  wglMakeCurrent(Canvas.Handle,HRC);
  glClearColor(0.0,0.0,0.0,1.0);
  glClear(GL_COLOR_BUFFER_BIT);
  glViewport(0,0,ClientWidth,ClientHeight);
  glPointSize(200);
  glColor3f(1.0,1.0,1.0);
    glBegin(GL_POINTS);
      glVertex2f(1,1);
    glEnd;
  SwapBuffers(Canvas.Handle);
  wglMakeCurrent(0,0);
end;

Канва формы заливается черным цветом и рисуется одна четвертая часть круга справа вверху, если я задам прозрачность у формы:

transparentColor:=true;
transparentColorValue:=ClWhite;

То по идее через белый цвет я должен видеть рабочий стол. А этого не происходит. От сюда вопрос: почему? и: как исправить? Может быть этот стандартный метод не прокатывает с OpenGL? Заранее спасибо.

[notHaker]

Он не прокатывает ни с OpenGL, ни с DirectX. Всё это из-за присутствия эффектов при отрисовке формы. Выход один (я так уже делал). Формировать опеном изображение в PBO, затем из PBO делать виндовский блит на канву формы. Теряется скорострельность кадров, но зато это серавно быстрее чем обычно.
З.Ы. Это кстати метод разработчиков Opera. Они так ускоряют (аппаратно) графику в браузере. Где -то на забугорном ресурсе прочитал.

[Somebody]

но зато это серавно быстрее чем обычно

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

[ImmortalAlexSan]

notHaker, нашел вашу тему, созданную недавно, http://www.programmersforum.ru/showthread.php?t=114325, буду читать, то, что вам там порекомендовали, а с наводкой помогли, спасибо вам! (И как я не нашел ее до создания своей..) В общем спасибо, будут проблемы - обращусь. Только вот что такое PBO и FBO - не пойму никак... С поиском по инэту про PBO и FBO много тем накопал на нашем форуме. Я так понял, что PBO и FBO - это форматы текстур? т.е. картинки простые?

[notHaker]

Ну подумайте сами... Залили в видюху текстуры-атласы, сложили там же изображение с учётом альфа-канала и прочих эффектов. Забрали битмап, а затем сделали блит (его винда поддерживает аппаратно) на нужную форму. Ну и получается одно "узкое" место - это "видюха -> система -> видюха", которое оптимизируем до неузнаваемости. Да, пересылка между системной памятью и видюшной очень медленная, но если сравнить с вычислениями альфа-канала на процессоре и, того хуже, эффектов ( размытие например ) определённо получается выигрыш! яркий тому пример - "Adobe Flash".

вот что такое PBO и FBO - не пойму никак...

PBO - Pixel Buffer Object. Старый проверенный способ.
FBO - Frame Buffer Object. Быстрый, но сравнительно новый. Поэтому не универсальный, т.к. работает не везде.

И всё это относится к расширениям OpenGL

[ImmortalAlexSan]

Спасибо за пояснение, буду копаться...

[DomiNick]

А этого не происходит.

А если дизайнтайм эти свойства выставить?
Правда у меня почему-то не четверть круга, а квадрат получается так.....

[ImmortalAlexSan]

DomiNick, не получается при дизайнтайм... а квадрат - потому что не включено glEnable(GL_POINT_SMOOTH);, вот тогда будет круг.

[DomiNick]

Без TransparentColor показывает круг, с TransparentColor стабильно показывает дырку в виде почему-то квадрата (причём раза в 3 больше точки)...
А с GL_TRIANGLES или GL_QUADS вроде всё нормально получается... (WindowsXP Professional SP3 FinalEdition)

Вот если TransparentColor включать рантайм (точнее после pSetDCPixelFormat), то жутчайшие артефакты получаются... х__х

P.S. А почему оно рисуется в MouseMove? Это ж как минимум неудобно...