Игры в Delphi

[grominfo]

Наверное, я неправильно поставил вопрос. Я хочу сначала научиться работать с графикой. Ещё ни разу не работал ни OpenGL, ни с DirectX. Только краем уха про них слышал, но никогда не совался. Сейчас вот сижу, изучаю OpenGL, читаю, пишу класс для закрепления изученного. До игр мне ещё далековато ))))

[Vapaamies]

Ну-у-у, э-э-э, там кагбэ компилируешь и... играешь. Когда надоест -- лезешь в код, ставишь бряки. Играешь до бряка, смотришь. Ничего не понимаешь. Читаешь в книжке.

Всё наоборот, короче.

P. S. Мне, наверное, трудно судить, поскольку сам разработкой игр не занимался. Но после чтения вводной по OpenGL стал бы копаться в примерах именно таким способом.

[cyberdev]

Ещё, подскажите, пожалуйста. А какой лучше заголовочный файл использовать: dglOpenGL или OpenGL ?

Для изучения API вполне можно использовать OpenGL.pas (он идет в стандартной поставке Делфи). Вот тут http://cybersite.ucoz.net/blog/opengl_api/1-0-2 собраны уроки OpenGL для начинающих и не только. Советую начать вот с этих уроков:
http://cybersite.ucoz.net/blog/znako.../2013-07-05-15
http://cybersite.ucoz.net/blog/init_.../2013-07-05-16
http://cybersite.ucoz.net/blog/podgo.../2013-07-31-21
Да и остальные мануалы тоже рекомендую прочитать.

Если что-то будет не ясно, спрашивайте в комментариях или здесь.

[grominfo]

Да, уроки хорошие. Правда, тиснутые с других сайтов )))

У меня вот такой вопрос ещё появился. Написал простенький потомок TCustomPanel, на котором с помощью opengl рисуется скажем линия, которая потом уменьшается по таймеру. Всё вроде работает, но...Когда я кидаю на форму вторую копию компонента - они начинают конфликтовать между собой. То есть получается, что у одного класса общие переменные в модуле dglOpenGL. Неужели на форме нельзя запустить несколько портов вывода графики?

unit GL;

interface

uses
 windows, classes, ExtCtrls, dglOpenGL, controls;

type
 TGL = class(TCustomPanel)
  private
    dc : HDC;
    hrc : HGLRC;
    FTimer:Ttimer;
    FInterval:longInt;
    procedure SetupGL;
    Procedure OnDraw(Sender:TObject);
    procedure PnResize(Sender: TObject);
  public
    constructor Create(AOwner: TComponent);override;
    destructor Destroy; override;
  protected
    procedure SetParent(AParent:TWinControl); override;
  end;

procedure Register;   //

const
  NearClipping = 0.1;    //Ближняя плоскость отсечения
  FarClipping  = 200;    //Дальняя плоскость отсечения
  
implementation

{ TGL }

procedure Register;
begin
  RegisterComponents('Andrey Grom Components', [TGL]);
end;

constructor TGL.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);

end;

procedure TGL.SetParent(AParent: TWinControl);
begin
inherited;
if Assigned(AParent) then
 begin      
  dc := GetDC(self.Handle);

  if  not InitOpenGL then exit;

  hrc := CreateRenderingContext(dc,[opDoubleBuffered],32,24,0,0,0,0);
  ActivateRenderingContext(dc,hrc);
  SetupGL;
  Finterval:=1000;
  FTimer:=TTimer.Create(self);
  FTimer.Interval:=Finterval;
  FTimer.OnTimer:=OnDraw;
  Self.OnResize:=PnResize;
 end;
end;

destructor TGL.Destroy;
begin
  inherited destroy;
end;

procedure TGL.SetupGL;
begin
  glClearColor(0.0,0.0,0.0,0.0);
  glEnable(GL_DEPTH_TEST);
  glEnable(GL_CULL_FACE);
  glPointSize(2);
  glEnable(GL_POINT_SMOOTH);
end;

procedure TGL.OnDraw;
begin
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
glTranslatef(0.5,0.0,-1.0);

glBegin(GL_LINES);
glVertex3f(-1.0,0.0,0.0);
glVertex3f(2.0,0.0,0.0);
glEnd;

SwapBuffers(DC);

end;

procedure TGL.PnResize(Sender: TObject);
begin
glViewport(0,0,ClientWidth,ClientHeight);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluPerspective(45.0,ClientWidth/ClientHeight,NearClipping,FarClipping);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity;
end;

end.

[cyberdev]

Да, уроки хорошие. Правда, тиснутые с других сайтов )))

Что, правда, скопированные с других сайтов?
Может поделитесь с каких?

[cyberdev]

но...Когда я кидаю на форму вторую копию компонента - они начинают конфликтовать между собой.

Все по тому, что с контекстами работать вы не умеете.

[grominfo]

Что, правда, скопированные с других сайтов?
Может поделитесь с каких?

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

[grominfo]

Все по тому, что с контекстами работать вы не умеете.

Это да (:

[cyberdev]

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

Если внимательно читать материалы уроков, то исходники не нужны. Их можно сделать, скопировав примеры на страницах. Там весь код с подробными комментариями. Надо только внимательно читать.

А на счет плагиата, то нужно иметь конкретные доказательства, прежде, чем бросать такие обвинения!

[grominfo]

А на счет плагиата, то нужно иметь конкретные доказательства, прежде, чем бросать такие обвинения!

Ну я же извинился, и написал опровержение. Зачем продолжать пинать то?