Unit envydcp1

Classes

TCoolAboutDlg - TCoolAboutDlg - Windows 95/NT style about dialog box-------------------------} { This component originally displayed a Windows 95 box complete with resource percentage however this figure required 16-bit thunking which is not available on Windows NT.
TCoolCheckBox - TCoolCheckBox - Checkbox with Read-only ability------------------------------} { This component was created as I needed to display the status of some flags in which could be on or off.
TCoolColorCombo - TCoolColorCombo - Colour selecting drop-down combo box-----------------------} { Quite often I've needed a colour component and although Delphi already has a choice of two I didn't want the complexity of a ColorDialog nor take up the space of a ColorGrid so I have created this colour-drop-down box which is almost identical to that found in the Windows 95/NT font dialog.
TCoolListView - TCoolListView - List View with AutoSort--------------------------------------} { This component was created after deciding that either coding a sort routine for each ListView was time consuming and leaving it without any was poor.
TCoolPanel - TCoolPanel - Panel component with border offset property --------------------} { This is the oddest component I've written to date.
TCoolShade -
TCoolTileBitmap - TCoolTileBitmap - Colour selecting drop-down combo box-----------------------} { Forms with graphical backgrounds always look nice and with Windows background tiles and the abundance of tiled backgrounds on WWW pages this component was begging to be written.

Functions

GetItemHeight -
Register - --Simply register the components with the IDE when installed------------------
SortACaption - --Subfunctions----------------------------------------------------------------
SortASubItem -
SortDCaption -
SortDSubItem -

Types

TCoolShadeStyle

Constants

SysColor

Variables


Functions


function GetItemHeight(Font: TFont): Integer;


procedure Register;

--Simply register the components with the IDE when installed------------------

function SortACaption(Item1, Item2: TListItem; ParamSort: Integer): Integer;

--Subfunctions----------------------------------------------------------------

function SortASubItem(Item1, Item2: TListItem; idx: Integer): Integer;


function SortDCaption(Item2, Item1: TListItem; ParamSort: Integer): Integer;


function SortDSubItem(Item2, Item1: TListItem; idx: Integer): Integer;


Types


TCoolShadeStyle = (ssBorland, ssLight, ssHeavy);
TCoolShade - Borland C style form shading------------------------------------} { I've always liked the dotty-white backgroun found in Borland C++ applications and creating it in Delphi was quite simple although I'd be interested to know how to reduce flicker when resizing on system with full-screen dragging on (it must be possible - the Delphi design window is very smooth when resizing

Constants

SysColor = (clBlack,clMaroon,clGreen,clOlive,clNavy,clPurple,clTeal, clGray,clSilver,clRed,clLime,clYellow,clBlue,clFuchsia,clAqua,clWhite)


Variables