diff options
| author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-02-26 17:07:16 +0000 |
|---|---|---|
| committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-02-26 17:07:16 +0000 |
| commit | c911460108886bcf44e6f077b3656ed841df81cc (patch) | |
| tree | cdb15c365b437cf3968e45c6a63a7fc3aebb645f /packages/winceunits | |
| parent | 1c8487e64ade98f4ec979c92e34c36b53a855db0 (diff) | |
| download | fpc-c911460108886bcf44e6f077b3656ed841df81cc.tar.gz | |
* patch by Paul van Helden: added SHCameraCapture function and structures for WinCE; resolves #13222
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@12801 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/winceunits')
| -rw-r--r-- | packages/winceunits/src/aygshell.pp | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/packages/winceunits/src/aygshell.pp b/packages/winceunits/src/aygshell.pp index 1d5c2c9721..5b757ff975 100644 --- a/packages/winceunits/src/aygshell.pp +++ b/packages/winceunits/src/aygshell.pp @@ -458,6 +458,31 @@ type SIPSTATE= (SIP_UP= 0,SIP_DOWN,SIP_FORCEDOWN,SIP_UNCHANGED,SIP_INPUTDIALOG); + CAMERACAPTURE_STILLQUALITY= (CAMERACAPTURE_STILLQUALITY_DEFAULT=0, CAMERACAPTURE_STILLQUALITY_LOW, CAMERACAPTURE_STILLQUALITY_NORMAL, + CAMERACAPTURE_STILLQUALITY_HIGH); + + CAMERACAPTURE_VIDEOTYPE= (CAMERACAPTURE_VIDEOTYPE_ALL = $FFFF, CAMERACAPTURE_VIDEOTYPE_STANDARD = 1, + CAMERACAPTURE_VIDEOTYPE_MESSAGING = 2); + + CAMERACAPTURE_MODE= (CAMERACAPTURE_MODE_STILL = 0, CAMERACAPTURE_MODE_VIDEOONLY, CAMERACAPTURE_MODE_VIDEOWITHAUDIO); + + TSHCAMERACAPTURE = record + cbSize : DWORD; + hwndOwner : HWND; + szFile : array[0..(MAX_PATH)-1] of WCHAR; + pszInitialDir : LPCTSTR; + pszDefaultFileName : LPCTSTR; + pszTitle : LPCTSTR; + StillQuality : CAMERACAPTURE_STILLQUALITY; + VideoTypes : CAMERACAPTURE_VIDEOTYPE; + nResolutionWidth : DWORD; + nResolutionHeight : DWORD; + nVideoTimeLimit : DWORD; + Mode : CAMERACAPTURE_MODE; + end; + PSHCAMERACAPTURE=^TSHCAMERACAPTURE; + + //***************************************************************************** // functions //***************************************************************************** @@ -483,6 +508,7 @@ procedure SHNavigateBack; external UserDLLAyg index 183; function SHSipInfo(uiAction: UINT; uiParam: UINT; pvParam: PVOID; fWinIni: UINT ): WINBOOL; external UserDLLAyg name 'SHSipInfo'; function SHSipPreference(hwnd: HWND ; st : SIPSTATE ) : WINBOOL; external UserDLLAyg name 'SHSipPreference'; function SHRecognizeGesture(var shrg : SHRGINFO): DWORD; external UserDLLAyg name 'SHRecognizeGesture'; +function SHCameraCapture(var shcc: TSHCAMERACAPTURE): HRESULT; external UserDLLAyg name 'SHCameraCapture'; implementation |