1*5900e8ecSAndrew Rist /**************************************************************
2cdf0e10cSrcweir *
3*5900e8ecSAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one
4*5900e8ecSAndrew Rist * or more contributor license agreements. See the NOTICE file
5*5900e8ecSAndrew Rist * distributed with this work for additional information
6*5900e8ecSAndrew Rist * regarding copyright ownership. The ASF licenses this file
7*5900e8ecSAndrew Rist * to you under the Apache License, Version 2.0 (the
8*5900e8ecSAndrew Rist * "License"); you may not use this file except in compliance
9*5900e8ecSAndrew Rist * with the License. You may obtain a copy of the License at
10*5900e8ecSAndrew Rist *
11*5900e8ecSAndrew Rist * http://www.apache.org/licenses/LICENSE-2.0
12*5900e8ecSAndrew Rist *
13*5900e8ecSAndrew Rist * Unless required by applicable law or agreed to in writing,
14*5900e8ecSAndrew Rist * software distributed under the License is distributed on an
15*5900e8ecSAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*5900e8ecSAndrew Rist * KIND, either express or implied. See the License for the
17*5900e8ecSAndrew Rist * specific language governing permissions and limitations
18*5900e8ecSAndrew Rist * under the License.
19*5900e8ecSAndrew Rist *
20*5900e8ecSAndrew Rist *************************************************************/
21*5900e8ecSAndrew Rist
22*5900e8ecSAndrew Rist
23cdf0e10cSrcweir
24cdf0e10cSrcweir // MARKER(update_precomp.py): autogen include statement, do not remove
25cdf0e10cSrcweir #include "precompiled_svtools.hxx"
26cdf0e10cSrcweir #include <vcl/svapp.hxx>
27cdf0e10cSrcweir #include <vcl/button.hxx>
28cdf0e10cSrcweir #include <vcl/fixed.hxx>
29cdf0e10cSrcweir #include <vcl/edit.hxx>
30cdf0e10cSrcweir #include <vcl/lstbox.hxx>
31cdf0e10cSrcweir #include <svtools/svtdata.hxx>
32cdf0e10cSrcweir #include <filedlg2.hxx>
33cdf0e10cSrcweir #include <svtools/filedlg.hxx>
34cdf0e10cSrcweir #include <svtools/filedlg2.hrc>
35cdf0e10cSrcweir #include <vcl/msgbox.hxx>
36cdf0e10cSrcweir #include <vos/security.hxx>
37cdf0e10cSrcweir #include <com/sun/star/i18n/XCollator.hpp>
38cdf0e10cSrcweir
39cdf0e10cSrcweir #include <svtools/stdctrl.hxx>
40cdf0e10cSrcweir
41cdf0e10cSrcweir #ifdef _MSC_VER
42cdf0e10cSrcweir #pragma optimize ("", off)
43cdf0e10cSrcweir #endif
44cdf0e10cSrcweir
45cdf0e10cSrcweir #include <svtools/helpid.hrc>
46cdf0e10cSrcweir
47cdf0e10cSrcweir using namespace com::sun::star;
48cdf0e10cSrcweir using namespace com::sun::star::uno;
49cdf0e10cSrcweir
50cdf0e10cSrcweir
DECLARE_LIST(UniStringList,UniString *)51cdf0e10cSrcweir DECLARE_LIST( UniStringList, UniString* )
52cdf0e10cSrcweir
53cdf0e10cSrcweir #define STD_BTN_WIDTH 80
54cdf0e10cSrcweir #define STD_BTN_HEIGHT 26
55cdf0e10cSrcweir
56cdf0e10cSrcweir #ifndef UNX
57cdf0e10cSrcweir #define ALLFILES "*.*"
58cdf0e10cSrcweir #else
59cdf0e10cSrcweir #define ALLFILES "*"
60cdf0e10cSrcweir #endif
61cdf0e10cSrcweir // #define STD_BTN_WIDTH 90
62cdf0e10cSrcweir // #define STD_BTN_HEIGHT 35
63cdf0e10cSrcweir
64cdf0e10cSrcweir #define INITCONTROL( p, ControlClass, nBits, aPos, aSize, aTitel, rHelpId ) \
65cdf0e10cSrcweir p = new ControlClass( GetPathDialog(), WinBits( nBits ) ); \
66cdf0e10cSrcweir p->SetHelpId( rHelpId ); \
67cdf0e10cSrcweir p->SetPosSizePixel( aPos, aSize ); \
68cdf0e10cSrcweir p->SetText( aTitel ); \
69cdf0e10cSrcweir p->Show();
70cdf0e10cSrcweir
71cdf0e10cSrcweir
72cdf0e10cSrcweir inline sal_Bool IsPrintable( sal_Unicode c )
73cdf0e10cSrcweir {
74cdf0e10cSrcweir return c >= 32 && c != 127 ? sal_True : sal_False;
75cdf0e10cSrcweir }
76cdf0e10cSrcweir
77cdf0e10cSrcweir long
PreNotify(NotifyEvent & rNEvt)78cdf0e10cSrcweir KbdListBox::PreNotify( NotifyEvent& rNEvt )
79cdf0e10cSrcweir {
80cdf0e10cSrcweir if ( rNEvt.GetType() == EVENT_KEYINPUT )
81cdf0e10cSrcweir {
82cdf0e10cSrcweir KeyEvent aKeyEvt = *rNEvt.GetKeyEvent();
83cdf0e10cSrcweir sal_Unicode cCharCode = aKeyEvt.GetCharCode();
84cdf0e10cSrcweir
85cdf0e10cSrcweir if ( IsPrintable ( cCharCode ) )
86cdf0e10cSrcweir {
87cdf0e10cSrcweir sal_uInt16 nCurrentPos = GetSelectEntryPos();
88cdf0e10cSrcweir sal_uInt16 nEntries = GetEntryCount();
89cdf0e10cSrcweir
90cdf0e10cSrcweir for ( sal_uInt16 i = 1; i < nEntries; i++ )
91cdf0e10cSrcweir {
92cdf0e10cSrcweir UniString aEntry = GetEntry ( (i + nCurrentPos) % nEntries );
93cdf0e10cSrcweir aEntry.EraseLeadingChars( ' ' );
94cdf0e10cSrcweir aEntry.ToUpperAscii();
95cdf0e10cSrcweir UniString aCompare( cCharCode );
96cdf0e10cSrcweir aCompare.ToUpperAscii();
97cdf0e10cSrcweir
98cdf0e10cSrcweir if ( aEntry.CompareTo( aCompare, 1 ) == COMPARE_EQUAL )
99cdf0e10cSrcweir {
100cdf0e10cSrcweir SelectEntryPos ( (i + nCurrentPos) % nEntries );
101cdf0e10cSrcweir break;
102cdf0e10cSrcweir }
103cdf0e10cSrcweir }
104cdf0e10cSrcweir }
105cdf0e10cSrcweir else
106cdf0e10cSrcweir if ( aKeyEvt.GetKeyCode().GetCode() == KEY_RETURN )
107cdf0e10cSrcweir {
108cdf0e10cSrcweir DoubleClick();
109cdf0e10cSrcweir }
110cdf0e10cSrcweir }
111cdf0e10cSrcweir
112cdf0e10cSrcweir return ListBox::PreNotify ( rNEvt );
113cdf0e10cSrcweir }
114cdf0e10cSrcweir
ImpPathDialog(PathDialog * pDlg,RESOURCE_TYPE nType,sal_Bool bCreateDir)115cdf0e10cSrcweir ImpPathDialog::ImpPathDialog( PathDialog* pDlg, RESOURCE_TYPE nType, sal_Bool bCreateDir )
116cdf0e10cSrcweir {
117cdf0e10cSrcweir pSvPathDialog = pDlg;
118cdf0e10cSrcweir nDirCount = 0;
119cdf0e10cSrcweir
120cdf0e10cSrcweir // initialize Controls if not used as a base class
121cdf0e10cSrcweir if ( nType == WINDOW_PATHDIALOG )
122cdf0e10cSrcweir {
123cdf0e10cSrcweir InitControls();
124cdf0e10cSrcweir if( pNewDirBtn )
125cdf0e10cSrcweir pNewDirBtn->Enable( bCreateDir );
126cdf0e10cSrcweir }
127cdf0e10cSrcweir
128cdf0e10cSrcweir pDlg->SetHelpId( HID_FILEDLG_PATHDLG );
129cdf0e10cSrcweir
130cdf0e10cSrcweir lang::Locale aLocale = Application::GetSettings().GetLocale();
131cdf0e10cSrcweir xCollator = ::vcl::unohelper::CreateCollator();
132cdf0e10cSrcweir if( xCollator.is() )
133cdf0e10cSrcweir xCollator->loadDefaultCollator( aLocale, 1 );
134cdf0e10cSrcweir DBG_ASSERT( xCollator.is(), "not collator service for path dialog" );
135cdf0e10cSrcweir }
136cdf0e10cSrcweir
~ImpPathDialog()137cdf0e10cSrcweir ImpPathDialog::~ImpPathDialog()
138cdf0e10cSrcweir {
139cdf0e10cSrcweir delete pEdit;
140cdf0e10cSrcweir delete pDirTitel;
141cdf0e10cSrcweir delete pDirList;
142cdf0e10cSrcweir delete pDirPath;
143cdf0e10cSrcweir delete pDriveList;
144cdf0e10cSrcweir delete pDriveTitle;
145cdf0e10cSrcweir delete pLoadBtn;
146cdf0e10cSrcweir delete pOkBtn;
147cdf0e10cSrcweir delete pCancelBtn;
148cdf0e10cSrcweir delete pNewDirBtn;
149cdf0e10cSrcweir # if defined(UNX) || defined(OS2)
150cdf0e10cSrcweir delete pHomeBtn;
151cdf0e10cSrcweir # endif
152cdf0e10cSrcweir }
153cdf0e10cSrcweir
InitControls()154cdf0e10cSrcweir void ImpPathDialog::InitControls()
155cdf0e10cSrcweir {
156cdf0e10cSrcweir PathDialog* pDlg = GetPathDialog();
157cdf0e10cSrcweir pDlg->SetText( UniString( SvtResId( STR_FILEDLG_SELECT ) ) );
158cdf0e10cSrcweir
159cdf0e10cSrcweir Size a3Siz = pDlg->LogicToPixel( Size( 3, 3 ), MAP_APPFONT );
160cdf0e10cSrcweir Size a6Siz = pDlg->LogicToPixel( Size( 6, 6 ), MAP_APPFONT );
161cdf0e10cSrcweir Size aBtnSiz = pDlg->LogicToPixel( Size( 50, 14 ), MAP_APPFONT );
162cdf0e10cSrcweir Size aFTSiz = pDlg->LogicToPixel( Size( 142, 10 ), MAP_APPFONT );
163cdf0e10cSrcweir Size aEDSiz = pDlg->LogicToPixel( Size( 142, 12 ), MAP_APPFONT );
164cdf0e10cSrcweir Point aPnt( a6Siz.Width(), a6Siz.Height() );
165cdf0e10cSrcweir long nLbH1 = pDlg->LogicToPixel( Size( 0, 93 ), MAP_APPFONT ).Height();
166cdf0e10cSrcweir long nH = 0;
167cdf0e10cSrcweir UniString aEmptyStr;
168cdf0e10cSrcweir
169cdf0e10cSrcweir INITCONTROL( pDirTitel, FixedText, 0,
170cdf0e10cSrcweir aPnt, aFTSiz, UniString( SvtResId( STR_FILEDLG_DIR ) ), HID_FILEDLG_DIR );
171cdf0e10cSrcweir aPnt.Y() += aFTSiz.Height() + a3Siz.Height();
172cdf0e10cSrcweir
173cdf0e10cSrcweir INITCONTROL( pEdit, Edit, WB_BORDER, aPnt, aEDSiz, aPath.GetFull(), HID_FILEDLG_EDIT );
174cdf0e10cSrcweir
175cdf0e10cSrcweir aPnt.Y() += aEDSiz.Height() + a3Siz.Height();
176cdf0e10cSrcweir #ifndef UNX
177cdf0e10cSrcweir long nLbH2 = pDlg->LogicToPixel( Size( 0, 60 ), MAP_APPFONT ).Height();
178cdf0e10cSrcweir INITCONTROL( pDirList, KbdListBox, WB_AUTOHSCROLL | WB_BORDER,
179cdf0e10cSrcweir aPnt, Size( aEDSiz.Width(), nLbH1 ), aEmptyStr, HID_FILEDLG_DIRS );
180cdf0e10cSrcweir aPnt.Y() += nLbH1 + a6Siz.Height();
181cdf0e10cSrcweir INITCONTROL( pDriveTitle, FixedText, 0,
182cdf0e10cSrcweir aPnt, aFTSiz, UniString( SvtResId( STR_FILEDLG_DRIVES ) ), HID_FILEDLG_DRIVE );
183cdf0e10cSrcweir aPnt.Y() += aFTSiz.Height() + a3Siz.Height();
184cdf0e10cSrcweir INITCONTROL( pDriveList, ListBox, WB_DROPDOWN,
185cdf0e10cSrcweir aPnt, Size( aEDSiz.Width(), nLbH2 ), aEmptyStr, HID_FILEDLG_DRIVES );
186cdf0e10cSrcweir nH = aPnt.Y() + aEDSiz.Height() + a6Siz.Height();
187cdf0e10cSrcweir #else
188cdf0e10cSrcweir long nNewH = nLbH1 + 3 * a3Siz.Height() +
189cdf0e10cSrcweir aFTSiz.Height() + aEDSiz.Height();
190cdf0e10cSrcweir INITCONTROL( pDirList, KbdListBox, WB_AUTOHSCROLL | WB_BORDER,
191cdf0e10cSrcweir aPnt, Size( aEDSiz.Width(), nNewH ), aEmptyStr, HID_FILEDLG_DIRS );
192cdf0e10cSrcweir nH = aPnt.Y() + nNewH + a6Siz.Height();
193cdf0e10cSrcweir pDriveTitle = NULL;
194cdf0e10cSrcweir pDriveList = NULL;
195cdf0e10cSrcweir #endif
196cdf0e10cSrcweir
197cdf0e10cSrcweir long nExtraWidth = pDlg->GetTextWidth( String( RTL_CONSTASCII_USTRINGPARAM( "(W)" ) ) )+10;
198cdf0e10cSrcweir String aOkStr = Button::GetStandardText( BUTTON_OK );
199cdf0e10cSrcweir long nTextWidth = pDlg->GetTextWidth( aOkStr )+nExtraWidth;
200cdf0e10cSrcweir if( nTextWidth > aBtnSiz.Width() )
201cdf0e10cSrcweir aBtnSiz.Width() = nTextWidth;
202cdf0e10cSrcweir
203cdf0e10cSrcweir String aCancelStr = Button::GetStandardText( BUTTON_CANCEL );
204cdf0e10cSrcweir nTextWidth = pDlg->GetTextWidth( aCancelStr )+nExtraWidth;
205cdf0e10cSrcweir if( nTextWidth > aBtnSiz.Width() )
206cdf0e10cSrcweir aBtnSiz.Width() = nTextWidth;
207cdf0e10cSrcweir
208cdf0e10cSrcweir String aNewDirStr( SvtResId( STR_FILEDLG_NEWDIR ) );
209cdf0e10cSrcweir nTextWidth = pDlg->GetTextWidth( aNewDirStr )+nExtraWidth;
210cdf0e10cSrcweir if( nTextWidth > aBtnSiz.Width() )
211cdf0e10cSrcweir aBtnSiz.Width() = nTextWidth;
212cdf0e10cSrcweir #if defined(UNX) || defined(OS2)
213cdf0e10cSrcweir String aHomeDirStr( SvtResId( STR_FILEDLG_HOME ) );
214cdf0e10cSrcweir nTextWidth = pDlg->GetTextWidth( aHomeDirStr )+nExtraWidth;
215cdf0e10cSrcweir if( nTextWidth > aBtnSiz.Width() )
216cdf0e10cSrcweir aBtnSiz.Width() = nTextWidth;
217cdf0e10cSrcweir #endif
218cdf0e10cSrcweir
219cdf0e10cSrcweir aPnt.X() = 2 * a6Siz.Width() + aEDSiz.Width();
220cdf0e10cSrcweir aPnt.Y() = a6Siz.Height();
221cdf0e10cSrcweir INITCONTROL( pOkBtn, PushButton, WB_DEFBUTTON,
222cdf0e10cSrcweir aPnt, aBtnSiz, aOkStr, "" );
223cdf0e10cSrcweir aPnt.Y() += aBtnSiz.Height() + a3Siz.Height();
224cdf0e10cSrcweir INITCONTROL( pCancelBtn, CancelButton, 0,
225cdf0e10cSrcweir aPnt, aBtnSiz, aCancelStr, "" );
226cdf0e10cSrcweir aPnt.Y() += aBtnSiz.Height() + a3Siz.Height();
227cdf0e10cSrcweir INITCONTROL( pNewDirBtn, PushButton, WB_DEFBUTTON,
228cdf0e10cSrcweir aPnt, aBtnSiz, aNewDirStr, HID_FILEDLG_NEWDIR );
229cdf0e10cSrcweir #if defined(UNX) || defined(OS2)
230cdf0e10cSrcweir aPnt.Y() += aBtnSiz.Height() + a3Siz.Height();
231cdf0e10cSrcweir INITCONTROL( pHomeBtn, PushButton, WB_DEFBUTTON,
232cdf0e10cSrcweir aPnt, aBtnSiz, aHomeDirStr, HID_FILEDLG_HOME );
233cdf0e10cSrcweir #else
234cdf0e10cSrcweir pHomeBtn = NULL;
235cdf0e10cSrcweir #endif
236cdf0e10cSrcweir
237cdf0e10cSrcweir pDirPath = 0;
238cdf0e10cSrcweir pLoadBtn = 0;
239cdf0e10cSrcweir // Dialogbreite == OKBtn-Position + OKBtn-Breite + Rand
240cdf0e10cSrcweir long nW = aPnt.X() + aBtnSiz.Width() + a6Siz.Width();
241cdf0e10cSrcweir
242cdf0e10cSrcweir pDlg->SetOutputSizePixel( Size( nW, nH ) ); // Groesse ggf. auch Resource wird geplaettet?
243cdf0e10cSrcweir
244cdf0e10cSrcweir if (pDirList)
245cdf0e10cSrcweir pDirList->SetDoubleClickHdl(LINK( this, ImpPathDialog, DblClickHdl) );
246cdf0e10cSrcweir
247cdf0e10cSrcweir if (pDirList)
248cdf0e10cSrcweir pDirList->SetSelectHdl( LINK( this, ImpPathDialog, SelectHdl ) );
249cdf0e10cSrcweir
250cdf0e10cSrcweir if (pDriveList)
251cdf0e10cSrcweir pDriveList->SetSelectHdl( LINK( this, ImpPathDialog, SelectHdl ) );
252cdf0e10cSrcweir
253cdf0e10cSrcweir if (pOkBtn)
254cdf0e10cSrcweir pOkBtn->SetClickHdl( LINK( this, ImpPathDialog, ClickHdl) );
255cdf0e10cSrcweir
256cdf0e10cSrcweir if (pCancelBtn)
257cdf0e10cSrcweir pCancelBtn->SetClickHdl( LINK( this, ImpPathDialog, ClickHdl) );
258cdf0e10cSrcweir
259cdf0e10cSrcweir if (pHomeBtn)
260cdf0e10cSrcweir pHomeBtn->SetClickHdl( LINK( this, ImpPathDialog, ClickHdl) );
261cdf0e10cSrcweir
262cdf0e10cSrcweir if (pNewDirBtn)
263cdf0e10cSrcweir pNewDirBtn->SetClickHdl( LINK( this, ImpPathDialog, ClickHdl) );
264cdf0e10cSrcweir
265cdf0e10cSrcweir nOwnChilds = pDlg->GetChildCount();
266cdf0e10cSrcweir }
267cdf0e10cSrcweir
268cdf0e10cSrcweir
269cdf0e10cSrcweir
IMPL_LINK(ImpPathDialog,SelectHdl,ListBox *,p)270cdf0e10cSrcweir IMPL_LINK( ImpPathDialog, SelectHdl, ListBox *, p )
271cdf0e10cSrcweir {
272cdf0e10cSrcweir if( p == pDriveList )
273cdf0e10cSrcweir {
274cdf0e10cSrcweir UniString aDrive( pDriveList->GetSelectEntry(), 0, 2);
275cdf0e10cSrcweir aDrive += '\\';
276cdf0e10cSrcweir SetPath( aDrive );
277cdf0e10cSrcweir }
278cdf0e10cSrcweir else
279cdf0e10cSrcweir if( p == pDirList )
280cdf0e10cSrcweir {
281cdf0e10cSrcweir // isolate the pure name of the entry
282cdf0e10cSrcweir // removing trainling stuff and leading spaces
283cdf0e10cSrcweir UniString aEntry( pDirList->GetSelectEntry() );
284cdf0e10cSrcweir
285cdf0e10cSrcweir aEntry.EraseLeadingChars( ' ' );
286cdf0e10cSrcweir sal_uInt16 nPos = aEntry.Search( '/' );
287cdf0e10cSrcweir aEntry.Erase( nPos );
288cdf0e10cSrcweir
289cdf0e10cSrcweir // build the absolute path to the selected item
290cdf0e10cSrcweir DirEntry aNewPath;
291cdf0e10cSrcweir aNewPath.ToAbs();
292cdf0e10cSrcweir
293cdf0e10cSrcweir sal_uInt16 nCurPos = pDirList->GetSelectEntryPos();
294cdf0e10cSrcweir
295cdf0e10cSrcweir // Wird nach oben gewechselt
296cdf0e10cSrcweir if( nCurPos < nDirCount )
297cdf0e10cSrcweir aNewPath = aNewPath[nDirCount-nCurPos-1];
298cdf0e10cSrcweir else
299cdf0e10cSrcweir aNewPath += aEntry;
300cdf0e10cSrcweir
301cdf0e10cSrcweir pEdit->SetText( aNewPath.GetFull() );
302cdf0e10cSrcweir }
303cdf0e10cSrcweir
304cdf0e10cSrcweir return 0;
305cdf0e10cSrcweir }
306cdf0e10cSrcweir
307cdf0e10cSrcweir
IMPL_LINK(ImpPathDialog,ClickHdl,Button *,pBtn)308cdf0e10cSrcweir IMPL_LINK( ImpPathDialog, ClickHdl, Button*, pBtn )
309cdf0e10cSrcweir {
310cdf0e10cSrcweir if ( pBtn == pOkBtn || pBtn == pLoadBtn )
311cdf0e10cSrcweir {
312cdf0e10cSrcweir DirEntry aFile( pEdit->GetText() );
313cdf0e10cSrcweir
314cdf0e10cSrcweir // Existiert File / File ueberschreiben
315cdf0e10cSrcweir if( IsFileOk( aFile ) )
316cdf0e10cSrcweir {
317cdf0e10cSrcweir // Ja, dann kompletten Pfad mit Filenamen merken und Dialog beenden
318cdf0e10cSrcweir aPath = aFile;
319cdf0e10cSrcweir aPath.ToAbs();
320cdf0e10cSrcweir GetPathDialog()->EndDialog( sal_True );
321cdf0e10cSrcweir }
322cdf0e10cSrcweir else
323cdf0e10cSrcweir {
324cdf0e10cSrcweir DirEntry aCheck( aPath );
325cdf0e10cSrcweir aCheck += aFile;
326cdf0e10cSrcweir if( aCheck.Exists() )
327cdf0e10cSrcweir {
328cdf0e10cSrcweir aCheck.ToAbs();
329cdf0e10cSrcweir SetPath( aCheck.GetFull() );
330cdf0e10cSrcweir pEdit->SetSelection( Selection( 0x7FFFFFFF, 0x7FFFFFFF ) );
331cdf0e10cSrcweir }
332cdf0e10cSrcweir }
333cdf0e10cSrcweir }
334cdf0e10cSrcweir else
335cdf0e10cSrcweir if ( pBtn == pCancelBtn )
336cdf0e10cSrcweir {
337cdf0e10cSrcweir GetPathDialog()->EndDialog( sal_False );
338cdf0e10cSrcweir }
339cdf0e10cSrcweir else
340cdf0e10cSrcweir if ( pBtn == pHomeBtn )
341cdf0e10cSrcweir {
342cdf0e10cSrcweir ::rtl::OUString aHomeDir;
343cdf0e10cSrcweir vos:: OSecurity aSecurity;
344cdf0e10cSrcweir if ( aSecurity.getHomeDir( aHomeDir ) )
345cdf0e10cSrcweir {
346cdf0e10cSrcweir DirEntry aFile ( aHomeDir );
347cdf0e10cSrcweir if ( IsFileOk( aFile ) )
348cdf0e10cSrcweir {
349cdf0e10cSrcweir aFile.ToAbs();
350cdf0e10cSrcweir SetPath( aFile.GetFull() );
351cdf0e10cSrcweir }
352cdf0e10cSrcweir }
353cdf0e10cSrcweir }
354cdf0e10cSrcweir else
355cdf0e10cSrcweir if ( pBtn == pNewDirBtn )
356cdf0e10cSrcweir {
357cdf0e10cSrcweir DirEntry aFile( pEdit->GetText() );
358cdf0e10cSrcweir if( ! aFile.Exists() && ! FileStat( aFile ).IsKind( FSYS_KIND_WILD ) )
359cdf0e10cSrcweir aFile.MakeDir();
360cdf0e10cSrcweir
361cdf0e10cSrcweir if( IsFileOk ( aFile ) )
362cdf0e10cSrcweir {
363cdf0e10cSrcweir aFile.ToAbs();
364cdf0e10cSrcweir SetPath( aFile.GetFull() );
365cdf0e10cSrcweir }
366cdf0e10cSrcweir }
367cdf0e10cSrcweir
368cdf0e10cSrcweir return 0;
369cdf0e10cSrcweir }
370cdf0e10cSrcweir
371cdf0e10cSrcweir
IMPL_LINK(ImpPathDialog,DblClickHdl,ListBox *,pBox)372cdf0e10cSrcweir IMPL_LINK( ImpPathDialog, DblClickHdl, ListBox*, pBox )
373cdf0e10cSrcweir {
374cdf0e10cSrcweir // isolate the pure name of the entry
375cdf0e10cSrcweir // removing trainling stuff and leading spaces
376cdf0e10cSrcweir UniString aEntry( pBox->GetSelectEntry() );
377cdf0e10cSrcweir
378cdf0e10cSrcweir aEntry.EraseLeadingChars( ' ' );
379cdf0e10cSrcweir sal_uInt16 nPos = aEntry.Search( '/' );
380cdf0e10cSrcweir aEntry.Erase( nPos );
381cdf0e10cSrcweir
382cdf0e10cSrcweir // build the absolute path to the selected item
383cdf0e10cSrcweir DirEntry aNewPath;
384cdf0e10cSrcweir aNewPath.ToAbs();
385cdf0e10cSrcweir if( pBox == pDirList )
386cdf0e10cSrcweir {
387cdf0e10cSrcweir sal_uInt16 nCurPos = pDirList->GetSelectEntryPos();
388cdf0e10cSrcweir
389cdf0e10cSrcweir // Wenn es schon das aktuelle ist, dann mache nichts
390cdf0e10cSrcweir if( nCurPos == nDirCount-1 )
391cdf0e10cSrcweir return 0;
392cdf0e10cSrcweir
393cdf0e10cSrcweir // Wird nach oben gewechselt
394cdf0e10cSrcweir if( nCurPos < nDirCount )
395cdf0e10cSrcweir aNewPath = aNewPath[nDirCount-nCurPos-1];
396cdf0e10cSrcweir else
397cdf0e10cSrcweir aNewPath += aEntry;
398cdf0e10cSrcweir }
399cdf0e10cSrcweir else
400cdf0e10cSrcweir aNewPath += aEntry;
401cdf0e10cSrcweir
402cdf0e10cSrcweir pSvPathDialog->EnterWait();
403cdf0e10cSrcweir
404cdf0e10cSrcweir if( FileStat( aNewPath ).GetKind() & FSYS_KIND_DIR )
405cdf0e10cSrcweir {
406cdf0e10cSrcweir // Neuen Pfad setzen und Listboxen updaten
407cdf0e10cSrcweir aPath = aNewPath;
408cdf0e10cSrcweir if( !aPath.SetCWD( sal_True ) )
409cdf0e10cSrcweir {
410cdf0e10cSrcweir ErrorBox aBox( GetPathDialog(),
411cdf0e10cSrcweir WB_OK_CANCEL | WB_DEF_OK,
412cdf0e10cSrcweir UniString( SvtResId( STR_FILEDLG_CANTCHDIR ) ) );
413cdf0e10cSrcweir if( aBox.Execute() == RET_CANCEL )
414cdf0e10cSrcweir GetPathDialog()->EndDialog( sal_False );
415cdf0e10cSrcweir }
416cdf0e10cSrcweir UpdateEntries( sal_True );
417cdf0e10cSrcweir }
418cdf0e10cSrcweir
419cdf0e10cSrcweir pSvPathDialog->LeaveWait();
420cdf0e10cSrcweir return 0;
421cdf0e10cSrcweir }
422cdf0e10cSrcweir
UpdateEntries(const sal_Bool)423cdf0e10cSrcweir void ImpPathDialog::UpdateEntries( const sal_Bool )
424cdf0e10cSrcweir {
425cdf0e10cSrcweir UniString aTabString;
426cdf0e10cSrcweir DirEntry aTmpPath;
427cdf0e10cSrcweir aTmpPath.ToAbs();
428cdf0e10cSrcweir
429cdf0e10cSrcweir nDirCount = aTmpPath.Level();
430cdf0e10cSrcweir
431cdf0e10cSrcweir pDirList->SetUpdateMode( sal_False );
432cdf0e10cSrcweir pDirList->Clear();
433cdf0e10cSrcweir
434cdf0e10cSrcweir for( sal_uInt16 i = nDirCount; i > 0; i-- )
435cdf0e10cSrcweir {
436cdf0e10cSrcweir UniString aName( aTabString );
437cdf0e10cSrcweir aName += aTmpPath[i-1].GetName();
438cdf0e10cSrcweir pDirList->InsertEntry( aName );
439cdf0e10cSrcweir aTabString.AppendAscii( " ", 2 );
440cdf0e10cSrcweir }
441cdf0e10cSrcweir
442cdf0e10cSrcweir // scan the directory
443cdf0e10cSrcweir DirEntry aCurrent;
444cdf0e10cSrcweir aCurrent.ToAbs();
445cdf0e10cSrcweir
446cdf0e10cSrcweir Dir aDir( aCurrent, FSYS_KIND_DIR|FSYS_KIND_FILE );
447cdf0e10cSrcweir
448cdf0e10cSrcweir sal_uInt16 nEntries = aDir.Count();
449cdf0e10cSrcweir if( nEntries )
450cdf0e10cSrcweir {
451cdf0e10cSrcweir UniStringList aSortDirList;
452cdf0e10cSrcweir for ( sal_uInt16 n = 0; n < nEntries; n++ )
453cdf0e10cSrcweir {
454cdf0e10cSrcweir DirEntry& rEntry = aDir[n];
455cdf0e10cSrcweir UniString aName( rEntry.GetName() );
456cdf0e10cSrcweir if( aName.Len() && ( aName.GetChar(0) != '.' ) && rEntry.Exists() )
457cdf0e10cSrcweir {
458cdf0e10cSrcweir if( FileStat( rEntry ).GetKind() & FSYS_KIND_DIR )
459cdf0e10cSrcweir {
460cdf0e10cSrcweir sal_uLong l = 0;
461cdf0e10cSrcweir if( xCollator.is() )
462cdf0e10cSrcweir {
463cdf0e10cSrcweir for( l = 0; l < aSortDirList.Count(); l++ )
464cdf0e10cSrcweir if( xCollator->compareString( *aSortDirList.GetObject(l), aName ) > 0 )
465cdf0e10cSrcweir break;
466cdf0e10cSrcweir }
467cdf0e10cSrcweir aSortDirList.Insert( new UniString( aName ), l );
468cdf0e10cSrcweir }
469cdf0e10cSrcweir }
470cdf0e10cSrcweir }
471cdf0e10cSrcweir
472cdf0e10cSrcweir for( sal_uLong l = 0; l < aSortDirList.Count(); l++ )
473cdf0e10cSrcweir {
474cdf0e10cSrcweir UniString aEntryStr( aTabString );
475cdf0e10cSrcweir aEntryStr += *aSortDirList.GetObject(l);
476cdf0e10cSrcweir pDirList->InsertEntry( aEntryStr );
477cdf0e10cSrcweir delete aSortDirList.GetObject(l);
478cdf0e10cSrcweir }
479cdf0e10cSrcweir }
480cdf0e10cSrcweir
481cdf0e10cSrcweir UpdateDirs( aTmpPath );
482cdf0e10cSrcweir }
483cdf0e10cSrcweir
UpdateDirs(const DirEntry & rTmpPath)484cdf0e10cSrcweir void ImpPathDialog::UpdateDirs( const DirEntry& rTmpPath )
485cdf0e10cSrcweir {
486cdf0e10cSrcweir pDirList->SelectEntryPos( nDirCount-1 );
487cdf0e10cSrcweir pDirList->SetTopEntry( nDirCount > 1
488cdf0e10cSrcweir ? nDirCount - 2
489cdf0e10cSrcweir : nDirCount - 1 );
490cdf0e10cSrcweir pDirList->SetUpdateMode( sal_True );
491cdf0e10cSrcweir pDirList->Invalidate();
492cdf0e10cSrcweir pDirList->Update();
493cdf0e10cSrcweir
494cdf0e10cSrcweir UniString aDirName = rTmpPath.GetFull();
495cdf0e10cSrcweir if( pDirPath )
496cdf0e10cSrcweir pDirPath->SetText( aDirName );
497cdf0e10cSrcweir else
498cdf0e10cSrcweir pEdit->SetText( aDirName );
499cdf0e10cSrcweir }
500cdf0e10cSrcweir
IsFileOk(const DirEntry & rDirEntry)501cdf0e10cSrcweir sal_Bool ImpPathDialog::IsFileOk( const DirEntry& rDirEntry )
502cdf0e10cSrcweir {
503cdf0e10cSrcweir if( FileStat( rDirEntry ).GetKind() & (FSYS_KIND_WILD | FSYS_KIND_DEV) )
504cdf0e10cSrcweir return sal_False;
505cdf0e10cSrcweir else
506cdf0e10cSrcweir {
507cdf0e10cSrcweir // Datei vorhanden ?
508cdf0e10cSrcweir if( ! rDirEntry.Exists() )
509cdf0e10cSrcweir {
510cdf0e10cSrcweir UniString aQueryTxt( SvtResId( STR_FILEDLG_ASKNEWDIR ) );
511cdf0e10cSrcweir aQueryTxt.SearchAndReplaceAscii( "%s", rDirEntry.GetFull() );
512cdf0e10cSrcweir QueryBox aQuery( GetPathDialog(),
513cdf0e10cSrcweir WB_YES_NO | WB_DEF_YES,
514cdf0e10cSrcweir aQueryTxt );
515cdf0e10cSrcweir if( aQuery.Execute() == RET_YES )
516cdf0e10cSrcweir rDirEntry.MakeDir();
517cdf0e10cSrcweir else
518cdf0e10cSrcweir return sal_False;
519cdf0e10cSrcweir }
520cdf0e10cSrcweir if( !FileStat( rDirEntry ).IsKind( FSYS_KIND_DIR ) )
521cdf0e10cSrcweir {
522cdf0e10cSrcweir UniString aBoxText( SvtResId( STR_FILEDLG_CANTOPENDIR ) );
523cdf0e10cSrcweir aBoxText.AppendAscii( "\n[" );
524cdf0e10cSrcweir aBoxText += rDirEntry.GetFull();
525cdf0e10cSrcweir aBoxText.AppendAscii( "]" );
526cdf0e10cSrcweir InfoBox aBox( GetPathDialog(), aBoxText );
527cdf0e10cSrcweir aBox.Execute();
528cdf0e10cSrcweir return sal_False;
529cdf0e10cSrcweir }
530cdf0e10cSrcweir }
531cdf0e10cSrcweir return GetPathDialog()->OK() != 0;
532cdf0e10cSrcweir }
533cdf0e10cSrcweir
534cdf0e10cSrcweir
PreExecute()535cdf0e10cSrcweir void ImpPathDialog::PreExecute()
536cdf0e10cSrcweir {
537cdf0e10cSrcweir // Neues Verzeichnis setzen und Listboxen updaten
538cdf0e10cSrcweir aPath.SetCWD( sal_True );
539cdf0e10cSrcweir UpdateEntries( sal_True );
540cdf0e10cSrcweir
541cdf0e10cSrcweir // Zusaetzliche Buttons anordnen
542cdf0e10cSrcweir Point aPos;
543cdf0e10cSrcweir Size aSize;
544cdf0e10cSrcweir long nDY;
545cdf0e10cSrcweir if( pLoadBtn )
546cdf0e10cSrcweir {
547cdf0e10cSrcweir aPos = pLoadBtn->GetPosPixel();
548cdf0e10cSrcweir aSize = pLoadBtn->GetSizePixel();
549cdf0e10cSrcweir nDY = pLoadBtn->GetSizePixel().Height() * 2;
550cdf0e10cSrcweir }
551cdf0e10cSrcweir else
552cdf0e10cSrcweir {
553cdf0e10cSrcweir aPos = pCancelBtn->GetPosPixel();
554cdf0e10cSrcweir aSize = pCancelBtn->GetSizePixel();
555cdf0e10cSrcweir nDY = pCancelBtn->GetPosPixel().Y() - pOkBtn->GetPosPixel().Y();
556cdf0e10cSrcweir }
557cdf0e10cSrcweir
558cdf0e10cSrcweir // Standard-Controls anpassen
559cdf0e10cSrcweir long nMaxWidth = 0;
560cdf0e10cSrcweir
561cdf0e10cSrcweir // Maximale Breite ermitteln
562cdf0e10cSrcweir sal_uInt16 nChilds = GetPathDialog()->GetChildCount();
563cdf0e10cSrcweir sal_uInt16 n;
564cdf0e10cSrcweir for ( n = nOwnChilds; n < nChilds; n++ )
565cdf0e10cSrcweir {
566cdf0e10cSrcweir Window* pChild = GetPathDialog()->GetChild( n );
567cdf0e10cSrcweir pChild = pChild->GetWindow( WINDOW_CLIENT );
568cdf0e10cSrcweir if( pChild->GetType() != WINDOW_WINDOW )
569cdf0e10cSrcweir {
570cdf0e10cSrcweir long nWidth = pChild->GetTextWidth( pChild->GetText() ) + 12;
571cdf0e10cSrcweir if( nMaxWidth < nWidth )
572cdf0e10cSrcweir nMaxWidth = nWidth;
573cdf0e10cSrcweir nWidth = pChild->GetSizePixel().Width();
574cdf0e10cSrcweir if( nMaxWidth < nWidth )
575cdf0e10cSrcweir nMaxWidth = nWidth;
576cdf0e10cSrcweir }
577cdf0e10cSrcweir }
578cdf0e10cSrcweir
579cdf0e10cSrcweir if( nMaxWidth > aSize.Width() )
580cdf0e10cSrcweir {
581cdf0e10cSrcweir Size aDlgSize = GetPathDialog()->GetOutputSizePixel();
582cdf0e10cSrcweir GetPathDialog()->SetOutputSizePixel( Size( aDlgSize.Width()+nMaxWidth-aSize.Width(), aDlgSize.Height() ) );
583cdf0e10cSrcweir aSize.Width() = nMaxWidth;
584cdf0e10cSrcweir
585cdf0e10cSrcweir if( pOkBtn )
586cdf0e10cSrcweir pOkBtn->SetSizePixel( aSize );
587cdf0e10cSrcweir if( pCancelBtn )
588cdf0e10cSrcweir pCancelBtn->SetSizePixel( aSize );
589cdf0e10cSrcweir if( pLoadBtn )
590cdf0e10cSrcweir pLoadBtn->SetSizePixel( aSize );
591cdf0e10cSrcweir }
592cdf0e10cSrcweir else
593cdf0e10cSrcweir nMaxWidth = aSize.Width();
594cdf0e10cSrcweir
595cdf0e10cSrcweir for ( n = nOwnChilds; n < nChilds; n++ )
596cdf0e10cSrcweir {
597cdf0e10cSrcweir Window* pChild = GetPathDialog()->GetChild( n );
598cdf0e10cSrcweir pChild = pChild->GetWindow( WINDOW_CLIENT );
599cdf0e10cSrcweir if( pChild->GetType() != WINDOW_WINDOW )
600cdf0e10cSrcweir {
601cdf0e10cSrcweir aPos.Y() += nDY;
602cdf0e10cSrcweir pChild->SetPosSizePixel( aPos, aSize );
603cdf0e10cSrcweir }
604cdf0e10cSrcweir else
605cdf0e10cSrcweir {
606cdf0e10cSrcweir Size aDlgSize = GetPathDialog()->GetOutputSizePixel();
607cdf0e10cSrcweir long nExtra = Min( aDlgSize.Height(), (long)160);
608cdf0e10cSrcweir GetPathDialog()->SetOutputSizePixel( Size( aDlgSize.Width()+nExtra, aDlgSize.Height() ) );
609cdf0e10cSrcweir Size aSz( nExtra, nExtra );
610cdf0e10cSrcweir aSz.Width() -= 8;
611cdf0e10cSrcweir aSz.Height() -= 8;
612cdf0e10cSrcweir Point aCtrlPos( aDlgSize.Width() + 2, (aDlgSize.Height()-aSz.Height())/2 );
613cdf0e10cSrcweir pChild->SetPosSizePixel( aCtrlPos, aSz );
614cdf0e10cSrcweir }
615cdf0e10cSrcweir }
616cdf0e10cSrcweir
617cdf0e10cSrcweir // Laufwerke-LB fuellen
618cdf0e10cSrcweir if( pDriveList )
619cdf0e10cSrcweir {
620cdf0e10cSrcweir DirEntry aTmpDirEntry;
621cdf0e10cSrcweir Dir aDir( aTmpDirEntry, FSYS_KIND_BLOCK );
622cdf0e10cSrcweir
623cdf0e10cSrcweir sal_uInt16 nCount = aDir.Count(), i;
624cdf0e10cSrcweir for( i = 0; i < nCount; ++i )
625cdf0e10cSrcweir {
626cdf0e10cSrcweir DirEntry& rEntry = aDir[i];
627cdf0e10cSrcweir UniString aStr = rEntry.GetFull( FSYS_STYLE_HOST, sal_False );
628cdf0e10cSrcweir
629cdf0e10cSrcweir UniString aVolume = rEntry.GetVolume() ;
630cdf0e10cSrcweir aStr.ToUpperAscii();
631cdf0e10cSrcweir if ( aVolume.Len() )
632cdf0e10cSrcweir {
633cdf0e10cSrcweir aStr += ' ';
634cdf0e10cSrcweir aStr += aVolume;
635cdf0e10cSrcweir }
636cdf0e10cSrcweir pDriveList->InsertEntry( aStr );
637cdf0e10cSrcweir
638cdf0e10cSrcweir }
639cdf0e10cSrcweir UniString aPathStr = aPath.GetFull();
640cdf0e10cSrcweir
641cdf0e10cSrcweir for ( i = 0; i < pDriveList->GetEntryCount(); ++i )
642cdf0e10cSrcweir {
643cdf0e10cSrcweir UniString aEntry = pDriveList->GetEntry(i);
644cdf0e10cSrcweir xub_StrLen nLen = aEntry.Len();
645cdf0e10cSrcweir nLen = nLen > 2 ? 2 : nLen;
646cdf0e10cSrcweir if ( aEntry.CompareIgnoreCaseToAscii( aPathStr, nLen ) == COMPARE_EQUAL )
647cdf0e10cSrcweir {
648cdf0e10cSrcweir pDriveList->SelectEntryPos(i);
649cdf0e10cSrcweir break;
650cdf0e10cSrcweir }
651cdf0e10cSrcweir }
652cdf0e10cSrcweir }
653cdf0e10cSrcweir }
654cdf0e10cSrcweir
PostExecute()655cdf0e10cSrcweir void ImpPathDialog::PostExecute()
656cdf0e10cSrcweir {
657cdf0e10cSrcweir }
658cdf0e10cSrcweir
SetPath(UniString const & rPath)659cdf0e10cSrcweir void ImpPathDialog::SetPath( UniString const & rPath )
660cdf0e10cSrcweir {
661cdf0e10cSrcweir aPath = DirEntry( rPath );
662cdf0e10cSrcweir
663cdf0e10cSrcweir pSvPathDialog->EnterWait();
664cdf0e10cSrcweir
665cdf0e10cSrcweir DirEntry aFile( rPath );
666cdf0e10cSrcweir // Falls der Pfad eine Wildcard oder einen Filenamen enthaelt
667cdf0e10cSrcweir // -> abschneiden und merken
668cdf0e10cSrcweir if( FileStat( aFile ).GetKind() & (FSYS_KIND_FILE | FSYS_KIND_WILD) || !aFile.Exists() )
669cdf0e10cSrcweir aFile.CutName();
670cdf0e10cSrcweir
671cdf0e10cSrcweir // Neue Maske und neues Verzeichnis setzen, und Listboxen updaten
672cdf0e10cSrcweir pEdit->SetText( rPath );
673cdf0e10cSrcweir aFile.SetCWD( sal_True );
674cdf0e10cSrcweir UpdateEntries( sal_True );
675cdf0e10cSrcweir
676cdf0e10cSrcweir pSvPathDialog->LeaveWait();
677cdf0e10cSrcweir }
678cdf0e10cSrcweir
SetPath(Edit const & rEdit)679cdf0e10cSrcweir void ImpPathDialog::SetPath( Edit const & rEdit )
680cdf0e10cSrcweir {
681cdf0e10cSrcweir UniString aPresetText = rEdit.GetText();
682cdf0e10cSrcweir if( aPresetText.Len() )
683cdf0e10cSrcweir SetPath( aPresetText );
684cdf0e10cSrcweir }
685cdf0e10cSrcweir
686cdf0e10cSrcweir
GetPath() const687cdf0e10cSrcweir UniString ImpPathDialog::GetPath() const
688cdf0e10cSrcweir {
689cdf0e10cSrcweir DirEntry aFile( pEdit->GetText() );
690cdf0e10cSrcweir aFile.ToAbs();
691cdf0e10cSrcweir return aFile.GetFull();
692cdf0e10cSrcweir }
693cdf0e10cSrcweir
694cdf0e10cSrcweir
ImpFileDialog(PathDialog * pDlg,WinBits nWinBits,RESOURCE_TYPE nType)695cdf0e10cSrcweir ImpFileDialog::ImpFileDialog( PathDialog* pDlg, WinBits nWinBits, RESOURCE_TYPE nType ) :
696cdf0e10cSrcweir ImpPathDialog( pDlg, nType, sal_False )
697cdf0e10cSrcweir {
698cdf0e10cSrcweir bOpen = (nWinBits & WB_SAVEAS) == 0;
699cdf0e10cSrcweir
700cdf0e10cSrcweir SvtResId aSvtResId = bOpen ? STR_FILEDLG_OPEN : STR_FILEDLG_SAVE;
701cdf0e10cSrcweir
702cdf0e10cSrcweir // Titel setzen
703cdf0e10cSrcweir GetFileDialog()->SetText( UniString( aSvtResId ) );
704cdf0e10cSrcweir nDirCount = 0;
705cdf0e10cSrcweir
706cdf0e10cSrcweir // initialize Controls if not used as a base class
707cdf0e10cSrcweir if ( nType == WINDOW_FILEDIALOG )
708cdf0e10cSrcweir InitControls();
709cdf0e10cSrcweir
710cdf0e10cSrcweir pDlg->SetHelpId( HID_FILEDLG_OPENDLG );
711cdf0e10cSrcweir
712cdf0e10cSrcweir }
713cdf0e10cSrcweir
~ImpFileDialog()714cdf0e10cSrcweir ImpFileDialog::~ImpFileDialog()
715cdf0e10cSrcweir {
716cdf0e10cSrcweir ImpFilterItem* pItem = aFilterList.First();
717cdf0e10cSrcweir while( pItem )
718cdf0e10cSrcweir {
719cdf0e10cSrcweir delete pItem;
720cdf0e10cSrcweir pItem = aFilterList.Next();
721cdf0e10cSrcweir }
722cdf0e10cSrcweir
723cdf0e10cSrcweir delete pFileTitel;
724cdf0e10cSrcweir if (pFileList && ( pFileList != pDirList ) )
725cdf0e10cSrcweir delete pFileList;
726cdf0e10cSrcweir
727cdf0e10cSrcweir delete pTypeTitel;
728cdf0e10cSrcweir delete pTypeList;
729cdf0e10cSrcweir }
730cdf0e10cSrcweir
InitControls()731cdf0e10cSrcweir void ImpFileDialog::InitControls()
732cdf0e10cSrcweir {
733cdf0e10cSrcweir UniString aEmptyStr;
734cdf0e10cSrcweir
735cdf0e10cSrcweir const int nW = 160;
736cdf0e10cSrcweir const int nH = 48; // Um den Dialog in eine akzeptable Form zu bringen
737cdf0e10cSrcweir
738cdf0e10cSrcweir INITCONTROL( pFileTitel, FixedText, 0,
739cdf0e10cSrcweir Point(10, 12), Size(nW, 18), UniString( SvtResId( STR_FILEDLG_FILE ) ), HID_FILEDLG_FILE );
740cdf0e10cSrcweir INITCONTROL( pEdit, Edit, WB_BORDER,
741cdf0e10cSrcweir Point(10, 31), Size(nW, 20), aEmptyStr, HID_FILEDLG_EDIT ); // aMask()
742cdf0e10cSrcweir INITCONTROL( pFileList, ListBox, WB_SORT | WB_AUTOHSCROLL | WB_BORDER,
743cdf0e10cSrcweir Point(10, 58), Size(nW, 180-nH), aEmptyStr, HID_FILEDLG_FILES );
744cdf0e10cSrcweir
745cdf0e10cSrcweir INITCONTROL( pDirTitel, FixedText, 0,
746cdf0e10cSrcweir Point(nW+20, 12), Size(nW, 18), UniString( SvtResId( STR_FILEDLG_DIR ) ), HID_FILEDLG_DIR );
747cdf0e10cSrcweir INITCONTROL( pDirPath, FixedInfo, WB_PATHELLIPSIS,
748cdf0e10cSrcweir Point(nW+20, 33), Size(nW, 20), aPath.GetFull(), HID_FILEDLG_PATH );
749cdf0e10cSrcweir INITCONTROL( pDirList, KbdListBox, WB_AUTOHSCROLL | WB_BORDER,
750cdf0e10cSrcweir Point(nW+20, 58), Size(nW, 180-nH ), aEmptyStr, HID_FILEDLG_DIRS );
751cdf0e10cSrcweir
752cdf0e10cSrcweir INITCONTROL( pTypeTitel, FixedText, 0,
753cdf0e10cSrcweir Point(10, 246-nH), Size(nW, 18), UniString( SvtResId( STR_FILEDLG_TYPE ) ), HID_FILEDLG_TYPE );
754cdf0e10cSrcweir
755cdf0e10cSrcweir #ifndef UNX
756cdf0e10cSrcweir INITCONTROL( pTypeList, ListBox, WB_DROPDOWN,
757cdf0e10cSrcweir Point(10, 265-nH ), Size(nW, 100 ), aEmptyStr, HID_FILEDLG_TYPES );
758cdf0e10cSrcweir
759cdf0e10cSrcweir INITCONTROL( pDriveTitle, FixedText, 0,
760cdf0e10cSrcweir Point(nW+20, 246-nH), Size(nW, 18), UniString( SvtResId( STR_FILEDLG_DRIVES ) ), HID_FILEDLG_DRIVE );
761cdf0e10cSrcweir INITCONTROL( pDriveList, ListBox, WB_DROPDOWN,
762cdf0e10cSrcweir Point(nW+20, 265-nH ), Size(nW, 100 ), aEmptyStr, HID_FILEDLG_DRIVES );
763cdf0e10cSrcweir pNewDirBtn = NULL;
764cdf0e10cSrcweir pHomeBtn = NULL;
765cdf0e10cSrcweir #else
766cdf0e10cSrcweir INITCONTROL( pTypeList, ListBox, WB_DROPDOWN,
767cdf0e10cSrcweir Point(10, 265-nH ), Size(2*nW+20, 100 ), aEmptyStr, HID_FILEDLG_TYPES );
768cdf0e10cSrcweir
769cdf0e10cSrcweir pDriveTitle = NULL;
770cdf0e10cSrcweir pDriveList = NULL;
771cdf0e10cSrcweir pNewDirBtn = NULL;
772cdf0e10cSrcweir pHomeBtn = NULL;
773cdf0e10cSrcweir #endif
774cdf0e10cSrcweir
775cdf0e10cSrcweir const long nButtonStartX = 2*nW+20+15;
776cdf0e10cSrcweir INITCONTROL( pOkBtn, PushButton, WB_DEFBUTTON,
777cdf0e10cSrcweir Point(nButtonStartX, 10), Size(STD_BTN_WIDTH, STD_BTN_HEIGHT),
778cdf0e10cSrcweir Button::GetStandardText( BUTTON_OK ), "" );
779cdf0e10cSrcweir INITCONTROL( pCancelBtn, CancelButton, 0,
780cdf0e10cSrcweir Point(nButtonStartX, 45 ), Size(STD_BTN_WIDTH, STD_BTN_HEIGHT),
781cdf0e10cSrcweir Button::GetStandardText( BUTTON_CANCEL ), "" );
782cdf0e10cSrcweir
783cdf0e10cSrcweir pLoadBtn = 0;
784cdf0e10cSrcweir
785cdf0e10cSrcweir GetFileDialog()->SetOutputSizePixel( Size(nButtonStartX+STD_BTN_WIDTH+10, 298-nH) );
786cdf0e10cSrcweir
787cdf0e10cSrcweir nOwnChilds = GetPathDialog()->GetChildCount();
788cdf0e10cSrcweir
789cdf0e10cSrcweir // Handler setzen
790cdf0e10cSrcweir if (pDriveList)
791cdf0e10cSrcweir pDriveList->SetSelectHdl( LINK( this, ImpFileDialog, SelectHdl ) );
792cdf0e10cSrcweir
793cdf0e10cSrcweir if (pDirList)
794cdf0e10cSrcweir pDirList->SetDoubleClickHdl(LINK( this, ImpFileDialog, DblClickHdl) );
795cdf0e10cSrcweir
796cdf0e10cSrcweir if (pOkBtn)
797cdf0e10cSrcweir pOkBtn->SetClickHdl( LINK( this, ImpFileDialog, ClickHdl) );
798cdf0e10cSrcweir
799cdf0e10cSrcweir if (pCancelBtn)
800cdf0e10cSrcweir pCancelBtn->SetClickHdl( LINK( this, ImpFileDialog, ClickHdl) );
801cdf0e10cSrcweir
802cdf0e10cSrcweir if( pFileList )
803cdf0e10cSrcweir {
804cdf0e10cSrcweir pFileList->SetSelectHdl( LINK( this, ImpFileDialog, SelectHdl ) );
805cdf0e10cSrcweir pFileList->SetDoubleClickHdl( LINK( this, ImpFileDialog, DblClickHdl ) );
806cdf0e10cSrcweir }
807cdf0e10cSrcweir
808cdf0e10cSrcweir if( pTypeList )
809cdf0e10cSrcweir pTypeList->SetSelectHdl( LINK( this, ImpFileDialog, DblClickHdl ) );
810cdf0e10cSrcweir }
811cdf0e10cSrcweir
IMPL_LINK(ImpFileDialog,SelectHdl,ListBox *,p)812cdf0e10cSrcweir IMPL_LINK( ImpFileDialog, SelectHdl, ListBox *, p )
813cdf0e10cSrcweir {
814cdf0e10cSrcweir if( p == pDriveList )
815cdf0e10cSrcweir {
816cdf0e10cSrcweir UniString aDrive ( pDriveList->GetSelectEntry(), 0, 2);
817cdf0e10cSrcweir aDrive += '\\';
818cdf0e10cSrcweir SetPath( aDrive );
819cdf0e10cSrcweir }
820cdf0e10cSrcweir else if (p == pFileList)
821cdf0e10cSrcweir {
822cdf0e10cSrcweir // Ausgewaehltes File in das Edit stellen
823cdf0e10cSrcweir pEdit->SetText( pFileList->GetSelectEntry() );
824cdf0e10cSrcweir GetFileDialog()->FileSelect();
825cdf0e10cSrcweir }
826cdf0e10cSrcweir return 0;
827cdf0e10cSrcweir }
828cdf0e10cSrcweir
829cdf0e10cSrcweir
IMPL_LINK(ImpFileDialog,DblClickHdl,ListBox *,pBox)830cdf0e10cSrcweir IMPL_LINK( ImpFileDialog, DblClickHdl, ListBox *, pBox )
831cdf0e10cSrcweir {
832cdf0e10cSrcweir // isolate the pure name of the entry
833cdf0e10cSrcweir // removing trailing stuff and leading spaces
834cdf0e10cSrcweir UniString aEntry( pBox->GetSelectEntry() );
835cdf0e10cSrcweir
836cdf0e10cSrcweir aEntry.EraseLeadingChars( ' ' );
837cdf0e10cSrcweir sal_uInt16 nPos = aEntry.Search( '/' );
838cdf0e10cSrcweir aEntry.Erase( nPos );
839cdf0e10cSrcweir
840cdf0e10cSrcweir // build the absolute path to the selected item
841cdf0e10cSrcweir DirEntry aNewPath;
842cdf0e10cSrcweir aNewPath.ToAbs();
843cdf0e10cSrcweir
844cdf0e10cSrcweir if( ( pDirList != pFileList ) && ( pBox == pDirList ) )
845cdf0e10cSrcweir {
846cdf0e10cSrcweir // SVLOOK
847cdf0e10cSrcweir sal_uInt16 nCurPos = pDirList->GetSelectEntryPos();
848cdf0e10cSrcweir
849cdf0e10cSrcweir // Wenn es schon das aktuelle ist, dann mache nichts
850cdf0e10cSrcweir if( nCurPos == nDirCount-1 )
851cdf0e10cSrcweir return 0;
852cdf0e10cSrcweir
853cdf0e10cSrcweir // Wird nach oben gewechselt
854cdf0e10cSrcweir if( nCurPos < nDirCount )
855cdf0e10cSrcweir aNewPath = aNewPath[nDirCount-nCurPos-1];
856cdf0e10cSrcweir else
857cdf0e10cSrcweir aNewPath += aEntry;
858cdf0e10cSrcweir }
859cdf0e10cSrcweir else
860cdf0e10cSrcweir {
861cdf0e10cSrcweir // non-SVLOOK
862cdf0e10cSrcweir if( aEntry == UniString( SvtResId( STR_FILEDLG_GOUP ) ) )
863cdf0e10cSrcweir aEntry.AssignAscii( ".." );
864cdf0e10cSrcweir aNewPath += aEntry;
865cdf0e10cSrcweir }
866cdf0e10cSrcweir
867cdf0e10cSrcweir if( pBox == pFileList )
868cdf0e10cSrcweir {
869cdf0e10cSrcweir DirEntry aFile( aEntry );
870cdf0e10cSrcweir
871cdf0e10cSrcweir // Abfrage, ob File ueberschrieben werden soll...
872cdf0e10cSrcweir if( !FileStat(aFile).IsKind(FSYS_KIND_DIR) && IsFileOk( aFile ) )
873cdf0e10cSrcweir {
874cdf0e10cSrcweir // dann kompletten Pfad mit Filenamen merken und Dialog beenden
875cdf0e10cSrcweir aPath = aNewPath;
876cdf0e10cSrcweir GetFileDialog()->EndDialog( sal_True );
877cdf0e10cSrcweir }
878cdf0e10cSrcweir }
879cdf0e10cSrcweir
880cdf0e10cSrcweir GetFileDialog()->EnterWait();
881cdf0e10cSrcweir
882cdf0e10cSrcweir UniString aFull = aNewPath.GetFull();
883cdf0e10cSrcweir
884cdf0e10cSrcweir if( ( ( pBox == pDirList ) && ( pDirList != pFileList ) ) ||
885cdf0e10cSrcweir ( ( pDirList == pFileList ) && FileStat( aNewPath ).GetKind() & FSYS_KIND_DIR ) )
886cdf0e10cSrcweir {
887cdf0e10cSrcweir // Neuen Pfad setzen und Listboxen updaten
888cdf0e10cSrcweir aPath = aNewPath;
889cdf0e10cSrcweir if( !aPath.SetCWD( sal_True ) )
890cdf0e10cSrcweir {
891cdf0e10cSrcweir if( ErrorBox( GetFileDialog(), WB_OK_CANCEL|WB_DEF_OK,
892cdf0e10cSrcweir UniString( SvtResId( STR_FILEDLG_CANTCHDIR ) ) ).Execute() == RET_CANCEL )
893cdf0e10cSrcweir {
894cdf0e10cSrcweir GetFileDialog()->EndDialog( sal_False );
895cdf0e10cSrcweir }
896cdf0e10cSrcweir }
897cdf0e10cSrcweir UpdateEntries( sal_True );
898cdf0e10cSrcweir GetFileDialog()->FileSelect();
899cdf0e10cSrcweir }
900cdf0e10cSrcweir
901cdf0e10cSrcweir if( pBox == pTypeList )
902cdf0e10cSrcweir {
903cdf0e10cSrcweir // Neue Maske setzen, und Listboxen updaten
904cdf0e10cSrcweir sal_uInt16 nCurPos = pTypeList->GetSelectEntryPos();
905cdf0e10cSrcweir if( nCurPos+1 > (sal_uInt16)aFilterList.Count() )
906cdf0e10cSrcweir aMask = UniString::CreateFromAscii( ALLFILES );
907cdf0e10cSrcweir else
908cdf0e10cSrcweir {
909cdf0e10cSrcweir UniString aFilterListMask = aFilterList.GetObject( nCurPos )->aMask;
910cdf0e10cSrcweir // if( aFilterListMask.Search( ';' ) == STRING_NOTFOUND ) // kein ; in der Maske
911cdf0e10cSrcweir // aMask = WildCard( aFilterListMask, '\0' );
912cdf0e10cSrcweir // else // ; muss beruecksichtigt werden
913cdf0e10cSrcweir aMask = WildCard( aFilterListMask, ';' );
914cdf0e10cSrcweir }
915cdf0e10cSrcweir
916cdf0e10cSrcweir pEdit->SetText( aMask() );
917cdf0e10cSrcweir UpdateEntries( sal_False );
918cdf0e10cSrcweir GetFileDialog()->FilterSelect();
919cdf0e10cSrcweir }
920cdf0e10cSrcweir
921cdf0e10cSrcweir GetFileDialog()->LeaveWait();
922cdf0e10cSrcweir
923cdf0e10cSrcweir return 0;
924cdf0e10cSrcweir }
925cdf0e10cSrcweir
IMPL_LINK(ImpFileDialog,ClickHdl,Button *,pBtn)926cdf0e10cSrcweir IMPL_LINK( ImpFileDialog, ClickHdl, Button*, pBtn )
927cdf0e10cSrcweir {
928cdf0e10cSrcweir if( ( pBtn == pOkBtn ) || ( pBtn == pLoadBtn ) )
929cdf0e10cSrcweir {
930cdf0e10cSrcweir DirEntry aFile( pEdit->GetText() );
931cdf0e10cSrcweir
932cdf0e10cSrcweir // Existiert File / File ueberschreiben
933cdf0e10cSrcweir if( IsFileOk( aFile ) )
934cdf0e10cSrcweir {
935cdf0e10cSrcweir // Ja, dann kompletten Pfad mit Filenamen merken und Dialog beenden
936cdf0e10cSrcweir aPath = aFile;
937cdf0e10cSrcweir aPath.ToAbs();
938cdf0e10cSrcweir GetFileDialog()->EndDialog( sal_True );
939cdf0e10cSrcweir }
940cdf0e10cSrcweir else
941cdf0e10cSrcweir {
942cdf0e10cSrcweir GetFileDialog()->EnterWait();
943cdf0e10cSrcweir
944cdf0e10cSrcweir // Falls der Pfad eine Wildcard oder einen Filenamen enthaelt
945cdf0e10cSrcweir // -> abschneiden und merken
946cdf0e10cSrcweir if( FileStat( aFile ).GetKind() & (FSYS_KIND_FILE | FSYS_KIND_WILD) || !aFile.Exists() )
947cdf0e10cSrcweir {
948cdf0e10cSrcweir aMask = aFile.CutName();
949cdf0e10cSrcweir }
950cdf0e10cSrcweir
951cdf0e10cSrcweir // Neue Maske und neues Verzeichnis setzen, und Listboxen updaten
952cdf0e10cSrcweir pEdit->SetText( aMask() );
953cdf0e10cSrcweir aFile.SetCWD( sal_True );
954cdf0e10cSrcweir UpdateEntries( sal_True );
955cdf0e10cSrcweir
956cdf0e10cSrcweir GetFileDialog()->LeaveWait();
957cdf0e10cSrcweir }
958cdf0e10cSrcweir }
959cdf0e10cSrcweir else if( pBtn == pCancelBtn )
960cdf0e10cSrcweir GetFileDialog()->EndDialog( sal_False );
961cdf0e10cSrcweir
962cdf0e10cSrcweir return 0;
963cdf0e10cSrcweir }
964cdf0e10cSrcweir
UpdateEntries(const sal_Bool bWithDirs)965cdf0e10cSrcweir void ImpFileDialog::UpdateEntries( const sal_Bool bWithDirs )
966cdf0e10cSrcweir {
967cdf0e10cSrcweir GetFileDialog()->EnterWait();
968cdf0e10cSrcweir
969cdf0e10cSrcweir UniString aTabString;
970cdf0e10cSrcweir DirEntry aTmpPath;
971cdf0e10cSrcweir aTmpPath.ToAbs();
972cdf0e10cSrcweir nDirCount = aTmpPath.Level();
973cdf0e10cSrcweir
974cdf0e10cSrcweir if( pFileList )
975cdf0e10cSrcweir {
976cdf0e10cSrcweir pFileList->SetUpdateMode( sal_False );
977cdf0e10cSrcweir pFileList->Clear();
978cdf0e10cSrcweir }
979cdf0e10cSrcweir
980cdf0e10cSrcweir if( bWithDirs && (pDirList != pFileList) )
981cdf0e10cSrcweir {
982cdf0e10cSrcweir pDirList->SetUpdateMode( sal_False );
983cdf0e10cSrcweir pDirList->Clear();
984cdf0e10cSrcweir
985cdf0e10cSrcweir for( sal_uInt16 i = nDirCount; i > 0; i-- )
986cdf0e10cSrcweir {
987cdf0e10cSrcweir UniString aEntryStr( aTabString );
988cdf0e10cSrcweir aEntryStr += aTmpPath[i-1].GetName();
989cdf0e10cSrcweir pDirList->InsertEntry( aEntryStr );
990cdf0e10cSrcweir aTabString.AppendAscii( " ", 2 );
991cdf0e10cSrcweir }
992cdf0e10cSrcweir }
993cdf0e10cSrcweir
994cdf0e10cSrcweir // for the combined box insert a '..'
995cdf0e10cSrcweir // (this happens only if WB_3DLOOK is not set)
996cdf0e10cSrcweir
997cdf0e10cSrcweir if( pDirList == pFileList && nDirCount != 1 )
998cdf0e10cSrcweir pFileList->InsertEntry( UniString( SvtResId( STR_FILEDLG_GOUP ) ) );
999cdf0e10cSrcweir
1000cdf0e10cSrcweir // scan the directory
1001cdf0e10cSrcweir DirEntry aCurrent;
1002cdf0e10cSrcweir aCurrent.ToAbs();
1003cdf0e10cSrcweir Dir aDir( aCurrent, FSYS_KIND_DIR|FSYS_KIND_FILE );
1004cdf0e10cSrcweir sal_uInt16 nEntries = aDir.Count();
1005cdf0e10cSrcweir
1006cdf0e10cSrcweir // TempMask, weil Vergleich case-sensitiv
1007cdf0e10cSrcweir sal_Bool bMatchCase = sal_False; //aCurrent.IsCaseSensitive();
1008cdf0e10cSrcweir UniString aWildCard( aMask.GetWildCard() );
1009cdf0e10cSrcweir if ( !bMatchCase )
1010cdf0e10cSrcweir aWildCard.ToLowerAscii();
1011cdf0e10cSrcweir WildCard aTmpMask( aWildCard, ';' );
1012cdf0e10cSrcweir if ( nEntries )
1013cdf0e10cSrcweir {
1014cdf0e10cSrcweir UniStringList aSortDirList;
1015cdf0e10cSrcweir for ( sal_uInt16 n = 0; n < nEntries; n++ )
1016cdf0e10cSrcweir {
1017cdf0e10cSrcweir DirEntry& rEntry = aDir[n];
1018cdf0e10cSrcweir UniString aName( rEntry.GetName() );
1019cdf0e10cSrcweir
1020cdf0e10cSrcweir if( aName.Len() &&
1021cdf0e10cSrcweir ( ( ( aName.GetChar(0) != '.' ) ||
1022cdf0e10cSrcweir ( ( aName.GetChar(0) == '.' ) && ( aMask.GetWildCard() ).GetChar(0) == '.' ) )
1023cdf0e10cSrcweir && rEntry.Exists() ) )
1024cdf0e10cSrcweir {
1025cdf0e10cSrcweir FileStat aFileStat( rEntry );
1026cdf0e10cSrcweir UniString aTmpName( aName );
1027cdf0e10cSrcweir if ( !bMatchCase )
1028cdf0e10cSrcweir aTmpName.ToLowerAscii();
1029cdf0e10cSrcweir if( ( aFileStat.GetKind() & FSYS_KIND_FILE ) && aTmpMask.Matches( aTmpName ) )
1030cdf0e10cSrcweir {
1031cdf0e10cSrcweir if( pFileList )
1032cdf0e10cSrcweir pFileList->InsertEntry( aName );
1033cdf0e10cSrcweir }
1034cdf0e10cSrcweir else if( bWithDirs && ( aFileStat.GetKind() & FSYS_KIND_DIR ) )
1035cdf0e10cSrcweir {
1036cdf0e10cSrcweir if( pDirList == pFileList )
1037cdf0e10cSrcweir {
1038cdf0e10cSrcweir UniString aEntryStr( aName );
1039cdf0e10cSrcweir aEntryStr += '/';
1040cdf0e10cSrcweir pDirList->InsertEntry( aEntryStr );
1041cdf0e10cSrcweir }
1042cdf0e10cSrcweir else
1043cdf0e10cSrcweir {
1044cdf0e10cSrcweir sal_uLong l = 0;
1045cdf0e10cSrcweir if( xCollator.is() )
1046cdf0e10cSrcweir {
1047cdf0e10cSrcweir for( l = 0; l < aSortDirList.Count(); l++ )
1048cdf0e10cSrcweir if( xCollator->compareString( *aSortDirList.GetObject(l), aName ) > 0 )
1049cdf0e10cSrcweir break;
1050cdf0e10cSrcweir }
1051cdf0e10cSrcweir aSortDirList.Insert( new UniString( aName ), l );
1052cdf0e10cSrcweir }
1053cdf0e10cSrcweir }
1054cdf0e10cSrcweir }
1055cdf0e10cSrcweir }
1056cdf0e10cSrcweir for( sal_uLong l = 0; l < aSortDirList.Count(); l++ )
1057cdf0e10cSrcweir {
1058cdf0e10cSrcweir UniString aEntryStr( aTabString );
1059cdf0e10cSrcweir aEntryStr += *aSortDirList.GetObject(l);
1060cdf0e10cSrcweir pDirList->InsertEntry( aEntryStr );
1061cdf0e10cSrcweir delete aSortDirList.GetObject(l);
1062cdf0e10cSrcweir }
1063cdf0e10cSrcweir }
1064cdf0e10cSrcweir
1065cdf0e10cSrcweir if( bWithDirs )
1066cdf0e10cSrcweir UpdateDirs( aTmpPath );
1067cdf0e10cSrcweir
1068cdf0e10cSrcweir if( pFileList )
1069cdf0e10cSrcweir {
1070cdf0e10cSrcweir if ( pDirList == pFileList && nDirCount > 1 )
1071cdf0e10cSrcweir pFileList->SelectEntryPos( 1 );
1072cdf0e10cSrcweir else
1073cdf0e10cSrcweir pFileList->SetNoSelection();
1074cdf0e10cSrcweir pFileList->SetUpdateMode( sal_True );
1075cdf0e10cSrcweir pFileList->Invalidate();
1076cdf0e10cSrcweir pFileList->Update();
1077cdf0e10cSrcweir }
1078cdf0e10cSrcweir
1079cdf0e10cSrcweir if( pDriveList )
1080cdf0e10cSrcweir {
1081cdf0e10cSrcweir if( pDirList->GetEntryCount() > 0 )
1082cdf0e10cSrcweir {
1083cdf0e10cSrcweir UniString aStr( pDirList->GetEntry( 0 ) );
1084cdf0e10cSrcweir aStr.Erase( 2 );
1085cdf0e10cSrcweir aStr.ToLowerAscii();
1086cdf0e10cSrcweir pDriveList->SelectEntry( aStr );
1087cdf0e10cSrcweir }
1088cdf0e10cSrcweir }
1089cdf0e10cSrcweir
1090cdf0e10cSrcweir GetFileDialog()->LeaveWait();
1091cdf0e10cSrcweir }
1092cdf0e10cSrcweir
IsFileOk(const DirEntry & rDirEntry)1093cdf0e10cSrcweir sal_Bool ImpFileDialog::IsFileOk( const DirEntry& rDirEntry )
1094cdf0e10cSrcweir {
1095cdf0e10cSrcweir if( FileStat( rDirEntry ).GetKind() & (FSYS_KIND_WILD | FSYS_KIND_DEV) )
1096cdf0e10cSrcweir return sal_False;
1097cdf0e10cSrcweir if( FileStat( rDirEntry ).GetKind() & FSYS_KIND_DIR )
1098cdf0e10cSrcweir {
1099cdf0e10cSrcweir if( pFileList )
1100cdf0e10cSrcweir return sal_False;
1101cdf0e10cSrcweir }
1102cdf0e10cSrcweir else if( bOpen )
1103cdf0e10cSrcweir {
1104cdf0e10cSrcweir // Datei vorhanden ?
1105cdf0e10cSrcweir if( !FileStat( rDirEntry ).IsKind( FSYS_KIND_FILE ) )
1106cdf0e10cSrcweir {
1107cdf0e10cSrcweir UniString aErrorString( SvtResId( STR_FILEDLG_CANTOPENFILE ) );
1108cdf0e10cSrcweir aErrorString.AppendAscii( "\n[" );
1109cdf0e10cSrcweir aErrorString += rDirEntry.GetFull();
1110cdf0e10cSrcweir aErrorString += ']';
1111cdf0e10cSrcweir InfoBox aBox( GetFileDialog(),
1112cdf0e10cSrcweir aErrorString );
1113cdf0e10cSrcweir aBox.Execute();
1114cdf0e10cSrcweir return sal_False;
1115cdf0e10cSrcweir }
1116cdf0e10cSrcweir }
1117cdf0e10cSrcweir else
1118cdf0e10cSrcweir {
1119cdf0e10cSrcweir // Datei vorhanden ?
1120cdf0e10cSrcweir if( FileStat( ExtendFileName( rDirEntry ) ).IsKind( FSYS_KIND_FILE ) )
1121cdf0e10cSrcweir {
1122cdf0e10cSrcweir UniString aQueryString( SvtResId( STR_FILEDLG_OVERWRITE ) );
1123cdf0e10cSrcweir aQueryString.AppendAscii( "\n[" );
1124cdf0e10cSrcweir aQueryString += rDirEntry.GetFull();
1125cdf0e10cSrcweir aQueryString += ']';
1126cdf0e10cSrcweir QueryBox aBox( GetFileDialog(),
1127cdf0e10cSrcweir WinBits( WB_YES_NO | WB_DEF_NO ),
1128cdf0e10cSrcweir aQueryString );
1129cdf0e10cSrcweir if( aBox.Execute() != RET_YES )
1130cdf0e10cSrcweir return sal_False;
1131cdf0e10cSrcweir }
1132cdf0e10cSrcweir }
1133cdf0e10cSrcweir return GetFileDialog()->OK() != 0;
1134cdf0e10cSrcweir }
1135cdf0e10cSrcweir
SetPath(UniString const & rPath)1136cdf0e10cSrcweir void ImpFileDialog::SetPath( UniString const & rPath )
1137cdf0e10cSrcweir {
1138cdf0e10cSrcweir aPath = DirEntry( rPath );
1139cdf0e10cSrcweir GetFileDialog()->EnterWait();
1140cdf0e10cSrcweir
1141cdf0e10cSrcweir DirEntry aFile( rPath );
1142cdf0e10cSrcweir
1143cdf0e10cSrcweir // Falls der Pfad eine Wildcard oder einen Filenamen enthaelt
1144cdf0e10cSrcweir // -> abschneiden und merken
1145cdf0e10cSrcweir if( FileStat( aFile ).GetKind() & (FSYS_KIND_FILE | FSYS_KIND_WILD) || !aFile.Exists() )
1146cdf0e10cSrcweir {
1147cdf0e10cSrcweir aMask = aFile.CutName();
1148cdf0e10cSrcweir
1149cdf0e10cSrcweir // Neue Maske und neues Verzeichnis setzen, und Listboxen updaten
1150cdf0e10cSrcweir if( pDirList )
1151cdf0e10cSrcweir {
1152cdf0e10cSrcweir UniString aWildCard( aMask.GetWildCard() );
1153cdf0e10cSrcweir pEdit->SetText( aWildCard );
1154cdf0e10cSrcweir }
1155cdf0e10cSrcweir else
1156cdf0e10cSrcweir pEdit->SetText( rPath );
1157cdf0e10cSrcweir }
1158cdf0e10cSrcweir
1159cdf0e10cSrcweir aFile.SetCWD( sal_True );
1160cdf0e10cSrcweir
1161cdf0e10cSrcweir UpdateEntries( sal_True );
1162cdf0e10cSrcweir
1163cdf0e10cSrcweir GetFileDialog()->LeaveWait();
1164cdf0e10cSrcweir }
1165cdf0e10cSrcweir
SetPath(Edit const & rEdit)1166cdf0e10cSrcweir void ImpFileDialog::SetPath( Edit const& rEdit )
1167cdf0e10cSrcweir {
1168cdf0e10cSrcweir UniString aPresetText = rEdit.GetText();
1169cdf0e10cSrcweir if( aPresetText.Len() )
1170cdf0e10cSrcweir SetPath( aPresetText );
1171cdf0e10cSrcweir }
1172cdf0e10cSrcweir
1173cdf0e10cSrcweir
AddFilter(const UniString & rFilter,const UniString & rMask)1174cdf0e10cSrcweir void ImpFileDialog::AddFilter( const UniString& rFilter, const UniString& rMask )
1175cdf0e10cSrcweir {
1176cdf0e10cSrcweir aFilterList.Insert( new ImpFilterItem( rFilter, rMask ), LIST_APPEND );
1177cdf0e10cSrcweir if( pTypeList )
1178cdf0e10cSrcweir pTypeList->InsertEntry( rFilter, LISTBOX_APPEND );
1179cdf0e10cSrcweir
1180cdf0e10cSrcweir if( !GetCurFilter().Len() )
1181cdf0e10cSrcweir SetCurFilter( rFilter );
1182cdf0e10cSrcweir }
1183cdf0e10cSrcweir
RemoveFilter(const UniString & rFilter)1184cdf0e10cSrcweir void ImpFileDialog::RemoveFilter( const UniString& rFilter )
1185cdf0e10cSrcweir {
1186cdf0e10cSrcweir ImpFilterItem* pItem = aFilterList.First();
1187cdf0e10cSrcweir while( pItem && pItem->aName != rFilter )
1188cdf0e10cSrcweir pItem = aFilterList.Next();
1189cdf0e10cSrcweir
1190cdf0e10cSrcweir if( pItem )
1191cdf0e10cSrcweir {
1192cdf0e10cSrcweir delete aFilterList.Remove();
1193cdf0e10cSrcweir if( pTypeList )
1194cdf0e10cSrcweir pTypeList->RemoveEntry( rFilter );
1195cdf0e10cSrcweir }
1196cdf0e10cSrcweir }
1197cdf0e10cSrcweir
RemoveAllFilter()1198cdf0e10cSrcweir void ImpFileDialog::RemoveAllFilter()
1199cdf0e10cSrcweir {
1200cdf0e10cSrcweir ImpFilterItem* pItem = aFilterList.First();
1201cdf0e10cSrcweir while( pItem )
1202cdf0e10cSrcweir {
1203cdf0e10cSrcweir delete pItem;
1204cdf0e10cSrcweir pItem = aFilterList.Next();
1205cdf0e10cSrcweir }
1206cdf0e10cSrcweir aFilterList.Clear();
1207cdf0e10cSrcweir
1208cdf0e10cSrcweir if( pTypeList )
1209cdf0e10cSrcweir pTypeList->Clear();
1210cdf0e10cSrcweir }
1211cdf0e10cSrcweir
SetCurFilter(const UniString & rFilter)1212cdf0e10cSrcweir void ImpFileDialog::SetCurFilter( const UniString& rFilter )
1213cdf0e10cSrcweir {
1214cdf0e10cSrcweir if( !pTypeList )
1215cdf0e10cSrcweir return;
1216cdf0e10cSrcweir
1217cdf0e10cSrcweir ImpFilterItem* pItem = aFilterList.First();
1218cdf0e10cSrcweir while( pItem && pItem->aName != rFilter )
1219cdf0e10cSrcweir pItem = aFilterList.Next();
1220cdf0e10cSrcweir
1221cdf0e10cSrcweir if( pItem )
1222cdf0e10cSrcweir pTypeList->SelectEntryPos( (sal_uInt16)aFilterList.GetCurPos() );
1223cdf0e10cSrcweir else
1224cdf0e10cSrcweir pTypeList->SetNoSelection();
1225cdf0e10cSrcweir }
1226cdf0e10cSrcweir
GetCurFilter() const1227cdf0e10cSrcweir UniString ImpFileDialog::GetCurFilter() const
1228cdf0e10cSrcweir {
1229cdf0e10cSrcweir UniString aFilter;
1230cdf0e10cSrcweir if ( pTypeList )
1231cdf0e10cSrcweir aFilter = pTypeList->GetSelectEntry();
1232cdf0e10cSrcweir return aFilter;
1233cdf0e10cSrcweir }
1234cdf0e10cSrcweir
PreExecute()1235cdf0e10cSrcweir void ImpFileDialog::PreExecute()
1236cdf0e10cSrcweir {
1237cdf0e10cSrcweir // ListBoxen erst unmittelbar vor Execute fuellen
1238cdf0e10cSrcweir // (damit vor Execute der Pfad umgesetzt werden kann, ohne das immer die
1239cdf0e10cSrcweir // Listboxen sofort upgedatet werden)
1240cdf0e10cSrcweir
1241cdf0e10cSrcweir GetFileDialog()->EnterWait();
1242cdf0e10cSrcweir
1243cdf0e10cSrcweir // Wenn kein Filter vorhanden, dann auch keine FilterBox
1244cdf0e10cSrcweir if( pTypeList && !pTypeList->GetEntryCount() )
1245cdf0e10cSrcweir {
1246cdf0e10cSrcweir // pTypeList->InsertEntry( "* (all files)" );
1247cdf0e10cSrcweir pTypeTitel->Disable();
1248cdf0e10cSrcweir pTypeList->Disable();
1249cdf0e10cSrcweir }
1250cdf0e10cSrcweir
1251cdf0e10cSrcweir if( pTypeList )
1252cdf0e10cSrcweir {
1253cdf0e10cSrcweir sal_uInt16 nCurType = pTypeList->GetSelectEntryPos();
1254cdf0e10cSrcweir if( nCurType < aFilterList.Count() )
1255cdf0e10cSrcweir {
1256cdf0e10cSrcweir UniString aFilterListMask = aFilterList.GetObject( nCurType )->aMask;
1257cdf0e10cSrcweir if( aFilterListMask.Search( ';' ) == STRING_NOTFOUND ) // kein ; in der Maske
1258cdf0e10cSrcweir aMask = WildCard( aFilterListMask, '\0' );
1259cdf0e10cSrcweir else // ; in der Maske, muss in der Wildcard beruecksichtigt werden
1260cdf0e10cSrcweir aMask = WildCard( aFilterListMask, ';' );
1261cdf0e10cSrcweir }
1262cdf0e10cSrcweir else
1263cdf0e10cSrcweir aMask = UniString::CreateFromAscii( ALLFILES );
1264cdf0e10cSrcweir }
1265cdf0e10cSrcweir else
1266cdf0e10cSrcweir aMask = UniString::CreateFromAscii( ALLFILES );
1267cdf0e10cSrcweir
1268cdf0e10cSrcweir // Neue Maske setzen
1269cdf0e10cSrcweir if( pEdit->GetText().Len() == 0 )
1270cdf0e10cSrcweir pEdit->SetText( aMask() );
1271cdf0e10cSrcweir
1272cdf0e10cSrcweir ImpPathDialog::PreExecute();
1273cdf0e10cSrcweir
1274cdf0e10cSrcweir GetFileDialog()->LeaveWait();
1275cdf0e10cSrcweir }
1276cdf0e10cSrcweir
GetPath() const1277cdf0e10cSrcweir UniString ImpFileDialog::GetPath() const
1278cdf0e10cSrcweir {
1279cdf0e10cSrcweir DirEntry aFile( pEdit->GetText() );
1280cdf0e10cSrcweir return ExtendFileName( aFile );
1281cdf0e10cSrcweir }
1282cdf0e10cSrcweir
ExtendFileName(DirEntry aEntry) const1283cdf0e10cSrcweir UniString ImpFileDialog::ExtendFileName( DirEntry aEntry ) const
1284cdf0e10cSrcweir {
1285cdf0e10cSrcweir aEntry.ToAbs();
1286cdf0e10cSrcweir // das ganze Theater hier ohnehin nur machen, wenn Dateiname
1287cdf0e10cSrcweir // ohne Extension angegeben wurde
1288cdf0e10cSrcweir if( !aEntry.GetExtension().Len() )
1289cdf0e10cSrcweir {
1290cdf0e10cSrcweir UniString aPostfix; // hier kommt die ausgesuchte Extension herein
1291cdf0e10cSrcweir
1292cdf0e10cSrcweir // ist ein Filter mit Extension gesetzt?
1293cdf0e10cSrcweir sal_uInt16 nChosenFilterPos = pTypeList->GetSelectEntryPos();
1294cdf0e10cSrcweir if( nChosenFilterPos != LISTBOX_ENTRY_NOTFOUND )
1295cdf0e10cSrcweir {
1296cdf0e10cSrcweir UniString aExtensionMask = GetFileDialog()->GetFilterType( nChosenFilterPos );
1297cdf0e10cSrcweir // aExtension ist z.B. *.sdw, alles bis einschliesslich Punkt abschneiden
1298cdf0e10cSrcweir UniString aExtension = aExtensionMask.Copy( aExtensionMask.Search( '.' )+1 );
1299cdf0e10cSrcweir
1300cdf0e10cSrcweir // hat der Filter ueberhaupt eine Extension
1301cdf0e10cSrcweir if( aExtension.Len() )
1302cdf0e10cSrcweir {
1303cdf0e10cSrcweir // keine Wildcards enthalten?
1304cdf0e10cSrcweir if( ( aExtension.Search( '*' ) == STRING_NOTFOUND ) &&
1305cdf0e10cSrcweir ( aExtension.Search( '?' ) == STRING_NOTFOUND ) )
1306cdf0e10cSrcweir {
1307cdf0e10cSrcweir // OK, Filter hat Extension ohne Wildcards -> verwenden
1308cdf0e10cSrcweir aPostfix = aExtension;
1309cdf0e10cSrcweir }
1310cdf0e10cSrcweir else
1311cdf0e10cSrcweir {
1312cdf0e10cSrcweir // Filter hat Extension mit Wildcards (z.B. *.*) -> nicht verwenden
1313cdf0e10cSrcweir aPostfix.Erase();
1314cdf0e10cSrcweir }
1315cdf0e10cSrcweir }
1316cdf0e10cSrcweir else
1317cdf0e10cSrcweir {
1318cdf0e10cSrcweir // Filter hatte keine Extension (schwer vorstellbar) -> nichts anhaengen
1319cdf0e10cSrcweir aPostfix.Erase();
1320cdf0e10cSrcweir }
1321cdf0e10cSrcweir }
1322cdf0e10cSrcweir else
1323cdf0e10cSrcweir {
1324cdf0e10cSrcweir // kein Filter gefunden (merkw�rdig) -> Default-Extension anhaengen
1325cdf0e10cSrcweir aPostfix = GetFileDialog()->GetDefaultExt();
1326cdf0e10cSrcweir }
1327cdf0e10cSrcweir
1328cdf0e10cSrcweir // jetzt kann es mit dem Anhaengen losgehen
1329cdf0e10cSrcweir const sal_Unicode* pExt = aPostfix.GetBuffer();
1330cdf0e10cSrcweir while( *pExt == '*' || *pExt == '?' )
1331cdf0e10cSrcweir pExt++;
1332cdf0e10cSrcweir
1333cdf0e10cSrcweir if( *pExt )
1334cdf0e10cSrcweir {
1335cdf0e10cSrcweir UniString aName = aEntry.GetName();
1336cdf0e10cSrcweir if( *pExt != '.' )
1337cdf0e10cSrcweir aName += '.';
1338cdf0e10cSrcweir aName += pExt;
1339cdf0e10cSrcweir aEntry.SetName( aName );
1340cdf0e10cSrcweir }
1341cdf0e10cSrcweir }
1342cdf0e10cSrcweir return aEntry.GetFull();
1343cdf0e10cSrcweir }
1344cdf0e10cSrcweir
1345cdf0e10cSrcweir
CreateDialog(PathDialog * pSvDlg,WinBits nStyle,RESOURCE_TYPE nType,sal_Bool bCreate)1346cdf0e10cSrcweir void ImpSvFileDlg::CreateDialog( PathDialog* pSvDlg, WinBits nStyle, RESOURCE_TYPE nType, sal_Bool bCreate )
1347cdf0e10cSrcweir {
1348cdf0e10cSrcweir delete pDlg;
1349cdf0e10cSrcweir if ( nType == WINDOW_PATHDIALOG )
1350cdf0e10cSrcweir pDlg = new ImpPathDialog( pSvDlg, nType, bCreate );
1351cdf0e10cSrcweir else
1352cdf0e10cSrcweir pDlg = new ImpFileDialog( pSvDlg, nStyle, nType );
1353cdf0e10cSrcweir }
1354cdf0e10cSrcweir
1355cdf0e10cSrcweir
1356