View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0005407JEDI VCL00 JVCL Componentspublic2010-11-18 09:552012-02-27 16:50
Reportersweet33bdxAssigned Toobones 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionunable to reproduce 
Product Version3.39 
Target VersionFixed in Version 
Summary0005407: 2 messages displayed before trying to select another directory
Description(please forgive my french accent :o) )

First : look at the configuration of my customer (check attached file)
=> he doesn't have access to "C" drive for instance

Now, on a simple form, I use a TJvDirectoryEdit.
The InitialDir is set to "E:\temp" for instance...and my customer has full access to it.

Now my customer click on the browse button...so it should display the "E:\temp" directory

But : in fact, 2 messages appear before the browe form :
"The folder Desktop cannot be used. Please choose another folder"
then I click on "ok" and then the second message :
"The folder My Documents cannot be used. Please choose another folder"

=> in fact, it might be understandable...because "C" drive is forbidden...

So I decided to set the odNewDialogStyle to False
=> now it's ok, my customer doesn't get the 2 messages and the "E:\temp" directory in my browe form is shown immediatly

BUT : with this option set to false, I can't have the "Make a new folder" button...and this is my problem...

Could you help me fixing this problem please ?

Many thanks in advance !
Laurent.
TagsNo tags attached.

Activities

2010-11-18 09:55

 

IMG002-gpedit.jpg (431,083 bytes)

sweet33bdx

2010-11-18 10:32

reporter   ~0018129

well...I looked at your source code, and maybe found a solution to my problem...
But I don't know if I'm right or wrong...maybe it could generate other errors somewhere else...

So I modified procedure TJvDirectoryEdit.PopupDropDown(DisableEdit: Boolean);

and added "BrowseForFolder.RootDirectory := fdMyComputer;"
in the code below :
    dkWin32:
      begin
        BrowseForFolder := TJvBrowseForFolderDialog.Create(Self);
        try
          BrowseForFolder.Options := DialogOptionsWin32;
          BrowseForFolder.Directory := Temp;
          BrowseForFolder.StatusText := DialogText;
          
          BrowseForFolder.RootDirectory := fdMyComputer;
          
          Action := BrowseForFolder.Execute;
          Temp := BrowseForFolder.Directory;
        finally
          BrowseForFolder.Free;
        end;
      end;


=> It seems it works...because folders "Desktop" and "My Documents" are then no longer visible...

But my pb is that I had to modify your source to suit my case...maybe you have another solution ? (I don't know how to modify the property BrowseForFolder.RootDirectory of the TJvDirectoryEdit control at run-time)

Thanks for your support.
Laurent.

obones

2011-02-15 13:46

administrator   ~0018345

Please provide the zipped sources of a sample application showing this.

obones

2011-06-07 17:37

administrator   ~0018590

any news?

obones

2012-02-27 16:50

administrator   ~0019592

I'm assuming this is fixed with the latest SVN content

Issue History

Date Modified Username Field Change
2010-11-18 09:55 sweet33bdx New Issue
2010-11-18 09:55 sweet33bdx File Added: IMG002-gpedit.jpg
2010-11-18 10:32 sweet33bdx Note Added: 0018129
2011-02-15 13:46 obones Note Added: 0018345
2011-02-15 13:46 obones Status new => feedback
2011-06-07 17:37 obones Note Added: 0018590
2012-02-27 16:50 obones Note Added: 0019592
2012-02-27 16:50 obones Status feedback => resolved
2012-02-27 16:50 obones Resolution open => unable to reproduce
2012-02-27 16:50 obones Assigned To => obones