На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...
Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> OpenGL: выбор объекта , при перемещении не работает :(
Lo_ky
Сообщ. #1 ,
    Лера Newbie
    Профиль · PM
    Рейтинг (т): нет
    Добрый день!
    Мне нужно выбирать объекты (при нажати кнопки мыши, должно выводится выбран объект или нет).
    Использую буфер выбора. Если обект не перемещать, все работает.
    Но если изменить начальное положение объекта (повернуть, сместить), объект смещается, а сообщение о том выбран объект или нет возвращает значение исходя из начального положнния объекта, т.е. как будто он не перемещался :(
    Помогите разобраться, что нужно добавить в код, чтобы работало корректно
    ExpandedWrap disabled
      unit frmMain;
       
      interface
       
      uses
        Windows, Messages, Classes, Graphics, Forms, ExtCtrls, Controls, SysUtils,
        Dialogs, StdCtrls,
        OpenGL;
       
      type
        TfrmGL = class(TForm)
          Memo1: TMemo;
          procedure FormCreate(Sender: TObject);
          procedure FormResize(Sender: TObject);
          procedure FormDestroy(Sender: TObject);
          procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
            Shift: TShiftState; X, Y: Integer);
          procedure FormKeyDown(Sender: TObject; var Key: Word;
            Shift: TShiftState);
       
        private
          DC: HDC;
          hrc: HGLRC;
          vp : Array [0..3] of GLint;
          selectBuf : Array [0..128] of GLuint;
       
          procedure SetDCPixelFormat;
          procedure Render (mode : GLEnum);
          function DoSelect(x : GLint; y : GLint) : GLUInt;
        protected
          procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
        end;
       
      var
        frmGL: TfrmGL;
        angle : GLfloat = 0;
      implementation
       
      {$R *.DFM}
       
      procedure angleAdd;
      begin
       angle := angle + 0.05;
       if angle > 1
       then angle := 0;
      end;
       
      procedure angleSubtract;
      begin
       angle := angle - 0.05;
       if angle < -1
       then angle := 0;
      end;
       
      function TfrmGL.DoSelect(x : GLint; y : GLint) : GLUInt;
      begin
        glRenderMode(GL_SELECT);
        glInitNames;
        glPushName(0);
        glGetIntegerv(GL_VIEWPORT, @vp);
        glMatrixMode(GL_PROJECTION);
        glLoadIdentity;
        gluPickMatrix(x, ClientHeight - y, 1, 1, @vp);
        gluPerspective(18.0, (ClientWidth - Memo1.Width) / ClientHeight, 6.0, 10.0);
        glViewport(0, 0, (ClientWidth - Memo1.Width), ClientHeight);
        glMatrixMode(GL_MODELVIEW);
        glClear(GL_COLOR_BUFFER_BIT);
        Render(GL_SELECT);
        Result := glRenderMode(GL_RENDER);
      end;
       
      procedure TfrmGL.Render (mode : GLEnum);
      begin
        glPushMatrix;
        glRotatef (-60, 0.0, 0.0, 1.0);
        if mode = GL_SELECT
        then glLoadName (0);
        glColor3f (1.0, 0.0, 0.0);
        glRectf(-0.5, -0.5, 0.5, 0.5);
        glPopMatrix;
      end;
       
      procedure TfrmGL.WMPaint(var Msg: TWMPaint);
      var
        ps : TPaintStruct;
      begin
        BeginPaint(Handle, ps);
        glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
        glLoadIdentity;
        glTranslatef(0.0, 0.0, -9.0);
        glRotatef(90.0, 1.0, 0.0, 1.0);
       
        glPushMatrix;
        //glRotatef (angle, 0.0, 0.0, 1.0);
        glTranslatef(0.0, 0.0, angle);
        Render (GL_RENDER);
        glPopMatrix;
       
        SwapBuffers(DC);
        EndPaint(Handle, ps);
      end;
       
       
      procedure TfrmGL.FormCreate(Sender: TObject);
      begin
        DC := GetDC(Handle);
        SetDCPixelFormat;
        hrc := wglCreateContext(DC);
        wglMakeCurrent(DC, hrc);
        glSelectBuffer(SizeOf (selectBuf), @selectBuf);
        Memo1.Clear;
      end;
       
       
       
      procedure TfrmGL.SetDCPixelFormat;
      var
        nPixelFormat: Integer;
        pfd: TPixelFormatDescriptor;
      begin
        FillChar(pfd, SizeOf(pfd), 0);
       
        pfd.dwFlags   := PFD_DRAW_TO_WINDOW or
                       PFD_SUPPORT_OPENGL or
                       PFD_DOUBLEBUFFER;
        nPixelFormat := ChoosePixelFormat(DC, @pfd);
        SetPixelFormat(DC, nPixelFormat, @pfd);
      end;
       
      procedure TfrmGL.FormResize(Sender: TObject);
      begin
        glViewport(0, 0, (ClientWidth - Memo1.Width), ClientHeight);
        glMatrixMode(GL_PROJECTION);
        glLoadIdentity;
        gluPerspective(18.0, (ClientWidth - Memo1.Width) / ClientHeight, 6.0, 10.0);
        glMatrixMode(GL_MODELVIEW);
        glGetIntegerv(GL_VIEWPORT, @vp);
        InvalidateRect(Handle, nil, False);
      end;
       
      procedure TfrmGL.FormDestroy(Sender: TObject);
      begin
        wglMakeCurrent(0, 0);
        wglDeleteContext(hrc);
        ReleaseDC(Handle, DC);
        DeleteDC (DC);
      end;
       
      procedure TfrmGL.FormMouseDown(Sender: TObject; Button: TMouseButton;
        Shift: TShiftState; X, Y: Integer);
      var
        hit, hits: GLUint;
      begin
        hits := DoSelect (X, Y);
        Memo1.Clear;
        Memo1.Lines.Add(Format('Îáúåêòîâ ïîä êóðñîðîì : %d',[hits]));
        glViewport(0, 0, (ClientWidth - Memo1.Width), ClientHeight);
        glMatrixMode(GL_PROJECTION);
        glLoadIdentity;
        gluPerspective(18.0, (ClientWidth - Memo1.Width) / ClientHeight, 6.0, 10.0);
        glGetIntegerv(GL_VIEWPORT, @vp);
        glMatrixMode(GL_MODELVIEW);
        InvalidateRect(Handle, nil, False);
       
      end;
       
      procedure TfrmGL.FormKeyDown(Sender: TObject; var Key: Word;
        Shift: TShiftState);
      begin
        If Key = VK_ESCAPE then Close;
         If Key = VK_UP then begin
          angleSubtract;
          InvalidateRect(Handle, nil, False);
       end;
       If Key = VK_DOWN then begin
          angleAdd;
         InvalidateRect(Handle, nil, False);
       end;
      end;
       
      end.
    1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script execution time: 0.0507 ]   [ 15 queries used ]   [ Generated: 21.09.26, 12:54 GMT ]  
    Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.