filedlgs.cpp

Go to the documentation of this file.

// $Id: filedlgs.cpp 1712 2006-08-22 16:01:26Z luke $
/* @@tag:xara-cn@@ DO NOT MODIFY THIS LINE
================================XARAHEADERSTART===========================
 
               Xara LX, a vector drawing and manipulation program.
                    Copyright (C) 1993-2006 Xara Group Ltd.
       Copyright on certain contributions may be held in joint with their
              respective authors. See AUTHORS file for details.

LICENSE TO USE AND MODIFY SOFTWARE
----------------------------------

This file is part of Xara LX.

Xara LX is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License version 2 as published
by the Free Software Foundation.

Xara LX and its component source files are distributed in the hope
that it will be useful, but WITHOUT ANY WARRANTY; without even the
implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along
with Xara LX (see the file GPL in the root directory of the
distribution); if not, write to the Free Software Foundation, Inc., 51
Franklin St, Fifth Floor, Boston, MA  02110-1301 USA


ADDITIONAL RIGHTS
-----------------

Conditional upon your continuing compliance with the GNU General Public
License described above, Xara Group Ltd grants to you certain additional
rights. 

The additional rights are to use, modify, and distribute the software
together with the wxWidgets library, the wxXtra library, and the "CDraw"
library and any other such library that any version of Xara LX relased
by Xara Group Ltd requires in order to compile and execute, including
the static linking of that library to XaraLX. In the case of the
"CDraw" library, you may satisfy obligation under the GNU General Public
License to provide source code by providing a binary copy of the library
concerned and a copy of the license accompanying it.

Nothing in this section restricts any of the rights you have under
the GNU General Public License.


SCOPE OF LICENSE
----------------

This license applies to this program (XaraLX) and its constituent source
files only, and does not necessarily apply to other Xara products which may
in part share the same code base, and are subject to their own licensing
terms.

This license does not apply to files in the wxXtra directory, which
are built into a separate library, and are subject to the wxWindows
license contained within that directory in the file "WXXTRA-LICENSE".

This license does not apply to the binary libraries (if any) within
the "libs" directory, which are subject to a separate license contained
within that directory in the file "LIBS-LICENSE".


ARRANGEMENTS FOR CONTRIBUTION OF MODIFICATIONS
----------------------------------------------

Subject to the terms of the GNU Public License (see above), you are
free to do whatever you like with your modifications. However, you may
(at your option) wish contribute them to Xara's source tree. You can
find details of how to do this at:
  http://www.xaraxtreme.org/developers/

Prior to contributing your modifications, you will need to complete our
contributor agreement. This can be found at:
  http://www.xaraxtreme.org/developers/contribute/

Please note that Xara will not accept modifications which modify any of
the text between the start and end of this header (marked
XARAHEADERSTART and XARAHEADEREND).


MARKS
-----

Xara, Xara LX, Xara X, Xara X/Xtreme, Xara Xtreme, the Xtreme and Xara
designs are registered or unregistered trademarks, design-marks, and/or
service marks of Xara Group Ltd. All rights in these marks are reserved.


      Xara Group Ltd, Gaddesden Place, Hemel Hempstead, HP2 6EX, UK.
                        http://www.xara.com/

=================================XARAHEADEREND============================
 */
// Custom File Open and Save Dialogs

#include "camtypes.h"
#include "camelot.h"        // IsNewWindowsUI

#include "filedlgs.h"
//#include "app.h" - in camtypes.h [AUTOMATICALLY REMOVED]
#include "camframe.h"
//#include "rik.h"
//#include "andy.h"
//#include "mario.h"            // for _R(IDE_NOMORE_MEMORY)
//#include "nev.h"          // for _R(IDN_IMPORTBUTTON) etc
//#include "resource.h"
//#include "oilfltrs.h" - in camtypes.h [AUTOMATICALLY REMOVED]
//#include "fixmem.h" - in camtypes.h [AUTOMATICALLY REMOVED]
#include "native.h"         // The new designed native filter, used for v2
#include "nativeps.h"       // The old style EPS native filter, used in v1.1
//#include "custmsg.h"
#include "helpuser.h"
#include "camelot.h"
//#include "filters.h" - in camtypes.h [AUTOMATICALLY REMOVED]
#include "bmapprev.h"
#include "bmpfiltr.h"

#include "palman.h"

// WEBSTER - markn 28/1/97
//#include "tim.h"
#include "webparam.h"
#include "xarprefs.h"
#include "webprefs.h"
#include "webfiltr.h"

//#include "richard2.h"     // For resource strings

#include "ctrlhelp.h"
#include "bitfilt.h"        // BaseBitmapFilter

//#include "xardlg.h"           // For the base dialogue for the web dialogue.
//#include "webdlg.h"           // Additional controls in _R(IDD_SAVEWEBOPTS)
//#include "filtrres.h"     // _R(IDS_FILTEREXT_WEB)
//#include "reshlpid.h"       // _R(ID_CC_HELP_BUTTON) 

// New for preview bitmaps
#include "dlgcol.h"         // DialogColourInfo
#include "dlgview.h"        // DialogView
//#include "docview.h"      // DocView - in camtypes.h [AUTOMATICALLY REMOVED]
#include "osrndrgn.h"       // OSRenderRegion
//#include "bitmap.h"           // KernelBitmap - in camtypes.h [AUTOMATICALLY REMOVED]
#include "nodebmp.h"        // NodeBitmap
#include "bitmpinf.h"       // BitmapInfo
#include "oilbitmap.h"      // CWxBitmap
#ifndef WEBSTER
//#include "extfilts.h"     // AccusoftFilters
#endif //WEBSTER
//#include "cmxifltr.h"     // CMXImportFilter
#include "webaddr.h"        // Olivier 09/05/97, use of the WebAddress class
#include "aprps.h"              
#include "exjpeg.h"
#include "ngprop.h"         // for NamedExportProp::m_fApplyNotExport
//#include "bmpreres.h"     // for _R(IDS_PREVIEW_APPLY)

