VPF::Canvas для OpenGL - Форум программистов

Ofer

Дата 15.1.2009, 21:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 293
Регистрация: 15.10.2006
Где: КривбаСС

Репутация: нет
Всего: 5

Доброе время суток! Вопрос: можно ли для вывода графики OpenGL использовать канву не формы, а других компонентов, например на PaintBox или Image?

Alexeis

Дата 15.1.2009, 22:27 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Ofer, реальный DC есть только у оконных компонентов. По идее с PaintBox может получиться, а вот с имагой сложнее, там есть способ, но он хитрее, кроме того в этом случае эффективность падает ниже плинуса, поскольку рисование идет в режиме эмуляции без аппаратного ускорения.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Ofer

Дата 15.1.2009, 22:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 293
Регистрация: 15.10.2006
Где: КривбаСС

Репутация: нет
Всего: 5

С PaintBox я пробовал ничего не вышло. Поэтому и спросил. Может код не правильный? Хотя с формой он работает, даже не смотря на то, что наскоро написан и собран из нескольких примеров smile

....

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OpenGL, ExtCtrls;

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
Var
  Window : HWnd;
  Message : TMsg;
  dc : HDC;
  hrc : HGLRC;
  MyPaint : TPaintStruct;
  quardObj : GLUquadricObj;

implementation

{$R *.dfm}
procedure SetDCPixelFormat (hdc : HDC);
var
 pfd : TPixelFormatDescriptor; // данные формата пикселей
 nPixelFormat : Integer;

Begin

 With pfd do begin
  nSize := sizeof (TPixelFormatDescriptor); // размер структуры
  nVersion := 1;                            // номер версии
  dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL; // множество битовых флагов, определяющих устройство и интерфейс
  iPixelType := PFD_TYPE_RGBA; // режим для изображения цветов
  cColorBits := 16;            // число битовых плоскостей в каждом буфере цвета
  cRedBits := 0;               // число битовых плоскостей красного в каждом буфере RGBA
  cRedShift := 0;              // смещение от начала числа битовых плоскостей красного в каждом буфере RGBA
  cGreenBits := 0;             // число битовых плоскостей зелёного в каждом буфере RGBA
  cGreenShift := 0;            // смещение от начала числа битовых плоскостей зелёного в каждом буфере RGBA
  cBlueBits := 0;              // число битовых плоскостей синего в каждом буфере RGBA
  cBlueShift := 0;             // смещение от начала числа битовых плоскостей синего в каждом буфере RGBA
  cAlphaBits := 0;             // число битовых плоскостей альфа в каждом буфере RGBA
  cAlphaShift := 0;            // смещение от начала числа битовых плоскостей альфа в каждом буфере RGBA
  cAccumBits := 0;             // общее число битовых плоскостей в буфере аккумулятора
  cAccumRedBits := 0;          // число битовых плоскостей красного в буфере аккумулятора
  cAccumGreenBits := 0;        // число битовых плоскостей зелёного в буфере аккумулятора
  cAccumBlueBits := 0;         // число битовых плоскостей синего в буфере аккумулятора
  cAccumAlphaBits := 0;        // число битовых плоскостей альфа в буфере аккумулятора
  cDepthBits := 32;            // размер буфера глубины (ось z)
  cStencilBits := 0;           // размер буфера трафарета
  cAuxBuffers := 0;            // число вспомогательных буферов
  iLayerType := PFD_MAIN_PLANE;// тип плоскости
  bReserved := 0;              // число плоскостей переднего и заднего плана
  dwLayerMask := 0;            // игнорируется
  dwVisibleMask := 0;          // индекс или цвет прозрачности нижней плоскости
  dwDamageMask := 0;           // игнорируется
 end;

 nPixelFormat := ChoosePixelFormat (hdc, @pfd); // запрос системе - поддерживается ли выбранный формат пикселей
 SetPixelFormat (hdc, nPixelFormat, @pfd);      // устанавливаем формат пикселей в контексте устройства
End;



procedure TForm1.FormCreate(Sender: TObject);
begin
  DC := GetDC(Form1.PaintBox1.Canvas.Handle);
  SetDCPixelFormat(Form1.PaintBox1.Canvas.Handle);
  hrc := wglCreateContext (Form1.PaintBox1.Canvas.Handle);
  quardObj := gluNewQuadric();
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  wglDeleteContext(hrc);
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
  wglMakeCurrent(Form1.PaintBox1.Canvas.Handle, hrc);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glClearColor (1.0, 1.0, 1.0, 1.0);
  glClear (GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glPointSize(10);
  glPushMatrix;
  glEnable(GL_DEPTH_TEST);
  glRotate(20,1,0,0);
  glRotate(15,0,1,0);
  glBegin(GL_LINES);
    glColor3f(0.0,0.0,0.0);
    glVertex3f(-1.0,0.0,0.0);
    glVertex3f(1.0,0.0,0.0);

    glColor3f(1.0,0.0,0.0);
    glVertex3f(0.0,1.0,0.0);
    glVertex3f(0.0,-1.0,0.0);

    glColor3f(0.0,1.0,0.0);
    glVertex3f(0.0,0.0,1.0);
    glVertex3f(0.0,0.0,-1.0);
  glEnd;
  glColor3f(0.0,0.0,1.0);
  gluQuadricDrawStyle(quardObj,GLU_LINE);
  gluSphere(quardObj,1,50,50);
  glDisable(GL_DEPTH_TEST);
  glPopMatrix;
  glFlush;
  SwapBuffers(DC);
  wglMakeCurrent(0, 0);
end;

end.

Alexeis

Дата 15.1.2009, 23:05 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

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

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »