[Phpgroupware-cvs] sync/tools/idgenexport.bas, 1.6

[nomail]

Update of /sync/tools
Modified Files:
        Branch: 
          idgenexport.bas

date: 2004/07/15 09:38:50;  author: mleonhardt;  state: Exp;  lines: +2 -1

Log Message:
- create directory button in dirselbox
=====================================================================
Index: sync/tools/idgenexport.bas
diff -u sync/tools/idgenexport.bas:1.5 sync/tools/idgenexport.bas:1.6
--- sync/tools/idgenexport.bas:1.5      Wed Jul 14 17:08:43 2004
+++ sync/tools/idgenexport.bas  Thu Jul 15 09:38:50 2004
@@ -5,6 +5,7 @@
 Public m_CurrentDirectory As String 'The current directory
 
 Private Const BIF_STATUSTEXT = &H4&
+Private Const BIF_NEWDIALOGSTYLE = &H40&
 Private Const BIF_RETURNONLYFSDIRS = 1
 Private Const BIF_DONTGOBELOWDOMAIN = 2
 Private Const MAX_PATH = 260
@@ -78,7 +79,7 @@
 With tBrowseInfo
 '    .hWndOwner = owner.hWnd
     .lpszTitle = lstrcat(szTitle, "")
-    .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN + BIF_STATUSTEXT
+    .ulFlags = BIF_STATUSTEXT + BIF_NEWDIALOGSTYLE
     .lpfnCallback = GetAddressofFunction(AddressOf BrowseCallbackProc) 'get 
address of function.
 End With