VPF::отрисовка OpenGL в разных окнах - Форум программистов

Moid

Дата 2.3.2007, 10:38 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 396
Регистрация: 27.3.2006

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

Я сейчас рисую на одной форме... проблем никаких не фозникает, но понадобилось выводить разную графику одновременно на 4-х формах.

//-----------------------------
Я пробовал делать так:
При создании формы устанавливаем воспроизведение на первую форму:

Код


//...
    if ContV = 0 then //переменая, которая меняется при каждой прорисовке с 0 на 1 и наоборот
       DC := GetDC(Form1.Handle) //если ContV = 0 то воспроизводим на одной форме
    else DC := GetDC(Form2.Handle); //если ContV = 1 то на другой
//...

И при каждой новой прорисовке вызываем FormCreate с измененным ContV
Таким бразом получается прорисовка на нескольких окнах одновременно.
Но чувствуется торможение прорисовки.
//-----------------------------
Подскажите как это правильно сделать.

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

"Всё должно быть сделано настолько простым, насколько это возможно, но не проще" (с) А.Эйнштейн

Sovereign

Дата 2.3.2007, 12:49 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 7.11.2006

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

Зачем подменять контекст устройства?
просто скину пример, там дальше доделаешь что тебе надо

Код


unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);
var
 frmGL : TfrmGL;
begin
 frmGL := TfrmGL.Create (nil);
 frmGL.Top := random (round(ClientWidth / 2));
 frmGL.Left := random (round(ClientHeight / 2));
 frmGL.Show;
end;

end.

Код


unit Unit1;

interface

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

type
  TfrmGL = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormDestroy(Sender: TObject);

  private
    hrc: HGLRC;  
    R, G, B : Single;
  end;

var
  frmGL: TfrmGL;

implementation

{$R *.DFM}


procedure TfrmGL.FormPaint(Sender: TObject);
begin
 wglMakeCurrent(Canvas.Handle, hrc);

 glClearColor (R, G, B, 1.0);
 glClear (GL_COLOR_BUFFER_BIT);     

 wglMakeCurrent(0, 0);
end;

procedure SetDCPixelFormat (hdc : HDC);
var
 pfd : TPixelFormatDescriptor;
 nPixelFormat : Integer;
begin
 FillChar (pfd, SizeOf (pfd), 0);
 nPixelFormat := ChoosePixelFormat (hdc, @pfd);
 SetPixelFormat (hdc, nPixelFormat, @pfd);
end;

procedure TfrmGL.FormCreate(Sender: TObject);
begin
 SetDCPixelFormat(Canvas.Handle);
 hrc := wglCreateContext(Canvas.Handle);
 R := random;
 G := random;
 B := random;
end;

procedure TfrmGL.FormDestroy(Sender: TObject);
begin
 wglDeleteContext(hrc);
end;

end.

Интернет обрубило, когда пост отправлял =(

Это сообщение отредактировал(а) Sovereign - 2.3.2007, 19:12

Moid

Дата 2.3.2007, 12:57 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 396
Регистрация: 27.3.2006

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

попробуем...

Это сообщение отредактировал(а) Moid - 5.3.2007, 13:29

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

"Всё должно быть сделано настолько простым, насколько это возможно, но не проще" (с) А.Эйнштейн

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