Come programmare in Delphi per Surface Pen di Microsoft?

Question

Mi piacerebbe integrare le funzionalità della penna di superficie nella mia applicazione. È stato scritto usando Delphi 10 Seattle. Ho cercato su tutto il web e non riesco a trovare nulla.

Qualcuno sa come programmare per la penna? In particolare, per acquisire il livello di pressione, pen down, pen up e pen move events.

Answer 1

L'applicazione deve gestire il messaggio WM_POINTERUPDATE.

Durante quel messaggio è possibile chiamare GetPointerPenInfo per recuperare le informazioni sullo stato attuale del puntatore come POINTER_PEN_INFO structure:

POINTER_PEN_INFO = record 
    pointerInfo: POINTER_INFO; 
    penFlags: PEN_FLAGS; 
    penMask: PEN_MASK; 
    pressure: UINT32; 
    rotation UINT32; 
    tiltX: INT32; 
    tiltY: INT32; 
end;