Tweet
'---------------------------------------------------------
' File: CENTDLG.BAS Center the Open/Save Dialog Box
'
'
'---------------------------------------------------------
'Notifications for Open dialog control
%CDN_INITDONE = (%CDN_FIRST - 0000 )
%CDN_SELCHANGE = (%CDN_FIRST - 0001 )
%CDN_FOLDERCHANGE = (%CDN_FIRST - 0002 )
%CDN_SHAREVIOLATION = (%CDN_FIRST - 0003 )
%CDN_HELP = (%CDN_FIRST - 0004 )
%CDN_FILEOK = (%CDN_FIRST - 0005 )
%CDN_TYPECHANGE = (%CDN_FIRST - 0006 )
'%CDM_FIRST = (%WM_USER + 100 )
'%CDM_LAST = (%WM_USER + 200 )
'---
Type TAGOFNOTIFY
hdr As NMHDR
End Type
'---
Function OpenCommDlg_Proc(ByVal hWnd As LONG, ByVal wMsg As LONG, ByVal wParam As LONG, ByVal lParam As LONG ) EXPORT As LONG
DIM X As Long
DIM Y As Long
DIM R As RECT
Dim tNOTIFY As TAGOFNOTIFY PTR
Select Case wMsg
Case %WM_NOTIFY
tNOTIFY = lParam
If @tNOTIFY.hdr.Code = %CDN_INITDONE Then
GetWindowRect GetParent( hWnd ), R
X = GetSystemMetrics ( %SM_CXSCREEN )
Y = GetSystemMetrics ( %SM_CYSCREEN )
X = ( X - ( R.nRight - R.nLeft ) ) \ 2
Y = ( Y - ( R.nBottom - R.nTop ) ) \ 2
SetWindowPos GetParent( hWnd ), %NULL, X, Y, 0, 0, %SWP_NOSIZE OR %SWP_NOZORDER
End If
End Select
End Function
'---
FUNCTION OpenFileCenterDlg(BYVAL hWnd AS LONG, _ ' parent window
BYVAL Caption AS STRING, _ ' caption
Filespec AS STRING, _ ' filename
BYVAL InitialDir AS STRING, _ ' start directory
BYVAL Filter AS STRING, _ ' filename filter
BYVAL DefExtension AS STRING, _ ' default extension
Flags AS LONG) AS LONG ' flags
LOCAL Ofn AS OPENFILENAME
LOCAL zFile AS ASCIIZ * 256
LOCAL zFileTitle AS ASCIIZ * 256
LOCAL zFilter AS ASCIIZ * 256
LOCAL zInitialDir AS ASCIIZ * 256
LOCAL zTitle AS ASCIIZ * 256
LOCAL zDefExt AS ASCIIZ * 10
REPLACE "|" WITH CHR$(0) IN Filter
IF LEN(InitialDir) = 0 THEN
InitialDir = CURDIR$
END IF
zFilter = Filter + CHR$(0)
zInitialDir = InitialDir + CHR$(0)
zFile = Filespec + CHR$(0)
zDefExt = DefExtension + CHR$(0)
zTitle = Caption + CHR$(0)
ofn.lStructSize = SIZEOF(ofn)
ofn.hWndOwner = hWnd
ofn.lpstrFilter = VARPTR(zFilter)
ofn.nFilterIndex = 1
ofn.lpstrFile = VARPTR(zFile)
ofn.nMaxFile = SIZEOF(zFile)
ofn.lpstrFileTitle = VARPTR(zFileTitle)
ofn.nMaxFileTitle = SIZEOF(zFileTitle)
ofn.lpstrInitialDir = VARPTR(zInitialDir)
IF LEN(zTitle) THEN
ofn.lpstrTitle = VARPTR(zTitle)
END IF
ofn.Flags = Flags OR %OFN_ENABLEHOOK OR %OFN_EXPLORER
ofn.lpstrDefExt = VARPTR(zDefExt)
ofn.lpfnHook = CODEPTR(openCommDlg_Proc)
FUNCTION = GetOpenFilename(ofn)
Filespec = zFile
Flags = ofn.Flags
END FUNCTION
'---
FUNCTION SaveFileCenterDlg(BYVAL hWnd AS LONG, _ ' parent window
BYVAL Caption AS STRING, _ ' caption
Filespec AS STRING, _ ' filename
BYVAL InitialDir AS STRING, _ ' start directory
BYVAL Filter AS STRING, _ ' filename filter
DefExtension AS STRING, _ ' default extension
Flags AS LONG) AS LONG ' flags
LOCAL Ofn AS OPENFILENAME
LOCAL zFile AS ASCIIZ * 256
LOCAL zFileTitle AS ASCIIZ * 256
LOCAL zFilter AS ASCIIZ * 256
LOCAL zInitialDir AS ASCIIZ * 256
LOCAL zTitle AS ASCIIZ * 256
LOCAL zDefExt AS ASCIIZ * 10
REPLACE "|" WITH CHR$(0) IN Filter
IF LEN(InitialDir) = 0 THEN
InitialDir = CURDIR$
END IF
zFilter = Filter + CHR$(0)
zInitialDir = InitialDir + CHR$(0)
zFile = Filespec + CHR$(0)
zDefExt = DefExtension + CHR$(0)
zTitle = Caption + CHR$(0)
ofn.lStructSize = SIZEOF(ofn)
ofn.hWndOwner = hWnd
ofn.lpstrFilter = VARPTR(zFilter)
ofn.nFilterIndex = 1
ofn.lpstrFile = VARPTR(zFile)
ofn.nMaxFile = SIZEOF(zFile)
ofn.lpstrFileTitle = VARPTR(zFileTitle)
ofn.nMaxFileTitle = SIZEOF(zFileTitle)
ofn.lpstrInitialDir = VARPTR(zInitialDir)
IF LEN(zTitle) THEN
ofn.lpstrTitle = VARPTR(zTitle)
END IF
ofn.Flags = Flags OR %OFN_ENABLEHOOK OR %OFN_EXPLORER
ofn.lpstrDefExt = VARPTR(zDefExt)
ofn.lpfnHook = CODEPTR(openCommDlg_Proc)
FUNCTION = GetSaveFilename(ofn)
Filespec = zFile
Flags = ofn.Flags
END FUNCTION
'--------------------* End *----------------
Comment