Components

THourSel

HourSel is a component for Delphi 2 and Delphi 4 to let the user select days or hours. It only has the features that we needed, and perhaps you can use it as well in your applications.

You can use this component in freeware,shareware or commercial applications. All we ask you is to add us to your creditslist,thankslist, about box or readme-file. Thanks a lot !

Finiware is not responsible for any damage of any kind, including hardware and software that for one reason or another might be caused by using these components. Use these components at your own risk.

// Change the index to use the component for another selection. Index is 1..8
property RangeIndex : Integer read FIndex Write SetIndex;

// This property contains a string to be used for storage in the registry. Intended to use with the TEasyReg-component
property RegistryValue : String read FregistryValue write SetRegistryValue;

// If true the user can also select half an hour. 1/2 hours can only be added to an existing selection.
property AllowHalfAnHour : Boolean read FAllowHalfAnHour write SetHalfAnHour ;

// if true the labels (daynames or hours) are shown.
property ShowLabels : Boolean read FShowLabels write SetShowLabels ;

// TAutoSelect = (asNone, asSelect, asSelectDeselect);
property AutoSelect: TAutoSelect read FAutoSelect write SetAutoSelect ;

// TTypeSelect = (tsHours,tsDays);
property TypeSelect : TTypeSelect read FTypeSelect write SetTypeSelect ;

// The bordercolor of the rectangles
property HsBorderColor : TColor read FBorderColor write SetBorderColor;

// The fillcolor of a selected day or hour
property HsSelectColor : TColor read FSelectColor write SetSelectColor;

// the fillcolor of an unselected day or hour
property HsDeselectColor : TColor read FDeselectColor write SetDeselectColor;

// String containing the labels for use of the compant as tsDays.
property DayNames : String read FDayNames write SetDayNames;

// checks if a day or hour is selected. Returns 0 (not selected), 1 (selected), 2 (first half of the hour is selected) or 3 (second half of the hour selected)
function CheckSelect (Value : Integer) : Integer ;

// selects hours (or days) from Fromval to Toval
procedure SelectRange (FromVal,ToVal : Integer);