BorlandTalk.com

Gord · Guest

Okay maybe its not new anymore, but I would like to get the "new" style
open dialog with BCB4 under Windows 98 (or anything higher). I'm
referring to the dialog with the left pane that shows folders such as
Favorites, My Documents, Desktop, etc. Anything written with a modern
compiler should do it. However, I'm hesitant to upgrade right now until
the whole VCL/BCB/CBX thing is clarified.

Thanks

Pete Fraser · Guest

It's there in BCB6 along with a whole host of other fixes.
You should also be able to do it using the Windows API - look at MSDN site
at Microsoft.com which should tell you which flags to use when creating the
dialog.

"Gord" <gp.mail.no.spam (AT) telus (DOT) no.spam.net> wrote

Gord · Guest

I was suspecting that I would have to dive into the WinAPI and MSDN. I was
just hoping there was an easier way or some component I haven't stumbled
across.

I'm not interested in investing money into BCB6 yet until I know what the heck
Borland is doing with C++/VCL etc. I'll try to stretch BCB4 as far as I can
until the path is clear.

- - - - - -

Pete Fraser wrote:

Timothy H. Buchman · Guest

Gord <gp.mail.no.spam> wrote

Gord · Guest

Thanks Timothy

I'll check it out. I came across your name when I searched the groups for
help on this topic. I'm glad you distilled the relevant part of your
previous investigation.

Gord

"Timothy H. Buchman" wrote:

Timothy Buchman · Guest

Just to get it on the record, I found my BCB6 efforts. I apparently made a
note in the comments before abandoning the idea. Because the VCL, at
runtime on the target machine, checks the windows version, and substitutes
the OPENFILENAME structure size (see VCL source), I believe the job *cannot*
be done within the VCL.
(header file)
//--------------------------------------------------------------------------
-

#ifndef PlacesDialogH
#define PlacesDialogH
//--------------------------------------------------------------------------
-
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Dialogs.hpp>
//--------------------------------------------------------------------------
-

// #pragma pack(push, 1)
typedef struct
{
void * pvReserved;
DWORD dwReserved;
DWORD FlagsEx;
}OPENEX;
typedef struct
{ // NOTE special typedef in next line!
OPENFILENAME_NT4 ofn;
OPENEX oex;
} OPDFILENAME;
// #pragma pack(pop)

class PACKAGE TPlacesDialog : public TOpenDialog
{
private:

const DWORD ss;
LPOPENFILENAMEA originaldialogdata;
LPOPENFILENAMEA ourdialogdata;

#pragma pack(push, 1)
OPDFILENAME opddialogdata;
#pragma pack(pop)

protected:
BOOL __fastcall TPlacesDialog::TaskModalDialog(void * DialogFunc,
void* DialogData); // override Dialogs::TOpenDialog method
public:
__fastcall TPlacesDialog(TComponent* Owner);
__published:
};
//--------------------------------------------------------------------------
-
#endif

(.cpp file)
//--------------------------------------------------------------------------
-

#include <basepch.h>

#pragma hdrstop

#include "PlacesDialog.h"
#pragma package(smart_init)
//--------------------------------------------------------------------------
-
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TPlacesDialog *)
{
new TPlacesDialog(NULL);
}
//--------------------------------------------------------------------------
-
__fastcall TPlacesDialog::TPlacesDialog(TComponent* Owner)
: TOpenDialog(Owner),
ss(sizeof(OPDFILENAME)),
ourdialogdata((LPOPENFILENAMEA)&opddialogdata)
{
setmem(&opddialogdata,sizeof(opddialogdata),0);
}
BOOL __fastcall TPlacesDialog::TaskModalDialog(void * DialogFunc,
void* DialogData) // override Dialogs::TOpenDialog method
{
((LPOPENFILENAMEA)DialogData)->hInstance =
(void*)FindClassHInstance(this->ClassType());

if(((LPOPENFILENAMEA)DialogData)->lStructSize >
OPENFILENAME_SIZE_VERSION_400)
{
// Here if new (8 Cool

OPENFILENAME structure in caller
return TCommonDialog::TaskModalDialog(DialogFunc, DialogData);
}
else
// Here if old (76) OPENFILENAME structure in caller
{
opddialogdata.ofn=*((LPOPENFILENAME_NT4A)DialogData);
opddialogdata.ofn.lStructSize=ss;
// Preceeding line causes GetOpenFilename call to fail on Win98 because
// the largeer lStructSize is unknown. TOpenDialog::DoExecute checks the
// Windows version and uses the smaller number when necessary, regardless
// of the actual size of the structure!

// opddialogdata.ofn.Flags&= ~OFN_ENABLEHOOK;
// opddialogdata.ofn.Flags&= ~OFN_ENABLESIZING;
return TCommonDialog::TaskModalDialog(DialogFunc, ourdialogdata);
}
}
//--------------------------------------------------------------------------
-
namespace Placesdialog
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TPlacesDialog)};
RegisterComponents("Samples", classes, 0);
}
}
//--------------------------------------------------------------------------
-
--
Timothy H. Buchman
========================================
City Center Theater, New York NY
mail address tbuchmanPLEASE(at sign)REMOVEcitycenter.org
Search .borland message archive on http://www.tamaracka.com/search.htm