//#include "resimmap.h"     // for new templates stuff
#include "menuops.h"
#include "progress.h"

#include "qualattr.h"
//#include <shfolder.h> // For SHGetFolderPath

void FixFPControlRegister();

// the longest name we can display as a path, before going down to the basename
#define MAX_ALLOWED_NAME_LENGTH 60

#define NumberOfNames 60

const DWORD FCIDM_SHVIEW_THUMBNAIL = 0x702D;

String_256 BaseFileDialog::DefaultSaveFilePath = TEXT("");
String_256 BaseFileDialog::DefaultOpenFilePath = TEXT("");
INT32        BaseFileDialog::SelectedFilter = FILTERID_VECTOR;  // changed from FILTERID_GENERIC
BOOL       BaseFileDialog::MakeBakFiles = FALSE;
BOOL       BaseFileDialog::ShowPreviewBitmap = TRUE;
BOOL       BaseFileDialog::ThumbNailMode = FALSE;

BOOL       SaveTemplateDialog::m_fUseAsDefault = TRUE;
BOOL       SaveTemplateDialog::m_fDefaultTemplatesFolder = TRUE;


// This points at the current running file dialog.  NB. this will only allow one file
// dialog to be open at any one time!
BaseFileDialog* BaseFileDialog::m_pCurrentFileDialog = NULL;

// Run-time type enquiry mechanisms.  These are required by the on-line help system.
IMPLEMENT_CLASS(BaseFileDialog,     wxFileDialog);
IMPLEMENT_CLASS(OpenFileDialog,     BaseFileDialog);
IMPLEMENT_CLASS(SaveFileDialog,     BaseFileDialog);
IMPLEMENT_CLASS(SaveTemplateDialog, SaveFileDialog);
IMPLEMENT_CLASS(ImportFileDialog,   BaseFileDialog);
IMPLEMENT_CLASS(ExportFileDialog,   BaseFileDialog);
IMPLEMENT_CLASS(GIFExportFileDialog,ExportFileDialog);

PORTNOTE("other", "Removed MFC MESSAGE_MAPs" )
#if !defined(EXCLUDE_FROM_XARALX)
// Need to ensure we get redraw messages back from the dialog box
// so that we can redraw the preview bitmap
BEGIN_MESSAGE_MAP(OpenFileDialog, BaseFileDialog)
    ON_BN_CLICKED(_R(ID_CC_HELP_BUTTON), BaseFileDialog::OnHelp)        // Windows 95 form
    ON_BN_CLICKED(_R(IDC_SHOWPREVIEW), BaseFileDialog::OnShowPreviewBitmap)     // Windows 95 form
    ON_MESSAGE(WM_REDRAW, OnRedrawMessage)
    ON_WM_SIZE()
END_MESSAGE_MAP()

// Map the buttons on the save dialog to the web export options handling functions
// Need two forms for the Windows 95 UI and Old Windows UI types.
// This code is all negated now and so is disabled.
// But now we have a preview bitmap on the dialog box
BEGIN_MESSAGE_MAP(SaveFileDialog, BaseFileDialog)
    ON_BN_CLICKED(_R(ID_CC_HELP_BUTTON), BaseFileDialog::OnHelp)        // Windows 95 form
    ON_BN_CLICKED(_R(IDC_SHOWPREVIEW), BaseFileDialog::OnShowPreviewBitmap)     // Windows 95 form
    // WEBSTER - markn 28/1/97
    ON_BN_CLICKED(_R(IDC_FILEDLG_OPTIONS), BaseFileDialog::OnOptions)           // Windows 95 form
    ON_MESSAGE(WM_REDRAW, OnRedrawMessage)
    ON_WM_SIZE()
END_MESSAGE_MAP()

BEGIN_MESSAGE_MAP(SaveTemplateDialog, BaseFileDialog)
    ON_BN_CLICKED(_R(ID_CC_HELP_BUTTON), BaseFileDialog::OnHelp)        // Windows 95 form
    ON_BN_CLICKED(_R(IDC_SHOWPREVIEW), BaseFileDialog::OnShowPreviewBitmap)     // Windows 95 form
    ON_BN_CLICKED(_R(IDC_USEASDEFAULT), SaveTemplateDialog::OnUseAsDefault)     // Windows 95 form
    ON_MESSAGE(WM_REDRAW, OnRedrawMessage)
    ON_WM_SIZE()
END_MESSAGE_MAP()


// Need to ensure we get redraw messages back from the dialog box
// so that we can redraw the preview bitmap
BEGIN_MESSAGE_MAP(ImportFileDialog, BaseFileDialog)
    ON_BN_CLICKED(_R(ID_CC_HELP_BUTTON), BaseFileDialog::OnHelp)        // Windows 95 form
    ON_BN_CLICKED(_R(IDC_SHOWPREVIEW), BaseFileDialog::OnShowPreviewBitmap)     // Windows 95 form
    ON_COMMAND(IDOK, OnOK)
    ON_BN_CLICKED(IDOK, OnOK)
    ON_MESSAGE(WM_REDRAW, OnRedrawMessage)
    ON_WM_LBUTTONDBLCLK()
    ON_WM_SIZE()
END_MESSAGE_MAP()

