hramenko / mustangpeakvirtualshelltools Goto Github PK

...has not been expanded because unit 'System.UITypes' is not specified in USES 
list
...has not been expanded because unit 'System.Types' is not specified in USES 
list

Similar issues are in the MPCommonControls and EasyListView.

What is the expected output? What do you see instead?
1. Some {$IF} directives terminates with {$ENDIF} instead of {$IFEND}
2. [DCC Error] VirtualExplorerTree.pas(14975): E2032 For loop control variable 
must have ordinal type (Same as #3 from issue 7, fixes with replacement 
NativeInt with Integer in variable declaration)

What version of the product are you using? On what operating system?
Delphi 2007 on Windows 7 x64, VT from V5_Stable branch at GitHub

in several packages the "requires" section contains incorrect dependencies to 
Virtual Tree View.

Virtual TreeView packages are now named VirtualTreesR and VirtualTreesD and are 
located in different folders for every supported Delphi version.

The following Virtual Shell Tools packages require a name change:

VirtualShellToolsD7.dpk
VirtualShellToolsD9.dpk
VirtualShellToolsD11.dpk
VirtualShellToolsD12.dpk
VirtualShellToolsD14.dpk
VirtualShellToolsD15.dpk

The D16 package is already correct. D5, D6 and D10 don't require any change 
since these Delphi versions are not supported in Virtual TreeViw,

There are also three junk files to remove in the Delphi folder:

- VirtualShellToolsD9.bdsproj
- VirtualShellToolsD9D.bdsproj
- VirtualShellToolsD9D.identcache

Regards
Salvatore

What steps will reproduce the problem?
Try to compile VirtualShellTools package with last revision of VirtualTree from 
http://code.google.com/p/virtual-treeview/

What is the expected output? What do you see instead?
Errors:
1. [DCC Error] VirtualShellToolsD11.dpk(33): E2202 Required package 
'VirtualTreesD11' not found
2. After replacing VirtualTreesD11 on VirtualTreesR in dpk-file:
[DCC Error] VirtualExplorerTree.pas(1513): E2037 Declaration of 'DragAndDrop' 
differs from previous declaration
3. After correction of method 'DragAndDrop' declaration:
[DCC Error] VirtualExplorerTree.pas(14976): E2032 For loop control variable 
must have ordinal type

What version of the product are you using? On what operating system?
Delphi 2007, Windows 7 x64

Hi,

Good to see this excellent lib live again :).

The VirtualExplorerTree.pas doesn't compile in D2010:
    {$IFDEF COMPILER_16_UP}
    procedure DragAndDrop(AllowedEffects: Integer; DataObject: IDataObject; var DragEffect: Integer); override;
    {$ELSE}

Solution:
change COMPILER_16_UP to COMPILER_14_UP.

What steps will reproduce the problem?
1. Create a network share on any computer
2. Create a shortcut link on your development machine to the network share
3. Disconnect the computer from network which hosting the share 
4. Now, the shortcut link is broken
5. Set VirtualExplorerTreeview.RootFolderCustomPath to the folder which 
contains the broken link
6. Include toThreadedImages to 
VirtualExplorerTreeview.TreeOptions.VETImageOptions
7. Set VirtualExplorerTreeview.Active:= TRUE
8. Now VET browses the folder until arriving the broken link, then stopping and 
wait for a long, long time. Then continues (maybe).

What version of the product are you using? On what operating system?
2.4.0 on D7 Pro / Win 7 x64

Please provide any additional information below.
I think, a (configurable) timeout for each item would be a solution. When 
reading a file info is too long, break it up and continue with next item.

Revision 612 of VirtualTrees.pas introduced a change that prevents the 
compilation of VirtualExplorerTree.pas :

"DoInitChildren() has been converted into a function which returns True if the 
event was called; It returns False if the caller can expect that no changes 
have been made to ChildCount. This is useful in TBaseVirtualTree.InitChildren()"

To allow compiling my code, I changed 
TCustomVirtualExplorerTree.DoInitChildren() from a procedure to a function and 
updated the last line of the function to :

  // This allows uses to override the count in case custom namespace are being used
  Result := inherited DoInitChildren(Node, ChildCount);

There is probably a better way to fix the issue, but at least now you're aware 
of this problem ;)

Best regards,

Adrien 

What steps will reproduce the problem?
1. Right click to show context menu
2. Click Up

The window is empty.

Solution

In file VirtualScrollbars.pas change the definition of TWMPrint to

  TWMPrint = {$IFNDEF WIN64}packed{$ENDIF} record
    Msg: Cardinal;
    DC: HDC;
    Flags: LPARAM;
    Result: LRESULT;
  end;

I am trying to build a FileFilter by the

VirtualExplorerListviewEnumFolder
  (Sender: TCustomVirtualExplorerTree; Namespace: TNamespace;
  var AllowAsChild: Boolean);
var
 s:string;
begin
   s:='.mp3;.ac3';
   AllowAsChild := pos(namespace.Extension,WideString(s))>0;
end;

will working fine

but this will not working
   s:TStringList;
   s:= TStringList.create;
   s.add(.mp3);
   s.add(.ac3);

VirtualExplorerListviewEnumFolder
  (Sender: TCustomVirtualExplorerTree; Namespace: TNamespace;
  var AllowAsChild: Boolean);
var
 i: integer;
begin
   for i := 0 to s.count -1 do
     AllowAsChild :=namespace.Extension = s[i];
end;
 it will only filtering the first Entry not shure why

hi ,Thanks for so powerful Component! my English is very poor! please 
Understanding!
 when i drap a listviewitem to the  TVirtualShellToolbar  on windonws7(64bit),it make a  
error :Invalid imagelist  . how can i solve the problem? Thank you very much!

What steps will reproduce the problem?
1. Place a TVirtualMultiPathExplorerEasyListview component on a form
2. Set the "Grouped" property to True
3. Create a group (AGroup) by Groups.Add()
4. Set caption of the group (optional)
5. Add an item to the group by using AddCustomItem(AGroup, ANamespace, True);


What is the expected output? What do you see instead?
The item should be added to the specified group when calling 
AddCustomItem(AGroup, ...) and should be visible.
Instead no item is shown.

What version of the product are you using? On what operating system?
VirtualExplorerEasyListview.pas v2.4.0

Please provide any additional information below.

What steps will reproduce the problem?
1. procedure DoGetText(Node: PVirtualNode; Column: TColumnIndex; TextType: 
TVSTTextType; var Text: UnicodeString); override;
is different in Virtual Treeview 6.1

What version of the product are you using? On what operating system?
XE8