DGL • Thema anzeigen - Die echte Mausposition im GLform

Die echte Mausposition im GLform

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Polarwolf

Betreff des Beitrags: Die echte Mausposition im GLform

Verfasst: Mi Jul 17, 2013 20:00

DGL Member

Registriert: Mi Jun 05, 2013 15:12
Beiträge: 167
Wohnort: Glinde
Programmiersprache: Delphi 7

Hallo,
während einem Test meiner Mouseoverfunktion ist mir aufgefallen, dass die Mausposition je nach Bildschirmmodus und Fenstermodus von der richtigen Position abweicht.

Was genau meine ich damit?
mouse.CursorPos.X & Y beschreiben die Position des kompletten Desktops.
Möchte ich abfangen, dass meine Maus über der Minimap ein Popup öffnet, funktioniert es im Vollbild einwandfrei.
Denn die Position der Maus ist gleich die der Form.
Bin ich im Fenstermodus, ist meine Mouseoverfunktion aktiv, obwohl ich in der oberen Ecke meines Bildschirms bin und nicht in meinem Fenster.

Deshalb habe ich mouse.CursorPos.X-left und mouse.CursorPos.Y-top ausprobiert.
Nun ist mein neuer "0" Punkt am Fensterrand. Aber der erste Pixel meines Renderprozesses fängt bei X+8 und Y+30 an.
Wenn der Borderstyle der Form auf bsnone steht mag es ja gehen, aber das ist ja nicht Sinn und Zweck des ganzen.
Um den Style wegzublenden, habe ich mir auf die schnelle eine Berechnung für die Mauskoordinaten zusammen geschustert.

mouse.CursorPos.X-left+((clientwidth-width)div 2)

mouse.CursorPos.Y-top+((clientheight-height-((clientwidth-width)div 2)))

Dieses funktioniert auch einwandfrei im Vollbild- und Fenstermodus mit verschiedenen Style's und und und.
Aber jetzt meine Frage: Gibt es das auch schon fertig von Delphi? Habe ich da was übersehen?

LG Polarwolf

_________________
幸福は笑う人に来て ~~ koufuku wa warau hito ni kite
Das Glück kommt zu denen die lachen

Nach oben

Schläfer

Betreff des Beitrags: Re: Die echte Mausposition im GLform

Verfasst: Do Jul 18, 2013 22:13

DGL Member

Registriert: Fr Okt 03, 2008 13:32
Beiträge: 367

Mit der Windowsfunktion "GetWindowInfo" kann man zu einem Handle unter anderem auch die absoluten Koordinaten (mit und ohne Rand) bekommen.
Damit hatte ich mir mal eine Funktion geschrieben:

Code:

function GlobalPosToLocalPos(local:TControl;global:TPoint):TPoint;
var WinInfo: TWindowInfo;
begin
  Result:=global;
  while (local.Parent<>nil) and (not (local is TWinControl)) do
  begin
    dec(Result.X,local.Left);
    dec(Result.Y,local.Top);
    local:=local.Parent;
  end;
  if local<>nil then
  begin
    GetWindowInfo(TWinControl(local).Handle,WinInfo);
    dec(Result.X,WinInfo.rcClient.Left);
    dec(Result.Y,WinInfo.rcClient.Top);
  end;
end;
 

Das funktioniert auch für Controls die kein Handle haben indem deren Parent genommen wird.

Nach oben

Lord Horazont

Betreff des Beitrags: Re: Die echte Mausposition im GLform

Verfasst: Fr Jul 19, 2013 17:19

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

ScreenToClient bzw. ClientToScreen anyone? Die Member hat doch jede TWinControl oder gar TControl in Delphi/Lazarus.

grüße

_________________
If you find any deadlinks, please send me a notification – Wenn du tote Links findest, sende mir eine Benachrichtigung.
current projects: ManiacLab; aioxmpp
zombofant network • my photostream
„Writing code is like writing poetry“ - source unknown

„Give a man a fish, and you feed him for a day. Teach a man to fish and you feed him for a lifetime. “ ~ A Chinese Proverb

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 7 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.