Вращение opengl сцены мышью

[tema2434]

Всем доброго времени суток, пытаюсь реализовать вращение сцены мышью, написал такой код:

var 
 Mouse:TPoint;
 Rotating:boolean;
 AngleX, AngleY:single;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Mouse.x :=x;
 Mouse.y :=y;
 Rotating:=true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Rotating:=false;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (Rotating = true) then
begin
 AngleY:=AngleY+(y-Mouse.y);
 AngleX:=AngleX+(x-Mouse.x);
 Mouse.x :=x;
 Mouse.y :=y;
end;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
FormResize(Sender);
glRotatef(AngleX,1,0,0);
glRotatef(Angley,0,1,0);
........
end;

Но у меня данный код не работает, возможно у меня что-то напутанно с координатами.

[tema2434]

Все решил, напутал с процедурами.....

[Аватар]

Решение покажешь или закрыть тему?

[tema2434]

Вот правильное решение:

var 
 Mouse:TPoint;
 Rotating:boolean;
 AngleX, AngleY:single;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
  begin
Mouse.x :=x;
Mouse.y :=y;
Rotating:=true;
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if (Rotating = true) then
begin
 AngleY:=AngleY+(y-Mouse.y);
 AngleX:=AngleX+(x-Mouse.x);
 Mouse.x :=x;
 Mouse.y :=y;
end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Rotating:=false;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
FormResize(Sender);

glRotatef(AngleX,1,0,0);
glRotatef(Angley,0,1,0);

end;