TIEDriveComboBox

Version 1.3

Copyright © 1999 by Ingo Eckel
All rights reserved.

e-mail: mailto:Ingo.Eckel@t-online.de
web site: http://home.t-online.de/home/ingo.eckel/d4comp.htm

Overview:

TIEDriveComboBox is a visible VCL-component based on the Delphi4-component TCustomComboBox. It displays the valid drives of the computer as a combobox with shell icons.

 


Published properties:

 

Property DropDownFixedWidth : Integer
Controls the width of the dropdown-list. If set to zero, the width will be set to a value that avoids clipping the items. If set to any other value, the width will be this value if the value is greater than the width of the controls window.
 
Property Drive : TDrive
Read or write the current drive letter.
 
Property DisplayStyle : TVolumeDisplayStyle
Controls the display style of the volume label. Possible values are:
doPrettyName: the volume label is formatted as 'C: VolumeID', on network drives the UNC-name is not displayed.
doDisplayName: the volume label is formatted like the Explorer's volume-label with UNC-names.
doLongPrettyName: The volume label is formatted like doPrettyName, on network drives the server name and -directories are also shown.
 
Property DriveView : TDriveView
Points to the linked component TDriveView. Set this property to the instance of TDriveView to automatic update the selected TreeNode in TDriveView, if the current drive has changed.
 
Property DriveTypes : TDriveTypes
Set, wich controls the drivetypes displayed in the dropdown-list. This property is not supported by TDriveView. TDriveView only displays floppys, harddisks, network drives, CD-ROMs and RAM-disks. Possible values are:
dtUnknown: Unknown drivetypes are included in the display. The default value is False.
dtNoRootDrive: Unknown drivetypes are included in the display. The default value is False.
dtFloppy: Floppy drives are included in the display.
dtFixed: Harddisks are included in the display.
dtRemote: Network drives are included in the display.
dtCDROM: CD-ROM drives are included in the display.
dtRAM: RAM-disks are included in the display.
 

Methods:

 

Function GetTextWidth(T : String) : Integer
Returns the width in pixels of the given string.
 

Events:

 

Property OnCloseUp : TIECloseUpEvent = Procedure (Sender: TObject; SelectionOK : Boolean)
This event is fired, if the dropdown-list is closed. The parameter SelectionOK is set to True, if a new item was selected, otherwise False.
 

Limitations:

 

Currently none.


History:

 

V1.0: First published release.
V1.1: - Redesigned calulation of itemheight in TIEDriveComboBox.
- Removed unused code.
V1.11: - Required compiler options inserted to avoid problems with global compiler settings different to the Delphi4 default settings.
V1.2: - Property TIEDriveComboBox.DriveView added to link TIEDriveComboBox to the directory tree and update the selected treenode, when a new drive was selected.
- Property Drivetypes added. This property controls, which kind of drives are shown in the list.
V1.3: Property DisplayStyle enhanced, new value doLongPrettyName added.