Class THeaderFocus (unit UtilComp)

Inherits from

THeaderControl

THeaderFocus - was derived from THeaderControl. Selection of single is possible. Selected section is highlighted with focuse rectangle. Property SelectedSection is used to get/set selection Additionally, two notification events were added: OnMouseEnter and OnMouseLeave - exposure internal notifications CM_MOUSEENTER and CM_MOUSELEAVE TSpeedBtColor was derived from TSpeedButton. Additional property Color is used to change brush color of the button. TListHScroll was derived from TListBox. Authomatical calculation of horizontal extension is added. Horizontal scroll bar appears authomatically with required range. Additional property Offset - left distance in pixels from default to draw text. It is used for owner-draw purposes. TComboSized was derived from TCombobox. It is resized authomatically when it is dropped down to show whole large string. Additional property Offset - left distance in pixels from default to draw text. It is used for owner-draw purposes. FreeWare. No warranties. If one will distribute the source code, reference on author (below) is required. If one will modify the source code, highlighting (by any means) of modifications is required. Author: Sergei Trepalin, trep@trep.home.chg.ru

Constructors



Functions

procedure SectionClick(Section: THeaderSection);


procedure CMMouseEnter(var Message:TMessage);


procedure CMMouseLeave(var Message:TMessage);


function GetSelectedSection:integer;


procedure SetSelectedSection(Value:integer);


procedure WMPaint(var Message:TWMPaint);

---------------------------------------------------------------------------

Properties

property SelectedSection : integer


Events

event OnMouseEnter : TNotifyEvent


event OnMouseLeave : TNotifyEvent


Variables

FOnMouseEnter : TNotifyEvent;


FOnMouseLeave : TNotifyEvent;


FSelectedSection : THeaderSection;



Constructors


Functions


procedure SectionClick(Section: THeaderSection);


procedure CMMouseEnter(var Message:TMessage);


procedure CMMouseLeave(var Message:TMessage);


function GetSelectedSection:integer;


procedure SetSelectedSection(Value:integer);


procedure WMPaint(var Message:TWMPaint);

---------------------------------------------------------------------------


Properties


property SelectedSection : integer


Events


event OnMouseEnter : TNotifyEvent


event OnMouseLeave : TNotifyEvent


Variables


FOnMouseEnter : TNotifyEvent;


FOnMouseLeave : TNotifyEvent;


FSelectedSection : THeaderSection;