View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0003160 | JEDI VCL | 00 JVCL Components | public | 2005-08-25 01:53 | 2005-08-28 07:47 |
| Reporter | westphal | Assigned To | obones | ||
| Priority | normal | Severity | minor | Reproducibility | always |
| Status | resolved | Resolution | no change required | ||
| Product Version | 3.00 | ||||
| Target Version | Fixed in Version | ||||
| Summary | 0003160: TJvOpenDialog: Event onIncludeItem does not work | ||||
| Description | I 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); var pidl1 : PItemIDList; StrRet: TStrRet; P: PChar; myString : string; begin pidl1 := OFN.PIDL; OFN.psf.GetDisplayNameOf(pidl1, SHGDN_NORMAL, StrRet); case StrRet.uType of STRRET_CSTR: SetString(myString, StrRet.cStr, lStrLen(StrRet.cStr)); STRRET_OFFSET: begin P := @PIDL1.mkid.abID[StrRet.uOffset - SizeOf(PIDL1.mkid.cb)]; SetString(myString, P, PIDL1.mkid.cb - StrRet.uOffset); end; STRRET_WSTR: myString := StrRet.pOleStr; end; myString := String(PChar(myString)); include:=not sametext(myString,'vssver.scc'); if not Include then ShowMessage('Not included'); end; | ||||
| Tags | No tags attached. | ||||
|
|
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: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/userinput/commondialogboxlibrary/commondialogboxreference/commondialogboxmessages/cdn_includeitem.asp And it's a behaviour built into TOpenDialog, nothing to do with the JVCL. |
