Andrea Molino
easytarg@mbox.vol.it
(Italy)


  In this file you can found some components to implement an "Enhanced Open Dialog".

  Fell Free of use this code as you want in NON COMMERCIAL Application:
  only, send me an E-mail to tell me what You think about this component!.

  If You want to use it in COMMERCIAL Application, please, send me a little
  money contribution and remember of me in the "About Box"!
	(Send me an E-mail if You want more information)

  Please send me any suggestion and bug report.


[Componets]
  TFileListViewDlg
  TFileListPopupMenu
  TDirectoryComboDlg
  TFileNameEditDlg


[History]

    20 May  1997 - First Version
    27 May  1997 - Corrected some Bugs to ShellObj.Pas --> ShlObjFx.Pas
    29 May  1997 - Corrected Bug to FileTimeToFileDateStr(FileTime: TFileTime)
                      (Thanks to "Ian martin" <ian.martin2@virgin.net> )
    06 June 1997 - Added Method "PrevDirectory" to TDirectoryComboDlg
    10 June 1997 - Added Image browsing
    16 June 1997 - Added international language support
                      (From a suggestion of "Francesco Consumi" <consumi@CLI.DI.Unipi.IT>)
    19 June 1997 - Completed support of Shell's DropFile;
    20 June 1997 - Added Statistic on files (Number, Size)
    25 June 1997 - Fixed some Bugs to TDirectoryComboDlg
    26 June 1997 - Do Enhancement to TFileListPopupMenu
 
[TFileListViewDlg]
	- Property (Public)
		Drive:				Get/Set Drive
		Directory:			Get/Set Directory
		FileName:			Get/Set FileName
		DirectorySize:			Get the total size of the directory
		AllFileNumber:			Get total number of files in the directory
		SelectedNumber:			Get number of selected files
		SelectedSize: 			Get size of selected files

	- Property (Published)
		DirCombo:			To set the TDirectoryComboDlg
		FileEdit:			To set the TFileNameEditDlg
		FileViewType:			[ReadOnly, Hidden, System]
		Language: 			Get/Set the language
		Mask: 				Get/Set the File Mask
		SortedBy: 			Get/Set the sort method
		ViewIconStyle:			[Icon, SmallIcon, List, Report, BrowseImage]
		NetWorkEnabled:			To enable the support of the netwok (not properly supported)
		ReadEnabled:			So You can allow Read after window showing, not before 
		ResolveLink:			To show the name of the real file linked by a .LNK file
		ExecuteOpen:			If TRUE, with a double click on an icon, the related program will be opened
		ThumbnailSize:			Get/Set Size of thumbnail for image browser
		MaskBrowseImage:		Useful for view Programmer's Glyphs
		PoPupImageBrowserEnabled:	If FALSE the Browser's item in the popup menu are not showed
	- Events
		OnViewChange: 			--> The User Change ViewIconStyle
		OnFileSelect: 			--> The User select a file
		OnDirectoryChange: 		--> The User Change Directory
		OnFileDrop: 			--> The User Drop Files from Explorer Shell
	
	- Method
		ReRead:				Refresh the file list
		PrevDirectory:			Go to previous directory
		Rename:				Begin the rename process of the selected files
		DeleteFiles:			Delete the selected files
		NewFolder:			Create a new folder
		SendTo:				Copy the selected files to specified Path
		ShellOpen:			Open the program related to the selected file
		GetSelectedFiles:		Get the selected files list


[TFileListPopupMenu]
	- Property
		FileListView:			To Set the TFileListViewDlg

	- Method
		BuildItems:			Build the Items
		Popup: 				Execute popup


[TDirectoryComboDlg]
	- Property
		FileListView:			To Set the TFileListViewDlg
		Drive:				Get/Set Drive
		Directory:			Get/Set Directory

	- Events
		OnDirectoryChange: 		--> The User Change Directory

	- Method
		PrevDirectory:			Go to previous directory


[TFileNameEditDlg]
	- Property
		FileListView:			To Set the TFileListViewDlg


************************************************************************************************

[Image Browser]

	When ViewIconStyle is set to visBrowseImage the component show normal icons for generic files,
	but if the directory contents Image files, the component read the images and show them as
	thumbnnail of selected size with or without mask (useful for glyphs)
	The supported formats are:
				- Bitmap 	.BMP
				- Icon		.ICO		(obvious)
				- Metafile	.WMF and .EMF
				- Gif		.GIF		(All version I Hope)  (NO MULTIFRAMES)
				- Pcx		.PCX
				- Tiff		.TIF		(No Compression, PackBit, LZW)  (NO FAX, CCT...)
				- Corel draw	.CDR		(If saved with internal bitmap preview)

	To show a directory with many image files (16 Colours) there is no problem.
	To show many Images at 256 or more colours You must set Windows to 64000 or 16000000 colours
	else the component obtain low quality images


************************************************************************************************

[Language Support]
	
	This component support the main Language.
	You can select a particular language or the Default language from Windows,
	in this case the component, automatically get the Windows language setting
	so it has "International support".
	If the language set by User in Windows is not supported, the componet select
	English.

	The languages supported are:
		- English
		- Italian
		- German	(Not perfect)
		- French	(Not perfect)
		- Spanish	(Not perfect)

	If You send me a file with correct Language support for an other language
	I am happy to include it in next version
	To do so you must compile a file like ENGLISH.TXT in the directory [LANGUAGE]
	
	The strings' ID are in the form: LANGIDnn where LANGID is a number of two digit
	The number "nn" is the index of the string as referred in the code


************************************************************************************************


	 				Enjoy with this component!!!!!!!!!
		
							Andrea Molino (Italy)