Thema: Delphi Multitouch Delphi 2007

Einzelnen Beitrag anzeigen

Gruber_Hans_12345

Registriert seit: 14. Aug 2004
1.439 Beiträge
 
Delphi 2007 Professional
 
#2

AW: Multitouch Delphi 2007

  Alt 28. Okt 2014, 11:51
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;
Gruss Hans

2B or not 2B, that is FF
  Mit Zitat antworten Zitat