Browse Source

* Added CreateDialogParam and CreateDialog declarations.

git-svn-id: trunk@2564 -
yury 19 years ago
parent
commit
acaf1e33cf
1 changed files with 14 additions and 0 deletions
  1. 14 0
      rtl/wince/wininc/unidef.inc

+ 14 - 0
rtl/wince/wininc/unidef.inc

@@ -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}