BEGIN_MESSAGE_MAP(ExportFileDialog, BaseFileDialog)
    ON_BN_CLICKED(_R(ID_CC_HELP_BUTTON), BaseFileDialog::OnHelp)            // Windows 95 form
    ON_BN_CLICKED(_R(IDC_FILEDLG_OPTIONS), BaseFileDialog::OnOptions)
    ON_BN_CLICKED(_R(IDC_SHOWPREVIEW), BaseFileDialog::OnShowPreviewBitmap) // Windows 95 form
    ON_BN_CLICKED(_R(IDC_AUTO_CHECK), OnAutoPreview)                        // Windows 95 form
    ON_MESSAGE(WM_REDRAW, OnRedrawMessage)
    ON_WM_SIZE()
END_MESSAGE_MAP()
#endif

/********************************************************************************************
>   BaseFileDialog::BaseFileDialog(BOOL IsFileOpen, WORD Flags, LPCSTR lpszFilter=NULL,
                wxWindow* pParentWnd=NULL)

    Author:     Rik_Heywood (Xara Group Ltd) <camelotdev@xara.com> & JustinF
    Created:    26/1/95
    Inputs:     IsFileOpen - TRUE if this is a File Open dialog, FALSE if it is a Save Dialog
                Flags - The flags you want set in the CFileDialog.
                lpszFilter - The Filter String
                pParentWnd - The owner of this window (by default the main frame window)
    Purpose:    Creates a base class file dialog, installing a hook etc.

Technical Notes:
We set the OFN_EXPLORER on Windows 95 only. Really this should include the new shell on NT
when we work with it. If you set this flag on NT without the new shell, then you get a useful
not enough memory or similar error and the dialog box fails to open. At present, the user will
see nothing as we don't seem to cope with errors.
We need to set the flag as some functions e.g. ExportFileDialog::OnTypeChange() will only
work with it set. Used to fix the filenames up when switching to a new filter.
********************************************************************************************/

// Visual C (MFC) 4 defines this constant, but Visual C 2 does not
#ifndef OFN_EXPLORER
#define OFN_EXPLORER 0
#endif

BaseFileDialog::BaseFileDialog(BOOL IsFileOpen, DWORD dwFlags, LPCTSTR lpszFilter, wxWindow* pParentWnd)
  : wxFileDialog( (pParentWnd != NULL) ? pParentWnd : pParentWnd = GetMainFrame(), _T("Choose a file"),
        _T(""), _T(""), lpszFilter, dwFlags | ( IsFileOpen ? wxOPEN : wxSAVE) )
//  IsFileOpen, NULL, NULL, dwFlags | ((CCamApp::IsNewWindowsUI()) ? OFN_EXPLORER : OFN_SHOWHELP) | OFN_ENABLEHOOK,
//  lpszFilter, )
{
PORTNOTE("other", "Removed MFC junk" )
#if !defined(EXCLUDE_FROM_XARALX)
    // Set the address of the message hook procedure.
    m_ofn.lpfnHook = (LPOFNHOOKPROC) HookProc;

    // Unfortunately, MFC doesn't set the hwndOwner member of m_ofn . . .
    m_ofn.hwndOwner = (pParentWnd != NULL) ? pParentWnd->m_hWnd : NULL;

    // We haven't called the explorer style init function by default
    ExplorerInited = FALSE;
#endif
    
    // Remember a pointer to this file dialog.
    m_pCurrentFileDialog = this;

    // Set the preview bitmap to be NULL
    pBitmapToUse = NULL;

    // Added by Craig Hamilton 20/9/00.
    m_previousPathName = _T("");
    // End added.
}


/********************************************************************************************

>   BaseFileDialog::~BaseFileDialog()

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    18/7/96
    Returns:    -
    Purpose:    Standard destructor. Need to clean up the preview bitmap, if present.

********************************************************************************************/

BaseFileDialog::~BaseFileDialog()
{
    // Must clean up our preview bitmap, if present
    if (pBitmapToUse != NULL)
    {
        delete pBitmapToUse;
        pBitmapToUse = NULL;
    }
    m_pCurrentFileDialog = NULL;
}


PORTNOTE("other", "Removed MFC type Hooks" )
#if !defined(EXCLUDE_FROM_XARALX)
/********************************************************************************************
>   static UINT32 CALLBACK BaseFileDialog::HookProc(wxWindow* hwnd, UINT32 nMsg,
                                                  WPARAM wParam, LPARAM lParam)
    Author:     Justin_Flude (Xara Group Ltd) <camelotdev@xara.com>
    Created:    18/5/95
    Inputs:     (the usual message proc paramters, see Win32 SDK documentation)
    Returns:    FALSE if the dialog library should process this message, TRUE if it
                should ignore it.
    Purpose:    Called by the common dialog library when it has a message to process.
                Calls the virtual OnHookMsg function.
    SeeAlso:    BaseFileDialog::OnHookMsg
********************************************************************************************/

UINT32 CALLBACK BaseFileDialog::HookProc(wxWindow* hwnd, UINT32 nMsg, WPARAM wParam, LPARAM lParam)
{
    // If there is no current file dialog then just say nothing and do nothing
    // This MAY happen if we are bodging the web filename file dialog which is to get
    // round having double file dialogs on screen, which is BAD!
    if (m_pCurrentFileDialog == NULL) // || m_pCurrentFileDialog->hwnd == NULL)
        return FALSE;

    return m_pCurrentFileDialog->OnHookMsg(hwnd, nMsg, wParam, lParam);
}



/********************************************************************************************
>   virtual UINT32 BaseFileDialog::OnHookMsg(wxWindow* hwnd, UINT32 nMsg, WPARAM wParam, LPARAM lParam)

    Author:     Justin_Flude (Xara Group Ltd) <camelotdev@xara.com>
    Created:    18/5/95
    Inputs:     (the usual message proc parameters)
    Returns:    FALSE if the dialog library should process this message, TRUE if it
                should ignore it.
    Purpose:    Called by the common dialog library when it has a message to process.
                This function checks if the help button has been clicked, and runs the
                help engine if it has.
    SeeAlso:    BaseFileDialog::HookProc
********************************************************************************************/

