Шустрый
Профиль
Группа: Участник
Сообщений: 91
Регистрация: 19.7.2005
Репутация: нет
Всего: 1
|
Привет, All! можно ли в приложении в OpenGL выводить изображение в несколько форм? у меня написан класс базовой формы, если вызвать одного наследника все работат хорошо, если одновременно с первым вызвать второго, работа нарушается, прекращается правильная перерисовка формы, почему и как этого можно избежать? | Код |
unit uGLForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, OpenGL,
Db, ADODB, ExtCtrls;
type
TPoint3d = record
iIdStar : integer;
x,y,z : GLdouble;
MaterialColor: Array [0..3] of GLfloat;
Name : string;
end;
TGLForm = class(TForm)
Timer: TTimer;
tMain: TADOTable;
procedure FormPaint(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TimerTimer(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
DC : HDC;
hrc : HGLRC;
AngleX, AngleY : GLfloat;
Perspective : GLFloat;
base : GLuint;
myfont : HFONT;
test : HGDIOBJ;
procedure SetDCPixelFormat;
procedure InitializeRC;
procedure Camera;
protected
procedure CalcSelectLine(mouse_x, mouse_y:integer; var p1, p2 : TPoint3D);
procedure DrawScene; virtual;
procedure Draw; virtual;
procedure DrawText(sMessage : string; x,y,z : GLfloat);
procedure InitText;
public
arPoint : array of TPoint3D;
stParams : TStrings;
procedure InitForm;
end;
implementation
{$R *.DFM}
{ TForm1 }
procedure TGLForm.Camera;
begin
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluPerspective(Perspective, ClientWidth / ClientHeight, 1.0, 20.0);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity;
gluLookAt(0.0, 30.0, 10.0, 0, 0, -5.0, 0, 1, 0);
end;
procedure TGLForm.DrawScene;
begin
// очистка буфера цвета и буфера глубины
glClearColor (0.0, 0.0, 0.0, 0.0); // цвет фона
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
Camera;
// трехмерность
glLoadIdentity;
glTranslatef( 0, 0, -3.0);
glRotatef(30.0, 1.0, 0.0, 0.0);
glRotatef(AngleX, 0.0, 1.0, 0.0); // поворот на угол
glRotatef(AngleY, 0.1, 0.0, 0.0); // поворот на угол
Draw;
SwapBuffers(DC); // конец работы
end;
procedure TGLForm.InitializeRC;
begin
glEnable(GL_DEPTH_TEST); // разрешаем тест глубины
glEnable(GL_LIGHTING); // разрешаем работу с освещенностью
glEnable(GL_LIGHT0); // включаем источник света 0
glEnable(GL_COLOR_MATERIAL);
end;
procedure TGLForm.SetDCPixelFormat;
var
nPixelFormat: Integer;
pfd: TPixelFormatDescriptor;
begin
FillChar(pfd, SizeOf(pfd), 0);
with pfd do begin
nSize := sizeof(pfd);
nVersion := 1;
dwFlags := PFD_DRAW_TO_WINDOW or
PFD_SUPPORT_OPENGL or
PFD_DOUBLEBUFFER;
iPixelType:= PFD_TYPE_RGBA;
cColorBits:= 24;
cDepthBits:= 32;
iLayerType:= PFD_MAIN_PLANE;
end;
nPixelFormat := ChoosePixelFormat(DC, @pfd);
SetPixelFormat(DC, nPixelFormat, @pfd);
end;
procedure TGLForm.FormPaint(Sender: TObject);
var
ps : TPaintStruct;
begin
BeginPaint(Handle, ps);
DrawScene;
EndPaint(Handle, ps);
end;
procedure TGLForm.DrawText(sMessage: string; x, y, z: GLfloat);
var
A: array[0..255] of Char;
begin
StrPCopy(A, sMessage);
glRasterPos3f(x,y,z);
glPushAttrib(GL_LIST_BIT);
glListBase(base - 32);
glCallLists(length(sMessage), GL_UNSIGNED_BYTE, @A);
glPopAttrib();
end;
procedure TGLForm.InitText;
begin
base := glGenLists(96);
DC := wglGetCurrentDC();
if(base = GL_INVALID_VALUE) and (base = GL_INVALID_OPERATION)then exit;
myfont := CreateFont(-9,
0,0,0,
FW_REGULAR,
0,0,0,
ANSI_CHARSET,
OUT_TT_PRECIS,
CLIP_DEFAULT_PRECIS,
ANTIALIASED_QUALITY,
FF_DONTCARE or DEFAULT_PITCH,
'Agency FB'); //шрифт
if myfont = 0 then exit;
test := SelectObject(DC, myfont);
wglUseFontBitmaps(DC, 32, 96, base);
SelectObject(DC, test);
DeleteObject(myfont);
end;
procedure TGLForm.CalcSelectLine(mouse_x, mouse_y: integer; var p1,
p2: TPoint3D);
var
viewport : array [0..3] of GLint; // параметры viewport-a.
projection : array [0..15] of GLdouble; // матрица проекции.
modelview : array [0..15] of GLdouble; // видовая матрица.
vx,vy,vz : GLdouble; // координаты курсора мыши в системе координат viewport-a.
wx,wy,wz : GLdouble; // возвращаемые мировые координаты.
begin
// mouse_x, mouse_y - оконные координаты курсора мыши.
// p1, p2 - возвращаемые параметры - концы селектирующего отрезка,
// лежащие соответственно на ближней и дальней плоскостях
// отсечения.
glGetIntegerv(GL_VIEWPORT,@viewport); // узнаём параметры viewport-a.
glGetDoublev(GL_PROJECTION_MATRIX,@projection); // узнаём матрицу проекции.
glGetDoublev(GL_MODELVIEW_MATRIX,@modelview); // узнаём видовую матрицу.
// переводим оконные координаты курсора в систему координат viewport-a.
vx := mouse_x;
vy := height - mouse_y - 1; // где height - текущая высота окна.
// вычисляем ближний конец селектирующего отрезка.
vz := -1;
gluUnProject(vx, vy, vz, @modelview, @projection, @viewport, wx, wy, wz);
p1.x := wx;
p1.y := wy;
p1.z := wz;
// вычисляем дальний конец селектирующего отрезка.
vz := 1;
gluUnProject(vx, vy, vz, @modelview, @projection, @viewport, wx, wy, wz);
p2.x := wx;
p2.y := wy;
p2.z := wz;
end;
procedure TGLForm.FormDestroy(Sender: TObject);
begin
stParams.Free;
end;
procedure TGLForm.TimerTimer(Sender: TObject);
begin
AngleX := AngleX + 0.05;
If (AngleX >= 360.0) then AngleX := 0.0;
If (AngleY >= 360.0) then AngleY := 0.0;
InvalidateRect(Handle, nil, False); // перерисовка региона (Windows API)
end;
procedure TGLForm.FormResize(Sender: TObject);
begin
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluPerspective(30.0, Width / Height, 1.0, 10.0);
glViewport(0, 0, Width, Height);
glMatrixMode(GL_MODELVIEW);
end;
procedure TGLForm.Draw;
begin
end;
procedure TGLForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if WheelDelta < 0 then
Perspective := Perspective - 0.5
else
Perspective := Perspective + 0.5;
end;
procedure TGLForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_LEFT : AngleX := AngleX - 0.5;
VK_RIGHT: AngleX := AngleX + 0.5;
VK_UP : AngleY := AngleY - 0.5;
VK_DOWN : AngleY := AngleY + 0.5;
end;
end;
procedure TGLForm.InitForm;
begin
stParams := TStrings.Create;
Perspective := 40.0;
AngleX := 0.0;
AngleY := 0.0;
DC := GetDC(Handle);
SetDCPixelFormat;
hrc := wglCreateContext(DC);
wglMakeCurrent(DC, hrc);
InitializeRC;
InitText;
end;
end.
|
вызов в наследниках: | Код |
...
procedure TfmMap.FormCreate(Sender: TObject);
begin
inherited;
InitForm;
tMain.Open;
SetLength(arPoint, tMain.RecordCount);
InitMap;
Timer.Enabled := True;
end;
...
|
Спасибо. |
Можно ли выводить 2 OpenGL сцены, одновременно, в разных формах? 
Загрузка ...
