paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 09:11:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Added CreateDialogParam and CreateDialog declarations.

Browse Source 
git-svn-id: trunk@2564 -
This commit is contained in:
yury 2006-02-14 00:22:48 +00:00
parent 7c4a3b2ea9
commit acaf1e33cf
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/wince/wininc/unidef.inc
View File

@ -229,6 +229,8 @@ function wvsprintf(_para1:LPWSTR; _para2:LPCWSTR; arglist:va_list):longint; exte
//'ChooseColorW' not exported but 'ChooseColor' yes //'ChooseColorW' not exported but 'ChooseColor' yes
function ChooseColor(_para1:LPCHOOSECOLOR):WINBOOL; external ComdlgDLL name 'ChooseColor'; function ChooseColor(_para1:LPCHOOSECOLOR):WINBOOL; external ComdlgDLL name 'ChooseColor';
function CreateDialog(hInstance:HINST; lpName:LPCWSTR; hWndParent:HWND; lpDialogFunc:DLGPROC):HWND;
function CreateDialogParam(hInstance:HINST; lpTemplateName:LPCWSTR; hWndParent:HWND; lpDialogFunc:DLGPROC; dwInitParam:LPARAM):HWND;
function DialogBoxParam(hInstance:HINST; lpTemplateName:LPCWSTR; hWndParent:HWND; lpDialogFunc:DLGPROC; dwInitParam:LPARAM):longint; function DialogBoxParam(hInstance:HINST; lpTemplateName:LPCWSTR; hWndParent:HWND; lpDialogFunc:DLGPROC; dwInitParam:LPARAM):longint;
//'EnumDisplaySettingsW' not exported but 'EnumDisplaySettings' with widechar header is //'EnumDisplaySettingsW' not exported but 'EnumDisplaySettings' with widechar header is
function EnumDisplaySettings(lpszDeviceName:LPCWSTR; iModeNum:DWORD; lpDevMode:LPDEVMODEW):WINBOOL; external UserDLLCore name 'EnumDisplaySettings'; function EnumDisplaySettings(lpszDeviceName:LPCWSTR; iModeNum:DWORD; lpDevMode:LPDEVMODEW):WINBOOL; external UserDLLCore name 'EnumDisplaySettings';
@ -580,6 +582,18 @@ begin
dwInitParam); dwInitParam);
end; end;
function CreateDialogParam(hInstance:HINST; lpTemplateName:LPCWSTR; hWndParent:HWND; lpDialogFunc:DLGPROC; dwInitParam:LPARAM):HWND;
begin
CreateDialogIndirectParam(hInstance,
LPCDLGTEMPLATEW(LoadResource(hInstance, FindResource(hInstance, lpTemplateName, RT_DIALOG))),
hWndParent, lpDialogFunc, dwInitParam);
end;
function CreateDialog(hInstance:HINST; lpName:LPCWSTR; hWndParent:HWND; lpDialogFunc:DLGPROC):HWND;
begin
CreateDialogParam(hInstance, lpName, hWndParent, lpDialogFunc, 0);
end;
//end wince only //end wince only
{$endif WINCE} {$endif WINCE}