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

*wince : more shell api

Browse Source 
git-svn-id: trunk@2344 -
This commit is contained in:
oro06 2006-01-26 14:17:22 +00:00
parent 4fcc98fbf9
commit 650845915f
2 changed files with 79 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
rtl/wince/wininc/aygshell.inc
View File

@ -20,7 +20,8 @@
09-28-2005 : orinaudo@gmail.com 09-28-2005 : orinaudo@gmail.com
First release First release
01-26-2006 : orinaudo@gmail.com
updated
} }
{exported functions list = to do, {exported functions list = to do,
@ -59,7 +60,6 @@
226 DoEditContextMenu 226 DoEditContextMenu
191 DrawAlignedIcon 191 DrawAlignedIcon
44 EditSubProc 44 EditSubProc
2011 ExitWindowsEx
13 FreeRegisteredAppInfo 13 FreeRegisteredAppInfo
137 GetProtocol 137 GetProtocol
11 GetRegisteredAppInfo 11 GetRegisteredAppInfo
@ -97,7 +97,6 @@
113 SHChangeNotifyRegister 113 SHChangeNotifyRegister
48 SHCheckForContextMenu 48 SHCheckForContextMenu
86 SHClearStartedBit 86 SHClearStartedBit
10 SHCloseApps
55 SHColorDisplay 55 SHColorDisplay
37 SHCommandBar_EnableCommand 37 SHCommandBar_EnableCommand
38 SHCommandBar_GetClientRect 38 SHCommandBar_GetClientRect
@ -146,7 +145,6 @@
120 SHFreeScanners 120 SHFreeScanners
65 SHFullScreen 65 SHFullScreen
213 SHGetActiveDialog 213 SHGetActiveDialog
2 SHGetAppKeyAssoc
90 SHGetAutoRunPath 90 SHGetAutoRunPath
292 SHGetBitmapDimensions 292 SHGetBitmapDimensions
285 SHGetBitmapLogPixels 285 SHGetBitmapLogPixels
@ -183,8 +181,6 @@
30 SHHandleSipChange 30 SHHandleSipChange
76 SHHdrGrpSepLineDraw 76 SHHdrGrpSepLineDraw
8 SHImListPopup 8 SHImListPopup
56 SHInitDialog
9 SHInitExtraControls
149 SHInitPresetMessages 149 SHInitPresetMessages
39 SHInputDialog 39 SHInputDialog
181 SHInsertPresetMessage 181 SHInsertPresetMessage
@ -196,8 +192,6 @@
100 SHLoadContextMenuExtensions 100 SHLoadContextMenuExtensions
230 SHLoadFileContextMenuExtensions 230 SHLoadFileContextMenuExtensions
313 SHLoadFontFromResource 313 SHLoadFontFromResource
75 SHLoadImageFile
64 SHLoadImageResource
91 SHLoadMenuPopup 91 SHLoadMenuPopup
216 SHLoadSKFromReg 216 SHLoadSKFromReg
121 SHLock 121 SHLock
@ -244,7 +238,6 @@
118 SHScanBuffer 118 SHScanBuffer
119 SHScanFile 119 SHScanFile
97 SHSendBackToFocusWindow 97 SHSendBackToFocusWindow
3 SHSetAppKeyWndAssoc
169 SHSetAsWatermark 169 SHSetAsWatermark
184 SHSetBack 184 SHSetBack
161 SHSetBubbleRegion 161 SHSetBubbleRegion
@ -261,7 +254,6 @@
67 SHShowContextMenu 67 SHShowContextMenu
1004 SHShowSoftKeys 1004 SHShowSoftKeys
79 SHSignalDone 79 SHSignalDone
4 SHSipInfo
314 SHSipMightBlockUI 314 SHSipMightBlockUI
21 SHSipPreference 21 SHSipPreference
308 SHSkipDialogInitialFocus 308 SHSkipDialogInitialFocus
@ -317,18 +309,69 @@
// consts // consts
//***************************************************************************** //*****************************************************************************
const const
CEM_UPCASEALLWORDS = (WM_USER + 1);
CEM_ENABLEUPCASE = (WM_USER + 2);
IDC_COMMANDBANDS = 100;
// Shell Menubar support
// These defines MUST be < 100. This is so apps can use these defines
// to get strings from the shell.
IDS_SHNEW = 1;
IDS_SHEDIT = 2;
IDS_SHTOOLS = 3;
IDS_SHVIEW = 4;
IDS_SHFILE = 5;
IDS_SHGO = 6;
IDS_SHFAVORITES = 7;
IDS_SHOPEN = 8;
// Shared New menu support
IDM_SHAREDNEW = 10;
IDM_SHAREDNEWDEFAULT = 11;
NOMENU = $FFFF; NOMENU = $FFFF;
SHA_INPUTDIALOG = $0001; SHA_INPUTDIALOG = $0001;
SHACTI_FSIPUP = $0001; SHACTI_FSIPUP = $0001;
SHACTI_FSIPONDEACTIVATE = $0002; SHACTI_FSIPONDEACTIVATE = $0002;
SHACTI_FSIPRESERVED = $FFFF xor SHACTI_FSIPUP xor SHACTI_FSIPUP; SHACTI_FSIPRESERVED = $FFFF xor SHACTI_FSIPUP xor SHACTI_FSIPUP;
// Valid dwFlags
SHCMBF_EMPTYBAR = $0001; SHCMBF_EMPTYBAR = $0001;
SHCMBF_HIDDEN = $0002; // create it hidden SHCMBF_HIDDEN = $0002; // create it hidden
SHCMBF_HIDESIPBUTTON = $0004; SHCMBF_HIDESIPBUTTON = $0004;
SHCMBF_COLORBK = $0008; SHCMBF_COLORBK = $0008;
SHCMBF_HMENU = $0010; // specify an hmenu for resource rather than toolbar info SHCMBF_HMENU = $0010; // specify an hmenu for resource rather than toolbar info
SHCMBM_SETSUBMENU = (WM_USER + 400); // wparam == id of button, lParam == hmenu, return is old hmenu
SHCMBM_GETSUBMENU = (WM_USER + 401); // lParam == ID
SHCMBM_GETMENU = (WM_USER + 402); // get the owning hmenu (as specified in the load resource)
// Valid mask values
SHIDIM_FLAGS = $0001;
// Valid flags
SHIDIF_DONEBUTTON = $0001;
SHIDIF_SIZEDLG = $0002;
SHIDIF_SIZEDLGFULLSCREEN = $0004;
SHIDIF_SIPDOWN = $0008;
SHIDIF_FULLSCREENNOMENUBAR = $0010;
SHIDIF_EMPTYMENU = $0020;
SHIDIF_WANTSCROLLBAR = $0040;
// Supported system parameters.
SPI_SETSIPINFO = 224;
SPI_GETSIPINFO = 225;
SPI_SETCURRENTIM = 226;
SPI_GETCURRENTIM = 227;
SPI_SETCOMPLETIONINFO = 223;
SPI_APPBUTTONCHANGE = 228;
SPI_RESERVED = 229;
SPI_SYNCSETTINGSCHANGE = 230;
//Pocket PC special controls
WC_SIPPREF = 'SIPPREF';
//***************************************************************************** //*****************************************************************************
// types // types
@ -343,7 +386,14 @@ type
end; end;
PSHACTIVATEINFO=^SHACTIVATEINFO; PSHACTIVATEINFO=^SHACTIVATEINFO;
tagSHMENUBARINFO = record SHINITDLGINFO = record
dwMask: DWORD;
hDlg: HWND;
dwFlags : DWORD ;
end;
PSHINITDLGINFO=^SHINITDLGINFO;
SHMENUBARINFO = record
cbSize : DWORD; // IN - Indicates which members of struct are valid cbSize : DWORD; // IN - Indicates which members of struct are valid
hwndParent : HWND ; // IN hwndParent : HWND ; // IN
dwFlags : DWORD ; // IN - Some features we want dwFlags : DWORD ; // IN - Some features we want
@ -354,16 +404,28 @@ type
hwndMB : HWND ; // OUT hwndMB : HWND ; // OUT
clrBk : COLORREF ; // IN - background color of the menu bar (excluding sip) clrBk : COLORREF ; // IN - background color of the menu bar (excluding sip)
end; end;
SHMENUBARINFO=tagSHMENUBARINFO; PSHMENUBARINFO=^SHMENUBARINFO;
PSHMENUBARINFO=^tagSHMENUBARINFO;
//***************************************************************************** //*****************************************************************************
// functions // functions
//***************************************************************************** //*****************************************************************************
{ already defined in func.inc
function ExitWindowsEx(uFlags:UINT; dwReserved:DWORD):WINBOOL; external UserDLLAyg name 'ExitWindowsEx';
}
function SHCloseApps( dwMemSought : DWORD ): WINBOOL; external UserDLLAyg name 'SHCloseApps';
function SHCreateMenuBar(pmbi : PSHMENUBARINFO ): WINBOOL; external UserDLLAyg name 'SHCreateMenuBar'; function SHCreateMenuBar(pmbi : PSHMENUBARINFO ): WINBOOL; external UserDLLAyg name 'SHCreateMenuBar';
function SHFindMenuBar(hwnd:HWND) : HWND; external UserDLLAyg name 'SHFindMenuBar';
function SHHandleWMActivate(hwnd:HWND; wParam:WPARAM; lParam:LPARAM; psai: PSHACTIVATEINFO; dwFlags:DWORD ): WINBOOL; external UserDLLAyg name 'SHHandleWMActivate'; function SHHandleWMActivate(hwnd:HWND; wParam:WPARAM; lParam:LPARAM; psai: PSHACTIVATEINFO; dwFlags:DWORD ): WINBOOL; external UserDLLAyg name 'SHHandleWMActivate';
function SHHandleWMSettingChange(hwnd:HWND; wParam:WPARAM; lParam:LPARAM; psai: PSHACTIVATEINFO): WINBOOL; external UserDLLAyg name 'SHHandleWMSettingChange'; function SHHandleWMSettingChange(hwnd:HWND; wParam:WPARAM; lParam:LPARAM; psai: PSHACTIVATEINFO): WINBOOL; external UserDLLAyg name 'SHHandleWMSettingChange';
function SHInitDialog(pshidi: PSHINITDLGINFO): WINBOOL; external UserDLLAyg name 'SHInitDialog';
function SHInitExtraControls: WINBOOL; external UserDLLAyg name 'SHInitExtraControls';
function SHGetAppKeyAssoc( ptszApp: LPCTSTR ): Byte; external UserDLLAyg name 'SHGetAppKeyAssoc';
function SHLoadImageResource(hinst: HINST; uIdGif: UINT ): HBITMAP; external UserDLLAyg name 'SHLoadImageResource';
function SHLoadImageFile(pszFileName: LPCTSTR ) : HBITMAP; external UserDLLAyg name 'SHLoadImageFile';
function SHSipInfo(uiAction: UINT; uiParam: UINT; pvParam: PVOID; fWinIni: UINT ): WINBOOL; external UserDLLAyg name 'SHSipInfo';
function SHSetAppKeyWndAssoc( bVk: BYTE ; hwnd : HWND ): WINBOOL; external UserDLLAyg name 'SHSetAppKeyWndAssoc';
{$endif read_interface} {$endif read_interface}

5
rtl/wince/wininc/commctrl.inc
View File

@ -95,7 +95,6 @@
69 FindMRUStringA 69 FindMRUStringA
70 FindMRUStringW 70 FindMRUStringW
65 FreeMRUList 65 FreeMRUList
1 InitCommonControls
2 InitCommonControlsEx 2 InitCommonControlsEx
22 InvertRect 22 InvertRect
55 IsCapEditAvailable 55 IsCapEditAvailable
@ -165,6 +164,10 @@ const
{$endif read_interface} {$endif read_interface}
{ already defined in func.inc
procedure InitCommonControls; external ComctlDLL name 'InitCommonControls';
}
{$ifdef read_implementation} {$ifdef read_implementation}
{$endif read_implementation} {$endif read_implementation}