AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi GLScene auch bei MouseEvents rendern.
Thema durchsuchen
Ansicht
Themen-Optionen

GLScene auch bei MouseEvents rendern.

Ein Thema von 3_of_8 · begonnen am 21. Aug 2006 · letzter Beitrag vom 21. Aug 2006
Antwort Antwort
Der_Unwissende

Registriert seit: 13. Dez 2003
Ort: Berlin
1.756 Beiträge
 
#1

Re: GLScene auch bei MouseEvents rendern.

  Alt 21. Aug 2006, 10:14
Hi,
ein TGLCadencer ist eigentlich nur ein Thread mit sehr geringer Priorität. Deswegen wirst du mit dem Rendern auch kein Glück haben, solange du das gleich in Behandlung des Mausereignis machst. Da kommen dann einfach recht viele Events, die total vorrangig bearbeitet werden.
Lager einfach mal alles in das Ereignis des Cadencers aus:

Delphi-Quellcode:

procedure TForm1.GLSceneViewer1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssLeft in Shift then
  begin
    newX := X;
    newY := Y;
  end; // if ssLeft in Shift
end;

procedure doFoo;
begin
  glsceneviewer1.Camera.RotateAbsolute(newY-startpos.Y, newX-startpos.X, 0);
  startpos.X := newX;
  startpos.Y := newY;
  mouse.cursorpos := glsceneviewer1.clienttoscreen(Point(Width div 2, Height div 2));
end;

procedure TGLCadencer.On(weißleider nicht genau und hab's gerade nicht installiert);
begin
// natürlich auch ein flag verwenden, dass der hier nur rein geht wenn die Maus gedrückt wurde!
if (newX <> startPos.X) or (newY <> startPos.Y) then
begin
doFoo;
end; // if (newX <> startPos.X) or (newY <> startPos.Y)

// ....
end;
Gruß Der Unwissende
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz