Builder & OpenGL

[elpilasgsm]

тут вопрос один возник. Хочу сделать , чтобы в форме BulderA создалось окно с опенГЛ. Но не на всю форму, а такк, что бы место для кпопок осталось + чтобы управление объектами в ОПЕнГЛ окне могло уравляться кнопками Билдера. Не знаю как это реализовать. если можно пришлите чуть кода. Спасибо

[raxp]

вы поняли, что вы написали?

[DomiNick]

С билдером не работал, да и к изучению OpenGL всё ещё никак не приступлю (времени нету ), но разве в самом начале не делается что-то подобного?:

DC:=GetDC(Form1.Handle);
RC:=CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
ActivateRenderingContext(DC, RC);

Так может просто изменить первую строчку достаточно будет?)

DC:=GetDC(Form1.Panel1.Handle);

[elpilasgsm]

Сообщение от raxp

вы поняли, что вы написали?

Я понял. Может написал не совсем корректно. Я хочу просто разобраться как работают все графические пакеты, банально AutoCAD (я знаю, что он не совсем банальный ))))), но все же. Там я жму на кнопку и в зависимости от этого могу производить действия в рабочем окне. Может там и не ОПЕНГЛ, я не знаю.. Если я пишу бред, то скажите мне об этом... Я и спрашиваю, т.к. не знаю))

[raxp]

дополню DomiNick в части

чтобы управление объектами в ОПЕнГЛ окне могло уравляться кнопками

для обработки клавиш и мыши добавьте в private

procedure WMKeyUp(var msg:TWMKeyUp);message WM_KEYUP;
    procedure WMKeyDown(var msg:TWMKeyDown);message WM_KEYDOWN;
    procedure WMMouseWheel(var msg:TWMMouseWheel);message WM_MOUSEWHEEL;
    procedure WMMouseMove(var msg:TWMMouseMove);message WM_MouseMove;
    procedure WMMouseRDown(var msg:TWMLButtonDown);message WM_RButtonDown;
    procedure WMMouseRUp(var msg:TWMLButtonDown);message WM_RButtonUp;
    procedure WMMouseLUp(var msg:TWMLButtonUp);message WM_LButtonUp;
    procedure WMMouseLDown(var msg:TWMLButtonDown);message WM_LButtonDown;

пример...

procedure Tpgl.WMKeyUp(var msg: TWMKeyUp);
begin
 inherited;
 //для примера-
 if msg.CharCode= 17 then ;   // отжали CTR-
 if msg.CharCode= 16 then ;  // отжали SHIFT-

 if msg.CharCode= 37 then ; // left 
 if msg.CharCode= 39 then ; // reight
 if msg.CharCode= 38 then ; // up
 if msg.CharCode= 40 then ; // down
end;
procedure Tpgl.WMKeyDown(var msg: TWMKeyDown);
begin
 inherited;
 // с клавишами аналогично
 // paintPlace3d -прорисовка
 InvalidateRect(Handle, nil, False)
end;

procedure Tpgl.WMMouseRDown(var mSg: TWMLButtonDown);
begin
 inherited;
 //аналогично 
end;
procedure Tpgl.WMMouseRup(var mSg: TWMLButtonDown);
begin
 inherited;
 //аналогично
end;

зы, на дельфи, но перевести синтаксис думаю проблем не составит

[DomiNick]

А для того чтоб окно растягивалось нормально, я находил (не помню где) вот такую процедуру:

Procedure TForm1.FormResize(Sender: TObject);
Var a: Integer;
Begin
glPushMatrix;
a:=Abs(Panel1.Width-Panel1.Height) Div 2;
If Panel1.Width>Panel1.Height Then
      glViewport(a+xPos, 0+yPos, Panel1.Height, Panel1.Height)
Else
      glViewport(0+xPos, a+yPos, Panel1.Width, Panel1.Width);
glPopMatrix;
End;

[raxp]

а прорисовку объектов в onpaint для ускорения делайте через вызов glcalllist (opengl заранее буфер просчитает)

const grid=1;
        объекты=2,3,...

procedure Tpgl.WMPaint(var Msg: TWMPaint);
var ps: TPaintStruct;
begin
 //DoCalculateFPS;
 //
 BeginPaint(Handle, ps);
 if DC=0 then CreateDC;
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

   setviewGRID(FViewGRID);
   
 SwapBuffers(DC);
 EndPaint(Handle, ps)
end;

procedure Tpgl.SetViewTIK(const Value: Boolean);
begin
 FViewGRID:= Value;
 if value then glCallList(GRID)
end;

//создание объекта

procedure tpgl.paintGrid;
var r: GLfloat;
    i,n,k: integer;
begin
 glNewList(Grid, GL_Compile);
  //тут делает объект или набор объектов
 glendlist
end;

когда дойдете до выбора объектов, если у вас он будет, отпишите...

[elpilasgsm]

спасибо за инфу. думАю поможет...