UINT32 BaseFileDialog::OnHookMsg(wxWindow* hwnd, UINT32 nMsg, WPARAM wParam, LPARAM lParam)
{
    // Check for a help message.
    if (nMsg == WM_COMMAND && LOWORD(wParam) == pshHelp)
    {
        // Run the help engine for this dialog and don't bother processing this message
        // any further, we've done it.
        HelpUser(*this);
        return TRUE;
    }

    // Allow explorer style dialog boxes to set themselves up
    if (nMsg == WM_INITDIALOG && CCamApp::IsNewWindowsUI())
    {
        // Only call this if we are the new explorer dialog boxes
        return ExplorerInitDialog(hwnd);
    }

    // WM_NOTIFY notification messages indicates actions taken by the user in the dialog box.
    // The lParam parameter for each WM_NOTIFY message is the address of a OFNOTIFY structure
    // that defines the action. The code member in the header for the OFNOTIFY structure
    // contains the notification values
    if (nMsg == WM_NOTIFY && lParam != NULL)
    {
        OFNOTIFY * pNotify = (OFNOTIFY*)lParam;
        // This is used to inform explorer style dialogs of actions
        if (CCamApp::IsNewWindowsUI())
            return ExplorerFileHookNotify(hwnd, pNotify);
    }

    //TODO: change 'File name:' to 'File name (or URL):' (WARNING: change _R(ID_OF_FILENAME) with the correct ID)
    //SetDlgItemText(hwnd, _R(ID_OF_FILENAME), (TCHAR *)String_256("File name (or URL):"));

#ifndef RALPH
    // By default let MFC handle all other messages in its own hook procedure.
    return _AfxCommDlgProc(hwnd, nMsg, wParam, lParam);
#else
    // Why doesn't this work with _AFXDLL defined ?
    return FALSE;
#endif
}

/********************************************************************************************

>   virtual BOOL BaseFileDialog::ExplorerInitDialog(wxWindow* hDlg)

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    2/7/96
    Returns:    TRUE if it worked, FALSE if it failed
    Purpose:    Should be called when the explorer style dialog boxes need setting up.
                We can take this opportunity to add in any extra controls that we require.
                Baseclass version.
    SeeAlso:    BaseFileDialog::OnHookMsg; BaseFileDialog::HookProc;

********************************************************************************************/

BOOL BaseFileDialog::ExplorerInitDialog(wxWindow* hDlg)
{
    return TRUE;
}

/********************************************************************************************

>   virtual BOOL BaseFileDialog::ExplorerFileHookNotify(wxWindow* hDlg, LPOFNOTIFY pofn)

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    3/7/96
    Inputs:     hDlg - wxWindow* of the dialog box.
                pofn - pointer to notify structure
    Returns:    TRUE if it worked, FALSE if it failed
    Purpose:    Should be called when actions happen on the explorer style dialog boxes.
                We can take this opportunity to handle these actions as required.
                Baseclass version.
    SeeAlso:    BaseFileDialog::OnHookMsg; BaseFileDialog::HookProc;

********************************************************************************************/

BOOL BaseFileDialog::ExplorerFileHookNotify(wxWindow* hDlg, LPOFNOTIFY pofn)
{
    return TRUE;
}

/********************************************************************************************

>   virtual UINT32 BaseFileDialog::OnFileTypeChange()

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    12/1/96
    Returns:    TRUE if it worked, FALSE if it failed
    Purpose:    Should be called when the user has selected a new file type from the
                "Files of type" combo box. We might need to do things like fix the file
                extension for the currently selected save/export filter.
                Baseclass version.
    SeeAlso:    BaseFileDialog::OnHookMsg; BaseFileDialog::HookProc;

********************************************************************************************/

UINT32 BaseFileDialog::OnFileTypeChange()
{
    return TRUE;
}
#endif

/********************************************************************************************

>   BOOL BaseFileDialog::Init()

    Author:     Rik_Heywood (Xara Group Ltd) <camelotdev@xara.com>
    Created:    25/1/95
    Returns:    TRUE if it worked, FALSE if it failed
    Purpose:    Declares some preferences for the Open and Save dialogs

********************************************************************************************/

BOOL BaseFileDialog::Init()
{
    // Set some defaults
    String_256 Blank("");
    DefaultSaveFilePath = Blank;
    DefaultOpenFilePath = Blank;

    // declare prefs for the open and save dialogs
    Camelot.DeclareSection(_T("Filters"), 6);
    Camelot.DeclarePref(_T("Filters"), _T("DefaultSaveFilePath"), &DefaultSaveFilePath);
    Camelot.DeclarePref(_T("Filters"), _T("DefaultOpenFilePath"), &DefaultOpenFilePath);
    Camelot.DeclarePref(_T("Filters"), _T("OpenFileFilter"), &SelectedFilter);
    Camelot.DeclarePref(_T("Filters"), _T("MakeBakFiles"), &MakeBakFiles);
    Camelot.DeclarePref(_T("Filters"), _T("ShowPreviewBitmap"), &ShowPreviewBitmap);
    Camelot.DeclarePref(_T("Filters"), _T("ThumbNailMode"), &ThumbNailMode);


    return TRUE;
}



/********************************************************************************************

>   BOOL BaseFileDialog::PrepareDialog()

    Author:     Rik_Heywood (Xara Group Ltd) <camelotdev@xara.com>
    Created:    26/1/95
    Returns:    TRUE if it worked, FALSE if not
    Purpose:    Does anything the dialogs want doing after they have been created, but before
                they are displayed.

********************************************************************************************/

