Copyright© Kambiz R. Khojasteh. All rights reserved.
Get future component updates from http://www.delphiarea.com.

DESCRIPTION

TSysImageList is a read-only descendent of TImageList containing the icons that Microsoft® Windows uses them internally. By using this component you can easily find the associated icon for any file, folder, special folder, or even URL.

PROPERTIES

NOTE: do not change any inherited property of the component except those are listed below. Especially by changing inherited SharedImage property to false, you will lose all the system icons in the current session of the Microsoft^® Windows.

• BlendColor: TColor
  Determines which foreground color to use when drawing an image.
  
  
• BkColor: TColor
  Determines which background color to use when drawing an image.
  
  
• DrawingStyle: TDrawingStyle
  TDrawingStyle = (dsFocus, dsSelected, dsNormal, dsTransparent)
  Specifies the style to be used when the image list is drawing an image.
  
  

  dsFocus		Draws the image blending 25% with the color specified by the BlendColor property. This only affects image lists that contain masks.
  dsSelected		Draws the image blending 50% with the color specified by the BlendColor property. This only affects image lists that contain masks.
  dsNormal		Draws the image using the color specified in the BkColor property. If the BkColor is clNone, the image is drawn transparently using the mask.
  dsTransparent		Draws using the mask regardless of the BkColor setting.

  
  
• IconSize: TIconSize
  TIconSize = (isSmallIcons, isLargeIcons)
  Specifies the size of the images in the image list.
  
  

  isSmallIcons		Fills the image list by using system small icons (16x16 pixels).
  isLargeIcons		Fills the image list by using system large icons (32x32 pixels).

METHODS

• function TSysImageList.ImageIndexOf(const Path: String; OpenIcon: Boolean): Integer
  Returns index of the image in the image list, which is associated to the path. Path can be a filename, a file mask, a folder, a special folder, an Internet protocol, or an URL. When OpenIcon parameter is true, the returned index is the index of the image when the specified item by path is open. If the function does not find any image, it returns -1.
  
  Examples:
  
  

  Index := SysImageList.ImageIndexOf('c:\autoexec.bat', False); Index := SysImageList.ImageIndexOf('c:\Windows', True); Index := SysImageList.ImageIndexOf('*.pas', False); Index := SysImageList.ImageIndexOf('gopher:', False); Index := SysImageList.ImageIndexOf('http://www.borland.com', False); Index := SysImageList.ImageIndexOf('My Documents', False);

EVENTS

• OnChange: TNotifyEvent
  Occurs when the image list's content has been changed.

HISTORY

• 1.20 (April 17, 2001)
  - ImageIndexOf method improved.
  
  
• 1.10 (March 10, 2001)
  - Image list's icons are system resources and should not be saved in the form DFM. In the prevous version of the component I had missed this point and now it is fixed.
  
  
• 1.01 (November 10, 2000)
  - A minor bug fixed.
  
  
• 1.00 (October 1, 2000)
  - Initial release.
  

LICENSE

TSysImageList component is freeware. You may copy component's files AS LONG AS YOU COPY ALL OF THEM. If you want to change the source code in order to improve the component's features, performance, etc. please send me the new source code so that I can have a look at it. The changed source code should contain descriptions what you have changed, and of course your name. The only thing you MAY NOT CHANGE is the ORIGINAL COPYRIGHT INFORMATION.

DISCLAIMER

TSysImageList is provided "AS IS" without any warranty of any kind, either express or implied. The entire risk as to the quality and performance of the software is with you. The author is NOT liable for any DAMAGES resulting from the use and misuse of the component, especially he is NOT liable for DAMAGES that were caused BY ANY VERSION WHICH HAS NOT BEEN PROGRAMMED BY THE AUTHOR HIMSELF.