[Andrew101095]

Пишу на GLScene конструктор....не могу сделать отдоление камеры мышью.....вот сорц:

Код:

procedure TForm2.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
   Camera: TGLCamera;
begin
   Camera := GLSceneViewer1.Camera;
   Camera.AdjustDistanceToTarget(Power(1.1, WheelDelta / 120));
end;

плиз хэлп...

[T-dayne]

Может быть так:

Код:

procedure TForm2.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
Camera: TGLCamera;
begin
Camera:= TGLCamera.create;
Camera := GLSceneViewer1.Camera;
Camera.AdjustDistanceToTarget(Power(1.1, WheelDelta / 120));
end;

[Andrew101095]

Да...код вроде правильный но выдает почему то такую ошибку:

[Error] Unit2.pas(78): Undeclared identifier: 'Power'
[Fatal Error] Project1.dpr(10): Could not compile used unit 'Unit2.pas'

[Страдалецъ]

Подключите модуль Math

[Andrew101095]

СпААаСибо