paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 00:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch by Paul van Helden: added SHCameraCapture function and structures for WinCE; resolves #13222

Browse Source 
git-svn-id: trunk@12801 -
This commit is contained in:
florian 2009-02-26 17:07:16 +00:00
parent 00d1174c69
commit 3638a3b680
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
packages/winceunits/src/aygshell.pp
View File

@ -458,6 +458,31 @@ type
SIPSTATE= (SIP_UP= 0,SIP_DOWN,SIP_FORCEDOWN,SIP_UNCHANGED,SIP_INPUTDIALOG); 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 // 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 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 SHSipPreference(hwnd: HWND ; st : SIPSTATE ) : WINBOOL; external UserDLLAyg name 'SHSipPreference';
function SHRecognizeGesture(var shrg : SHRGINFO): DWORD; external UserDLLAyg name 'SHRecognizeGesture'; function SHRecognizeGesture(var shrg : SHRGINFO): DWORD; external UserDLLAyg name 'SHRecognizeGesture';
function SHCameraCapture(var shcc: TSHCAMERACAPTURE): HRESULT; external UserDLLAyg name 'SHCameraCapture';
implementation implementation