View Issue Details

IDProjectCategoryView StatusLast Update
0003160JEDI VCL00 JVCL Componentspublic2005-08-28 07:47
ReporterwestphalAssigned Toobones 
Status resolvedResolutionno change required 
Product Version3.00 
Target VersionFixed in Version 
Summary0003160: TJvOpenDialog: Event onIncludeItem does not work
DescriptionI think it's more a TOpenDialog problem but i am not able to filter the result even if i detect correctly the filenames i want to remove.

In the additional information is a working detection code but the result of it seem to not be used.
Additional Information
procedure TfmMain.dlgAddFilesIncludeItem(const OFN: TOFNotifyEx; var Include: Boolean);
  pidl1 : PItemIDList;
  StrRet: TStrRet;
  P: PChar;
  myString : string;
  pidl1 := OFN.PIDL;
  OFN.psf.GetDisplayNameOf(pidl1, SHGDN_NORMAL, StrRet);

  case StrRet.uType of
      SetString(myString, StrRet.cStr, lStrLen(StrRet.cStr));
        P := @PIDL1.mkid.abID[StrRet.uOffset - SizeOf(PIDL1.mkid.cb)];
        SetString(myString, P, PIDL1.mkid.cb - StrRet.uOffset);
      myString := StrRet.pOleStr;
  myString := String(PChar(myString));

  include:=not sametext(myString,'vssver.scc');
  if not Include then ShowMessage('Not included');
TagsNo tags attached.



2005-08-28 07:47

administrator   ~0007855

Set ofEnableIncludeNotify to True in the Options property and the event will be called. Note that this can only work from Windows 2000 as it relies on the CDN_INCLUDEITEM notification:

And it's a behaviour built into TOpenDialog, nothing to do with the JVCL.

Issue History

Date Modified Username Field Change
2005-08-25 01:53 westphal New Issue
2005-08-28 07:47 obones Status new => resolved
2005-08-28 07:47 obones Resolution open => no change required
2005-08-28 07:47 obones Assigned To => obones
2005-08-28 07:47 obones Note Added: 0007855