BOOL BaseFileDialog::PrepareDialog()
{
    // Nothing to do in this base class . . .
    return TRUE;
}


/********************************************************************************************

>   static char *BaseFileDialog::BuildFilterString(BOOL GetImport,
                                                   UINT32 SelectedFilterID,
                                                   INT32 *SelectedFilter,
                                                   CCRuntimeClass *pTypeOfFilter = GenericFilter,
                                                   UINT32 Bpp = 0)

    Author:     Tim_Browse (Xara Group Ltd) <camelotdev@xara.com>
    Created:    29/03/94
    Inputs:     GetImport - TRUE => Build list of Import filters
                           FALSE => Build list of Export filters
                SelectedFilterID - the ID of the last filter that was used by the
                                   calling Operation.
                pTypeOfFilter    - optional type of filter to use. Defaults to GenericFilter
                                   for all.
                Bpp              - if only bitmap filters required then check this bpp against
                                   the ones that the filter supports 
    Outputs:    SelectedFilter - the position in the list box of the selected filter
                                 identified by SelectedFilterID, or unchanged if it wasn't 
                                 found.
    Returns:    The filter string.
    Purpose:    Build a filter string suitable for use by Windows' common dialog 
                "File open" or "File save" boxes.
                This is mainly for the import and export dialog boxes.
                Used to be in OilFiltrs.cpp until moved to BaseFileDialog 5/1/96.
    Errors:     Out of memory
    SeeAlso:    MetaFileFilter;
    SeeAlso:    OpMenuExport; OpMenuImport;

********************************************************************************************/

TCHAR *BaseFileDialog::BuildFilterString(BOOL GetImport,
                                        UINT32 SelectedFilterID,
                                        INT32 *SelectedFilter,
                                        CCRuntimeClass *pTypeOfFilter,
                                        UINT32 Bpp,
                                        UINT32 BitmapCount)
{
    // Find out how much space is needed
    UINT32 FilterSize = 0;

    // Used to load in the resource strings for the filter extension descriptions.
    String_256 FilterExtensions;

    Filter *pFilter = Filter::GetFirst();
    BOOL FilterCanCope = TRUE;
    while (pFilter != NULL)
    {
        // If we are filtering for bitmap filters then check that if a Bpp has been
        // specified that the bitmap filter can cope with that.
        FilterFlags Flags = pFilter->GetFlags();
        if (pTypeOfFilter==CC_RUNTIME_CLASS(BitmapFilter) && pFilter->IsKindOf(pTypeOfFilter))
        {
            BaseBitmapFilter* pBitmapFilter = (BaseBitmapFilter*)pFilter;
            if (pBitmapFilter->IsThisBppOk(Bpp))
            {
                // Webster - RanbirR - 25\02\97  
                // If this is a single bitmap and the the Bpp is 24, 
                // then we do not want to dipsplay *.gif in the export filter List.
                // Only allow the format for Animated GIF's (even though they do not 
                // support 24 colour bitmaps.) We later convert to an 8 Bpp. 
                // This fixes an animated GIF export bug in Camelot.
                // At present we error if the first bitmap in our animated gif is 24Bpp.
                if (pFilter->FilterID ==  FILTERID_TI_GIF && Bpp == 24 && BitmapCount == 1)
                    FilterCanCope = FALSE;
                else
                    FilterCanCope = TRUE;
            }
            else
                FilterCanCope = FALSE;

            if (BitmapCount>1 && !Flags.CanExportMultipleImages)
                FilterCanCope = FALSE;
        }
        else
            FilterCanCope = TRUE;
                
        // little bit of a bodge here to stop the CamelotEPSFilter from appearing in the
        // import list - you can't hide it from just one list. It must be availiable though
        // to give it's nice little error message. Other instances of this below.
        if (
            ( ( GetImport && Flags.CanImport && !IS_A( pFilter, CamelotEPSFilter ) )
                || (!GetImport && Flags.CanExport)) && NULL != pFilter->pOILFilter &&
                Flags.ShowFilter && (pFilter->IsKindOf(pTypeOfFilter)) && FilterCanCope
           )
        {
            // Add the space required to put this into the filter string
            // (add 1 for the separating '|' character when not the first)
            if (FilterSize != 0)
                FilterSize += 1;
            FilterSize += camStrlen(pFilter->pOILFilter->ConstructFilterString(BitmapCount));
        }

        // Try the next filter
        pFilter = Filter::GetNext(pFilter);
    }

    // If we have found no valid filters then we must set an error and return NULL
    // as otherwise we are in an illegal situation
    if (FilterSize == 0)
    {
        Error::SetError(_R(IDE_FORMATNOTSUPPORTED));
        return NULL;
    }
    
    // Add one for the final terminator.
    FilterSize += 1;

    // Try to get this string
    TCHAR *FilterString = (TCHAR *) CCMalloc(FilterSize * sizeof(TCHAR));
    if (FilterString==NULL)
    {
        // Error state already set by CCMalloc
        return NULL;
    }
    
    // Construct the string, and set up the position numbers for the filters.
    UINT32 Position = 0;
    FilterString[0] = 0;
    pFilter = Filter::GetFirst();

    while (pFilter != NULL)
    {
        // If we are filtering for bitmap filters then check that if a Bpp has been
        // specified that the bitmap filter can cope with that.
        FilterFlags Flags = pFilter->GetFlags();
        if (pTypeOfFilter==CC_RUNTIME_CLASS(BitmapFilter) && pFilter->IsKindOf(pTypeOfFilter))
        {
            BaseBitmapFilter* pBitmapFilter = (BaseBitmapFilter*)pFilter;
            if (pBitmapFilter->IsThisBppOk(Bpp))
            {
                // Webster - RanbirR - 25\02\97  
                // If this is a single bitmap and the the Bpp is 24, 
                // then we do not want to dipsplay *.gif in the export filter List.
                // Only allow the format for Animated GIF's (even though they do not 
                // support 24 colour bitmaps.) We later convert to an 8 Bpp. 
                // This fixes an animated GIF export bug in Camelot.
                // At present we error if the first bitmap in our animated gif is 24Bpp.
                if (pFilter->FilterID ==  FILTERID_TI_GIF && Bpp == 24 && BitmapCount == 1)
                    FilterCanCope = FALSE;
                else
                    FilterCanCope = TRUE;
            }
            else
                FilterCanCope = FALSE;

            if (BitmapCount>1 && !Flags.CanExportMultipleImages)
                FilterCanCope = FALSE;
        }
        else
            FilterCanCope = TRUE;

        if( NULL != pFilter->pOILFilter )
        {
            if (
                ( ( GetImport && Flags.CanImport && !IS_A( pFilter, CamelotEPSFilter ) )
                    || (!GetImport && Flags.CanExport)) &&
                    Flags.ShowFilter && (pFilter->IsKindOf(pTypeOfFilter)) && FilterCanCope
               )
            {
                // Add this filter into the list
                if (Position != 0)
                    camStrcat(FilterString, _T("|"));
                camStrcat(FilterString, pFilter->pOILFilter->ConstructFilterString(BitmapCount));
                pFilter->pOILFilter->Position = Position;

                // Is this the filter we used last?
                if ((*SelectedFilter == -1) && (pFilter->FilterID == SelectedFilterID))
                    // Yes - remember this.
                    *SelectedFilter = Position;

                Position++;
            }
            else
                // Make sure we don't try this one later
                pFilter->pOILFilter->Position = -1;
        }
        
        // Try the next filter
        pFilter = Filter::GetNext(pFilter);
    }

    // All ok
    return FilterString;
}


