Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi GlScene MouseOver (https://www.delphipraxis.net/107479-glscene-mouseover.html)

Jeopardize 28. Jan 2008 14:12


GlScene MouseOver
 
Hi,
Gibt es eine Möglichkeit zu kontrollieren ob bei GlScene sich die Maus über einem 3D-Objekt befindet? :gruebel:
THX für Antworten.

Lossy eX 29. Jan 2008 07:50

Re: GlScene MouseOver
 
Hallo. Meine glScene Zeiten sind schon seit einigen Jahren vorbei. Aber früher gabe es so etwas wie GetPickObject oder GetPickObjectList. Ich denke mal wenn du nach etwas mit Pick im Namen suchst solltest du fündig werden. In diese Methoden musst du die X und Y Koordinate deiner Maus stecken und bekommst die getroffenen Objekte bzw das Oberste zurück.

Jeopardize 30. Jan 2008 13:28

Re: GlScene MouseOver
 
Hmm, ich habe nun folgenden Code:
Delphi-Quellcode:
procedure TForm1.GLSceneViewer1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 begin
  pick:=(GLSceneViewer1.GetPickedObject(x, y) as TGLCustomSceneObject);
  if (pick<>oldpick) then begin
  if assigned(oldpick) then  oldpick.material.frontproperties.emission.color:=clrblack;
  if assigned(pick) then
   pick.material.frontproperties.emission.color:=clrred;
   oldpick:=pick;
 end;
end;
Aber ich bekomme immer die Meldung Undefinierter Bezeichner: 'GetPickedObject'. :(

arbu man 30. Jan 2008 14:11

Re: GlScene MouseOver
 
Wie wärs wenn du dir erstmal die Demos anguckst:
GLScene\Demos\movements\objmove

das wird das z.B. gemacht!

mfg, Björn


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:54 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz