Thema: Delphi GLScene Bild verschieben

Einzelnen Beitrag anzeigen

mmw

Registriert seit: 10. Sep 2019
Ort: OWL
192 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: GLScene Bild verschieben

  Alt 27. Mär 2021, 18:15
eine Möglichkeit wäre noch


Delphi-Quellcode:
 private
    { Private-Deklarationen }
   picked_object:TGlBaseSceneObject;
Delphi-Quellcode:
procedure TForm39.GLSceneViewer1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
picked_object:=GLSceneViewer1.Buffer.GetPickedObject(X,Y);
end;

procedure TForm39.GLSceneViewer1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

var pp:TVector3f;

begin
if (Assigned(picked_object)) and (Shift=[ssRight]) then begin
        pp:=GLSceneViewer1.Buffer.ScreenToWorld(x,y);
        picked_object.Position.x:=pp.x;
        picked_object.Position.y:=pp.y;
        end;
end;

procedure TForm39.GLSceneViewer1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
picked_object:=nil;
end;

end.
  Mit Zitat antworten Zitat