/********************************************************************************************

>   virtual INT32 BaseFileDialog::GetSelectedFilterIndex()

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    4/1/96
    Returns:    The index of the selected filter
    Purpose:    Allows access in a kernelly fashion to the selected filter index on
                the common file dialog box.

********************************************************************************************/

INT32 BaseFileDialog::GetSelectedFilterIndex()
{
    return GetFilterIndex();
}

/********************************************************************************************

>   virtual INT32 BaseFileDialog::SetSelectedFilterIndex(INT32 NewIndex)

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    4/1/96
    Returns:    TRUE if it worked, FALSE if not
    Purpose:    Set the desired index for the filter that is going to be selected on the 
                Common file dialog box.

********************************************************************************************/

INT32 BaseFileDialog::SetSelectedFilterIndex(INT32 NewIndex)
{
    INT32 Old = GetFilterIndex();
    SetFilterIndex( NewIndex );
    TRACEUSER( "Neville", _T("SetSelectedFilterIndex - new %d (old = %d)\n"), NewIndex, Old);
    return Old;
}

/********************************************************************************************

>   virtual BOOL BaseFileDialog::SetTitle(INT32 TitleId)

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    4/1/96
    Returns:    TRUE if it worked, FALSE if not
    Purpose:    Allows the title of the common file dialog box to be set up 

********************************************************************************************/

BOOL BaseFileDialog::SetTitle(INT32 TitleId) 
{
    if (SmartLoadString(0, TitleId, Title, 128))
        SetName( Title );
    
    return TRUE;
}


/********************************************************************************************

>   virtual BOOL BaseFileDialog::SetInitialDirectory(const String_256& pDir)

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    4/1/96
    Inputs:     pDir    String containing the pathname to use
    Returns:    TRUE if it worked, FALSE if not
    Purpose:    Sets the directory which the common file dialog box will open looking at.

********************************************************************************************/

BOOL BaseFileDialog::SetInitialDirectory(const String_256& strDir)
{
    SetDirectory( PCTSTR(strDir) );
    
    return TRUE;
}

/********************************************************************************************

>   virtual BOOL BaseFileDialog::SetDefaultFileName(const String_256& Name)

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    4/1/96
    Inputs:     Name    name of the file to be used by default
    Returns:    TRUE if it worked, FALSE if not
    Purpose:    Sets the name and length of the name of the default file to be used in the 
                common file dialog box

********************************************************************************************/

BOOL BaseFileDialog::SetDefaultFileName(String_256& Name)
{
    SetFilename( PCTSTR(Name) );
        
    return TRUE;
}

/********************************************************************************************

>   virtual BOOL BaseFileDialog::GetChosenFileName(PathName * pName)

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    4/1/96
    Outputs:    The pathname that the user chose.
    Returns:    TRUE if it worked and patname is valid, FALSE if not
    Purpose:    Gets the pathname of the file that was chosen by the user. It will return
                the vailidity of the pathname to the caller. Should be valid as the file
                dialog box should filter out problem pathnames.

********************************************************************************************/

BOOL BaseFileDialog::GetChosenFileName(PathName * pName)
{
    TRACEUSER( "luke", _T("FileName is %s\n"), GetPath().c_str() );

    pName->SetPathName( GetPath() );
    return pName->IsValid();
}

/********************************************************************************************

>   virtual Filter * BaseFileDialog::GetSelectedExportFilter()

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    4/1/96
    Returns:    TRUE if it worked, FALSE if not
    Purpose:    

********************************************************************************************/

