Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Gestures (https://www.delphipraxis.net/199877-gestures.html)

tomkupitz 27. Feb 2019 13:55

Gestures
 
Hallo,

in einem Chart setze ich die benötigten Gesten mit:
Code:
procedure WMGestureNotify(var Msg: TWMGestureNotify);
var gcs: array[0..1] of GESTURECONFIG;

begin
  inherited;

  gcs[0].dwID:=GID_ZOOM;
  gcs[0].dwWant:=GC_ZOOM;
  gcs[0].dwBlock:=0;

  gcs[1].dwID:=GID_PAN;
  gcs[1].dwWant:=GC_PAN_WITH_SINGLE_FINGER_VERTICALLY or GC_PAN_WITH_SINGLE_FINGER_HORIZONTALLY;
  gcs[1].dwBlock:=GC_PAN_WITH_GUTTER or GC_PAN_WITH_INERTIA;

  SetGestureConfig(Handle, 0, 2, @gcs, sizeof(GESTURECONFIG));
end;
Das Chart verwaltet aber auch Thresholds (Linien) die bisher in den OnMouseDown, OnMouseMove, OnMouseUp Events bearbeitet wurden.

Leider erhalte ich nun diese Mouse Events nicht mehr/immer. Frage: Wie kann ich zwischen Gestensteuerung und Mousesteuerung umschalten? Z.B. wenn auf einen Threshold geklickt wird.

Danke und beste Grüße


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:29 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