I Think the ComDlg32.inc needs a minor adjustment.
Playing with the PBNote sample, the OpenFileDialog and
SaveFileDialog functions GPF'ed, and what caused the GPF'ing
was the statement :
Code:
ofn.Flags = Flags
-per
------------------
ofn.Flags = Flags
FUNCTION SaveFileDialog ( _ 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 >>>> BYVAL Flags AS DWORD _ ' flags ) AS LONG FUNCTION OpenFileDialog ( _ 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 >>>> BYVAL Flags AS DWORD _ ' flags ) AS LONG
If OpenFileDialog(hWndMain, "Open File", f, Path, "Text Files|*.TXT|All Files|*.*", "TXT", ByVal Style) THEN If ISFALSE(SaveFileDialog(hWndMain, "Save File", f, Path,"Text Files|*.TXT|All Files|*.*", "TXT", ByVal Style)) Then
We process personal data about users of our site, through the use of cookies and other technologies, to deliver our services, and to analyze site activity. For additional details, refer to our Privacy Policy.
By clicking "I AGREE" below, you agree to our Privacy Policy and our personal data processing and cookie practices as described therein. You also acknowledge that this forum may be hosted outside your country and you consent to the collection, storage, and processing of your data in the country where this forum is hosted.
Comment