Filter * BaseFileDialog::GetSelectedExportFilter(INT32 TheSelectedFilter)
{
    // Find the filter that the user has chosen
    Filter *pFilter = Filter::GetFirst();
    while (pFilter != NULL)
    {
        if ((pFilter->GetFlags().CanExport) && 
            (pFilter->pOILFilter->Position == TheSelectedFilter))
            // This is the filter!
            break;

        // Try the next filter
        pFilter = Filter::GetNext(pFilter);
    }

    return pFilter;
}

/********************************************************************************************

>   void BaseFileDialog::SetSelectedExportFilter(UINT32 uiFilterID)

    Author:     Graham_Walmsley (Xara Group Ltd) <camelotdev@xara.com>
    Created:    3/7/97
    Returns:    -
    Purpose:    Sets the selected export filter to the ID given

********************************************************************************************/

void BaseFileDialog::SetSelectedExportFilter(UINT32 uiFilterID)
{
    //Search through the filters until we find the one we want
    Filter* pFilter = Filter::GetFirst();
    while (pFilter != NULL)
    {
        if (pFilter->FilterID == uiFilterID)
        {
            //We've found it
            //So set this as the selected filter
            SetSelectedFilterIndex( pFilter->pOILFilter->Position );
            return;
        }
        pFilter = Filter::GetNext(pFilter);
    }

    ERROR3("BaseFileDialog::SetSelectedExportFilter - couldn't find the Filter ID");
}


/********************************************************************************************

>   virtual BOOL BaseFileDialog::OpenAndGetFileName()

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    4/1/96
    Returns:    True if the user pressed ok on the dialog box, False otherwise
    Purpose:    Opens the common file dialog box up, waits for the user to gives us the
                filename that they wish to use and either press ok or cancel. 

********************************************************************************************/

BOOL BaseFileDialog::OpenAndGetFileName()
{
PORTNOTE("other", "Removed ControlHelper usage" )
#if !defined(EXCLUDE_FROM_XARALX)
    // Keep Control Helper system informed
    ControlHelper::InformModalDialogOpened();
#endif
    
    // 'Do' the dialog
    INT32 DlgResult = ShowModal();

PORTNOTE("other", "Removed ControlHelper usage" )
#if !defined(EXCLUDE_FROM_XARALX)
    // Keep Control Helper system informed
    ControlHelper::InformModalDialogClosed();
#endif
    
    return (DlgResult == wxID_OK);
}

/********************************************************************************************

>   BOOL BaseFileDialog::IsValidFilename()

    Author:     Rik_Heywood (Xara Group Ltd) <camelotdev@xara.com>
    Created:    31/10/95
    Returns:    TRUE if the current filename is Acceptable, FALSE if not
    Purpose:    Makes sure that the filename picked is actually OK. If there is another
                file of the same name, it checks to see if the user wants to replace it.
                Moved from SaveFileDialog 9/1/96
********************************************************************************************/

BOOL BaseFileDialog::IsValidFilename()
{
    // Get the pathname
    wxString FullPath = GetFilename();
    AppendExtension(&FullPath);

    // Webster - RanbirR 17/02/97
    // Save the file name with our Filter extension, for use in our Message Box.
#ifdef WEBSTER
    wxString FileName(FullPath);
#endif //webster

    // if doesn't exist then thats fine
    if( wxFile::Exists( FullPath ) )
    {
        //  WEBSTER-ranbirr-27/03/97
        // Remove the extension from the file. Webster - RanbirR 11\02\97.
    #ifdef WEBSTER
        RemoveFileExtension(&FileName);
    #endif //webster
        return TRUE;
    }

    // Added for Webster - Ranbir 11\02\97  
    // Removes the exstion from a file name.
#ifdef WEBSTER
    RemoveFileExtension(&FileName);
#endif //webster

    // Get the filename into a Path object
#ifndef WEBSTER
    String_256 KernelFilename(FullPath);
    PathName FileMessage(KernelFilename);
    KernelFilename =  FileMessage.GetTruncatedPath(50);
#endif //webster
    
    // Webster - RanbirR 17/02/97 
    // Use "FileName", since it contains the Filter extension.
#ifdef WEBSTER
    String_256 KernelFilename(FileName);
    PathName FileMessage(KernelFilename);
    KernelFilename =  FileMessage.GetTruncatedPath(50);
#endif //webster

    const TCHAR* Name;
    Name = (TCHAR*)KernelFilename;

    String_256 strPrompt( _R(IDM_OVERWRITE) );

    // fill in the %s field with the filename
    TCHAR ErrorMsg[256];
    camSnprintf( ErrorMsg, sizeof(ErrorMsg) / sizeof(ErrorMsg[0]), strPrompt, 
        (const TCHAR*)Name );
    Error::SetError( 0, ErrorMsg, 0 );
    SetNextMsgHelpContext(_R(IDM_OVERWRITE));

    // then ask the user
    ErrorInfo Info;
    Info.Button[0] = _R(IDB_OVERWRITE);
    Info.Button[1] = _R(IDS_CANCEL);
    
    // This makes the cancel button the default one in this situation
    // as defaulting to replace is bad.
    Info.OK = Info.Cancel = 2;

    UINT32  idResult = AskQuestion( &Info );

    // if they cancel, then the name is not acceptable to them
    if( _R(IDS_CANCEL) == idResult )
        return FALSE;

    // user was quite keen on the replace file idea.
    // delete the file we're replacing so rampant filters don't get upset
    // Removed 2/1/96 as the export filters should be using the new DeleteExportFile function
    // Problems with this approach as if the exporter pops up an expotr options dialog box then
    // most people would expect a cancel on this not to vape the file.
    //_unlink(FullPath);

    return TRUE;
}

