Also noch mal genau geschaut
die WM_GESTURE_NOTIFY bekomme ich ... dann setze ich mit SetGestureConfig das ich Zoom und SINGLE_FINGER_PAN haben will aber das kommt leider nicht ....
es kommen keien WM_GESTURE Nachrichten an .... nur wenn ich einen zweiten finger verwende ...
Keinen plan warum
So setze ich im GESTURE_NOTIFY mein SetGestureConfig ...
vorher war es auf Alle Gestures ... aber das sind die die ich haben will ...
Delphi-Quellcode:
procedure TForm.WMGestureNotify(
var Msg: TWMGestureNotify);
var
gestureConfig :
array[1..2]
of TGestureConfig;
begin
AddDebug('
WMGestureNotify');
gestureConfig[1].dwID := GID_PAN;
gestureConfig[1].dwBlock := GC_PAN_WITH_GUTTER
or GC_PAN_WITH_INERTIA;
gestureConfig[1].dwWant := GC_PAN_WITH_SINGLE_FINGER_VERTICALLY
or GC_PAN_WITH_SINGLE_FINGER_HORIZONTALLY;
gestureConfig[2].dwID := GID_ZOOM;
gestureConfig[2].dwBlock := 0;
gestureConfig[2].dwWant := GC_ZOOM;
SetGestureConfigFn(
Handle, 0, 2, @gestureConfig[1], sizeof(gestureConfig));
Msg.Result := DefWindowProc(
Handle, Msg.Msg, Msg.Unused, Longint(Msg.NotifyStruct));
end;