Multitouch Delphi 2007

[Gruber_Hans_12345]

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;