/********************************************************************************************

>   void BaseFileDialog::AppendExtension(wxString* pFilename)

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    9/1/96
    Inputs:     pFilename - the filename to append an extension to
    Outputs:    pFilename - the input filename with the .art extension on the end (if needed)
    Purpose:    Given a filename, this function should attach the appropriate file extension
                to the to it. This baseclass version does nothing

********************************************************************************************/

void BaseFileDialog::AppendExtension(wxString* pFilename)
{
    // baseclass version so do nothing
}

/********************************************************************************************

>   void BaseFileDialog::RemoveFileExtension(wxString* pFilename)

    Author:     Ranbir_Rana (Xara Group Ltd) <camelotdev@xara.com>
    Created:    11/02/97
    Inputs:     pName - The filename from which the extension will be removed.
    Outputs:    pName - The input filename with the extension removed.
    
********************************************************************************************/
//  WEBSTER-ranbirr-27/03/97
#ifdef WEBSTER
BOOL  BaseFileDialog::RemoveFileExtension(wxString* pName)
{
    // Is this a valid file name
    if ((pName == NULL) || (pName->IsEmpty()))
        return FALSE;

    // Does the filename have an extension? 
    INT32 i = pName->GetLength() - 1;
    INT32 ExtensionLen = 0;

    // look for the dot char.
    while ((i >= 0) && (pName->GetAt(i) != '.'))
    {
        i--;
        ExtensionLen++;
    }
    
    // Is it a valid extension?
    if (ExtensionLen <= 3 && ExtensionLen > 0 && i > 0)
    {
        // Remove the extension.
        *pName = pName->Left(i);
        return TRUE;
    }
    else
        return FALSE;
}
#endif //webster


/********************************************************************************************
***     New help button handling code
********************************************************************************************/

/********************************************************************************************

>   afx_msg void BaseFileDialog::OnHelp()

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    30/7/96
    Returns:    -
    Purpose:    Handle the clicks on the help button.
                This is the Windows 95 UI form of the function.

********************************************************************************************/

PORTNOTE("other", "Removed MFC type Hooks" )
#if !defined(EXCLUDE_FROM_XARALX)
afx_msg void BaseFileDialog::OnHelp()
{
    // Run the help engine for this dialog and don't bother processing this message
    // any further, we've done it.
    HelpUser(*this);
    return;
}

/********************************************************************************************
***     Preview bitmap handling code
********************************************************************************************/

/********************************************************************************************

>   afx_msg void BaseFileDialog::OnShowPreviewBitmap()

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    18/7/96
    Returns:    -
    Purpose:    Handle the clicks on the buttons which offer the show preview bitmap.
                This is the Windows 95 UI form of the function.

********************************************************************************************/

afx_msg void BaseFileDialog::OnShowPreviewBitmap()
{
    if (!CCamApp::IsNewWindowsUI())
        return;

    // Do exactly the same as the file name change code does
    OnFileNameChange();
}

/********************************************************************************************

>   afx_msg void BaseFileDialog::OnOptions()

    Author:     Mark_Neves (Xara Group Ltd) <camelotdev@xara.com>
    Created:    24/1/97
    Returns:    -
    Purpose:    Implements the options button installed for WEBSTER
                Base class does nowt

********************************************************************************************/

afx_msg void BaseFileDialog::OnOptions()
{
    // WEBSTER - markn 28/1/97
    HandleOptions();
}

/********************************************************************************************

>   virtual BOOL BaseFileDialog::HandleOptions()

    Author:     Mark_Neves (Xara Group Ltd) <camelotdev@xara.com>
    Created:    24/1/97
    Returns:    -
    Purpose:    Implements the options button installed for WEBSTER
                Base class does nowt

********************************************************************************************/

BOOL BaseFileDialog::HandleOptions()
{
    return TRUE;
}

/********************************************************************************************

>   void BaseFileDialog::OnFileNameChange()

    Author:     Neville_Humphrys (Xara Group Ltd) <camelotdev@xara.com>
    Created:    17/7/96
    Returns:    -
    Purpose:    Should be called when the user has selected a new file in the file list.
                We might need to do things like remove the preview bitmap from the file
                and display it.
                Only called back if OFN_EXPLORER is set and you can only do this on Windows 95
                otherwise a dialog is not popped up.

    SeeAlso:    BaseFileDialog::OnHookMsg; BaseFileDialog::HookProc;
    SeeAlso:    ExportFileDialog::OnLBSelChangedNotify;

********************************************************************************************/

void BaseFileDialog::OnFileNameChange()
{
#if _MFC_VER >= 0x400
    // Remove code completely if using less than MFC4.0 as calls like SetControlText
    // will not be present and this function will not work
    // Just in case Windows NT 3 decides to call this we'd better stop it as otherwise things
    // will be happening more than they should. This is the method used on Windows 95 or NT 4.
    if (!CCamApp::IsNewWindowsUI())
        return;

    // Graeme (1/12/00) - We need to update ShowPreviewBitmap here. This updates the registry
    // settings, and enables the dialogue to remember the show preview bitmap settings. The
    // single equals sign is intentional, as I want to perform an assignment, rather than an
    // equality operation.
    if ( ShowPreviewBitmap = IsDlgButtonChecked ( _R(IDC_SHOWPREVIEW) ) )
    {
        // Get the filename which the user has entered in the field.
        wxString FileName = GetFileName();

        // Added by Craig Hamilton 20/9/00.
        // This fixes the problem where a user drags a file over folders within the import
        // dialog causing the preview to be redone. If the previously selected file is the
        // same as the current then there is no need to regenerate a new preview.
        wxString pathName = GetPathName();
        if(m_previousPathName != pathName)
        {
            // Reinitialise. This is the only place this happens.
            m_previousPathName = pathName;

            // If its e